pass message to another form

[Song Su]

How to pass fromMSG to txtMSG of frmConfirm? Below is my code:

Private Sub cmdDayOneWinter_Click()
Dim fromMSG As String
fromMSG = "Add Winter to Day One" 'The msg I want to pass to control of
frmConfirm

DoCmd.OpenForm "frmConfirm", , , , , acDialog

If Forms.frmConfirm.intAnswer = 1 Then
DoCmd.OpenQuery "qryAddDayOneWinter", acNormal, acEdit
End If

End Sub

 

[Jeff L]

Why don't you do this in the form you are opening, like in the On Open
Event?

 

[fredg]

How to pass fromMSG to txtMSG of frmConfirm? Below is my code:

Private Sub cmdDayOneWinter_Click()
Dim fromMSG As String
fromMSG = "Add Winter to Day One" 'The msg I want to pass to control of
frmConfirm

DoCmd.OpenForm "frmConfirm", , , , , acDialog

If Forms.frmConfirm.intAnswer = 1 Then
DoCmd.OpenQuery "qryAddDayOneWinter", acNormal, acEdit
End If

End Sub

Use the OpenForm method's OpenArgs argument:

Dim fromMSG As String
fromMSG = "Add Winter to Day One" '
DoCmd.OpenForm "frmConfirm", , , , , acDialog, fromMsg

Then code the frmConfirm Load event:

If Not IsNull(Me.OpenArgs) Then
[txtMessage] = Me.OpenArgs
End If

 

[Song Su]

Hi, Fred:

I use your code and got error message saying expression not found and it
pointed to:
[txtMessage] = Me.OpenArgs

what did I do wrong?

- Song

How to pass fromMSG to txtMSG of frmConfirm? Below is my code:

Private Sub cmdDayOneWinter_Click()
Dim fromMSG As String
fromMSG = "Add Winter to Day One" 'The msg I want to pass to control
of
frmConfirm

DoCmd.OpenForm "frmConfirm", , , , , acDialog

If Forms.frmConfirm.intAnswer = 1 Then
DoCmd.OpenQuery "qryAddDayOneWinter", acNormal, acEdit
End If

End Sub

Use the OpenForm method's OpenArgs argument:

Dim fromMSG As String
fromMSG = "Add Winter to Day One" '
DoCmd.OpenForm "frmConfirm", , , , , acDialog, fromMsg

Then code the frmConfirm Load event:

If Not IsNull(Me.OpenArgs) Then
[txtMessage] = Me.OpenArgs
End If

 

[fredg]

Hi, Fred:

I use your code and got error message saying expression not found and it
pointed to:
[txtMessage] = Me.OpenArgs

what did I do wrong?

- Song

How to pass fromMSG to txtMSG of frmConfirm? Below is my code:

Private Sub cmdDayOneWinter_Click()
Dim fromMSG As String
fromMSG = "Add Winter to Day One" 'The msg I want to pass to control
of
frmConfirm

DoCmd.OpenForm "frmConfirm", , , , , acDialog

If Forms.frmConfirm.intAnswer = 1 Then
DoCmd.OpenQuery "qryAddDayOneWinter", acNormal, acEdit
End If

End Sub

Use the OpenForm method's OpenArgs argument:

Dim fromMSG As String
fromMSG = "Add Winter to Day One" '
DoCmd.OpenForm "frmConfirm", , , , , acDialog, fromMsg

Then code the frmConfirm Load event:

If Not IsNull(Me.OpenArgs) Then
[txtMessage] = Me.OpenArgs
End If

You did use the frmConfirm Load event for that code, I hope.
Do you have an unbound control named [txtMessage] on the form?

Let's make a test run.

Change the code I gave you to:

Private Sub cmdDayOneWinter_Click()
Dim fromMSG As String
fromMSG = "Add Winter to Day One" '
MsgBox "fromMsg = " & frmMsg
DoCmd.OpenForm "frmConfirm", , , , , acDialog, fromMsg
End if


Code the frmConfirm Load event:
Private Sub Form_Load()
MsgBox "OpenArgs = " & Me.OpenArgs
If Not IsNull(Me.OpenArgs) Then
[txtMessage] = Me.OpenArgs
End If
MsgBox "txtMessage = " & [txtMessage]
End Sub

The above assumes you have an unbound control on "frmConfirm" named
"txtMessage".

You should get one message stating "fromMesg = Add Winter to Day One"
One message stating "OpenArgs = Add Winter to Day One"
One message stating "txtMessage = Add Winter to Day One"

If any of those messages are blank post back.