Discussion :

[kek's]

Bonjour à tous,

j'ai un petit soucis avec l'insertion de pièces jointes dans ma base de données.
Ma fonction ne marche plus :/ du jour au lendemain elle a décidée de s'arrêter de fonctionné
Elle sort du bloc de code pour lancer "erreur" au niveau du rs.Edit !

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
Function AjouterPJ(stringSQL As String, NomDuChamp As String, chemin As String) As Boolean
    On Error GoTo erreur
    Set db = CurrentDb
    Set rs = db.OpenRecordset(stringSQL)
    If Not rs.EOF Then
        rs.Edit //erreur à partir d'ici
            With rs.Fields(NomDuChamp).Value
                .AddNew
                    .Fields("FileData").LoadFromFile chemin
                .Update
            End With
        rs.Update
        AjouterPJ = True
    Else
        AjouterPJ = False
    End If
    Set db = Nothing
    Set rs = Nothing
    
    Exit Function
erreur:
    AjouterPJ = False
End Function

Si quelqu'un peut m'aider à y voir plus clair ça serai cool merci d'avance !

[loufab]

Bonjour,
Je ne vois pas ce que tu veux faire avec ceci.

Code :

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

1
2
3
4
5
6
7
8
 
       rs.Edit //erreur à partir d'ici
            With rs.Fields(NomDuChamp).Value
                .AddNew
                    .Fields("FileData").LoadFromFile chemin
                .Update
            End With
        rs.Update

Tu fais d'abord un Edit et après un Addnew, il faut faire soit l'un soit l'autre !
Et tu fais 2 update en suivant. Comme ton With, je ne vois pas trop ou tu veux en venir. Je doute que ce code ait fonctionné un jour en l'état !

Quel est le message d'erreur ?

Cordialement,

[kek's]

Bonjour loufab,

En fait ce code existe depuis un moment et visiblement il fonctionnait très bien
Ce n'est pas moi qui ai codé ça ! c'est justement pour ça que je demandais de l'aide pck y a pas mal de choses que je ne comprends pas bien dans son code !

mais à l'heure actuelle le programme s'est remit a marché normalement donc je comprends pas du tout

Une idée sur ce problème ?

Merci de votre aide

[loufab]

Bonjour,

En l'absence de précision sur l'erreur je n'émettrais pas d'idées.

En tout cas je me demande si l'auteur de ces lignes comprenait quelques choses quand il les a écrite.

Cordialement,