Bonjour,

J'utilise un code VBA pour la fermeture d'un formulaire avec condition.
Voici le code:

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
29
30
31
32
33
Private Sub Cmd_Fermer_Click()
 
If IsNull(Me.Matricule) Then
    'Message
    Matriculemanquant
    Me.Matricule.SetFocus
    Me.AllowEdits = True
ElseIf IsNull(Me.Nom) Then
    Nommanquant
    Me.Nom.SetFocus
    Me.AllowEdits = True
ElseIf IsNull(Me.Prenom) Then
    Prenommanquant
    Me.Prenom.SetFocus
    Me.AllowEdits = True
ElseIf IsNull(Me.Avion) Then
    Avionmanquant
    Me.Avion.SetFocus
    Me.AllowEdits = True
ElseIf IsNull(Me.SousEquipe) Then
    Equipemanquant
    Me.SousEquipe.SetFocus
    Me.AllowEdits = True
ElseIf IsNull(Me.Cigles) Then
    Siglevide
    Me.Cigles.SetFocus
    Me.AllowEdits = True
Else
    'Fermeture
    Me.AllowEdits = False
    DoCmd.Close , ""
End If
End Sub
Tout me semble bon, mais malheuresement ce n'est pas le cas car ça ne marche plus.
C'est assez étrange car sur une version précédente de ma base (qui date de 2 jours), ce même code fonctionne très bien. Je me dis que non et pourtant c'est forcement le cas, mais qu'est ce que j'aurai pu modifier sans le vouloir pour que ce code ne fonctionne plus?

Merci de votre aide