アクセス初心者です。プログラムの書き方について。

質問

アクセス初心者です。
Private Sub cmd_キャンセル_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
If MsgBox("基本情報登録画面を閉じますか？", vbOKCancel) = vbOK Then
DoCmd.Close 'フォームを閉じる
DoCmd.OpenForm "Mainmenu"
Else 'OK以外の場合
Exit Sub 'そのままプロシージャーから抜け出す
Me.コード.SetFocus
End If
End Sub
キャンセルのコマンドボタンを作成しました。キャンセルを押すと、入力していた情報がクリアされ、「基本情報登録画面を閉じますか」と言うメッセージボックスがでてきて、OKかキャンセルの選択をします。OKの場合は基本情報登録画面が閉じて、MainMenuが開きます。キャンセルのときは、基本情報登録画面のままで、コードのところにカーソルが着ててほしいのです。上記プログラムではキャンセルからの動きができません。基本情報登録画面のままというのはできているのですが、カーソル指定ができません。どの書き方がまずいのでしょうか？わかる方がいましたらご教示ください。よろしくお願い致します。

回答No.1

bonaron · ベストアンサー

> Else 'OK以外の場合
> Exit Sub 'そのままプロシージャーから抜け出す
> Me.コード.SetFocus
> End If

プロシージャーから抜け出してしまったら
その後のコードは実行されませんからね。

Else 'OK以外の場合
　　Me.コード.SetFocus
　　Exit Sub 'そのままプロシージャーから抜け出す
End If

お礼

できました！！
ありがとうございます。