Eng.Qassim

اذا لم يفتح عندك البرنامج اضف الكود التالي لاضافة الشهر والسنة .. 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

اعتقد ان السبب في وجود مفتاح اساسي في tblBounceEndService

الرسالة تقول ان البرنامج معمول على نواة 32 بت

عن اذن استاذي @kanory مربع النص في النموذج الرئيسي الذي مصدر سجلاته Employee_Num تجعل المعيار لديه انه يشبه مايتم اختياره من مربع القائمة واهم شي تعمل تحديث للنموذج عند الضغط على مربع القائمة Me.Requery

استاذ موسى انا جدا ضعيف بالويندوز ...اعرف ان تصوير الشاشة Ctrl+printScr بس هاي من وين جبتها ...وين نخليها ربما السؤال خارج الموضوع ...اعتذر كثيرا

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

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

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

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

هناك امثلة كثيرة في المندى حول الحضور والانصراف شاهد هذا المثال للاخ عمر

استاذ جعفر ... لقد ذكرت ذلك في مشاركتي السابقة ... لكن الاخ علي لم يجري اي تحديث حسبما اظن

استاذ علي ...خدني على قد عقلي ...فانا شيخ كبير هل كان البرنامج يشتغل عندك منذ فترة وفجأة ظهرت هذه المشكلة ؟ ام انك قمت بالتعديل على بعض الاكواد وظهرت المشكلة ... ياريت نسخة مبسطة من البرنامج لديك ... الموضوع مهم ... واعتقد انك اول شخص يطرحه خلينا نستغل استاذنا ابو موسى في هذا الموضوع 😄

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

هذه هي احدى المشاكل ... حينما تتعامل مع السجلات وتبقيها مفتوحة ...اي لاتعمل لها rs=nothing

وعليكم السلام هل فمت بتحديث نسخة الاوفيس ؟ حاول ان تفتحها على نسخة اقدم هل القاعدة لديك مقسمة ؟

استاذ احمد ... سؤالك متناقض كيف تريد تحويل ساعات الاستئذان الى ايام ومن ثم طرحها من الساعات الكلية ؟ المفروض ان الموظف لديه رصيد اجازات 3 ايام كل شهر (على سبيل المثال) .. ويوجد حقل بتجميع رصيد اجازات الموظف .. مثلا لديه رصيد 360 يوما لخدمة 10 سنوات نقوم بتحويل الرصيد من الايام الى ساعات بضربه *7ساعات فيكون رصيده من الاجازات بالساعة =2520 ساعة ثم نقوم بتجميع ساعات الاستئذان لكي نطرحها من رصيد الاجازات بالساعة ليظهر لنا ناتج الرصيد المتبقي من الاجازات الذي يمكن تحويله الى ايام او اشهر

اخي ابو الحسن الكود اعلاه فيما اظن لاخينا الاستاذ ابو بسملة وهو يشمل تعديل جميع خلايا السطر المؤشر على الجيك بوكس بنعم والعكس صحيح وفيما اعتقده لايمكنك استثناء احد الخلايا من التعديل الا في حالة تبديل الكود بالتالي (كمثال) لانك يجب ان تدرج جمبع الحقول If Me.chek = True Then Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True Else Me.Registration_Date.Enabled = False Me.Account.Enabled = False Me.pay.Enabled = True Me.Debit.Enabled = False End If ملاحظة: اين هو حقل pay؟

وعليكم السلام.. اولا اجعل النموذج Continuous Forms ثانيا قم بتغيير هذا السطر Me.Head.SourceObject = "Query.qryMyQuery" الى هذا Me.RecordSource = "qryMyQuery"

طيب .. واذا كانت بصيغة mde, accde

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

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