Access Query

mikeymay

Well-known Member
I am wanting to return all records in an Access table that meet a query criteria.

The query I have built via VBA code is -
SELECT ID, Price, QtyOut, ValueOut, InStock, ValueInStock, Allocated FROM GoodsIn WHERE Item = '9oz Squat Plastic Cup' AND DateIn <# 22/08/2019# AND Allocated = False ORDER BY DateIn ASC, QtyIn ASC

There are 2 records in the table that meet the criteria but the query is only returning 1 record.

I am using the following to open and read the recordset
Code:
rsQuery.Open strQuery, cnConnection, adOpenKeyset, adLockOptimistic
I have used this code before to return all matching records so I am at a bit of a loss as to why this is n't working.

Any insights provided would be hugely appreciated.

TIA
 

xenou

MrExcel MVP, Moderator
The query looks okay except I'm not used to seeing boolean False as a value in Access query. Access uses numeric values to store true and false (-1 and 0 respectively). Otherwise, you'd probably have to post your code and some sample data in order to debug and test this.
 

mikeymay

Well-known Member
Thanks for the input all. I managed to get this to work without fixing anything so not entirely sure why it didn't work initially.
 

Some videos you may like

This Week's Hot Topics

  • Get External Data (long shot question!)
    This is likely a long shot but I am wondering if it is at all possible for Excel to somehow 'change' the contents of a URL that is being linked to...
  • Importing multiple excel files into one spreadsheet
    Hi, I'm trying to import multiple excel files (with the same format into a single spreadsheet) so that each day's file is listed underneath the...
  • Cell Formatting
    Good Morning, I need to format a few different cells in the following manners: A1 has to always add a colon (:) after whatever is typed in by a...
  • How to copy multiple rows using If
    Hi all, I'm very new to VBA and have written this simple code to copy certain cells if a certain cell within that row contains any data. I need...
  • Workbook_Change stopped working !
    I am working on an app to speed up & automate processing of Credit Cards statements. After data is input from a CSV file, it is presented to the...
  • VBA If statement
    Dear All, I have two dates, where I'd like a message box to pop, if the dates are between this criteria. [CODE] sDate1 = #10/1/2019#...
Top