------------------------------------------
Private Sub Problem()
If resolved.Value = True Then
MsgBox "Resolved Query", vbInformation, "Resolved"
End If
End Sub
------------------------------------------
Public Sub aspnow()
Me.DoingASPNow = true
End Sub
------------------------------------------
Reply With Quote