Access VBA質問箱 IV

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

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


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

5395 / 9994

←次へ　｜　前へ→


	【7821】非連結フォームにテーブルの値を表示させるには

mho - 06/5/15(月) 16:21 -


	引用なし

	パスワード

初めて投稿します。よろしくお願いします。

さて、表題の件について質問します。
非連結フォーム(frm1000_入力chk)にチェックボックスがあり、ADO接続でチェックを入れることにより、テーブル(tbl1100_入力check)にyes/noが入ります。
次回、非連結フォームを開くとき特定レコードのチェックボックス値が表示されるようにしたいのです。

テーブル名　tbl1100_入力check
　フィールド名　grade(byt),class(byte),tuki(byte),chk(bln)　
フォーム名　frm1000_入力(tbl1100_入力chkとは非連結)

'--------------------------------------------------ここから
Private Sub 月入力_AfterUpdate()
　　DoCmd.Requery

　　Dim db As New ADODB.Connection
　　Dim rs As New ADODB.Recordset
　　Dim bytRet1 As Byte
　　Dim bytRet2 As Byte
　　Dim bytRet3 As Byte
　　Dim blnRet4 As Boolean
　　
　　Set db = CurrentProject.AccessConnection
　　rs.Open "tbl1100_入力check", db, adOpenKeyset, adLockOptimistic
　　　
　　bytRet1 = Forms!frm0000_menu!年入力　'別フォームで入力済みです
　　bytRet2 = Forms!frm0000_menu!組入力　'別フォームで入力済みです
　　bytRet3 = Forms!frm1000_入力!月入力　'frm1000_入力で入力します
　　
　　rs.Filter = "(Grade = " & bytRet1 & ") And (Class = " & bytRet2 & ") And (tuki = " & bytRet3 & ")"
　　
　　Do Until rs.EOF
　　　　
　　　　Me.cmdCHK = chk　'<==このあたりがよくわかってません。
　　　　rs.MoveNext
　　Loop
　　
　　rs.Close: Set rs = Nothing
　　db.Close: Set db = Nothing

End Sub
'--------------------------------------------------ここまで

695 hits

▼

【7821】非連結フォームにテーブルの値を表示させるには mho 06/5/15(月) 16:21

≪