既に開いているフォーム（フォーム1）に対し、フォーム2から値を渡す（住所入力補助フォーム）

【Access】別に開いたモーダルフォームから戻り値を取得する方法

別に開いたモーダルフォームから戻り値を取得したいといったことがよくあるのですが、そのような場合はフォームのプロパティを使うことが出来ます。 例 まず、フォーム1にこのようにテキストボックス（textMessage）と開くボタン（button...

hosopro.blogspot.com

フォーム1＞

‘メンバ変数
Private mRetnValue As String

‘プロパティ
Public Property Let RetnValue(ByVal Value As String)
mRetnValue = Value
End Property

Public Property Get c() As String
RetnValue = mRetnValue
End Property

Private Sub buttonOpen_Click()

mRetnValue = ""

DoCmd.OpenForm "フォーム2", acNormal, , , , acDialog

'フォーム2で選択した値をテキストボックスに表示
Me.textMessage.Value = mRetnValue

End Sub

フォーム2＞

Private Sub buttonOK_Click()

Form_フォーム1.RetnValue = Me.comboFruits.Value

DoCmd.Close acForm, Me.Name

End Sub

おススメのSQL本はこちら