Open a form passing a value

[ddtpmyra]

I have two forms.
1st form has worksheet grid list menu

what I wanted to do is whenever my user click the record number from the worksheet grid list (1st form) it will open my detail form with equivalent record number that was selected on the first form.

how to do that?

[NeoPa]

Use the OpenArgs parameter of the call to DoCmd.OpenForm().

[ddtpmyra]

Here what I do...

Form A Code (event: double click)

DoCmd.OpenForm "frm_B", acNormal, , , , , Me.MR

Form B Code (event: on open)

Private Sub Form_Open(Cancel As Integer)
Dim ID_Arg As Long
 
' load the openarg into the local variable id_arg
 
ID_Arg = Nz(Form_frm_B.OpenArgs, 0)
 
' check to see if the id_arg is not zero.  
 
If ID_Arg <> 0 Then
 
    Me.Filter = "MR=" & ID_Arg
    Me.FilterOn = True
 
End If
End Sub
 

Run-time error: 2001
You cancelled the previous operation

Need help to debug.

[NeoPa]

I think we can probably help there. First see Debugging in VBA.

Now, you may want to start by changing the .OpenArgs object reference in line #6 to :

ID_Arg = Nz(Me.OpenArgs, 0)

Lastly, to allow anyone to help, you need to describe what happens and where the code is highlighted when you click the debug option. We need to know which line the problem occurred on.

[ddtpmyra]

Can I have more than one OpenArg? Below is my current code during the event on double click.

DoCmd.OpenForm "frm_MRHolder", OpenArgs:=Me.MR
 

I wanted to have MR and Date

[NeoPa]

There's only one argument, but it can be a string with various values embedded within it. Assuming MR is a numeric you could use :

Call DoCmd.OpenForm(FormName:="frm_MRHolder", _
                    OpenArgs:=Me.MR & "," & Format(Me.Date, "Short Date"))

In the code to handle receiving the data you would want something like :

Private Sub Form_Open(Cancel As Integer)
    Dim ID_Arg As Long
    Dim Date_Arg As Date
    Dim strArgs As String
 
    ' load the openarg into the local variable id_arg
 
    strArgs = Nz(Me.OpenArgs, "")
    ID_Arg = Val(Split(strArgs, ",")(0))
    Date_Arg = CDate(Split(strArgs, ",")(1))
 
    ' check to see if the id_arg is not zero.  
 
    If ID_Arg <> 0 Then
        Me.Filter = "([MR]=" & ID_Arg & ") AND " & _
                    "([Date]=#" & Format(Date_Arg, 'm/d/yyyy') & "#)"
        Me.FilterOn = True
    End If
End Sub

Remember though, you can easily apply a filter from the calling code anyway. Another parameter is called WhereCondition.