ابو جودي

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

اساتذتى على رأيان الاول والثانى وهو ما أميل اليه كانت تلك نصائح من استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل مجتمعا ومقرا وموافقا على على كلام استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr إقتباس من كلمات وتوجيهات الاستاذ @ابوخليل

طال عمرك .. يا هلا هلا هلا هلا استاذى الجليل ومعلمى القدير والله اشتجنا اعتذر عن غيابى وانقطاعى

هات مرفق

العفو منكم استاذى الجليل فما تصفه بالاطروحات هو فضل الله تعالى أولا ثم من بعده فضل اساتذتى العظماء الذين اتعلم على ايديهم فى هذا الصرح الشامخ اذن طالب يتابع اطروحات طويلب هههههههههه وانا كمان لكن ابشر ان شاء الله ان قدر الله وكان فى العمر بقية فى القريب العاجل افرد لــدوال تحويل البيانات موضوعا مبسطا ------------------- سبحانك لا علم لنا الا ما علمتنا .. هذا فضل الله تعالى لا نافة لى فيه ولا جمل وما فى مجهود ولا شئ هلا والله .... جزاكم الله تعالى اكثر مما تمنيتم ودعوتم لى ان شاء الله انتم وكل اساتذتى واخوانى وكل المسلمين ان شاء الله وأخيرا المرفق ببعض التعديلات الطفيفة جدا جدا جدا على درب استاذى الجليل @دروب مبرمج دون المساس بالتصميم أو تغير شئ اتفضل select top (2).accdb

اعتذر نسيت بالنسبة لسؤال بعد اذن اخى الحبيب ومعلمى القدير الاستاذ @دروب مبرمج شوف يا استاذ @mohamedab557 وركز معايا استاذى الجليل قام بعمل وحدو نمطية لعمل روتين عام اسم هذا الروتين العام هو NewList ولاحظ معى الاتى هناك بين قوسان متغير تم الاعلان هنا باسم SetTop وهو رقم طيب الشكل كاملا لهذا الروتين Function NewList(SetTop As Integer) اذا عند استدعاء الروتين ليقوم بتنفيذ وظيفته لابد ان يكون على النحو الاتى Function NewList( 0 or 1 or 2 or ... or ....) نفهم اذن ان ما بين الاقواس هو متغير رقمى اسند انا اليه القيمة التى اريدها حسب متطلباتى وبما انك تريد ان تكون قيمة ال Top متغيره وتضعها انت من النموذج من واقع مربع النص فيتم استدعاء الوظيقة Function NewList بالشكل التالى NewList(Me.SetNo) وان اعجبت بأفكار استاذى الجليل ومعلمى القدير @دروب مبرمج كما أعجبت أنا بها أكثر من فكرتى انتظر منى تعديلا طفيف جدا جدا جدا بعد إذن استاذى طبعا العفو منكم استاذى الجليل والله اشتجنا

انا لم استطع فهم المطلوب جيدا وهو جسبا فهمت يحمل معنيين الاول ربط الجداول برمجيا وان كان كذلك / اتفضل هاكم طريقتى فى المرفق اتمنى ان تنال رضاكم الثانى العلاقات بين الجداول : وان كنت تقصد ذلك دعنى اقدم اليكم نصيحة لا تقم بعمل الربط بين الجدول الا داخل الاستعلامات وقت الحاجة وحسب المتطلبات اليها Reink Table.zip

اتفضل يا سيدى ولكن وجب التنويه تم تغيير نوع الحقل sales من نصى الى رقمى فى مرفق استاذى الجليل ومعلمى الاستاذ @دروب مبرمج انتبه جيدا لان النتائج سوف تختلف كليا وجزئيا ان نقلت النموذج والموديول من قاعدة استاذى الى قاعدتك الاساسية select ( X ) Top (1).accdb

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

