Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
03.11.2004. Potreban Web Designer
18.01.2005. pretvorba koda iz C u C++
21.07.2005. Kako napraviti print preview bez koriscenja MFC?
28.12.2005. Za strucnije programere. LZ kompresija binarnog s..
25.11.2006. Firebird vs Oracle
23.11.2006. ASP.NET 2.0 DataSorce control Vs. Pisanje koda u ..
04.10.2010. Potrebna mi pomoc oko perl koda, koji nikako da n..
30.05.2007. processing.org - DALI NEKO ZNA?
29.08.2007. Kako najlakse savladati problematiku pisanja vari..

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Pomoc oko pisanja koda

[es] :: Access :: Pomoc oko pisanja koda

[ Pregleda: 2031 | Odgovora: 7 ] > FB > Twit

Autor

zslavko

Član broj: 48953
Poruke: 86
*.dynamic.isp.telekom.rs.

+1 Profil

Pomoc oko pisanja koda

^{22.11.2010. u 17:55 - pre 163 meseci}

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

Odgovor na temu

smal
Slobodan Maljković
Kragujevac, Srbija

Član broj: 228672
Poruke: 286
*.dynamic.sbb.rs.

+13 Profil

Re: Pomoc oko pisanja koda

^{22.11.2010. u 18:48 - pre 163 meseci}

Me!DatumUplate = ""
...

Odgovor na temu

zslavko

Član broj: 48953
Poruke: 86
*.dynamic.isp.telekom.rs.

+1 Profil

Re: Pomoc oko pisanja koda

^{22.11.2010. u 18:55 - pre 163 meseci}

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.

Odgovor na temu

smal
Slobodan Maljković
Kragujevac, Srbija

Član broj: 228672
Poruke: 286
*.dynamic.sbb.rs.

+13 Profil

Re: Pomoc oko pisanja koda

^{22.11.2010. u 19:09 - pre 163 meseci}

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

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

itd

Odgovor na temu

zslavko

Član broj: 48953
Poruke: 86
*.dynamic.isp.telekom.rs.

+1 Profil

Re: Pomoc oko pisanja koda

^{22.11.2010. u 19:14 - pre 163 meseci}

Opet ne moze.

Odgovor na temu

smal
Slobodan Maljković
Kragujevac, Srbija

Član broj: 228672
Poruke: 286
*.dynamic.sbb.rs.

+13 Profil

Re: Pomoc oko pisanja koda

^{22.11.2010. u 19:22 - pre 163 meseci}

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

Odgovor na temu

zslavko

Član broj: 48953
Poruke: 86
*.dynamic.isp.telekom.rs.

+1 Profil

Re: Pomoc oko pisanja koda

^{22.11.2010. u 19:32 - pre 163 meseci}

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

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.adsl.eunet.rs.

+41 Profil

Re: Pomoc oko pisanja koda

^{22.11.2010. u 20:31 - pre 163 meseci}

Mislim da ti je greška ovde:

Citat:

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