مشكلة في السيرفر، نظام صلاحيات لـ 8 مدن (عنوان معدل)

[sofiane05552]

لدي مشكلة في سيرفر  بعدما  وضعت قاعدة البياتات اول شئ

مشكلة هي انا عندي نظام صلحيات في قاعدة بيانات هذا  نظام مخصص لكل  مدير يتحكم في قاعدة بيانات لكي يعطي صلحيات دخول للقاعدة بيانات بعدما يسجل مستخدم جديد يكلم مديره يعطيه صلحيات دخول   يعني عندي  القاعدة متكونة 8 جداول مفرقة  كل جدول  مخصص لمدينة وكل مدينة لاتتستطيع ان ترى جدول  مدينة ثانية  لانها  مخصصة لــــ 8 مدن  لان شركة لديها فروع في 8 مدن يعني بعد وضع قاعدة في سيرفر فهمت انو  8 مدن كلما  يسجلو كامستخدمين  جدد و مستخدم اذا راسل  مدير  عشان يعطيه صلحيات دخول راح يلاقي  مستخدمين كثير تبع 8 مدن اريد حلا لكي المدير   يشوف المستخدمين تبع مدينة 1 مش تبع 8 مدن مثلا لو سجل مستخدم 1 بمدينة فلانية مدير راح يلاقي المستخدم التابع لمدينته  فقط  عشان يعطيه صلحيات دخول 

حاليا  مشكلة لانها في سيرفر  8 مدن كلهم اذا سجلو  راح يطلع  اسمائهم  في جدول صلحيات  اريد حلا لكي يصبح من يسجل في مدينته يطلع في جدول  تبع مدينة ذيك فقط مايطلع لي  تبع 8 مدن في جدول  1 هل من طريقة او كود  او شئ  اتمني  افادتي بحل  او  طريقة  صورة توضيحية 

[jjafferr]

وعليكم السلام

 

الظاهر من كلامك انك محتاج تصفية لكل مدينه ، والافضل ان تتم التصفية من الاستعلام ، بحيث لما يدخل المدير في النموذج ، تلقائيا يقوم النموذج بتصفية بيانات النموذج حسب مدينته

 

جعفر

[sofiane05552]

1 دقيقه مضت, jjafferr said:

وعليكم السلام

 

الظاهر من كلامك انك محتاج تصفية لكل مدينه ، والافضل ان تتم التصفية من الاستعلام ، بحيث لما يدخل المدير في النموذج ، تلقائيا يقوم النموذج بتصفية بيانات النموذج حسب مدينته

 

جعفر

هذه صورة توضيحية 

[jjafferr]

هذا مثال

 

جعفر

[sofiane05552]

1 دقيقه مضت, jjafferr said:

هذا مثال

 

جعفر

الف  شكر يا استاذ هل  يمكن ان ارسل لك ملف مصغر  ان تضع لي  حلا  لهذه عملية واكون شاكرا لك  واذا  لم تستطع فسأكون شاكرا لك لانك  قمت بالرد علي  

[jjafferr]

نعم تفضل ، ولكن رجاء اعطاء تفصيل عن اسم النموذج وما الذي يجب ان يصير ، بمثال ، حتى اتتبع المثال ونوصل الىنتيجة

[sofiane05552]

الان, jjafferr said:

نعم تفضل ، ولكن رجاء اعطاء تفصيل عن اسم النموذج وما الذي يجب ان يصير ، بمثال ، حتى اتتبع المثال ونوصل الىنتيجة

يب اكيد يا استاذ 

[sofiane05552]

تم  تحميل المرفق 

Database4.rar

[sofiane05552]

55 دقائق مضت, jjafferr said:

نعم تفضل ، ولكن رجاء اعطاء تفصيل عن اسم النموذج وما الذي يجب ان يصير ، بمثال ، حتى اتتبع المثال ونوصل الىنتيجة

استاذ ممكن سؤال  هل  يمكن قبل تعديلها  طرح سؤال  هل يمكنك  مثلا قبل  اعطاء  نسخ لكل  مدينة  يعني تبقي  عندي نسخة اشاهد كل مستخدمين تبع المدن 8 عندما  يسجلون  لكن المدن  يشاهدون  المستخدمين  تبع مدنهم فقط مايشهدون كل  المستخدمين مثلي  يعني  مدير  المدينة 1 يشاهدة مستخدمين تبع المدينة  1 فقط وتبع المدينة 2 يشاهد تبع 2 فقط  و  3 و 4  5  6  7 8 الخ لكن انا  فقط اشاهد كل  مستخدمين تبع  8 مدن 

