[AC-2007] erreur d’exécution 3167

[rominous41]

bonjour ,
voici le code qui produit mon erreur 3167

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim str As String
        Dim strb As String
        Dim sql As Recordset
        Dim sqlb As Recordset
        str = "select jourPeriode,matriculeSalarie from journee where codeRubrique = 'TYPE_CONTRAT' and valeur = 1"
        Set sql = CurrentDb().OpenRecordset(str)
        Do While Not sql.EOF
            strb = "delete * from journee where jourPeriode = #" & Format(sql!jourPeriode, "MM/dd/yyyy") & "# and matriculeSalarie =" & sql!matriculeSalarie & ""
            DoCmd.RunSQL strb
            sql.MoveNext
        Loop
        sql.Close
        Set sql = Nothing

le debogueur surligne la ligne sql.movenext
je n'arrive pas a trouver le problème

j'ai essayer en ajoutant DoCmd.RunCommand acCmdSaveRecord mais ça ne change rien

[pc75]

Bonjour,

As-tu vérifié que ta requête "select" retourne des enregistrements ?

[rominous41]

oui oui (des milliers même)

[rominous41]

si je tente ma requete avec

Code :

1
2
 
Set sqlb = CurrentDb().OpenRecordset(strb)

a la place de "DoCmd.RunSQL strb"


j'ai l'erreur 3219 Operation non valide

[rominous41]

j'ai contourné le problème mais je voudrais savoir si vous penser que c'est bon ou pas ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim str As String
        Dim strb As String
        Dim sql As Recordset
        Dim sqlb As Recordset
        str = "select jourPeriode,matriculeSalarie from journee where codeRubrique = 'TYPE_CONTRAT' and valeur = 1"
        Set sql = CurrentDb().OpenRecordset(str)
        CurrentDb().Close
        DoCmd.RunCommand acCmdSaveRecord
        Do While Not sql.RecordCount = 0
            strb = "delete * from journee where jourPeriode = #" & Format(sql!jourPeriode, "MM/dd/yyyy") & "# and matriculeSalarie =" & sql!matriculeSalarie & ""
            DoCmd.RunSQL strb
            sql.Close
            Set sql = Nothing
            Set sql = CurrentDb().OpenRecordset(str)
        Loop
        sql.Close
        Set sql = Nothing