Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : 指定なし)
1つのボタンで2つのマクロ実行
投稿日時: 19/05/04 15:06:25
投稿者: hay.hide

アクセスのフォー上にボタンを1つ置いて以下のマクロをまとめて実行したいと考えていますが
上手くいきません。
 
まず、テーブル追加クエリを実行します
そのあと、フォームを新規レコードに移動させます。
 
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q_追加_t", acViewNormal, acEdit
DoCmd.SetWarnings False
 

 
DoCmd.GoToRecord , , acNewRec
 
この2つ並べても「マクロ名」ボックスが開いて動かないのです。
 
ご教授よろしくおねがいします。
 

回答
投稿日時: 19/05/04 18:09:35
投稿者: hatena
投稿者のウェブサイトに移動

AccessではマクロとVBAはまったく別物なのですが、
マクロと言いながら、提示のコードはVBAですね。
  
「マクロ名」ボックスというのも何なのかも分かりません。
  
とりあえず、フォームをデザインビューで開いて、
コマンドボタンを選択して、プロパティのイベントタブの「クリック時」欄は、
どのように設定されてますか。
  
VBAなら、[イベント プロシージャ] と設定されています。
  
マクロなら、[埋め込みマクロ] か マクロ名が設定されています。
  
まずは、それがどうなっているか教えてください。

投稿日時: 19/05/04 18:34:26
投稿者: hay.hide

イベントプロシージャには以下のように記載しております
 
  
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q_追加_t", acViewNormal, acEdit
DoCmd.SetWarnings False
  
DoCmd.GoToRecord , , acNewRec

回答
投稿日時: 19/05/05 08:14:23
投稿者: hatena
投稿者のウェブサイトに移動

Q_追加_t は追加クエリですか。
これをナビゲーションウィンドウから直接開いた場合は正常に動作しますか。

投稿日時: 19/05/05 10:05:49
投稿者: hay.hide

はい。動いてます。
 
フォームを閉じるときに以下のように追加クエリを記述したら
実行されました。
 
目的は達成できたので。
 
ありがとうございました。
 
 
Private Sub Q_追加_t_Click()
DoCmd.Close acForm, Me.Name
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q_追加_t", acViewNormal, acEdit
DoCmd.SetWarnings False