safaa salem5

انا عايزه استدعى قيمة Ref,low,high لكل تحليل موجود تحت sup مش ال sup نفسها من جدولين بناء على شروط موجوده في الكود والقيم دى Ref,low,high مبنيه على normal_type وانا بنقل تيست ب تيست الكود شغال تمام لكن لما بنقل مجموعه مش عارفه اعملها

فاكر الاستعلام بتاع امبارح انا اضفت ليه فيلد اسمه 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 مظبوط بمعنى تانى هل الكود كدا صح يعنى موقع الحقل فى العمود الرابع بناء على الكود فى الاستعلام السابق عشان عايزه ابنى عليه افتراضات

معلش انا اكتشفت ان الكود دا بيمسح بيانات من الفورم بسبب ان كلمة undo بتشتغل على الفورم كله مش على كومبوبوكس فقط استبدلها بايه لتحقيق المطلوب Private Sub account_BeforeUpdate(Cancel As Integer) If Me.selected_list.Column(0, 1) > 0 Then MsgBox "لا يمكن تغيير نوع الحساب الا بعد حذف التحاليل المطلوبة" DoCmd.CancelEvent Undo Exit Sub End If End Sub

زادك الله علما وجعلك ووالديك من اهل الجنه

عايزه اضيف مدام للكود دى لو تكرمت kanory

عندى اتنين كومبوبوكس Ptitle يحتوى على الالقاب والكومبو الاخر Gender يحتوى اختيارين فقط male ,female عايزه عند الاختيار من ptitle القيم اللى تحتوى على حرف (ه) او (ة) فى اخر الكلمه زى السيده الدكتورة المهندسه المعلمه يتم ملأ كومبوبكس الاخر female واذا لم تحتوى على ه.ة فى اخرها يتم ملأ الكومبو الاخر male

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

المجموعه دى ظبطت معاك عشان فعلا تحتها عنصرين اتنين وواخدين صح فى add group لو حضرتك جربت حاجه تانيه زى المثال دا هتلاقى الاستعلام بيجيب العناصر كلها اللى تحت الجروب حتى لو عنصر واحد بس واخد صح

مظبوط كلامك طيب لو عايزاه يفلتر ويختار منهم اللى متطابق مع الشرط دا add_group =True اعمل ايه

معلش تعبتك معايا بس مش عارفه ليه الاستعلام بيطبق جزأ وبيتجاهل جزأ يعنى بيطبق جزأ 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

الكود موجود اهو دا تحت الزرار 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 مع العلم انا مش محتاجه التجمبع كنت عاملاه بس عشان اتلاشى تكرار اسم sub بس مانفعتش GROUP BY test_tbl.sub, test_tbl.add_group, test_tbl.test, test_tbl.tcode

هل من مجيب؟

مش هى دى الفكره اللى انا عايزه اعملها ممكن حضرتك تشوف الملف دا فيه تفاصيل اكتر عند الضغط على زرار p هتظهر اسماء المجموعات فى الليسته عايزه امنع تكرار الاسماء دى بحيث مايأثرش على الاستعلام لانه عند الاختيار من الليسته هينتقل اللى الليسته التانيه اسماء التحاليل التابعه للمجموعه اللى انا اختارتها واتطبق عليها الشروط فى الاستعلام متشكره جدا لحضرتك kanory LABBB (2).accdb

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

بس حضرتك لما شيلت الصح من امام TEST وباقى الفيلدات اثر على الاستعلام ومش شغال صح الهدف من الاستعلام ينقل كل ال TEST اللى تقع تحت المجموعه SUB اللى انا هختارها من الليسته ويكون متعلم قدام ADD GROUP علامة صح

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

عندى ليست بوكس مصدرها استعلام مكون من اسم المجموعه sub واسماء العناصر اللى بتقع تحت المجموعه test وكود كل عنصر tcode عايزه امنع تكرار اسم المجموعه فى الليست بوكس THANKS lab20242.accdb

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

