Discussion :

[Lingo]

Bonjour,

J'ai besoin d'aide, voilà j'ai un formulaire contenant entre autres :
-une zone de liste modifiable choix_dpt
-un bouton de commade Etat_département me permettant de visualiser un Etat.

A l'ouverture du formulaire la zone de liste est vide.
Si l'utilisateur clique sur le bouton de commande, alors un message d'alerte doit s'afficher lui demandant de choisir un élément dans la liste.

Pour ce faire sur ce bouton j'ai inséré le code suivant dans l'événement SurClic:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Etat_département_Click()
    Dim stDocName As String
 
    If Me.choix_dpt = "" Then
        MsgBox "Sélectionnez un département", vbExclamation, "CHAMP OBLIGATOIRE"
        Me.choix_dpt.SetFocus
        Exit Sub
    Else
        stDocName = "NB pour un département"
        DoCmd.OpenReport stDocName, acPreview
    End If
End Sub

Mais çà ne marche pas, aucun message ne s'affiche et l'état est édité.
Je ne sais pas où se situe le pb dans mon code.

Merci pour votre aide.

[mout1234]

Essayes

Code :

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

 If Nz(Me.choix_dpt,"") = "" Then

[Lingo]

Je suis bête, il fallait utiliser IsNull et çà marche

Code :

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

1
2
3
4
...
If IsNull(Me.choix_dpt) Then
...

[Lingo]

Merci mout1234, je confirme çà marche aussi avec Nz()