cs_anb
Messages postés24Date d'inscriptionmercredi 18 avril 2007StatutMembreDernière intervention17 mai 2007
-
9 mai 2007 à 23:48
cs_anb
Messages postés24Date d'inscriptionmercredi 18 avril 2007StatutMembreDernière intervention17 mai 2007
-
10 mai 2007 à 01:00
Salut tous
SVP Je travaille avec VB6
j'ai un groupe de text1(index)
Je veux faire un test sur si son contenu est rempli
pour faire un traitement ( car il faut que les champs soient saisies pour que le traitement marche)
j'ai travallé dans l'evenement change
voici les codes que j'ai utilisés MAIS ILS NE SONT PAS S'EXECUTES
Private Sub text1_Change(Index As Integer) If text1(Index).Text = "" Then
Command1.Enabled = True // traitement
End If
End Sub
-----------------------------------------------------------
Private Sub rcdd_Change(Index As Integer)
If IsNull(text1(Index).Text) = "" Then
Command1.Enabled = True
End If
End Sub
---------------------------------------------------------------
Merci pour votre attention
yan35
Messages postés185Date d'inscriptiondimanche 29 juin 2003StatutMembreDernière intervention20 juin 2013 10 mai 2007 à 00:13
Bonjour,
Tu pourrais essayer l'évènement Validate de text1.
Dans ce cas il faut que tes autres controles sur ta feuille aient la propriété CausesValidation à true,excepté les boutons et cases à cocher... regarde un peu dans la doc VB l'évènement validate, il conviendra peut-être mieux que change, mais tout dépend en fait de l'organisation événementielle de ta form.
Autre chose, perso, je préfère tester :
If len(text1(Index).Text) > 0 Then
Command1.Enabled = True ' // traitement
End If
que = "" où il faut aussi tester Null, mais ta syntaxe n'est pas fausse, sauf celle-ci que je ne comprends pas :
Private Sub rcdd_Change(Index As Integer)
If IsNull(text1(Index).Text) = "" Then
Command1.Enabled = True
End If
End Sub
qui s'écrit plutôt :
Private Sub rcdd_Change(Index As Integer)
If IsNull(text1(Index).Text) Then
Command1.Enabled = True
End If
End Sub