Getting Invalid Path when trying to Import File

[bconner]

Hi All,

I have a form setup for importing text files based on which check box is checked. I keep getting runtime error 3044 "invalid path"
I am using the UNC path for each file. Any idea where I am messing up?

Private Sub Command32_Click()
'When Check Box is Checked Import that Groups Transactions
If Me.Check0.Value = -1 Then
DoCmd.TransferText acImportDelim, "Transaction_Import", "Transaction_TextFile_Import", "[URL="file://\\ADDWDDTLS7B1\Transaction"]\\ADDWDDTLS7B1\Transaction[/URL] Files\GRP 4 TRANS.txt"
Else
If Me.Check1.Value = -1 Then
DoCmd.TransferText acImportDelim, "Transaction_Import", "Transaction_TextFile_Import", "[URL="file://\\ADDWDDTLS7B1\Transaction"]\\ADDWDDTLS7B1\Transaction[/URL] Files\GRP 5 TRANS.txt"
Else
If Me.Check2.Value = -1 Then
DoCmd.TransferText acImportDelim, "Transaction_Import", "Transaction_TextFile_Import", "[URL="file://\\ADDWDDTLS7B1\Transaction"]\\ADDWDDTLS7B1\Transaction[/URL] Files\GRP 7 TRANS.txt"
Else
If Me.Check3.Value = -1 Then
DoCmd.TransferText acImportDelim, "Transaction_Import", "Transaction_TextFile_Import", "[URL="file://\\ADDWDDTLS7B1\Transaction"]\\ADDWDDTLS7B1\Transaction[/URL] Files\GRP 8 TRANS.txt"
Else
If Me.Check4.Value = -1 Then
DoCmd.TransferText acImportDelim, "Transaction_Import", "Transaction_TextFile_Import", "[URL="file://\\ADDWDDTLS7B1\Transaction"]\\ADDWDDTLS7B1\Transaction[/URL] Files\GRP 11 TRANS.txt"
Else
If Me.Check5.Value = -1 Then
DoCmd.TransferText acImportDelim, "Transaction_Import", "Transaction_TextFile_Import", "[URL="file://\\ADDWDDTLS7B1\Transaction"]\\ADDWDDTLS7B1\Transaction[/URL] Files\GRP 12 TRANS.txt"
Else
'Import ALL AP Transactions. To prevent Duplicate Imports Uncheck Groups Individual Check Boxes
If Me.Check_All_AP_Transactions.Value = -1 Then
Me.Check0.Value = 0
Me.Check1.Value = 0
Me.Check2.Value = 0
Me.Check3.Value = 0
Me.Check4.Value = 0
Me.Check5.Value = 0
DoCmd.TransferText acImportDelim, "Transaction_Import", "Transaction_TextFile_Import", "[URL="file://\\ADDWDDTLS7B1\Transaction"]\\ADDWDDTLS7B1\Transaction[/URL] Files\GRP 4 TRANS.txt"
DoCmd.TransferText acImportDelim, "Transaction_Import", "Transaction_TextFile_Import", "[URL="file://\\ADDWDDTLS7B1\Transaction"]\\ADDWDDTLS7B1\Transaction[/URL] Files\GRP 5 TRANS.txt"
DoCmd.TransferText acImportDelim, "Transaction_Import", "Transaction_TextFile_Import", "[URL="file://\\ADDWDDTLS7B1\Transaction"]\\ADDWDDTLS7B1\Transaction[/URL] Files\GRP 7 TRANS.txt"
DoCmd.TransferText acImportDelim, "Transaction_Import", "Transaction_TextFile_Import", "[URL="file://\\ADDWDDTLS7B1\Transaction"]\\ADDWDDTLS7B1\Transaction[/URL] Files\GRP 8 TRANS.txt"
DoCmd.TransferText acImportDelim, "Transaction_Import", "Transaction_TextFile_Import", "[URL="file://\\ADDWDDTLS7B1\Transaction"]\\ADDWDDTLS7B1\Transaction[/URL] Files\GRP 11 TRANS.txt"
DoCmd.TransferText acImportDelim, "Transaction_Import", "Transaction_TextFile_Import", "[URL="file://\\ADDWDDTLS7B1\Transaction"]\\ADDWDDTLS7B1\Transaction[/URL] Files\GRP 12 TRANS.txt"
 
End If
End If
End If
End If
End If
End If
End If
 
End Sub

 

[boblarson]

Your UNC Path doesn't look correct. You appear to either have the share or the server but not both. You need:

\\ServerName\ShareName\FolderName\FileName.ext

 

[boblarson]

You could also cut down on the code if you went this direction - Have the Select All checkbox check all of the checkboxes or uncheck them all when deselected, and then just use:

Private Sub Command32_Click()
    Dim strPath As String
    Dim strName As String
    Dim i As Integer
    Dim varSplit As Variant
    strPath = "[URL="file://\\ADDWDDTLS7B1\Transaction"]\\ADDWDDTLS7B1\Transaction[/URL] Files\GRP "
    strName = "4,5,7,8,11,12"
    varSplit = Split(strName, ",")
    For i = 0 To UBound(varSplit)
        'When Check Box is Checked Import that Groups Transactions
        If Me.Controls("Check" & i).Value = -1 Then
            DoCmd.TransferText acImportDelim, "Transaction_Import", "Transaction_TextFile_Import", strPath & varSplit(i) & " TRANS.txt"
        End If
        i = i + 1
    Next
End Sub

 

[bconner]

Bob, thank you for the code and recommendation I appreciate your help....I thought about looping thru the collection by didn't know how