This is really strange to me.
The code I am using is as follows:
Code:
Private Sub Form_Load()
Dim strZip As String
Dim strShipCost As String
Me.ZipLookup = Left(Me.CustZipShip, 3)
Me.Weight = DLookup("Weight", "tblEstimates", Me.[Branson Model Number])
strZip = "Zip = '" & Me.ZipLookup & "'"
strShipCost = "Weight = '" & Me!Weight & "' And Zone = '" & Me![Ship Zone] & "'"
Me.Ship_Zone = DLookup("Zone", "tblGroundZones", strZip)
Me.Ship_Cost = DLookup("Cost", "tblGroundShipRates", strShipCost)
DoCmd.RefreshRecord
End Sub
When I open the form, [Ship_Cost] is blank.
If I back out of the form, or go into design view, then go back to the form(view), [Ship_Cost] is then filled in correctly.
Why isn't this working on the initial load of the form?
Thanks!