Discussion :

[jasonbecker]

Salut à tous,

Avec le code ci-dessous j'ai l'intention d'exporter les lignes de la base de donnée .mdb qui sont selectionnées à partir d'un Userform. Problème: le code s'arrete à la ligne:

Code :

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

Set ReqSET = dBase.OpenRecordset(ReqSQL, DAO.dbOpenSnapshot)

Merci pour votre aide!!!!

Le code complet:

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
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub ExportButton_Click()
 
Dim ReqSQL As String
Dim dBase As DAO.Database
Dim ReqSET As DAO.Recordset
 
Dim NameFund As Variant
Dim Title As Variant
NameFund = NameFundTxBox.Value
Title = Array("Name", "ISIN", "Manager", "Strategy")
 
ReqSQL = "SELECT * FROM Funds WHERE Name=" & NameFund
 
Set dBase = DAO.OpenDatabase("C:\Users\me\Desktop\Apps\Fund\FundBase.mdb", False, False)
Set ReqSET = dBase.OpenRecordset(ReqSQL, DAO.dbOpenSnapshot)
 
Workbooks.Add
With ActiveWorkbook
    .Range("A1").Value = Title(0)
    .Range("B1").Value = Title(1)
    .Range("C1").Value = Title(2)
    .Range("D1").Value = Title(3)
    .Range("A2").CopyFromRecordset ReqSQL
    .SaveAs ("C:\Users\me\Desktop\Apps\Fund\Selected Fund")
    .Close
End With
 
Set dBase = Nothing
Set ReqSET = Nothing
 
MSG = MsgBox("Your Data Has Been Exported" & vbNewLine & "Wanna do Other Stuff?", vbYesNo)
 
If MSG = vbNo Then
    UserForm1.Hide
End If
 
End Sub

[parmi]

Bonjour,

Essaie comme ceci si NameFund est une chaîne de caractères.
Les Strings doivent être "encadrées" d'apostrophes.

Code :

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

ReqSQL = "SELECT * FROM Funds WHERE Name='" & NameFund & "'"