[ mcdoc @ 18.03.2007. 10:05 ] @
Kako doskociti nasem mentalitetu da namerno ne gresi?
Na to pitanje ne ocekujem da neko zna odgovor, ali na drugo mi mozete pomci.
Naime, imam text box u bazi za unosenje prezimena i imena, sa proveravanjem da li vec postoji isto itd. itd.
Iako postoji jasno uputsvo, korisnici, ako se javi isto ime i prezime lupe space taster izmedju imena i prezimena i to baza tretira kao novu osobu.

Pitanje je kako da napravim masku koja ce dozvoliti da moze da se unese samo jedno prazno polje,
a levo i desno od njega da unos bude proizvolje duzine?
[ tasman_76_82 @ 18.03.2007. 16:13 ] @
Pa stavi takozvanu masku za to polje, gde ces definisati kako da ti izgleda unos za njega...
[ izonic @ 18.03.2007. 21:45 ] @
Function Provjera(Str As String) As Boolean
'-------------------------------------------------
'Ova funkcija provjerava prazna mjesta u stringu
'Autor funkcije ZXZ
'datum 03.04.2001
'-------------------------------------------------
Dim Prazni As Integer
Dim Znak As String * 1
Dim I As Integer

For I = 1 To Len(Str)
Znak = Mid(Str, I, 1)
If Znak = " " Then
Prazni = Prazni + 1
End If
Next

If Prazni = 1 Then
Provjera = True
Else
Provjera = False
End If

End Function
[ Pike79 @ 18.03.2007. 22:56 ] @
Pogledao sam ovu temu, ali mi nije bas jasno gde sve ova funkcija ima primenu, u kojim slucajevima?
Pozdrav!
[ izonic @ 19.03.2007. 00:43 ] @
Funkciju mozes pozvati napr. na on exit polja.
A posto kazes da vrsis provjeru u bazi dali ima takav unos onda najbolje na pocetku te tvoje funkcije ili procedure.
Pozivas je ovako:
dim a as Boolean

a=Provjera(me.imepoljaUpisa)
if a= false then
MsgBox "Neispravan Unos"
Goto Kraj
endif

a Na kraju tvoje procedure napisi a ispred end functio ili end sub:
Kraj: