Probleme de requete accessRésolu

Question

bonjour,
Je ne comprends pas ce qui se passe!!
En effet lorsque j ai un enregistrement dans ma base je tombe sur l erreur 80040e07 Erreur Automation

voici mon code; si qq un pouvait trouver mon probleme ca me sauverai mon apres midi

merci d avance

    Dim cnCon As ADODB.Connection
    Dim nb As Integer
    
    Dim max_id As Variant
    Dim sChaine As String
    Dim rs As ADODB.Recordset
    Dim rs2 As ADODB.Recordset
    Dim sRequete As String
    Dim sRequete2 As String
    Dim found As Boolean
    
    
     sChaine = MyBasePath
        Set cnCon = New ADODB.Connection
   
        'recherche du nombre de lignes dans le fichier excel
      Worksheets("Feuil1").Activate
      Sheets("Feuil1").Range("A5").Select
      Selection.End(xlDown).Select
      nb = ActiveCell.Row - 4        
        
        'boucle de parcours du fichier
      For i = 1 To nb
        
        found = False
        cnCon.Open sChaine
         sRequete2 = "SELECT * FROM  Corporate_infos where Corporate_infos.ID='" + Sheets("Feuil1").Range("A4").Offset(i, 0).Value + "' and Corporate_infos.Name = '" + Sheets("Feuil1").Range("F4").Offset(i, 0).Value + "'"
        'instancier le recorset
        Set rs2 = New ADODB.Recordset
        'ex&#233;cution de la requete
        rs2.Open sRequete2, cnCon, adOpenDynamic, adLockOptimistic
    
        If rs2.EOF = False Then
            rs2.movefirst
            max_id = rs2("id_base")
            rs2.Close
            Set rs2 = Nothing
            cnCon.Close
            
            
            sRequete = "SELECT * FROM Equity where id_base='" & max_id & "'"
            'instancier le recorset
            Set rs = New ADODB.Recordset
            'ex&#233;cution de la requete
             cnCon.Open sChaine
            rs.Open sRequete, cnCon, adOpenDynamic, adLockOptimistic

et la c est l erreur!!!!!

Merci d avance

chrisccc · Accepted Answer

j ai trouve la reponse !!! merci

id_base=" & max_id & ""

Probleme de requete access

1 réponse

Discussions similaires