Enabling Filtering and Searching in a Read-Only form

[jdashm]

I have a form that opens to read-only based on user role. I need to be able to use a Lookup List (Combo box) to still be used to search for records as well as a lookup list that filters records but they don't work in the read-only mode.
The two controls that i want to still be able to use are cboFilterDept and the Combo329.


Here is a snippet of the code i am trying to use to do this...
================================================== ===============================
If (DLookup("strUserRole", "tblUserRoles", "[strUserID]='" & Forms![_frmLoginVerify]!txtLoginName.Value & "'")) = "Admin" Then

DoCmd.OpenForm "frmAgreements_Edit"


ElseIf (DLookup("strUserRole", "tblUserRoles", "[strUserID]='" & Forms![_frmLoginVerify]!txtLoginName.Value & "'")) = "MC Reporting" Then

DoCmd.OpenForm "frmAgreements_Edit", acNormal, , , acFormReadOnly
Forms!frmAgreements_Edit.Controls("cmdNewAgreement ").Visible = False
Forms!frmAgreements_Edit.Controls("cboFilterDept") .AllowEdits = True
Forms!frmAgreements_Edit.Controls("Combo329").Allo wEdits = True



Else
MsgBox "Sorry, you do not have permission to use this area of the database", vbOKOnly, _
"Permissions Check"


End If
================================================== ===================================

Any help would be appreciated.

[June7]

Can't. Even unbound controls cannot be edited if form is read only. Will have to change the read only setting to allow the inputs for search/filter then reinforce read only after search/filter.

Or build form/subform. Search controls on main form, subform container is locked, code sets Filter property of subform.

Or code locks each data control individually.

AllowEdits is not a property of combobox, it is property of form.

[istari88]

Get the value of the DLookup this way and then run thru the IF's:

AccountBalance = DLookup("[CalcBalance]", "qryAccountCalculations", "[AccountID]=" & ActID)
IF var=AccountBalance then...


Maybe a Me.Recordset.Clone can be used...
Private Sub Combo18_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[StudentRef] = " & Str(Me![Combo18])
Me.Bookmark = rs.Bookmark
End Sub

[jdashm]

Thanks for the response.
Can you give me some example code that would keep the form read-only but allow search/filter to work.
Appreciate it.

[pbaldy]

You can toggle the AllowEdits property of the form in the Got/Lost Focus events of the search controls.

[jdashm]

Thanks!
The Got/Lost Focus did the trick.
Again thanks for the response.

[pbaldy]

Happy to help!