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

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • arfaghani
    • 2014/06/14
    • 4
    #1

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

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


    کد:
    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
    برچسب ها: هیچ‌کدام
    قبلی template بعدی
    چند لحظه..