[ zslavko @ 22.11.2010. 17:55 ] @
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
[ smal @ 22.11.2010. 18:48 ] @
Me!DatumUplate = ""
...
[ zslavko @ 22.11.2010. 18:55 ] @

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.
[ smal @ 22.11.2010. 19:09 ] @
Ne mislim tako :)
Mislim - umesto Null upiši "" (znaci navoda, a između ništa:)

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

itd
[ zslavko @ 22.11.2010. 19:14 ] @
Opet ne moze.
[ smal @ 22.11.2010. 19:22 ] @
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
[ zslavko @ 22.11.2010. 19:32 ] @
Run-time error 2465:
sl can t find the filed "UlaID" referred to in your expression.
[ SLOJ.1973 @ 22.11.2010. 20:31 ] @
Mislim da ti je greška ovde:
Citat:
strFilter = "UlaID = '" & Me![Ula ID] & "'"
a dole proveravaš :
Citat:
If Me!UlaID = "0001" Then
Proveri naziv polja.Ili je Me![Ula ID] ili Me!UlaID.