arfaghani
2017/05/17, 08:47
سلام
فرم ورودی در اکسل درست کردم با زدن دکمه ورود این کد هارو نوشتم
در صورت خالی بودن ارور میده
در صورت درست بودن وارد میشه
ولی در صورت اشتباه بودن اطلاعات مشکل داره و یوزر پس هارو از یک شیت دیگه ای میخونه
می خوام اگه میشه یه دیتا بیس اکسس درست کنم براش و اطلاعات یوزر پس رو از اونجا بخونه
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
فرم ورودی در اکسل درست کردم با زدن دکمه ورود این کد هارو نوشتم
در صورت خالی بودن ارور میده
در صورت درست بودن وارد میشه
ولی در صورت اشتباه بودن اطلاعات مشکل داره و یوزر پس هارو از یک شیت دیگه ای میخونه
می خوام اگه میشه یه دیتا بیس اکسس درست کنم براش و اطلاعات یوزر پس رو از اونجا بخونه
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