John thomas
Registered User.
- Local time
- Today, 15:24
- Joined
- Sep 4, 2012
- Messages
- 206
When running the following code I get
RunTime Error 2471
The expression you entered as a query or parameter produced this error [phone no 1 ]
All the code works great except the last bit it should put a phone number into the field TelNumber
Private Sub Command60_Click()
DoCmd.OpenForm "InvCusDetailsForm"
DoCmd.GoToRecord , , acNewRec
Forms!InvCusDetailsForm!CusID = Forms!CustomeDetailsOnly!IDCustomer
DoCmd.Close
DoCmd.OpenForm "InvCusDetailsForm"
DoCmd.GoToRecord , , acLast
Forms!InvCusDetailsForm!Title = DLookup("Title", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
Forms!InvCusDetailsForm!surname = DLookup("Surname", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
Forms!InvCusDetailsForm![AddressLineOne] = DLookup("[Address line 1]", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
Forms!InvCusDetailsForm![AddressLineTwo] = DLookup("[Address line 2]", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
Forms!InvCusDetailsForm![Town] = DLookup("[Town]", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
Forms!InvCusDetailsForm![Town] = DLookup("[Town]", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
Forms!InvCusDetailsForm![PostCode] = DLookup("[Post code]", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
Forms!InvCusDetailsForm![TelNumber] = DLookup("[Phone No 1]", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
End Sub
RunTime Error 2471
The expression you entered as a query or parameter produced this error [phone no 1 ]
All the code works great except the last bit it should put a phone number into the field TelNumber
Private Sub Command60_Click()
DoCmd.OpenForm "InvCusDetailsForm"
DoCmd.GoToRecord , , acNewRec
Forms!InvCusDetailsForm!CusID = Forms!CustomeDetailsOnly!IDCustomer
DoCmd.Close
DoCmd.OpenForm "InvCusDetailsForm"
DoCmd.GoToRecord , , acLast
Forms!InvCusDetailsForm!Title = DLookup("Title", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
Forms!InvCusDetailsForm!surname = DLookup("Surname", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
Forms!InvCusDetailsForm![AddressLineOne] = DLookup("[Address line 1]", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
Forms!InvCusDetailsForm![AddressLineTwo] = DLookup("[Address line 2]", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
Forms!InvCusDetailsForm![Town] = DLookup("[Town]", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
Forms!InvCusDetailsForm![Town] = DLookup("[Town]", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
Forms!InvCusDetailsForm![PostCode] = DLookup("[Post code]", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
Forms!InvCusDetailsForm![TelNumber] = DLookup("[Phone No 1]", "[customer Details]", "IDCustomer =" & Forms![InvCusDetailsForm]!CusID)
End Sub