Search results

Try this: Private Sub Command12_Click() On Error GoTo Err_Command12_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = " Frm2 " stLinkCriteria = "[ID]=" & "" & Me![ID] & "" DoCmd.OpenForm stDocName, , , stLinkCriteria, , , Me![ID] DoCmd.Close...