accessでテーブルにレコードが存在しなければ

質問

access初心者です

検索フォームにて二つのコンボボックスがあり
片方を選択する（コンボA）ともう一方のコンボボックス（コンボB）が変わるVBAを組んでいます。

両方を選択した状態で検索ボタンを押すとレポートが出るようにしてるのですが

１）コンボAに入力後、コンボBを選択
２）その後コンボAを変更するとコンボBは１）の状態
３）そのまま検索を押すとブランクのレポートが出てくる
＊コンボBの内容がコンボA内に無いため

この状態を解決したく、エラートラップかコンボA変更時にコンボBを自動的にブランクに変更
するようにVBAを書きたいのですが、書き方が分かりません。

分かりにくい文章で申し訳ございませんが
ご教授お願いいたします。

現状のコードだけ乗っけていきます

Private Sub コマンド18_Click()

Dim report_name As String
Dim report_value As String

On Error GoTo error_1

If Not IsNull(コンボ50.Value) = True Then

report_name = コンボ48.Value
report_value = コンボ50.Value

DoCmd.OpenReport report_name, acViewPreview, , "[現場名]='" & report_value & "'"

Else

MsgBox "項目を選択してください。"

End If
Exit Sub

error_1:

MsgBox "項目が存在しません。"

Resume Next

End Sub

回答No.1

chie65536（@chie65535） · ベストアンサー

コンボ48の「変更時」のイベントプロシージャに

Private Sub コンボ48_Change()
コンボ50.SetFocus
コンボ50.Text = ""
コンボ48.SetFocus
End Sub

のコードを割り当てて下さい。

お礼

ありがとうございます！！
そうです！まさにそれです！

エラートラップは外して、エラーの無いコードに出来ました！！