vba - How to create multiple SUB by using for loop? -



vba - How to create multiple SUB by using for loop? -

everyone. created form contain textbox.i created event(selected multiple textbox , set on key event).but now,i have problem. want events same function(judge keyup value.if it's not in range, bounce msgbox)

sub call_msgbox(column) dim b integer b = cint(column.text) if b > 500 msgbox "higer 500" elseif b < 330 , b > 100 msgbox "lower 330" end if end sub private sub a1_z1_keyup(keycode integer, shift integer) if keycode > 95 , keycode < 106 call_msgbox a1_z1 elseif keycode > 47 , keycode < 58 call_msgbox a1_z1 end if end sub private sub a1_z2_keyup(keycode integer, shift integer) if keycode > 95 , keycode < 106 call_msgbox a1_z2 elseif keycode > 47 , keycode < 58 call_msgbox a1_z2 end if end sub private sub a1_z3_keyup(keycode integer, shift integer) if keycode > 95 , keycode < 106 call_msgbox a1_z3 elseif keycode > 47 , keycode < 58 call_msgbox a1_z3 end if end sub

and on.... it's much. don't want re-create , paste. there suggestions? http://i.stack.imgur.com/jixkc.png

vba ms-access textbox access-vba

Comments

Popular posts from this blog

c - Compilation of a code: unkown type name string -

java - Bypassing "final local variable defined in an enclosing type" -

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) -