前提・実現したいこと
<前提>
テーブルに入っているレコードを帳票フォームで表示している
<実現したいこと>
特定の条件に一致したレコードだけ、別の背景色にして帳票フォームで表示したい
発生している問題・エラーメッセージ
もし[フィールド名1]に"A"が入っているレコードがあった場合、
そのレコードが表示されているフォームの背景色を変えたいと思っています。
試しに下記のようにコードを書いたところ、反映されませんでした。
コードを変えようと思ったのですが、どこを変更すればよいかわからず困っております。
もしよい方法がありましたら、何卒ご教示お願いいたします。
<コード>
Private Sub Form_Load() Dim SQL1 As String SQL1 = "" SQL1 = "SELECT [テーブル名].[主キーのフィールド]" SQL1 = SQL1 & ", [テーブル名].[フィールド名1]" SQL1 = SQL1 & ", [テーブル名].[フィールド名2];" Forms![表示用のフォーム名].RecordSource = SQL1 Forms![表示用のフォーム名].Form.Requery If [表示用のフォーム名].[コントロール名1] = "A" Then [表示用のフォーム名].詳細.BackColor = RGB(204, 255, 204) '薄い緑色 End If End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/11/21 01:49