[jjafferr]

3 ساعات مضت, sofiane05552 said:

استاذ ممكن سؤال  هل  يمكن قبل تعديلها  طرح سؤال  هل يمكنك  مثلا قبل  اعطاء  نسخ لكل  مدينة  يعني تبقي  عندي نسخة اشاهد كل مستخدمين تبع المدن 8 عندما  يسجلون  لكن المدن  يشاهدون  المستخدمين  تبع مدنهم فقط مايشهدون كل  المستخدمين مثلي  يعني  مدير  المدينة 1 يشاهدة مستخدمين تبع المدينة  1 فقط وتبع المدينة 2 يشاهد تبع 2 فقط  و  3 و 4  5  6  7 8 الخ لكن انا  فقط اشاهد كل  مستخدمين تبع  8 مدن 

1. اساس الموضوع ، انك تعمل معيار "اسم المدينة" في الاستعلام الذي يفتح نموذج اعطاء الصلاحيات ،

2. بينما لك انت ، فتحذف المعيار من الاستعلام ، فترى جميع المدن.

 

جعفر

[sofiane05552]

39 دقائق مضت, jjafferr said:

1. اساس الموضوع ، انك تعمل معيار "اسم المدينة" في الاستعلام الذي يفتح نموذج اعطاء الصلاحيات ،

2. بينما لك انت ، فتحذف المعيار من الاستعلام ، فترى جميع المدن.

 

جعفر

عندما اضعها في سيرفر  راح اصير اشوف  كل  مستخدمين الجدد في  الجدول عندما يسجلون لان ميزة  السيرفر  تخلي بيانات مشتركة بين 8 مدن انا اريد  طريقة او شئ  تخلي  صلحيات المدير الي تعطي  صلجيات الدخول للمستخدم ماتكون مشتركة يعني مش  كل  8 مدن يشوفون المستخدمين تبع المدن اخري  ابي  كل  مدينة  تشوف  مشتخدمين تبعها في  صلحيات المدير  يعني المدير عنده اسم دخول  ورقم سري  خاص به يلاقي  فيه قائمة المستخدمين الجدد الي يبي يعطيه صلحيات دخول  يسوي عليه علامة صح انا ابيه مايشوف  المستخدمين تبع المدن اخري يشوف تبع مدينته  فقط لان مشكلتي في سيرفر  عندما  وضعتها  اذ سجلواا كل العاملين حاليا الي هم في  8 ولايات المدير يشوف   كل  مستخدمين دفعة 1 في جدول  يعني ماتقدر تعرف مين معاك ومين لا  بخصوص اسماء المدن  8    

                               COM /CBR /GPL /Branches / Centres Bitumes / Centre de Formation /Direction Générale  / UDM

بخصوص  ردك الحلو

------------------------------------------------------------------------------------------------------------------------

1. اساس الموضوع ، انك تعمل معيار "اسم المدينة" في الاستعلام الذي يفتح نموذج اعطاء الصلاحيات ،

2. بينما لك انت ، فتحذف المعيار من الاستعلام ، فترى جميع المدن.

--------------------------------------------------------------------------------------------------------------------------

معيار  اسم المدينة في استعلام بيكون خاص للمدن  عشان مايقدرو يشوفو بعضهم البعض وانا شخصيا احذف  لمعيار  عشان اشوف  كل  مدن  واعرف  كل مستخدمين  الجدد 

تم تعديل أغسطس 1, 2017 بواسطه sofiane05552

[jjafferr]

2 دقائق مضت, sofiane05552 said:

 

معيار  اسم المدينة في استعلام بيكون خاص للمدن  عشان مايقدرو يشوفو بعضهم البعض وانا شخصيا احذف  لمعيار  عشان اشوف  كل  مدن  واعرف  كل مستخدمين  الجدد 

نعم

[sofiane05552]

10 دقائق مضت, jjafferr said:

نعم

تمام  كويس  يا استاذ

[sofiane05552]

21 ساعات مضت, jjafferr said:

نعم

هل وصلك النموذج أخي  jjafferr

تم تعديل أغسطس 2, 2017 بواسطه sofiane05552

[jjafferr]

وعليكم السلام

 

في نموذج Login ، نريد ان نحتفظ باسم المستخدم في متغير

.

وفي النموذج Form01 كلما اردت ان تفتح النموذج admin ، فيجب ان تنادي الوحدة النمطية لكي تفتحه لك باسم المستخدم الصحيح ، او Sofiane

.

