نجوم المشاركات

تمام .. هذا ما ذهبت اليه .. يكون النموذج (...) منبثق والخروج منه مشروط بالتنفيذ

هذا ملف ادعو الله ان يجزي بالخير كل من ساعد علي ظهوره برنامج بسيط لشئون العاملين رقم الدخول 1111 شئون+العاملين+2016.rar

هذه الأكواد و ليس برنامج متكامل ينقص البرنامج بعض اللمسات ويكون جاهزا الأكواد والأعمال لأصحابها وليس لي الفضل الا في تجميعها وتنسيقها فجزى الله كل من كانت له بصمه في هذا العمل كنترول محمدي9.xlsb كلمة سر فتح البرنامج 111

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

Database211.accdb

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

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

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

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

جزاك الله كل خير ممنون لطفك وتعاونك احترامي لك وللمنتدى شكا جزيلا لك

الاستاذ الفاضل lionheart الف الف شكر لحضرتك الكود يعمل بكفاءة و هو المطلوب ربنا يحفظ و يبارك فيك و يمتعك بالصحة و العافية اكرر شكر لحضرتك

اقرب واسهل طريقة هو ان يتم حفظ قيمة الحقل عند التركيز وقبل اجراء اي تغيير Dim i As String Private Sub item_GotFocus() i = Me.item End Sub Private Sub item_BeforeUpdate(Cancel As Integer) Me.note = i End Sub New2.accdb

ارفق مثالك غلما ان الدالة NZ تقوم بتحويل القيم الفرغة الى صفر

تفضل هنا يتم تحويل التقرير الى ملف pdf ويتم ارساله sendwatsWeb3.rar

جرب الكود التالي في حدث KeyDown في خصائص التقرير If KeyCode = vbKeyP Then MsgBox "عذرا لا يسمح لك بالطباعة", vbCritical, "ERROR" KeyCode = 0 End If If KeyCode = vbKeyV Then MsgBox "عذرا لا يسمخ بنسخ صورة التقريرm", vbCritical, "ERROR" KeyCode = 0 End If If KeyCode = vbKeyC Then MsgBox "عذرا لا يسمح بأخذ نسخة من شاشة التقرير", vbCritical, "ERROR" KeyCode = 0 نعدل لتعطيل نسخ الشاشة و لصقها أي تعطيل Ctrl C و Ctrl V