Search results

If I open any other form and hit 'back to main menu' button, the main form still isn't showing! :confused:

@David Thanks for the heads up. I actually did think about but then as Gina said disabled the close button. There's no way for any user to close the main form (or any form for that matter). If they want to access certain form the main form has a button for it. I minimize the main form so the...

I finally made everything work. Worked perfect in fact! However starting this morning there's a strange prob. The code and everything is the same but when I open the database (I'm an admin), the main form is not showing. In the taskbar in the bottom left it does say 'Form view', which suggests...

I'm almost done with the entire 'securing the database' goal. I'm using the following code in each form to restrict access for users: Option Compare Database Private Sub cmdMainMenu_Click() DoCmd.Close acForm, Me.Name DoCmd.SelectObject acForm, "frmMain" DoCmd.Restore End Sub Private Sub...

That worked perfect! :D Thanks

The navigation seems to work fine. The Me.Visible = False is for the Main form (frmMain) to temporarily become invisible and the New User form (frmNewUser) to pop up in case a non-admin opens the database. This part works fine, except that when the New User form opens the Main form doesn't hide...

Meanwhile do you know why Me.Visible = False would not work in the following code: If Not rst.BOF And Not rst.EOF Then rst.Edit rst.Fields("LogonCount") = rst.Fields("LogonCount") + 1 rst.Fields("LastLogon") = Now() rst.Update Me.txtSecurityID =...

Nope. Didn't help. I know Access 2007 is such a pain...

I tried to hide navigation pane in case a non admin is using the database. (Which I believe the IsDevelepor function does). I modified the code as follows: If IsDeveloper Then ChangeProperty "AllowBypassKey", dbBoolean, True DoCmd.SelectObject acTable, , True Else...

IsDevelepor is a separate function with this code: Function IsDevelepor() As Boolean Dim UserName As String IsDevelepor = False UserName = VBA.Environ("UserName") Select Case UserName Case "nasiri1" IsDeveloper = True Case Else IsDeveloper = False...

I'm still working on getting the desired user level security through one of the links you sent me. The following code errors out in the IsDevelepor section as 'Sub or Function not defined'. (ChangeProperty I guess...) Private Sub Form_Load() On Error Resume Next Dim rst As DAO.Recordset Dim db...

The code went through. Thank you for the help. But may I ask what the error was for?

I have it under the name RATusers and different field names (slightly). But I altered the code accordingly and the error is still the same. Below is the altered code. strSQL = "INSERT INTO RATusers ( NetworkID, FirstName, LastName, LastLogon, LogonCount, SecurityID, Active )" & _ " SELECT...

I get my Windows Username. (One through which I am logged in on the machine)

I tried using one of the links you posted above. The following SQL code in it isn't working for me: strSQL = "INSERT INTO tblUsers ( uNetworkID, uFirstName, uLastName, ueMail, uLastLogon, uLogonCount, uSecurityID, uActive )" & _ " SELECT Environ("UserName"), '" & Me.txtFirstName & "', '" &...

I'm sorry I didn't mention it clearly. It is the xxAdmin line of code that causes me a trouble. I guess that makes sense because when you open the database the login form appears and me.cbouser.value is the combo box value where users can select their name and then type pw. So I guess my...

I would appreciate if someone would help me with this. I am using Access 2007. My boss has given me a project to create a tool for our team. I'm done with most part of the project, but for the last part I want editing and updating of database restricted to a few members of our team. However...

Hello, I just created an account with access-programmers. I am from U.S and am currently working as an Analyst at an Insurance firm. I'm certain you have understood that I would be asking about access and vba extensively. I have decent competency in access, but still new to programming. I have...