nt: IIf(([q4]<0)+([s4]<0)+([ar4]<0)+([e4]<0)+([r4]<0)+([ol4]<0)+([g4]<0);"غائب";IIf(([qm]>=50)*([sm]>=50)*([arm]>=50)*IIf([safno]=6;[em]=0;([em]>=50))*([rm]>=50)*([olm]>=50)*([gm]>=50);"ناجح";"راسب"))
اخي الكريم غير الكود على الكود الاعلى
وعليكم السلام و رحمة الله و بركاته
الصق الدالة في حقل Days no او في اي حقل جديد آخر في استعلام
Days No: IIf(Not IsNull([back date]) Or [back date]<>"",DateDiff("d",[rented date],[back date]),DateDiff("d",[rented date],[Expected Date]))
السلام عليكم ورحمة الله وبركاته
عذراً للمداخلة
يبدو الأخ ابو خليل لم ينتبه الى سطر الاول في الكود وأشر فيه الى نماذج بدل تقارير و هو يقصد كتابته كالآتي:
Do While Reports.Count > 0
DoCmd.Close acReport, Reports(0).Name
Loop
نعم أخي ممكن ان شاء الله و بعد خطوات بسيطة
1)تغير تنسيق الحقل من رقم الى النص
2)تغير بسيط في الكود من Dim pass as intiger الى Dim pass as string
3)جعل خاصية قناع ادخال حقل الى "كلمة المرور" او Password
و المثال المعدل في المرفقات:
collge2.rar
السلام عليكم و رحمة الله و بركاته
التعديل في المرفقات
بالاضافة وحدة النمطية تم تغير تنسيق حقل DateOfpaid في الجدول و الاستعلام و النموذج الى تاريخ قصير لان للدفع المبلغ أكثر من قيمة مربع (البلغ المستحق) يتم ترحيل الى الشهر التالى بالايام و الساعات والدقائق . وذالك لعرض تاريخ فقط, و لاعادة عرض ساعات و الدقائق قم بالمسح تنسيق .
Database1.rar
بارك الله فيك أخي أبو آدم على المثال أكثر من الرائع
منذ فترة بناءً على الطلب احد إخوان صممت مربع تحرير و السرد على الفكرة مشابهة
يتم تصفية حسب كتابة أي جزء من عناصر القائمة (مثل القوقل)
ننتظر رايك و راي باقي اخوان في المنتدى
ComboBox.rar
السلام عليكم ورحمة الله و بركاته
أخي ابو ايمن :
حول سؤالك في مشاركة رقم 18 تكتب الكود بهذالشكل
str = ("insert into logaction(username) values ('" & uname & "','" & utime & "')")
بالاضافة مثال اخونا ابوآدم بالنفس طريقة بدون Chr(34), في المرفقات:
NA_SQLVariable_UP.rar
السلام علسكم و رحمة الله و بركاته
اخي ابو خليل تحية لك
لا اختلاف جوهري بين المثالين حتى بعد ارفاق الملف وبعد اطلاع على المشاركة الثانية استغربت على تشابه حتى بالاسم
ولكن بعد اطلاع على اسماء متغيرات و وجود استعلام عرفت انه ليس ملفي .وقمت بالحذف المشاركة
والان غيرت بعض اكواد و المثال الى من يهمه الامر:
ملاحظة:
في حالة فراغ مرع "تاريخ تعين" و"تاريخ نهاية" يرجع تاريخ اليوم
في حالة تاريخ تعين اكبر من تاريخ النهاية، رسالة في مربعات يوم،شهر،سنة
datework3.zip
تم اضافة حقل جديد بإسم "نوع التحويل"(مربع تحرير والسرد)
عليك اختيار نوع التحويل, قطن او غير قطن،سترى النتيجة حسب وزن المواد،اختيار سجلات حاليه هو غير قطن
DDDB.zip