| |
こんにちは。
困っています！どなたか助けて下さい！
「請求選択」というテーブルを基に作ったフォーム上に「選択」というチェックボックスがあります。そのチェックボックスのオンオフをフォーム上で操作します。そして、コマンドボタンをクリックすることで、そのチェックを一括してオンにしたりオフにしたりしたいのです。
下記は「全選択」というコマンドボタンの命令文です。
Private Sub cmd全選択_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = Forms!請求選択.Recordset.Clone
Do Until rs.EOF
rs.Edit
rs!選択 = True
rs.Update
rs.MoveNext
Loop
DoCmd.OpenForm "請求選択"
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
End Sub
これでテーブルのデータは全てオン(0)になってます。
それにフォームも、下のタスクバーにある別のフォームを表示して一度画面を切り替えてからもう一度そのタスクバーにある請求選択フォームを表示させればデータは更新されているのです。でもその表示が自動的に行えません。どうすればいいのでしょうか？
分かる方、ご指導宜しくお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
