Discussion :

[CrasherSEP]

Bonjour,

J'ai une table contenant beaucoup de lignes (enregistrements) avec un champs de type "pièces jointes" et j'aimerais "vider " le champs des pièces jointes... pourriez-vous m'aider ?

• Nom de la table [COURRIERS]
• Nom du champs de pièces jointes : [PJ01]

Merci d'avance :-)

[loufab]

Bonjour,

les tutos ?

https://denishulo.developpez.com/tut...-jointes/#LIII

Cordialement,

[CrasherSEP]

Bonjour,

Mon problème est que cela efface toutes les lignes contenants des pièces jointes dans le champ [PJ01]

Moi, j'aimerais garder toutes les lignes (enregistrements), juste effacer les pièces jointes... Remettre à zéro le champ [PJ01]

Belle journée

[CrasherSEP]

Trouvé...

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Option Compare Database
 
Private Sub Commande0_Click()
Dim nomTable As String
    Dim dossier As String
 
    nomTable = "TABLE_TEST"
    dossier = CurrentProject.Path
 
    If extractPiecesJointes(nomTable, dossier) Then
        MsgBox "Extraction réussie !", vbExclamation
    End If
 
End Sub
 
 
Public Function extractPiecesJointes(nomTable, cheminDossier) As Boolean
 
On Error GoTo ERREURGOTO
 
    Dim rst As DAO.Recordset
Dim rs As Recordset
    Dim fso As Object
    Dim folder As String, NomFichier1 As String, NomFichier As String, extension As String
    Dim p1 As Integer
    Set fso = CreateObject("Scripting.FileSystemObject")
 
    Set rst = CurrentDb.OpenRecordset(nomTable)
 
    Do Until rst.EOF
 
 
        With rst.Fields("PJ").Value
 
            While Not .EOF
 
                .Delete
                .MoveNext
            Wend
        End With
 
        rst.MoveNext
    Loop
 
    rst.Close
    Set rst = Nothing
 
    GoTo Finishing
 
ERREURGOTO:
    MsgBox (Error)
 
Finishing:
 
End Function

[tototiti2008]

Bonjour,

on peut effacer les pièces jointes par SQL aussi
https://access.developpez.com/faq/?p...SQL#PJSupprSQL