ممكن طريقة منع تكرار اسم المجموعه اللى بيقع تحتها عناصر كتيره

**safaa salem5** · فبراير 3, 2024

عندى ليست بوكس مصدرها استعلام

مكون من اسم المجموعه

sub

واسماء العناصر اللى بتقع تحت المجموعه

test

وكود كل عنصر

tcode

عايزه امنع تكرار اسم المجموعه فى الليست بوكس

THANKS

lab20242.accdb

**kanory** · فبراير 3, 2024

<><><><><><><>

lab20242.accdb

**kanory** · فبراير 3, 2024

**safaa salem5** · فبراير 3, 2024

معلش هى ورقة الخصائص دى للاستعلام اجبها ازاى

لقيتها خلاص

تم تعديل فبراير 3, 2024 بواسطه safaa salem5

**safaa salem5** · فبراير 3, 2024

بس حضرتك لما شيلت الصح من امام

TEST

وباقى الفيلدات

اثر على الاستعلام ومش شغال صح

الهدف من الاستعلام

ينقل كل ال

TEST

اللى تقع تحت المجموعه

SUB

اللى انا هختارها من الليسته

ويكون متعلم قدام

ADD GROUP علامة صح

**kanory** · فبراير 3, 2024

33 دقائق مضت, safaa salem5 said:

اللى تقع تحت المجموعه

SUB

كيف يتم التصفية في الاستعلام لايوجد ما يدل على الاختيار من النموذج اين هذا العنصر في النموذج ؟؟؟؟؟

**safaa salem5** · فبراير 3, 2024

موجود فى الفورم عندى ولكن لم ارفقه مع المثال

**kanory** · فبراير 3, 2024

12 دقائق مضت, safaa salem5 said:

موجود فى الفورم عندى ولكن لم ارفقه مع المثال

طيب جربي هذا .........

lab20242.accdb

1.jpg.efa4538a0e657edafce86589cc5b9279.jpg

**safaa salem5** · فبراير 3, 2024

مش هى دى الفكره اللى انا عايزه اعملها ممكن حضرتك تشوف الملف دا فيه تفاصيل اكتر

عند الضغط على زرار

p

هتظهر اسماء المجموعات فى الليسته

عايزه امنع تكرار الاسماء دى

بحيث مايأثرش على الاستعلام

لانه عند الاختيار من الليسته هينتقل اللى الليسته التانيه اسماء التحاليل التابعه للمجموعه اللى انا اختارتها واتطبق عليها الشروط فى الاستعلام

متشكره جدا لحضرتك kanory

LABBB (2).accdb

تم تعديل فبراير 3, 2024 بواسطه safaa salem5

**safaa salem5** · فبراير 3, 2024

هل من مجيب؟

**kanory** · فبراير 3, 2024

في حدث الزر P استخدمي هذا <><><><>

Me.main_title.Caption = "panle"
Me.S1 = Null
Me.S1.Enabled = False
    Me.testlist.ColumnCount = 2
    Me.testlist.ColumnWidths = "5;0"
Me.testlist.RowSource = " SELECT DISTINCT test_tbl.sub  FROM test_tbl  GROUP BY test_tbl.sub, test_tbl.add_group, test_tbl.test, test_tbl.tcode  HAVING (((test_tbl.sub) Like ""*"" & [Forms]![reservation_frm]![S1]) AND ((test_tbl.add_group)=True)) ORDER BY test_tbl.sub;"
  Me.testlist.Requery
Me.testlist.OnDblClick = "=panle_Function()"

**safaa salem5** · فبراير 3, 2024

50 minutes ago, kanory said:

في حدث الزر P استخدمي هذا <><><><>

Me.main_title.Caption = "panle"
Me.S1 = Null
Me.S1.Enabled = False
    Me.testlist.ColumnCount = 2
    Me.testlist.ColumnWidths = "5;0"
Me.testlist.RowSource = " SELECT DISTINCT test_tbl.sub  FROM test_tbl  GROUP BY test_tbl.sub, test_tbl.add_group, test_tbl.test, test_tbl.tcode  HAVING (((test_tbl.sub) Like ""*"" & [Forms]![reservation_frm]![S1]) AND ((test_tbl.add_group)=True)) ORDER BY test_tbl.sub;"
  Me.testlist.Requery
