kanory

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

طيب جرب الملف والتعديلات الموجوده بها واعلمنا بالنتيجة <><><><><><><> 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) & "' ")

طيب استبدل هذا الكود الموجود في مربع التحرير السرد item في حدث بعد التحديث .... On Error Resume Next Me.unit = DLookup("[unit]", "tb_items", "item='" & Me.item & "'") Me.price = DLookup("[price]", "tb_items", "item='" & Me.item & "'") بهذا الكود ........ Me.unit = [Forms]![fr_po]![نموذج فرعي tb_purchase_order].[Form]![item].Column(1) Me.price = [Forms]![fr_po]![نموذج فرعي tb_purchase_order].[Form]![item].Column(2)

فكرة ::::::: يمكن عمل جدول حقولها ( الطابعة الافتراضية - طباعة الباركود - طباعة الريست ............................... ) ثم في زر الطباعة لكل تقرير تحدد الحقل المناسب لها عن طريق هذا الكود ..... ( طبعا الفكرة لم اجربها ولكن تكمن في تغيير الطابعة الافتراضية في كل مرة تريد طابعة تقرير معين حسب الجدول الذي قمت انت بتحديد نوع الطابعة في الحقل الخاص به ) جرب واعلمنا بالنتيجة ..... وممكن عند احد الاخوة طريقة افضل On Error Resume Next Dim strRptName strRptName = "ReportName" DoCmd.SelectObject acReport, strRptName, False SetDefaultPrinter ("fieldName") DoCmd.OpenReport strRptName, acViewNormal

تفضل <<<<<<>>>>>>> أوامر الشراء.accdb

لم افهم ماذا تقصد بالكميات السابقة هل هي الموجود في هذا الجدول أم غيره

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

الخطأ :::: لانك سميت احد الكائنات بعبارة محجوزة للاكسس وهي page <<<<<<< غير اسم مربع النص الى اسم اخر مثلا txt_page

في حدث عند تحميل النموذج sirtfecat ضع هذا الكود ... وجرب واعلمنا <<<<<>>>>> DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO sirtf_details ( item_nob, item_descr, unte, contr_Qty, contr_price, nob4 ) SELECT item.item_nob, item.item_descr, item.unte, item.contr_Qty, item.contr_price, DLast(""[nob3]"",""[sirtfecat]"") AS Expr2 FROM item;" DoCmd.SetWarnings True

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