حقل قيم متعدده و التعامل معه

[Mohamed Abo Elala]

عندي حقل قيم متعدده و البيانات اللي فيه بيانات رقمية 

ازاي اخزن القيم اللي فية في متغير من نوع temp!var

[Foksh]

44 دقائق مضت, Mohamed Abo Elala said:

عندي حقل قيم متعدده و البيانات اللي فيه بيانات رقمية 

ازاي اخزن القيم اللي فية في متغير من نوع temp!var

وعليكم السلام ورحمة الله وبركاته ، أخي @Mohamed Abo Elala ،

هلا ارفقت مثال على طلبك ليتم التطبيق عليه ,,
هناك فكرة علها تفيدك ولكن بعد ارفاقك للملف  .

[Mohamed Abo Elala]

شكرا استاذي العزيز 

عندي 2 مستخدم 

1 محمد 

2 عمر 

المستخدم محمد ادمن عايزة يشوف كل الاسماء في نموذج frmSearch  (محمد و عمر )

المستخدم عمر يوزر عادي عايزة يشوف ( اسم عمر فقط )

[Mohamed Abo Elala]

 

23 ساعات مضت, Foksh said:

وعليكم السلام ورحمة الله وبركاته ، أخي @Mohamed Abo Elala ،

هلا ارفقت مثال على طلبك ليتم التطبيق عليه ,,
هناك فكرة علها تفيدك ولكن بعد ارفاقك للملف  .

اوفيسنا.rar

[Foksh]

2 ساعات مضت, Mohamed Abo Elala said:

لمستخدم محمد ادمن عايزة يشوف كل الاسماء في نموذج frmSearch  (محمد و عمر )

المستخدم عمر يوزر عادي عايزة يشوف ( اسم عمر فقط )

هل هذا صحيح ؟؟

اوفيسنا.accdb

[kkhalifa1960]

مشاركة مع استاذ @Foksh تفضل استاذ  @Mohamed Abo Elala ، كل شيخ وله طريقته والطرق كثيرة .... منها الطريقة التالية . اليك الشرح والمرفق .

                                                                                        

اوفيسنا_2-1.rar

[Mohamed Abo Elala]

مش عارف اشكركم ازاي 

عاجز عن الشكر لان الشكر مش هيوفيكم حقكم

و لو ينفع اختار الاجابتين كنت اخترت و لكن اجابة استاذ Foksh اقرب لما اريد 

و أرجو لو ممكن أفهم جات ازاي اكون في غاية الامتنان 

 

تم تعديل فبراير 3 بواسطه Mohamed Abo Elala

[Mohamed Abo Elala]

13 ساعات مضت, kkhalifa1960 said:

مشاركة مع استاذ @Foksh تفضل استاذ  @Mohamed Abo Elala ، كل شيخ وله طريقته والطرق كثيرة .... منها الطريقة التالية . اليك الشرح والمرفق .

                                                                                        

اوفيسنا_2-1.rar 55.91 kB · 4 downloads

شكرا استاذي الكبير علي المجهود بارك الله فيك و في علمك 

[Mohamed Abo Elala]

انا اسف جدا علي التسرع 

جاري التجربة علي الحالتين 

تم تعديل فبراير 3 بواسطه Mohamed Abo Elala

[Mohamed Abo Elala]

بعد التجربة فعلا طريقة استاذ فؤش هي الانسب بالنسبة لفكرتي 

و لا انسي مجهود استاذ خليفة 

شكرا جزيلا لحضرتك شكرا لمجهودك و بارك الله فيك 

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

[Foksh]

1 ساعه مضت, Mohamed Abo Elala said:

و أرجو لو ممكن أفهم جات ازاي اكون في غاية الامتنان 

 

شرح مبسط لما تم تعديله :-

1. قمت بتعديل الكود لتعيين TempVars!UserLevelTemp بشكل ديناميكي بناءً على UserLevel الخاص بالمستخدم الحالي 
2. تعديل الاستعلام في النموذج الفرعي frmq1 ليتعامل مع القيم المتغيرة في TempVars!UserLevelTemp 

 

