Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8370 / 9994

←次へ　｜　前へ→


	【4798】フォームの再表示

水無月 - 05/4/4(月) 10:28 -


	引用なし

	パスワード

こんにちは。
困っています！どなたか助けて下さい！

「請求選択」というテーブルを基に作ったフォーム上に「選択」というチェックボックスがあります。そのチェックボックスのオンオフをフォーム上で操作します。そして、コマンドボタンをクリックすることで、そのチェックを一括してオンにしたりオフにしたりしたいのです。
下記は「全選択」というコマンドボタンの命令文です。

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)になってます。
それにフォームも、下のタスクバーにある別のフォームを表示して一度画面を切り替えてからもう一度そのタスクバーにある請求選択フォームを表示させればデータは更新されているのです。でもその表示が自動的に行えません。どうすればいいのでしょうか？
分かる方、ご指導宜しくお願いします。

225 hits

▼

【4798】フォームの再表示 水無月 05/4/4(月) 10:28

≪