fartman2001
Messages postés22Date d'inscriptionsamedi 15 novembre 2003StatutMembreDernière intervention24 février 2006
-
13 févr. 2006 à 09:35
cs_Willi
Messages postés2375Date d'inscriptionjeudi 12 juillet 2001StatutModérateurDernière intervention15 décembre 2018
-
13 févr. 2006 à 10:38
la premiere fois qui rentre dans le texbox et que le user se trompe, le code suivante fonctionne il passe au second met la valeur correcte puis retourne au precedent et là le user se trompe mais le code ne fonctionne plus. Comment faire pour que ce textbox reste bloquer tant que ce n'est pas bon qu'importe le nombre de fois.
Private Sub TextBox4_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.LostFocus
Dim dbCommand As DbCommand = myDatabase.GetStoredProcCommand("paystest")
myDatabase.AddInParameter(dbCommand, "ISO_1", DbType.String, TextBox4.Text)
myDatabase.LoadDataSet(dbCommand, mydata, "pays2")
If mydata.Tables("pays2").Rows.Count = 0 Then
Label4.BackColor = Color.Red
Label5().BackColor = Color.Transparent
TextBox4.Select()
Else
Label4.BackColor = Color.Transparent
End If
End Sub
--------------------------------------------------------------------------
Private Sub TextBox5_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox5.LostFocus
Dim dbCommand As DbCommand = myDatabase.GetStoredProcCommand("copostest")
myDatabase.AddInParameter(dbCommand, "copos_1", DbType.String, TextBox5.Text)
myDatabase.AddInParameter(dbCommand, "cpays_2", DbType.String, TextBox4.Text)
myDatabase.LoadDataSet(dbCommand, mydata, "copos1")
If mydata.Tables("copos1").Rows.Count = 0 Then
Label5().BackColor = Color.Red
Label10.BackColor = Color.Transparent
TextBox5.Select()
Else
Label5().BackColor = Color.Transparent
End If
End Sub
End Class
--------------------------------------------------------------------------------------
cs_Willi
Messages postés2375Date d'inscriptionjeudi 12 juillet 2001StatutModérateurDernière intervention15 décembre 201822 13 févr. 2006 à 10:38
Pourquoi ne pas faire ces tests dans un bouton qui valide l'authentification ?
Private Sub ButtonValide_Click(......)
'Si user se trompe tu passes les textebox qui sont en erreurs en rouge
'Sinon les remettres en transparent (si une erreur c'est déjà produite) et continuer