Créer un état en fonction de la réponse de l'utilisateur.
cokinoumasterflash
Messages postés62Date d'inscriptionjeudi 16 juin 2005StatutMembreDernière intervention19 août 2005
-
16 juin 2005 à 11:53
cs_frop01
Messages postés1352Date d'inscriptionlundi 27 octobre 2003StatutMembreDernière intervention19 novembre 2008
-
17 juin 2005 à 12:19
Bonjour,
Je travaille actuellement sur une base de données sous ACCESS comportant une table : échantillon. L'un des champs de cette table est le nom du site de prélèvement de l'echantillon : nom_site. De plus j'ai créé un formulaire où je propose à l'utilisateur de choisir le site qu'il souhaite consulter (champ site dans mon formulaire).
Mon problème c'est que je n'arrive pas à créer un état en fonction de la réponse. J'ai essayé de récupérer de idées de codes à droite à gauche mais ça ne marche pas.
Voilà mon code qui ne marche pas.
Dim rpt As Report
Dim requete As String
requete = "SELECT * FROM echantillon WHERE (echantillon.nom_site=site)"
Set rpt = CreateReport
DoCmd.OpenReport rpt, acViewDesign
rpt.RecordSource = requete
rpt.Caption = "site"
DoCmd.Restore
DoCmd.OpenReport rpt, acPreview
Pour info le message d'erreur à l'exécution est : Le type d'une expression entrée pour un des arguments est incorrect.
Merci pour vos réponse.
Seb.
A voir également:
Créer un état en fonction de la réponse de l'utilisateur.
cokinoumasterflash
Messages postés62Date d'inscriptionjeudi 16 juin 2005StatutMembreDernière intervention19 août 20057 16 juin 2005 à 15:34
Merci pour les réponses,
En fesant les modifications de wape j'arrive à ouvrir un état mais il affiche une page blanche.
Mon problme vient de ma requête SQL. J'ai essayé de faire les corrections proposées par frop01 mais ça ne marche pas. Pour résumé la situation, en fait , j'ai créé un formulaire avec une zone de texte qui prend en entrée le nom du site dont on souhaite voir l'état. C'est ma variable site dans mon programme. C'est pour cela que j'avais mis "SELECT * FROM echantillon WHERE (echantillon.nom_site=site)"
Du coup j'ai voulu corriger par la solution 2 de frop01:
requete = "SELECT * FROM echantillon WHERE (echantillon.nom_site='" & text1.text & "')"
Mais je ne voit pas par quoi remplacer text1.text dans mon programme ?
cokinoumasterflash
Messages postés62Date d'inscriptionjeudi 16 juin 2005StatutMembreDernière intervention19 août 20057 16 juin 2005 à 16:11
J'ai essayé mais ça ne marche pas. Au final après avoir suivi les recommandations de tout le monde mon code est :
Dim rpt As Report
Dim requete As String
requete = "SELECT * FROM echantillon WHERE (nom_site='" & Site & "')"
Set rpt = CreateReport
rpt.RecordSource = requete
rpt.Caption = "site"
DoCmd.OpenReport rpt.Name, acPreview
L'état affiche toujours une page blanche. Pourtant j'ai vérifié j'ai bien un champ nom_site dans ma table et ma zone de texte a bien comme nom : site (est-ce de ça dont tu parles quand tu me dis tu trouver le nom du textebox ?)
@+
Seb.