Discussion :

[tarbala]

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.

[tarbala]

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 :

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
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.

[SfJ5Rpw8]

....
Ce qui est curieux c'est que l'objet adoutilisateur n'a aucun problème alors que AdoDroitsAcces produit l'erreur ci-dessus.
...

il est défini où ton objet. ..?

c'est Droit ou DroitS


rajoute en haut de ton code la ligne :

Code :

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

1
2
 
option explicit

cela te permettra de mieux détecter des erreurs de frappe sur les noms de variables