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

[safaa salem5]

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

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

sub

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

test

وكود كل عنصر

tcode

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

THANKS

lab20242.accdb

[kanory]

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

 

lab20242.accdb

[kanory]

[safaa salem5]

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

لقيتها خلاص

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

[safaa salem5]

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

TEST

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

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

 

 

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

ينقل كل ال

TEST

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

SUB

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

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

ADD GROUP علامة صح

 

[kanory]

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

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

SUB

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

 

[safaa salem5]

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

[kanory]

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

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

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

 

lab20242.accdb

[safaa salem5]

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

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

p

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

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

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

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

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

LABBB (2).accdb

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

[safaa salem5]

هل من مجيب؟

[kanory]

في حدث الزر 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]

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 بواسطه safaa salem5

[kanory]

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

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

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

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

[safaa salem5]

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]

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

Public Function panle_Function

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

 

LABBB (2).accdb

[safaa salem5]

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]

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

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

SUB 

كلها

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

add_group =True

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

 

[safaa salem5]

مظبوط كلامك

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

 

add_group =True

اعمل ايه

[kanory]

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

اعمل ايه

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

 

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

[safaa salem5]

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

add group

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

زى المثال

دا

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

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

[kanory]

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

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

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

 

LABBB (2).accdb

[safaa salem5]

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

[kanory]

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

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

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

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

[safaa salem5]

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]

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

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

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

 

LABBB (2).accdb