probleme BD Access

Question

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

godefrw · Answer

Salut, 
Je rencontre actuellement un probl&#232;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&#233;j&#224; updater avant...(il doit y avoir un verrou de plac&#233; sur les donn&#233;ees).
Ced

Probleme BD Access

1 réponse

Discussions similaires