Results 1 to 2 of 2
  1. #1
    Join Date
    Jan 2004
    Posts
    64

    Unanswered: Login code in form does not work

    I created a login form that opens a main form.
    FRMLOGIN form is created from a tbl_Sales_Reps table.
    Fields in table are:
    Rep# (number), Rep_Name (text), Password (text).

    Fields in FRMLOGIN are:
    Combo0: SELECT tbl_Sales_Reps.[Rep#], tbl_Sales_Reps.Rep_Name FROM tbl_Sales_Reps - rep selects his/her name from combo box.
    Text4, Unbound - rep enters his/her password
    Command6: This is the Click button that is suppossed to open the FRM_QRYCUSTOMERS_and_SALESREP_INFO form.

    The problem is that this works for user Admin but does not work for the reps. I'm guessing I'm doing something wrong with tbl_Sales_Reps info in the code.

    Here's the code and THANKS A LOT FOR YOUR HELP!!
    Private Sub Command6_Click()
    On Error GoTo Err_Command6_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim conDB As ADODB.Connection
    Dim rsTbl_Sales_Reps As ADODB.Recordset
    Dim strPassword As String

    Set conDB = New ADODB.Connection
    conDB.Provider = "Microsoft.Jet.OLEDB.4.0"
    conDB.Open "\\Backup\Departments\Mrkt\Telemarketing_Database\ 1.mdb", "Admin", ""

    Set rsTbl_Sales_Reps = New ADODB.Recordset
    rsTbl_Sales_Reps.Open "select Password from Tbl_Sales_Reps where [Rep#]=" & Me![Combo0], conDB
    strPassword = Trim(rsTbl_Sales_Reps!Password & "")

    rsTbl_Sales_Reps.Close
    Set rsTbl_Sales_Reps = Nothing
    conDB.Close
    Set conDB = Nothing

    Text4.SetFocus
    If strPassword = Trim(Text4.Value & "") Then

    stDocName = "FRM_QRYCUSTOMERS_and_SALESREP_INFO"

    If Me![Combo0] <> 9 Then '9 = Admin
    stLinkCriteria = "[Rep_Name]=" & Me![Combo0]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Else
    DoCmd.OpenForm stDocName
    End If

    'Form_FRM_QRYCUSTOMERS_and_SALESREP_INFO.gstrRep_N ame = Me![Combo0]

    Else
    MsgBox "Wrong Password"
    End If

    Exit_Command6_Click:
    Exit Sub

    Err_Command6_Click:
    MsgBox Err.Description
    Resume Exit_Command6_Click

    End Sub

  2. #2
    Join Date
    Jan 2004
    Posts
    64
    Here's the answer to my own question. I figured it out

    If Me![Combo0] <> 9 Then '9 = Admin
    stLinkCriteria = "[Rep_Name]='" & Trim(Me![Combo0].Column(1)) & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Else
    DoCmd.OpenForm stDocName
    End If

Posting Permissions

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