Suppression d'enregistrement

Tu dois déclarer des variables d'instance(général pour le module)
qui va te permettre de garder la clé primaire

Private Sub Form_AfterDelConfirm(Status As Integer)
If Status = acDeleteOK Then
ls_sql = "Delete * from [AJUST_ENT_OCCUP] where
[no_periode_tarif]=" &
idou_periode_tarif & " and [centre_cout]='" &
is_cout_centre & "'"
docmd.runsql ls_sql
end if
end sub


Private Sub Form_Delete(Cancel As Integer)
'************************************************************************** ****************************
'-- Garde en mémoire les clées pour pouvoir supprimer
l'enregistrement dans la table
'************************************************************************** ****************************
idou_periode_tarif = Me.no_periode_tarif_T
is_cout_centre = Me.centre_cout_T



Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As
Integer)
if msgbox("Voulez-vous détruire
l'enregistrement?",vbYesNo,"Confirmation")=vbNo then
cancel=-1
end if
Response = acDataErrDisplay

Bonjour,

Dans l'évènement "On Delete" du formulaire tu inscris ceci:
Dim réponse, MSG1
MSG1 = "Voulez-vous supprimer l'enregistrement sélectionné?"
réponse = MsgBox(MSG1, vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation")
If réponse = vbNo Then
DoCmd.CancelEvent
Exit Sub
End If

"Arpat" wrote:

Bonjour,
dans une page d'acces aux donnees, je voudrais lorsque l'utilisateur clique
sur 'Suppression d'enregistrement' lui proposer une confirmation genre 'Etes
vous sur de vouloir supprimer cette enregistrement ?' tester la réponse et
pouvoir annuler la suppression si il choisi non

D'avance merci pour vos lumière

Arpat

Je vais essayer le CancelEvent, si des fois il peut fonctionne sur un objet
MSODBC ... pour le reste en Page d'acces aux données c'est sur ça ne gaz pas
.....
merci pour votre réponse

Arpat

Bonjour,

Dans l'évènement "On Delete" du formulaire tu inscris ceci:
Dim réponse, MSG1
MSG1 = "Voulez-vous supprimer l'enregistrement sélectionné?"
réponse = MsgBox(MSG1, vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation")
If réponse = vbNo Then
DoCmd.CancelEvent
Exit Sub
End If

"Arpat" wrote:

Bonjour,
dans une page d'acces aux donnees, je voudrais lorsque l'utilisateur
clique
sur 'Suppression d'enregistrement' lui proposer une confirmation genre
'Etes
vous sur de vouloir supprimer cette enregistrement ?' tester la réponse
et
pouvoir annuler la suppression si il choisi non

D'avance merci pour vos lumière

Arpat