Read Only Functionality

[JohnLute]

I have a combo box with an AfterUpdate Event:

Private Sub cbProfileID_AfterUpdate()
Dim strNewProfile As String

With Me.cbProfileID

' Capture the profile ID the user has selected or entered.
strNewProfile = .Value & vbNullString

If Len(strNewProfile) = 0 Then
' We've no idea what the user has in mind, so
' leave this alone.
Exit Sub
End If

' Is the user's entry an existing profile ID?
If .ListIndex = -1 Then
' This is not an existing profile ID.
' If we aren't on a new record, undo this entry,
' go to a new record, and re-enter it there.
If Not Me.NewRecord Then
.Undo
Me.Undo
RunCommand acCmdRecordsGoToNew
.Value = strNewProfile
' Me.cbProfileID = strNewProfile
End If
Else
' This is an existing profile ID.
' Undo the entry on this record and
' go to the record that was entered.
.Undo
Me.Undo
Me.Recordset.FindFirst "txtProfileID=""" & strNewProfile & """"
End If

End With

End Sub

This works fine, however, when Read-Only Users log into the database then
this function is "dead" for them.

Is there anything I can do to permit this function for Read-Only Users?

THANKS!

 

[Lynn Trapp]

Why do you need "Read-Only" users to be able to do this? Obviously, if they
are truly "Read Only" they can only READ data... not modify it in any way.

--
Lynn Trapp
MS Access MVP
www.ltcomputerdesigns.com
Access Security: www.ltcomputerdesigns.com/Security.htm
Jeff Conrad's Big List: www.ltcomputerdesigns.com/JCReferences.html

 

[JohnLute]

Hi, Lynn!

The combo box serves as a means of navigation and data entry. Can the code
be modified to permit navigation? Is there another way to navigate records
that you could recommend?

 

[Lynn Trapp]

John,
A lot of that depends on how you have them set up as "read only" users. If
you use the CurrentUser function to determine that, then you could probably
just set the .enabled value of all the fields on the form to false except
for the combobox.

--
Lynn Trapp
MS Access MVP
www.ltcomputerdesigns.com
Access Security: www.ltcomputerdesigns.com/Security.htm
Jeff Conrad's Big List: www.ltcomputerdesigns.com/JCReferences.html

 

[JohnLute]

The database is setup in a multiuser environment. Some users are Read-Only
and some have full access. It looks like I'd need a separate combo box to
navigate...?