User Prompt for multiple Files

[ratherbgolfing]

I have code that exports queries and appends the current date to the file name. What I need is instead of the current date I need to prompt the user once for a date then insert that date into each function. I have several individual functions that run the same process but use different filenames and paths to save the files. All I need is to append the file name with whatever date the user inputs. Any help would be great!!! Below is my current code for one export function.

Public Function ASM()

Dim Current_Date As String

Dim File_Name As String

Current_Date = Format$(Now(), "yyyy\-mm\-dd")

File_Name = "G:/JV/ASM-" + Current_Date + ".txt"

DoCmd.TransferText acExportDelim, "ASM Export Spec", "ASM", [File_Name]

End Function

[June7]

Why 4 separate Functions (and not Subs)? If you always run these 4 exports every time, can they all be in one Sub?

You can use an InputBox function, something like:

                 
         Current_Date = InputBox("Enter date.", "Date Input", Date())
         If Current_Date = vbCancel Then
               'do nothing, user canceled procedure
         ElseIf Not IsDate(Current_Date) Then
               MsgBox "Not an appropriate entry. Procedure canceled.", "Entry Error" 
         Else
               File_Name = "G:/JV/ASM-" + Current_Date + ".txt"
               DoCmd.TransferText acExportDelim, "ASM Export Spec", "ASM", [File_Name]
               'and the other 3 exports as well?
         End If

Or have user input to a textbox on form and refer to the control for the criteria.