Open up a form as Readonly but want to be able to use Navigation entry that I built.

[jlyalls]

Hey guys, I have been working on a new database with a few tables. I have built a form that allows the users to enter in the record number that will take them to the proper entry they are wanting to view. I have set this up to open as read only and this creates an issue for me. The users are not able to utilize the navigation. My question is...is there anyway to do open the form with readonly but allow them to type in the navigation field (Go to VLAN Record) to go to the record they are looking for?

Here is an image



Here is my code

Option Compare Database
Option Explicit


Private Sub Command1_Click()
Dim userlevel As Integer


If IsNull(Me.txtLoginID) Then
MsgBox "Please Enter LoginID", vbInformation, "LoginID Required"
Me.txtLoginID.SetFocus
ElseIf IsNull(Me.txtPassword) Then
MsgBox "Please Enter Password", vbInformation, "Password Required"
Me.txtPassword.SetFocus
Else
'process the job
If (IsNull(DLookup("[UserLogin]", "tblUser", "[Userlogin] ='" & Me.txtLoginID.Value & "' And password = '" & Me.txtPassword.Value & "'"))) Then
MsgBox "Incorrect LoginID or Password"
Else
userlevel = DLookup("UserSecurity", "tblUser", "UserLogin = '" & Me.txtLoginID.Value & "'")
DoCmd.Close
If userlevel = 1 Then
'MsgBox "LoginID and Password correct"
DoCmd.OpenForm "P1 Vlan Database Form", acNormal
DoCmd.OpenForm "P2 Vlan Database Form", acNormal
DoCmd.OpenForm "P3 Vlan Database Form", acNormal
DoCmd.OpenForm "BTI Vlans Form", acNormal
Else
DoCmd.OpenForm "P1 Vlan Database Form", DataMode:=acFormReadOnly
DoCmd.OpenForm "P2 Vlan Database Form", DataMode:=acFormReadOnly
DoCmd.OpenForm "P3 Vlan Database Form", DataMode:=acFormReadOnly
DoCmd.OpenForm "BTI Vlans Form", DataMode:=acFormReadOnly



End If
End If
End If
End Sub

[pbaldy]

One option is to toggle the AllowEdits property of the form in the focus events of the combo.

[jlyalls]

I am not sure how to do this. What would you recommend? Leaving the code I have and trying to mess with the allow edits? I tried to setup the Go To VLAN combo box with an On Got Focus macro of RunMenuCommand EditListItems but was unsuccessful.

Thanks,

Josh

[pbaldy]

I don't use macros, but I suspect it would be SetProperty, setting the AllowEdits property of the form.

[jlyalls]

Does anyone else have any ideas about what I could use in Microsoft visual? I have this Navigation field that when a user types in a number it takes you to that record page. My issues is that I have security set for different users and when the user is set to 2 I have them as "Ready Only". I want to be able to open it for them with readyonly but allow them to type into the combo box "Go to Record". Right now as the code sits it will not allow edits. Could I put some code behind the readonly statement that says something like allowedits for the combobox Go to Record?

Again here is the code

If (IsNull(DLookup("[UserLogin]", "tblUser", "[Userlogin] ='" & Me.txtLoginID.Value & "' And password = '" & Me.txtPassword.Value & "'"))) Then
MsgBox "Incorrect LoginID or Password"
Else
userlevel = DLookup("UserSecurity", "tblUser", "UserLogin = '" & Me.txtLoginID.Value & "'")
DoCmd.Close
If userlevel = 1 Then
'MsgBox "LoginID and Password correct"
DoCmd.OpenForm "P1 Vlan Database Form", acNormal
DoCmd.OpenForm "P2 Vlan Database Form", acNormal
DoCmd.OpenForm "P3 Vlan Database Form", acNormal
DoCmd.OpenForm "BTI Vlans Form", acNormal
Else
DoCmd.OpenForm "P1 Vlan Database Form", DataMode = acFormReadOnly <---- But Allow edits for combo box cboGotoRecord
DoCmd.OpenForm "P2 Vlan Database Form", DataMode:=acFormReadOnly <---- But Allow edits for combo box cboGotoRecord
DoCmd.OpenForm "P3 Vlan Database Form", DataMode:=acFormReadOnly <---- But Allow edits for combo box cboGotoRecord
DoCmd.OpenForm "BTI Vlans Form", DataMode:=acFormReadOnly <---- But Allow edits for combo box cboGotoRecord

[pbaldy]

Like I said, in the focus events of the combo:

Me.AllowEdits = True
Me.AllowEdits = False

[Missinglinq]

Here's a small tutorial I've given people for doing this kind of thing.

Remove whatever you've done to make the Form Read-Only, 'mark' the one Control you want to be able to use, your Combobox, so that Access can recognize it, then loop thru all Controls and Lock those not 'marked.'

In Design View, select the Control you want to be functioning and go to Properties-Other and in the Tag Property box enter DoNotLock, just like that, no quotes.

Then place this code in the code window:

 Private Sub Form_Load()
 
Dim ctrl As Control

 For Each ctrl In Me.Controls
   If (TypeOf ctrl Is TextBox) Or (TypeOf ctrl Is CheckBox) Or (TypeOf ctrl Is ComboBox) Then
    If ctrl.Tag <> "DoNotLock" Then
     ctrl.Locked = True
    End If
   End If
  Next

End Sub

You should be set!

Linq ;0)>

[jlyalls]

Is there anyway I can send either of you the file to look at? I feel I am missing something as far as what I am trying to do.

Thank you,

Josh

[pbaldy]

You should be able to attach it here, after compact/repair and zipping.

[jlyalls]

Do I need to start a new post? I am having a difficulty doing this.

[ssanfu]

Do I need to start a new post?

No, but the zipped file size should be less than 2 mb


Click on the "Go Advanced" button below the Quick Reply.
Scroll down to the button "Manage Attachments". Click and follow the prompts.

[jlyalls]

ALL_VLAN_Databases.zip

Let me know if this works.

[pbaldy]

I don't see where you tried anything, my suggestion in post 6 in particular.

[jlyalls]

I apologize, I did try them, I just wanted to send you guys the clean slate that I used. When I tried what you suggested Pbaldy I could not get it to work correctly. I am sure I did something wrong but I did try what you suggested to the best of my abilities. Sorry for the confusion.

Josh