Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access sql+vba

sql+vba

4 réponses
Avatar
vincent chinazzi
A partir d'un formulaire comportant une zone d eliste modifiable et d'un
bouton "BtAffiche", j'aimerais qu'une requête se parametre toute seule pour
que le resultat se voit dans un formulaire mais cela ne mache pas.
Voici le code derriere le bouton
merci pour votre aide
Private Sub BtAffich_Click()
Dim sqlstr As String, req As QueryDef

sqlstr = "select formateur.Formateurs"
sqlstr = sqlstr & "FROM formateur"
On Error GoTo créerQry
Set req = CurrentDb.QueryDefs("Rq2")
req.SQL = sqlstr
sortie:
DoCmd.OpenReport "Rep1", acViewPreview
Exit Sub
creerQry:
Set req = CurrentDb.CreateQueryDef("Rq2", sqlstr)
Resume sortie
End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonsoir

sqlstr = "select formateur.Formateurs"
sqlstr = sqlstr & "FROM formateur"
il manque un espace " FROM formateur"

tu mélanges état et formulaire, lequel est bon ?
remplacer req As QueryDef par req As DAO.QueryDef
quek lien entre le report et le reste ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"vincent chinazzi" a écrit dans le message de
news:
A partir d'un formulaire comportant une zone d eliste modifiable et d'un
bouton "BtAffiche", j'aimerais qu'une requête se parametre toute seule
pour
que le resultat se voit dans un formulaire mais cela ne mache pas.
Voici le code derriere le bouton
merci pour votre aide
Private Sub BtAffich_Click()
Dim sqlstr As String, req As QueryDef

sqlstr = "select formateur.Formateurs"
sqlstr = sqlstr & "FROM formateur"
On Error GoTo créerQry
Set req = CurrentDb.QueryDefs("Rq2")
req.SQL = sqlstr
sortie:
DoCmd.OpenReport "Rep1", acViewPreview
Exit Sub
creerQry:
Set req = CurrentDb.CreateQueryDef("Rq2", sqlstr)
Resume sortie
End Sub




Avatar
vincent chinazzi
merci pour votre reponse
le report me permet d'afficher le resultat de la requete dans un etat
si vous le desirez je peux vous envoyer mon appli
merci
"Raymond [mvp]" a écrit dans le message de
news:
Bonsoir

sqlstr = "select formateur.Formateurs"
sqlstr = sqlstr & "FROM formateur"
il manque un espace " FROM formateur"

tu mélanges état et formulaire, lequel est bon ?
remplacer req As QueryDef par req As DAO.QueryDef
quek lien entre le report et le reste ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"vincent chinazzi" a écrit dans le message de
news:
A partir d'un formulaire comportant une zone d eliste modifiable et d'un
bouton "BtAffiche", j'aimerais qu'une requête se parametre toute seule
pour
que le resultat se voit dans un formulaire mais cela ne mache pas.
Voici le code derriere le bouton
merci pour votre aide
Private Sub BtAffich_Click()
Dim sqlstr As String, req As QueryDef

sqlstr = "select formateur.Formateurs"
sqlstr = sqlstr & "FROM formateur"
On Error GoTo créerQry
Set req = CurrentDb.QueryDefs("Rq2")
req.SQL = sqlstr
sortie:
DoCmd.OpenReport "Rep1", acViewPreview
Exit Sub
creerQry:
Set req = CurrentDb.CreateQueryDef("Rq2", sqlstr)
Resume sortie
End Sub








Avatar
Raymond [mvp]
tu peux toujours envoyer, en zip, enlève le XYZ. dans l'adresse(le point
aussi). indique bien les noms des objets à voir.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"vincent chinazzi" a écrit dans le message de
news:
merci pour votre reponse
le report me permet d'afficher le resultat de la requete dans un etat
si vous le desirez je peux vous envoyer mon appli
merci


Avatar
Raymond [mvp]
Ta base ne convient pas.

il n'y a pas de relation entre les tables matière et formateur. la seule
relation existante est entre document/formateur et document/matière
ton état est basé sur la table formateur alors qu'il devrait être basé sur
document (??), il me semble, mais ce n'est pas le but de l'état qui est , je
pense toujours, la liste des matières avec les formateurs correspondants.
Il faut revoir tes tables et tes relations, ensuite ça ira tout seul.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le message de
news:
tu peux toujours envoyer, en zip, enlève le XYZ. dans l'adresse(le point
aussi). indique bien les noms des objets à voir.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"vincent chinazzi" a écrit dans le message de
news:
merci pour votre reponse
le report me permet d'afficher le resultat de la requete dans un etat
si vous le desirez je peux vous envoyer mon appli
merci