مشکل در شناسایی کلمات دارای ی

سلام من در ابتدای ورود به اکسس فرمی دارم که با گرفتن نام کاربری و پسورد افراد اونها رو به فرم اصلیم (frmBase)هدایت می کنه و نام کاربریشون رو در یک تکست باکس(CurUser) نشون میده

در فرمم کلیدی دارم(CmdOpenAll) که میخام فقط موقعی که کاربر با نام مدیر وارد شده اون کلید visible باشه و در سایر موارد دیده نشه این کد رو هم نوشتم اما به علت اینکه در محیط vb حرف ی به شکل نقطه دار ثبت میشه به مشکل بر میخورم . لطفا راهنمایی کنین

Private Sub Form_Load()

 If me.TxtUser = "مدير" Then

    me.CmdOpenAll.Enabled = True

 Else

   me.CmdOpenAll.Enabled = False

   DoCmd.Beep

 End If

End Sub

قطعا شما نام يوزراتونو در داخل يه كمبو باكس قرار داديد كه اپراتور ميتونه اونو انتخاب كنه .اگه اينجوري باشه شما ميتونيد توي تيبلي كه نام يوزرا تونو ذخيره كرديد براي هر يوزر يه كد از نوع number تعريف كنيد وبه جاي اينكه كلمه "مدير" رو در داخل كدنويسي استفاده كنيد كدعددي مربوط به اين مدير را وارد كنيد وديگر چون متغير شما عدد هست به مشكل برنمي خوريد
مثلا كد 1 براي مدير كد2 براي يوزر1 كد 3 براي يوزر2 و ....

به این مورد هم فکر کردم اما نتونستم راهی پیدا کنم که عدد معدل با هر کاربر رو چک کنم
از اول میگم :
من جدولی دارم به نام 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 استفاده کنیم

سلام
شما میتونی از این کد برای جستجوی کاربرت استفاده کنی:

کد HTML:

---

passwordsearch = DLookup("[password]", "tblName", "userID =" & personelnameCOMBO)

---

personelnameCOMBO کمبویی هست که توش کاربر، یوزر رو انتخاب میکنه

ممنونم
فعلا مشکل بررسی مدیر بودن فرد لوگین کنده را به شکل غیر منطقی حذف کردم ( در پستهای بعدی نمونه میزارم )

درباره کد شما نکته اینجاست که بنا به دلایلی در فرم ورودی از کمبو استفاده نکرده ام
ضمنا بعد از اعتبار سنجی کاربر فرم ورود بسته شده و فرم Frm1 باز شده است که در یک تکست باکس نام کاربر را نمایش می دهد و الان می خواهم عدد وارد شده در فیلد AccessType آن کاربر ( در جدول کاربران)را بدست بیاورم
که با تغییراتی در کد شما می توان اینکار را کرد

سلام
خوب اون کد من، یک مثاله
شما میتونید به تکست باکستون وصلش کنید
مهم دستور Dlookup هستش که شما برای کار خودتون ازش قراره استفاده کنید
به جای کمبو باکس، اسم تکست باکستون رو تو کد بنویسید

راستش Syntax دستورDLookup یادم رفته بود که با خوندن راهنمای اکسس یادم اومد
از راهنماییتون بی نهایت ممنونم

هنوز مشکل داره :ناراحت:

نمونه اي كه براتون گذاشتم فرمي هست كه من توي شروع اكثر برنامه هام از اون استفاده ميكنم. قطعا بهتون كمك ميكنه

با سلام
دوست عزیز روال شما اشتباه است.!!! :متعجب:

من توی برنامه ای که نوشتم نیازی مثل همین پیشنهاد شما داشتم منتها با یک روش ابتکاری و خیلی ساده تونستم ساده و کارامدتر ایجادش کنم.

برنامه :
https://barnamenevis.org/showthread.p...5%D9%84/page11

و اما روش من :

همه ی فرمهای شما یک نام بخصوصی دارن و دوتا فرم همنام ندارید (غیرممکنه)
شما یک جدول درست کنید و فیلدهای آن را به تعداد مورد نیاز :
1 - ID از نوع کلید اصلی
2 - username و یا هر نام دلخواه که برای ذخیره نام کاربری استفاده می شود
3 - pass و یا ...
4 - فرض میکنیم شما یک فرم به نام Frmain دارید و یک فرم بنام Frstartup فرم Frstartup همان فرمی است که از آن بعنوان فرم ورود استفاده میکنیم و یوزر و پسورد را در آن اعتبار سنجی میکنیم
و اگر نام کاربری و رمز درست بود (بر فرض فعال بودن کاربر) فرم Frmain نمایش داده میشه و روال frstartup پایان میگیره خب چکار کنیم ؟
خب سادست شما به تعداد فرمهایی که دارید فیلد درست میکنید منتها فیلدی که نوعش Yes/No هستش و اسمش دقیقاً اسم فرمتون مثل Frmain Or another
خب تا اینجا معلومه، حالا فرض کنید یوزر ATA قابلیت مشاهده و یا حتی ویرایش و یا حتی اعمالهای دیگر را در فرم Frmain بعضی رو بله و بعضی رو خیر هست.
اعتبار هر کدام به سادگی یک چک کردن / و آنچک کردن قابلیت یک فرم هست.