جرب دا كمان 1. قم بإنشاء استعلام يتضمن جميع الحقول التي ترغب في تضمينها في التقرير. 2. قم بإضافة صندوق اختيار لاختيار الحقول المطلوبة في النموذج. يمكنك وضع صناديق اختيار بجانب اسم كل حقل. 3. استخدم حدث "BeforePrint" لتحديث استعلام التقرير بناءً على الحقول المحددة. يمكنك استخدام الشفرة التالية كنموذج للحدث: vba Private Sub Report_BeforePrint(Cancel As Integer) Dim strSQL As String strSQL = "SELECT " If Me.CheckBox1.Value = True Then strSQL = strSQL & "Field1, " End If If Me.CheckBox2.Value = True Then strSQL = strSQL & "Field2, " End If ' استمر في إضافة الحقول الأخرى هنا strSQL = Left(strSQL, Len(strSQL) - 2) ' قم بإزالة الفاصلة الأخيرة strSQL = strSQL & " FROM YourTable" Me.RecordSource = strSQL End Sub 5. قم بتعديل الشفرة أعلاه لكل صندوق اختيار واستبدل "CheckBox1" و "CheckBox2" بمعرف كل صندوق اختيار واستبدل "Field1" و "Field2" بمعرفات الحقول الخاصة بك.

1. إنشاء نموذج وأضف إليه عناصر تحكم للاختيار، مثل صناديق اختيار أو قوائم منسدلة، للحقول التي ترغب في اختيارها في التقرير. 2. قم بتطبيق حدث في النموذج مع زر الطباعة لتنفيذ الاستعلام وعرض التقرير Private Sub btnGenerateReport_Click() ' استدعاء دالة لجمع الحقول المحددة Dim selectedFields As String selectedFields = GetSelectedFields() ' إنشاء استعلام استنادًا إلى الحقول المحددة Dim querySQL As String querySQL = "SELECT " & selectedFields & " FROM TableName;" DoCmd.SetWarnings False DoCmd.RunSQL querySQL ' إنشاء تقرير جديد وتعيينه للاستعلام DoCmd.OpenReport "ReportName", acViewPreview, , querySQL ' إعادة تشغيل تنفيذ الاستعلام DoCmd.SetWarnings True End Sub Private Function GetSelectedFields() As String ' حلقة من خلال عناصر تحكم الاختيار وجمع الحقول المحددة Dim selectedFields As String For Each ctrl In Me.Controls If TypeOf ctrl Is CheckBox Then If ctrl.Value = True Then selectedFields = selectedFields & ctrl.Caption & ", " End If End If Next ctrl ' إزالة الفاصلة الأخيرة If Len(selectedFields) > 0 Then selectedFields = Left(selectedFields, Len(selectedFields) - 2) End If GetSelectedFields = selectedFields End Function

بس انا مش عايزه يحصل عدم تمكين عايزه يكون فى تمكين عادى بس بمجرد اختيار اى اختيار تانى من الكومبوبوكس تخرج رساله (لا يمكن تغيير نوع الحساب الا بعد حذف التحاليل المطلوبه) وميحصلش تغيير فى الاختيار الاساسى الموجود فى الكومبوبوكس

تمام حماية مربع التحرير من التغيير فى حاله تعبئة القائمه بالبيانات

؟؟؟

عندى فورم رئيسى reservation_frm موجود فيه ليست بوكس اسمه selected_list موجود فيه حقل ID وموجود ايضا كومبوبوكس اسمه account المطلوب اريد عند تغيير قيمة الكومبوبوس اللى اسمه account اذا كان الليست بوكس--- selected_list بها سجلات بنفس ID الموجود في الفورم reservation _frm تخرج رساله ' لا يمكن تغيير قيم الكومبوبوس account الا بعد حذف هذه السجلات LAB.accdb