ابوخليل

على قولهم : احسن اعلمك تصيد هذه القوائم خاصة بأكسس 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

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

؟؟

Private Sub Form_Open(Cancel As Integer) On Error Resume Next If InputBox("ادخل كلمة المرور") <> 123 Then Cancel = True End If End Sub

اكتب في عنصر تحكم الحقل =Dmax("txt1";"table1") أو =Dlast("txt1";"table1") اختر المناسب لبياناتك

وعليكم السلام العنوان يتحدث عن منع التكرار والكود المدرج هو لاظهار المكررات وهو صحيح ويعمل بشكل سليم

السلام عليكم شكرا للاخ الكريم ssm على الاجابة وجزاه الله خيرا اخونا الشاعر : يمكن عمل ما تريد يدويا او بالاستعانة بالكود البرمجي شريطة ان تكون خصيصة : توسيط تلقائي=لا اما يدويا فكما ذكر اخونا ssm ففي عرض التصميم اسحب النموذج في المكان المحدد الذي تريد ان يظهر فيه ثم احفظ اما الكود البرمجي فضع هذا السطر في حدث فتح النموذج Me.Move Left:=3000, Top:=6000 وغير في الارقام حسب رغبتك

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