Pomoc oko pisanja koda

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

Napravio sam ovaj kod za olaksanje unosa podataka u tabelu preko forme i on odlicno radi.Sada mi treba dopuna, tako kada je UlaID=0001 da ostala polja budu prazna(=Null).

Probao sam smo da ovom kodu dodam,

If Me!UlaID = "0001" Then
Me!DatumUplate = Null
Me![Broj fakture] = Null
Me!JCI = Null
Me!Kontrolnik = Null
Me!Opis = Null
Me!DatumU = Null
Me!SP = Null
End If
ali ne moze.Kako moze?
Unapred hvala

Me!DatumUplate = ""
...

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)

If Me!UlaID = "0001" Then
Me!DatumUplate = "Null"
Me![Broj fakture] = "Null"
Me!JCI = "Null"
Me!Kontrolnik = "Null"
Me!Opis = "Null"
Me!DatumU = "Null"
Me!SP = "Null"
End If


End Sub
Ako mislis ovako, opet ne moze.

Ne mislim tako :)
Mislim - umesto Null upiši "" (znaci navoda, a između ništa:)

Me!DatumUplate = ""
Me![Broj fakture] = ""

itd

Opet ne moze.

Budi malo konkretniji - šta ne može? Jel javlja neku grešku, (na pr. Error 3314 tj. polje ne dozvoljava Null vrednosti), a možda samo nedostaje Form.Refresh, itd

Run-time error 2465:
sl can t find the filed "UlaID" referred to in your expression.