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

   

https://hosopro.blogspot.com/2017/09/access-vba-form-property.html

フォーム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

 - AccessVBA開発

既に開いているフォーム(フォーム1)に対し、フォーム2から値を渡す(住所入力補助フォーム) | ちびrobo

在庫管理•販売管理•経理システム(AccessVBA、ExcelVBA)や簡単なアプリの作成もしています。同じ悩みを持つ方と情報を共有したいと思います。

Copyright© ちびrobo , 2020 All Rights Reserved.

WordPress Theme " Giraffe "