اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

د.كاف يار

الخبراء
  • Posts

    1,681
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    60

كل منشورات العضو د.كاف يار

  1. من الواضح بأن الكود في حدث عند التغيير اخي الكريم يجب عليك توضيح طريقة نقل الكود بالتحديد لكي يتم تحديد موقع الخلل
  2. لإنشاء مفتاح اساسي استخدم الكود التالي DoCmd.RunSQL "ALTER TABLE [mowadfen_check] ADD CONSTRAINT PK_Person PRIMARY KEY ([الرقمالوظيفي], [التاريخ]) لإلغاء المفتاح الأساسي استخدم الكود التالي DoCmd.RunSQL "ALTER TABLE [mowadfen_check] DROP CONSTRAINT PK_Person"
  3. كل طلباتك منطقية لكن الشي الوحيد و الذي ليس منطقيا تصميم الجدول يجب ان يكون لديك سجل خاص بالتحصيل و الحركات المالية و سجل خاص بالموظفين مثل هذه الافكار يجب ان يكون بناء منطقيا حتى نقطة زيادة حجم قاعدة البيانات ليس منها اي قلق فهي معدة لمثل هذه الأعمال ابدء ببناء جداولك و انشئ العلاقات بين الجداول بصورة سليمة و يمكن الاستعان بالدورات تجدها في اليوتيوب و ستسفيد منها جدا في بناء قاعدة البيانات بصورة سليمة و صحيحة
  4. اعطيتك اجابة على سؤالك التعديل الذي اجريته فقط داخل التقرير لكن بعد الاطلاع على ملفك وجدت انه لديك مشكلة في العلاقات يجب عليك ان تراجع العلاقات افتح سؤال جديد و بإذن الله الأخوان ما راح يقصروا معك
  5. قم وضع هذه الشفرة في الاستعلام DCount("*"; "[GazaKind]";"[GazaName]=" & [Forms]![Frm_Gaza][GazaName] ) DCount =====> تعني التجميع بشرط DCount("*"; =====> تعني عدد السجلات DCount("*"; "[GazaKind]" =======> مصدر الجمع DCount("*"; "[GazaKind]";"[GazaName]=" & =====> المعيار و ما يقابله في النموذج او التقرير او الاستعلام سيتم حساب عدد الجزاءات لكل موظف بناء على اسم الموظف و يمكن التغيير الى رقم الموظف الموضوع بسيط جدا
  6. تفضل هذه الفكرة بناء جدول تلقائي من خلال الكود بناء على بيانات الجدول test.accdb
  7. نعم اخي الكريم بإمكان فعل ذلك ضع مثالك و الموقع الذي ترغب التحميل منه و ستجد المساعدة بإذن الله
  8. تفضل هذه المحاولة حسب فهمي لطلبك WindowsApplication1.zip
  9. فقط عدل المحدد الى sub تفضل التعديل انشاء استعلام الحاقي و نقل البيانات من جدول الى جدول.accdb
  10. تفضل هذا التعديل بعض التحسينات تغيير اسلوب ارسال البيانات الى ملف الورد لتصبح اسهل في التحكم كذلك حفظ الملف بصيغة PDF و بإسم المشتري عقود.zip
  11. جميع ما تحتاجه موجود في اجابة @Eng.Qassim اجابة و اقتراح من سطر واحد تغنييك عن تكرار الجداول عديمة الفائدة بإختصار قم بإضافة عمود جديد لتحديد حالة الطالب ( مستمر - منقطع - مفصول - موقوف - ........... الخ ) تعلم انشاء مثل هذه الاستعلامات بطريقة احترافية تسهل عليك العمل دوماً جرب استخدم الكود التالي في عمليات ( الإضافة - التحديث - الحذف - الاستعلام ) لإضافة بيانات جديدة للجدول استخدم الكود التالي On Error GoTo errorhandle Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("ضع هنا اسم الجدول") rs.AddNew rs.Fields("اسم العمود 1").Value = "القيمة1" rs.Fields("اسم العمود 2").Value = "القيمة2" rs.Fields("اسم العمود 3").Value = "القيمة3" rs.Update MsgBox "تم اضافة البيانات بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" errorhandleexit: Exit Function errorhandle: MsgBox Err.Description Resume errorhandleexit و لتحديث سجل محدد استخدم الكود التالي On Error GoTo errorhandle Dim rs As DAO.Recordset, SerTb As String, SetCoulmin As String, SetValue As String SerTb = "ضع هنا اسم الجدول" SetCoulmin = "اسم العمود في الجدول الذي يحتوي على المفتاح الرئيسي" SetValue = "حقل العيار الذي يحتوي على المفتاح الرئيسي في النموذج" Set rs = CurrentDb.OpenRecordset("SELECT * FROM " & SerTb & " where [" & SetCoulmin & "] Like '" & SetValue & "'") rs.Edit rs.Fields("اسم العمود 1").Value = "القيمة1" rs.Fields("اسم العمود 2").Value = "القيمة2" rs.Fields("اسم العمود 3").Value = "القيمة3" rs.Update MsgBox "تم تحديث البيانات بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" errorhandleexit: Exit Function errorhandle: MsgBox Err.Description Resume errorhandleexit و لحذف حقل استخدم الكود التالي On Error GoTo errorhandle Dim rs As DAO.Recordset, SerTb As String, SetCoulmin As String, SetValue As String SerTb = "ضع هنا اسم الجدول" SetCoulmin = "اسم العمود في الجدول الذي يحتوي على المفتاح الرئيسي" SetValue = "حقل العيار الذي يحتوي على المفتاح الرئيسي في النموذج" Set rs = CurrentDb.OpenRecordset("SELECT * FROM " & SerTb & " where [" & SetCoulmin & "] Like '" & SetValue & "'") rs.Delete MsgBox "تم حذف السجل بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit
  12. احسنت فعلا طريقتك صحيحة شكرا على تعقيبك الجميل و المميز العفو استاذي الكبير عبداللطيف فهذا فضل الله عز وجل
  13. اعجبني الموضوع و حبيت اقدر مشاركة بسيطة اذا كان تاريخ شهر القرض اكبر من الشهر الحالي و لم يتم السداد يكون باللون الأحمر اذا كان شهر السداد مساوي للشهر الحالي و لم يتم السداد يكون اللون الأصفر و في باقي الحالات يكون اللون الأبيض هدية مجانية - قروض بنكية.zip
  14. التعديل في تقرير جديد تم تقسم التقرير الى جزين الجزء الثاني داخل الجزء الأول مرتبط بالإسم عند البحث عرض التقرير مرفق الملف بعد التعديل اجازات الضباط_1.1.zip
  15. تفضل هذا التعديل اجازات الضباط1 - Copy.zip
  16. للأسف مع الاكسس لا sql server ممتاز مع لغات اخرى غير الاكسس و تقدر تجرب و بشكل مجاني من خلال سيرفر SOMEE - انشئ حساب جديد - انشئ قاعدة بيانات جديدة - اضف جدول جديد بعدها استخدم جملة الاتصال و الاستعلام للتجربة
  17. اضغط على شفت باستمرار عند فتح البرنامج
  18. تفضل التعديل فقط قم بإضافة رابط الملف داخل مربع النص مثال.accdb
×
×
  • اضف...

Important Information