Programmatically make queries read-only.

[cementblocks]

I have constructed a form that allows users to create custom queries. I would like to make these queries read-only. My normal method for making a query read-only is to set the recordset type property to 'snapshot', but I can't seem to be able to set this property programmatically. Any suggestions would be appreciated.

[maximus]

Below is a code that is attached to the command button of a Form. This Code is used to create a Query. The Query is then opened as Read-only.


Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
Dim strSQL As String
Dim qdf As Object
strSQL = "SELECT cat.DivisionCatagory, cat.Division_cat FROM cat;"
Set qdf = CurrentDb.CreateQueryDef("Operations", strSQL)
DoCmd.OpenQuery "Operations", acViewNormal, acReadOnly

Exit_Command0_Click:
Exit Sub

Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click

End Sub

Mark the thread solved if this solves your problem.