Discussion :

[Kenny66]

Bonjour,

Je souhaite insérer des pièce jointe dans une table depuis un formulaire (fenêtre qui s'ouvre sur click)

J'ai un problème avec le code, pouvez vous m'aider s'il vous plaît ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Valider_btn_Click()
Dim req As DAO.Recordset
    Dim sqlInsert As String
    Dim db As DAO.Database
 
 
sqlInsert = "INSERT INTO Table pj
(ID,PIECEJOINTE,DESCRIPTION)Values ('" & ListeCollaborateur_cbo.Column(0) & "', '" & PIECEJOINTE & "','" & DESCRIPTION & "' )"
db.Execute sqlInsert
 
req.Close
Set req = Nothing
db.Close
End Sub

Quand je clique sur le bouton d'ajout, le formulaire s'ouvre bien mais impossible d'ajouter des pj ou compléter les zones de texte alors que ce n'est pas vérouillé et le mod ajout, modif... est paramétré sur oui.

Merci pour votre aide.

[sprevost]

Il y a un article dans le forum qui traite très bien ces problèmes.
Voici le 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
29
30
Function AjouterFichier(strchemin As String, inteleve As Integer) As Boolean
On Error GoTo err
Dim oRst As DAO.Recordset
'Ouvre un recordset sur les fichiers de l'éleve passé en paramètre
Set oRst = CurrentDb.OpenRecordset("SELECT Fichiers FROM tbl_eleve WHERE [N°]=" & inteleve)
With oRst.Fields(0).Value
'Ajoute la pièce jointe
.AddNew
'Lit le fichier
.Fields("FileData").LoadFromFile strchemin
.Update
End With
AjouterFichier = True
 
fin:
Set oRst = Nothing
Exit Function
 
err:
'Gestion d'erreur
Select Case err.Number
Case 3024:
MsgBox "Fichier inexistant", vbCritical
Case 3820:
MsgBox "Une autre pièce-jointe de ce nom existe déjà", vbCritical
Case Else:
MsgBox "Erreur inconnue", vbCritical
End Select
Resume fin
End Function

[Kenny66]

Bonjour,

Effectivement j'ai trouvé cet article mais cela ne fonctionne pas, quand je clique sur le champ pièce jointe pour en ajouter une rien ne se passe aucune erreur ou bug.

Code :

Code sql :

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
Function AjouterFichier(strchemin As String, inteleve As Integer) As Boolean

Dim oFld As DAO.Field2
Set oFld = .Fields("FileData")
oFld.LoadFromFile strchemin

On Error GoTo err
Dim oRst As DAO.Recordset
'Ouvre un recordset sur les fichiers de l'éleve passé en paramètre
Set oRst = CurrentDb.OpenRecordset("SELECT PIECEJOINTE FROM GA_PIECEJOINTE_D")
With oRst.Fields(0).Value
'Ajoute la pièce jointe
.AddNew
'Lit le fichier
.Fields("FileData").LoadFromFile strchemin
.Update
End With
AjouterFichier = True
fin:
Set oRst = Nothing
Exit Function
err:
'Gestion d'erreur
Select Case err.Number
Case 3024:
MsgBox "Fichier inexistant", vbCritical
Case 3820:
MsgBox "Une autre pièce-jointe de ce nom existe déjà", vbCritical
Case Else:
MsgBox "Erreur inconnue", vbCritical
End Select
Resume fin
End Function

Merci pour votre aide