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

ابوخليل

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    12798

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

  • Days Won

    237

 نوع المحتوي 

كل منشورات العضو ابوخليل

  1. ابوخليل
    كلا المرفقين الذين تفضل بهما ابو آلاء يشتملان على مطلوبك المرفق الاول يبين طريقة جمع 1-كل صفحة على حدة 2- ما سبق 3- المجموع الكلي
  2. ابوخليل
    جرب طريقة مرور الماوس فوق الحقل Private Sub text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) text1.SetFocus End Sub
  3. ابوخليل
    لا يوجد جداول الاحسن ارفاق مثال من عملك
  4. ابوخليل
    اقصد بــ fldName اسم الحقل الموجود لديك وعلى هذا يكون الكود هكذا text1.SetFocus ولكن عند تنفيذ الكود بطريقتك فلن يظلل كامل الحقل انظر المثال المرفق db2.rar
  5. ابوخليل
    المطلوب الربط مع الحقول الاربعة وكما ذكرت هي طريقة اخرى ولكنننا ايضا سنحتاج الى الكود البرمجي اضافة الى بقاء مربعات الخيار الاصلية وسنضطر الى اخفائها
  6. ابوخليل
    http://www.officena.net/ib/index.php?showtopic=57493#entry365472 http://www.officena.net/ib/index.php?showtopic=41521#entry235265
  7. ابوخليل
    fldName.SetFocus
  8. ابوخليل
    لازم يكون مصدر النموذج واحد ؛ جدول او استعلام ان استطعت ان تجمع الجداول في استعلام واحد امكنك استخدامه كمصدر للنموذج علما انه يمكننا جلب (عرض) قيم حقول جداول اخرى داخل النموذج وبالمثل يمكننا الحاق بيانات في حقول جداول خارجية من داخل النموذج نفسه
  9. ابوخليل
    صحيح هو احد الحلول ولكن ليس بين الـ Option Group وبين الحقول في الجدول ارتباط
  10. ابوخليل
    التنبيه يكون كعنوان في الاطار هكذا MsgBox "الرقم موجود", , "تنبيه" ملحوظة : يوجد اختلاف في عرض ترتيب الجمل بسبب الحروف العربية ولكن عند لصقه في محرر الفيجوال سيعود لوضعه الصحيح
  11. ابوخليل
    ضع هذا الكود في حدث بعد التحديث لحقل id في النموذج if DCount("*","tbl1","id=" & me.id)>0 then msgbox"الرقم موجود" undo exit sub end if باعتبار id هو حقل الرقم في الجدول و tbl1 هو الجدول
  12. ابوخليل
    وعليكم السلام اخي ابو العقاب يوجد اكثر من طريقة وهذه احداها Private Sub a1_AfterUpdate() If a1 = -1 Then a2 = 0 a3 = 0 a4 = 0 End If End Sub Private Sub a2_AfterUpdate() If a2 = -1 Then a1 = 0 a3 = 0 a4 = 0 End If End Sub Private Sub a3_AfterUpdate() If a3 = -1 Then a1 = 0 a2 = 0 a4 = 0 End If End Sub Private Sub a4_AfterUpdate() If a4 = -1 Then a1 = 0 a2 = 0 a3 = 0 End If End Sub test2.rar
  13. ابوخليل
    يمكن تطبيق مثل هذا في المخرجات (تقارير) اما ادخال البيانات فهذا ما يفترق به اكسس عن اكسل
  14. ابوخليل
    ؟؟
  15. ابوخليل
    Private Sub Form_Open(Cancel As Integer) On Error Resume Next If InputBox("ادخل كلمة المرور") <> 123 Then Cancel = True End If End Sub
  16. ابوخليل
    اكتب في عنصر تحكم الحقل =Dmax("txt1";"table1") أو =Dlast("txt1";"table1") اختر المناسب لبياناتك
  17. ابوخليل
    وعليكم السلام العنوان يتحدث عن منع التكرار والكود المدرج هو لاظهار المكررات وهو صحيح ويعمل بشكل سليم
  18. ابوخليل
    السلام عليكم شكرا للاخ الكريم ssm على الاجابة وجزاه الله خيرا اخونا الشاعر : يمكن عمل ما تريد يدويا او بالاستعانة بالكود البرمجي شريطة ان تكون خصيصة : توسيط تلقائي=لا اما يدويا فكما ذكر اخونا ssm ففي عرض التصميم اسحب النموذج في المكان المحدد الذي تريد ان يظهر فيه ثم احفظ اما الكود البرمجي فضع هذا السطر في حدث فتح النموذج Me.Move Left:=3000, Top:=6000 وغير في الارقام حسب رغبتك
  19. ابوخليل
    يا عزيزي مايصلح تجعل استعلام تجميعي هو مصدر لنموذج ادخال الاستعلام المذكور نستخدمه للاطلاع فقط على مجاميع الاجازات والباقي من الارصدة من خلال نموذج خاص او حتى من التقارير وايضا يمكن ان نجلب حقل الرصيد لاي موظف في اي مكان نريده داخل النماذج او الاستعلامات . اذا : اجعل الجدول هو مصدر النموذج الفرعي
  20. ابوخليل
    يبدو ذلك
  21. ابوخليل
    اخواني .. شكرا لكم على الاعمال الجميلة ، وقد تم اعادة رفع المرفقات ايضا احب ان اساهم في احدى طرق الاستيراد والتصدير والتي هي موجودة ضمن اكسس اي الاستغناء عن الاكواد والاكتفاء بخدمات اكسس الاصلية المثال المرفق سيفتح على التقرير .. انقر بزر الفأرة الأيمن داخل التقرير ثم اختر تصدير من مربع الحوار اختر 1- مكان الحفظ 2- الصيغة التي تريد تصدير التقرير على نسقها officena2.rar
  22. ابوخليل
    يبدو ان الامور تحسنت هذا هو التعديل studEhsa.rar
  23. ابوخليل
    تفضل تم التعديل حسب الطلب ملحوظة : انظر تم حذف كافة الكائنات الزائدة في مثالك ( يجب ان تكون الامثلة مختصرة ) عذرا : يوجد لدي مشكلة في رفع الملفات
  24. ابوخليل
    كل شي ممكن بحول الله ولكن احببت ان اريك كيفية اخراج بعض الاحصاءات عن طريق استعلامات الجدولية انظر الاستعلامين والتقرير في المرفق student2.rar
  25. ابوخليل
    اذا كنت مضطرا لتجزئة الوحدة فأنت ملزم بأن تضع حقلا آخر للوحدة خالي من الاحداث
×
×
  • اضف...

Important Information

  I accept