Private Sub Ula_ID_AfterUpdate()
Dim strFilter As String
strFilter = "UlaID = " & Me![Ula ID]
Me!DatumUplate = DLookup("DateU", "zUlazi", strFilter)
Me![Broj fakture] = DLookup("[Broj fakture]", "zUlazi", strFilter)
Me!JCI = DLookup("JCI", "zUlazi", strFilter)
Me!Kontrolnik = DLookup("Kontrolnik", "zUlazi", strFilter)
End Sub
Ovaj kod je funkcionisao dok je UlaID bio Autonumber, posle sam ga pretvorio u Text polje I sada mi izbacuje grešku sledeću:
Run-time error 3464:
Data type mismatch in criteria expression.
UlaID mi broji ulazne fakture.
Šta mi je greška.