حالا بریم سر اصل موضوع ورود، فرم استارتاپ رو Load میکنیم با باز شدن برنامه
فیلدهای Username and password textbox's رو validate میکنیم و اعتبارسنجی میکنیم
حالا بریم سر اصل موضوع

خب اول ببنیم کاربر فعال است یا نه (Optional)

Dim isactiv As Boolean

isactiv = DLookup("active", "user", "id=" & txt_user.Column(2))

خب فرض کنید مقدار برگشتی برابر True می باشد خب Next Level

If IsNull(isactiv) = True Then

MsgBoxFa Space(40) & " ÎØÇíí ÏÑ ÇÌÑÇí ÈÑäÇãå ÑÎ ÏÇÏå ÇÓÊ¡ áØÝÇð í˜ ÈÇÑ ÏíÑ ÇãÊÍÇä äãÇííÏ " & Space(50), vbExclamation

Exit Sub

ElseIf isactiv = False Then

MsgBoxFa Space(35) & " ˜ÇÑÈÑ ÜÜÑÇãí ÍÓÇÈ ˜ÇÑÈÑí ÔãÇ ÛíÑ ÝÚÇá ÇÓÊ¡ áØÝÇð ÈÇ ãÏíÑíÊ ÈÑäÇãå ÏÑãíÇä ȐÐÇÑíÏ " & Space(50), vbApplicationModal, txt_user.Value

Exit Sub

ElseIf isactiv = True Then

Bright :
خب تا اینجا روشنه بریم چک کنیم آیا رمز مختص به کاربر هست یا نه ؟؟

ElseIf isactiv = True Then

Select Case txt_pas

Case Is = Temp$

DoCmd.ShowToolbar "main_toolbar", acToolbarYes

ActiveUser = txt_user.Column(2)

ActivUserName = txt_user.Column(1)

DoCmd.Close acForm, Me.name

Case Is <> Temp$

rs = MsgBoxFa(Space(40) & " ÑãÒ ÚÈæÑ ÇÔÊÈÇå ãí ÈÇÔÏ " & Space(60), vbExclamation + vbRetryCancel, "ÎØÇ")

If rs = vbRetry Then

txt_pas.SetFocus

txt_pas.Value = Null

Else

DoCmd.Close

Exit Sub

End If

Case Else

Exit Sub

End Select

End If

End Sub

خب ببنید ما اینجا رمز رو چک کردیم و اگه رمز همخوانی داشت تولبار ساخته شده ی ما نشون داده می شه و در غیر صورت ...

حالا در تولبار ما منوی تعدادی از منوها هست که میخواهیم بعضی کاربرها به آن دسترسی داشته باشند و بعضی No
حالا توی هر فرم دوباره برمیگردیم و دنبال مقدار فیلد که برابر با نام فرم ما هست میگردیم و آن را درجایی که ID یوزر نیم برابر با ActiveUser است.

خب یه فانکشن چند خطی مشکل مارو حل میکنه:

Public Function UserCanUseThisForm(Formname As String) As Boolean

On Error GoTo RR

'abality = select formname where userid = USERID

Dim DoualCou As String, IsAbale As Boolean

'DoualCou = DLookup("chart", "phars", "id=1")

IsAbale = DLookup(Formname, "user", "id=" & ActiveUser)

If IsAbale = False Then

UserCanUseThisForm = False

MsgBox Space(35) & " ˜ÇÑÈÑ ÜÜÑÇãí ÍÓÇÈ ˜ÇÑÈÑí ÔãÇ ÈÑÇí ÇäÌÇã Çíä ÝÚÇáíÊ ãÍÏæÏ ãí ÈÇÔÏ " & Space(50), vbApplicationModal, "ãÍÏæÏíÊ"

DoCmd.Close acForm, Formname

Else

UserCanUseThisForm = True

End If

Exit Function

RR:

DoCmd.Close

