ربط كل مستخدم بالفرع الخاص فيه؟

[alzahrani2014]

السلام عليكم

( يامن خذ له من حلاله عله ) هههههههه انطبق علي المثل 

عملت برنامج خاص بالفرع حقنا والان مطلوب رفعه على الشبكه .... مايهمني رفعه على الشبكه 

الاهم .... كل فرع يدخل بياناته وفي خانات البحث والاستعلامات عنده لا يتم البحث الا في بيانات فرعه فقط وبيانات الفروع الاخر لا يشاهدها ... ما العمل ؟

هل نربط كل مستخدم بفرعه ؟ ولكن كيف .... صعب الان البناء من جديد بياخذ وقت

طبعت عندي جدول باسماء الفروع فيه حقل  branch  وجدول البيانات كامل فيه حقل اسمه branch

تم تعديل أكتوبر 27, 2021 بواسطه alzahrani2014

[د.كاف يار]

ارفق نسخة بدون بيانات

لابد يكون فيه حلول نختار ايسرها و اسهلها انشاء الله

[alzahrani2014]

تفضل ان شاء الله تفي بالغرض @د.كاف يار    الحقل الرابط بين الجدولين maktb

498708699_asd(5).accdb

تم تعديل أكتوبر 27, 2021 بواسطه alzahrani2014

[أبو عبدالله الحلوانى]

السلام عليكم 

هذه فكرة سريعة واعذرني لا املك الوقت الكافي للاطلاع علي المرفق والتعديل عليه 

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

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

يتم تعديل بسيط في مصدر بيانات النماذج الخاصة بالبحث والادخال والتعديل بجعل مصدر البيانات استعلام يقوم بفلترت البيانات حسب رقم الفرع الخاص بالمستخدم الذي يستعمل البرنامج 

وفقط

ودمتم

وتمنياتي بالتوفيق

[alzahrani2014]

للرفع

13 ساعات مضت, أبو عبدالله الحلوانى said:

فقط اضافة حقل رقم الفرع في جدول المستخدمين - وكذلك في الجدول

حاولت بس فشلت 

[alzahrani2014]

هذي جزء من القاعدة مرفق معها احد نماذج البحث

asd (5).accdb

[د.كاف يار]

قم بإنشاء Module جديد

و الصق فيه الشفرة التالية

Public Function SetUserLogIn(User_Name_LogIn As String, Form_Name As String, Branch_Name As String)
On Error Resume Next
Dim varFilter As Variant
Call Edit_Tables
varFilter = Null
      varFilter = (varFilter) & "[User_Name_LogIn] LIKE '" & User_Name_LogIn & _
                                "' AND [Branch_Name] LIKE '" & Branch_Name & "'"
   With Forms(Form_Name)
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = True
     .Requery
  End With
End Function
Public Sub Edit_Tables()
On Error Resume Next
    Dim tdf As DAO.TableDef
    Dim db As DAO.Database
    Set db = CurrentDb
    For Each tdf In db.TableDefs
        If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then
            DoCmd.RunSQL "ALTER TABLE " & tdf.Name & " ADD [User_Name_LogIn] varchar(90)"
            DoCmd.RunSQL "ALTER TABLE " & tdf.Name & " ADD [Branch_Name] varchar(90)"
        End If
    Next
End Sub

و في جميع النماذج و التقارير  في حدث عند الفتح ضع الكود التالي

Call SetUserLogIn("حقل اسم المستخدم", Me.Form.Name, "حقل الفرع")

تفضل التعديل

 

asd (5).accdb

[alzahrani2014]

اشكرك دكتور

غيرت صفحة البداية الى navigation بدل النموذج الذي عملته حضرت فواجهتني مشكلتين

الاولى اصبح الدخول لكل النماذج حتى صفحة admin 

الثانية لم تتم اي فلترة في خانة البحث تظهر لي المعاملات ولم تظر المعاملات الخاصة باليوزر الفلاني اللي دخلنا فيه 

ياليت كرما منك التعديل على المرفق

 

asd4.accdb

تم تعديل أكتوبر 28, 2021 بواسطه alzahrani2014
ارفاق المرفق الصحيح

[سامي الحداد]

اخي العزيز

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

اما بالنسبة للمشكلة الثانية سوف احاول ان شاءالله .

asd4.rar

[alzahrani2014]

منذ ساعه, سامي الحداد said:

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

🤙

[سامي الحداد]

اخي الكريم

اليك التعديل في المرفق 

المستخدمين  AA و BB كلمة السر 555 .  

p1 123

p5 123

بالتوفيق 

 

Asd New.rar

[alzahrani2014]

تسلم استاذ سامي

زادك الله من فضله .... تسلم الانامل 

جربته وكله تماااااام 🌺

[سامي الحداد]

الله يسلمك ويبارك فيك اخي الكريم

بالتوفيق ان شاءالله 

تحياتي