Discussion :

[js8bleu]

Bonjour,

j'ai deux textbox(textbox1 et textbox2) et je souhaiterai éviter que l'on puisse saisir dans textbox2 avant d'avoir renseigné textbox1. J'ai mis le code suivant dans le keypress de textbox2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
If textbox1.Text = "" Then
 
    textbox2.Text = ""
    MsgBox "Veuillez d'abord renseigner textbox1 svp!"
    textbox1.SetFocus
 
End If

mais il m'affiche ce que j'ai saisi dans textbox2 (la 1ère lettre) d'abord avant de le supprimer alors je souhaiterai que même ce qui a été saisi dans textbox2 ne s'affiche pas.

Merci d'avance.

Cordialement.

[js8bleu]

Voici la résolution à mon problème pour ceux que cela pourrait aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
If Textbox1.Text = "" Then
 
   KeyAscii = 0
   Textbox2.Text = ""
   MsgBox "Veuillez d'abord renseigner textbox1 svp!"
   Textbox1.SetFocus
 
End

If

[OhMonBato]

Tu peux aussi mettre la propriété Enable de ton deuxième textbox à False tant que le premier est vide.

[Montor]

Si tu as plusieurs textbox sur la fiche tu peux utiliser le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function AssertEditValue(Edit As TextBox, _
              ByVal vMin As Long, ByVal vMax As Long) As Boolean
Dim V As Long
With Edit
     On Error GoTo ErrConv
     V = CLng(Edit.Value)
     If (V >= vMin) And (V <= vMax) Then
          AssertEditValue = True
          Exit Function
     End If
ErrConv:
        MsgBox """" & Edit.Value & """  N'est pas une valeur correcte", _
           vbExclamation
        .SelStart = 0
        .SelLength = .TextLength
        .SetFocus
   End With
End Function

Et pour le bouton de validation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub BOK_Click()
    If Not AssertEditValue(TextBox1, 0, 1000) Then Exit Sub
    If Not AssertEditValue(TextBox2, 0, 1000) Then Exit Sub
    If Not AssertEditValue(TextBox3, 10, 2000) Then Exit Sub
    If Not AssertEditValue(TextBox4, 10, 2000) Then Exit Sub
end sub