Auto populate

[Rabastan]

I am trying to build an Employee Database for my company. I cant figure out whay this is not working. I want to Auto Populate the city and state based on the zip code entered. for txtEmployeeZip I have the following

Private Sub txtEmployeeZip_AfterUpdate()
    txtEmployeeCity = DLookup("[zipCity]", "tblZip", "[zipCode]= '" & Me!txtEmployeeZip & "'")
    txtEmployeeState = DLookup("[zipState]", "tblZip", "[zipCode]= '" & Me!txtEmployeeZip & "'")
End Sub

It however does NOTHING. I have double checked 10 times and all my field names are correct.


Thanks, Rab

[Missinglinq]

Given that you've double-checked all names, two things come to mind:

Does any code execute when the Form is opened by simply clicking on it, in the Nav Pane? In version 2007 and later, when no VBA code executes, the problem is usually that the folder holding the database hasn’t been designated as a "Trusted" location.

To "Trust" your folder, click:

• Office Button (top left)
• Access Options (bottom of dialog)
• Trust Center (left)
• Trust Center Settings (button)
• Trusted Locations (left)
• Add new location (button)

Also, your syntax is only correct if the zipCode Field is defined as a Text Datatype. Is it? If it's defined as a Number, the syntax would be

Private Sub txtEmployeeZip_AfterUpdate()
    txtEmployeeCity = DLookup("[zipCity]", "tblZip", "[zipCode]= " & Me.txtEmployeeZip)
    txtEmployeeState = DLookup("[zipState]", "tblZip", "[zipCode]= " & Me.txtEmployeeZip)
End Sub

Linq ;0)>

[Rabastan]

Thanx for your reply, i added the folder into the trusted list, datatype is "short text" I dont know how to check if its executing code though.

[orange]

Do debug.Prints right before and right after the line with a DLookup

or use breakpoint and check the value as you step though the code

You say you are building an Employee database, can you show us your relationships window as a jpg.
I'm asking this since you have 2 posts and are dealing with an afterUpdate event on a Form.
Good luck.

[Rabastan]

Figured out my problem, My zip code table wasn't complete. and just by happenstance the ones I was trying were the ones that were missing.

[Missinglinq]

Glad you got it figured out!

Linq ;0)>