All combos become locked?!

[Pyro]

Hi,

I am running the following code from a subform:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
 
    Debug.Print "Error Number = ", DataErr
 
    Select Case DataErr
 
    Case 3314
        MsgBox "There is no course selected for this student." & vbCrLf & _
        " " & vbCrLf & _
        "Select a course before proceeding.", vbExclamation, "Error"
        Me.cmdDelete.SetFocus
        Me.Undo
 
    Response = acDataErrContinue
 
    Case Else
        Response = acDataErrDisplay
    End Select
 
End Sub

However as soon as this error occurs and the message box displays, all combo boxes on the main form and other subforms become locked (i.e. their values can be seen but not selected)

I am running Access 2003.

Any ideas?

 

[Pyro]

Weird thing... it was actually an Access 2000 creation, and when i converted it to 2003, the problem disappeared. Must have been a bug...