Ahmed_J

استاذي العزيز

الحدول غير مرابط باي جدول اخر ولاتوجد اي علاقة له ويظهر الخطا  بالكود كما في الصورة

وشكرا لك

السلام عليكم

نعم ضروري جدا اولا لكي نتعلم وثانيا لان الكود يعمل على  mdb  واريده ان يعمل على  accdb 

لان هذا الكود يقوم بارجاع (Primary Key)  المفتاح الاساسي الى تسلسله الطبيعي بعد حذف اي سجل او مجموعة من السجلات من الجدول

مع الحفاظ عليه كمفتاح اساسي بالجدول

وشكرا للمتابعة

up

السلام عليكم استاذ @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

السلام عليكم

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