プロシージャの実行方法

Access2016を使用しています。
例えば添付画像のようなフォーム（フォーム1）を作り、非連結のテキストボックス「T_F1」と
「T_F2」、そして「登録」ボタンを配置したとします。
登録ボタンをクリックすると内容をテーブルに追加し、T_F1 と T_F2 をクリアするという動きを
させる場合、以下のようにコードを書いてみました。

Private Sub BT_登録_Click()
　Dim DB As DAO.Database
　Dim RS As DAO.Recordset
　Set DB = CurrentDb
　Set RS = DB.OpenRecordset("TB1", dbOpenDynaset)
　RS.AddNew
　　RS.Fields(0) = Me.T_F1
　　RS.Fields(1) = Me.T_F2
　RS.Update
　RS.Close: Set RS = Nothing
　DB.Close: Set DB = Nothing
　Call S_clear
End Sub
------------------------------------
Private Sub S_clear()
　Me.T_F1 = Null
　Me.T_F2 = Null
End Sub
------------------------------------

ここで S_clear() の動作テストを行いたいのですが、「F5」や VBAメニューバーの
[実行（R）]-[Sub/ユーザーフォームの実行] ではマクロを選択するウインドウが
開きますが、何も選択することが出来ません。

試しに 「Public Sub S_clear()」にしてみても同様でした。
標準モジュールに記述すれば「F5」で動作確認ができるのですが、
この様な場合の動作確認はどのように行えばよいのでしょうか？

No.1 ベストアンサー 回答者： shut0325 回答日時： 2017/07/22 11:43

フォーム内に適当なボタンを一つ作り、クリック時イベント（コード）を　Call S_clear　とだけ記述すればいいのでは?

T_F1とT_F2に適当な数値や文字を入れ、そのボタンを押すと動作確認できるはずです。

メンドクサイなら、現在のコードでCall S_clearの直前・直後などにメッセージボックスを出すようにしておくのも良いと思います。うまく動作したらRemするなり、削除すればよいのだし。

この回答へのお礼

回答ありがとうございました！
やはりボタンを作る方法しかないのですね。
そのままコードを実行させる方法があるのかと思ったのですが、
確認出来て助かりました。

お礼日時：2017/07/22 18:04