Discussion :

[david69680]

Bonjour,

J'ai l'habitude d'effectuer des requêtes avec des critères qui vont chercher des informations dans un champ sur un formulaire.
Maintenant j'ai besoin que cette requête utilise un nom de table issu d'un champ sur un formulaire.

La requête "fixe" :

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT dbo_ODCalls_2022_05.*
FROM dbo_ODCalls_2022_05

La requête "variable" qui ne fonctionne pas malheureusement :

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT 'dbo_ODCalls_'+'Formulaires![Test]![Date odcall].*
FROM 'dbo_ODCalls_'+'Formulaires![Test]![Date odcall];

J'ai aussi essayé avec " et &, mais rien non plus...

[hyperion13]

Salut
Une piste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strSQL = "SELECT * FROM [" & Me.tblName & "] WHERE ...."

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
strtblName = "tblSalarie"
strSQL = "SELECT * FROM " & strtblName

[david69680]

Pour simplifier j'ai mis le nom complet de la table dans un champ sur le formulaire, du coup voici la nouvelle requête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT *
FROM [Formulaires]![Test]![Date odcall];

Il a pas aimé la syntaxe...

[hyperion13]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
strSql = "SELECT * FROM [" & Me.Date_odcall & "];"
strSql = "SELECT * FROM " & Me.Date_odcall & ";"

[david69680]

Merci encore pour l'aide, mais je ne comprends pas le code, pouvez vous le remplacer par mes données, car je pense que j'ai un problème de syntaxe ?

Mon formulaire se nomme Test, et le champ qui contient le nom de la table se nomme [Date odcall], donc voici comment j'ai construit la requête :

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT *
FROM [Formulaires]![Test]![Date odcall];

[hyperion13]

En image
Mais si vous cherchez à construire une query en dur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Commande2_Click()
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSql As String
 
Set dbs = CurrentDb
 
For Each qdf In dbs.QueryDefs
    If qdf.Name = "qry_tmp" Then
        dbs.QueryDefs.Delete "qry_tmp"
        dbs.QueryDefs.Refresh
        Exit For
    End If
Next qdf
 
strSql = "SELECT * FROM " & Me.txttblName & ";"
 
Set qdf = dbs.CreateQueryDef("qry_tmp", strSql)
 
qdf.Close
Set qdf = Nothing
dbs.Close
Set dbs = Nothing
End Sub

[david69680]

En image

Maintenant je comprends : vous exécutez la requête en VB, et malheureusement je ne maitrise pas. Je vais quand même tenter de l'exploiter.

Ce que j'ai l'habitude de faire, c'est de créer des requête paramétrées depuis le mode création (ou mode sql), et on va chercher le paramètre depuis un formulaire.