Quote:
Public Sub ReadIn
Dim test As Integer
test = 1
Filename = "\\Primary_domain\Phone Billing Software\Accounts 2.4\T4A.dat"
Reader = 1
ReDim Preserve LoadedAcc(Reader) As Account
On Error GoTo Messed
Open Filename For Random As #2 Len = Len(LoadedAcc(test))
Do
ReDim Preserve LoadedAcc(Reader) As Account
Get #2, Reader, LoadedAcc(Reader)
Reader = Reader + 1
Loop Until Reader = Len(LoadedAcc(test))
UpdateDisplay
Messed:
Oker = MsgBox("File Can Not Be Opened, Check to See if File Exists, Then Try Again.", ConBtns2, "GWN Accounts")
End Sub
Just below the Do statement I have a call to "UpdateDisplay"