kanory

جرب للهجري هذا ..... Me.RecordSource = "hijriDate" وغير الجدول للميلادي بنفس الطريقة

اشر اطراءك اخي واستاذي الفاضل احمد ... بارك الله فيك

انظر يا حلو .... جرب الملف واعلمنا ..... all-by-yesno.accdb والطرق كثيره .... انت ماذا تريد بالضبط .... هل المقصد تصدير التقرير ام ماذا ؟؟؟؟؟؟

وهذه مشاركة مع اساتذتي الكرام ... مع التحية لهم جميعا ..... If DCount("*", "[Students]", "[ID]=" & Me.Text0) > 0 Then Dim rst As DAO.Recordset Dim fld As Field Dim a As Integer Set rst = CurrentDb.OpenRecordset("SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & _ "FROM Students " & _ "WHERE (((Students.ID)=" & [Forms]![Form]![Text0] & "));") For a = 1 To rst.RecordCount For Each fld In rst.Fields If IsNull(fld.Value) Then MsgBox "قم باكمال البيانات" & "(" & fld.Name & ")" & "ليس هناك بيانات في الحقل" DoCmd.OpenQuery "استعلام1", acViewNormal Exit Sub End If Next fld rst.MoveNext Next a rst.Close: Set rst = Nothing DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]));" DoCmd.SetWarnings True Me.Text0 = "" Else MsgBox "هذا القيد غير موجود" End If Me.Requery Me.Text0 = Null Me.Text0.SetFocus Example.accdb

هناك مواضيع عديدة لمعالجة هذه المشكلة منها هذا الموضوع ... وهناك موضوع لاستاذي @ابو جودي .. ولكن لم اعثر عليه الان .. ابحث عنه تجده في المنتدى ...

جرب الكود التالي ...... اللجان والتصحيح7.4.accdb

نعم .... ولكن هناك مشاكل ... اعتقد يمكن حلها

ممتاز ... هذا هو الهدف من المنتدى ...

الحقيقة اخي لا اعلم ما المشكلة لديك ... جرب المرفق على اجهزة اخرى ... جتى نعلم هل المشكلة من جهازك ام ماذا ؟؟

طيب جرب الملف والتعديلات الموجوده بها واعلمنا بالنتيجة <><><><><><><> BOOK (2).accdb

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

معلومات قيمة اخي ابا ابراهيم ... شكرا لك

🙄

تفضل <><><><><> Database3133.rar

هل لابد ان يكون inputbox ممكن عمل ذلك بشكل نموذج ....... اذا كان لابد inputbox هناك اعتقد في المنتدى موضوع للتحكم في رسائل الاكسس ... ابحث عنه

هل تريدها بهذا الشكل ....................

طيب تفضل جرب المرفق التالي حسب فهمي للموضوع <><><><><> BOOK (2).accdb

هذا الكود بارك الله فيك من شقين : الاول : DoCmd.RunSQL "DELETE Tb_StatAbandons.ID FROM Tb_StatAbandons;" ووظيفته تفريغ الجدول Tb_StatAbandons من البيانات الاحصائية السابقة والثاني : DoCmd.RunSQL "INSERT INTO Tb_StatAbandons ( niveau, NbrTotaleEleves, MalKhanouni, FemKhanouni, FemTilkhai, MalTilkhai, Etablissement ) " & _ " SELECT Tb_donnéesEleveArchives.niveau, Count(DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] =[niveau]"")) AS TOT, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2 And [sexe] =1 "") AS MAN1, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2 And [sexe] =2 "") AS WOM1, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1 And [sexe] =2 "") AS WOM2, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1 And [sexe] =1 "") AS MAN2, Tb_donnéesEleveArchives.niveau AS D " & _ " FROM Tb_donnéesEleveArchives " & _ " GROUP BY DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2 And [sexe] =1 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2 And [sexe] =2 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1 And [sexe] =2 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1 And [sexe] =1 ""), Tb_donnéesEleveArchives.niveau, Tb_donnéesEleveArchives.niveau;" وهو عبارة عن كود استعلام لجلب البيانات الاحصائية المطلوبة من الجدول Tb_donnéesEleveArchives والحاقها في الجدول Tb_StatAbandons في كل مرة تضغط فيها على موافق تتم مسح البيانات من الجدول ثم الحاق البيانات من جديد ... >>>>>>>>>>>>>>>>>>>>>

تم تجربة فكرة تنسيق التاريخ .... والنتيجة اكثر من رائعة ... بارك الله فيك وفي اباعاتك ومحاولة تجاوز بعض عقبات الاكسس

حياك الله ... الحمد لله رب العالمين

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

تفضل جرب واعلمنا<><><><><><> سيت . كارتون.accdb

جرب الملف واعلمنا بالنتيجة ....... KAN_Database31.rar

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

وهذه بنفس طريقة السابقة بعد التعديل .... اختر احدى الطريقتين ...... Me.price = DLookup("[price]", "[tb_items]", "[vendor] Like '" & [Forms]![fr_po]![vendor] & "' And [item] Like '" & [Forms]![fr_po]![نموذج فرعي tb_purchase_order].[Form]![item].Column(0) & "' ") Me.unit = DLookup("[unit]", "[tb_items]", "[vendor] Like '" & [Forms]![fr_po]![vendor] & "' And [item] Like '" & [Forms]![fr_po]![نموذج فرعي tb_purchase_order].[Form]![item].Column(0) & "' ")