FORCER LA SAISIE PARMI 4 POSSIBILITES
Le
yves
Je souhaite dans un formulaire obligé de saisir une case à cocher parmi 4
possibilités avant de passer à l'enregistrement suivant
Merci
YVES
possibilités avant de passer à l'enregistrement suivant
Merci
YVES
Poser une question
"yves"
| Je souhaite dans un formulaire obligé de saisir une case à cocher parmi 4
| possibilités avant de passer à l'enregistrement suivant
Si tes cases à cocher se nomme C1, C2, C3 et C4
tu peux mettre dans l'avant mise à jour du formulaire :
if (c1 + c2 + c3 + c4) = 0 then
msgbox "faites votre choix..."
cancel = true
end if
PS:
on profite ici du fait qu'une case non cochée vaut zéro !
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
formulaire à la fermeture de mon formulaire ou les cases à cocher sont
présentent je ne reste pas bloque sur mon formulaire et l'enregistrement est
perdue.
"yves"
| mais comme je lance un autre
| formulaire à la fermeture de mon formulaire ou les cases à cocher sont
| présentent je ne reste pas bloque sur mon formulaire et l'enregistrement est
| perdue.
Tu peux me la refaire celle là ? ;-))
Si ce que je devine est correct... tu dois avoir mal placé le code !
| > Si tes cases à cocher se nomme C1, C2, C3 et C4
| > tu peux mettre dans l'avant mise à jour du formulaire :
car j'avais dit : dans *l'avant mise à jour* du formulaire
et ne pas oublier le => Cancel = True
| > if (c1 + c2 + c3 + c4) = 0 then
| > msgbox "faites votre choix..."
| > cancel = true
| > end if
Avec ca, tu reste dans le formulaire, c'est prévu pour :o)
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
J'ai bien pracé le code avec une [Procédure événementielle]sur la propriété
avant mise à jour
Private Sub Form_BeforeUpdate(Cancel As Integer)
If (TYPE_COLLECTIVITE + TYPE_ASSOCIATION + TYPE_PARTICULIER + TYPE_SOCIETE)
= 0 Then
MsgBox "faites votre choix...cocher collectivite ou association ou
particulier ou societe"
Cancel = True
End If
End Sub
Je ne vois pas où est l'erreur
Merci
"yves"
| J'ai bien pracé le code avec une [Procédure événementielle]sur la propriété
| avant mise à jour
| Private Sub Form_BeforeUpdate(Cancel As Integer)
| If (TYPE_COLLECTIVITE + TYPE_ASSOCIATION + TYPE_PARTICULIER + TYPE_SOCIETE)
| = 0 Then
| MsgBox "faites votre choix...cocher collectivite ou association ou
| particulier ou societe"
| Cancel = True
| End If
|
| End Sub
| Je ne vois pas où est l'erreur
Et donc cela fonctionne, non ?
Quelle est l'erreur dont tu parles ? (je n'ai pas compris l'histoire de l'autre formulaire...)
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/