Me.testlist.OnDblClick = "=panle_Function()"

تمام القايمه معدش فيها تكرار ولكن لما بختار اى اسم مجموعه مفيش حاجه بتتنقل الليسته التانيه مع العلم كانت بتتنقل قبل التعديل kanory

مع العلم انا مش محتاجه التجمبع كنت عاملاه بس عشان اتلاشى تكرار اسم

sub

بس مانفعتش

GROUP BY test_tbl.sub, test_tbl.add_group, test_tbl.test, test_tbl.tcode

تم تعديل فبراير 3, 2024 بواسطه safaa salem5

**kanory** · فبراير 3, 2024

31 دقائق مضت, safaa salem5 said:

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

ولكن كيف لي ان اعرف ملهو الكود المستخدم لذلك النقل ........ نظام اقساط .... يجب وضع كل ما يخص العمل حتى نستطيع الحل !!!!!!

ليس في المرفق الكود الخاص بالنقل .... لا استطيع التنبؤ بالية النقل المستخدمة في برنامجك ....

**safaa salem5** · فبراير 3, 2024

1 ساعه مضت, kanory said:

ولكن كيف لي ان اعرف ملهو الكود المستخدم لذلك النقل ........ نظام اقساط .... يجب وضع كل ما يخص العمل حتى نستطيع الحل !!!!!!

ليس في المرفق الكود الخاص بالنقل .... لا استطيع التنبؤ بالية النقل المستخدمة في برنامجك ....

الكود موجود اهو

دا تحت الزرار

Private Sub TP_cmd_Click()

  Me.main_title.Caption = "panle"
  Me.S1 = Null
  Me.S1.Enabled = False
  Me.testlist.ColumnCount = 2
  Me.testlist.ColumnWidths = "5;0"
  Me.testlist.RowSource = "PNLE"
  Me.testlist.Requery
  Me.testlist.OnDblClick = "=panle_Function()"
End Sub

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

ودا موجود فى الفورم

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

Public Function panle_Function()

  DoCmd.SetWarnings False
  Select Case Nz(testlist.RowSource, "")
  Case Is = ""

  Case Is = "PNLE": DoCmd.OpenQuery "Append_panle_To_selected_list"
  End Select

  DoCmd.SetWarnings False
  Dim strSQL As String
  strSQL = "UPDATE test_order_tbl SET test_order_tbl.result = IIf([see_report]=Yes,'SEE REPORT','') " & _
  "WHERE (((test_order_tbl.see_report)=Yes));"
  DoCmd.RunSQL strSQL
  DoCmd.SetWarnings True
  Me.selected_list.Requery
End Function

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

ودا الاستعلام موجود فى المرفق

Append_panle_To_selected_list

الاستعلام هو اللى هيعمل تحديث للقايمه التانيه

**kanory** · فبراير 3, 2024

23 دقائق مضت, safaa salem5 said:

Public Function panle_Function

طيب جربي الان المرفق ....<><><><><><><><>

LABBB (2).accdb

**safaa salem5** · فبراير 3, 2024

13 minutes ago, kanory said:

طيب جربي الان المرفق ....<><><><><><><><>

LABBB (2).accdb 1.01 MB · 0 downloads

معلش تعبتك معايا بس مش عارفه ليه الاستعلام بيطبق جزأ وبيتجاهل جزأ

يعنى بيطبق جزأ

SELECT DISTINCT test_tbl.sub FROM test_tbl GROUP BY test_tbl.sub, test_tbl.add_group, test_tbl.test, test_tbl.tcode HAVING (((test_tbl.sub) Like ""*"" & [Forms]![reservation_frm]![S1]) AND ((test_tbl.add_group)=True)) ORDER BY test_tbl.sub;"

وبيتجاهل الجزأ دا

((test_tbl.add_group)=True))

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

انا مش عايزه انقل

SUB

كلها

عايزه انقل بس اللى

add_group =True

**kanory** · فبراير 3, 2024

25 دقائق مضت, safaa salem5 said:

انا مش عايزه انقل

