Discussion :

[xtian_Québec]

Bonjour le Forum,

Je suis débutant avec access donc nouveau sur ce forum. Je développe depuis plusieurs années avec Excel et je viens de découvrir MsAcces...Je n'étais pas assez confiant pour l'utiliser mais je viens de découvrir un outil merveilleux...

J'ai préparé une requête à partir d'Excel pour interroger ma base de données mais la requête me retourne toujours la même valeur

Lors de la création de ma requête, il n'y avait qu'un seul record donc ma requête m'a retourné que cet enregistrement. Je suis en développement et j'ai actuellement 3 enregistrements qui ont des NoKeyRef unique.

J'aimerais ajouter un filtre dans ma requête pour sélectionner seulement le NoKeyRef choisi.

J'utilise le code ci-dessous que j'ai enregistré avec Excel et il me retourne toujours mon NoKeyRef = K-71222155321 alors que ma base contient 3 enregistrements K-71222155321 ,K-71222155357,K-71222155388.

Comment ajuster mon code (ou comment créer un nouveau code) pour récupérer des enregistrements selon la valeur désirée...

Dans ma feuille Excel, mon NoKeyRef se trouve dans la cellule C2

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
With ActiveSheet.QueryTables.Add(Connection:= _
        "FINDER;C:\APPS\TEAS\TEAS_Data\DQY\FlowToTTI.dqy", Destination:=Range("A1"))
 
        .Name = "FlowToTTI"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With

Merci d'aider un débutant
Xtian_Québec

[xtian_Québec]

Re le Forum,

Je cherche dans le forum, dans l'aide VBA et je sens que je suis proche mais il me manque un petit quelquechose que je ne saisie pas...

J'ai beau modifier mon code en suivant les infos trouvés dans mes recherches mais sans résultat...

Allon-y avec un premier cours de base:

Ce que je veux faire, c'est récupérer dans Excel un record de ma base de données selon un critère précis. J'ai créé les lignes suivantes avec des infos que j'ai trouvé avec l'option QueryTables.Add mais, la connection, le SQL, les paramêtres...je m'y perd...

Voici mon nouveau bout de code...qui ne fonctionne pas évidemment...

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
25
Sub test2()
Dim cn As ADODB.Connection
Dim RS As ADODB.Recordset
Dim strKey As String
Dim strSQL As String
    Set cn = New ADODB.Connection
        strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                    "C:\APPS\TEAS\TEAS_Data\TSOdB.mdb;"
    With cn
        .ConnectionString = strCnxn
        .Open
    End With
        strKey = Worksheets("TTI").Range("C2").Value
        strSQL = "SELECT * " & _
                 "FROM FlowToTTI " & _
                 "WHERE KeyRef = '" & CStr(strKey) & "'"
        With ActiveSheet.QueryTables.Add(Connection:=strCnxn, _
            Destination:=Range("A1"), Sql:=strSQL)
            .Refresh
        End With
        RS.Close
        Set RS = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Votre aide sera grandement appréciée.
Merci encore

Xtian_Québec