DoCmd.SendObject acSendReport, "RptRequest", "Rich Text Format", , , , "Title",

=IIf([PrgrmCd]="033" Or "035",True,False)

=IIf([PrgrmCd]="033" Or "035",False,True)

Function SendEmail()
Dim rst As DAO.Recordset
    Dim strSQL As String
    Dim olApp

Private Sub StobMainFrame_AfterUpdate()
On Error GoTo StobMainFrame_Err
Dim linker
Dim strSQL As String
linker = StobMainFrame.Value
Select Case linker
Case 5
ittype = 5
'dayone QUEUE
        Me.Cmdclose.SetFocus
        Me.FStobDaily.Form.FilterOn = False
        strSQL = "TStobDaily.PendDte Is Null AND

Dim linkerDim linker 
Dim strSQL As String 
linker = StobMainFrame.Value 
Select Case linker 

strSQL = "TStobDaily.Category In('61','73') AND TStobDaily.DateIn 



>#5/31/2007# AND PendDte Is Null AND Tstobdaily.LogInID=fOSUserName()" 


End select 
End Sub

Dim StrWhere As String
With Me.[FPastDuePendingsSub].Form
  If .FilterOn = True Then
    If Not IsNull(Me.CboOpid) Then
      StrWhere = .Filter & " AND ([opid] = """ & Me.CboOpid & """)"
    Else
      StrWhere = .Filter
      End If
      If Not IsNull(Me.cbofilterProd) Then
      StrWhere = .Filter & " AND ([prodcd] = """