الى الجميع
تم تصميم برنامج لخزن ايداع او خزن امانات
تم تصميم نموذج من استعلام بشكل محدد
برجاء المساعدة فى عمل كمبو بوكس يتم استعراض ارقام الخزن و اسماء العملاء للخزن المؤجرة
و بالاختيارة منه لرقم الخزنه يتم عرض جميع بيانات الخزنة
مع الشكر
طلب كمبوبوكس داخل نموذج لعرض بيانات
اخي الفاضل
اين اسماء العملاء وفي اي جدول موجودين
الاخ العزيز ابو شادى
لايوجد جدول للعملاء
تاسيسا على ان رقم الخزنة box_no ثابتا عدديا برقم مسلسل و حجم و قيمة ايجارية
و اسم العميل متغير مع رقم العقد و رقم الخزنة
اتمنى ان اكون اوضحت و منتظرك
و اخيرا اشكرك على سرعة الاستجابة
اخوك امين يوسف
اذا لم تخطط للنجاح , فقد خططت للفشل
وعليكــم السـلام ورحمة الله وبركاتـه..
تفضل اخي امين
واي استفسار نحن في الخدمة
بالتوفيق
الا خ يوسف احمد
اشكرك يا معلم بجد
برجاء الايضاح حتى تعم الفائدة
اخوك امين يوسف
اذا لم تخطط للنجاح , فقد خططت للفشل
مرحباً بك اخي امين ولا شكر على واجب
الشرح:
1: تم عمل مربع تحرير وسرد اسمه Combo1 يتكون من عمودين العمود الاول هو رقم الخزينة BOX_NO والعمود الثاني هو اسم العميل CUST ( بواسطة منشئ الاستعلام ) ومصدره الجدول Contrac .... العمود الاول هو المرتبط بمربع التحرير والسرد ولكن بالتحكم بخصائصه يتم عرض العمودين.
2: عند الفتح النموذج نريد ان يكون مربع التحرير والسرد فارغ لذا تم وضع الكود ادناه بحدث عند الفتح للنموذج
Me.Combo1 = ""
3: في حدث بعد التحديث لمربع التحرير والسرد تم وضع الكود ادناه
Me.Filter = "[BOX_NO] = forms!contrac!combo1" Me.FilterOn = True If IsNull(Me.BOX_NO) Then MsgBox "عفواً لا يوجد سجل مطابق" Me.Combo1.Value = "" End If
شرح الكود:
السطر الاول : يتم تحديد الخاصية Filter حيث يتم تصفية النموذج بناءً على حقل رقم الخزينة ( BOX_NO ) المطابق لرقم الخزينة المعروض بمربع التحرير والسرد على النموذج
السطر الثاني : تشغيل عامل التصفية للنموذج
السطر الثالث : بعد عملية التحديث لمربع التحرير والسرد ( بعد الاختيار ) نظهر رسالة في حالة كانت قيمة حقل رقم الخزينة ( بمصدر النموذج ) تساوي قيمة خالية Null ... للتوضيح : في عمليات البحث نحتاج دائماً عند عدم وجود قيمة للبحث ان نعلم المستخدم بأنه ليس هناك نتائج للبحث لذا تم التأكد من ذلك بإستخدام الدالة IsNull ( التأكد يكون بواسطة الجملة الشرطية If )
السطر الرابع :اذا كانت قيمة حقل رقم الخزينة فارغ اذاً تظهر رسالة تفيد بعدم وجود سجل مطابق ( الرسالة بسيطة جداً يمكنك تحسينها )
السطر الخامس : عند عدم التطابق وبعد الرسالة يتم تفريغ مربع التحرير والسرد من القيمة المدخلة والغير مطابقة
السطر السادس : انهاء الجملة الشرطية If
4: تم عمل زر امر يقوم بإلغاء عامل التصفية للنموذج ( الغاء البحث ) وتفريغ مربع التحرير والسرد وذلك في حدث عند النقر لزر الامر كالتالي :
Me.FilterOn = False Me.Combo1 = ""
ملاحظة : يمكن ان يكتب السطر الثاني هكذا
Me.Combo1.Value=""
ولكن عادة ما تكون الخاصية Value هي الخاصية الإفتراضية ... ولك الاختيار
--------------------------------------------------------------------------- انتهى
ارجو ان يكون الشرح واضحاً اخي امين
بالتوفيق
الاخ العزيز يوسف احمد
نكمل حوارنا السابق و لكن فى الجديد جدا
تعلم ان الايجار سنوى و تاريخ استحقاق الايجار السنوى التالى هو بعد سنه ناقص يوم من تاريخ بداية الايجار
و السنوات التالية تأخذ نفس تاريخ الاستحقاق الاول بالاضافة الى عام كامل
مثال
تاريخ الايجار = 23-11-2008
تاريخ الايجار المستحق التالى =22-11-2009
تاريخ الايجار المستحق السنه التالية =22-11-2010
عذرا اتمنى سعه صدرك
المطلوب
عند اثبات تاريخ الايجار يظهر فى كشف حساب الخزنية تاريخ الاستحقاق التالى على النحو السابق
و عند السداد يظهر الاستحقاق التالى بعدة على التوالى
المرفق
اشكرك على تواصلك
امين يوسف
اذا لم تخطط للنجاح , فقد خططت للفشل
اخي امين
يشرفني ذلك ولكن الجديد هذه المرة ليس له علاقة بعنوان المشاركة وهذا لا يساعد في عملية البحث .
الرجاء وضع هذا السؤال في مشاركة مستقلة ليتمكن الجميع من المساهمة في الحل
مع جزيل الشكر والتقدير لك لتعاونك معنا