Discussion :

[CmzxNene]

Bonjour,

Je cherche à modifier un champ dans mon code une fois le PDF créé

Mon champ est 'FLAG' qui est par défaut à 0 (False)
Mon but est de remplacer la valeur par -1 (True) une fois la facture PDF créée

Mon code

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
 
' Ouvrir la table qui contient les données
    Set rst = CurrentDb.OpenRecordset("SELECT DISTINCT FOURNISSEUR, CARTOUCHE, MAIL, Avoir, FLAG FROM [T_Import PUB]", dbOpenSnapshot)
 
 
    'Génération des visuels
    GenZIPImportPUB
 
    ' Parcourir toute la liste
    While Not rst.EOF
    AvoirPUB = rst.Fields("Avoir")
    FLAGnon = rst.Fields("FLAG")
 
        If FLAGnon = 0 Then
 
            If AvoirPUB = 0 Then
 
            ' Construction du fichier FACTURE à un emplacement précis
            strFichierPDF = repertoiregroupmail & "Facture(s) " & rst("CARTOUCHE") & " " & rst("FOURNISSEUR") & " " & Format(Date, "dd.mm.yyyy") & ".pdf"
 
            ' Construire le filtre
            strFiltre = "[FOURNISSEUR] = """ & rst("FOURNISSEUR") & """" & "And [Avoir] = 0"
 
            ' Imprimer l'état en le filtrant sur le Nom du Fournisseur
            PrintAsPDF strFichierPDF, strEtat, strFiltre
 
            ' Mise à jour du FLAG à -1
            UPDATE rst.Fields("FLAG") = -1

J'ai essayé plusieurs cas de figure avec UPDATE mais j'ai toujours un message d'erreur
Je pense que j'utilise mal cette fonction ou alors il faut utiliser une autre syntaxe ???

Merci pour votre aide
Cdt

[loufab]

Bonjour,
Syntaxe très originale.

Code :

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

1
2
            ' Mise à jour du FLAG à -1
            UPDATE rst.Fields("FLAG") = -1

Update est un méthode de la classe DAO.recordset.

Tu dois déjà commencer par APPRENDRE l'objet recordset avant de le manipuler.

https://warin.developpez.com/access/...=partie_5#L5-4

Code :

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

1
2
 
    Set rst = CurrentDb.OpenRecordset("SELECT DISTINCT FOURNISSEUR, CARTOUCHE, MAIL, Avoir, FLAG FROM [T_Import PUB]", dbOpenSnapshot)

Attention aussi à la signification des dbOpen, ils ont un sens précis et donc une utilité. Là tu es en lecture seule. C'est incompatible avec une modification.


Cordialement,

[CmzxNene]

Bonjour LOUFAB,

Et merci pour tes commentaires
Je viens de les consulter à l'instant et entretemps j'ai fait de nouvelles recherches et tests, et j'ai trouvé ma solution
Je la partage pour tous ceux que ça pourrait intéresser

Pour info, je souhaitais mettre dans mon champ FLAG (Oui/Non) un OUI dès que j'avais imprimé ma facture ou mon avoir en PDF en fonction du strFiltre
Je devais récupérer la valeur de FOURNISSEUR dans une variable déclarée en début de Fonction ==> Dim FRS as String

Voilà donc le code que j'ai mis pour cette action et qui fonctionne parfaitement :

Code :

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

1
2
3
 
    ' Mise à jour du FLAG à -1
    DoCmd.RunSQL ("update [T_Import PUB] SET FLAG=-1 where FOURNISSEUR = '" & FRS & "' and Avoir=0")

Belle journée à tous
Cdt

[loufab]

Si ça te facilite la compréhension tu peux aussi utiliser une requête de mise à jour.

Je ne te l'ai pas proposé car tu étais parti sur du DAO.