[ anakin14 @ 20.10.2010. 04:33 ] @
da li je moguce postaviti isti kod na keydown event na sve kontrole u jednoj formi?

npr - da na pritisnut taster esc izlazi iz forme ali da se ne pise posebno na keydown event svake kontrole nego da se odjednom dodeli svim kontrolama...

nesto na primer

for each control in userform2
on keydown...
if keycode =vbkeyescape then...

hvala puno
[ neptuncokg @ 20.10.2010. 10:43 ] @
Pogledaj resenje koje je JPeca svojevremeno postavio na tu temu.
http://www.elitesecurity.org/t394565-0#2549782
[ anakin14 @ 20.10.2010. 15:50 ] @
nazalost to nije resenje.
http://www.ozgrid.com/VBA/validate-numbers.htm

Code:

Private Sub TextBox1_Change() 

    OnlyNumbers 

End Sub 

 

Private Sub TextBox2_Change() 

    OnlyNumbers 

End Sub 

 

Private Sub TextBox3_Change() 

    OnlyNumbers 

End Sub 


kao sto vidite opet mora u svakom textboxu da se kuca kod.
ja trazim nesto ovako:

for each textbox in userform
OnlyNumbers

da li je ovo moguce?

[ neptuncokg @ 20.10.2010. 20:59 ] @
Je si li stavio na pocetku procedure u "General" UserForm (kao sto je u primeru)

Private Sub SamoBroj() ' SAMO BROJ

If TypeName(Me.ActiveControl) = "TextBox" Then
With Me.ActiveControl
If Not IsNumeric(.Value) And .Value <> vbNullString Then
MsgBox "Dozvoljen je samo numericki unos !", vbOKOnly, "Greska"
.Value = vbNullString
End If

End With
End If

End Sub
[ anakin14 @ 20.10.2010. 22:24 ] @
ne razumes, jesam stavio i ovo pomaze samo da umesto u svaki textbox pises kod ti pozoves ovaj makro. Meni ne treba to, jer ja i dalje moram na textboxove u keycode event recimo da posebno zovem makro. Ja hocu da odjednom na 50 textboxova postavim iste evente na keydown, keyup i keypress.
[ neptuncokg @ 21.10.2010. 01:10 ] @
E, pa sad razumem. Ti imas isti problem kao i ja, kad sam postavio temu "Zajednicka naredba za vise txt" (link iz mog prvog odgovora). Resenje koje je postavlo JPeca je i mene samo delimicno zadovoljilo, ali sam shvatio da je to maksimum. Posle toga sam jos malo tragao, ali u VBA - nema resenja. Zaista je naporno u 50-ak kontrola zadati isti kod (npr. "samo broj"). Sta je tu je. A bilo bi lepo to - "For each..." Pa sve u jedan kod... Pozdrav.