Hollis,Virginia
HollisVJ at pgdp.usec.com
Fri Nov 14 07:01:31 CST 2003
I have the below code on a form that is used to open another form filtered to the selected Engineer's name. The user selects their name from a combobox (UserID), if the document status is open, or pending, or in progress, the frmSystemFailure opens filtered to show their open documents. If there are not any open EFRs for the selected Engineer, the form is still opening, but it is blank. It is not giving the MsgBox, No Open EFRs.... What is wrong that the form is opening blank instead of giving the MsgBox? Virginia stDocName = "frmSystemFailure" stLinkCriteria = "[EngineerID]=" & Me![UserID] & " AND [StatusID] = 1" & _ "Or [EngineerID]=" & Me![UserID] & " AND [StatusID] = 2" & _ "Or [EngineerID]=" & Me![UserID] & " AND [StatusID] = 4" ' Check whether the user has any EFRs open. If they do, open the ' form with a filter. On Error Resume Next If DCount("FailureReportNo", "tblSystemMain", stLinkCriteria) Then DoCmd.OpenForm stDocName, , , stLinkCriteria Else 'DisplayMessage "No open EFRs" MsgBox "No open EFRs for " & Forms![frmUpdateEFRs]![UserID].Column(1) End If