kha9009lid

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

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

ويندوز 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

اخي @rey360 هذه الطريقة تعطي نتيجة صحيحة اذا كانت البيانات المسجلة في الجدول لعام 2021 اما في حال وجود بيانات لاعوام سابقة فسوف يكون اجمالي المبيعات للاشهر المكررة غير صحيحة مثلا شهر 1/2021 المبيعات 200 شهر 1/2020 المبيعات 500 حينها ستجد ان الاجمالي لشهر يناير 700 ريال وهذا غير صحيح والسبب اننا عملنا الاستعلام الجدولي بدون تحديد العام لذا فمن رأيي المتواضع ان نعمل استعلام نستخرج فيه اسم الشهر او رقمه وايضا حقل غير ظاهر للعام ونحدد فيه معيار العام مباشرة او من خلال نموذج وهو الافضل لكونه يعطي مرونة لاختيار الاعوام دون الحاجة للدخول على تصميم الاستعلام ثم نعمل استعلام جدولي ويكون مصدره الاستعلام الاول في جميع الاحوال قد تواجهنا مشكله في فتح التقرير اذا كانت المبيعات في احد السنوات اقل من 12 شهر لذا هذا الموضوع مفيد لاستاذنا @jjafferr 👇 وهذا ايضا تحياتي

جميل جدا ويمكن استخراج اسم الشهر مباشرة بدلا من رقمه باستخدام الدالة MonthName MonthName(Month([salse]![Date])) او MonthName(Month([Date])) ملاحظة لصاحب الموضوع date من الاسماء المحجوزة لاكسس ومن الخطأ استخدامها لاسماء الحقول او الكائنات الاسماء والرموز المحجوزة في access

قبل تغيير نوع الحقل قم بعمل نسخة احتياطية حتى لا يتسبب التغيير في فقدان بعض بيانات الحقل