SUB

كلها

عايزه انقل بس اللى

add_group =True

حسب الاحصاء النظري هو نفس العدد انظري الصور التالية

**safaa salem5** · فبراير 3, 2024

مظبوط كلامك

طيب لو عايزاه يفلتر ويختار منهم اللى متطابق مع الشرط دا

add_group =True

اعمل ايه

**kanory** · فبراير 3, 2024

8 دقائق مضت, safaa salem5 said:

اعمل ايه

ما هو البرنامج بيعطي نفس عدد التحاليل المختارة ( المعلم عليها فقط) لاحظ الصورة انا اختار تحليل واحد وبيظهر عندي سجلين المختارة فقط .....

بالمناسبة يجب تفريغ الجدول test_order_tbl في كل مرة حتى لا يكرر السجلات الملحقة بها

**safaa salem5** · فبراير 3, 2024

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

add group

لو حضرتك جربت حاجه تانيه

زى المثال

دا

هتلاقى الاستعلام بيجيب العناصر كلها اللى تحت الجروب حتى لو عنصر واحد بس واخد صح

تم تعديل فبراير 3, 2024 بواسطه safaa salem5

**kanory** · فبراير 3, 2024

4 دقائق مضت, safaa salem5 said:

معاك عشان فعلا تحتها عنصرين اتنين وواخدين صح فى

طيب جربي المرفق هذا <><><><><>

LABBB (2).accdb

**safaa salem5** · فبراير 4, 2024

متشكره جدا لحضرتك ربنا يجازيك كل خير

**kanory** · فبراير 4, 2024

11 ساعات مضت, safaa salem5 said:

متشكره جدا لحضرتك ربنا يجازيك كل خير

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

مع شرح وافي للمطلوب <><><><><><><>

**safaa salem5** · فبراير 4, 2024

26 minutes ago, kanory said:

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

مع شرح وافي للمطلوب <><><><><><><>

فاكر الاستعلام بتاع امبارح انا اضفت ليه فيلد اسمه

normal_type

موجود فى نفس الجدول

على اساس النورمال تايب دا هيتم تحديث حقل المعدل الطبيعى من احد الجدولين

Private Sub TP_cmd_Click()

Me.main_title.Caption = "panle"
Me.S1 = Null
Me.S1.Enabled = False
Me.testlist.ColumnCount = 5
Me.testlist.ColumnWidths = "1;0;0;0;0"
Me.testlist.RowSource = " SELECT DISTINCT test_tbl.sub FROM test_tbl GROUP BY test_tbl.sub, test_tbl.add_group, test_tbl.test, test_tbl.tcode,test_tbl.normal_type HAVING (((test_tbl.sub) Like ""*"" & [Forms]![reservation_frm]![S1]) AND ((test_tbl.add_group)=True)) ORDER BY test_tbl.sub;"
Me.testlist.Requery
Me.testlist.OnDblClick = "=panle_Function()"
End Sub

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

عايزه بس اعرف مكان norrmal_type

Public Function panle_Function()

Dim IntCondition As Integer

If Me.gender = "Male" And Me.testlist.Column(4) = "SEX" Then
IntCondition = 1

End If

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

مظبوط

بمعنى تانى هل الكود كدا صح يعنى موقع الحقل فى العمود الرابع بناء على الكود فى الاستعلام السابق
عشان عايزه ابنى عليه افتراضات

**kanory** · فبراير 6, 2024

في 5‏/2‏/2024 at 00:55, safaa salem5 said:

عايزه بس اعرف مكان norrmal_type

طيب جربي المرفق ..........

LABBB (2).accdb

تسجيل الدخول

ممكن طريقة منع تكرار اسم المجموعه اللى بيقع تحتها عناصر كتيره

الردود الموصى بها

safaa salem5

kanory

kanory

safaa salem5

safaa salem5

kanory

safaa salem5

kanory

safaa salem5

safaa salem5

kanory

safaa salem5

kanory

safaa salem5

kanory

safaa salem5

kanory

safaa salem5

kanory

safaa salem5

kanory

safaa salem5

kanory

safaa salem5

kanory

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

انشئ حساب جديد

تسجيل دخول

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information