[ dankolal @ 24.01.2005. 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
[ Simke @ 24.01.2005. 08:50 ] @
Ako je text box prazan, vrednost nije null, nego prazan string ("").
I gledaj da ne koristis macros ako mozes.
[ dankolal @ 24.01.2005. 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
[ izonic @ 26.01.2005. 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