Accessについての質問です。

質問

フォームに印刷ボタンを作成し、印刷ボタンクリック時にID No.が入力されている場合は印刷が実行されて、ID No.が未入力の場合の「印刷」ボタンクリック時に、ID No.の入力を求めるメッセージボックスを表示して、ID No.のフィールドにフォーカスを移動するにしたいのですがうまくいきません。
イベントをどのようにしたら良いのでしょうか？

ご教授願いますm(__)m

回答No.1

hatena1989 · ベストアンサー

ボタンのクリック時に、下記のイベントプロシージャを設定してください。

Private Sub コマンド1_Click()
　　If IsNull(Me.[ID No.]) Then
　　　　MsgBox "ID No. を入力してください。"
　　　　Me.[ID No.].SetFocus
　　Else
　　　　DoCmd.OpenReport "レポート名"
　　End If
End Sub

お礼

いつもありがとうございます。
無事、解決しましたm(__)m