ابو عارف

نظرا لوجهة نظر الاستاذ/جعفر حاليا نتعامل مع نموذج فقط و في مشاركتي القامة سنعالج تلك الخطاء ان شاء الله أخي حعفر ربما تقصد سجل جديد لا سجل الأخير ، في العادة نستخدم اختيار صح/خطاء لسجلات موجودة مسبقا لا لجديدة ولكن لانستبعد ان مستخدم يقوم وضع العلامة بالخطاء، و لتخطي تلك الخطاء التعديل في مرفق aa.accdb

هذا قابلة اهتمام أكثر بنسبتة لي هذا كود بطريقة ثانية (في حدث واحد فقط و بدون اضافة كائنات اخرى) Dim RecNum As Integer RecNum = CurrentRecord DoCmd.SearchForRecord , , acFirst, "y_n=true": y_n = False DoCmd.SearchForRecord , , acLast, "y_n=true": y_n = False DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acGoTo, RecNum: y_n = True aa.accdb

و بارك الله فيك تفضل ops2.accdb

يعمل عندي 100%100 يمكن جربت ملف آخر بداله جرب الكود في حدث كليك y_n CurrentDb.Execute ("UPDATE a SET a.y_n=false") DoCmd.RunCommand acCmdSaveRecord

ماشاء الله استاذ /kkhalifa1960 انا اعتقدت استاذ دلي لايريد عرض شهور مدفوعة معه كما هو في مثال السابق المهم اهم شيء حل السؤال و الحمد لله

و هذا احد الحلول aa.accdb

شكرا أخي على الانتباه و تم تعديل المرفق

هو فعلا يقفل صفحة محددة حسب رغبتك اذا ماتريد قفل صفحة 2 مثلا ، امسح حدث فقدان تركيز ops في صفحة 2 على كل حال عدلت لك المثال لالغاء تمكين صفحة 1 فقط ops.accdb

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

تفضل أخي جرب المثال ops.accdb

تفضل الاقساط السنوية غير المدفوعة (1).accdb

تفضل أخي ملفك بعد تعديل inv4.accdb و هذا على طريقة تصفية inv4.accdb

قد نسيت علاقة تنصيص الاخيرة، جرب هذا myCriteria = "([detach]='موظف'" myCriteria = myCriteria & " Or [detach]='عامل متعاقد توقيت كامل'" myCriteria = myCriteria & " Or [detach]='عامل متعاقد توقيت جزئي'" myCriteria = myCriteria & " Or [detach]='حارس متعاقد توقيت جزئي'" myCriteria = myCriteria & " Or [detach]='عون نظافه وتطهير')" myCriteria = myCriteria & " And [Nr]<6"

السلام عليكم و رحمة الله و بركاته اولا عليك ذهاب الى اول سطر في موضع و تعديل اول كلمة ثانيا جرب احاطة شروط سابقة بين قو سين ثم اضافة شرط جديد أو الصق الكود التالي myCriteria = "([detach]='موظف'" myCriteria = myCriteria & " Or [detach]='عامل متعاقد توقيت كامل'" myCriteria = myCriteria & " Or [detach]='عامل متعاقد توقيت جزئي'" myCriteria = myCriteria & " Or [detach]='حارس متعاقد توقيت جزئي'" myCriteria = myCriteria & " Or [detach]='عون نظافه وتطهير')" myCriteria = myCriteria & " And [Nr]<6

تفضل أخي إن شاء الله يكون حسب المطلوب الاقساط السنوية غير المدفوعة.accdb

و جزاك اخي الكريم نحن في خدمة

السلام عليكم أخي محمد جرب احد حلول على طريقة تحقق من مسار الصور DataH.zip

الشكر لله

السلام عليكم بعد إذن الاستاذ/ خليفة أخي اليك احد حلول testH.accdb

اي زر يعمل اضافة ؟ يوجد زر واحد و هذا كود

طيب جرب هذا كروت_03.xlsb

تفضل أخي اليك احد حلول حسب فهمي من السؤال كروت_03.xlsb

السلام عليكم و رحمة الله و بركاته ماشاء الله عليكم اساتذة الكرام على حلولكم الرائعة حبيت اشارككم فكرة بسيطة الا وهي استغناءعن وضع سطر On Error Resume Next في الكود باستخدام دالة Val لمقارنة معايير قيمة حقل رقمي مع قيمة حقل نصي كما هو في مثال التالي Dim strSql As String strSql = "[Key] = " & Val([txtSearch]) strSql = strSql & " OR [Number] = '" & Me![txtSearch] & "'" strSql = strSql & " OR [CardNumber] = '" & Me![txtSearch] & "'" DoCmd.SearchForRecord , , acFirst, strSql و أمر SearchForRecord بدلا من Recordset.Clone مجرد للاختصار في الكود و لكم مني أجمل تحايا

تفضل آخي اليك المثال جعلت كود كماكرو TextBox ثم استدعائه عند تنشيط ورقة حيث ينقل TextBox1 الى ارتفاع و يسار خلية B2 و لتغير اسم TextBox1 يمكن غيره الى الاسم TextBox لديك TextBox.xlsb

او يمكن نقر في خلية مراد تسوية تكست بوكس مع حد الاعلى و يسار ثم وضع الكود التالي خلف الزر او اي طريقة ينابسبك Dim v As Integer Dim h As Integer v = ActiveCell.Top h = ActiveCell.Left TextBox1.Top = v TextBox1.Left = h