Discussion :

[zoom61]

Salut,

Je voudrais savoir s'il est possible d'ouvrir le module de création de requête avec une table que l'on a sélectionnée dans une liste déroulante (mais qui ne sera pas toujours la même) ???
Car j'ai des tables qui contiennent beaucoup d'enregistrement et de colonnes donc je voudrai ne faire apparaître que certains champ avec des filtres.

Merci.

[argyronet]

Bonjour,

Est-ce qu'une procédure comme celle-ci répond à ta demande ?

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
Private Sub OpenQBE(ByVal TableName As String, ByVal FieldNames As String)
Const VOID_QUERY As String = "qry_Trucmuche"
Dim oQDF As DAO.QueryDef
Dim F As Integer
Dim SQLQuery As String
    On Error Resume Next
    Set oQDF = CurrentDb.QueryDefs(VOID_QUERY)
    If Err = 0 Then
        DoCmd.DeleteObject acQuery, VOID_QUERY
    End If
    SQLQuery = "SELECT " & FieldNames & " FROM " & TableName
    Set oQDF = CurrentDb.CreateQueryDef(VOID_QUERY, SQLQuery)
    Set oQDF = Nothing
    DoCmd.OpenQuery VOID_QUERY, acViewDesign
    DoCmd.Maximize
End Sub

Que tu utilises ainsi :

Code :

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

1
2
3
4
Private Sub Exemple()
''' § BDD les Comptoirs
    OpenQBE "Clients", "[Code client],[Société],[Ville],[Code postal]"
End Sub

Argy

[zoom61]

C'est tout à fait cela.
Merci.