Discussion :

[fransous]

Bonjour,

Je suis autodidacte, je connais rien en programmation. En fait j'apprend en lisant la FAQ, mais là je suis perdu.

J'ai recopié le code de Valider la saisie parce que c'est exactement ce que je cherche mais je ne comprend pas les recommendations.

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
Function VERIF_SAISIE()
 
  Dim chmsg As String
  Set frm_FichesConvenances = Screen.ActiveForm
 
  ' Champs obligatoires
 
    If IsNull(frm_FichesConvenances![DateCodeGel].Value) Then
    Else
        If IsNull(frm_FichesConvenances![MotifGel].Value) Then
        chmsg = "Vous avez saisie une date de code de gel" & vbCrLf & "Veuillez indiquer le motif."
            If MsgBox(chmsg, vbQuestion) = vbOK Then
                 Forms!frm_FichesConvenances!MotifGel.SetFocus
                    Exit Function
            End If
        End If
 
    If IsNull(frm_FichesConvenances![Conclusion].Value) Then
    chmsg = "Veuillez sélectionner une conclusion pour cette fiche."
        If MsgBox(chmsg, vbQuestion) = vbOK Then
            Forms!frm_FichesConvenances!Conclusion.SetFocus
                Exit Function
        End If
    End If
 
End Function

et j'ai créé un bouton fermer le formulaire, la fonction s'exécute mais il ne ferme pas le formulaire.

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
Private Sub CmdRetourChoixFiche_Click()
On Error GoTo Err_CmdRetourChoixFiche_Click
 
 
    If VERIF_SAISIE() = True Then
        DoCmd.Close
    End If
 
Exit_CmdRetourChoixFiche_Click:
    Exit Sub
 
Err_CmdRetourChoixFiche_Click:
    MsgBox Err.Description
    Resume Exit_CmdRetourChoixFiche_Click
 
End Sub

Les recommandations était

• Dans ta fonction il faut que tu donnes la valeur true ou false a VERIF_SAISIE_PEC_IDE_61 avant de sortir de la fonction
• ta fonction doit avoir un type (boolean ici apparement)
• C'est une fonction fonc pense aux parentheses

Pouvez-vous me corriger ?

Merci beaucoup!

[loufab]

Bonjour Franzous

Ta fonction ne renvoie aucune valeur.

Normalement avant les exit function tu devrais avoir quelque chose comme cela (suivant le résultat de ton test)

Code :

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

VERIF_SAISIE = True

ou

Code :

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

VERIF_SAISIE = False

[fransous]

Un gros merci.

Je comprend un peu plus de jour en jour. Merci pour votre disponibilité.