syntaxe requête création de table en vba

Le
Michel Voirain
Bonjour à tous,
J'essaie à partir d'exemples de créer une requête création de table en VBA.
cette requête s'appelle : "req création de table centre"
je dois extraire tous les enregistrements du champs [centre] qui s'appellent
"kerfiche" et avec ces données créer une nouvelle table
Manuellement pas de soucis, mais en vba, j'erre !

Dim qdf As DAO.QueryDef
Dim rcs As DAO.Recordset

'référence à la requête
Set qdf = CurrentDb.QueryDefs("req création de table centre") 'nom de la
requête"
'Le critère: [centre])="marcel"
qdf.Parameters("Centre") = "kerfiche" ' là ça nemarche pas

qdf.Execute 'pour exécuter la requête action mais avec
quel nom?

Set rcs = qdf.OpenRecordset '<== pour travailler sur les
données

Merci à tous,

Michel
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Raymond [mvp]
Le #6279641
Bonjour.

le seul souci que tu peux avoir c'est le passage du critère de sélection
("marcel"). tu trouveras des exemples de requêtes actions avec paramèters
sur : http://officesystem.access.free.fr/ex_requetes_vba.htm

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/

Le multimédia vu par Windows Vista, Office 2007 et Windows Live !!!
http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273


"Michel Voirain" news: OKXs%
| Bonjour à tous,
| J'essaie à partir d'exemples de créer une requête création de table en
VBA.
| cette requête s'appelle : "req création de table centre"
| je dois extraire tous les enregistrements du champs [centre] qui
s'appellent
| "kerfiche" et avec ces données créer une nouvelle table
| Manuellement pas de soucis, mais en vba, j'erre !
|
| Dim qdf As DAO.QueryDef
| Dim rcs As DAO.Recordset
|
| 'référence à la requête
| Set qdf = CurrentDb.QueryDefs("req création de table centre") 'nom de la
| requête"
| 'Le critère: [centre])="marcel"
| qdf.Parameters("Centre") = "kerfiche" ' là ça nemarche pas
|
| qdf.Execute 'pour exécuter la requête action mais
avec
| quel nom?
|
| Set rcs = qdf.OpenRecordset '<== pour travailler sur les
| données
|
| Merci à tous,
|
| Michel
|
|
Michel Voirain
Le #6279571
Raymond, merci pour la piste : maisj'ai toujour le même souci en reprenant
le code sur la page indiqué!
message d'erreur : élément nontrouvé dans cette collection'

DoCmd.SetWarnings False
Dim Qry As DAO.QueryDef
Set Qry = CurrentDb.QueryDefs("req création de table centre")
Qry.Parameters("Centre") = "KERFICHANT" ' erreur sur cette ligne
Qry.Execute
Set Qry = Nothing
DoCmd.SetWarnings True

Je cherche, mais si tu as une indication, je suis preneur!

Michel


"Raymond [mvp]" de news:
Bonjour.

le seul souci que tu peux avoir c'est le passage du critère de sélection
("marcel"). tu trouveras des exemples de requêtes actions avec paramèters
sur : http://officesystem.access.free.fr/ex_requetes_vba.htm

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/

Le multimédia vu par Windows Vista, Office 2007 et Windows Live !!!
http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273


"Michel Voirain" news: OKXs%
| Bonjour à tous,
| J'essaie à partir d'exemples de créer une requête création de table en
VBA.
| cette requête s'appelle : "req création de table centre"
| je dois extraire tous les enregistrements du champs [centre] qui
s'appellent
| "kerfiche" et avec ces données créer une nouvelle table
| Manuellement pas de soucis, mais en vba, j'erre !
|
| Dim qdf As DAO.QueryDef
| Dim rcs As DAO.Recordset
|
| 'référence à la requête
| Set qdf = CurrentDb.QueryDefs("req création de table centre") 'nom de
la
| requête"
| 'Le critère: [centre])="marcel"
| qdf.Parameters("Centre") = "kerfiche" ' là ça nemarche pas
|
| qdf.Execute 'pour exécuter la requête action mais
avec
| quel nom?
|
| Set rcs = qdf.OpenRecordset '<== pour travailler sur les
| données
|
| Merci à tous,
|
| Michel
|
|




Raymond [mvp]
Le #6279441
je viens de faire un essai qui fonctionne avec :
DoCmd.SetWarnings False
Dim Qry As DAO.QueryDef
Set Qry = CurrentDb.QueryDefs("Requête6")
Qry.Parameters("Date ?") = #4/16/2007#
Qry.Execute
Set Qry = Nothing
DoCmd.SetWarnings True

vérification à faire:
est-ce la bonne requête du nom de "req création de table centre" ?
est-ce bien une requête action ?
cette requête a-t-elle un critère de sélection du type = [Centre]

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/

Le multimédia vu par Windows Vista, Office 2007 et Windows Live !!!
http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273


"Michel Voirain" news:
| Raymond, merci pour la piste : maisj'ai toujour le même souci en
reprenant
| le code sur la page indiqué!
| message d'erreur : élément nontrouvé dans cette collection'
|
| DoCmd.SetWarnings False
| Dim Qry As DAO.QueryDef
| Set Qry = CurrentDb.QueryDefs("req création de table centre")
| Qry.Parameters("Centre") = "KERFICHANT" ' erreur sur cette ligne
| Qry.Execute
| Set Qry = Nothing
| DoCmd.SetWarnings True
|
| Je cherche, mais si tu as une indication, je suis preneur!
|
| Michel
Michel Voirain
Le #6279411
Merci Raymond : en fait quand tu as écrit "cette requête a-t-elle un critère
de sélection du type = [Centre]", ça m'a fait tilt!
Je mettais le nom du champs et pas celui du paramettre!
Maintenant, ça marche impec!
Merci encore!
Michel


"Raymond [mvp]" de news: %
je viens de faire un essai qui fonctionne avec :
DoCmd.SetWarnings False
Dim Qry As DAO.QueryDef
Set Qry = CurrentDb.QueryDefs("Requête6")
Qry.Parameters("Date ?") = #4/16/2007#
Qry.Execute
Set Qry = Nothing
DoCmd.SetWarnings True

vérification à faire:
est-ce la bonne requête du nom de "req création de table centre" ?
est-ce bien une requête action ?
cette requête a-t-elle un critère de sélection du type = [Centre]

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/

Le multimédia vu par Windows Vista, Office 2007 et Windows Live !!!
http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273


"Michel Voirain" news:
| Raymond, merci pour la piste : maisj'ai toujour le même souci en
reprenant
| le code sur la page indiqué!
| message d'erreur : élément nontrouvé dans cette collection'
|
| DoCmd.SetWarnings False
| Dim Qry As DAO.QueryDef
| Set Qry = CurrentDb.QueryDefs("req création de table centre")
| Qry.Parameters("Centre") = "KERFICHANT" ' erreur sur cette ligne
| Qry.Execute
| Set Qry = Nothing
| DoCmd.SetWarnings True
|
| Je cherche, mais si tu as une indication, je suis preneur!
|
| Michel




Publicité
Poster une réponse
Anonyme