kanory

تفضلي <><><><><><> 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 بدون مشاكل مع اخفاء شاشة الاكسس تظهر الصورة المختارة .

ليس هذا ما اريده .. أرسلت لك مرفقا به مواد درجاتها مرصودة وأخرى غير مرصودة للتمييز مشاركة مع الاساتذة ..... ضع هذا الفانك في النموذج Function CountFields() Set db = CurrentDb() Set RS = db.OpenRecordset("SELECT tb_1.[لغة عربية], tb_1.رياضيات, tb_1.علوم, tb_1.[تربية إسلامية], tb_1.[دراسات اجتماعية] FROM tb_1;") RS.MoveFirst Do While Not RS.EOF Countt = 0 For Each Item In RS.Fields If RS.Fields(Item.Name).Value <> "" Then Countt = Countt + 1 Next Item RS.MoveNext Loop [نص35] = Countt End Function واستدعيه من حدث الحالي للنموذج بهذا الشكل CountFields جرب واعلمنا هل هذا هو المطلوب <<<<<<<<<<<<<<<<<<

حاول استخدام هذا وعدل حسب الشيفرة لديك ... Wdoc.SaveAs2 CurrentProject.Path & "\" & Me.RintNO & "-MyDoc" & ".docx"

طيب اضف هذا السطر في فانك الفورمات لديك <<<<>>>>>>> .usedRange.ReadingOrder = -5004

اخي الكريم @Foksh يبدو اننا نجاوب في نفس الوقت . ههههه

اكتب في مصدر عنصر التحكم ... =DCount("[حالة البطاقة]";"[Table1]";"[حالة البطاقة] ='استقالة'")

هل تريدها لجميع اوراق الاكسل ام ورقة محددة ؟؟؟؟

اسف جدا أخي ابا محمد اقصد هذه المكتبة قد اشرت لها سابقا خطأ .. هذه المكتبة المطلوبة اخي الكريم ..... ارجو المعذرة

ابو محمد >>>>>> افتح القاعدة الثانية ( التي لاتعمل ) وتأكد من وجود المكتبة المذكورة وليس القاعدة الاولى ....

تأكد من المكتبة الموجودة في الصورة