Ok, can someone help me out here.  I have a module that declares the 
following:

Type HeaderRecordFormat
    Field1 As String * 1
    Field2 As String * 10
    Field3 As String * 4
    Field4 As String * 4
    Field5 As String * 3
    Field6 As String * 3
    Field7 As String * 4
    Field8 As String * 4
    Field9 As String * 4
    FieldEOR As String * 6
End Type

Public test As HeaderRecordFormat

=======

Then, I use the following code in the main form:

Open filespec For Random As #1

Get #1, , test

For x = 1 To 10

MsgBox test.Field1

Next x

=======

I am not seeing any data being read!








'// =======================================================
    Rules : http://ReliableAnswers.com/List/Rules.asp
    Home  : http://groups.yahoo.com/group/vbHelp/
    =======================================================
    Post  : [email protected]
    Join  : [EMAIL PROTECTED]
    Leave : [EMAIL PROTECTED]
'// =======================================================
 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/vbhelp/

<*> To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 



Reply via email to