Access : paramétrer les propriétés d'un formulaire via VB - Programmation
Marsh Posté le 29-10-2001 à 16:34:18
Solution toute simple : trappe l erreur et donne un message explicite a l utilisateur
Marsh Posté le 30-10-2001 à 07:57:07
on error goto GestionErreur
'Ton code qui peux produire l'erreur
'Sort de la fonction
Exit Sub
GestionErreur:
Select case Err.Number
case 120: msgbox ("Erreur champs invalide ..." )
case else : msgbox err.description
end case
Et voila le tour est joué
Marsh Posté le 30-10-2001 à 11:59:44
Vi, mais ce n'est pas un code en particulier qui génère une erreur : juste une non-saisie de champ obligatoire!
Marsh Posté le 30-10-2001 à 15:06:13
oui mais ton code d erreur est toujours le meme dans ce cas particulier
> " j'ai bien un message d'erreur qui s'affiche lors d'une saisie innoportune "
il suffit de l identifier (note juste le numero d erreur) et de le traiter en particulier
on error goto GestionErreur
'Ton code qui peux produire l'erreur
'Sort de la fonction
Exit Sub
GestionErreur:
Select case Err.Number ' ici tu testes le code d erreur
' ici c est ton cas particulier avec ton numero d erreur
' et tu affiches le msg en consequence
case 120: msgbox ("Erreur champs invalide ..." )
case else : msgbox err.description
end case
Et voila le tour est joué
Marsh Posté le 06-11-2001 à 14:54:06
Bah... Finalement, j'y arrive pas.
J'ai chopé le N° de l'erreur, mais à quel moment suis-je censé l'intercepter?
Marsh Posté le 07-11-2001 à 16:05:01
Je ne suis pas sûr d'avoir compris ton pb, mais ne suffirait-il pas de faire un SF.locked=true sur l'événement BeforeUpdate() de ton champ ?
SF représente le nom du contrôle contenant ton sous formulaire.
A+
Marsh Posté le 29-10-2001 à 12:55:38
Salut,
J'ai un sous-formulaire dont je veux interdire l'accès (à savoir insérer des données) tant qu'un des champs de mon formulaire principal n'est pas rempli.
Ayant mis un Null non autorisé, j'ai bien un message d'erreur qui s'affiche lors d'une saisie innoportune, mais celui-ci n'est pas vraiment explicite pour un non initié...
Donc j'aimerai pouvoir faire un test sur ce champ (If IsEmpty(Champ) then...) et changer la propriété "Activate" de mon sous-formulaire de "False" en "True"
Merci