L
LJG
Hi Guys, any idea why this is not working, and giving me the error?
contactID is a number field
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmAdditional_Contacts"
stLinkCriteria = "[contactID]=" & Me![contactID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms!frmMainMenu.frmCustomers_edit!contactID = contactID 'value
Many thanks
Les
contactID is a number field
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmAdditional_Contacts"
stLinkCriteria = "[contactID]=" & Me![contactID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms!frmMainMenu.frmCustomers_edit!contactID = contactID 'value
Many thanks
Les