Access VBA質問箱 IV

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

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


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

5391 / 9994

←次へ　｜　前へ→


	【7827】Re:非連結フォームにテーブルの値を表示さ...

小僧 - 06/5/16(火) 14:30 -


	引用なし

	パスワード

▼mho さん：
こんにちは。

>はい、Loopをかけている対象は、複数レコードあります。
>grade(byt),class(byte),tuki(byte),chk(bln)のフィールド名と型が
>用意してあり、値はgrade が1～3、classが1～9、tukiが1～12で
>３つのキーを主キーとする、

主キーであるのであれば、
grage class tuki chk
1　　　1　　 1　　yes
1　　　1　　 1　　yes
1　　　1　　 1　　no

の様な事はないんですよね？

grade と class と tuki でフィルタを掛けているのですから
結果は0件ないし1件ではないのでしょうか。

ADO に拘るのであれば、

Private Sub y_AfterUpdate()　　
Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim strSQL As String
　　
　　strSQL = "SELECT chk FROM tbl1100_入力check " _
　　　　　 & "WHERE grade=" & Forms![α]![a] & " AND " _
　　　　　　　　 & "class=" & Forms![α]![b] & " AND " _
　　　　　　　　 & "tuki =" & Me.y

　　Set CN = CurrentProject.Connection
　　Set RS = CN.Execute(strSQL)
　　　　Me.cmdCHK = RS![chk]
　　RS.Close
　　Set RS = Nothing
　　CN.Close
　　Set CN = Nothing
　　
End Sub

特に拘らないのであれば

Private Sub y_AfterUpdate()

　　Me.cmdCHK = DLookup("chk", "tbl1100_入力check", _
　　　　　　　　　　　　"grade=" & Forms![α]![a] & " AND " _
　　　　　　　　　　　& "class=" & Forms![α]![b] & " AND " _
　　　　　　　　　　　& "tuki =" & Me.y)

EndSub

こんな感じでしょうかね…

(tbl1100_入力checkに該当データがなかった場合は考慮しておりません)

658 hits

▼

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