سؤال موجه إلى الأخت الفاضلة زهرة الله يحفظها

تفضل اخي الكريم

ضع هذا الكود بدلا من الكود القديم في حدث بعد التحديث لخانة التدقيق12

Private Sub تدقيق12_AfterUpdate()
Dim vLast As Variant
Dim iNext As Integer
vLast = DMax("[ID12]", "Aut 0", "[ID12] LIKE '" & Format(Date, "yyyy\*\'"))
If IsNull(vLast) Then
iNext = 1
Else
iNext = Val(Mid(vLast, 7, 4)) + 1
End If
Me![ID12] = Format(Date, "yyyy") & "/" & Format(iNext, "000")

Me.Refresh
End Sub

ملاحظة : عندما يقوم اي شخص بمساعدتنا وتصحيح الأخطاء لنا وعمل كل التعديلات على البرنامج الخاص بنا مثل

1. اعادة تصميم الشعار

2. اضافة المستخدمين والصلاحيات

3. تعديل واصلاح كود البحث

4. تعديل واصلاح رقم التوصيل

فمن باب اولى على اقل تقدير ان نشكره وندعو له بالخير واذا كنا بخلاء في الدعاء له فعلى اقل تقدير ان نذكر اسمه في مشاركته لنا في تصحيح جميع الأخطاء في البرنامج لا ان نهمله وكأننا نحن من قام بعمل هذا البرنامج فقط

فلو تلاحظ هنا بارك الله بك في الصوره العبارة التالية ( برنامج لبيانات المنخرطين في صندوق ارجاع الجثة لبلدها الأصلي ( مسجد السنة ) تصميم اشرف بدوي و عبدالرحيم يحياوي

مع العلم بأنني قد قمت بإزالة هذه العبارة من البرنامج لأن التعديلات في البرنامج وتصحيح اخطاؤه لم تعد حصرا على احد فالكل مشارك فيه بارك الله بك

لا يوجد مشكلة اخي الكريم : عبدالرحيم يحياوي - في هضم حقوق الآخرين

ولكن لا تطلب مني مرة اخرى او توجه لي اي سؤال بخصوص تصحيح او تعديل اي شيء في البرنامج لأنني لن التفت الى اي مشاركة لك بعد الآن .

بالتوفيق

السلام عليكم ورحمة الله وبركاته

أختي الفاضلة الله يحفظك ويهديك لما فيه الخير لدينك ودنياك لا تقولي مثل هذا الكلام بارك الله فيك

لا يوجد مشكلة اخي الكريم : عبدالرحيم يحياوي - في هضم حقوق الآخرين أي حقوق تقصدين فالتصميم قام به الأخ أشرف جزاه الله خيرا أقصد تصميم البرنامج كالواجهة والأكواد وغيرها وأنا قمت بتعديل النماذج من حيث التنسيقات وغيرها وأضفت إليها الكثير من المسائل ولا أنساك اختي الفاضلة أنك قمت بتعديلات على الأكواد وخاصة سنة 2012 وهذا ما أقلقني حيث قلت أن الأكواد كلها معمولة على سنة 2012 فقط ورفضت بأن تقومي بالتعديلات على البرنامج بأكمله ولك الحق في ذالك نظرا لضيق وقتك والله يكن في عونك ما دمت في عون الآخرين -- وعلى العموم فجزاك الله عنا كل خير فوالله ما قصرت -- إلا أن البرنامج الذي قمت بتعديلات عليه فوالله ما يشتغل معي به أخطاء جمة أي رسالات أخطاء كثيرة كلما فتحت نموذج ما إلا ويعطيني رسائل الخطأ وقد أخبرتك بذالك وهذا النموذج الذي ترينه عليه حقوق التصميم أشرف وعبدالرحيم هذا الذي قمت أن بالتعديل عليه بالإستعانة بالأكواد التي ساعدتيني فيها فبارك الله في جهودك كلها وجعله في ميزان حسناتك

أما عن هذا الكلام

ولكن لا تطلب مني مرة اخرى او توجه لي اي سؤال بخصوص تصحيح او تعديل اي شيء في البرنامج لأنني لن التفت الى اي مشاركة لك بعد الآن . فآسف فلن أعيد لك السؤال مرة أخرى

سأكرر ما قلته لك على الخاص

ولكن إعلمي أختي الفاضلة أن هذا العمل ليس لشخص بعينه وإنما تعملين هذا العمل للمسجد ابتغاء وجه الله تعالى وهو عمل خيري جبار والله أعطاك هذا العلم ورزقك الموهبة في ذالك وهذا كله من فضل الله تعالى عليك وما تعملين من عمل لله لا يراه أحد إلا الله تعالى مثلها كالصدقة لا تعلم اليد الشمال ما صدقت يمينها ويقول صلى الله عليه وسلم: ((والله في عون العبد ما كان العبد في عون أخيه))[41] أخرجه مسلم في الصحيح من حديث أبي هريرة رضي الله عنه.

وما هذه الدنيا إلا دار لجمع الحسنات وفعل الخيرات لنجدها يوم القيامة إن كانت الأعمال خالصة لوجهه الكريم

وفي الختام أختي الفاضلة أكرر آسفي على هذا الكلام كله

ونسأل الله لك التوفيق والهداية، ونسأل الله لك حسن الختام، ونسأل الله جل وعلا أن يمنحنا وإياك المزيد من كل خير، وأن يبعدنا وإياك من مضلات الفتن، وأن ينصر دينه، ويعلي كلمته، وأن يجعلنا جميعاً من الهداة المهتدين، إنه جل وعلا جواد كريم. وصلى الله وسلم وبارك على عبده ورسوله نبينا محمد وعلى آله واصحابه وأتباعه بإحسان.

والسلام عليكم ورحمة الله وبركاته

اخي الكريم abuomayma

فضلا وليس امرا

هل بالامكان تنزيل البرنامج الخاص بصندوق التكافل الاجتماعي في المنتدى للاستفاده منه

ولك الشكر

alcasir كتب:

اخي الكريم abuomayma

فضلا وليس امرا

هل بالامكان تنزيل البرنامج الخاص بصندوق التكافل الاجتماعي في المنتدى للاستفاده منه

ولك الشكر

أخي الكريم البرنامج مملوء بالأخطاء البرمجية وبعد الإنتهاء من التعديلات سوف أحاول ان أفرغه من البيانات وسأضعه في المنتدى للإستفادة منه وجزاك الله خيرا على هذا التذكير