Bonjour,
Je veux utiliser ce code :
http://access.developpez.com/faq/?pa...EnregistrerVBA
J'utilise VB2008 et Access 2007
Function EnregistrerFichier(strNomFichier As String, inteleve As Integer, strNomDestination) 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.FileData FROM tbl_eleve WHERE [N°]=" & _
inteleve & " AND Fichiers.FileName=" & Chr(34) & strNomFichier & Chr(34))
If Not oRst.EOF Then
oRst.Fields(0).SaveToFile strNomDestination
EnregistrerFichier = True
End If
fin:
Set oRst = Nothing
Exit Function
err:
Select Case err.Number
Case 3839:
MsgBox "Impossible d'écraser le fichier", vbCritical
Case Else
MsgBox "Erreur inconnue", vbCritical
End Select
Resume fin
End Function
Le problème c'est que que currentDB n'est pas défini (d'ailleur j'ai pas compris à quoi ça sert), et que Set n'est plus valide en en VB 2008.
Je vous remercie d'avance.
