Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

variant varijabla i null vrijednost

[es] :: Access :: variant varijabla i null vrijednost

[ Pregleda: 769 | Odgovora: 3 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

dankolal
Karlovac

Član broj: 45804
Poruke: 8
*.cmu.carnet.hr.



Profil

icon variant varijabla i null vrijednost24.01.2005. u 08:29

Pozdrav svima.
U formi koristim tekst za unos imena korisnika i kada stisnem enter kada je textbox prazan zelim da mi izbaci poruku da je potrebno upisati ime. Pokusao sam to napraviti pomocu macroa koji se pokrene pomocu petlje if. Tekst u textboxu sam postavio kao variant i u petlji sam postavio da ako je varijabla jednaka Null onda pokreni macro. Nista se ne dogadja. Ako stavim da je varijabla jednaka nakom imenu i kada upisem to ime pokrene macro. U cemu je problem.
Hvala puna
24.01.2005. u 08:29 

Simke
Marko Simic
Sandfield Associates (Solution Developer)
Novi Zeland

Član broj: 1158
Poruke: 751
*.bitstream.orcon.net.nz.

ICQ: 71578686
Sajt: www.sandfield.co.nz


Profil

icon Re: variant varijabla i null vrijednost24.01.2005. u 08:50
Ako je text box prazan, vrednost nije null, nego prazan string ("").
I gledaj da ne koristis macros ako mozes.
All beer is good. Some beer is better.
24.01.2005. u 08:50 

dankolal
Karlovac

Član broj: 45804
Poruke: 8
*.cmu.carnet.hr.



Profil

icon Re: variant varijabla i null vrijednost24.01.2005. u 10:14
Da li znaci da varijablu koju vezem na textbox trebam postaviti kao string ili variant. Probao sam i jedno i drugo i ne radi. Saljem i kod:

Private Sub tekst_AfterUpdate()

Dim varime As Variant

varime = [Forms]![Form1]![tekst]

If varime = "" Then
DoCmd.RunMacro "Macro1"
Else
DoCmd.OpenQuery "query1"
DoCmd.Close acQuery, "query1", acSaveYes
Me.Refresh
End If

End Sub

Ako upisem bilo sta drugo osim "" radi.

Hvala
24.01.2005. u 10:14 

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 384
217.71.52.*

Sajt: www.icentar.com


Profil

icon Re: variant varijabla i null vrijednost26.01.2005. u 15:12
Private Sub Ime_Exit(Cancel As Integer)
Dim I As String

I = Trim(Format$(Me.Ime))
If I = "" Then
MsgBox "Upisi Ime"
Cancel = 1
End If
End Sub

zxz
26.01.2005. u 15:12 

[es] :: Access :: variant varijabla i null vrijednost

[ Pregleda: 769 | Odgovora: 3 ]

 Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.