Ahmed_J

السلام عليكم استاذ @Shivan Rekany انا اقصد عند تحويل الملف من mdb الى accdb لايعمل وفيه اخطاء بالكود كما في المرفق وشكرا لك ReAutoNumber3.accdb

UP

السلام عليكم مرفق ملف للاستاذ هيثم القلاف فية كود لاعادة الترقيم التلقائي ولكنه لايعمل على اكسس 2010 (يتوقف) حتى بعد اضافة المكتبات اليه المطلوب تعديل الكود ليعمل على على اكسس 2010 وشكرا لكم ReAutoNumber.rar

السلام عليكم بارك الله فيك استاذنا العزيز وجعله في ميزان حسناتك

UP

السلام عليكم شكرا لك استاذي العزيز @سامي الحداد بارك الله فيك التعديل يبحث باي حرف من الاسم ويجد الاسماء مثل (محمد او احمد) اريد ان يبحث باول حرف من الاسم فقط (م او أ ) لان لدي ملف باللغة الانكليزية ومحتاجه جدا وشكرا لك

السلام عليكم اريد التعديل فقط على الكود في ملف الاستاذة زهرة ليصبح البحث باول حرف فقط من الاسم وليس الاسم بالكامل وشكرا لكم Dim strSearch As String Dim rs As Object Set rs = Me.RecordsetClone If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then MsgBox "رجاء ادخل اسم للبحث عنه", vbOKOnly, "خطأ في البحث" Me![txtSearch].SetFocus Exit Sub End If strSearch = Me![txtSearch] With rs .FindNext "[EmpName] = '" & strSearch & "'" If .EmpName <> strSearch Then MsgBox "لا يوجد سجل بهذا الإسم : " & strSearch, , "غير موجود" Me.txtSearch = "" Me![txtSearch].SetFocus ElseIf .NoMatch Then MsgBox "آخر سجل في البحث عن : " & strSearch, , "آخر سجل" Me.cmdSearch.Caption = "بحث" Me.txtSearch = "" Me![txtSearch].SetFocus Me.cmdSearch.ForeColor = RGB(0, 0, 255) DoCmd.GoToRecord , , acFirst Else Me.Bookmark = .Bookmark MsgBox "تم ايجاد اسم : " & strSearch, , "مبروك" Me.cmdSearch.Caption = "اكمال البحث" Me.cmdSearch.ForeColor = RGB(255, 0, 0) End If End With rs.Close Set rs = Nothing

السلام عليكم بارك الله فيك وجعله في ميزان حسناتك

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

السلام عليكم ملف للاستاذة زهرة فيه كود بحث عن كامل الاسم اريد التعديل على الكود ليصبح البحث باول حرف فقط من الاسم وشكرا لكم za-EmployyeUP.accdb

شكرا لك استاذ @kha9009lid بارك الله فيك

السلام عليكم اساتذتنا الاعزاء لدي نموذج فية حقل بحث عن الاسم عن طريق الاستعلام (المعيار LIKE) لكن عند الكتابة في البحث لايكتب سوى حرف واحد فقط ولااعرف السبب الرجاء التعديل على الملف المرفق وجعل حقل البحث يكتب اكثر من حرف وشكرا لكم Database1.accdb

السلام عليكم استاذنا العزيز @husamwahab الحقيقة هو برنامج رائع وانت تعبت فيه كثيرا وتم تجربته على الواقع ونتائجه صحيحة جدا ودقيقة بارك الله فيك وجعله في ميزان حسناتك لكن لدي بعض الملاحظات لتطويره اكثر فاكثر: 1- عمل تقارير وذلك لان اي برنامج اكسس متكامل يجب ان تكون فيه تقارير للطباعة كالتالي:- A- عمل شريط راتب لكل موظف B- عمل تقرير الاضافات على الراتب C- عمل تقرير بالاستقطاعات على الراتب D- عمل تقرير نهائي (خلاصة الرواتب) الاستحقاقات الكلية لكل الموظفين , الاستقطاعات الكلية لكل الموظفين , الراتب الصافي الذي يتم صرف الشيك له من المصرف والذي يرفق مع القيد النهائي للرواتب في قسم الحسابات 2- رايي الشخصي ان لاتعمل حقول محسوبة بالجداول واعملها في افضل مكان لها وهو الاستعلام 3- عمل حقل بالنموذج باسم فروقات العلاوة لان احيانا العلاوات يتم صرفها باثر رجعي وشكرا لك وبارك الله فيك

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

