Incompatibilité de type VBA Access

Question

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

silentData · Answer

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 ?

nimitz4145 · Answer

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

Incompatibilité de type VBA Access

2 réponses

Discussions similaires

Newsletters