ابوخليل

في هذه الحالة لا بد ان تستخدم الاستعلام الفرعي ويمكنك جلب هذه النتيجة من الاستعلام الرئيس في اي مكان من مشروعك بواسطة 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 وبين الحقول في الجدول ارتباط

التنبيه يكون كعنوان في الاطار هكذا MsgBox "الرقم موجود", , "تنبيه" ملحوظة : يوجد اختلاف في عرض ترتيب الجمل بسبب الحروف العربية ولكن عند لصقه في محرر الفيجوال سيعود لوضعه الصحيح

ضع هذا الكود في حدث بعد التحديث لحقل id في النموذج if DCount("*","tbl1","id=" & me.id)>0 then msgbox"الرقم موجود" undo exit sub end if باعتبار id هو حقل الرقم في الجدول و tbl1 هو الجدول

وعليكم السلام اخي ابو العقاب يوجد اكثر من طريقة وهذه احداها Private Sub a1_AfterUpdate() If a1 = -1 Then a2 = 0 a3 = 0 a4 = 0 End If End Sub Private Sub a2_AfterUpdate() If a2 = -1 Then a1 = 0 a3 = 0 a4 = 0 End If End Sub Private Sub a3_AfterUpdate() If a3 = -1 Then a1 = 0 a2 = 0 a4 = 0 End If End Sub Private Sub a4_AfterUpdate() If a4 = -1 Then a1 = 0 a2 = 0 a3 = 0 End If End Sub test2.rar

يمكن تطبيق مثل هذا في المخرجات (تقارير) اما ادخال البيانات فهذا ما يفترق به اكسس عن اكسل

؟؟