Eng.Qassim

بكل بساطة ..عملت زر تعديل يقوم بتشغيل استعلام الحذف ..وحسب رقم القائمة وليس العميل جمعية.rar

فكرة على السريع .. في GO_Click تحتاج الى استعلام حذف مبني على رقم الفاتورة ورقم العميل ولان الفاتورة ليس بها رقم .. وربما العميل لديه عدد من السلف ..فأستعلام الحذف سوف يحذف الجميع ..والامور كلها ب تبوز اعمل رقم متسلسل للفواتير ...حتى تعمل استعلام حذف برقم الفاتورة ورقم العميل تلحقها الاكواد الموجودة في GO_Click لم اجربها لوقتي الضيق ...لكن حاول استاذ ابو عبد الرحمن

انت في صفحة الاب والام ..وانا قلت لك ان تغير بأسماء الحقول [txtQawmi] يصبح [txtQawmi2]

ان فهمت سؤالك ..انسخ الكود التالي في حقل الرقم القومي للابن في حدث قبل التحديث وطبقه مع بقية حقول الرقم القومي للاب والام ..مع تغيير اسماء الحقول If Nz(DCount("Qawmi", "tbl_Sons", "[txtQawmi]= [Qawmi]"), 0) = 0 Then Else MsgBox "الرقم مسجل من قبل.." Me.Undo DoCmd.CancelEvent End If If Nz(DCount("Qawmi", "Show_Familys", "[txtQawmi]= [Qawmi]"), 0) = 0 Then Else MsgBox "الرقم مسجل من قبل.." Me.Undo DoCmd.CancelEvent End If If Nz(DCount("Qawmi2", "Show_Familys", "[txtQawmi]= [Qawmi2]"), 0) = 0 Then Else MsgBox "الرقم مسجل من قبل.." Me.Undo DoCmd.CancelEvent End If

لاتحتاج لوضع المجموع في الجدول الاساسي انظر للمثال مجموع المبيعات.rar

تفضل التعديل Felter.rar

اضافة لما تفضل به اخينا @شايب لاجبار النموذج في مكان معين استخدم هذا في حدث عن التحميل DoCmd.MoveSize Left, Top, Width, Height

بالنسبة للحقل test تقوم الدالة الشرطية بأختبار قيمة الحقل bage ..اذا كانت قيمته =0 تعطينا الرقم 3 الذي يشير الى ثيمة زر خيار (الذين ليس عليهم ديون)...واذا كانت قيمة bage اكبر من 0 فأن الدالة الشرطية تعطينا الرقم 2 الذي يشير الى زر خيار (الذين عليهم دين) الان احتجنا الى حقل اخر test1 والتي تقوم الدالة الشرطية بأعطاءنا القيمة 1 للجميع والتي تساوي قيمة زر خيار (اختيار الجميع) سواء كانت قيمة الحقل bage يساوي 0 او اكبر من 0

اخونا @شايب مبدع جدا وأفكاره جميلة

أضفت حقل اضافي للاستعلام ليجعل الجميع نفس القيمة Aziz5.rar

اجعل مصدر الصف للكومبوبوكس هكذا SELECT item.Item_Name FROM item ORDER BY item.Item_Name; لان القديم يخص حقلين وامسح ال 0 من Default value

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

اخي او ولدي العزيز ...الجداول هي قاعدة بيانات لحفظ جميع العمليات من بيع وشراء يمكنك مثلا ان يقوم العد للفواتير من البداية لكل بداية سنة في نفس الجداول قاعدة بيانات اكسس تتحمل 2 كيكا ...لكن اهم شيء هو عدم تحميل الجداول الاساسية بالاسماء وانما بالارقام ..يعني مثلا في فاتورة البيع يكون اسم الصنف رقم

هو لم يعمل مفتاح رئيس رقم متسلسل ولهذا لجأت الى تغيير التعريف في الكود الى نص اعمل مفتاح اساسي برقم متسلسل فأنا لم أشأ التغيير في جدولك ثم اتبع نفس الطريقة الموجودة في المثال

السلام عليكم .. عملتلك نفس المثال الذي ارفقته يبقى عليك التحسينات لو انك عامل رقم تسلسلي للاصناف كان افضل Database3.rar

عن اي برنامج تتحدث ؟ البرنامج الذي ارفقته مفتوح المصدر وهو مفيد وجميل جدا ويلبي غايتك

عذرا لم انتبه لمشاركة الاستاذ ابو خليل الاخيرة...الذي ادرج فيه رقم السند وتأريخه

اضافة لما تفضل به استاذي @ابوخليل يمكن عمل استعلام ثاني برقم السند وتاريخة ونعمل تجميع له بأسم ولي الامر ..ونضع تحت رقم السند والتاريخ Max نربط الاستعلامين حسب ولي الامر ..ليظهر لنا اخر تاريخ ورقم سنده مع المعطيات الاخرى

لان عمل مربع التحرير يختلف عن عمل مربع النص يمكنك اضافة مربع نص تحت كل مربع تحرير لتسهل عليك الامور

بصراحة لم انتبه للجداول ..الا فيما يخص السؤال يفترض ان يكون هناك جدول للاصناف ..ويمكن اضافة اي صنف غير موجود عن طريق زر في قائمة المبيعات او المشتريات يفتح نموذج الاصناف

وعليكم السلام تفضل التعديل Database5.rar

وعليكم السلام لقد عرفت متغير Dim str As String ثم تستدعيه وكأنه مربع نص او مربع تحرير في النموذج Me.str الافضل ان ترفع الملف استاذ جمال

وعليكم السلام.. المفروض ان تفتح موضوع جديد وتسأل ما تشاء...ثانيا ..نصيحة ان لا تستخدم مسميات الاكسس مثل Name انزل الحقلين ..واجعل عدد الحقول 2...الاكسس يقرأ العمود الاول 0 والعمود الثاني 1 وهكذا الحقول لديك نص فيجب ان تضع المعيار بين علامتي تنصيص ..هكذا Private Sub sName_AfterUpdate() Me.No_Pro = DLookup("[No_Pro]", "projects", "[No_Pro]='" & Me.sName.Column(1) & "'") End Sub

اعمل backup لاي برنامج لتجاوز تلك المشاكل

جرب ان تذهب الى محرر الاكواد ومن القائمة tools>>references ارفع خيار الصح على كلمة MISSING