open recordset with variable SQL

[rivereridanus]

Hello!

I am trying to write a code to allow a user (learning SQL) to type in a simple SELECT FROM WHERE etc... statement into a textbox txtrunsql, and upon on_click event open that recordset.

Private Sub cmdrunsql_Click()
Dim dbsMenuStudy As DAO.Database
Dim rstadhoc As DAO.Recordset
Dim strSQL As String

Set dbsMenuStudy = Currentdb
strSQL = Me.txtrunsql
Set rstadhoc = dbsMenuStudy.OpenRecordset(strSQL)
End Sub



When I click the button, nothing happens.
Any suggestions would be wonderful!

[Bob Fitz]

Hi
What do you expext to happen?
You've created the recordset but you're not doing anything with it, as far as I can see.

[ssanfu]

Hello!

I am trying to write a code to allow a user (learning SQL) to type in a simple SELECT FROM WHERE etc... statement into a textbox txtrunsql, and upon on_click event open that recordset.

Private Sub cmdrunsql_Click()
Dim dbsMenuStudy As DAO.Database
Dim rstadhoc As DAO.Recordset
Dim strSQL As String

Set dbsMenuStudy = Currentdb
strSQL = Me.txtrunsql
Set rstadhoc = dbsMenuStudy.OpenRecordset(strSQL)
End Sub

When I click the button, nothing happens.
Any suggestions would be wonderful!

The Access Web has an example mdb for a search form where you can select the fields you want to have searched. The page is:

http://access.mvps.org/access/forms/frm0045.htm

(FindRecord2k.Zip)

[rivereridanus]

Hi
What do you expext to happen?
You've created the recordset but you're not doing anything with it, as far as I can see.

I am hoping to open it for viewing (not editing) like I might a query. I thought
Openrecordset would do that, but I guess not?

[Bob Fitz]

Hi

I am hoping to open it for viewing (not editing) like I might a query. I thought
Openrecordset would do that, but I guess not?

I'm afraid not, but you can use a report or a form to view the data with using the SQL string you created as the "Record Source". I you create a form and display it in "datasheet" view it will look very much like a query. You could set it's properties to stop the data being edited.