Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
SELECT Denomination.DenominationID, Denomination.Denomination, Denomination.DenominationMultiple, Denomination.DenominationTypeID, Denomination.Active, DCount("DenominationID","qry_Denomination_Currency_Active","DenominationID <= " & [DenominationID]) AS CurrencyActiveDenominationSeq FROM Denomination WHERE (((Denomination.DenominationTypeID)=2) AND ((Denomination.Active)=-1));
Private Sub GenerateLVLMachineLines2(IsMachinePull As Boolean) Dim bytCounter As Byte, lngMyRptgSeqID As Long, lngMyShiftRptgLVLCtlID As Long, i As Integer, z As Integer Dim strSQL As String lngMyRptgSeqID = GetMyShiftSeqID() lngMyShiftRptgLVLCtlID = GetMyShiftRptgLVLCtlID() i = 1 ' This counter is for Inserting Active Currency Seq to Machine Pull tbl z = DMax("ShiftRptgMachPullCountCtlID", "ShiftReportingMachinePullCountCtl", "ShiftRptgMachPullCountCtlID") Do Until bytCounter = Me.txtNbrMachines CurrentDb.Execute "INSERT INTO ShiftReportingLVL (ShiftRptgLVLCtlID, LVLPositionNbr, RptgSeqID, MachinePulled) VALUES (" & lngMyShiftRptgLVLCtlID & "," & bytCounter + 1 & "," & lngMyRptgSeqID & "," & True & ")", dbFailOnError bytCounter = bytCounter + 1 Loop Do Until i = Forms![frm_DataReporting]![LVLReportingTypeSelect]![txtCntActiveCurrencyDenominations] strSQL = "INSERT INTO ShiftReportingMachinePullDetails (ShiftRptgMachPullCountCtlID, DenominationID) SELECT " & z & ", DenominationID FROM [qry_Denomination_Currency_Active] WHERE [CurrencyActiveDenominationSeq]= " & i CurrentDb.Execute strSQL, dbFailOnError i = i + 1 Loop End Sub
|Access 2003, modify export spec||11||14|
|MS Access Find Duplicates In Combined Unique Fields When Trying To Set A Unique Index In A Table||3||23|
|Excel To Access Database Transfer||14||25|
|Identify the maximum number in a field before a gap in an sequence on before insert event using vba||8||43|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!