以前、チェックボックスを一括変更で色々とコードを教えていただきました。
しばらくはうまく動いていたのですが、最初の1回目だけ「引数が無効です」とエラーが出て
「rs.Edit」で止まるバグ？が発生するようになりました。
Private Sub cbo担当_Click()
Dim rs As DAO.Recordset
Set rs = Me.Recordset.Clone
rs.MoveFirst
Do Until rs.EOF
rs.Edit
rs!担当ID = cbo担当
rs.Update
rs.MoveNext
Loop
Me.Recalc
End Sub
そこで、チェックボックスについては更新クエリで対応するようにできたのですが、
下記の件を更新クエリで作成したところうまく動きません。
何か他に方法はありますでしょうか？
UPDATE Q_案件 SET Q_案件.担当ID = [cbo担当];
としてください。
フォーム名は実際のものにしてください。
うまくいきました！初歩的なミスでスミマセン。ありがとうございました。