Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1476 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°490923
Worldofdad​a
Posté le 19-08-2003 à 09:43:20  profilanswer
 

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

mood
Publicité
Posté le 19-08-2003 à 09:43:20  profilanswer
 

n°490985
cvb
Posté le 19-08-2003 à 10:59:40  profilanswer
 

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
n°491150
Worldofdad​a
Posté le 19-08-2003 à 13:54:41  profilanswer
 

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 !

n°491152
cvb
Posté le 19-08-2003 à 13:56:48  profilanswer
 

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 ?

n°491563
Worldofdad​a
Posté le 19-08-2003 à 18:36:20  profilanswer
 

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.

n°491569
cvb
Posté le 19-08-2003 à 18:46:31  profilanswer
 

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 !

n°491598
Worldofdad​a
Posté le 19-08-2003 à 19:21:45  profilanswer
 

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 ...

n°491677
cvb
Posté le 19-08-2003 à 20:42:36  profilanswer
 

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
n°492103
Worldofdad​a
Posté le 20-08-2003 à 09:27:43  profilanswer
 

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 ?

n°492277
cvb
Posté le 20-08-2003 à 12:09:51  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
[Access] Backup de logiciel Access ... et réinstallation.[jsp] comment récupérer la valeur d'un champ ?
[Access - VBA] je comprends plus rien aux INSERT INTO avec dates[Access] --> Transporter des données ....
[VBA] Question à la con : Date du jour[Access] - Avis avant de commencer un développement
vérifier qu'un site est accessible[VB/VBA/Access] Changer le contenu d'une textBox
Plus de sujets relatifs à : [Access - VBA pour Noob] - Vérifier un champ


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR