Bonjour,
j'ai bien défini les variables à l'extérieur de mon userForm en variable Global :
Global conn As Object
Global enreg As Object
et la variable de connexion dans mon userForm initial
Private Sub UserForm_Initialize()
Dim connexion As String
Set conn = CreateObject("ADODB.Connection")
Set rec = CreateObject("ADODB.Recordset")
connexion = "DRIVER={MySQL ODBC 5.2 ANSI Driver};DATABASE=comptabilite;SERVER=localhost;UID=root; PWD= ; OPTION=16386"
' on ouvre la connexion
conn.Open connexion
Dim tableau() As String
FM_ChoixCompte.Show
Me.compteTraite = Sheets("ParmTrt").Range("B2").Value
End Sub
lorsque je fais appel à mon second userForm
Private Sub UserForm_Initialize()
Dim req As String
req = "SELECT ID_Param, Parm_Designation FROM parametrage WHERE Parm_Identifiant = 'Compte'"
' envoi du SQL vers la connexion
rec.Open req, conn
Set f = r.Fields
ncol = f.Count - 1 ' nombre de champs de la réponse
i = 0
Do Until r.EOF = True ' tant qu'il y a des lignes dans la réponse
compte.AddItem
cel = "A" + CStr(i + 2)
compte.List(i, 0) = CStr(Range(cel).Value)
compte.List(i, 0) = f.Item(0).Value
cel = "B" + CStr(i + 2)
compte.List(i, 1) = f.Item(1).Value
i = i + 1
r.Movenext
Loop
r.Close
Set r = Nothing
Me.compte.Text = ""
End Sub
j'affiche une erreur :
Erreur d'exécution : 424
Objet requis
et là ..............................................................................