Discussion :

[electrosat03]

Salut,

J'ai un form qui a des data venant d'une requête, j'ai une procédure

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
Private Sub Form_Delete(Cancel As Integer)
    Dim MessageAlertDelete As String
    DoCmd.SetWarnings False
    On Error GoTo Form_Delete_Error
 
    Beep
    Beep
    MessageAlertDelete = GrasMsgBox("ATTENTION !" & vbCrLf & vbCrLf & "Vous allez effacer définitivement un enregistrement.@@" & vbTab & "Voulez-vous confirmer l'effacement ?", vbYesNo + vbCritical, "Effacement")
 
    If MessageAlertDelete = vbNo Then
        Cancel = True
    End If
    DoCmd.SetWarnings True
    Exit sub
 
Form_Delete_Error:
 
    MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure Form_Delete of Document VBA Form_F_saisie"
End Sub

Le problème, si je répond oui, j'ai quand même le message access demandant confirmation?
Si je répond non, tout va bien.

Comment empêcher le message.

Merci
A+

[electrosat03]

Re,

En cherchant on trouve.

Code :

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

1
2
3
4
 
Private Sub Form_AfterDelConfirm(Status As Integer)
    DoCmd.SetWarnings True 'Autoriser l'affichage des messages ACCESS
End Sub

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
Private Sub Form_Delete(Cancel As Integer)
    Dim MessageAlertDelete As String
    DoCmd.SetWarnings False
    On Error GoTo Form_Delete_Error
 
    Beep
    Beep
    MessageAlertDelete = GrasMsgBox("ATTENTION !" & vbCrLf & vbCrLf & "Vous allez effacer définitivement un enregistrement.@@" & vbTab & "Voulez-vous confirmer l'effacement ?", vbYesNo + vbCritical, "Effacement")
 
    If MessageAlertDelete = vbNo Then
        Cancel = True
    End If
    'DoCmd.SetWarnings True
    Exit sub
 
Form_Delete_Error:
 
    MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure Form_Delete of Document VBA Form_F_saisie"
End Sub