السلام عليكم شكرا لك استاذنا العزيز @ابو ياسين المشولي بارك الله فيك

مساء الخير لدي نموذج فيه حقلين احدهما لبداية التاريخ والاخر لنهاية التاريخ اريد عند اختيار التاريخين يفتح التقرير وتظهر فقط السجلات الموجوده بين التاريخين عن طريق الدالة Between او اي كود آخر في النموذج فقط وليس الاستعلام وشكرا لكم test.rar

السلام عليكم اخي العزيز ahmedhossin البرنامج يعمل في جهازي بصورة صحيحة ؟ انظر للصور

السلام عليكم استاذ @jjafferr شكرا لك كثيرا وبارك الله فيك سوف انتظرك

السلام عليكم استاذ جعقر الغالي نعم النقاش طويل في مسالة حساب التواريخ وجمعها وطرحها بارك الله فيك على كل هذا المجهود الرائع جعله الله في ميزان حسناتك لكن لدي بعض الاسئلة ارجوا ان يتسع صدرك لي * هل هو صحيح ان ناتج الايام يكون كالتالي (30 ي/5 ش/9 س) ام الاصح يكون (0 ي/6 ش/9 س) على اعتبار الشهر 30 يوم؟ *ماهو التاريخ النهائي الذي حصلت عليه يا استاذ جعفر في الملف المرفق هل هو 2011/2/2 ام لا ؟ * ارجو بيان السبب لماذا يوجد فرق يوم واحد فقط بين عملي وعملك بالنموذج وشكرا لك وبارك الله فيك Database1-new.rar

السلام عليكم استاذنا العزيز @jjafferr ومن باب اثراء الموضوع بصورة كامله خدمة لكل الاعضاء الاعزاء البارحة انا عملت نفس فكرتك لكن عن طريق الاستعلام QQ عن طريق زيادة او نقصان ارقام الخدمة المضافة والانقطاع الى تاريخ المباشرة الاولى بالوظيفة عن طريق الدالة DateAdd ووصلت الى التاريخ النهائي لو كان تاريخ المباشرة بالوظيفة هو 2010/10/5 يكون التاريخ النهائي هو 2011/2/2 * اولا / الارقام بيننا فيها فرق يوم واحد فقط (تمت تجربته عن طريق تغيير تاريخ المباشرة اكثر من مرة) * ثانبا / ماهو التاريخ النهائي الذي حصلت عيه يا استاذ؟ استاذي العزيز جعفر تم تدقيق النتائج عن طريق موقع Age Calculator ومرفقة الصور والبرنامج بعد التعديل . ارجوا ابداء الراي والمساعدة في اكمال الموضوع تحياتي Database1-New.rar

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

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

السلام عليكم استاذ @jjafferr استاذ @husamwahab اعتقد ان الارقام في السجل الاول تكون 9 سنوات و5 اشهر و29 يوم كما في الصورة المرفقة حسب رايي نقوم باضافة شهر 30 يوم (ننقصه من الاشهر حتى لاتظهر النتيجة بالسالب ) الى الايام لتصبح 58 يوم وننقصها من مدة الانقطاع 29 ليصبح الفرق 29 يوم والراي النهائي رايكم يا اعزاء تحياتي

استاذي العزيز @husamwahab شكرا لمجهودك الرائع تقبل اجمل التحيات