السلام عليكم ومشاركة مع استاذى ومعلمى @دروب مبرمج لانى كنت أفكر فى الحل بأبسط الطرق قمت باستخدام دوال تحويل البيانات لان الحقل المراد التعامل معه حقل نصى ولاننا مستقبلا نريد التعامل مع القيم الرقمية داخل الحقل النصى Sales قمت بعمل استعلام بسيط لتحويل نوع البيانات من نصية الى رقمية من خلال الدالة CLng([sales]) فيكون بناء الاستعلام كالاتى SELECT sales.dname, CLng([sales]) AS FldSales FROM sales; الخطوة الثانية : بعد ذلك الان سوف اتعامل مع هذا الاستعلام وليس الجدول ووضع الكود الاتى على زر الامر على الترتيب الاتى Dim strSQL As String الاعلان عن متغير نصى If IsNull(txtXTop) Or Len(txtXTop) = 0 Then اى ان كان مربع النص txtXTop طول السلسلة النصيه له = 0 اى انه فارغ بدون اى قيم فى هذه الحالة سوف اقوم باسناد جملة الاستعلام البسيط مصدر البيانات الان الى المتغير النصى strSQL strSQL = "SELECT sales.dname, CLng([sales]) AS FldSales FROM sales" اما اذا كان مربع النص txtXTop طول السلسلة النصيه له > 0 اى انه يحتوى على قيم قى هذه الحالة سوف اقوم باسناد جملة الاستعلام الاتية الى المتغير ولكن لان جملة الاستعلام عبارة عن سلسلة نصية سوف اقوم باستخدام دوال تحويل البيانات مرة أخرى ولكن فى هذه المرة اريد تحويل الرقم من مربع النص الى سلسلة نصية لان مربع النص الان هو المتغير الذى يمرر قيمة ال Top لاستكمال صياغة جملة SQL دوى ادنى مشاكل من خلال CStr(txtXTop) قتكون الجملة التى سوق يتم اسنادها بهذا الشكل "SELECT TOP " & CStr(txtXTop) & " * FROM qryData ORDER BY FldSales DESC;" وكانت فكرتى تتمحور حول جعل النموذج يعرض البيانات لذلك سوف اسند الى مصدر بيانات النموذج جملة الاستعلام تبعا للحالة من خلال المتغير Me.RecordSource = strSQL وتم اضافة كود تصيد الاخطاء فى حالة تم استخدام اى شئ يخالف الارقام فى مربع النص على النموذج اعتذر للاطالة واعتذر مسبقا فى جالة وجود اى قصور بسبب محاولتى للابقاء على التصميم دون المساس او التغيير فيه مع محاولة الوصول للنتيجة بأبسط طريق واخيرا المرفق select ( X ) Top.accdb

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

السلام عليكم ورحمة الله تعالى وبركاته من فضل اساتذى الكرام انا فى مشكلة كبيرة جدا فى عملى بسبب هذا الصدد اسأل الله تعالى ان يهديكم ويهدينى تكمن مشكلتى فى جلب البيانات من مربع متعدد القيم المرفق الاتى قى النموذج الموجود اريد ان يعطينى زر الامر النتيجة المرجوة فى رسالة او فى الـ Immediate Windows By Debug.Print يعنى المفروض النتيجة تكون مساوية لقيم مربع السرد Get Value Combo Box Multi Select.accdb

ممكن مع بعض التعديلات

ما شاء الله الله أكبـــــر سلمت يمناكم استاذى الجليل ومعلمى القدير و والدى الحبيب

طيب وبما انك وصلت للحل لتعم الفائدة Dim db As DAO.Database Dim rst As DAO.Recordset ' Open the database Set db = DBEngine.OpenDatabase(".\officenaDB.mdb") ' Open the Recordset Set rst = db.OpenRecordset ("SELECT * FROM Customers WHERE CustomerId = 'officena'", dbOpenDynaset)

اتفضل استخدم الكود الاتى كروتين عام لعدم كتابة وتكرار الاكواد اكثر من مره حسب عدد الأعمدة Function DoColoer(ByRef Obj As Object) As String Select Case Nz(Obj, "") Case Is = "": DoColoer = vbWhite Case Is = 1: DoColoer = vbBlue Case Is = 2: DoColoer = vbGreen Case Is = 3: DoColoer = vbYellow Case Is = 4: DoColoer = vbRed Case Else End Select End Function ومن مربع السرد لكل عمود استدعى الروتين السابق بهذا السطر ObjectName.BackColor = DoColoer(ComboBoxName) بحيث ObjectName اسم العنصر المراد تغيير لون الخلفية الخاصة به و ComboBoxName اسم مربع التحرير والسرد الخاص بالعمود الذى تريد تغيير لونه واخيرا المرفق بعد التطبيق تحديد اللون بشرط.accdb

