Private Sub Form_Load()<table border=0 cellspacing=0 cellpadding=4 bgcolor=#E0E0E0><tr><td class=code> Remplacer par : <table border=0 cellspacing=0 cellpadding=4 bgcolor=#E0E0E0><tr><td class=code> Private Sub Form_KeyPress(KeyAscii As Integer) ' Ctrl + Q If KeyAscii = 17 Then Call Show_NameForm End Sub Private Sub Form_Load()
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'--Général-- public ActionPress as Boolean '--End Général-- sub form_keypress 'Pression d'une touche me.ActionPress=True end sub
sub Timer1_timer if form.activeform.ActionPress=True then call Form_KeyPress end sub