Importing Data + Module + strFileData is blank

[Moxioron]

Hello all.

I am stumped. I have a module in Access that I am using to import data from a text file. Because the data I am importing has two lines per transaction, I am trying to bring both lines in.

This is what I have in VB:

If StrComp(Mid(strFileData, 61, 4), ".00 ", vbBinaryCompare) = 0 Then
strShortName = Mid(strFileData, 15, 26)
'End If

I had to put a space after .00 because the line above is also monetary, but has a - behind it. If I don't put a space behind the .00, Visual Basic is looking at both lines and pulls in data all ove the place.

When I put the space after the .00, nothing is being imported.

Any ideas or advice? Thank you for your help.

 

[HiTechCoach]

You're welcome!

Glad we could assist.

 

[Moxioron]

Hitech coach. I tried that code on another report, and I am getting a Run-Time error '62'. When I select debug the second strLineIn is highlighted:

Do
' get first line
Line Input #FH, strLineIn
strLineOut = strLineIn
' get second line
Line Input #FH, strLineIn
strLineOut = strLineOut & " " & strLineIn

An example of the data file prior to conversion:

XXXXXXXXX939 R Kelly W 04/13/11 100.00 05-21 13.45.33 1,833.31 C 26380
2 451.35 100.00 0.00 05-21 13.47.40 300.00 D 26380
0 0.00 0 05-22 10.58.16 151.35 D 27264


Sometimes there is just one line and sometimes there are five.

Any idea where I am going wrong? Thanks for your help.

 

[HiTechCoach]

Really need to see all the code used for this task. The issue could be with a previous line of code.

Please post all the VBA code for the procedure.