DLookup henter ikke værdier, men giver heller ikke fejlkode.
Nedennævnte kode henter ikke værdier, men giver heller ingen fejlkode, intet sker når den køres.Private Sub AInspCode_BeforeUpdate(Cancel As Integer)
Dim Stringsearch As String
Stringsearch = Me.AInspCode
Me.AMTSNumber001 = DLookup("[AMTSNumber]", "QryMP1111KA1ACheck", "[AInspection]='" & Stringsearch & "[InspItemNumber]" = "15")
End Sub
Jeg har en mistanke på den sidste del af koden - "[InspItemNumber]" = "15"
som er et nummerisk felt i forespørgslen QryMP1111KA1ACheck
gode råd udbedes.