Okno dialogowe „Zapisz jako…” w MSAccess vba: jak?
W MSAccess mam maskę z przyciskiem. Gdy użytkownik kliknie przycisk, dane w tabeli zostaną wyeksportowane do pliku .txt:
Private Sub Command_Click()
Dim Rst As DAO.Recordset
Dim AField As DAO.Field
Dim TempStr As String
Dim FileNumber
FileNumber = FreeFile
Open "c:\table.txt" For Output As #FileNumber
Set Rst = CurrentDb.OpenRecordset("Tabella1", dbOpenForwardOnly)
Do While Not Rst.EOF
For Each AField In Rst.Fields
If (AField.Name <> "ID") Then
TempStr = TempStr & AField.value & " "
End If
Next
Print #FileNumber, Left(TempStr, Len(TempStr) - 1)
TempStr = ""
Rst.MoveNext
Loop
Rst.Close
Set Rst = Nothing
Close #FileNumber
End Sub
Działa, ale wyświetlałbym okno dialogowe „Zapisz jako ...”, pozwalając użytkownikowi wybrać plik, na którym eksportowane są dane.
Czy to możliwe?