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?

questionAnswers(2)

yourAnswerToTheQuestion