وهذه هي الوحدة النمطية التي تعمل مصدر بيانات للنموذج admin ، وتفتحه:

Option Compare Database

Public Current_User As String
Public frm_RecordSource As String
'

Public Function Get_User()

    Get_User = Current_User
End Function

Function Get_City() As String

    Get_City = Current_City
End Function

Function Current_City() As String
On Error GoTo err_Current_City
    
    Dim x() As String
    
    City = DLookup("[COM] & '|' & [CBR] & '|' & [GPL] & '|' & [Branches] & '|' & [Centres Bitumes] & '|' & [Centre de Formation] & '|' & [Direction Générale] & '|' & [UDM] & '|' & [admin]", "users", "[username]='" & Current_User & "'")
    
    x = Split(City, "|")

    'which city
    If x(0) = True Then
        Current_City = "COM"
        
    ElseIf x(1) = True Then
        Current_City = "CBR"
    
    ElseIf x(2) = True Then
        Current_City = "GPL"
        
    ElseIf x(3) = True Then
        Current_City = "Branches"
        
    ElseIf x(4) = True Then
        Current_City = "Centres Bitumes"
        
    ElseIf x(5) = True Then
        Current_City = "Centre de Formation"
        
    ElseIf x(6) = True Then
        Current_City = "Direction Générale"
        
    ElseIf x(7) = True Then
        Current_City = "UDM"
        
    ElseIf x(8) = True Then
        Current_City = "Admin"
        
    End If
    
    'Mr sofiane is exempted
    If Current_User = "sofiane" Then
        Current_City = ""
        frm_RecordSource = "SELECT * FROM users"
    Else
    
        frm_RecordSource = "SELECT username, password, admin, [" & Current_City & "] FROM users Where [" & Current_City & "]= True"
    End If
    'Debug.Print frm_RecordSource
    
Exit_Current_City:

    DoCmd.OpenForm "admin"
    Forms!admin.RecordSource = frm_RecordSource
    
    
Exit Function
err_Current_City:

    If Err.Number = 94 And Current_User = "sofiane" Then
        Current_City = ""
        frm_RecordSource = "SELECT * FROM users"
        Resume Exit_Current_City
        
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Function

 

جعفر

709.Database4.mdb.zip

[sofiane05552]

استاذ جعفر  مشكور  علي  ردك المبدع وجزاك الله خيرا على مساعدتي  و اريد ان اقول لك مستخدمين  الموجودين داخل زر اوك  الي  هم في صورة  ذي  المستخدم اول لا يوجد فيه منفعة راح احذفه  بخصوص  مستخدم 2 يفتح الشيفت   في موضوع تبعك مافهمت ايش يقصد في كود  اسم sofiane وش  مهمته او  ايش  معناه  سجلت بعض المستخدمين  الجدد عندما دخلت ادمين لم اجدهم كمان انحذفو من جدول  مدري ليش اظن فكرة لسا مفهمته انا  كويس  هل  يمكنك يااستاذ مساعدتي في فهم الفكرة 

[jjafferr]

ما فهمت قصدك ابدا

رجاء اكتب الملاحظات كأرقام 1 و 2 ... ، 

ورجاء اعطني مثال عن اللي تتكلم عنه.

 

جعفر

[sofiane05552]

5 دقائق مضت, jjafferr said:

ما فهمت قصدك ابدا

رجاء اكتب الملاحظات كأرقام 1 و 2 ... ، 

ورجاء اعطني مثال عن اللي تتكلم عنه.

 

جعفر

End If
    
    'Mr sofiane is exempted
    If Current_User = "sofiane" Then
        Current_City = ""
        frm_RecordSource = "SELECT * FROM users"
    Else 

في كود ذا مافهمت ليه  لاسم ذا  مكتوب  هون قصدي  ايش  مهمته  sofiane و ايضا عندما اضعها  في سيرفر  كل مدينة عندها مستخدم  خاص بها الي يعطي صلحيات دخول يعني كيف  يجب  علي انشاء  مستخدم يكون معاه كل صلحيات الي هو المدير  عشان اذا  سجلو اعضاء المدينة  ذيك راح يقدر يعطيهم صلحيات  كذا صح

تم تعديل أغسطس 3, 2017 بواسطه sofiane05552

[jjafferr]

9 دقائق مضت, sofiane05552 said:

End If
    
    'Mr sofiane is exempted
    If Current_User = "sofiane" Then
        Current_City = ""
        frm_RecordSource = "SELECT * FROM users"
    Else 

