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

Khalid Jnb

الخبراء
  • Posts

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

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

  • Days Won

    5

مشاركات المكتوبه بواسطه Khalid Jnb

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

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

    ثانيا تفضل اخي الكريم حسب مافهمت من طلبك 

    لقد قمت بتغيير بعض اسماء الحقول للغة الانكليزية

    ضع هذا الكود  في حدث بعد التحديث لحقل بلد الميلاد

    ممكن عملها بهذا الكود

    If Me.text1 <> "الجزائر" Then
    Me.AA.Visible = False
    Me.EE.Visible = False
    Me.FF.Visible = False
    Me.a.Visible = False
    Me.e.Visible = False
    Me.f.Visible = False
    End If

    او عملها بهذا الكود

    If Me.text1 = "الجزائر" Then
    Me.AA.Visible = True
    Me.EE.Visible = True
    Me.FF.Visible = True
    Me.a.Visible = True
    Me.e.Visible = True
    Me.f.Visible = True
    Else
    Me.AA.Visible = False
    Me.EE.Visible = False
    Me.FF.Visible = False
    Me.a.Visible = False
    Me.e.Visible = False
    Me.f.Visible = False
    End If

    تحياتي

    19000.rar

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

    من الافضل ارفاق  قاعده البيانات  او مثال عند طرح السؤال لتوفير الوقت على الجميع

    المهم - حسب ما اعتقد يوجد تداخل بالاكواد عند الفتح

    ضع العبارة التالية  بداية الكود لتلافي الاخطاء

    On Error Resume Next

    تحياتي

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

    اخي العزيز

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

     

    https://www.officena.net/ib/topic/97708-برنامج-الخليل-المحاسبي-الاصدار-الثاني-مفتوح-المصدر/page/3/?tab=comments#comment-601045

    تحياتي 

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

    اخي العزيز

    ممكن عمل ذلك عن طريق خصائص الزر

    اضغط على الزر - ثم اذهب للخصائص -  ثم تنسيق - ثم  اختر لون المرور- ثم اختر اللون الذي يناسبك من  قائمة الالوان

    تحياتي

    1.jpg

     

    2.jpg

    • Like 2
  5. اخي العزيز @alix24028

    ملاحظة مهمة جدا جدا

    1- اذا كنت تريد ان تجعل حقل العمولة لكل عامل = صفر في حالة كان عدد العمال صفر / استخدم الكود التالي

    =IIf([WRCOUNT]=0;0;[Commission]/[WRCOUNT])

    2- اما اذا كنت تريد ان تجعل حقل العمولة لكل عامل  هي نفس المبلغ حتى لو كان عدد العمل =صقر / استخدم الكود التالي

    =IIf([WRCOUNT]=0;[Commission];[Commission]/[WRCOUNT])

    اتمنى تكمون فهمتني اخي العزيز

    تحياتي 

     

     

    1.jpg

    2.jpg

    • Like 2
  6. اخي العزيز

    انظر لما كتبت  بالاعلى

    وانظر للملف بعد التعديل

    حسب علمي يمكن التخلص من المشكلة باستخدام دالة IIf

    اتمنى ان يكون المطلوب واعلمنا النتائج

    تحياتي

    New D Report.rar

    • Like 2
  7. سؤال اخي العزيز

    قبل ما افتح ملفك

    هل انت عامل حقل تم فيه قيمة تمت  القسمة على صفر

    المهم

    حسب علمي  أن نقسم أي عدد على الصفر ( مثل ما أردت ) فهذا يعتبره الآكسس خطأ رياضي أو كما يسمى .. (Division by zero)

    فهمت انك تريد تقسم العمولة على عدد العمال فيصبح الكود كالتالي

    =IIf([WRCOUNT]=0;[Commission];[Commission]/[WRCOUNT])

    اخبرنا النتائج

    تحياتي

    New D Report.rar

    • Like 2
  8. اخي العزيز

    اذا كانت المشكلة لتقرير الطباعة ممكن حل مسالة  التسلسل في التقرير ببساطة 

    بجعل قيمة الحقل =1  زمن خصائص الحقل - بيانات- اجعل المجموع التراكمي = شامل 

    ستجد ان التسلسل مضبوط حتى لو حذفت سجل 

    1.jpg

    2.jpg

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

    https://www.youtube.com/watch?v=z6aJXJWPAZg

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

    https://www.youtube.com/watch?v=zV_ih0djTcw

    تحياتي

    • Like 1
  9. السلام عليكم اخي الكريم

    تفضل الشرح بالصور  عن طريق التنيسق الشرطي (افتح النموذج في وضع التصميم ثم  قم بتاشير الحقل ثم اضغط على التنسيق الشرطي)

    وباقي الشرح بالصور

    تم رفع الملف  كامل بعد التعديل

    تحياتي

    1.jpg

    2.jpg

    3.jpg

     

    5.jpg

    قاعدة بيانات (220000).rar

    • Like 3
    • Thanks 1
  10. السلام عليكم

    تفضل اخي الكريم

    اتمنى ان يكون المطلوب

    ملاحظة لقد قمت بتغيير اسماء الحقول الاربعةالى (text1,text2,rext3,text4)  لغرض سهولة الكتابة باللغة الانكليزية

    قاعدة بيانات (220000).rar

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

    يا اخي من الافضل  ارفاق مثال  لغرص التعديل افضل للجميع 

    1- بالنسبة لكود تحديث النموذج  الذي يضع في زر عند النقر غي نفس النموذج الذي تعمل عليه.

    2- بالنسبة لكود  الحقل الفارغ ممكن وضعه عند فتح النموذج او  قبل التحديث

    3- بالنسبة لكود الرسالة يضع بعد تحديث النموذج

     

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

    الافضل ان ترفق مثال عند طرح السؤال لتوفير الوقت على الجميع

    * بالنسبة للالوان ممكن عمل ذلك عن طريق الكود او عن طريق التنسيق الشرطي

    انظر للاكواد اتمنى تكون المطلوب

    'تحديث بيانات النموذج
    me.Refresh
    Docmd.Requery
    '---------------------
    'تغير خلفية الحقل الى اللون الاحمر اذا كان فارغ 
    If IsNull(Me.text1) Then
    Me.text1.BackColor = vbRed
    End If
    '-----------------------------------------
    'يوضع في التنسيق الشرطي في التعبيير لتغيير اللون
    IsNull([text1])
    '-------------------------------------------
    ' باكثر من شرط يوضع بالنموذج
    If Not IsNull(Me.[اسم الموظف]) And Not IsNull(Me.[الدرجة الوظيفية]) Then
    Beep
    MsgBox "مبروك كل الحقول مملوءة"
    End If

    تحياتي

    • Like 2
×
×
  • اضف...

Important Information