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

محمد ابوعبد الله

الخبراء
  • Content Count

    540
  • تاريخ الانضمام

  • Days Won

    9

محمد ابوعبد الله last won the day on ديسمبر 11

محمد ابوعبد الله had the most liked content!

السمعه بالموقع

313 Excellent

6 متابعين

عن العضو محمد ابوعبد الله

  • الإسم الفعلي
    مُحب الله ورسوله
  • تاريخ الميلاد 01 ينا, 1974

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مهندس
  • بلد الإقامة
    مصر
  • الإهتمامات
    حب الله ورسوله صلى الله عليه وسلم

اخر الزوار

1,167 زياره للملف الشخصي
  1. وعليكم السلام ورحمة الله وبركاته لمعرفة حجم قاعدة البيانات نستخدم الامر FileLen(CurrentDb.Name) مع ملاحظة ان الرقم يخرج بالبايت بعني انك ستحتاج الى قسمته على 1024 ليعطيك الحج بالكيلوبايت ثم القسمة على 1024 ليعطيك الحجم بالميجا استخدم الكود التالي وهو عند حجم 30000000 بايت يما يعادل 30 ميجا تقريباً If FileLen(CurrentDb.Name) > 30000000 Then Application.SetOption "Auto compact", True Else Application.SetOption "Auto compact", False End If الكود يقوم بوضع علامة صح امام خيار ضغط واصلاح قاعدة البيانات عند الاعلاق تحياتي
  2. السلام عليكم ما رايك نختصر الكود كالتالي If Not IsNull(Me.x) Then Me.[تابع0].Form.Filter = "[id] =" & Me.x Me.[تابع0].Form.FilterOn = True End If Database5_2.rar تحياتي
  3. اخي الكريم بما ان جدول tbl_sheet فارغ فانت ستحتاج الى 1 - استعلام الحاق 2 - استعلام تحديث سيتم تنفيذ الاستعلام Query1 اولاً لالحاق البيانات واذا كان رقم الموظف موجود مسبقاً بالجدول يتم تنفيذ الاستعلام Query2 لتحديث البيانات انظر المرفق تحديث من نموذج الي جدول بشرط.rar تحياتي
  4. السلام عليكم انت غير محتاج الى جدول tbl_sheet الا اذا كان تتحتاجه في امور اخرى لانك بعد انشاء العلاقة بين جدول الموظفين وجدول التذاكر تستطيع عن طريق الاستعلام او النموذج مباشرة استخراج قيمة التذاكر انظر المرفق واعلمني بالنتيجة تحديث من نموذج الي جدول بشرط.rar تحياتي
  5. عطل السطر الثاني هكذا Option Compare Database 'Option Explicit Private Sub Form_Current() retvalue = GetSetting("A", "0", "Runcount") GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 100 Then MsgBox ("انتهت مدة تشغيل البرنامج عليك بشراء البرنامج او الاتصال بالمطور"), , ("AZHAR ALIraqy") DoCmd.Quit End If End Sub تحياتي
  6. السلام عليكم تفضل اخي الكريم DBS.rar ارجو ان يكون هو المطلوب تحياتي
  7. وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم ' تم اضافة معيار لاسم البنك Like "*" & forms!Form1!Text9 & "*" ' تم اضافة معيار لاسم موظف البنك Like "*" & forms!Form1!Text10 & "*" مثال_3.rar تخياتي
  8. اخي الكريم يوضع الكود كاملاً في النموذج = حدث في الحالي الكود فقط retvalue = GetSetting("A", "0", "Runcount") GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 100 Then MsgBox ("انتهت مدة تشغيل البرنامج عليك بشراء البرنامج او الاتصال بالمطور"), , ("AZHAR ALIraqy") DoCmd.Quit End If الحدث فقط Private Sub Form_Current() ' هنا يتم كتابة الاكود End Sub تحياتي
  9. مرحبا بك اخي احمد Sum فقط في النموذج الرئيسي لن تقوم بالجمع ولكن ستجمع سطر واحدفقط ستحتاج الى DSum وهذا طريقتها DSUM(fieldName; tbaleName; criteria) وفي هذه الحالة ستحتاج الى ضبط criteria واخونا صاحب الموضوع يقوم بعمل فلتر متعدد حسب التاريخ وحسب الكمبوبكس لذلك اسهل طريقة ان تضع مربع نص في تذييل النموذج الفرعي يقوم بعملية الجمع ثم تضع قيمته في النموذح الرئيسي وعند التصفية يعمل معك بكفاءة تحياتي
×
×
  • اضف...