safaa salem5 قام بنشر بالامس في 09:32 مشاركة قام بنشر بالامس في 09:32 عندى ريبورت موجود بداخله صب ريبورت اريد تحديد عدد السجلات المعروضه فى الصب ريبورت بناء على قيمة حقل اسمه TH_no فى جدول اسمه settings_general_tbl يعنى لو القيمه 2 يعرض عددسجلات 2 لو 3 يعرض 3 وهكذا No.of record.accdb رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر بالامس في 11:05 مشاركة قام بنشر بالامس في 11:05 منذ ساعه, safaa salem5 said: عندى ريبورت موجود بداخله صب ريبورت اريد تحديد عدد السجلات المعروضه فى الصب ريبورت بناء على قيمة حقل اسمه TH_no فى جدول اسمه settings_general_tbl يعنى لو القيمه 2 يعرض عددسجلات 2 لو 3 يعرض 3 وهكذا No.of record.accdb 1.78 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads بما اني مش عارف فين التقرير الاساسي من الفرعي عندك وايضا مفيش بيانات قمت بعمل جدول وتقرير جديد واضفت فيه بعض البيانات وعملت ليكي الكود 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 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر بالامس في 11:22 الكاتب مشاركة قام بنشر بالامس في 11:22 15 minutes ago, عمر ضاحى said: بما اني مش عارف فين التقرير الاساسي من الفرعي عندك وايضا مفيش بيانات قمت بعمل جدول وتقرير جديد واضفت فيه بعض البيانات وعملت ليكي الكود 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 63.84 kB · 0 downloads CBC Main report CBCRH subreport رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر بالامس في 11:30 مشاركة قام بنشر بالامس في 11:30 7 دقائق مضت, safaa salem5 said: CBC Main report CBCRH subreport استبدلى ID بالمعرف او اسم رقم التسلسل فى الجدول وباقى الكود كما هو الكود هيتم وضعه للتقرير الفرعي راجعي ال عملته وحاولى تفهمي الفكره رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر بالامس في 11:37 الكاتب مشاركة قام بنشر بالامس في 11:37 معلش انا مش فاهمه الكود مش هعرف اطبقه الملف موجود ممكن تعمله مع العلم الصب ريبورت مرتبط مع الريبورت بالكود اللى اللى هيكون فى الفورم رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر بالامس في 11:42 مشاركة قام بنشر بالامس في 11:42 الملف ما فيه بيانات علشان اطبق عليه اعملى بيانات واضحه وخلى الملف يشتغل بشكل سليم وانا باطبق عليه ان شاء الله لكن افتح التقرير ويطلب مني بيانات انا ما اعرفها كيف بكمل؟ رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر بالامس في 12:03 الكاتب مشاركة قام بنشر بالامس في 12:03 (معدل) 24 minutes ago, عمر ضاحى said: الملف ما فيه بيانات علشان اطبق عليه اعملى بيانات واضحه وخلى الملف يشتغل بشكل سليم وانا باطبق عليه ان شاء الله لكن افتح التقرير ويطلب مني بيانات انا ما اعرفها كيف بكمل؟ لما يطلب منك [Forms]![cbc_frm]! 1 فى الكود اكتب [Forms]![visit_frm]![ID] 5004 اكتب [Forms]![CBC_frm]![vdate] 01/10/2024 No.of record.accdb تم تعديل بالامس في 12:07 بواسطه safaa salem5 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر منذ 21 ساعات مشاركة قام بنشر منذ 21 ساعات طيب اول حاجه اعملى حقل جديد وسميه 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 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر منذ 21 ساعات الكاتب مشاركة قام بنشر منذ 21 ساعات (معدل) 20 minutes ago, عمر ضاحى said: طيب اول حاجه اعملى حقل جديد وسميه 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 57.81 kB · 0 downloads هو كدا مش شغال صح لان مكتوب فى الجدول 2 وهو بيظهر خمس سجلات وبعدين مش عايزه حقل المفتاح الاساسى دا تم تعديل منذ 21 ساعات بواسطه safaa salem5 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر منذ 19 ساعات الكاتب مشاركة قام بنشر منذ 19 ساعات ؟؟ رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر منذ 18 ساعات الكاتب مشاركة قام بنشر منذ 18 ساعات ?????¿¿¿¿ رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر منذ 18 ساعات مشاركة قام بنشر منذ 18 ساعات 3 ساعات مضت, عمر ضاحى said: وخلى طريقة عرض التقرير Print Preview هل العرض هكذا؟ رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر منذ 14 ساعات الكاتب مشاركة قام بنشر منذ 14 ساعات 3 hours ago, عمر ضاحى said: هل العرض هكذا؟ اه مش شغال معايا رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر منذ 10 ساعات مشاركة قام بنشر منذ 10 ساعات 4 ساعات مضت, safaa salem5 said: اه مش شغال معايا 🤔 غريبه سبحان الله هو شغال معايا حاولى تراجعي كل شى وبتأني اتأكدي مره اخري من كل الملاحظات وان الكود فى مكانه الصحيح رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر منذ 49 دقائق الكاتب مشاركة قام بنشر منذ 49 دقائق 9 hours ago, عمر ضاحى said: 🤔 غريبه سبحان الله هو شغال معايا حاولى تراجعي كل شى وبتأني اتأكدي مره اخري من كل الملاحظات وان الكود فى مكانه الصحيح طيب ممكن تعديل عالملف عشان مش ظابطت معايا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان