Results 1 to 2 of 2
  1. #1
    Join Date
    May 2003
    Posts
    1

    Unanswered: multi-user set up

    I'm almost finish with the design of my access 2000 database. Soon I would have to split my database and put the data into the server and the FE into each user's machine. Each user gets access to certain forms. I don't now how to do this. I know that access has a feature in tools->security to do this, but I'm not sure as to how to use it. For instance users name and group name. I know this is a silly question for some of you gurus but what is the users name? where do i get the user name from? or group name from? How would the database know which user is using the db? If there's a book or website that I can read up on that would be great too. As you can see I know very little of the multi-user settings and any help would be much appreciated.

  2. #2
    Join Date
    Oct 2002
    Location
    Leicester - UK
    Posts
    820

    Re: multi-user set up

    if security is the problem i can help, if it's just limiting access i can

    i have to key forms 1 a password select with the following code behind it
    (the pass words are stored in a table)

    Private Sub Yes_Click()
    On Error GoTo Err_yes_Click
    DoCmd.GoToRecord , , acFirst
    Do
    If (Form_Password.USRNME = Form_Password.Username) And _
    (Form_Password.Password = Form_Password.PSSWRD) Then
    DoCmd.OpenForm "Menu"
    Form_Menu.Usr = Form_Password.Level
    Form_Menu.USRN = Form_Password.USRNME
    Call Form_Menu.Screen
    If Form_Menu.Usr = 0 Then DoCmd.ShowToolbar "Admin", acToolbarYes
    If Form_Password.Password = "first" Then
    DoCmd.OpenForm "ChangePass", acNormal, "", "", acFormEdit, acNormal
    Form_ChangePass.USRNME.Caption = "User: " & Form_Menu.USRN
    End If
    DoCmd.Close acForm, "Password", acSaveNo

    Exit Do
    End If
    DoCmd.GoToRecord , , acNext
    Loop

    Exit_yes_Click:
    Exit Sub

    Err_yes_Click:
    MsgBox "Password & Username Don't Match"
    Resume Exit_yes_Click

    End Sub

    and a menu form with this code

    Sub Screen()
    Select Case Usr
    Case 2
    a: EditData.Enabled = False
    NewUser.Enabled = False
    Edit_Employ.Enabled = False
    Case 3
    b: UpdateWaiting.Enabled = False
    GoTo a
    Case 4
    AddData.Enabled = False
    GoTo b
    Case Else
    End Select
    If Usr = 4 Then ChangePass.Enabled = False

    End Sub

    here have a look
    Attached Files Attached Files
    Definition of a Beginner, Someone who doesn't know the rules.

    Definition of an Expert, Someone who knows when to ignore the rules.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •