Re: Recordsets and Subforms

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Tried it but got the following error below:

---------------------------
Run-time Error '13'

Type Mismatch
---------------------------


I also tried an alternate method by using the recordset open method on
a query in order to get at the subform records using the code below:

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Set cn = CurrentProject.Connection

rs.Open ("OrderItemizedQuery"), cn

But got the error below:
-----------------------------------
Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE',
'SELECT', OR 'UPDATE'.
-----------------------------------

The "OrderItemizedQuery" uses the OrderID from the host form "I Ph
Orders".

OrderItemizedQuery
-----------------------------
SELECT [I Ph Orders].OrderID, [I Ph Order Details
Extended].ProductTitle, [I Ph Order Details Extended].Quantity
FROM [I Ph Order Details Extended] INNER JOIN [I Ph Orders] ON [I Ph
Order Details Extended].OrderID = [I Ph Orders].OrderID
WHERE ((([I Ph Orders].OrderID)=[Forms]![I Ph Orders]![OrderID]));

.

Quantcast