Pomoc oko automatskog popunjavanja polja

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.

strFilter = "UlaID = '" & Me![Ula ID] & "'"

Promenite ovaj red...

Potpis

http://zoraneremija.wix.com/eremijacv