title: "Save as..." dialog box in MSAccess vba: how?
body: <p>In MSAccess I've a mask with a button. When the user clicks on the button, the data in a table are exported on a .txt file:</p>
  
  <pre><code>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 &lt;&gt; "ID") Then
              TempStr = TempStr &amp; AField.value &amp; "    "
          End If
      Next
      Print #FileNumber, Left(TempStr, Len(TempStr) - 1)
      TempStr = ""
      Rst.MoveNext
  Loop
  Rst.Close
  Set Rst = Nothing
  Close #FileNumber
  End Sub
  </code></pre>
  
  <p>It works, but I would display a "Save as..." dialog box by allowing the user to choose the file on which export the data. </p>
  
  <p>Is it possible?  </p>