الخطوة 1 : في النموذج الرئيسي frmSearch ، قمت بتعديل الكود لتعيين TempVars!UserLevelTemp بشكل ديناميكي كما في الكود التالي بعد التعديل :-

Private Sub أمر1_Click()
Dim UserLevelTemp As Variant
UserLevelTemp = DLookup("[UserLevel]", "tbluser", "[UserNam]='" & Me.txtuser & "'")
TempVars!UserLevelTemp = UserLevelTemp
DoCmd.OpenForm "frmSearch"
End Sub

هنا يتم تعيين TempVars!UserLevelTemp مباشرة من قيمة UserLevel الخاصة بالمستخدم الحالي ، سواء كانت تحتوي على قيمة واحدة (مثل 2) أو قيم متعددة (مثل 1, 2) .

 

الخطوة 2 : تعديل الاستعلام في النموذج الفرعي frmq1 ليصبح :-

SELECT tblEmp.*, tblEmp.EmpLevel
FROM tblEmp
WHERE 
    InStr(TempVars!UserLevelTemp, tblEmp.EmpLevel) > 0;

شرح الاستعلام :-

الدالة InStr : تبحث عن وجود EmpLevel داخل TempVars!UserLevelTemp 

إذا كانت النتيجة أكبر من 0 ، فهذا يعني أن EmpLevel موجود ضمن TempVars!UserLevelTemp

على سبيل المثال:

إذا كان TempVars!UserLevelTemp = "1, 2" و EmpLevel = 1 ، فإن InStr ستعيد 1 (لأن 1 موجود في "1, 2")

إذا كان TempVars!UserLevelTemp = "2" و EmpLevel = 1 ، فإن InStr ستعيد 0 (لأن 1 غير موجود في "2") ... وهكذا 

 

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

[Mohamed Abo Elala]

في 3‏/2‏/2025 at 22:26, Foksh said:

شرح مبسط لما تم تعديله :-

1. قمت بتعديل الكود لتعيين TempVars!UserLevelTemp بشكل ديناميكي بناءً على UserLevel الخاص بالمستخدم الحالي 
2. تعديل الاستعلام في النموذج الفرعي frmq1 ليتعامل مع القيم المتغيرة في TempVars!UserLevelTemp 

 

الخطوة 1 : في النموذج الرئيسي frmSearch ، قمت بتعديل الكود لتعيين TempVars!UserLevelTemp بشكل ديناميكي كما في الكود التالي بعد التعديل :-

Private Sub أمر1_Click()
Dim UserLevelTemp As Variant
UserLevelTemp = DLookup("[UserLevel]", "tbluser", "[UserNam]='" & Me.txtuser & "'")
TempVars!UserLevelTemp = UserLevelTemp
DoCmd.OpenForm "frmSearch"
End Sub

هنا يتم تعيين TempVars!UserLevelTemp مباشرة من قيمة UserLevel الخاصة بالمستخدم الحالي ، سواء كانت تحتوي على قيمة واحدة (مثل 2) أو قيم متعددة (مثل 1, 2) .

 

الخطوة 2 : تعديل الاستعلام في النموذج الفرعي frmq1 ليصبح :-

SELECT tblEmp.*, tblEmp.EmpLevel
FROM tblEmp
WHERE 
    InStr(TempVars!UserLevelTemp, tblEmp.EmpLevel) > 0;

شرح الاستعلام :-

الدالة InStr : تبحث عن وجود EmpLevel داخل TempVars!UserLevelTemp 

إذا كانت النتيجة أكبر من 0 ، فهذا يعني أن EmpLevel موجود ضمن TempVars!UserLevelTemp

على سبيل المثال:

إذا كان TempVars!UserLevelTemp = "1, 2" و EmpLevel = 1 ، فإن InStr ستعيد 1 (لأن 1 موجود في "1, 2")

إذا كان TempVars!UserLevelTemp = "2" و EmpLevel = 1 ، فإن InStr ستعيد 0 (لأن 1 غير موجود في "2") ... وهكذا 

 

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

اشكرك استاذي و اشكرك استاذ خليفة