probleme BD Access

bjr
j'ai un probleme de sauvegarde de données avec un data control et access,
j'ai créer des zones de saisie avec les boutons classiques pour ajouter, editer, enregistrer etc....
mes zones dz saisies sont bien reliées au data etc;...
lorsque je veux sauvegarder l'enregistrement en cours j'ai une erreur 3426;
"cette méthode a été annulée par un objet associé"

et le débogueur se cale sur le .update de mon bouton enregistrer (cmdsave).

Voici le code concernant les boutons:

Private Sub cmdButton_Click(Index As Integer)

Static vMyBookMark As Variant

Select Case Index
   Case cmdMoveFirst
       Data1.Recordset.MoveFirst
       Call updateButtons
   Case cmdMovePrevious
       Data1.Recordset.MovePrevious
         Call updateButtons
   Case cmdMoveNext
       Data1.Recordset.MoveNext
       Call updateButtons
   Case cmdMoveLast
      Data1.Recordset.MoveLast
       Call updateButtons
      
   Case cmdAddNew
       With Data1.Recordset
        If (.EditMode = dbEditNone) Then
             If (lTotalRecords > 0) Then
                  vMyBookMark = .Bookmark
             Else
                 vMyBookMark = ""
             End If
            .AddNew
            Call updateButtons
            Lblrecordcount = "Adding New Record"
        End If
    End With

  
   Case cmdEdit
       With Data1.Recordset
        If (.EditMode = dbEditNone) Then
             vMyBookMark = .Bookmark
            .Edit
            Call updateButtons
            Lblrecordcount = "Editing"
        End If
    End With

   Case cmdSave
        Dim bMoveLast As Boolean
     With Data1.Recordset
       If (.EditMode <> dbEditNone) And (lTotalRecords <> 0) Then
           If .EditMode = dbEditAdd Then
             bMoveLast = True
           Else
             bMoveLast = False
           End If
           .Update
           lTotalRecords = .RecordCount
           If (bMoveLast = True) Then
              .MoveLast
           Else
              .Move 0
           End If
           updateButtons True
       Else
           .Move 0
       End If
     End With

   Case cmdDelete
       Dim iResponse As Integer
    Dim sAskUser As String
    sAskUser = "Are you sure you want to delete this record?"
    iResponse = MsgBox(sAskUser, vbQuestion + vbYesNo + _
              vbDefaultButton2, "Publishers Table")
    If (iResponse = vbYes) Then
      With Data1.Recordset
          .Delete
          lTotalRecords = .RecordCount
          If (lTotalRecords > 0) Then
            If lTotalRecords = 1 Then

                .MoveNext


            ElseIf .BOF Then
              .MoveFirst
           Else
             .MovePrevious
          End If
        End If
      End With
   End If
   Call updateButtons

   Case cmdUndo
   With Data1.Recordset
       If (.EditMode <> dbEditNone) Then
           .CancelUpdate
           If (Len(vMyBookMark)) Then
              .Bookmark = vMyBookMark
           End If
           updateButtons True
       Else
           .Move 0
       End If
     End With
      
   Case cmdDone
   FrmMENU.Show
   Unload Me
End Select

End Sub

de plus je voudrais sauvegarder en meme temps que les données d'un enregistrement; un fichier jpg, comment dois-je faire;
lui mettre aussi au niveau du datafield et data source les bons éléments?
(je parle du controle image)

merci pour votre aide

Salut,
Je rencontre actuellement un problème simlair (au moins au niveau de l'erreur), est ce que tu utilises ton appli en multi utilisateur?
car moi c'est mon cas et mon appli plante aussi au moment de l'update si un premier utilisateur a déjà updater avant...(il doit y avoir un verrou de placé sur les donnéees).
Ced