WAHY AINT IT CAPTURING THE ERROR ;o(

[fallnwrld]

If file doesnt exist its suppose to capture the error but its not! Can ya see whats wrong?

'Load The Sequential File Combo Box
Dim intFileNumber As Integer

intFileNumber = FreeFile 'Get next available file number

'Load UnCharged Rooms
frmMain.cboRooms(0).Clear 'Clear List Before Loading
Open App.Path & "\UnchargedRooms.Dat" For Input As #intFileNumber 'open file
Do Until EOF(intFileNumber) 'Do until end of file
Input #intFileNumber, strReadRecord 'Put line in string
frmMain.cboRooms(0).AddItem strReadRecord 'add string to box
Loop 'go to next string
Close #intFileNumber 'Close File

HandleErrors: 'Error-Handling routine

Select Case Err.Number 'Select Error

Case 53 'File Not Found
MsgBox "One Of The Dat Files Is Missing, Program Will Now Terminate.", vbCritical, "Loading Validation" 'Give Message
Unload Me 'Clear Me From Memory
End 'Exit Project If File Doesnt Exist
End Select

[donut]

You need to stick an 'On Error GoTo HandleErrors' at the beginning of the sub. Also, you should put 'Exit Sub' before the error handler, so that the code won't fall into it if there's no error.

[fallnwrld]

Dude....I been busting my chopts up and down and it was over that!!! I need to get some sleep or something, geesh thanks a lot....as for the exit sub......yeah ur right, adding one now.

[donut]

haha, no probs