Paul,
Yes, I have done it in most of my forms.
How it works is, you need to have a index field value to
reference the second form record to open.
Code example:
Private Sub Open_Form_Name_Click()
On Error GoTo Err_Open_Form_Name_Click
Dim strfrm As String
Dim strWhere As String
strfrm = "Form - " & [Form_Name]
strWhere = "ID = " & Me!ID
DoCmd.OpenForm FormName:=strfrm, WhereCondition:=strWhere
Exit_Open_Form_Name_Click:
Exit Sub
Err_Open_Form_Name_Click:
Resume Exit_Open_Form_Name_Click
End Sub
Hope this helps.
John
|