Bonjour a toutes et tous,

Je viens requérir votre aide, cela fait un moment que je galère sur ce problème.

Voilà, je souhaiterais faire un contrôle sur un sous-formulaire, avant de supprimer un enregistre.

Pour faire simple, j'ai des usagers dans un véhicule et je veux vérifier que j'ai bien supprimé tous les usagers avant de supprimer le véhicule qui les concerne.

Le contrôle marche bien quand il y a encore des usagers (Il me renvoie mon message) mais quand tous les usagers sont supprimé, il me met le message suivant "EXPRESSION SANS PARAMÈTRE"

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
20
21
22
23
24
25
26
27
28
Private Sub F_Supp_vehicule_Click()
On Error GoTo Err_F_Supp_vehicule_Click
 
    If (Forms![F_accident_consult]![F_accident_consult_véhicule]![F_accident_consult_usager]![Id_usager] <> "") And (Forms![F_accident_consult]![F_accident_consult_véhicule]![F_accident_consult_usager]![Id_usager] = Forms![F_accident_consult]![F_accident_consult_véhicule]![Id_véhicule]) Then
    MsgBox "Attention, vous n'avez pas supprimé" & Chr(13) & "tous les usagers de ce véhicule"
 
    Else
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "F_Supp_Véhicule"
 
    stLinkCriteria = "[Id_véhicule]=" & "'" & Me![Id] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_F_Supp_vehicule_Click:
    Exit Sub
 
Err_F_Supp_vehicule_Click:
    MsgBox Err.Description
    Resume Exit_F_Supp_vehicule_Click
 
 
    End If
 
 
End Sub
Merci d'avance pour votre aide

A+