Discussion :

[acpsc]

Bonjour c'est encore moi.

Le code ci-dessous fonctionne trés bien, mais j'ai besoin de changer un critère et la ça plante

En gras la partie que j'ai rajouté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub GenereCommandeTempo()
    Dim strSQL As String
    Dim strSQL2 As String
    Dim Rst As DAO.Recordset
    Dim Rst2 As DAO.Recordset

    strSQL = "SELECT BonsDeCommandeTempo.[IDBonCommande],DétailBonDeCommandeTempo.[IDDetailCommande] " & _
    "FROM BonsDeCommandeTempo LEFT JOIN DétailBonDeCommandeTempo " & _
    "ON BonsDeCommandeTempo.[IDFour] = DétailBonDeCommandeTempo.[IDFour] " & _
    "And BonsDeCommandeTempo.[DteLivraison] = DétailBonDeCommandeTempo.[DteLivraison]" & _
    "And BonsDeCommandeTempo.[IDGroupProd] = DétailBonDeCommandeTempo.[IDGroupProd]"    
    Set Rst = CurrentDb.OpenRecordset(strSQL)
    
    Do While Not Rst.EOF
        strSQL2 = "SELECT DétailBonDeCommandeTempo.[IDDetailCommande],DétailBonDeCommandeTempo.[IDBonCommande] " & _
        "FROM  DétailBonDeCommandeTempo WHERE DétailBonDeCommandeTempo.[IDDetailCommande]=" & Rst("IDDetailCommande")       

        Set Rst2 = CurrentDb.OpenRecordset(strSQL2)
        Rst2.Edit
        Rst2("IDBonCommande") = Rst("IDBonCommande")
        Rst2.Update
        Rst2.Close
        Set Rst2 = Nothing
        Rst.MoveNext
    Loop
        Rst.Close
        Set Rst = Nothing
    DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE BonsDeCommande SET BonsDeCommande.[Statut] = ""En attente""" & _
        "WHERE BonsDeCommande.[Statut] = ""Commandé"";"
    DoCmd.SetWarnings True
End Sub

J'aimerai comprendre pourquoi ça bug pour avoir rajouté une ligne

Merci pour votre soutien

[zoom61]

Salut,

Il te manque un espace à la fin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"And BonsDeCommandeTempo.[DteLivraison] = DétailBonDeCommandeTempo.[DteLivraison] " & _

@+.

[acpsc]

Désolé de ne pas avoir eu de réponse, mais j'ai fini par trouver mon erreur.

Pour info a qui cela peut intéresser, j'ai par erreur modifié le nom d'un champ
ce qui me provoquait le message

[acpsc]

Merci Zoom 61 je n'avais vu votre réponse mais cela fonctionne maintenant.