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
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
Raymond [mvp]
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" a écrit dans le message de 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 | |
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" <michel.voirain@wanadoo.fr> a écrit dans le message de
news: OKXs%23AToHHA.4192@TK2MSFTNGP06.phx.gbl...
| 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
|
|
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" a écrit dans le message de 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
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]" a écrit dans le message 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" a écrit dans le message de 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, 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]" <xyzofficesystem.accessxyz@free.fr> a écrit dans le message
de news: ONIpYMToHHA.4960@TK2MSFTNGP02.phx.gbl...
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" <michel.voirain@wanadoo.fr> a écrit dans le message de
news: OKXs%23AToHHA.4192@TK2MSFTNGP06.phx.gbl...
| 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, 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]" a écrit dans le message 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" a écrit dans le message de 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]
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" a écrit dans le message de 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
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" <michel.voirain@wanadoo.fr> a écrit dans le message de
news: e5BWthUoHHA.4900@TK2MSFTNGP05.phx.gbl...
| 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
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" a écrit dans le message de 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
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]" a écrit dans le message 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" a écrit dans le message de 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
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]" <xyzofficesystem.accessxyz@free.fr> a écrit dans le message
de news: %23TgUKvVoHHA.4132@TK2MSFTNGP02.phx.gbl...
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" <michel.voirain@wanadoo.fr> a écrit dans le message de
news: e5BWthUoHHA.4900@TK2MSFTNGP05.phx.gbl...
| 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
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]" a écrit dans le message 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" a écrit dans le message de 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
