I have a project I'm working on and seem to be stuck. I think I'm close but the pass through is not working.
I'm working with two forms. Sign off "frm_Sign_Off" and 8130 "frm_8130". The 8130 form is opened by clicking a button. The goal is to auto populate two critical values from the Sign Off form to the 8130 form. The two values are Logpg and tail.
I open the 8130 form from the button using the following code.
If I understand it correctly, the "pass" should be the OpenArgus Parameter. What I am not sure of is if I have to code the variables differently or not, or if I'm just making a mistake here.
When the 8130 form opens, I am using the OnLoad event to fire the transfer of the arguments and populate the fields using the following code.
The code, as I understand it, looks right and should work. The form opens but the parameters do not populate. I am looking for any direction here working with this code or if someone can point out what I am doing wrong.
Thanks,
Vince
I'm working with two forms. Sign off "frm_Sign_Off" and 8130 "frm_8130". The 8130 form is opened by clicking a button. The goal is to auto populate two critical values from the Sign Off form to the 8130 form. The two values are Logpg and tail.
I open the 8130 form from the button using the following code.
Code:
Private Sub btn_8130_Click()
Dim lp As String
Dim reg As String
Dim pass As String
lp = Me.Logpg.Value
reg = Me.tail.Value
pass = lp & ";" & reg
DoCmd.OpenForm "frm_8130", acNormal, , , acFormAdd, acWindowNormal, pass
End Sub
If I understand it correctly, the "pass" should be the OpenArgus Parameter. What I am not sure of is if I have to code the variables differently or not, or if I'm just making a mistake here.
When the 8130 form opens, I am using the OnLoad event to fire the transfer of the arguments and populate the fields using the following code.
Code:
Private Sub Form_Load(Canel As Integer)
Dim Args As String
If Not IsNull(Me.OpenArgs) Then
Args = Split(Me.OpenArgs, ";")
Me.Logpg = argstrg(0) 'This should be the log page passed from the sign-off form
Me.reg = argstrg(1) 'This should be the tail number passed from the sign 0ff form
End If
End Sub
The code, as I understand it, looks right and should work. The form opens but the parameters do not populate. I am looking for any direction here working with this code or if someone can point out what I am doing wrong.
Thanks,
Vince