ابوخليل

ارفق مثالك غلما ان الدالة NZ تقوم بتحويل القيم الفرغة الى صفر

الافكار متعددة في الفورم في مثالك يتم عرض الكتب حسب الصف وانا اعتبر هذا للاستئناس ...وقد ادهشتني روعة الجمل البرمجية المصاحبة المهم في العملية حسب ما ارى : كيف يتم التوزيع ( استلام او تسليم ) 1- هل يتم على مستوى طالب طالب 1- ام يتم ادخال بيانات الصف دفعة واحدة ( يمكن عرض منسدلة او قائمة بجميع أسماء الصف ويتم التأشير على الكل ، او استثناء اسم او اسماء محددة ثم التسديد ) التسديد عبارة عن خانة نعم/لا + حقل التاريخ امام كل مادة لكل طالب ارى ان هذه ايسر طريقة وتختصر الجهد والوقت حسب الفقرة 1 : يتم عمل مربع تحرير يتم اختيار الطالب منه ( وبمعلومية الصف والمواد المسندة للصف يتم التسديد) اما حسب الفقرة 2 : مربع التحرير يتم فيه اختيار الصف لتظهر اسماء الطلاب في المنسدلة او القائمة المذكورة آمل ان تضيف لك هذه الافكار شيئا ولو قليلا مما يجول في خاطرك واعتذر عن المثال لأني اتحاور مع شاب محترف افضل مني في تطبيق الافكار فالكتاب ينبىء عن كاتبه

ليه يا شيخ راجعت البرنامج .. يعمل على اكمل وجه

نعم ممكن انظر التعديل في اول مشاركة من الموضوع المرفق : sendwatsWebAll.mdb حيث جمعت فيه الطرق الثلاث .. وحتى يكون اقرب للباحث النموذج المعدل : SendWhatsMoreMsg

عليكم السلام من الافكار : نضع جدول جديد رأس للمواد يحمل اسم الصف ، بحيث يمكن تسليم واستلام الكتب جملة مع اتاحة امكانية عرض التفاصيل لالغاء تسليم او استلام كتاب معين

تم دمج الموضوعين تفضل AVIrep2.rar

عليكم السلام البرنامج يرى المربعات كنص وليس رقم استخدم الدالة int قبل كل حقل مثال : int([text1])+int([text2])

نعم يوجد مشكلة ... قوقل درايف للاسف لا يدعم العمل المباشر فقط يمكنك مزامنة قاعدة بياناتك الموجودة على الحاسب مع القاعدة المحفوظة على درايف

عليكم السلام هل يمكن لأكثر من مستخدم يملك نسخة من ملف النماذج الدخول وإضافة السجلات والتعديل في نفس الوقت اذا النموذج غير منضم للجدول نعم ، واذا منضم يظهر للمستخدم الآخر ان السجل قيد التحرير هل التعامل مع الجداول عن بعد سلس بغض النظر عن سرعة الاتصال نعم هل سيصبح النظام ثقيل أو بطيء مع الوقت وعند زيادة عدد السجلات ممكن اذا لم يتم البناء على الطرق العلمية الصحيحة هذا من واقع تجربتي وسيفيدك اخوتك الخبراء والاعضاء من واقع تجربتهم وخبرتهم

بالفعل نحن نستخدم استعلام الحاق .. ونستدعيه بالدالة RunSQL DoCmd.RunSQL "INSERT INTO customer_account_sub ( Date1, Invoice_No, Invoice_Value ) " & vbCrLf & _ "SELECT Sales_Invoice_main_AHMED_profits.sales_Invoice_date, Sales_Invoice_main_AHMED_profits.Sales_Invoice_No, Sales_Invoice_main_AHMED_profits.net_sell_after_vat " & vbCrLf & _ "FROM Sales_Invoice_main_AHMED_profits " & vbCrLf & _ "WHERE (((Sales_Invoice_main_AHMED_profits.sales_Invoice_date) Between [Forms]![AHMED_account_$]![customer_account_main_Query_AHMED_dollar]![Date3_from] And [Forms]![AHMED_account_$]![customer_account_main_Query_AHMED_dollar]![Date3_To]))" فلو قمنا بنسخ هذا ولصقه في استعلام فارغ .. وازلنا عنه بعض العبارات الزائدة مثل " & vbCrLf & _ وكذلك ازلنا الامر DoCmd.RunSQL في اول الجملة وايضا علامات التنصيص لحصلنا على استعلام الحاق الذي نحن نعرفه .

كما تفضلت مشكلته في تعيين اللغة ، اعتقد انه يستخدم الفرنسية

