1

コマンドボタンのクリックからトリガーしたい追加クエリがあります。Close＆Openコマンドを実行するコマンドボタンが付いたスプラッシュ画面があります。このクリックイベント中に実行する追加クエリを組み合わせたいと思います。

スプラッシュ画面のVBA

Option Compare Database

Private Sub SplCls_Click()
On Error GoTo Err_SplCls_Click

DoCmd.Close

stDocName = "Switchboard"
DoCmd.OpenForm stDocName

Exit_SplCls_Click:
Exit Sub

Err_SplCls_Click:
MsgBox Err.Description
Resume Exit_SplCls_Click

End Sub

DoCmd.CloseとDoCmd.OpenFormの間に入る必要があることを知っているenougを知っています。Appendクエリの名前は「qry_YOS」です。このコードセグメントに関するガイダンスをいただければ幸いです。

4

1 に答える 1

2

DAO データベースExcuteメソッドを使用して、追加クエリを実行します。.Closeと.OpenForm...の間に発生させたい場合は、

DoCmd.Close ' close what?  If it works, fine.  '
CurrentDb.Execute "qry_YOS", dbFailonerror
stDocName = "Switchboard"
DoCmd.OpenForm stDocName

ところで、常に次Option Explictのようにコード モジュールの宣言に含めます。

Option Compare Database
Option Explicit

VB エディタのメイン メニューから、[ツール] → [オプション] を選択します。次に、[オプション] ダイアログの [エディター] タブで、[変数の宣言が必要] の横にチェック マークを付けます。その設定は、すべての新しいコード モジュールに確実Option Explictに含まれます。まだ持っていない既存のコード モジュールに手動で追加することを強くお勧めします。次に、VB エディタのメイン メニューから [Debug] -> [Compile] を選択し、コンパイラが不平を言うものをすべて修正します。多すぎないことを願っていますが、長期的には良い投資です。

VBA 開発者としての生活は、Option Explicit不必要に複雑です。悲しみを救うために常にそれを使用してください。後で私に感謝することができます。:-)

于 2012-12-18T19:19:22.137 に答える