MsgBox Space(40) & "ÎØÇíí ÏÑ ÑæÓå ÈÑäÇãå ÈæÌæÏ ÂãÏå ÇÓÊ áØÝÇð ãæÇÑÏ ÑÇ í˜ ÈÇÑ ÏíÑ ÈÑÑÓí äãÇííÏ" & Space(55), vbExclamation, "ÎØÇ"

Exit Function

End Function

خب اینم تابلوه!!
حالا بریم سر اصل فرمها:
در روال Open و یا Load هر یک از فرمهایتون فانکشن بالا رو Call کنید به این شکل:

Private Sub Form_Open(Cancel As Integer)

UserCanUseThisForm (Me.name)

End Sub

توی قسمت بالا UserCanUseThisForm یک مقدار True/False رو برمیگردونه و نمایش رو مقید میکنه به مقدار برگشتی، میگه که :
کاربر × میتونه این فرمو استفاده کنه ؟ جواب میتونه بله باشه که میشه استفاده کرد و میتونه نه باشه که با یک پیغام و یا هر نوع رفتار شما مواجه میشه


تشکر یادتون نره


موفق باشید

از کمکتون ممنونم ولي دوست عزيز ، فرم ورود در نمونه ارسالي من کاملا درست کار مي کنه (هر چند در نمونه ارسالي شما نکات خوبي وجود داره )
استفاده از تابع dlookup که آقاي wolfstander فرمودن علی القاعده باید درست باشه
در نونه ارسالی من ؛ نام کاربر و پسورد در فرم ورود با جدول کاربران چک میشه و وارد فرم frmBase میشیم و نام کاربر فعلی هم در تکست باکس نمایش داده میشه اما کدهای نوشته شده در رویداد onload فرم کار نمیکنن و کد دسترس رو نمی بینم و کنترل مورد نظرم disable نمیشه :ناراحت:
جالب اینجاست که در همون حالت وقتی فرم رو به حالت دیزاین میبیرم و دوباره به حالت طبیعی بر میگردونم ( دوباره رویداد onload اتفاق می افته) کدها کار میکنن :متعجب:
به نظرم در اجرای اولیه تابع dlookup مقدار null رو در متغیر قرار میده !!! ولی روش رفع مشکلو نمی دونم
اقای dadsara در اینجا توضیحاتی دادن که بخش 3 اون دقیقا برای مشکل بنده کارگشاست و پیاده سازی اون مد نظرمه

؟؟؟

شما اصلاً خوندین من دو صفحه چی نوشتم ؟
شما اگه میخواهید با زور برنامتون کار کنه خب بهش زور بدید!
ولی روش پیشنهادی بنده از همه حالت عالی و دقت برنامه نسبت به نمونه شما بالاست
نمیدونم خودتون بهتر میدونید البته روشهای بهتری هم وجود داره
:لبخند:

سلام id1385 من پست شما رو ندیده بودم و پست بالایی رو خطاب به دوست عزیزمون آقای mehdi_moghimi نوشتم .

از توضیحات مبسوط شما که اینقد ریز مطلب رو بیان کردین واقعا ممنونم البته الان تند تند خوندمش و خواستم تشکر کرده باشم . روشتون هم کامله و هم جامع . . حتما میتونین اشکال کار منم رفع کنین
تو اینجا هم روش خوبی وجود داره

هنوز هم مشتاقم بدونم کجای نمونه من اشتباهه که نه تونستم مقدار acseeLevel رو در فرم اصلیم و نه کدها درست کار کرده ؟؟
امیدوارم روش آقای dadsara جواب این مسئله باشه

id1385
سلام
توضیحاتتون رو خوندم اما متاسفانه نتونستم انجامش بدم
× پیامهای برنامتون فارسی نیستن و نفهمیدم چیه


اگه براتون ممکنه بزرگواری کنین و با ساده تر کردن کدهاتون در نمونه ارسالی بنده در فرم اصلی فقط با توجه به کاربری که وارد برنامه شده کلید CmdOpenFormAll رو که روش نوشته شده < فرم گزارش> رو فعال یا غیر فعال کنین یا اینکه سطح دسترس رو در تکست باکسی نشون بدین

بی نهایت ممنونم

با سلام
دوست عزیز مشکل شما به شکل زیر حل شد.

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

• و اینکه نام کاربر حاضر رو میتونید در فرمتون نمایش دهید

Private Sub Form_Load()

For I = 1 To 5

Me("cmd" & I).Enabled = UserCanUse("cmd" & I)

Next I

LbUser.Caption = "[" & CurrentUser_Name & "]"

End Sub

و حالا این دو خط چه عملیاتی رو انجام میدهند.

تعاریف پایه در ماژول :

