Steve,
The code for qRecSourceOOBChange is:
Code:
SELECT [CRNo]+([SubNo]*0.01) AS OOBNumber, TblChangeRequest.Priority, TblChangeRequest.CRID, TblChangeRequest.[Level], TblChangeRequest.NIE, TblChangeRequest.ChangeType, TblChangeRequest.DateID, TblChangeRequest.ChangeRequested, TblChangeRequest.Rationale, TblChangeRequest.AOVote, TblChangeRequest.O6Vote, TblChangeRequest.Notes, TblChangeRequest.ActionItems, TblChangeRequest.Hr, TblChangeRequest.ActionComplete, Format([DateID],'dd mmmm 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] & Chr(13) & Chr(10) & [Sponsor] AS People, DateDiff('d',[DateID],[DateClosed]) AS DaysOpen, [Priority] & ' ' & [Level] & ' OOB Change Request(s)' AS Label, Chr(9) & Chr(9) & [Unit] & Chr(9) & Chr(9) & [Section] AS Unitss, [HBVersion] & Chr(9) & Chr(9) & [ApproxPage] AS HBVerss, [MTOEPara] & Chr(9) & Chr(9) & [BumperNum] AS MTOEParass
FROM TblChangeRequest
WHERE (((TblChangeRequest.[ActionComplete])=False) AND ((TblChangeRequest.[AOVote])<>'Open') AND ((TblChangeRequest.[O6Vote]) Is Null) AND ((TblChangeRequest.[CRNo])<>0));
It derives from:
Code:
Option Compare Database
Option Explicit
Sub subCreateQuery(arg)
Dim sSQL As String
Select Case arg
Case 1
sSQL = "SELECT [CRNo]+([SubNo]*0.01) AS OOBNumber,Priority, CRID, [Level], NIE, ChangeType, DateID, " _
& "ChangeRequested, Rationale, AOVote, O6Vote, Notes, ActionItems, Hr, ActionComplete," _
& "Format([DateID],'dd mmmm 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] & Chr(13) & Chr(10) & [Sponsor] AS People, " _
& "DateDiff('d',[DateID],[DateClosed]) AS DaysOpen, [Priority] & ' ' & [Level] & ' OOB Change Request(s)' AS Label, " _
& "Chr(9) & Chr(9) & [Unit] & Chr(9) & Chr(9) & [Section] AS Unitss, [HBVersion] & Chr(9) & Chr(9) & [ApproxPage] AS HBVerss, " _
& "[MTOEPara] & Chr(9) & Chr(9) & [BumperNum] AS MTOEParass " _
& "FROM TblChangeRequest " _
& "WHERE (([ActionComplete])= False) AND (([AOVote])" & TempVars!AOSelects & " AND (O6Vote) " & TempVars!O6Selects & " and (([CRNo])<>0));"
Call fcnCustomizeSQL("qRecSourceOOBChanges", sSQL)
Case 2
Case 3
End Select
End Sub
Function fcnCustomizeSQL(qName As String, strPassedSQL As String) As Boolean
Dim qthisQuery As DAO.QueryDef
If TempVars!tvEnableErrorHandling = True Then On Error GoTo fcnCustomizeSQL_Error 'if the query has been deleted, create it
If DCount("Name", "MSysObjects", "[Name] = " & Chr$(39) & qName & Chr$(39)) = 0 Then
Set qthisQuery = CurrentDb.CreateQueryDef(qName, strPassedSQL)
Set qthisQuery = Nothing
Exit Function
End If
Set qthisQuery = CurrentDb.QueryDefs(qName)
qthisQuery.SQL = strPassedSQL
fcnCustomizeSQL_Exit:
On Error Resume Next
Set qthisQuery = Nothing
Exit Function
fcnCustomizeSQL_Error:
MsgBox Err.Number & ", " & Err.Description & ", fcnCustomizeSQL"
Resume fcnCustomizeSQL_Exit
End Function
Strwhere & StrWghere2 comes from
StrWhere = StrWhere & "'" & ctl.ItemData(varItem) & "',"
this is the number that equates to the OOBNumber in the query.
Set ctl = Me.SelectedOOBNumber
Me.SelectedOOBNumber = unbound control list from frmOOBChangeSelect