Variable objet ou variable bloc with non définie
Bonjour,
Je suis sur un projet VB 6 et rencontre un problème que je n'arrive pas depuis à solutionner. Au fait j'ai défini un objet ado sur un formulaire comme suit :
Name : AdoDroitsAcces
Connection string : bd_administration
Recordsource : DroitAcces
Toutes les autres propriètés gardent leur valeur par défaut.
Mais lorsque j'exécute mon projet, il me revoie le message d'erreur suivant :
"Erreur d'exécution '91' : Variable objet ou variable bloc With non définie "
Ce qui est curieux c'est que un autre objet de la même nature marche sur le même formulaire et l'autre non. Quelqu'un a-t-il une solution à ce problème ?
Merci de votre contribution.
Variable objet ou variable bloc With non définie
Bonjour,
Je suis sur un projet VB 6 et rencontre un problème que je n'arrive pas depuis à solutionner. Au fait j'ai le code suivant qui est associé l'évenement click du bouton CmdValider :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private sub CmdValider_Click()
xcode = TxtCode.Text
AdoUtilisateur.Recordset.Find ("Uts_Code='" & xcode & "'")
TxtNom.Text = AdoUtilisateur.Recordset.Fields(1)
If TxtMotPasse.Text = AdoUtilisateur.Recordset.Fields(2) Then
If AdoFormulaire.Recordset.RecordCount > 0 Then
AdoDroitAcces.Recordset.MoveFirst
Do While AdoDroitAcces.Recordset.EOF = False
AdoDroitAcces.Recordset.Find ("Dac_CodUts='" & xcode & "'")
xnum = AdoDroitAcces.Recordset.Fields(1)
If AdoDroitAcces.Recordset.Fields(2).Value = True Then
AdoFormulaire.Recordset.Find ("Frm_Numero='" & xnum & "'")
xform = AdoFormulaire.Recordset.Fields(2)
xform.Enabled = True
End If
Loop
End If
End If
End sub |
L'objet ado a été defini sur un formulaire avec les propriétés suivantes :
Name : AdoDroitsAcces
Connection string : bd_administration
Recordsource : DroitAcces
Toutes les autres propriétés gardent leur valeur par défaut.
Mais lorsque j'exécute mon projet, il me revoie le message d'erreur suivant :
"Erreur d'exécution '91' : Variable objet ou variable bloc With non définie "
Ce qui est curieux c'est que l'objet adoutilisateur n'a aucun problème alors que AdoDroitsAcces produit l'erreur ci-dessus.
Quelqu'un aurait-il une solution à ce problème ?
Merci de votre contribution.