Zašto End - standardno je zatvaranje forme sa Esc ? Mislio sa da aktivira unos u bazu sa tastature ENTER nakon zadnjeg polja i , a sa tasterom TAB se šeta redom po tekstboxovima.
Evo postavio sam primer. Unos može da se obavlja sa tastature:
Tab - sledeće polje
Shif-Tab - prethodno polje
Enter - upis unesenih podataka u bazu i čišćenje forme za novi unos
Esc - izlazak iz forme bez upisa u bazu (može i Alt+F4)
Naravno, ko više voli može i sa mišem.
Ovo se vrlo jednostavno postiže bez mnogo koda nego samo odgovarajućim podešavanjem svojstava (properties)
Za dugme OK stavi se svojstvo Default = True - to obezbeđuje da se ovo dugme aktivira na Enter taster.
Za dugme Cancel stavi se svojstvo Cancel = True - to obezbeđuje da se ovo dugme aktivira na Esc taster
Redosled unosa (gde se prelazi sa Tab) podešavaš svojstvom TabIndex - prvi textbox ima tabindex 0, drugi 1 itd.
Na događaj klik dugmeta OK postavi se kod koji vrši validaciju, upisuje u bazu i čisti polja za sledeći unos
Code:
Private Sub cmdOK_Click()
' Aktivira unos u bazu i čisti polje za novi unos
If Validacija Then
MsgBox "Upis u bazu!" 'Ovde staviti pravi kod
' Priprema za novi unos
Me.txtTest1.Value = ""
Me.txtTest2.Value = ""
Me.txtTest3.Value = ""
Me.txtTest4.Value = ""
Me.txtTest5.Value = ""
Me.txtTest1.SetFocus
Else
MsgBox "Nisu uneseni svi potrebni podaci"
End If
End Sub
[Ovu poruku je menjao Jpeca dana 19.03.2008. u 09:00 GMT+1]
[Ovu poruku je menjao Jpeca dana 19.03.2008. u 09:01 GMT+1]
Nije to loše Rembrante, samo što ne bi dodao još malo boje?