سلام
فرم ورودی در اکسل درست کردم با زدن دکمه ورود این کد هارو نوشتم
در صورت خالی بودن ارور میده
در صورت درست بودن وارد میشه
ولی در صورت اشتباه بودن اطلاعات مشکل داره و یوزر پس هارو از یک شیت دیگه ای میخونه
می خوام اگه میشه یه دیتا بیس اکسس درست کنم براش و اطلاعات یوزر پس رو از اونجا بخونه
کد:
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
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)