Discussion :

[Luisito31]

Bonjour,

J'ai un formulaire qui contient des champs obligatoires et un sous-formaulaire !
Si je clic sur le sous formulaire alors que je n'est pas remplis les champs obligatoires un message d'erreur apparait à l'ecran..
J'aimerais pouvoir l'enlever et en mettre un autre !

J'ai deja essayé de mettre un docmd.setwarnings (false) sur ouverture du formulaire, ceci ne marche pas !

[Luisito31]

personne pour m'aider ?

[azertix]

Qu'est ce que tu veux dire par champs obligatoires ?
Tu as fait en sorte qu'un MsgBox s'affiche en cas de non-saisie des champs, c'est ça ?

[Luisito31]

Pour le Msgbox c'est bon... mais pour le message d'erreur non !

les champs obligatoires sont ce qui ne peuvent pas être null

[azertix]

Ben s'il y a une message d'erreur, c'est qu'il te faut résoudre l'erreur, sinon tu l'uras à chaque fois ...
Déjà, tu peux mettre ton code, et nous dire quelle est ton erreur

[Luisito31]

Tu as fait en sorte qu'un MsgBox s'affiche en cas de non-saisie des champs, c'est ça ?

Oui tout a fait ! dsl j'avais pas compris au message précedent...

[Luisito31]

En faite c'est juste un message qui dit que le champs X n'est pas remplis !

[azertix]

Ben dans ce cas, tu change le texte dans ton MsgBox

[Luisito31]

En gros je veux changer le message qui sort...mais avec setwarnings ca ne marche pas !

[azertix]

C'est normal, ça ne sert pas à enlever les MsgBox ...
Si tu veux changer le message dans ton MsgBox, il faut modifier le contenu du premier paramètre de la fonction. Exemple :

Code :

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

1
2
Dim rep As Integer
rep = MsgBox("Veuillez remplir les champs obligatoires", vbCritical + vbOKOnly, "Information manquante...")

[Luisito31]

mais comment enlevé le message d access ?

[azertix]

Mais quel message ??
Je sais pas mais depuis le début, tu n'as toujours pas dit quel était le message ...
Ecris-le ou poste un screenshot

[Luisito31]

Le champ 'INTERVENTION.Objet de la demande' ne peut pas contenir une valeur Null car la valeur de la propriété Required pour ce champ est True. Saisissez une valeur dans le champ.

[dr_feelgood]

Si je clic sur le sous formulaire alors que je n'est pas remplis les champs obligatoires

apparement ton champ est à renseigner obligatoirement.
soit la propriété est sur required dans ton formulaire ou dans ta table de départ.

[Luisito31]

Oui je sais ca... je veux juste personnalisé le message...

[dr_feelgood]

Dans ce cas tu choisis de gérér toi même si l'utilisateur renseigne ou non, et alors l faut mettre required à False !!!!!!

ainsi Access n'enverra plus le message qui te gêne.

[Luisito31]

ok j'essaye ca cet aprem je te dit si j'ai des problèmes...

[azertix]

Ah ben c'est déjà plus clair !
Deux solutions :
- Tu remplis le champ comme te le demande Access et comme ça a été paramétré dans ta table
- Tu passe la propriété Required du champ de ta table à False, comme te l'a suggéré Dr_Feelgood

Dans le deuxième cas, je te conseille quand même de gérer (comme tu l'avais suggeré) l'absence de saisie dans tes contrôles. Surtout si le champ est important

[Luisito31]

j'ai décider d'interdire les champs obligatoire vides lors de l'enregistration.. mais je ne sais pas quelle commande utiliser pour stoppé l'enregistration si un ou plusieurs de ces champs sont vides !

[azertix]

Code :

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

1
2
3
4
5
6
7
Dim rep As Integer
If IsNull(Me.MaZoneDeTexte1) Or IsNull(Me.MaZoneDeTexte2) Then
    rep = MsgBox("Veuillez remplir tous les champs", vbCritical + vbOKOnly, "Information manquante...")
    Exit Sub
Else
    'On peut effectuer l'enregistrement
End If