Eng.Qassim

وعليكم السلام هل هي مدتين ام مدد عديدة على العموم كفكرة اولية تقوم بعمل استعلام ..تجمع عدد الايام واذا كانت اكبر من 30 يوم تقسم على 30 وناتج القسمة الصحيح يجمع مع مجموع الاشهر ومجموع الاشهر اذا كان اكبر من 12 يقسم على 12 وناتج القسمة الصحيح يضاف الى مجموع السنوات

لازم نعمل فكشن ثاني خاص بحقل الاخطاء هذا جزء من طلبك ...والبقية انت اعملها لانها تحتاج تتبع الاخطاء وماشاء الله كود اخينا ابو جودي يزغلل العيون قاعدة بيانات موظفين - (3).rar

اليس هذا ماتريده..؟

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

وعليكم السلام استخدم هذا الكود بدلا من السابق Nz(DSum("[add_dis_T]";"[Tbl_dis_add]";"[emp_id] =" & [emp_id] & " And [a_d_date] Between [Forms]![frm_migrate_salaries]![st_date] And [Forms]![frm_migrate_salaries]![end_date]");0) TEST_2022 - Copy.rar

تفضل التعديل بعد التعديل.rar

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

انا بالخدمة ما مكنني الله

وعليكم السلام ورحمة الله وبركاته في نموذج دخول المستخدم ولنفرض مربع نص اسم المستخدم txtUserName ضع الكود التالي عند زر فتح الفورم الموجود في نموذج المستخدم Dim TempUser As TempVars [TempVars]![TempUser] = Me.txtUserName.Value ثم ضع الكود التالي في حدث عند التحميل للفورم لديك Me.txtUser = [TempVars]![TempUser] txtUser هو اسم مربع النص في الفورم لاظهار اسم المستخدم

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

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

Allow Deletions=NO Allow Edits=NO

وعليكم السلام شيء بسيط على وجه السرعة PAYMENTS.accdb

وعليكم السلام .. طالما انك تبحث بالاسم فقط فدائما يذهب للاسم الاول حينما تكون الاسماء متشابهة مثل اسم osama انا غيرت بالاسم حتى يكون واضحا ...انظر للمرفق test_55q.rar

اخي في الله @abouelhassan اعمل افضل اجابة حتى يعلم الاخوة الافاضل انه تمت الاجابة

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

حاولت افتحه في حاسوب اخر نواة 32 ولم تظهر لي الرسالة اعلاه لكن ظهرت لي مشكلة ان النسخة معي 2010 ..والنسخة لديك احدث

طبعا me.kano هو مربع نص يتم اضافته للنموذج الرئيسي ويتم فيه ادخال بداية التاريخ

انا بالخدمة ..بالتوفيق يارب

كنت اتصور انك تريده هكذا .. على كل حال استبدل سطر الكومبو للشهر بالتالي strNew = Me.Combo130.Column(1)

اذا لم يفتح عندك البرنامج اضف الكود التالي لاضافة الشهر والسنة .. Dim rs As DAO.Recordset Dim db As DAO.Database Dim strNew As String Private Sub Combo130_Click() Set db = CurrentDb Set rs = db.OpenRecordset("جدول المرتبات") If rs.RecordCount <> 0 Then rs.MoveFirst While Not rs.EOF strNew = Me.Combo130.Value Me.Dirty = False rs.Edit rs.Fields("الشهر") = strNew rs.Update rs.MoveNext Wend End If rs.Close Me.Requery End Sub Private Sub السنة_Click() Set db = CurrentDb Set rs = db.OpenRecordset("جدول المرتبات") If rs.RecordCount <> 0 Then rs.MoveFirst While Not rs.EOF strNew = Me.السنة.Value Me.Dirty = False rs.Edit rs.Fields("السنة") = strNew rs.Update rs.MoveNext Wend End If rs.Close Me.Requery End Sub

تفضل ..لا اعرف ما السبب ach.rar

وعليكم السلام...جرب المرفق ach.rar

بالمناسب ..هو حتى لو وضعت مفتاح اساسي سوف لن يعطيك خطأ او بالاحرى تحذير ويتم الالحاق بشكل طبيعي لو وضعت DoCmd.SetWarnings False DoCmd.SetWarnings True

طيب جرب ان يكون indexed في حقل ال id = Yes (Duplicates OK) للجدول tblBounceEndService