kha9009lid

علينا وعليك اخي الحبيب وكل عام وانتم بخير تقبل الله منا ومنكم صالح الاعمال

اتفق مع اخي احمد انظر الصورة

اخي واستاذي @jjafferr اولا العين لا تعلى على الحاجب وانت الاستاذ ونحن تلاميذكم ندخل للموضوع الفكرة جميلة و تستحق التجربة الحقيقة بعض الردود تبهرني والبعض منها يدفعني للسؤال ليش مافكرت بهذا الحل مع انه بديهي مثلا مشاركة للاستاذ @رمهان اختصرت وحدة نمطية واستعلام بامر من كلمتين ويؤدي النتيجة بشكل جميل وايضا رد لاستاذنا الفاضل @أبو إبراهيم الغامدي اضحكني كثيرا واختصر عدة مشاركات في الموضوع والحل ايضا بسيط وبديهي وغيرها الكثير مما لا يتسع المجال لذكره بالنسبة لي غالبا افضل استخدام مربعات النص غير المنضمة على كتابة كود طالما يؤدي للنتيجة المطلوبة وربما يعود الامر الى ان بداياتي كانت مع نظام التشغيل دوس وقاعدة داتابيس 2 تعدد الحلول امر ايجابي ويخضع لنظرة المبرمج للمشكلة ودائما هناك حل وحل افضل وللعلم انا اجيد الطبخ وظهرت المواهب بشكل جلي في زمن الكورونا بسبب العزوف عن اكل المطاعم في النهاية كل عام وانتم بخير تقبل الله منا ومنكم صالح الاعمال

هل تقصد انك تريد حساب عدد الايام من بداية العام حتى تاريخ اليوم اذا كان فهمي صحيح جرب التالي =Date()-DateSerial(Year(Date());1;1) اعتذر اساتذتي @kanory و @jjafferr لم اشاهد ردودكم كنت اكتب اوف لاين 🌹

هذا الموضوع يتحدث عن الامر ربما يعطيك بعض الافكار وان كان الموضوع يحتاج الى مزيد من النقاش وهنا ايضا

الشكر لله سبحانه مع تمنياتي لك بالتوفيق 🌹

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

جرب الان الاقساط.accdb

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

الطريقة التي وضعها استاذنا الفاضل ابو تراب صحيح واكثر احترافية واليك طريقة اخرى في نموذج الدخول وضعنا مربع نص مخفي اسمه tx2 وجعل قيمته تساوي يمكن الاستغناء عن الحقل المخفي ووضع كود في نموذج Employees يغني عن الحقل ولكن هذه الطريقة اعتقد انها اسهل Me.tx2 = cboUserName.Column(1) في نموذج Employees الحقل نص0 جعلنا قيمته تساوي [Forms]![Login]![tx2] ولاضافة اسم المستخدم للجدولCard_print للحقل user وضعنا في حدث بعد التحديث للحقل emp_id او لاي حقل اخر Me.user = Me.نص0 الملف مرفق ShowUser.accdb

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

وهذا موقع لتحميل ايقونات تنسب الازرار انقر هنا

الاوفيس لديك 2007 ولكن تنسيق الملف لديك 2000 / 2002 ثانيا لا تستطيع ان تغيير خلفية الزر لانه صورة والان قمت بتغيير تنسيق الملف الى 2007 فاحدث ووضعت لك زر واحد باختيار ايقونة صغيرة وليس صورة كاملة للزر ووضعت لك صةرة لكيفية الجمع بين الايقونة والتسمية لزر الامر Database1131.accdb

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

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

من خلال نموذج الادخال في حدث عند عدم الوجود في القائمة ضع الكود التالي لاخينا الاستاذ @ابوآمنة Dim strSQL As String, X As Integer X = MsgBox("هذة المدينة ليست من ضمن القائمة .. هل ترغب في إضافتها؟", vbYesNo + vbDefaultButton1) If X = vbYes Then strSQL = "Insert Into tbl_city (city) values ('" & NewData & "')" CurrentDb.Execute strSQL Response = acDataErrAdded Else Response = acDataErrContinue End If عدلت اسم جدول اسماء المدن واسم المدينة الى الانجليزي الاسم العربية مع اعتزازنا وحبنا للغتنا الا انها تسبب اشكال مع محرر الاكواد الملف مرفق Database2111.accdb

بالتوفيق اخي عبد الله والشكر لله سبحانه

نعم كل شي ممكن في اكسس نستبدل الكود السابق بكود فلترة لحقلين Dim k As String Dim x As String k = "taxt_name1 like '*" & city & "*'" x = "[year_1] like '*" & cmbLocation & "*'" Me.frmOrder.Form.Filter = k & " and " & x Me.frmOrder.Form.FilterOn = True بالامكان الفلترة بالعام فقط او بالمدينة فقط او الفلترة بالحقلين الملف مرفق مع رجاء التقيد بتعليمات الموقع سؤال واحد حتى مايزعلوا علينا المشرفين ويغلقوا المشاركة عمل الفراز(1).accdb

وايديك استاذ @فايز.. ومبارك عليك الشهر الحقيقة كنت مستعجلة وعملت الكود في زر الفراز وايضا في حدث بعد التحديث للقائمة المنسدلة cmbLocation وكان الافضل في حالة تكرار كود معين ان نشير اليه فقط بدون اعادة كتابتة مادام الامر ضمن نفس النموذج اي ممكن استبدال الكود للقائمة cmbLocation cmdFilter_Click بدلا من Dim myfilter As String myfilter = "[year_1]='" & [cmbLocation] & "'" Me.frmOrder.Form.Filter = myfilter Me.frmOrder.Form.FilterOn = True ولا توجد مشكله في ترك الامر بدون تعديل الملف بعد التعديل عمل الفراز.accdb

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

رائع استاذنا الفاضل ولكن عند فتح النموذج تكون النتيجة Record 1 Of 1 Records مهما كان عدد السجلات وبعد التنقل للسجل التالي يعطي النتيجة الصحيحة وبعد اضافة Me.RecordsetClone.MoveLast قبل الكود تكون النتيجة Record 1 Of 4 Records مطابق للعدد الكلي للسجلات

لا اعلم اذا كان فهمي صحيح جرب الملف المرفق Database1121.accdb

ولو ارفقت مثال لكن اسهل الرد على مشاركتك

شوفالصورة من نموذجك فقط اعد ادخال الرقم

حول الحقل من رقم الى نص مختصر 222.accdb