ابوخليل

في تايمر الفورم اعني عداد الوقت في النموذج اضبط الفاصل الزمني لعداد الوقت على اي شيء مثلا ثانية واحدة =1000 او حتى دقيقة 60000 ثم في حدث form_Timer اكتب مثل هذا : If Time() = #10:00:00 AM# Then Call myFunction End If مع الاخذ بالاعتبار ان النموذج يجب ان يكون مفتوحا في هذا الوقت وهذا يعني ان الكود سيكون في نموذج الواجهة الرئيسي

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

آمين ولك مثل ذلك

انظر التعديل ان كان يوافق طلبك فأكمل على النسق نفسه student8.rar

تفضل student7.rar

في هذه الحالة لا بد ان تستخدم الاستعلام الفرعي ويمكنك جلب هذه النتيجة من الاستعلام الرئيس في اي مكان من مشروعك بواسطة Dco sa4.rar

يمكن الحل باستخدام استعلام تجميعي او بتوظيف الدالة dcount وفي بعض الحالات نستخدمهما جميعا انظر ان كان الحل يفي بالمطلوب والا ارفع المثال بكمية مناسبة من البيانات sa3.rar

حول الملف على صيغة mdb

تم فصل الموضوع للفائدة الاخ السائل يطلب تحويل البيانات من عمودي الى افقي ؟ وليس فصل بيانات عمود الى اعمدة

احد الحلول لابقاء المؤشر داخل حقل معين : قم بإيقاف علامة الجدولة من جميع الحقول ما عدا حقل البحث خصائص الحقل /لسان التبويب : غير ذلك غير القيم في جميع حقول النموذج النشطة كالتالي : ايقاف علامة الجدولة =لا اما حقل البحث فاجعله : ايقاف علامة الجدولة =نعم فهرس علامة الجدولة = صفر

على قولهم : احسن اعلمك تصيد هذه القوائم خاصة بأكسس 2003 الاصدارات الاحدث تعمل بطريقة اخرى ابحث عن قوائم 2007

لا عبقير ولا عبقور فقد نقلت لك الحل من الامثلة السابقة Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) AccessTotalsExpr2 = 0 End Sub في الكود اعلاه وفي رأس الصفحة جعلنا قيمة حقل الجمع تساوي صفر حتى نقطع الصلة مع الصفحة السابقة ونبدأ من جديد Private Sub ÊÝÕíá_Print(Cancel As Integer, PrintCount As Integer) AccessTotalsExpr2 = AccessTotalsExpr2 + Expr2 End Sub وفي مقطع التفصيل جعلنا حقل المجموع = حقل المجموع نفسه + السعر لا حظ ان الجمع سيكون تراكميا بعدد حقول السعر فلو فرضنا ان قيم حقول السعر هي 1 ، 2 ، 3 ، 4.... هكذا ففي الحقل الاول ستكون القيمة = صفر+1 =1 والثاني = 1+ 2=3 والثالث= 3+3=6 والرابع = 6+4=10 وهكذا ....... فآخر عملية هي القيمة النهائية لمجموع الصفحة آمل اني قد بينت ووضحت بعض الاشكالات التي لديك

اما ان اردت الادخال المستمر عبر القارىء بدون تدخل منك فيجب ان تستخدم حدث بعد التحديث اجعل السطرين التاليين في آخر الحدث Private Sub text1_AfterUpdate() ' ' ' ' ' text1 = "" text1.SetFocus End Sub

هل تعني مثل هذا ؟ sa22.rar

تفضل sa2.rar

عذرا اخي حسين جهازي لا يفتح الا صيغة mdb

كلا المرفقين الذين تفضل بهما ابو آلاء يشتملان على مطلوبك المرفق الاول يبين طريقة جمع 1-كل صفحة على حدة 2- ما سبق 3- المجموع الكلي

جرب طريقة مرور الماوس فوق الحقل Private Sub text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) text1.SetFocus End Sub

لا يوجد جداول الاحسن ارفاق مثال من عملك

اقصد بــ fldName اسم الحقل الموجود لديك وعلى هذا يكون الكود هكذا text1.SetFocus ولكن عند تنفيذ الكود بطريقتك فلن يظلل كامل الحقل انظر المثال المرفق db2.rar

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

http://www.officena.net/ib/index.php?showtopic=57493#entry365472 http://www.officena.net/ib/index.php?showtopic=41521#entry235265

fldName.SetFocus

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

صحيح هو احد الحلول ولكن ليس بين الـ Option Group وبين الحقول في الجدول ارتباط