openrecordset

[tar28un]

hi there,

I am trying to run the following code

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim qry1 As String
Set dbs = CurrentDb
qry1 = "select * from pupil where(((pupil.provider) = [Enter the Provider Id]))"
Set rst = dbs.OpenRecordset(qry1, dbopendynaset)
Set Me.Form("subf").RowSource = rst

Here "subf" is the name of my subform in the main form.

But I am getting the error "Too few Parameters, Expected 1"

Can anybody tell me where I am going wrong

Many thanks

 

[PHV]

You may try this:
qry1 = "SELECT * FROM pupil WHERE provider=" & InputBox("Enter the Provider Id")

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[tar28un]

Hello

Many thanks for the reply

My code now looks like this:

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim qry1 As String
Set dbs = CurrentDb
qry1 = "select * from pupil where((pupil.provider) = " & InputBox("Enter the Provider Id") & ")"
Set rst = dbs.OpenRecordset(qry1, dbopendynaset)
Set Me.Form("subf").Recordset = rst

And now I m getting the error "Object doesnot support this property or method"

 

[PHV]

Why not simply this ?
Me!subf.Form.RecordSource = "SELECT * FROM pupil WHERE provider=" & InputBox("Enter the Provider Id")

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[tar28un]

Hi there,

I tried your code as well. But now I m getting the error:

The expression you entered refers to an object that is closed or does not exists.

I m not sure where I m going wrong