The unbound control "OOBNumber" Row Source code:
Code:
SELECT [CRNo]+([SubNo]*0.01) AS OOBNumber
FROM tblChangeRequest
WHERE (((tblChangeRequest.ActionComplete)=False))
GROUP BY [CRNo]+([SubNo]*0.01)
HAVING ((([CRNo]+([SubNo]*0.01)) Is Not Null));
me.qrySelect and me.qrySelect2 = are unbound text boxes on FormFirst.
Code
Code:
Form_frmOOBChangeSelect.RecordSource = ("SELECT [CRNo]+([SubNo]*0.01) AS OOBNumber, ChangeRequested, Rationale, NOTES, ActionItems, AOVote, Priority, Hr, [Level], NIE, ChangeType, DateID, Format([DateID],'dddd'', ''mmm d yyyy') AS Dates, Format(Now()+([Hr]/24),'hhnn dddd'', ''mmm d yyyy') AS [Time], Format(Now()+([Hr]/24),'hhnn dddd'', ''mmm d yyyy') AS DTG, [Unit] & Chr(13) & Chr(10) & [Section] AS Units, [HBVersion] & Chr(13) & Chr(10) & [ApproxPage] AS HBVers, [MTOEPara] & Chr(13) & Chr(10) & [BumperNum] AS MTOEParas, [Requestor] & vbrclf & [Sponsor] AS People, DateDiff('d',[DateID],[DateClosed]) AS DaysOpen FROM TblChangeRequest WHERE (((ActionComplete)=False) AND ((AOVote)='Open') AND (CRNo)<> 0)")
Me.qrySelect = "<> 'Open' Or <> 'Hold' Or <> 'Defer'"
Me.qrySelect2 = "Is Null"
DoCmd.OpenForm "FormSecond"
FormSecond Code
Code:
Option Explicit
Private Sub CancelChanges_Click()
DoCmd.Close acForm, "frmOOBChangeSelect"
End Sub
Private Sub SelectOOBChanges_Click()
Dim strWhere As String, ctl As Control, varItem As Variant, strWhere2 As String
Set ctl = Me.OOBNumber
If Me.OOBNumber.ItemsSelected.Count = 0 Then
MsgBox "Nothing was selected"
Exit Sub
End If
For Each varItem In ctl.ItemsSelected
strWhere = strWhere & "'" & ctl.ItemData(varItem) & "',"
strWhere2 = strWhere2 & " " & ctl.ItemData(varItem) & ", "
Next varItem
strWhere = Left(strWhere, Len(strWhere) - 1)
Me.OOBChanges = strWhere2
MsgBox OOBChanges
DoCmd.OpenReport "rptOOB", acViewReport, , "OOBNumber IN(" & strWhere & ")"
End Sub