1. في كود ذا مافهمت ليه  لاسم ذا  مكتوب  هون قصدي  ايش  مهمته  sofiane

و ايضا عندما اضعها  في سيرفر  كل مدينة عندها مستخدم  خاص بها الي يعطي صلحيات دخول يعني كيف  يجب  علي انشاء  مستخدم يكون معاه كل صلحيات الي هو المدير  عشان اذا  سجلو اعضاء المدينة  ذيك راح يقدر يعطيهم صلحيات  كذا صح

1. انت قلت تريد ان تكون عندك صلاحية النظر في جميع المدن ، فكتبت اسمك Sofiane ،

يعني لما انت تدخل في البرنامج باسمك وكلمة السر ، ثم تفتح النموذج Admin ، سترى جميع المدن.

 

اما بالنسبة لباقي اللي انت كتبته ، فوالله لم افهم شيء من جملتك/تعبيرك ، والله ، وطلبت منك 

18 دقائق مضت, jjafferr said:

ما فهمت قصدك ابدا

رجاء اكتب الملاحظات كأرقام 1 و 2 ... ، 

ورجاء اعطني مثال عن اللي تتكلم عنه.

رجاء ، رجاء 

 

جعفر

[sofiane05552]

12 دقائق مضت, jjafferr said:

1. انت قلت تريد ان تكون عندك صلاحية النظر في جميع المدن ، فكتبت اسمك Sofiane ،

يعني لما انت تدخل في البرنامج باسمك وكلمة السر ، ثم تفتح النموذج Admin ، سترى جميع المدن.

 

اما بالنسبة لباقي اللي انت كتبته ، فوالله لم افهم شيء من جملتك/تعبيرك ، والله ، وطلبت منك 

رجاء ، رجاء 

 

جعفر

انا جزائري  وللغتنا  مخربطة ههههه يعني  اتعذب  عشان اسوي  تعبير صحيح  لاتلومني  ان شاء الله ماتتعذب معي  مشكلة انا سجلت اسم sofiane سويت باس 123 زي ماقلت لي  رحت ادخل على admin   جاتني رسالة تقول ليس لدي صلحيات وبعدين دخلت للجدول سويت كل علامات صح علي  اسمي  عشان يكون معي صلحيات رحت اجرب ادخل علي admin  طلعت لي رسالة  ذي  الي بصورة 

[jjafferr]

انا لا اعرف اذا انت حذفت شيء من البرنامج ، وعملت فيه خلل!!

ولكن ، اليك هذه الصور من البرنامج الذي ارفقته انا في مشاركتي اعلاه:

.

.

.

.

يعني شغال تمام

 

جعفر

[sofiane05552]

هههههه بارك الله فيك يا أستــــــــاذ لأن فهمت الشغل  ولله اسف  تعبتك معي ماكنت فاهم شغل  كيف  لكن لحين فهمت كل شئ  من خلال صورة الي ارسلتها لي

 لكل مبدع إنجاز ولكل شكر قصيدة ولكل مقام مقال، ولكل نجاح شكر وتقدير، فجزيل الشكر أهديك  ورب العرش يحميك 

شكراً لك من أعماق قلبي


 

[jjafferr]

حياك الله

[sofiane05552]

2 ساعات مضت, jjafferr said:

حياك الله

أستاذ اسف  اذا ازعجتك معي بخصوص  نظام صلحيات جربته لأن  لادمين Sofiane الي يمثل كل ولايات  معاه كل صلحيات يشوف كل  مستخدمين  عندما  يسجلون في برنامج  هنا طريقة كويسة في مرحلة ذي لكن مشكلة Admin  اخرون 1-2-3-4-5-6-7-8  تبع المدن 8 الي  يشوفون مستخدمين تبع مدنهم فقط مش زي sofiane يشوفون كلشئ ابي  مثل  طريقة sofiane  في مدن من 1 الي 8 يعني رقم 1 يشوف المستخدمين الي  مسجلين في رقم 1 مايقدر يشوف المستخدمين تبع الرقم 2  المقصود واحد مايشوف ثاني بس sofiane  الي يشوف  كلشئ هنا ماعرفت كيف جربت سجلت مستخدم جديد ماعرفت كيف  اخليه مثلا يطلع في  مدينة 1 او 2 او 3 او  4او  5او  6 او 7او 8 

تم تعديل أغسطس 3, 2017 بواسطه sofiane05552

[jjafferr]

جرب المستخدم a ، وكلمة السر a ، هو لمدينة معينة ،

جرب المستخدم b ، وكلمة السر b، هو لمدينة اخرى ،