kanory

جزاك الله خير استاذي القدير @ابوخليل جاري التجربة .... بارك الله فيك

مبارك اخي الاستاذ @محمد احمد لطفى تستاهل ... اعانك الله على هذا اللقب ...

ممكن ايقاف عمل السطر .... Private Sub AT_cmd_Click() 'CurrentDb.Execute ("Delete * From test_order_tbl") Me.selected_list.Requery Me.testlist.RowSourceType = "Table/Query" Me.main_title.Caption = "All Tests" ref = "" low = "" high = "" Me.S1 = Null Me.S1.Enabled = False Me.testlist.ColumnCount = 5 Me.testlist.ColumnWidths = "0;1;0;0;0" Me.testlist.RowSource = "qryAllTest" Me.testlist.Requery Me.testlist.OnDblClick = "=Old_Function()" End Sub

هل هذا هو التصور المطلوب ؟

طيب جربي المرفق .......... LABBB (2).accdb

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

امين واياك ....

طيب <><><><><><> اكيد مع عمل البرنامج تظهر عبارات اخرى ..... على العموم اضفت مصفوفة يمكن من خلالها اضافة عبارات اخرى Private Sub ComboBox1_Change() Dim lastChar As String lastChar = Right(ComboBox1.Text, 1) myT = Array("مدام", "عبارة1", "عبارة2") For Each t In myT If t = ComboBox1.Value Then TT = t: Exit For End If Next t If ComboBox1.Value = TT Or lastChar = "ه" Or lastChar = "ة" Then ComboBox2.SetFocus: ComboBox2.Text = "female" Else ComboBox2.SetFocus: ComboBox2.Text = "male" End If End Sub

تفضلي <><><><><><> Private Sub ComboBox1_Change() Dim lastChar As String lastChar = Right(ComboBox1.Text, 1) If lastChar = "ه" Or lastChar = "ة" Then ComboBox2.SetFocus: ComboBox2.Text = "female" Else ComboBox2.SetFocus: ComboBox2.Text = "male" End If End Sub

طيب جربي المرفق هذا <><><><><> LABBB (2).accdb

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

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

طيب جربي الان المرفق ....<><><><><><><><> LABBB (2).accdb

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

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

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

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

<><><><><><><> lab20242.accdb

Private Sub com1_Click() Call YMD(Me.Text1.Value) End Sub Function YMD(No As Integer) As Variant Dim Y As Long Dim M As Long Dim D As Long Y = Int(No / 365.25) M = Int((No - (Int(No / 365.25) * 365.25)) / 30.4375) D = No - ((Y * 365.25) + (M * 30.4375)) YMD = Y & " years " & M & " months " & D & " days" Me.DateD = D Me.DateM = M Me.DateY = Y End Function

تابع هذه المشاركة لطرق وامثلة لحلقات التكرار

طيب اعمل مثلا زر امر وضع فيه هذه الشيفرة <<<<<<<<<>>>>>>>> Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim strSQL As String Set db = CurrentDb Dim mov_st As String Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("SELECT TAB3.HNO, TAB3.SUB_ID, DCount(""ID"",""TAB3"",""[HNO] ="" & [HNO] & "" and [SUB_ID] ="" & [SUB_ID] & """") AS Expr1, TAB3.CHEK, TAB3.ID, DCount(""ID"",""TAB3"",""[HNO] ="" & [HNO] & """") AS Expr2 " & _ " FROM TAB3;") rst.MoveFirst mov_st = rst!ID Do While Not rst.EOF If rst!Expr2 > rst!Expr1 And rst!Expr1 = 1 And rst!Expr2 > 2 Then rst.Edit rst!CHEK = True rst.Update ElseIf rst!Expr2 > rst!Expr1 And rst!Expr1 = 1 And rst!ID > mov_st Then rst.Edit rst!CHEK = True rst.Update Else End If mov_st = rst!ID rst.MoveNext Loop rst.Close Me.Refresh strSQL = "SELECT TAB3.ID, TAB3.MNO, TAB3.TNO, TAB3.HNO, TAB3.SUB_ID, TAB3.CHEK FROM TAB3 WHERE (((TAB3.CHEK)=True)) " 'db.QueryDefs.Delete "kanory" Set qdf = db.CreateQueryDef("kanory", strSQL) MsgBox "يتم الان فتح استعلام الاخطاء ", vbInformation + vbMsgBoxRight + vbOKOnly, "ملاحظة" DoCmd.OpenQuery "kanory", acNormal, acEdit

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

وعليكم السلام ورحمة الله وبركاته ليس لدي 2010 لكن شغال على 2016 بدون مشاكل مع اخفاء شاشة الاكسس تظهر الصورة المختارة .