Discussion :

[maxoumax]

Bonjour ,
J'ai un petit problème , mon but est de pouvoir afficher un message d'erreur si un champs qui devient visible n'est pas remplis lors de l'enregistrement
Mais voilà access me l'enregistre automatiquement , il ne m'envoie pas de message d'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande17_Click()
 
    If IsNull(Me.H.Visible = True) Then
 
        MsgBox "Un ou plusieurs champs n'a pas été saisis!!!"
 
     Else
     DoCmd.GoToRecord , , acNewRec
 
    End If
End Sub

Le champ H est visible si et seulement si je sélectionne une autre donnée
Donc voila je voudrais pouvoir afficher un message d 'erreur si , le champs visible n'est pas rempli, et ne rien afficher quand il est invisible .

Merci de votre aide
Bonne journée

[mafooley]

Salut,

Pour une fois que je peux aider et pas l'inverse
essaye en partant dans cette direction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim champs as Controls
For Each champs in Me.Controls
Select case TypeName(champs)
Case "TextBox"
if champs.Value is Null then
Msgbox("Un ou plusieurs champs n'a pas été saisis!!!")
Else
Function()
End If
End Select
Next

Si tous les champs sont replis, ça lance Function()
Tu peux également mettre d'autre type de contrôles séparés par une virgule à la ligne :

Code :

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

Case "TextBox", "ComboBox", "etc..."

Bon amusement

[maxoumax]

Merci de ton aide Mafooley
J'ai testé ton programme mais sa marche pour tous les champs , moi je veux juste pour les champs dit "invisible" .
Merci encore bonne journée

[amelyfred]

Salut
Essaye avec

Code :

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

1
2
3
4
5
6
 
If IsNull(Me.H) and Me.H.Visible = True Then
     MsgBox "Un ou plusieurs champs n'a pas été saisis!!!"
 Else
     DoCmd.GoToRecord , , acNewRec
End If

[maxoumax]

Merci sa marche du feu de dieu .
Bonne journée