ボタンでフォームを閉じるＶＢＡコード－Accessコントロール
ボタンをクリックすると、フォームを閉じるエラー処理も含めたＶＢＡコードです。Windowsの［×］閉じるボタンでもいいですが、この大きめのボタンを設置することでさらに使いやすくなります。
■ＶＢＡコードを入力します。
１．デザインビューでフォームにボタンを配置します。ボタンの標題は「閉じる」にしました。
２．ボタンを選択した状態で、プロパティシートの［イベントタブ］－［クリック時］－［▼］ボタンをクリックし、［イベントプロシージャ］を選択します。
３．［クリック時］の［・・・］ボタンをクリックします。
ＶＢＥ画面が開き、クリックイベントのコードが入力されています。
Option Compare Database
Private Sub コマンド1_Click()
End Sub
１．デザインビューでフォームにボタンを配置します。ボタンの標題は「閉じる」にしました。
２．ボタンを選択した状態で、プロパティシートの［イベントタブ］－［クリック時］－［▼］ボタンをクリックし、［イベントプロシージャ］を選択します。
３．［クリック時］の［・・・］ボタンをクリックします。
ＶＢＥ画面が開き、クリックイベントのコードが入力されています。
Option Compare Database
Private Sub コマンド1_Click()
End Sub
下記のエラー処理とフォームを閉じるＶＢＡコードを入力します。
Option Compare Database
Private Sub コマンド0_Click()
On Error GoTo ErrExit
DoCmd.Close "F_メニュー"
Exit Sub
ErrExit:
MsgBox "エラーが発生しフォームを閉じることができませんでした。" & _
vbCrLf & Err.Description
End Sub
フォームビューで開き、設置したボタンをクリックするとフォームが閉じます。
Home 
コントロール2Copyright(C) FeedSoft