Celle qui suit fonctionne (DELETE)
Dim SQL As String
SQL = "DELETE [Réfs contrat Airbus].* " & _
"FROM [Réfs contrat Airbus]"
DoCmd.RunSQL SQL
J'en ai crée une seconde à l'identique avec SELECT
Dim SQL As String
SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire " & _
"FROM [Suivi OF-ZPP11]"
DoCmd.RunSQL SQL
Cette fois j'ai un message
Une action ExecuterSQL nécessite un argument consistant en une instruction
SQL
Pourquoi ?
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
Michel__D
Bonjour,
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de news:
Bonjour,
Je souhaite effectuer une requête SQL sous VBA.
Celle qui suit fonctionne (DELETE) Dim SQL As String SQL = "DELETE [Réfs contrat Airbus].* " & _ "FROM [Réfs contrat Airbus]" DoCmd.RunSQL SQL
J'en ai crée une seconde à l'identique avec SELECT Dim SQL As String SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire " & _ "FROM [Suivi OF-ZPP11]" DoCmd.RunSQL SQL Cette fois j'ai un message Une action ExecuterSQL nécessite un argument consistant en une instruction SQL Pourquoi ?
Que cherche-tu as faire ?
PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le code utilisé n'est pas approprié.
Bonjour,
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de news:e8mk1GbOJHA.588@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je souhaite effectuer une requête SQL sous VBA.
Celle qui suit fonctionne (DELETE)
Dim SQL As String
SQL = "DELETE [Réfs contrat Airbus].* " & _
"FROM [Réfs contrat Airbus]"
DoCmd.RunSQL SQL
J'en ai crée une seconde à l'identique avec SELECT
Dim SQL As String
SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire " & _
"FROM [Suivi OF-ZPP11]"
DoCmd.RunSQL SQL
Cette fois j'ai un message
Une action ExecuterSQL nécessite un argument consistant en une instruction
SQL
Pourquoi ?
Que cherche-tu as faire ?
PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le code
utilisé n'est pas approprié.
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de news:
Bonjour,
Je souhaite effectuer une requête SQL sous VBA.
Celle qui suit fonctionne (DELETE) Dim SQL As String SQL = "DELETE [Réfs contrat Airbus].* " & _ "FROM [Réfs contrat Airbus]" DoCmd.RunSQL SQL
J'en ai crée une seconde à l'identique avec SELECT Dim SQL As String SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire " & _ "FROM [Suivi OF-ZPP11]" DoCmd.RunSQL SQL Cette fois j'ai un message Une action ExecuterSQL nécessite un argument consistant en une instruction SQL Pourquoi ?
Que cherche-tu as faire ?
PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le code utilisé n'est pas approprié.
RENAUD Eric
Bonjour, J'ai quelque peu avancé. On m'a dit que la commande ExecuteSQL ne s'applique qu'aux requêtes Action. J'ai modifié mon code
Dim SQL As String Dim rs As Recordset
SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].[Gestionnaire] " & _ "FROM [Suivi OF-ZPP11]" Set Db = CurrentDb() Set rs = CurrentDb.OpenRecordset(SQL)
et là je sais qu'il fonctionne car j'ai fait un test avec le code suivant pour voir dans la fen^tre d'exécution With rs Do While Not .EOF Debug.Print , .Fields(0), .Fields(1) .MoveNext Loop End With
Par contre je ne sais pas comment afficher le recordset comme je le ferais avec une requête Sélection standard D'avance merci
"Michel__D" a écrit dans le message de news: ge9fee$gan$
Bonjour,
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de news:
Bonjour,
Je souhaite effectuer une requête SQL sous VBA.
Celle qui suit fonctionne (DELETE) Dim SQL As String SQL = "DELETE [Réfs contrat Airbus].* " & _ "FROM [Réfs contrat Airbus]" DoCmd.RunSQL SQL
J'en ai crée une seconde à l'identique avec SELECT Dim SQL As String SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire " & _ "FROM [Suivi OF-ZPP11]" DoCmd.RunSQL SQL Cette fois j'ai un message Une action ExecuterSQL nécessite un argument consistant en une instruction SQL Pourquoi ?
Que cherche-tu as faire ?
PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le code utilisé n'est pas approprié.
Bonjour,
J'ai quelque peu avancé.
On m'a dit que la commande ExecuteSQL ne s'applique qu'aux requêtes Action.
J'ai modifié mon code
Dim SQL As String
Dim rs As Recordset
SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].[Gestionnaire]
" & _
"FROM [Suivi OF-ZPP11]"
Set Db = CurrentDb()
Set rs = CurrentDb.OpenRecordset(SQL)
et là je sais qu'il fonctionne car j'ai fait un test avec le code suivant
pour voir dans la fen^tre d'exécution
With rs
Do While Not .EOF
Debug.Print , .Fields(0), .Fields(1)
.MoveNext
Loop
End With
Par contre je ne sais pas comment afficher le recordset comme je le ferais
avec une requête Sélection standard
D'avance merci
"Michel__D" <michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message de
news: ge9fee$gan$1@news.rd.francetelecom.fr...
Bonjour,
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
news:e8mk1GbOJHA.588@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je souhaite effectuer une requête SQL sous VBA.
Celle qui suit fonctionne (DELETE)
Dim SQL As String
SQL = "DELETE [Réfs contrat Airbus].* " & _
"FROM [Réfs contrat Airbus]"
DoCmd.RunSQL SQL
J'en ai crée une seconde à l'identique avec SELECT
Dim SQL As String
SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire " &
_
"FROM [Suivi OF-ZPP11]"
DoCmd.RunSQL SQL
Cette fois j'ai un message
Une action ExecuterSQL nécessite un argument consistant en une
instruction
SQL
Pourquoi ?
Que cherche-tu as faire ?
PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le
code
utilisé n'est pas approprié.
Bonjour, J'ai quelque peu avancé. On m'a dit que la commande ExecuteSQL ne s'applique qu'aux requêtes Action. J'ai modifié mon code
Dim SQL As String Dim rs As Recordset
SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].[Gestionnaire] " & _ "FROM [Suivi OF-ZPP11]" Set Db = CurrentDb() Set rs = CurrentDb.OpenRecordset(SQL)
et là je sais qu'il fonctionne car j'ai fait un test avec le code suivant pour voir dans la fen^tre d'exécution With rs Do While Not .EOF Debug.Print , .Fields(0), .Fields(1) .MoveNext Loop End With
Par contre je ne sais pas comment afficher le recordset comme je le ferais avec une requête Sélection standard D'avance merci
"Michel__D" a écrit dans le message de news: ge9fee$gan$
Bonjour,
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de news:
Bonjour,
Je souhaite effectuer une requête SQL sous VBA.
Celle qui suit fonctionne (DELETE) Dim SQL As String SQL = "DELETE [Réfs contrat Airbus].* " & _ "FROM [Réfs contrat Airbus]" DoCmd.RunSQL SQL
J'en ai crée une seconde à l'identique avec SELECT Dim SQL As String SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire " & _ "FROM [Suivi OF-ZPP11]" DoCmd.RunSQL SQL Cette fois j'ai un message Une action ExecuterSQL nécessite un argument consistant en une instruction SQL Pourquoi ?
Que cherche-tu as faire ?
PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le code utilisé n'est pas approprié.
Michel__D
re,
Essaye avec ce qui suit.
SQL = "SELECT [N° OF], [Gestionnaire] FROM [Suivi OF-ZPP11];" Set oQry = CurrentDb().CreateQueryDef("rQryTmp", SQL) DoCmd.OpenQuery "rQryTmp"
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de news:Oe61%
Bonjour, J'ai quelque peu avancé. On m'a dit que la commande ExecuteSQL ne s'applique qu'aux requêtes Action. J'ai modifié mon code
Dim SQL As String Dim rs As Recordset
SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].[Gestionnaire] " & _ "FROM [Suivi OF-ZPP11]" Set Db = CurrentDb() Set rs = CurrentDb.OpenRecordset(SQL)
et là je sais qu'il fonctionne car j'ai fait un test avec le code suivant pour voir dans la fen^tre d'exécution With rs Do While Not .EOF Debug.Print , .Fields(0), .Fields(1) .MoveNext Loop End With
Par contre je ne sais pas comment afficher le recordset comme je le ferais avec une requête Sélection standard D'avance merci
"Michel__D" a écrit dans le message de news: ge9fee$gan$ > Bonjour, > > "RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de > news: >> Bonjour, >> >> Je souhaite effectuer une requête SQL sous VBA. >> >> Celle qui suit fonctionne (DELETE) >> Dim SQL As String >> SQL = "DELETE [Réfs contrat Airbus].* " & _ >> "FROM [Réfs contrat Airbus]" >> DoCmd.RunSQL SQL >> >> J'en ai crée une seconde à l'identique avec SELECT >> Dim SQL As String >> SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire " & >> _ >> "FROM [Suivi OF-ZPP11]" >> DoCmd.RunSQL SQL >> Cette fois j'ai un message >> Une action ExecuterSQL nécessite un argument consistant en une >> instruction >> SQL >> Pourquoi ? > > Que cherche-tu as faire ? > > PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le > code > utilisé n'est pas approprié. >
re,
Essaye avec ce qui suit.
SQL = "SELECT [N° OF], [Gestionnaire] FROM [Suivi OF-ZPP11];"
Set oQry = CurrentDb().CreateQueryDef("rQryTmp", SQL)
DoCmd.OpenQuery "rQryTmp"
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de news:Oe61%23ScOJHA.2912@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai quelque peu avancé.
On m'a dit que la commande ExecuteSQL ne s'applique qu'aux requêtes Action.
J'ai modifié mon code
Dim SQL As String
Dim rs As Recordset
SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].[Gestionnaire]
" & _
"FROM [Suivi OF-ZPP11]"
Set Db = CurrentDb()
Set rs = CurrentDb.OpenRecordset(SQL)
et là je sais qu'il fonctionne car j'ai fait un test avec le code suivant
pour voir dans la fen^tre d'exécution
With rs
Do While Not .EOF
Debug.Print , .Fields(0), .Fields(1)
.MoveNext
Loop
End With
Par contre je ne sais pas comment afficher le recordset comme je le ferais
avec une requête Sélection standard
D'avance merci
"Michel__D" <michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message de
news: ge9fee$gan$1@news.rd.francetelecom.fr...
> Bonjour,
>
> "RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
> news:e8mk1GbOJHA.588@TK2MSFTNGP06.phx.gbl...
>> Bonjour,
>>
>> Je souhaite effectuer une requête SQL sous VBA.
>>
>> Celle qui suit fonctionne (DELETE)
>> Dim SQL As String
>> SQL = "DELETE [Réfs contrat Airbus].* " & _
>> "FROM [Réfs contrat Airbus]"
>> DoCmd.RunSQL SQL
>>
>> J'en ai crée une seconde à l'identique avec SELECT
>> Dim SQL As String
>> SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire " &
>> _
>> "FROM [Suivi OF-ZPP11]"
>> DoCmd.RunSQL SQL
>> Cette fois j'ai un message
>> Une action ExecuterSQL nécessite un argument consistant en une
>> instruction
>> SQL
>> Pourquoi ?
>
> Que cherche-tu as faire ?
>
> PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le
> code
> utilisé n'est pas approprié.
>
SQL = "SELECT [N° OF], [Gestionnaire] FROM [Suivi OF-ZPP11];" Set oQry = CurrentDb().CreateQueryDef("rQryTmp", SQL) DoCmd.OpenQuery "rQryTmp"
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de news:Oe61%
Bonjour, J'ai quelque peu avancé. On m'a dit que la commande ExecuteSQL ne s'applique qu'aux requêtes Action. J'ai modifié mon code
Dim SQL As String Dim rs As Recordset
SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].[Gestionnaire] " & _ "FROM [Suivi OF-ZPP11]" Set Db = CurrentDb() Set rs = CurrentDb.OpenRecordset(SQL)
et là je sais qu'il fonctionne car j'ai fait un test avec le code suivant pour voir dans la fen^tre d'exécution With rs Do While Not .EOF Debug.Print , .Fields(0), .Fields(1) .MoveNext Loop End With
Par contre je ne sais pas comment afficher le recordset comme je le ferais avec une requête Sélection standard D'avance merci
"Michel__D" a écrit dans le message de news: ge9fee$gan$ > Bonjour, > > "RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de > news: >> Bonjour, >> >> Je souhaite effectuer une requête SQL sous VBA. >> >> Celle qui suit fonctionne (DELETE) >> Dim SQL As String >> SQL = "DELETE [Réfs contrat Airbus].* " & _ >> "FROM [Réfs contrat Airbus]" >> DoCmd.RunSQL SQL >> >> J'en ai crée une seconde à l'identique avec SELECT >> Dim SQL As String >> SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire " & >> _ >> "FROM [Suivi OF-ZPP11]" >> DoCmd.RunSQL SQL >> Cette fois j'ai un message >> Une action ExecuterSQL nécessite un argument consistant en une >> instruction >> SQL >> Pourquoi ? > > Que cherche-tu as faire ? > > PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le > code > utilisé n'est pas approprié. >
RENAUD Eric
Bonjour, C'est super, ça fonctionne. J'ai rajouté au début le code Db.Execute ("DROP TABLE rQryTmp") pour effacer la table rQRYTmp Encore merci
"Michel__D" a écrit dans le message de news: ge9n00$if7$
re,
Essaye avec ce qui suit.
SQL = "SELECT [N° OF], [Gestionnaire] FROM [Suivi OF-ZPP11];" Set oQry = CurrentDb().CreateQueryDef("rQryTmp", SQL) DoCmd.OpenQuery "rQryTmp"
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de news:Oe61%
Bonjour, J'ai quelque peu avancé. On m'a dit que la commande ExecuteSQL ne s'applique qu'aux requêtes Action. J'ai modifié mon code
Dim SQL As String Dim rs As Recordset
SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].[Gestionnaire] " & _ "FROM [Suivi OF-ZPP11]" Set Db = CurrentDb() Set rs = CurrentDb.OpenRecordset(SQL)
et là je sais qu'il fonctionne car j'ai fait un test avec le code suivant pour voir dans la fen^tre d'exécution With rs Do While Not .EOF Debug.Print , .Fields(0), .Fields(1) .MoveNext Loop End With
Par contre je ne sais pas comment afficher le recordset comme je le ferais avec une requête Sélection standard D'avance merci
"Michel__D" a écrit dans le message de news: ge9fee$gan$ > Bonjour, > > "RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message > de > news: >> Bonjour, >> >> Je souhaite effectuer une requête SQL sous VBA. >> >> Celle qui suit fonctionne (DELETE) >> Dim SQL As String >> SQL = "DELETE [Réfs contrat Airbus].* " & _ >> "FROM [Réfs contrat Airbus]" >> DoCmd.RunSQL SQL >> >> J'en ai crée une seconde à l'identique avec SELECT >> Dim SQL As String >> SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire >> " & >> _ >> "FROM [Suivi OF-ZPP11]" >> DoCmd.RunSQL SQL >> Cette fois j'ai un message >> Une action ExecuterSQL nécessite un argument consistant en une >> instruction >> SQL >> Pourquoi ? > > Que cherche-tu as faire ? > > PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le > code > utilisé n'est pas approprié. >
Bonjour,
C'est super, ça fonctionne.
J'ai rajouté au début le code
Db.Execute ("DROP TABLE rQryTmp")
pour effacer la table rQRYTmp
Encore merci
"Michel__D" <michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message de
news: ge9n00$if7$1@news.rd.francetelecom.fr...
re,
Essaye avec ce qui suit.
SQL = "SELECT [N° OF], [Gestionnaire] FROM [Suivi OF-ZPP11];"
Set oQry = CurrentDb().CreateQueryDef("rQryTmp", SQL)
DoCmd.OpenQuery "rQryTmp"
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
news:Oe61%23ScOJHA.2912@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai quelque peu avancé.
On m'a dit que la commande ExecuteSQL ne s'applique qu'aux requêtes
Action.
J'ai modifié mon code
Dim SQL As String
Dim rs As Recordset
SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi
OF-ZPP11].[Gestionnaire]
" & _
"FROM [Suivi OF-ZPP11]"
Set Db = CurrentDb()
Set rs = CurrentDb.OpenRecordset(SQL)
et là je sais qu'il fonctionne car j'ai fait un test avec le code suivant
pour voir dans la fen^tre d'exécution
With rs
Do While Not .EOF
Debug.Print , .Fields(0), .Fields(1)
.MoveNext
Loop
End With
Par contre je ne sais pas comment afficher le recordset comme je le
ferais
avec une requête Sélection standard
D'avance merci
"Michel__D" <michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message
de
news: ge9fee$gan$1@news.rd.francetelecom.fr...
> Bonjour,
>
> "RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message
> de
> news:e8mk1GbOJHA.588@TK2MSFTNGP06.phx.gbl...
>> Bonjour,
>>
>> Je souhaite effectuer une requête SQL sous VBA.
>>
>> Celle qui suit fonctionne (DELETE)
>> Dim SQL As String
>> SQL = "DELETE [Réfs contrat Airbus].* " & _
>> "FROM [Réfs contrat Airbus]"
>> DoCmd.RunSQL SQL
>>
>> J'en ai crée une seconde à l'identique avec SELECT
>> Dim SQL As String
>> SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire
>> " &
>> _
>> "FROM [Suivi OF-ZPP11]"
>> DoCmd.RunSQL SQL
>> Cette fois j'ai un message
>> Une action ExecuterSQL nécessite un argument consistant en une
>> instruction
>> SQL
>> Pourquoi ?
>
> Que cherche-tu as faire ?
>
> PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le
> code
> utilisé n'est pas approprié.
>
Bonjour, C'est super, ça fonctionne. J'ai rajouté au début le code Db.Execute ("DROP TABLE rQryTmp") pour effacer la table rQRYTmp Encore merci
"Michel__D" a écrit dans le message de news: ge9n00$if7$
re,
Essaye avec ce qui suit.
SQL = "SELECT [N° OF], [Gestionnaire] FROM [Suivi OF-ZPP11];" Set oQry = CurrentDb().CreateQueryDef("rQryTmp", SQL) DoCmd.OpenQuery "rQryTmp"
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de news:Oe61%
Bonjour, J'ai quelque peu avancé. On m'a dit que la commande ExecuteSQL ne s'applique qu'aux requêtes Action. J'ai modifié mon code
Dim SQL As String Dim rs As Recordset
SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].[Gestionnaire] " & _ "FROM [Suivi OF-ZPP11]" Set Db = CurrentDb() Set rs = CurrentDb.OpenRecordset(SQL)
et là je sais qu'il fonctionne car j'ai fait un test avec le code suivant pour voir dans la fen^tre d'exécution With rs Do While Not .EOF Debug.Print , .Fields(0), .Fields(1) .MoveNext Loop End With
Par contre je ne sais pas comment afficher le recordset comme je le ferais avec une requête Sélection standard D'avance merci
"Michel__D" a écrit dans le message de news: ge9fee$gan$ > Bonjour, > > "RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message > de > news: >> Bonjour, >> >> Je souhaite effectuer une requête SQL sous VBA. >> >> Celle qui suit fonctionne (DELETE) >> Dim SQL As String >> SQL = "DELETE [Réfs contrat Airbus].* " & _ >> "FROM [Réfs contrat Airbus]" >> DoCmd.RunSQL SQL >> >> J'en ai crée une seconde à l'identique avec SELECT >> Dim SQL As String >> SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire >> " & >> _ >> "FROM [Suivi OF-ZPP11]" >> DoCmd.RunSQL SQL >> Cette fois j'ai un message >> Une action ExecuterSQL nécessite un argument consistant en une >> instruction >> SQL >> Pourquoi ? > > Que cherche-tu as faire ? > > PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le > code > utilisé n'est pas approprié. >
Michel__D
Si la requête existe déja au lieu de la supprimer et de la recréer, on peut utiliser ceci :
SQL = "SELECT [N° OF], [Gestionnaire] FROM [Suivi OF-ZPP11];" Set oQry = CurrentDb().QueryDefs("rQryTmp") oQry.SQL = SQL DoCmd.OpenQuery "rQryTmp" Set oQry = Nothing
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de news:%
Bonjour, C'est super, ça fonctionne. J'ai rajouté au début le code Db.Execute ("DROP TABLE rQryTmp") pour effacer la table rQRYTmp Encore merci
"Michel__D" a écrit dans le message de news: ge9n00$if7$ > re, > > Essaye avec ce qui suit. > > SQL = "SELECT [N° OF], [Gestionnaire] FROM [Suivi OF-ZPP11];" > Set oQry = CurrentDb().CreateQueryDef("rQryTmp", SQL) > DoCmd.OpenQuery "rQryTmp" > > > "RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de > news:Oe61% >> Bonjour, >> J'ai quelque peu avancé. >> On m'a dit que la commande ExecuteSQL ne s'applique qu'aux requêtes >> Action. >> J'ai modifié mon code >> >> Dim SQL As String >> Dim rs As Recordset >> >> SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi >> OF-ZPP11].[Gestionnaire] >> " & _ >> "FROM [Suivi OF-ZPP11]" >> Set Db = CurrentDb() >> Set rs = CurrentDb.OpenRecordset(SQL) >> >> et là je sais qu'il fonctionne car j'ai fait un test avec le code suivant >> pour voir dans la fen^tre d'exécution >> With rs >> Do While Not .EOF >> Debug.Print , .Fields(0), .Fields(1) >> .MoveNext >> Loop >> End With >> >> Par contre je ne sais pas comment afficher le recordset comme je le >> ferais >> avec une requête Sélection standard >> D'avance merci >> >> >> "Michel__D" a écrit dans le message >> de >> news: ge9fee$gan$ >> > Bonjour, >> > >> > "RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message >> > de >> > news: >> >> Bonjour, >> >> >> >> Je souhaite effectuer une requête SQL sous VBA. >> >> >> >> Celle qui suit fonctionne (DELETE) >> >> Dim SQL As String >> >> SQL = "DELETE [Réfs contrat Airbus].* " & _ >> >> "FROM [Réfs contrat Airbus]" >> >> DoCmd.RunSQL SQL >> >> >> >> J'en ai crée une seconde à l'identique avec SELECT >> >> Dim SQL As String >> >> SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire >> >> " & >> >> _ >> >> "FROM [Suivi OF-ZPP11]" >> >> DoCmd.RunSQL SQL >> >> Cette fois j'ai un message >> >> Une action ExecuterSQL nécessite un argument consistant en une >> >> instruction >> >> SQL >> >> Pourquoi ? >> > >> > Que cherche-tu as faire ? >> > >> > PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le >> > code >> > utilisé n'est pas approprié. >> > >> >> >
Si la requête existe déja au lieu de la supprimer et de la recréer, on peut utiliser ceci :
SQL = "SELECT [N° OF], [Gestionnaire] FROM [Suivi OF-ZPP11];"
Set oQry = CurrentDb().QueryDefs("rQryTmp")
oQry.SQL = SQL
DoCmd.OpenQuery "rQryTmp"
Set oQry = Nothing
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de news:%23qt1H4cOJHA.3580@TK2MSFTNGP03.phx.gbl...
Bonjour,
C'est super, ça fonctionne.
J'ai rajouté au début le code
Db.Execute ("DROP TABLE rQryTmp")
pour effacer la table rQRYTmp
Encore merci
"Michel__D" <michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message de
news: ge9n00$if7$1@news.rd.francetelecom.fr...
> re,
>
> Essaye avec ce qui suit.
>
> SQL = "SELECT [N° OF], [Gestionnaire] FROM [Suivi OF-ZPP11];"
> Set oQry = CurrentDb().CreateQueryDef("rQryTmp", SQL)
> DoCmd.OpenQuery "rQryTmp"
>
>
> "RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
> news:Oe61%23ScOJHA.2912@TK2MSFTNGP03.phx.gbl...
>> Bonjour,
>> J'ai quelque peu avancé.
>> On m'a dit que la commande ExecuteSQL ne s'applique qu'aux requêtes
>> Action.
>> J'ai modifié mon code
>>
>> Dim SQL As String
>> Dim rs As Recordset
>>
>> SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi
>> OF-ZPP11].[Gestionnaire]
>> " & _
>> "FROM [Suivi OF-ZPP11]"
>> Set Db = CurrentDb()
>> Set rs = CurrentDb.OpenRecordset(SQL)
>>
>> et là je sais qu'il fonctionne car j'ai fait un test avec le code suivant
>> pour voir dans la fen^tre d'exécution
>> With rs
>> Do While Not .EOF
>> Debug.Print , .Fields(0), .Fields(1)
>> .MoveNext
>> Loop
>> End With
>>
>> Par contre je ne sais pas comment afficher le recordset comme je le
>> ferais
>> avec une requête Sélection standard
>> D'avance merci
>>
>>
>> "Michel__D" <michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message
>> de
>> news: ge9fee$gan$1@news.rd.francetelecom.fr...
>> > Bonjour,
>> >
>> > "RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message
>> > de
>> > news:e8mk1GbOJHA.588@TK2MSFTNGP06.phx.gbl...
>> >> Bonjour,
>> >>
>> >> Je souhaite effectuer une requête SQL sous VBA.
>> >>
>> >> Celle qui suit fonctionne (DELETE)
>> >> Dim SQL As String
>> >> SQL = "DELETE [Réfs contrat Airbus].* " & _
>> >> "FROM [Réfs contrat Airbus]"
>> >> DoCmd.RunSQL SQL
>> >>
>> >> J'en ai crée une seconde à l'identique avec SELECT
>> >> Dim SQL As String
>> >> SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire
>> >> " &
>> >> _
>> >> "FROM [Suivi OF-ZPP11]"
>> >> DoCmd.RunSQL SQL
>> >> Cette fois j'ai un message
>> >> Une action ExecuterSQL nécessite un argument consistant en une
>> >> instruction
>> >> SQL
>> >> Pourquoi ?
>> >
>> > Que cherche-tu as faire ?
>> >
>> > PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le
>> > code
>> > utilisé n'est pas approprié.
>> >
>>
>>
>
Si la requête existe déja au lieu de la supprimer et de la recréer, on peut utiliser ceci :
SQL = "SELECT [N° OF], [Gestionnaire] FROM [Suivi OF-ZPP11];" Set oQry = CurrentDb().QueryDefs("rQryTmp") oQry.SQL = SQL DoCmd.OpenQuery "rQryTmp" Set oQry = Nothing
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de news:%
Bonjour, C'est super, ça fonctionne. J'ai rajouté au début le code Db.Execute ("DROP TABLE rQryTmp") pour effacer la table rQRYTmp Encore merci
"Michel__D" a écrit dans le message de news: ge9n00$if7$ > re, > > Essaye avec ce qui suit. > > SQL = "SELECT [N° OF], [Gestionnaire] FROM [Suivi OF-ZPP11];" > Set oQry = CurrentDb().CreateQueryDef("rQryTmp", SQL) > DoCmd.OpenQuery "rQryTmp" > > > "RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de > news:Oe61% >> Bonjour, >> J'ai quelque peu avancé. >> On m'a dit que la commande ExecuteSQL ne s'applique qu'aux requêtes >> Action. >> J'ai modifié mon code >> >> Dim SQL As String >> Dim rs As Recordset >> >> SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi >> OF-ZPP11].[Gestionnaire] >> " & _ >> "FROM [Suivi OF-ZPP11]" >> Set Db = CurrentDb() >> Set rs = CurrentDb.OpenRecordset(SQL) >> >> et là je sais qu'il fonctionne car j'ai fait un test avec le code suivant >> pour voir dans la fen^tre d'exécution >> With rs >> Do While Not .EOF >> Debug.Print , .Fields(0), .Fields(1) >> .MoveNext >> Loop >> End With >> >> Par contre je ne sais pas comment afficher le recordset comme je le >> ferais >> avec une requête Sélection standard >> D'avance merci >> >> >> "Michel__D" a écrit dans le message >> de >> news: ge9fee$gan$ >> > Bonjour, >> > >> > "RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message >> > de >> > news: >> >> Bonjour, >> >> >> >> Je souhaite effectuer une requête SQL sous VBA. >> >> >> >> Celle qui suit fonctionne (DELETE) >> >> Dim SQL As String >> >> SQL = "DELETE [Réfs contrat Airbus].* " & _ >> >> "FROM [Réfs contrat Airbus]" >> >> DoCmd.RunSQL SQL >> >> >> >> J'en ai crée une seconde à l'identique avec SELECT >> >> Dim SQL As String >> >> SQL = "SELECT [Suivi OF-ZPP11].[N° OF], [Suivi OF-ZPP11].Gestionnaire >> >> " & >> >> _ >> >> "FROM [Suivi OF-ZPP11]" >> >> DoCmd.RunSQL SQL >> >> Cette fois j'ai un message >> >> Une action ExecuterSQL nécessite un argument consistant en une >> >> instruction >> >> SQL >> >> Pourquoi ? >> > >> > Que cherche-tu as faire ? >> > >> > PS:Une requête selection sert à renvoyer un jeu d'enregistrements et le >> > code >> > utilisé n'est pas approprié. >> > >> >> >
