عمر ضاحى

🤔 غريبه سبحان الله هو شغال معايا حاولى تراجعي كل شى وبتأني اتأكدي مره اخري من كل الملاحظات وان الكود فى مكانه الصحيح

الحمد لله

ارسل لي رسالة على الخاص فيها عنوان (اي دي ) anydesk احاول افهم فين المشكله عندك

كود واسلوب متقدم جدا سائل المولى ان يبارك لك فى صحتك ويجازك عنا كل خير فاني اقبل رأسك على هذا الابداع استاذى ومعلمي الاستاذ @jjafferr الله يبارك لك

مش شغال ازاي ؟ شغال تمام معي

هل العرض هكذا؟

هعطيك طريقة سهله انسخ هذا الاستعلام INSERT INTO kanory ( a, b, c ) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, "02- المداخيل ( الموارد)" AS Expr1 FROM Bdgi WHERE (((Bdgi.année)=[Forms]![FrmMasarif]![txtYear])); وعدل عليه فى الاستعلامات وبعد ما تاخد النتيجة التى تريدها انسخ الكود من الاستعلام وحطه بدل الكود الحالي بس انتبه فى ال vba " فى وسط الجمله هتعمل ربكه للكود فلازم تكون "" يعني هنا كمثال ""02- المداخيل ( الموارد)"" هتكون فى كود ال vba هكذا "02- المداخيل ( الموارد)" دي هتكون فى السيكول (الاتسعلام)

طيب اول حاجه اعملى حقل جديد وسميه SN وخليه رقم تلقائى فى الجدول وضيفى الحقل ده فى التقرير الفرعي وممكن تخفيه لو مش عاوزاه وبعد كده ضعي الكود ده فى التقرير الفرعي Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim x As Integer x = Nz(DLookup("TH_no", "settings_general_tbl"), 0) If [SN] Mod x = 0 Then Me.Detail.ForceNewPage = 2 Else Me.Detail.ForceNewPage = 0 End If End Sub وان شاء الله هيشتغل معاكي وخلى طريقة عرض التقرير Print Preview وده مرفق ليكي لو معرفتيش برضه 😁 انا حذفت الشروط من التقرير علشان اقد اتعامل معاه وضفت حقل جديد فى الجدول No.of record.rar

تقدر تعدل فى الكود لانه فى الاصل هو استعلام استبدل الاستعلام بهذا السطر strSQL = "INSERT INTO kanory ( a, b, c ) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1 FROM Bdgi WHERE (((Bdgi.année)=[Forms]![FrmMasarif]![txtYear]));"

الملف ما فيه بيانات علشان اطبق عليه اعملى بيانات واضحه وخلى الملف يشتغل بشكل سليم وانا باطبق عليه ان شاء الله لكن افتح التقرير ويطلب مني بيانات انا ما اعرفها كيف بكمل؟

استبدلى ID بالمعرف او اسم رقم التسلسل فى الجدول وباقى الكود كما هو الكود هيتم وضعه للتقرير الفرعي راجعي ال عملته وحاولى تفهمي الفكره

اتفضل 20241028.rar

بما اني مش عارف فين التقرير الاساسي من الفرعي عندك وايضا مفيش بيانات قمت بعمل جدول وتقرير جديد واضفت فيه بعض البيانات وعملت ليكي الكود Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim x As Integer x = Nz(DLookup("TH_no", "settings_general_tbl"), 0) If [ID] Mod x = 0 Then Me.Detail.ForceNewPage = 2 Else Me.Detail.ForceNewPage = 0 End If End Sub تقدري تجرب الملف No.of record.rar

كل ما عليك استيدل الذى تم الاشارة اليه هنا بهذا الكود Dim strSQL As String strSQL = "INSERT INTO kanory ( a, b, c ) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1 FROM Bdgi;" DoCmd.SetWarnings (0) DoCmd.RunSQL strSQL DoCmd.SetWarnings (0)

هل تريدها هكذا ؟

اها فهمت بعد ما بصيت فى الكود بتاعك ملاحظ انك مكرر الخطوه 3 مرات ف انت بتحاول تعمل التقرير ازاي ؟ وممكن لتقليل الاخطاء استخدم اولا الاستعلامات المباشرة ولما يكون كله تمام ممكن تحولها لاكواد بدل الاسطر ال اتخضيت لما شفتها بصراحه ما شاء الله مجهود كبير وبكده هتوفر مجهود اكبر

اشكرك

انا شايف ان بالفعل موجوده ولا انت محتاج حاجه تاني انا مش قادر افهمها

هل مازالة المشكلة معك مستمره ؟

جرب صورة ذات جودة اقل او مساحه مناسبه ولا تكون جودة عالية (لان حصل معي ان لما بضع خلفية جودة عالية بيحصل الوميض ولما بضيف صورة جوده منخفضه بيختفي ) فجرب وان شاء الله تجد الخير

اتفضل هذا الملف بعد التعديل base_s_w.rar

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

حمد لله على سلامة الرجوع 😅

وهذه محاولتى مع استاذى الاستاذ موسي base_s_w.rar عند الضغط مرتين على حقل اسم ملف الوثيقه هتظهر لك نافذة تختار الملف والكود هيعملك المجلد الذى سيتم حفظ الوثيقه فيه واذا كان هناك ملف بالفعل وضغطة مرتين على حقل اسم ملف الوثيقه هيظهر لك رسالة تخيرك اذا تريد الاستبدال ام لا وراجع الحقول الجديده التى تم اضافتها فى الجدول مثل حقل SN وحقل FileName

اممممممممم تمام اولا هتحتاج اضافة حقل جديد يحمل اسم الملف المرفق ثانيا هتحتاج كود يقوم باستعراض المتصفح للنظام علشان تحدد الملف وتنسخه لمسار البرنامج واضافة اسمه للسجل الحالى ثالثا هتحتاج زر لعرض الملف لك هذا قد ياخذ مني بعض الوقت لاني حاليا فى الشغل فاول ما بس افضي شوية هعملها لك ان شاء الله