ابو جودي

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

السلام عليكم ورحمة الله تعالى وبركاته من فضل اساتذى الكرام انا فى مشكلة كبيرة جدا فى عملى بسبب هذا الصدد اسأل الله تعالى ان يهديكم ويهدينى تكمن مشكلتى فى جلب البيانات من مربع متعدد القيم المرفق الاتى قى النموذج الموجود اريد ان يعطينى زر الامر النتيجة المرجوة فى رسالة او فى الـ 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

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

هذا فى الاساس استعلام وهذا الكود هو بناء الاستعلام SQL

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

استاذى الجليل اليكم التطبيق Ceiling function (2).mdb

ههههههههه طب ع الاقل جرب قبل لا تضع الرد

فقط لاضافاء المرونة ممكن استخدام الروتين بهذا الشكل ليسهل التقريب الى الرقم المطلوب فى حالة غيير الرقم Function myRound(ByVal Num As Double, Optional ByVal Factor As Double = 1) As Double Dim Frac As Double Num = Num / Factor Frac = Num - Int(Num) Frac = IIf(Frac = 0, 0, IIf(Frac > 0.5, Factor, Factor)) myRound = Int(Num) * Factor + Frac End Function على ان يتم استدعاء الوتين من خلال myRound([SourceNumber],variableOfFixedNumber)

اتفضل يا سيدى اولا قم بعمل وحدة نمطية وضع بها الاكواد الاتية Public Function Ceiling(ByVal X As Double, Optional ByVal Factor As Double = 1) As Double ' X is the value you want to round ' is the multiple to which you want to round Ceiling = (Int(X / Factor) - (X / Factor - Int(X / Factor) > 0)) * Factor End Function Public Function Floor(ByVal X As Double, Optional ByVal Factor As Double = 1) As Double ' X is the value you want to round ' is the multiple to which you want to round Floor = Int(X / Factor) * Factor End Function استدعاء الدالة كالاتى Ceiling([SourceNumber],variableOfFixedNumber) التقريب الى الرقم الصحيح 5 يمكنك تغسييره الى ما تريد وليكن 10 او 20 او اى عدد تريده -------- الطريقة الثانية ولكن لن تستطيع تغيير الرقم الذى تريد التقريب اليه استخدم الكود الاتى مباشرة Int(-0.2*[SourceNumber])/-0.2

ممكن اعرف تحديدا مقصدك هل تقصد المرفق الذى اضفته ام المرفق يعمل بنجاح ولكن عند محاكاته على تطبيق لم تعمل الاكواد بنجاح ؟!

السلام عليكم ورحمة الله تعالى وبركاته اعتذر عن التأخير انشاء الله اليكم المرفق المبدئى يعمل بنجاح ولى عودة قريبا QRByColor.zip

ابشر ان شاء الله جارى العمل على اعداد قاعدة البيانات كما تريد

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