My form filter quit working this week and I am not sure why.  The only
change was from Windows 2000 to Windows XP.  I have checked all
references and did not see one missing....any ideas?  Here is the code.
 
Private Sub qWorkOrderNumber_AfterUpdate()
 
Dim MyWorkOrder As DAO.Recordset
Set MyWorkOrder = Me.RecordsetClone
 
MyWorkOrder.FindFirst "[WorkOrderID]=" & Me.qWorkOrderNumber
 
If MyWorkOrder.NoMatch Then
 
    MsgBox "Work Order ID Not Found. Try Again."
    Else
    Me.Bookmark = MyWorkOrder.Bookmark
    
End If
End Sub
Private Sub Command43_Click()
On Error GoTo Err_Command43_Click
 

    DoCmd.Close
 
Exit_Command43_Click:
    Exit Sub
 
Err_Command43_Click:
    MsgBox Err.Description
    Resume Exit_Command43_Click
    
End Sub
 
Compile error:  User Defined type not defined.   (Highlights section of
code: DIM MyWorkOrder As DAO.Recordset)  
 
 
 
 

This e-mail and any attachments may be confidential or legally privileged.



[Non-text portions of this message have been removed]

Reply via email to