اتفضل بس نصيحة لوجه الله لا تستخدم الأحرف العربية فى تسمية الحقول والكائنات والعناصر وكذلك لا تحاول استخدامها فى محرر الأكواد لسببين 1- عند استخدامها تتداخل الأكواد وقد تعجز عن التعديل عليها مستقبلا وقد تعجز اساسا عن فهم الكود وبناء الجمل من النظر الى الترتيب المعكوس بسبب الأحرف العربية كما يحدث فى دوال المجال على سبيل المثال وليس الحصر 2- عند محاولة استخدام قاعدة البيانات فى ويندوز لم يتم اعداد اللغة الاقليمية الى اللغة العربية له يحدث خطأ ولا يتم تنفيذ الاوامر البرمجية وبالتالى لن تعمل القاعدة وقد لا تعرف من الرسالة أن اللغة العربية هى المشكلة ملاحظة وضعت عدد اتنين زر امر لزيادة ونقصان الكمية افضل من زيادتها بالضغط على اسم الصنف كما تريد ولكن ان اردت ذلك لا يوجد عندى ادنى مشكلة أنا وضعت أفضل تصور من وجهة نظرى آخذا فى الاعتبار كل ما خطر على بالى لإضفاء المرونة واليسر فى التعامل واخيرا اتفضل قاعدتك بعد التعديل ان شاء الله تجد ما تريد مثال إدراج الأصناف فى الفاتورة بشروط_( v 2 ).accdb

جرب وضع الكود الاتى فى النموذج الفرعى Private Sub Form_Current() rate = IIf(IsNull([rate]), [Form_حساب العملاء الرئيسى].Text59, [rate]) End Sub

بعد إذن أستاذى الجليل ومعلمى القدير الاستاذ @kkhalifa1960 لان استاذى الجليل هنا اعتمد على اسم السورة من العمود الثانى فى جملة بناء الاستعلام لمصدر بيانات مربع الســرد Combo2 ولانه لو اعتمد على الـ .value فستكون النتيجة هو رقم السورة من الحقل ID ولن تكون النتيجة مطابقة للرقم الاصلى للسورة لو تم حذف اى سجل واعادة تكرار ادخال بيانات لان الـ ID هنا ترقيم تلقائى وكان من الاولى اضافة حقل لرقم السورة كما هو مطابق لها فى الترتيب بالمصحف الشريف حتى بظل ثابت ولا يتغير بتغيير رقم الـ ID فى حالة الحذف والإضافة لاى سبب ولكن اثراء للأفكار يمكن الاعتماد على الرقم كذلك ان اردت باستخدام الـ .value من خلال استخدام الكود الأتى Select Case Nz(Combo2, "") Case Is = "": Me.Combo6 = "" Case Is = 8: Me.Combo6 = "" Case Else: Me.Combo6 = "بسم الله الرحمن الرحيم" End Select ولانى لا احبذ ولا احب استخدام الاحرف العربية داخل محرر الأكواد Select Case Nz(Combo2, "") Case Is = "": Me.Combo6 = "" Case Is = 8: Me.Combo6 = "" Case Else: Me.Combo6 = ChrW("1576") & ChrW("1587") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1604") & ChrW("1607") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1581") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1581") & ChrW("1610") & ChrW("1605") End Select

السلام عليكم ورحمة الله وبركاته مشاركة مع احبائى واساتذتى الكرام و اثراء للموضوع برجاء مشاهدة هذه المشاركة

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

يمكنك الوقوف عند حدوث خطأ ما الحصزل على رقم الرسالة من الكود الاتى Private Sub Form_Error(DataErr As Integer, Response As Integer) MsgBox DataErr MsgBox DataErr & vbCrLf & Err.Description Response = acDataErrContinue End Sub ولتسجيل الاخطأء ان اردت ولتغير محتوى نص رسائل الاكسس الافتراضية يمكنك الاطلاع على هذا الموضوع مبدئيا وبعد ذلك ارجع لطلب المساعدة ان تعذر عليكم قهم شئ او التطبيق بمرفق لقاعدة البيانات بعد محاولتك تجربة التطبيق

اتفضل الحل فى الاستعلام ملاحظة الرقم 3 فى Space(3) هو عدد المسافات يمكن تغييره لما تريد Test.accdb

واثراء للموضوع هذه افكارى المتواضعة working days.accdb

ممكن مرفق حضرتك بعد التعديل