Microsoft Access 掲示板

Microsoft Access 掲示板

サブフォームで開いたフォーム

2 コメント
views
4 フォロー

おたずねです。
現在サブフォーム「F_サブフォーム」の「btn新規登録」を押すと

Private Sub btn新規登録_Click()
    DoCmd.OpenForm "F_テスト", , , , acFormAdd
End Sub

上記ページが開き、そこで登録したデータを「F_サブフォーム」にも反映したいのですが
(具体的に言うと、プルダウン項目の１つとして追加したい）
すぐに反映しれません。
どうやったらすぐに反映されますか？

どんぐりず
作成: 2021/01/28 (木) 14:54:28
最終更新: 2021/01/28 (木) 14:54:44
通報 ...
1
hatena 2021/01/28 (木) 19:32:25

下記でどうでしょうか。

Private Sub btn新規登録_Click()
    DoCmd.OpenForm "F_テスト", , , , acFormAdd, acDialog
    Me.プルダウン項目.Requery
End Sub

acDialogでダイアログモードで開くと、フォームを閉じるまで、次のコードが実行されないので、
F_テストで入力後、閉じると、プルダウン項目.Requery が実行されます。

2
どんぐりず 2021/01/29 (金) 22:16:27 9099b@e2de4

なるほど！！すごい！うまくいきました。感動です。ありがとうございました。