Importing using VB not manual import - vba

Question

I currently know how to import these files manually, but I am looking to execute a vb code through my import button to do it automatically. There is a field linked to the import button which requires you to enter a date and click import. Once import is clicked, I would like it to grab a file based on the date that is on the files name.
These files are text files and the file names are written in two types of format:
1st Format - P.RR1234.ABCDEF.D160112.T123456
2nd Format - G1234.ABCDEF.D160112.T123456
Here is my vb code for my current form (I currently have it mapped to my desktop but there are 100's of files located on a network/shared path that are in the format):
Option Compare Database
Private Sub cmdImport_Click()
On Error GoTo Click_Err
If Nz(txtReportDate, "") = "" Then
MsgBox "NOTICE! Please enter the Report Month you wish to Import."
Else
Dim rs As Recordset
Dim sql As String
'Loop through recordset of all Contracts and import files
sql = "SELECT DISTINCT FROM AAAAB_CE"
Set rs = CurrentDb.OpenRecordset(sql)
rs.MoveLast
rs.MoveFirst
If rs.RecordCount > 0 Then
Do While rs.EOF = False
ImportFile rs!DISTINCT
rs.MoveNext
Loop
End If
DoCmd.Hourglass True
DoCmd.SetWarnings False
DoCmd.Hourglass False
DoCmd.SetWarnings True
MsgBox "Finished Importing!"
DoCmd.OpenQuery "query_Files_Loaded_CE", acViewNormal, acReadOnly
click_Exit:
DoCmd.Hourglass False
DoCmd.SetWarnings True
Exit Sub
Click_Err:
DoCmd.Hourglass False
MsgBox "Error Detected: " & Err.Number & " - " & Err.Description, vbCritical, "Error"
Resume click_Exit
Exit Sub
End If
End Sub
Module:
Option Explicit
Option Compare Database
Public Function ImportFile(Contract As String)
DoCmd.TransferText acImportFixed, "123_Files", "AAAAB_CE", "C:\Users\123456\Desktop\TestingFolder\test.txt", False
End Function
I am trying to import these text files into one table. There are a lot of files, so manually would be insufficient.
Currently, if I put in a random date on the form text date and click import. It imports the file I select, but in a completely wrong format. Which is weird because the specification I saved was done in the correct format.
All in all I am trying to accomplish three things.
1) Import automatically by entering a date in a field on form (the date will be part of the file name) and clicking the import buton
2) Import the text file in the correct structure, fixed columns
3) If an incorrect date is entered, do not import anything.

Answer 1

I couldn't troubleshoot this code without knowing the date format used in the txt files and the files themselves, but this is how I would attack it:
use Dir to loop through the files at specified folder location searching for .txt files that contains the date,
then calling your ImportFile function (which is really a sub no?) by passing the filename.
Hopefully enough there for you to follow the logic..
Public Sub sampleSub()
Dim dirStr As String
Dim filePath As String
Dim fileDate As Date
filePath = "C:\Users\123456\Desktop\TestingFolder\"
On Error GoTo doNothing:
fileDate = DateValue(InputBox("NOTICE! Please enter the Report Month you wish to Import."))
dirStr = Dir(filePath & "\" & "*" * Format(fileDate, "FileDateFormat") & "*" & ".txt")
Do Until dirStr = ""
Call ImportFile(dirStr)
Loop
Exit Sub
doNothing:
Call MsgBox("Error Detected: " & Err.Number & " - " & Err.Description, vbCritical, "Error")
End Sub
Public Sub ImportFile(fileName As String)
Call DoCmd.TransferText(acImportFixed, "123_Files", "AAAAB_CE", fileName, False)
End Sub
Hope this helps,
TheSilkCode