با سلام و خسته نباشیدمن میخوام یه شرط رو دو سه بار چک کنم و هر سری نسبت به اتفاقاتی که افتاده یه پیام خاصی نمایش بدمواسه فروم ورود و لاگین. مدیریت کاربران وقتی کاربری که سطح یا همون لول کاربریش 1 قرار میدیم توی کد و میره کد 1 رو چک میکنه همونم میتونه توی مدیریت کاربران مدیریت کنه در صورتی که نباید اونو نشون بده چون من این کار رو کردم و سطح مدیریتش رو گذاشتم روی کاربر و سیو شد و نتونستم دیگه وارد بشم تا به صورت دستی رفتم و سطح رو توی جدول مربوطه مدیریت کردمبخاطر همین یه جدول دیگه ساختم برای فقط ادمین که از اون بگیره اطلاعات مدیریتی رو و فرم مدیریت کاربران رو با کاربرایی که توی جدول کاربران هست باز کنهکد که نوشتم فرم رو در صورتی که admin با پسورد مشخص خودش مدیریت کاربران رو بزنه باز میشه فرمدر صورتی که پسورد اشتباه بزنه تیکه دومش کار نمیکنه و هیچ چیزی بهش مبنی بر اینکه پسورد اشتباه هست نمیدهدر صورتی که کاربر نام کاربری و رمز عبور خودش رو وارد کنه و صحیح باشه چون توی جدول مربوط به ادمین نیست میگه اجازه دسترسی نداری و باز هم اگه اشتباه وارد کنه چیزی رو کد مربوط به اون قسمت اجرا نمیشه.در صورتی هم که اطلاعات هر دو تا اشتباه وارد بشه بازم اتفاقی نمی افته و نمیگه نام کاربری یا رمز عبور اشتباه هست.چیکار باید بکنم کجاش رو اشتباه میزنم؟فایل اصلی رو واستون فرستادم کاملش رو ممنون میشم اگه چک کنید بهم بگین باید چیکار کنم دقیقا
کد:
[COLOR=#555555][FONT=IRANSans]Private Sub btManageUsers_Click()[/FONT][/COLOR][COLOR=#555555][FONT=IRANSans]Dim adminPassword As String Dim userPassword As String Dim userNameUser As String On Error Resume Next userNameUser = DLookup(\”username\”, \”tblusers\”, \”[username]=[txtuser]\”) userPassword = DLookup(\”userpassword\”, \”tblusers\”, \”[username]=[txtuser]\”) adminPassword = DLookup(\”adminPassword\”, \”tblAdminUser\”, \”[adminUserName]=[txtuser]\”) If txtPass = adminPassword Then If DLookup(\”adminLevel\”, \”tblAdminUser\”, \”[adminUserName]=[txtuser]\”) = 1 And adminUsername = Me.txtuser Then DoCmd.OpenForm \”frmManageUsers\” Me.lblErrors.Visible = False[/FONT][/COLOR][COLOR=#555555][FONT=IRANSans]Else Me.lblErrors.Visible = True Me.lblErrors.Caption = \”نام کاربری یا رمز عبور اشتباه است.\” Me.lblErrors.ForeColor = vbRed End If End If If txtPass = userPassword Then If DLookup(\”userLevel\”, \”tblusers\”, \”[username]=[txtuser]\”) > 0 And Me.txtuser = userNameUser Then Me.lblErrors.Visible = True Me.lblErrors.Caption = \”شما دسترسی لازم برای ورود را ندارید.\” Me.lblErrors.ForeColor = vbRed Else Me.lblErrors.Visible = True Me.lblErrors.Caption = \”نام کاربری یا رمز عبور اشتباه است.\” Me.lblErrors.ForeColor = vbRed End If End If End Sub[/FONT][/COLOR]
کامنت