ChiTownDiva
Technical User
Happy Friday All...
I have some code that I'm getting a run time '3270' "Property Not Found" error on it. Does anyone have a clue as to why...
Function Import()
With Application.FileSearch
.NewSearch
.LookIn = "S:\SALESUP\Yasu\AprilVI"
.SearchSubFolders = True
.filename = "*.txt"
.MatchTextExactly = True
End With
With Application.FileSearch
If .Execute() > 0 Then
For I = 1 To .FoundFiles.Count
DoCmd.TransferText acImportDelim, "Carbonation Import Specification", Right(.FoundFiles(I), Len(.FoundFiles(I)) - InStrRev(.FoundFiles(I), "\")), .FoundFiles(I), True
Next I
End If
End With
End Function
When I copy and paste this code into another persons' database, they get the 3270 error though it works fine in all of my databases.
Thanks in advance.
ChiTownDiva![[ponytails2] [ponytails2] [ponytails2]](/data/assets/smilies/ponytails2.gif)
I have some code that I'm getting a run time '3270' "Property Not Found" error on it. Does anyone have a clue as to why...
Function Import()
With Application.FileSearch
.NewSearch
.LookIn = "S:\SALESUP\Yasu\AprilVI"
.SearchSubFolders = True
.filename = "*.txt"
.MatchTextExactly = True
End With
With Application.FileSearch
If .Execute() > 0 Then
For I = 1 To .FoundFiles.Count
DoCmd.TransferText acImportDelim, "Carbonation Import Specification", Right(.FoundFiles(I), Len(.FoundFiles(I)) - InStrRev(.FoundFiles(I), "\")), .FoundFiles(I), True
Next I
End If
End With
End Function
When I copy and paste this code into another persons' database, they get the 3270 error though it works fine in all of my databases.
Thanks in advance.
ChiTownDiva
![[ponytails2] [ponytails2] [ponytails2]](/data/assets/smilies/ponytails2.gif)