Bonjour,
Je cherche a updater un reccordset et lorsque j'appelle la fonction edit l'appli plante en disant "cette méthode a été annulée par un objet associé". Je ne comprends pas la raison de ce plantage. POuvez vous me renseigner?
Voilà un petit bout de mon code si ça peut vous aider.
Merci
Cgodefrw
Private Sub QteQuelquonc_BeforeUpdate(QteQuelquonc As Control, Cancel As Integer)
Dim NumFicheQuelquonc As String
Dim Mois As String
Dim res As dao.Recordset
'on fabrique uen chaine de caractère égale correspondant au nom du contrôle ou on affiche les numéro de fiche
Mois = Mid(QteQuelquonc.Name, 4)
NumFicheQuelquonc = "NumFiche" & Mois
'on se fit à l'affichage pour que tout semble bien à l'utilisateur
If Me.Controls(NumFicheQuelquonc).Value <> "" Then
'si il y a un chiffre d'affiché dans le contrôle des numéro de fiche on annule la mise à jour du reccordset
Cancel = True
Else
Me.Recordset.Edit
Me.Recordset.Update
end if
end sub
Partager