Access : paramétrer les propriétés d'un formulaire via VB

Access : paramétrer les propriétés d'un formulaire via VB - Programmation

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

Reply

Marsh Posté le 29-10-2001 à 12:55:38   

Reply

Marsh Posté le 29-10-2001 à 14:31:46    

Je sais que vous savez...  ;)

Reply

Marsh Posté le 29-10-2001 à 16:34:18    

Solution toute simple : trappe l erreur et donne un message explicite a l utilisateur

Reply

Marsh Posté le 29-10-2001 à 22:28:35    

Comment ça?
Trappe : kesako?

Reply

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é

Reply

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!

Reply

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é

Reply

Marsh Posté le 31-10-2001 à 15:14:44    

Ok, merci : je vais essayer ça.

Reply

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?

Reply

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+

Reply

Marsh Posté le 07-11-2001 à 16:05:01   

Reply

Marsh Posté le 07-11-2001 à 19:54:32    

Je vais essayer ça...
Merci.  :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed