Microsoft Access 掲示板

Microsoft Access 掲示板

ダイアログのフォームにあるテキストボックスに値を格納したい / 1

25 コメント
views
4 フォロー
1
hatena 2023/06/15 (木) 22:39:43

acDialog(ダイアログモード)にすると、そのフォームを閉じるか非表示になるまで、次の行のコードは実行されません。
つまり、次の行の
Forms![F_依頼入力]![txt_依頼ID].Value = Me.fld_依頼ID.Value
が実行されるときには、[F_依頼入力]は既に閉じているので、「見つかりません。」というエラーになります。

対処法としてはいろいろありますが、OpenArgs引数で値を渡して、フォームの開くときイベントで代入する方法ですね。

Private Sub fld_依頼ID_DblClick(Cancel As Integer)
   DoCmd.OpenForm "F_依頼入力", , , , , acDialog, Me.fld_依頼ID.Value`
End Sub

F_依頼入力 の開くときイベント

Private Sub Form_Open(Cancel As Integer)
    Me.[txt_依頼ID].Value = OpenArgs
End Sub
通報 ...
  • 2
    wazawaza 2023/06/15 (木) 23:34:36 >> 1

    hatenaさん、ありがとうございます！
    ご提案頂いたコードを入力しましたが、
    ダブルクリックしたIDは代入されませんでした。