kha9009lid

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

جزاك الله خير اخي محمد للاسف عادت المشكلة وتنتهي عند ايقاف اضافة مانع الاعلانات Adblock Plus بمجرد ايقافه يمكن ارسال الردود

بعد اذن اخي @د.كاف يار اجعل مصدر سجلات النموذج استعلام مضمن يحتوى على استعلام فرعي يساوي SELECT kh.id, kh.merg, kh.maden, kh.daan, kh.Date, kh.MOSTND, (select(sum([maden])-sum([daan])) from [HRKAHESAB] where [id]<= kh.[id] and [date]<=kh.[date] and [merg]=kh.[merg]) AS RaseedTrakomy FROM HRKAHESAB AS kh; مع ملاحضة استخدامك لحقل في الجدول باسم date وهو من الاسماء المحجوزة لاكسس لذا قم بتعديله ايضا وجود حقل ترقيم في الجدول يساعد في معادلة حساب الرصيد الملف مرفق الرصيد التراكمي22.mdb

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

وضع مرفق يسهل فهم المطلوب

ويندوز 10 الاصدار 20h2 اخر بناء محدث فايرفوكس الاصدار 89.0.2 (64 بت) ايضا محدث

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

المقصود الطريقة الصحيحة ان يكون عندك جدول خاص لهذه الاعدادات ، تقدر تحفظ فيه اي قيمة ، ولما تفتح النموذج ، تطلب هذه القيمة من الجدول كما اشرتم وهذا ما اعمله دائما وتجب استخدام اكواد تقوم باجراء تعديلات على الجداول مثل حذف او اضافة حقول او تغيير نوعها او قيمتها او الغاء الفهرسة الخ وحتى عند الحاجة تكون للمسئول عن الدعم للبرنامج وليس للمستخدم للبرنامج

الشكر لله اخي

اضافة لما اشار الية استاذنا الفاضل @صالح حمادي يمكن التحكم حجم النموذج مصدر بيانات النموذج تسميات الحقول اخفاء او اظهار حقول وازار اوامر تغيير اللون للنموذج او كائناته الخ والقائمة تطول مرفق مثال صغير لما تم الاشارة اليه بحيث يكون لدينا نموذج واحد نتحكم بخصائصة ومصدر بيانته من خلال زر امر بدلا من عمل نموذجين او اكثر مثال.accdb

نعم هذا صحيح استاذي

هذه الطريقة الصحيحة ودائما ننصح ان يكون لدينا جدول للقيم الثابتة في البرنامج ونموذج للتعامل مع هذه القيمة مثلا نسبة الضريبة نسبة الحسم اضافة الى معلومات المؤسسة او الجهة التي تستخدم البرنامج ووسائل الاتصال الخ ... مع ذلك احيانا قد نضطر لتعديل القيمة الافتراضية لحقل معين وكما اشرتم استاذي لصيغة accde و mde لا يمكن الدخول لتصميم النموذج للتعديل في كل مره فمن الممكن ان نعدل القيمة الافتراضية للحقل في الجدول مباشرة عن طريق امر بسيط CurrentDb.TableDefs("tbl_1").Fields("Bonus").DefaultValue = Me.tx2.Value tbl_1 اسم الجدول bonus اسم الحق tx2 الحقل الذي سنضع فيه القيمة الجديدة مع ذلك فالخبراء لا ينصحون بذلك الجداول هي العنصر الاهم في القاعدة مرفق مثال بسيط بصيغة accde Database171.rar

لا المقصود انه اذا اردنا استخدام اي كود لاحتساب قيمة حقل عن طريق الكود مثلا me.tx2 = ([tx3]+[tx4]) او اي دالة من دوال التجميع مثلا me.tx2 = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]='" & Me.txtEmpNumber & "'") الخ لابد ان يكون هذا الحقل مصدر بيانته الجدول او حقل غير منظم و لا يكون مصدر بياناته منشئ التعبير وباختصار اكثر اذا استخدمنا الحقل في منشئ التعبير لايمكن اسناد قيمة له عن طريق الكود

هنا تمت مناقشة الموضوع 👇

رقم الهوية الوطنية من 10 ارقام وليس هناك اي علاقة بين الرقم وتاريخ الميلاد او مكانه هذا الموضوع ربما يفيد 👇

اذا كان الامر بهذه الصورة البسيطة وفقا لمثالك المرفق كود استعلام ممكن يحل المشكلة اعمل زر امر وفي حدث عند النقر ضع الامر DoCmd.RunSQL "UPDATE [Table] SET [Table].[sheet 2] = [Table]![sheet 1];" جربت الامر على 90000 سجل وحدث خلال ثواني

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

