Incompatibilité de type VBA Access
nimitz4145
Messages postés
6
Statut
Membre
-
nimitz4145 Messages postés 6 Statut Membre -
nimitz4145 Messages postés 6 Statut Membre -
Bonjour,
Le code suivant me renvoie l'erreur "Incompatibilité de type" sur la ligne en gars.
Apparemment, il n'aime pas ma déclation de rst à la ligne du dessus.
J'ai besoin de l'info pour l'utiliser comme critère d'extraction de mon SQL
Si quelqu'un a une idée.....
Merci d'avance
Dim mabd As Database
Dim mrs As Recordset
Dim mrsG As Recordset
Set mabd = CurrentDb
'creation du recorset
Dim lib As String
'Dim rst As String
Set mrsG = mabd.OpenRecordset("SELECT * from Codes ")
Do Until mrsG.EOF()
lib = mrsG!Libellé.Value
MsgBox lib
DoCmd.CopyObject , lib, acTable, "source"
Set rst = mabd.OpenRecordset("Select * from Codes where Libellé ='" & lib & "'")
DoCmd.RunSQL ("INSERT INTO lib ( Code DR ),( Client Fregate )SELECT FROM Pot_Oct11 WHERE (((Pot_Oct11.LibA_POTENT1)='" & rst & "')) ;")
mrsG.MoveNext
Loop
'fermeture recorset
mrsG.Close
Le code suivant me renvoie l'erreur "Incompatibilité de type" sur la ligne en gars.
Apparemment, il n'aime pas ma déclation de rst à la ligne du dessus.
J'ai besoin de l'info pour l'utiliser comme critère d'extraction de mon SQL
Si quelqu'un a une idée.....
Merci d'avance
Dim mabd As Database
Dim mrs As Recordset
Dim mrsG As Recordset
Set mabd = CurrentDb
'creation du recorset
Dim lib As String
'Dim rst As String
Set mrsG = mabd.OpenRecordset("SELECT * from Codes ")
Do Until mrsG.EOF()
lib = mrsG!Libellé.Value
MsgBox lib
DoCmd.CopyObject , lib, acTable, "source"
Set rst = mabd.OpenRecordset("Select * from Codes where Libellé ='" & lib & "'")
DoCmd.RunSQL ("INSERT INTO lib ( Code DR ),( Client Fregate )SELECT FROM Pot_Oct11 WHERE (((Pot_Oct11.LibA_POTENT1)='" & rst & "')) ;")
mrsG.MoveNext
Loop
'fermeture recorset
mrsG.Close
2 réponses
-
Je ne suis pas spécialiste de VBA, mais est-ce que cette requête n'est pas bizarre au final ?
"INSERT INTO lib ( Code DR ),( Client Fregate )SELECT FROM Pot_Oct11 WHERE (((Pot_Oct11.LibA_POTENT1)='" & rst & "')) ;
Le SELECT collé dans une INSERT me semble bizarre... Non ? -
A priori c'est le set rst qui déconne car j'ai essayé avec un msgbox rst juste après le set rst mais même là j'ai Incompatibilité...
