My OS is windows 7, and the code below was submitted by one of the Gurus. I would like to modify it so that I will be asked if I want to export to a ASCII file or Just as the code is. If the response yes to the first Question, then could u please write me the code to export to a file.
Private Sub btnDistList_Click()
Dim rst As DAO.Recordset
Dim strDistList As String
Set rst = CurrentDb.OpenRecordset("Seniors Club")
Do While Not rst.EOF
strDistList = strDistList & rst!Email & ";"
strDistList = Left(strDistList, Len(strDistList) - 1)
Me.txtDistList = strDistList
Set rst = Nothing