こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

access初心者です

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

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

1)コンボAに入力後、コンボBを選択
2)その後コンボAを変更するとコンボBは1)の状態
3)そのまま検索を押すとブランクのレポートが出てくる
*コンボ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

投稿日時 - 2017-02-08 15:52:05

QNo.9291411

困ってます

質問者が選んだベストアンサー

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

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

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

投稿日時 - 2017-02-08 16:09:32

お礼

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

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

投稿日時 - 2017-02-08 16:34:24

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問