به این مورد هم فکر کردم اما نتونستم راهی پیدا کنم که عدد معدل با هر کاربر رو چک کنم
از اول میگم :
من جدولی دارم به نام tblUsers که شامل دو فیلد Name و Password هست
و فرمی شامل دو تکست باکس به نامهای TxtUsername و TxtPassword
اگر رمز عبور و نام کاربری درست باشند فرم Frm1 باز خواهد شد و نام کاربر در تکست باکسی به نام TxtUser نمایش داده میشه
( از این نام در گزارش گیری و .. استفاده می کنم و نمیخوام ي در اون باشه )
توی فرم Frm1 باتونی دارم به نام Btn1 که میخوام تنها در صورتی دیده بشه که کاربری با نام مدیر وارد شده باشه
مشکل اینه که در کد نویسی اکسس 2003 حرف ي ثبت میشه و با نام کاربر که ی داره نمیخونه
کد فرم ورودی هم اینه
Private Sub CommandEnter_Click()
Set Rst = CurrentDb.OpenRecordset(" select * from tblUsers where((Name='" & TxtUsername & "') and(Password='" & TxtPassword & "'))")
If Rst.EOF Then
Beep
Private Sub CommandEnter_Click()
Set Rst = CurrentDb.OpenRecordset(" select * from tblUsers where((Name='" & TxtUsername & "') and(Password='" & TxtPassword & "'))")
If Rst.EOF Then
Beep
MsgBox "نام کاربر يا کلمه عبور اشتباه مي باشد", vbCritical, "توجه"
DoCmd.GoToControl "txtUsername"
Else
DoCmd.OpenForm "Frm1"
Forms!Frm1!TxtUser = Forms!frmEnter!TxtUsername
DoCmd.Close acForm, "frmEnter", acSaveYes
End If
Rst.Close
End Sub
DoCmd.GoToControl "txtUsername"
Else
DoCmd.OpenForm "Frm1"
Forms!Frm1!TxtUser = Forms!frmEnter!TxtUsername
DoCmd.Close acForm, "frmEnter", acSaveYes
End If
Rst.Close
End Sub
اتفاقا روش شما هم خیلی خوب میتونه باشه چون در صورت موفقیت میشه به جدول کاربران فیلد سومی اضافه کرد که اگه 1 بود کاربر مدیر شناخته بشه و کلید Btn1 رو ببینه و اگه 0 بود نبینه و به راحتی بتونیم به هر کاربری که لازمه دسترسی بدیم
بنابر این به جز بحثی که درباره حرف ي داریم یک نکته هم می تونه این باشه که چطور یک کوِری یا اسکیول را اجرا کنیم ( برای بدست آوردن عدد نسبت داده شده به آن کاربر در جدول کاربران ) که آن عدد را در vb استفاده کنیم
پاسخ با نقل قول