OVH Cloud OVH Cloud

saisie obligatoire formulaire

17 réponses
Avatar
steph
Bonjour,

je veux pr=E9ciser dans mon form que la saisie de certains champs est
obliatoire. J ai mis dans propri=E9t=E9 valide si Est Pas Null. Et un msg
si erreur.
Je teste mais access m autorise qd meme a ne rien saisir
Vs savez pkoi ?
merci

10 réponses

1 2
Avatar
Gafish
steph wrote:
Bonjour,


Bonjour,

je veux préciser dans mon form que la saisie de certains champs est
obliatoire. J ai mis dans propriété valide si Est Pas Null. Et un msg
si erreur.
Je teste mais access m autorise qd meme a ne rien saisir
Vs savez pkoi ?
merci


Dans les propriétés du champ en modification de ta table, mets la propriété
"Null interdit" à oui


Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
steph
SALUT
j ai essayé mais je ne peux pas faire ca. Car par ex j ai une table
qui me permet de construire 2 formulaire différents. Alors qd je sui
ds le premier, access me demande de remplir le champ qui est sur le
2ème, ce qui est impossible.
Sinon, j aurais aussi aimé un message d erreur personnalisé
Avatar
Gafish
steph wrote:
SALUT
j ai essayé mais je ne peux pas faire ca. Car par ex j ai une table
qui me permet de construire 2 formulaire différents. Alors qd je sui
ds le premier, access me demande de remplir le champ qui est sur le
2ème, ce qui est impossible.
Sinon, j aurais aussi aimé un message d erreur personnalisé


Tu peux faire quelque chose du genre, si ta ou tes zones obligatoires :

Private Sub taZone_BeforeUpdate(Cancel As Integer)
If (Me.taZone = "") then
MsgBox "Saisie obligatoire de taZon"
Cancel = True
Exit Sub
End If
End Sub



--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Jessy Sempere [MVP]
Bonjour

Sinon une fonction plus générale :

*******************************************************
Public Function DataNull() As String
'** Retourne une chaine de caractère contenant le texte
'** info bulle de tous les contrôles (zone de texte, zone de
'** liste, zone de liste modifiable) qui n'ont pas été renseignés.

Dim frm As Form
Dim ctl As Control
Dim strMsg As String

Set frm = Screen.ActiveForm

For Each ctl In frm.Controls
If ctl.ControlType = acTextBox _
Or ctl.ControlType = acListBox _
Or ctl.ControlType = acComboBox Then
If IsNull(ctl.Value) Or ctl.Value = "" Then _
strMsg = strMsg & vbCrLf & vbTab & "- " & ctl.ControlTipText
End If
Next

If strMsg <> "" Then DataNull = "Vous devez saisir : " & vbCrLf & strMsg

End Function
*******************************************************

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Gafish" a écrit dans le message news:

steph wrote:
SALUT
j ai essayé mais je ne peux pas faire ca. Car par ex j ai une table
qui me permet de construire 2 formulaire différents. Alors qd je sui
ds le premier, access me demande de remplir le champ qui est sur le
2ème, ce qui est impossible.
Sinon, j aurais aussi aimé un message d erreur personnalisé


Tu peux faire quelque chose du genre, si ta ou tes zones obligatoires :

Private Sub taZone_BeforeUpdate(Cancel As Integer)
If (Me.taZone = "") then
MsgBox "Saisie obligatoire de taZon"
Cancel = True
Exit Sub
End If
End Sub



--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr





Avatar
steph
Merci bcp c bon
pour les zones numériques et listes déroulantes ca marche aussi ?
Avatar
steph
Merci bcp c bon
pour les zones numériques et listes déroulantes et dates ca marche
aussi ?
Avatar
steph
Merci bcp c bon
pour les zones numériques et listes déroulantes et dates ca marche
aussi ?
Avatar
steph
Merci Jessy ca a lair bien mais je débute...
alors ou est ce que j ecris cette fonction et comment j y fais appel ?
merci :)
Avatar
steph
J ai essayé ta fonction et celle de jessy mais ca ne marche pas, acess
autorise les champs vides
Avatar
Eric
Bonjour,

A mon avis, il faut appeller la fonction de Jessy ou tester la procédure
de Gafish sur l'evènement Avant Mise à jour du formulaire et non sur
Avant Mise à jour du controle car si tu saute le controle à verifier en
cliquant directement dans un autre l'évènement Avant Mise à jour de ce
controle n'est pas exécuté.

J ai essayé ta fonction et celle de jessy mais ca ne marche pas, acess
autorise les champs vides



--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

1 2