[Access - VBA pour Noob] - Vérifier un champ

- Vérifier un champ [Access - VBA pour Noob] - VB/VBA/VBS - Programmation

Marsh Posté le 19-08-2003 à 09:43:20    

Salut !
En fait, je voudrais simplement vérifier que l'utilisateur a bien rempli un champs (on dirra ZT_toto) avec d'appuyer sur le bouton Ok.
 
Pour celà, je fais dans le onClick du bouton :
if ZT_toto = "" then
erreur=1
end if
 
Il ne passe jamais dans ce if et j'ai essayé avec Null, avec <>, ...
J'ai essayé d'afficher avec msgbox ZT_toto et il me dis utilisation du Null incorrect.
 
Je sais que c'est trop con mais j'en ai trop marre de planter sur des merdes comme ca !
 
Merci beaucoup

Reply

Marsh Posté le 19-08-2003 à 09:43:20   

Reply

Marsh Posté le 19-08-2003 à 10:59:40    

si ton Ztoto est un champs text c'est pas bien compliqué :  

Code :
  1. if Ztoto.text = "" then
  2. |erreur = 1
  3. end if


 
Ton code est bon...Si Ztoto est un champ numérique c'est val(Ztoto.text). Tu récupére la valeur numérique.  
 
 
Aprés, si le code que l'ont te mets ne fonctionne pas, c'est que le code avant ce petit morceau n'est pas valide. Pour ça mets des points d'arrêts, par exemple devant "If", pour voir si le code va stopper. S'il ne stoppe pas, une erreur est à chercher avant.
 
 
Tu peux mettre des "msgbox", si tu as le message c'est que le programme est bien passé. Ce petit message tu le mets juste avant la condition, Avant "if".
msgbox("le code passe bien ici" )
 

Code :
  1. msgbox("le code passe ici" )
  2. if Ztoto.text = "" then
  3. |erreur = 1
  4. end if


 
 
Normalement sa devrait fonctionner !


Message édité par cvb le 19-08-2003 à 11:01:35
Reply

Marsh Posté le 19-08-2003 à 13:54:41    

Ben ca marche pas et ca commence à me souler !
 
Parce que ca fait 2 problèmes que je n'arrive pas à résoudre alors que normalement, ca devrait marcher !
 
Si je met MsgBox (ZT_toto.Value) sans rien rentrer, il me dit :
Utilisation incorrecte de Null !
 
Je hais Access !

Reply

Marsh Posté le 19-08-2003 à 13:56:48    

Worldofdada a écrit :

Ben ca marche pas et ca commence à me souler !
 
Parce que ca fait 2 problèmes que je n'arrive pas à résoudre alors que normalement, ca devrait marcher !
 
Si je met MsgBox (ZT_toto.Value) sans rien rentrer, il me dit :
Utilisation incorrecte de Null !
 
Je hais Access !  


 
c'est pas acess ! mets nous TOUT ton code et dis nous ce qu'est ton champ ZT_toto, un champ texte, un champ numérique, quoi donc ?

Reply

Marsh Posté le 19-08-2003 à 18:36:20    

Code :
  1. If ZT_Date = "" Then
  2.     MsgBox "Vous devez saisir une date"
  3. Else
  4.     requete = "INSERT INTO Test (Date_test) VALUES(#" & ZT_Date.Value & "#)"
  5.     DoCmd.RunSQL (requete)
  6.     ZLM_Dates.Requery
  7. End If


 
Celà ne marche pas (execute la requete au lieu de s'arreter).
ZT_Date est un champs texte mis avec un masque de saisie pour taper une date.

Reply

Marsh Posté le 19-08-2003 à 18:46:31    

Worldofdada a écrit :

Code :
  1. If ZT_Date = "" Then
  2.     MsgBox "Vous devez saisir une date"
  3. Else
  4.     requete = "INSERT INTO Test (Date_test) VALUES(#" & ZT_Date.Value & "#)"
  5.     DoCmd.RunSQL (requete)
  6.     ZLM_Dates.Requery
  7. End If


 
Celà ne marche pas (execute la requete au lieu de s'arreter).
ZT_Date est un champs texte mis avec un masque de saisie pour taper une date.


 
les champs de texte c'est ZT_date.text, c'est la première des chose. Ensuite as tu du code avant ça ? si oui, mets le !

Reply

Marsh Posté le 19-08-2003 à 19:21:45    

Non, je n'ai pas de code ni avant ni après.
 
Si je rajoute .Text, j'ai une erreur :
"Impossible de faire référence à une propriété ou de la définir pour un controle si ce dernier n'est pas activé"
 
Mystère ...

Reply

Marsh Posté le 19-08-2003 à 20:42:36    

Worldofdada a écrit :

Non, je n'ai pas de code ni avant ni après.
 
Si je rajoute .Text, j'ai une erreur :
"Impossible de faire référence à une propriété ou de la définir pour un controle si ce dernier n'est pas activé"
 
Mystère ...


 
 
renome ton champ texte "ZT_date", car "Date" est une variable reservé dans VB, il à peut être du mal, car je vois rien qui ne cloche. Je le redis un champ texte, c'est "texte1.text", sa c'est sûr. Quand la personne mets aucune valeur c'est "". Tu n'as pas fais d'erreur.


Message édité par cvb le 19-08-2003 à 20:42:48
Reply

Marsh Posté le 20-08-2003 à 09:27:43    

Idem : "Impossible de faire référence à une propriété ou de la définir pour un controle si ce dernier n'est pas activé"
 
Il n'aime vraiment pas le .text
 
Y'a pas une bibliothèque spéciale à inclure ?

Reply

Marsh Posté le 20-08-2003 à 12:09:51    

Va voir sur www.vbfrance.com si tu trouves ta solution ! je séches... [:spamafote]

Reply

Sujets relatifs:

Leave a Replay

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