Yes, I know. That's what I'm using to get here. I have 3 filters on that form. I just don't filter the date values until the popup. The repetition is because the popup is used for more than one form.
Thanks to @MajP this thing is now working!
Sub ListUsage()
Dim ID As Long
Dim NWhrStr As String
Dim CWhrStr As String
Dim strRange As String
ID = lngInfoXchg
strRange = GetDateRange("CkDate", cboDate.Value)
NWhrStr = "NameID = " & ID & " And " & strRange
CWhrStr = "CategoryID = " & ID & " And "...
Yes, you are right. I want the formula... So it should be a string that I'm adding to a string? And then want to calculate? And it should be a sub and not a function?
I have a combobox that I want to limit dates in a listbox:
Function DateCalculation(IDate As Integer)
Select Case IDate
Case 48 'All Dates
[CkDate]
Case 49 'This Month
Year([CkDate]) = Year(Date) And Month([CkDate]) = Month(Date)
Case 50 'Last...
This is a database for file drawers. Some drawers have divisions and folders. Some are completely numerical. As things get removed, the address stays but it becomes available for use. I want to locate the proper drawer, etc and use any old locations not being used or create new locations if none...
Well, in the query DMin requires them all to be grouped.
I've tried this:
lngLoc = Dmin("LocID", "tblLocation", "Nz(DLookup("LocID", "tblLocation", strFind), 0)")")
but it doesn't compile
Ok, I asked the wrong question. I'm using this in a module::
strFind = "[InUse] = 0 And nz([ItemID],0) = 0 and [Parent] = """ & strParent & """ "
lngLoc = Nz(DLookup("LocID", "tblLocation", strFind), 0)
How do I add a group to a where string?
I want to find a record that meets several criteria.
SELECT tblLocation.*, tblLocation.fItemID, tblLocation.InUse, tblLocation.Parent
FROM tblLocation
WHERE (((tblLocation.fItemID) Is Null) AND ((tblLocation.InUse)=False) AND ((tblLocation.Parent)="DR2"));
This query returns 15 available...