عذرا ما انتبهت انك وضعت مرفق في ردك على الاستاذ @kanory لذا اذا اردت بنفس فكرتك ممكن نستخدم امر فتح نموذج ونحمل قيمة في بارامتر OpenArgs ليكون امر الامر DoCmd.OpenForm "frm_2", , , , , , "1" ثم في نموذج البينات في حدث عند الفتح نضع الامر التالي If Not IsNull(Me.OpenArgs) Then Dim k As String k = "SELECT Table.* FROM [Table] WHERE (((Len([no]))<6 Or (Len([no]))>6));" Form.RecordSource = k End If من المؤكد ان هناك طرق اخرى لتنفيذ ولكن اعتقد هذه الاسهل والله اعلم الملف مرفق بيانات 22.mdb

مشاركة مع استاذي الفاضل @kanory قم بانشاء نموذج مستمر ( جدولي ) ثم قم باضافة زر امر وفي حدث عند النقر ضع الكود التالي Dim k As String k = "SELECT Table.* FROM [Table] WHERE (((Len([no]))<6 Or (Len([no]))>6));" form.RecordSource = k الملف مرفق بيانات.mdb

حسب فهمي للامر اختر اي باركود من القائمة ثم تنفيذ جرب المرفق test.accdb

مجاملة لطيفة وتواضع كبير من اخ ومعلم فاضل تعلمنا منه الكثير يا مرحبا باخي ابو البشر الحقيقة في البداية كانت فكرتي ان اعمل كود مشابه لطريقة استاذنا الفاضل @kanory بالتعامل مباشرة مع الجدول ولكن بعد ان شرعت في العمل شاهدت طريقة استاذنا ففكرت في طريقة اخرى في جميع الاحوال طريقة الاستاذ افضل واسرع عند التعامل مع اعداد كبيرة جدا مثلا لو اردنا تنفيذ عدد 1000 بوليصة او اكثر في كل مرة ستجد ان كود استاذنا سينفذ خلال ثواني بينما طريقتي ستاخذ وقت اطول لكونها تتعامل مع النموذج ممكن نضع الامر لدمج الحقلين في نفس الحلقة التكرارية ممكن نعمل جدول عن طريق استعلام انشاء جدول وممكن نعمل استعلام الحاق للسجلات وممكن بدون الحاجة الى اضافة جدول عن طريق انشاء استعلام بمعيار رقم البوليصة وهو الاسهل الملف مرفق New Microsoft Access Database.mdb

حسب فهمي للسؤال ان لديك نموذج يحتوي على حقل محسوب وترغب في فلترة سجلات النموذج وفقا لهذا الحقل اذا كان هذا التصور صحيح فلابد ان نشير ان عملية الفلترة تكون لمصدر بيانات النموذج وهذا الحقل ليس من ضمن مصدر البيانات مع ذلك مكن عملها باكثر من طريقة الطريقة الاولى يتم تخزين حقل الرصيد في الجدول من خلال حدث بعد التحديث لاحد حقول النموذج وبالتالي يكون هذا الحقل ضمن حقول الجدول مصدر البيانات مثلا لدينا حقل سعر البيع وحقل الخصم وحقل الضريبة وحقل الاجمالي ممكن مثلا ان نضع في حدث بعد التحديث لحقل الخصم [الاجمالي]=([السعر]-[الحسم])*[الضريبة]+([السعر]-[الحسم]) الطريقة الثانية ان نجعل مصدر بيانات النموذج استعلام ونقوم باحتساب قيمة الحقل المحسوب في الاستعلام حينها يمكننا الفلترة بكل سهولة مرفق مثال صغير للطريقة الثانية محسوب.accdb

مافي مشكلة ممكن نعملها بطريقة اخرى ما شاء دائما مبدع استاذي الفاضل @kanory الحقيقة انا فكرت باستخدام نموذج يحتوي على حقل لعدد البوليصات المتاحة وحقل للعد المطلوب استخدامه وحقل للنص المطلوب كتابته ونموذج فرعي مصدر سجلاته استعلام بمعيار السجلات التي يكون حقل البوليصة فارغ ثم عمل زر امر لتنفيذ العدد المطلوب New Microsoft Access Database.mdb

من اسهل الطرق استخدام من الى Between [Forms]![Form1]![Tex_s] And [Forms]![Form1]![Tex_e] عن طريق مربعي نص من ونضع بداية الرقم وحقل الى اخر سجل ليتم تحديثة New Microsoft Access Database.mdb

قاعدة البيانات للمستخدمين.accdb