Need help on how users can only use search bar on form but cannot edit records

[vector39]

Hi all



I have a search bar that filters a datasheet on split form view and works very nicely. I made an exact copy of this however, the original form the user can edit and make changes if necessary, this copy will only be used for looking up records AND NOT EDITING. Here's the VBA for the search bar:

Option Compare Database
Option Explicit


Private Sub cmdReset_Click()
Me.txtSearch = ""
    Me.SrchText = ""
    DoCmd.Requery
    Me.txtSearch.SetFocus
End Sub




Private Sub Form_Load()
'DoCmd.GoToRecord , , acNewRec
End Sub




Private Sub SrchText_AfterUpdate()
Me.SrchText.Requery
End Sub


Private Sub txtSearch_Change()
'Create a string (text) variable


    Dim vSearchString As String
    vSearchString = txtSearch.Text
    SrchText.Value = vSearchString
    If Len(Me.SrchText) <> 0 And InStr(Len(SrchText), SrchText, " ", vbTextCompare) Then
        Exit Sub
        End If
    'Me.SearchResults = Me.SearchResults.ItemData(1)
    
    'Me.SearchResults.SetFocus
    DoCmd.Requery
    Me.txtSearch.SetFocus
    If Not IsNull(Len(Me.txtSearch)) Then
        Me.txtSearch.SelStart = Len(Me.txtSearch)
        End If
End Sub

I'm just trying to find the simplest way where users can still use the search bar just not edit anything in the datasheet. I'm pretty sure there is something on the form properties that I can change but I've been messing around with it and so far, I can either not type anything it at all or I can still edit records on this copy. Any thoughts, as always, much appreciated!

[ranman256]

set the form properties:
RECORDSET TYPE = SNAPSHOT

or
ALLOW EDITS = FALSE
ALLOW ADDITIONS = FALSE

or
lock the form
DOCMD.OpenForm "FORM",,,,acFormReadOnly

[vector39]

set the form properties:
RECORDSET TYPE = SNAPSHOT

or
ALLOW EDITS = FALSE
ALLOW ADDITIONS = FALSE

or
lock the form
DOCMD.OpenForm "FORM",,,,acFormReadOnly

I tried each method. Switching Dynaset to Snapshot, gave me an error with the vba. I set Allow Additions/Edits both to False however I could not type anything in the search bar anymore and same thing with DoCmd.OpenForm "Form",,,,acFormReadOnly.

[ssanfu]

In form design view, set the "Locked" property to YES for EACH control you do not want to be editable.
You can still tab/click into each control; if you don't want anyone to be able to tab/click into a control, set the "Enabled" property to NO.

Obviously, for the control "SrchText", the "Locked" property should be NO and the "Enabled" property to YES....

Leave these form properties set to:
RECORDSET TYPE = Dynaset
ALLOW EDITS = Yes
ALLOW ADDITIONS = Yes

[vector39]

In form design view, set the "Locked" property to YES for EACH control you do not want to be editable.
You can still tab/click into each control; if you don't want anyone to be able to tab/click into a control, set the "Enabled" property to NO.

Obviously, for the control "SrchText", the "Locked" property should be NO and the "Enabled" property to YES....

Leave these form properties set to:
RECORDSET TYPE = Dynaset
ALLOW EDITS = Yes
ALLOW ADDITIONS = Yes

Thank you!

[ssanfu]

You're welcome...

Good luck with your project....