اذهب الي المحتوي
أوفيسنا

عدي99

عضو جديد 01
  • Posts

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

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

مشاركات المكتوبه بواسطه عدي99

  1. السلام عليكم

    لدي جدولين

    الجدول الاول فيه حقل text

    الجدول الثاني يحتوي على الحقول 

    Text1

    Text2

    Text3

    Text4

    Text5

    المطلوب 

    هو عمل كود يقوم بالبحث عن القيمة الموجودة في text5 ووضعها في حقل text واذا كان الحقل text5 فارغ يقوم بالبحث عن القيمة الموجودة في text4 ووضعها في textوهكذا باقي الحقول text3 الخ .....

     

     

  2. هذا الكود لحذف بيانات الجدول بالكامل

    حيث G A اسم الجدول

    If IsNull(DLookup("[a]", "G_A")) Then
    MsgBox "تنبيه", , "لا توجد بيانات للحذف"
    Exit Sub
    End If

    If MsgBox("هل تود حذف جميع البيانات ", vbYesNo, "تنبيه") = vbYes Then
    Me.Refresh
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE G_A.* FROM G_A;"
    DoCmd.SetWarnings True
    Me.Requery
    Else
    Exit Sub
    End If
     
  3. السلام عليكم

    انوي عمل برنامج رواتب يحتوي على جدولين

    الاول رئيسي فيه الحقول التالية. 

    . الراتب الاسمي

    . الخطورة

    . الطعام

    . العائلية

    . الشهادة

    والثاني الجدول الفرعي وفيه الحقول التالية. 

    . الغياب

    .الاجازة

    .السجن

    شرح عن طريقة العمل

    1. يرتبط الجدول الثاني بالجدول الاول بعلاقة رأس باطراق .

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

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

    وشكرا

     

  4. السلام عليكم

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

    ارجو ان اكون قد وفقت لايصال الفكرة

    وجزاكم الله خيرا 

×
×
  • اضف...

Important Information