In my post #2, my last line was to use the combo box to get the data.
In post #3, Linq also suggested the combo box route and provided some examples
June7 also says the combo box method.
I'm just saying...
But I am curious as to why the DLookup is not changing the data.
Change your after update code temporally to
Code:
Private Sub CustomerAccountNumber_AfterUpdate()
' ----------------temp lines---- delete later
Dim strString As String
strString = "Combobox Cust Number = " & Me.CustomerAccountNumber & vbNewLine
strString = strString & "First_Name = " & DLookup("[First_Name]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
strString = strString & "Surname = " & DLookup("[Surname]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
MsgBox strString
Exit Sub
' ----------------temp lines---- delete later
Me.Title = DLookup("[Title]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
Me.First_Name = DLookup("[First_Name]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
Me.Surname = DLookup("[Surname]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
Me.Email_Address = DLookup("[Email_Address]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
Me.Telephone = DLookup("[Telephone]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
Me.Mobile = DLookup("[Mobile]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
Me.Address_Line_1 = DLookup("[Address_Line_1]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
Me.Address_Line_2 = DLookup("[Address_Line_2]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
Me.Address_Line_3 = DLookup("[Address_Line_3]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
Me.Town = DLookup("[Town]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
Me.County = DLookup("[County]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
Me.Postcode = DLookup("[Postcode]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
Me.Country = DLookup("[Country]", "Customers", "[CustomerAccountNumber] = " & Me.CustomerAccountNumber)
End Sub
Select a customer... remember the message box. Then select a different customer.
What were the customer numbers?
Did the names change?