فرم لاگین و یوزر پس از اکسس

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • arfaghani
    • 2014/06/14
    • 4

    فرم لاگین و یوزر پس از اکسس

    سلام
    فرم ورودی در اکسل درست کردم با زدن دکمه ورود این کد هارو نوشتم
    در صورت خالی بودن ارور میده
    در صورت درست بودن وارد میشه
    ولی در صورت اشتباه بودن اطلاعات مشکل داره و یوزر پس هارو از یک شیت دیگه ای میخونه
    می خوام اگه میشه یه دیتا بیس اکسس درست کنم براش و اطلاعات یوزر پس رو از اونجا بخونه


    کد:
    Private Sub CommandButton1_Click()
    Dim PassWord As String
    Dim user As String
    
    user = xluser.Value
    PassWord = xlpass.Value
    
    If user = "" Or PassWord = "" Then
    MsgBox "Emply user & pass"
    Exit Sub
    End If
    
    If PassWord = WorksheetFunction.VLookup(user, Range("List"), 2, 0) Then
    wel_form.Hide
    Sheets("welcome").Visible = True
    Sheets("Login").Visible = False
    Sheets("welcome").Select
     Sheets("welcome").Range("E1").Value = user
    Range("A1").Select
    ActiveCell.FormulaR1C1 = " "
    Range("A1").Select
    
    End If
    
    End Sub
چند لحظه..