VBA - Ouverture Etat

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:

---

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.

Essayes

Code:

---

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

---

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

Code:

---

1 2 3 4

... If IsNull(Me.choix_dpt) Then ...

---

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

;)