アクセス 処理の分岐について。

質問

Private Sub コマンド42_Click()

Dim CT1 As Control
For Each CT1 In Me.Controls
If CT1.ControlType = acTextBox Or CT1.ControlType = acComboBox Then
CT1.Value = Null
ElseIf CT1.ControlType = acCheckBox Then
CT1.Value = False
End If
Next

Dim strmsg As String
strmsg = "基本情報登録画面を閉じますか？"
If MsgBox(strmsg, vbOKCancel + vbCritical) = vbOK Then
DoCmd.Close
End If

DoCmd.OpenForm "Mainmenu"

End Sub
というプログラムを書きました。これだと、OKコマンドをクリックすると基本情報登録画面が閉じて、MainMenuが開きます。cancelコマンドをクリックすると、基本情報登録画面がそのままで、MainMenuが開きます。キャンセルのときは、基本情報登録画面をそのままにして、アクションは何もおきなくていいのですが、何を変えればいいのでしょうか？
call再表示でFunction　再表示()で書き込んでみたのですが、エラーが出ます。多分、簡単なことなのでしょうけど、うまくいきません。どなたかわかる方がいましたらご教示ください。よろしくお願い致します。

回答No.1

fly_moon · ベストアンサー

>If MsgBox(strmsg, vbOKCancel + vbCritical) = vbOK Then
>DoCmd.Close
>End If
分岐になってないですよ。

If MsgBox(strmsg, vbOKCancel + vbCritical) = vbOK Then
DoCmd.Close
Else'OK以外の場合
Exit Sub 'そのままプロシージャから抜け出す
End If

で良いと思いますが。

お礼

できましたっ！ありがとうございます<m(__)m>！！！