Public UserId As String ' save user id

   Dim dbs As Database

   Dim rst As Recordset

   Dim strSql As String

فانکشن مربوز به نمایش نام کاربر:

Public Function CurrentUser_Name() As String

On Error GoTo err

If IsEmpty(UserId) = False Then

  Set dbs = CurrentDb()

  Dim RS As Recordset

  Dim strSQL_1 As String

    strSQL_1 = "SELECT * FROM [user] WHERE [id]=" & UserId & ";"

    Set RS = dbs.OpenRecordset(strSQL_1)

CurrentUser_Name = RS.Fields(1)

Else

CurrentUser_Name = "?"

End If

Exit Function

err:

Exit Function

End Function

فانکشن مربوط به اعتبار هر کدام از باتن های موجود در فرم بنا به تعریف دسترسی هر کاربر:

Public Function UserCanUse(ObjectName As String) As Boolean

On Error GoTo err01

If IsEmpty(UserId) = False Then

  Set dbs = CurrentDb()

  strSql = "SELECT * FROM [userlevel]"

  strSql = strSql & " WHERE [ObjectName]='" & ObjectName & "' AND [UserId]=" & UserId & ";"

  Set rst = dbs.OpenRecordset(strSql)

    If (rst.EOF) Then

        UserCanUse = False

        Else

        'MsgBox "user can see " & ObjectName

        UserCanUse = rst.Fields(2)

    End If

    End If

        Exit Function

err01:

        MsgBox Space(45) & "Error!" & Space(35), vbExclamation, "Error"

End Function

تا اونجا که راه داشت سعی کردم به شکل خیلی خیلی ساده ولی کارآمد مشکلتون رو حل کنم.



تشکر یادتون نره چون درسمو بی خیال شدم اومدم اینو حل کردم :بامزه:
موفق باشید

id1385
خیلی خیلی تشکر که وقت گذاشتین راستشو بخایین زیاد از رکوردست و اینا اطلاع کافی ندارم
خوشبختانه تو برنامه انبارداری شما و توضیحات بقیه دوستان نکته ای بود که بوسیله اون برنامه رو درست کردم

در فرم ورود نام کاربر رو به شکل کمبو باکس کردم و در یکی از ستونها سطح دسترسی رو قرار دادم
از اینجا به بعدش مشکلی نبود اما شرحش میدم تا بحث تاپیک حل نشده باقی نمونه :
بعد از بررسی صحت نام و رمز کاربر فرم اصلی رو باز می کنم و عدد نشان دهنده سطح دسترسی رو به فرم اصلی انتقال دادم
روش اول :

strUserAclevel = TxtUsername.Column(2))

روش دوم :

 strUserAclevel = DLookup("AccessLevel", "tblUsers", "UserID=" & Forms![frmEnter]!TxtUsername.Column(3)) 

( همه قالبهای فرمان DLookup در اینجا هست )

حالا فرم ورود رو می بندم و قاعدتا باید در فرم اصلی با توجه به سطح دسترسی اعمال لازم مثل فعال یا غیر فعال کردن باتونها رو انجام بدم

اما مشکل اینه که چون اول فرم اصلی باز شده ( عمل لود انجام شده ) نمی تونم دستور فعال یا غیر فعال کردن باتونها رو در رویداد لود فرم اصلی بنویسم :ناراحت:

باز هم بابت وقتی که صرف کردین ممنونم

خوشبختانه حلش کردم
قبل از بستن فرم ورود ، فوکوس رو به یک شی فرم اصلی دادم
Forms!frmBase!txtCurUser.SetFocus
و کدها رو در رویداد On Got Focus اون نوشتم

از همتون ممنونم

سلام به همه ی عزیزان من در اول فایل access یه فرم دارم که user و pass رو میگیره و به فرم اصلی میره .میخوام وقتی شخصی login کرد اسمش تو رکوردی که اطلاعات وارد می کنه خودکار ثبت بشه .لطفاً راهنمایی کنید

راه ساده اینست که در یک ماژول ، یک متغیر عمومی تعریف کنید(Public UserNam As String) ودر زمان ورود به سیستم درفرم LogIn آنرا با نام کاربر مقداردهی کنید(UserNam = Me.User) . در فرمهایی که مخصوص دریافت و یا ویرایش اطلاعات است، در رویداد Current فرم ، فیلد User را به آن نسبت دهید(Me.User= UserNam)
راه دیگر هم استفاده ازجدول ثبت ورودوخروج کاربران و دسترسی به فرمها و اشیا مختلف است که پیچیده تراست..

با سلام
وقتی اجرا میکنم رو ی عبارت AddressOf خطا میده