Discussion :

[francois134]

Bonjour,

J'ai un formulaire avec deux listes déroulantes et des champs texte.

J'ai mis en place du code qui test que tout est bien remplie dans le formulaire. Le problème est que le test ne fonctionne pas sur les listes déroulante.

Sur les champs texte ca fonctionne.

Voici le bout de code qui ne marche pas sur clic du bouton enregistrer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
....
 
    'Test pour vérifier que la fonction est saisie
    ElseIf IsNull(Me!cbo_fonction) Then
            MsgBox "Choisissez la fonction"
 
    'Test pour vérifier que la région est saisie
    ElseIf IsNull(Me!cbo_region) Then
            MsgBox "Choisissez la region"
 
End Sub

Si je ne remplie pas ces deux listes, je n'ai pas de message d'erreur.


Par avance merci pour votre aide

[FreeAccess]

Bonjour,

...le test ne fonctionne pas sur les listes déroulante

Voici une possibilité de tester si tes Zones de listes déroulantes possédent une valeur ou non......

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub cmdValider_Click()
Dim ctl As Control
For Each ctl In Me.Controls
' si mon contrôle est de type ComboBox
    If ctl.ControlType = acComboBox Then
        If IsNull(ctl.Value) Then
'....j'affiche une boîte de message m'indiquant une erreur
            MsgBox "La Zone de liste " & ctl.Tag & " doit être remplie"
        End If
    End If
Next
End Sub

....Pour aider à la localisation de la Zone de liste non remplie, utilise la propriété "Remarque" = Tag........de chaque ZdL

Bien sur tu adapte à ton application.

Bonne continuation....

[Invité]

Bonjour

Tu testes la nullité de ta liste déroulante, mais pas si la liste à un champ texte vide "".

Récupères la valeur de ta zone de liste déroulante, et testes avec la fonction NZ dans une msgbox pour voir ce que cela te retourne.

Starec

[francishop]

Bonjour,

De l'eau au moulin : http://www.developpez.net/forums/sho...58&postcount=2

Cordialement.