تفضل شغل الزر الف مرة لن ينسخ الا سجل جديد غير موجود حتى لو كان ضمن مجموعة سوف ينسخه هو فقط السر : انظر في تصميم الجدول Database new4.rar

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

تفضل هنا يتم تحويل التقرير الى ملف pdf ويتم ارساله sendwatsWeb3.rar

الله يكون في عونك كل مشاكلك من التسميات الخاطئة مثل : تسمية حقل بـــــ Date وهي اشهر دالة في اكسس ترك فراغات في تسمية العناصر .. وادخال رموز منفردة في التسمية مثل $ ايضا تشابه التسميات فما تستطيع التفريق هل الاسم هذا لجدول او استعلام او نموذج اتمنى ان تتقدم الى الافضل مستقبلا .. ( حاول ان تستمتع وانت تعمل ) تم تعديل المثال وتحقيق طلبك Database new3.rar

جاري العمل ...

لما افتح المرفق اعرف مستوى صاحبه وهل هو يجتهد لعمل الأفضل ام لا .. بكذا يتحدد نشاطي للرد من عدمه ومرفقك يدل على مبرمج متعلم ويطبق ما تعلمه صح انا اوافقك القول يجتهد الانسان في الاول ومع الوقت تنفتح له ابواب لم يأخذها في الحسبان عند بدء التصميم على كل حال يا ليت تكتب لي : اسم الجدول المنسوخ منه واسماء الحقول ( الاسم وليس التسمية) اسم الجدول المنقول اليه واسماء الحقول ( الاسم وليس التسمية) وهل النموذج customer_account_main Query AHMED dollar هو الذي سنعمل عليه

وعليكم السلام الطلب مكرر لموضوع سابق .. وهذا دليل انك لم تجد الحل الشافي الذي ترغب به حقيقة وخذها مني بصدر رحب .. لاني هنا معلم ، واهتم ببناء الاساسات والتعامل معها على الاسس العلمية الصحيحة لهذا لا احرص على التعديل على امثلة ومرفقات تكون فكرتها غير صحية برمجيا ، واذا حصل وعدلت فاني احرص على تنبيه السائل ليحسن مستواه ستجد بعد كلامي هذا من يحقق طلبك .. لأن البرمجة لا يعجزها شيء حتى لو كانت الفكرة خاطئة . المعلومة التي اريد ايصالها : 1- يخطىء الكثير عندما يتعرضون للبيانات التي تم رصدها في قاعدة البيانات .. في عمليات النقل والحذف والتحرير بين الجداول . يمنع منعا باتا التعرض لهذه البيانات الا في حدود ضيقة جدا .. ويتعامل معها بمنتهى الحذر خاصة البيانات المالية على سبيل المثال : من يقوم في نهاية السنة المالية بنقل حسابات العام المنصرم لجدول جديد تمهيدا لفتح نسخة جديدة .. وهذا خطأ فادح ولا يمت للبرمجة بصلة .. والنهج الصحيح الآمن ان يتم اخذ نسخة احتياطية وحفظها في مكان آمن . نأتي لموضوعك : الاستعلامات والجداول وجهان لعملة واحدة بل ان الاستعلامات اكثر مرونة وهذا معلوم للجميع ما تريد ان تعمله من نقل الارباح الى جدول آخر .. الاستعلام يقوم به على اكمل وجه ، ويمكنك عرضه من خلال التقارير او النماذج وهنا تكون حافظت على قوة برنامجك لأن المعلومه او القيمة سيكون مصدرها مكان واحد فقط

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

تفضل علما ان حقول القيمة لديك نصية ، والمقارنة باكبر من او اصغر يجب ان تكون الحقول رقمية تم عمل متغير رقمي يمثل القيمة النصية Dim i, ii As Integer i = Nz(DLookup("[estelak]", "[OLD_BASIC_DATE]", "[crn] ='" & [Forms]![BASIC_DATE]![address] & "'"), 0) ii = Me.ADD_NO If ii < i Then Beep If MsgBox("الإستهلاك الذى تريد تسجيله حالياً أقل من الإستهلاك السابق هل تريد إضافة القيمة؟", _ vbQuestion + vbYesNo, _ "تننبيه") = vbYes Then Exit Sub Else Undo Exit Sub End If End If New Microsoft Access Database2.accdb

تفضل القاعدة2.rar

[تاريخ التسليم]=date()

ما شاء الله .. اصبح الموضوع مرجع مناسب ، ايضا العنوان مناسب

اخي استعمل البحث فالمنتدى مليء بمثل هذه المواضيع تفضل انظر هنا