شايب

دخلت الموضوع ولدي الرغبة في تقديم يد العون صحيح انا مزارع ولكن لدي بعض المعرفة البسيطة بقواعد البيانات ولكني وجدت ان الطلب موجه الى مجموعة مختارة من الاعضاء وهذا الامر محير حيث اني عند انتسابي للموقع قبل اربعة ايام وجدت ان من شروط كتابة المشاركة عدة بنود منها 6. يمنع منعا باتا توجيه السؤال إلى شخص بعينه لان هذا قد يدفع الآخرين إلى عدم الإجابة، والهدف هو التفاعل من الجميع. على كل حال اتمنى من ادارة الموقع تحديث الشروط وحذف ما تم ايقاف العمل به لنكون على بينه ودمتم .,,, شايب

في زر الامر ضع الكود Dim x As String x = Me.EmpName.Column(1) & ".rtf" DoCmd.OpenReport "Hr_Letter_Rep", acViewPreview, , "[Empcoode]=" & Me.Empcoode DoCmd.OutputTo acOutputReport, "Hr_Letter_Rep", _ acFormatRTF, "d:\" & x, True وبالامكان تغيير مكان الحفظ من الدريف d الى اي قرص HR_Letter.rar

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

Database211.accdb

الطريقة صحيح ولكن نحتاج نضع معيار للدالة

بداية لايوجد خطأ لان الدفعات مبنية على تاريخ الدفعة ومصدر التقرير استعلام بمعيار التاريخ استخدم دالة dsum للدفعات القروض والديون2024.accdb

الاسماء السته ذكرها ابن مالك المتوفى عام 672 هجري في الفيته وَارْفَـعْ بِـوَاوٍ وَانْصِبَنَّ بِالأَلِـفْ وَاجْرُرْ بِيَاءٍ مَـا مِنَ الأَسْمَا أَصِفْ مِنْ ذَاكَ ذُو إِنْ صُحْبَـةً أَبَـانَـا وَالفَـمُ حَيْثُ الْمِيمُ مِنْهُ بَـانَـا أَبٌ أَخٌ حَـمٌ كَذَاكَ وَهَــنُ وَالنَّقْصُ فى هَذَا الأَخِيرِ أَحْسَنُ اما من عدها خمسة فيعود الى كما اشار ابن مالك "وَالنَّقْصُ فى هَذَا الأَخِيرِ أَحْسَنُ" والنقص المقصود هنا ليس الحذف وانما احدى لهجات العرب فتكون علامة الاعراب مقدرة على الالف والسبب الاخر لعدم ذكر الاسم السادس فيعود للمعنى والله اعلم mktbah.rar

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

الدالة int تقرب الى اصغر قيمة للعدد الصحيح 9.5 = 9 اما الاعداد السالبة فتقرب الى العدد الاكبر 9.5- = 10- لذا ان كانت الحقول تحتمل وجود كسور عشرية فان استخدامها لن يعود بنتيجة صحيحة والافضل استخدام val val([text1])+val([text2])

وممكن نختصر الامر في حدث بعد التحديث نضع الامر Dim i As String i = Nz(item.OldValue, "") note = i