Discussion :

[Williamm]

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

[argyronet]

Bonjour,

Qu'est-ce qui ne marche pas ?

Code :

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

DoCmd.Close , ""

n'est pas correct ! : tu dois préciser soit

Code :

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

Me.Name

soit ce que tu veux fermer sinon, tu enlèves la virgule et les guillemets.

Euh, entre (), qu'est ce que c'est que cette procédure étrange ?
Tu aurais pu la rendre un peu plus générique...
Imagine que tu aies 75 champs à vérifier, tu vas créer 75 procédures et les appeler 75 fois pour dire que tel champ n'est pas correcte ?
Hummm, c'est pas très bien pensé comme façon d'écrire....
Voici une piste à adapter :

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
34
35
36
Private Sub CommandSave_Click()
Dim ctl                                                As Control
    If MyFormDataIsCorrect(strTargetFieldName, strTargetFieldCaption) = False Then
        MsgBox strTargetFieldCaption & " doit contenir une valeur !", vbExclamation
        Set ctl = Me.Controls(strTargetFieldName)
        ctl.SetFocus
    Else
        MsgBox "C'est bon, merci !"
        DoCmd.Close acForm, Me.Name
    End If
    Set ctl = Nothing
End Sub
 
Private Function MyFormDataIsCorrect(ByRef strTargetFieldName As String, ByRef strTargetFieldCaption As String) As Boolean
 
    On Error GoTo L_ErrMyFormDataIsCorrect
    If isbull(Me.Matricule) Then
        If IsNull(Me.Nom) Then
            [....]
        Else
            strTargetFieldName = "Nom": strTargetFieldCaption = "le nom du quidam"
            Err.Raise 94
        End If
    Else
        strTargetFieldName = "Matricule": strTargetFieldCaption = "le Matricule"
        Err.Raise 94
    End If
    MyFormDataIsCorrect = True
    On Error GoTo 0
L_ExMyFormDataIsCorrect:
    Exit Function
 
L_ErrMyFormDataIsCorrect:
    MyFormDataIsCorrect = False
    Resume L_ExMyFormDataIsCorrect
End Function

Argy

[Williamm]

Merci pour ta réponse,

Alors par rapport à mon code j'ai trouvé la solution; j'ai remplacé la source de mon formulaire qui provient d'une table par une requete. (je ne comprends pas la raison pour laquelle cette méthode a marchée)

Ensuite par rapport à ton code, je suis étudiant en école d'ingénieur mais je n'ai pas suffisamment de connaissance en vba pour élaborer le code que tu as posté.
D'ailleurs je n'ai pas fais beaucoup de programmation dans mon cursus.
Je n'arrive pas à intégrer ton code pour que ça fonctionne correctement :/

Will