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

ابوخليل

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

  • Posts

    13651

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

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

  • Days Won

    292

 نوع المحتوي 

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

  1. ابوخليل
    <=Date()
  2. ابوخليل
    كون التصميم بسيط ومباشر ، هذا يحقق القوة والسرعة انظر هذا التعديل .. بلا اكواد ولا استعلامات ولا فلترة فلترة4.accdb
  3. ابوخليل
    عليكم السلام شكرا استاذ حمدي على حرصك واهتمامك بما يخدم المصلحة العامة طبعا في موضوع وعنوان جديد افضل . وللعلم موضوعنا هذا : ( تعريف مربعات نص غير منضمة الى كود الارسال ) سوف اقوم بتعديله الى : ( تنسيق الرسالة الى واتساب )
  4. ابوخليل
    جربت على اول مرفق لك وادخلت قريب من 15 الف سجل لأتأكد من السرعة ، تفاجأت انها اسرع من رمش العين لذا رددنا بضاعتكم اليكم ومؤكد ان الخلل عندك في برنامجك وليس المثال فلترة3.rar
  5. ابوخليل
    تفضل الرصيد السابق صح.rar
  6. ابوخليل
    لو بينت لنا حاجتك الى ما تريد عمله .. اي ما الفكرة من اظهار البيانات في الرئيس رغم وجودها في الفرعي .. حيث ان المصدر جدول واحد هل استفساري واضح ؟
  7. ابوخليل
    اين هو ؟؟
  8. ابوخليل
    ملحوظة في مثالك يوجد فنكشن مفقود باسم mm()
  9. ابوخليل
    لم ابحث في الخطوط ، يمكن ان نجد خطا مشابها ولكن لدي مثال لرسم هذه الكلمات بالكود في التقرير للاستاذ منصر الآنسي تفضل اذا كانت تفي بالغرض التقارير الآنسي2.mdb
  10. ابوخليل
    غفلت ان انبهك لعمل فهرسة لحقل كود الصنف وهي سبب رئيس في هذه المشكلة جرب اعمل فهرسة للحقل في خصائص الجدول
  11. ابوخليل
    عليكم السلام ورحمة الله وبركاته يوجد اكثر من طريقة لتنفيذ التصفية احدها الاعلان عن متغير عام يحمل قيمة كود الصنف ويتم توظيفه للبحث عنه في النموذج الرئيس ولكنك تريد السرعة في التنفيذ لذا ارشح لك التصفية من خلال الاستعلام انظر في مصدر بيانات النموذج الرئيس ( الاستعلام ) اتمنى ان يفي بالغرض فلترة2.accdb
  12. ابوخليل
    تفضل Private Sub cmb_Committe_Click() If cmb_Committe = "النموذج الاول" Then DoCmd.OpenForm "نموذج1" ElseIf cmb_Committe = "النموذج الثانى" Then DoCmd.OpenForm "نموذج2" ElseIf cmb_Committe = "النموذج الثالث" Then DoCmd.OpenForm "نموذج3" End If End Sub القوائم2.rar
  13. ابوخليل
    انظر هذه المشاركة تماما مثل طلبك ثم انظر الحل في المشاركة التي تليها
  14. ابوخليل
    ايضا لدي توجيه للاستاذ حمدي _ وسبق ان نبهت عليه ما دام الاستاذ موسى اجرى تعديلات جوهرية على الملف _ حاول ان تجعل هذا الملف هو الاساس عند طلبك لتعديلات اخرى حول واتساب قم بتسميته اسما فريدا يخصه بحيث تصل اليه بسهوله اعتقد انك تفهم قصدي .. لانك في كل استفسار ترفق مثالا يختلف عن ما سبقه . يجب ان يكون العمل تراكمي على مثال واحد .. وتكتفي انت بالنسخ واللصق في برنامجك اذا طبقت هذا ستجد القبول من اخوتك وستجد سرعة المبادرة في مساعدتك
  15. ابوخليل
    شكرا استاذنا على التعقيب وبهذا يصبح الكود حسب ما هو مطلوب : Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = 111 Then If x_change = 0 Then ctl.Locked = True Else ctl.Locked = False End If End If Next ctl
  16. ابوخليل
    نعم يمكن لو تفحصت خصائص الحقل لوجدت ما تبحث عنه فقط نستبدل Enabled بـــــ Locked ملحوظة : اجريت بعض التعديل على ترتيب الكود .. واضافة بسيطة عند فتح النموذج الأول من اجل زيادة الضبط فاعتمد هذا التعديل تفعيل خانة الاختيار3.accdb
  17. ابوخليل
    وعليكم السلام الخلل لديك في خصائص العلاقة بين الجدولين اذا ربطت جدول الاسماء بجدول الدرجات ، اجعل العلاقة رأس لأطراف واجعل الخصيصة : (سجل في جدول الاسماء لجميع السجلات في جدول الدرجات ) يمكنك عمل العلاقة في الاستعلام فقط ولا يلزم عملها في الجداول
  18. ابوخليل
    عليكم السلام ورحمة الله وبركاته بما ان التعامل سوف يكون بين كائنين منفصلين ، لذا يلزم ان نوجد بينهما رابط يعرفه كل منهما وهو تعريف متغير عام يتم تحديد قيمته عند تحديث خانة الاختيار انظر للفكرة في مثالك المعدل تفعيل خانة الاختيار2.accdb
  19. ابوخليل
    تفضل حسب فهمي لطلبك 999Up.rar
  20. ابوخليل
    لإثراء الموضوع هذه مشاركة مع اخي جعفر المثال عندي جاهز فاحببت ارفاقه الفكرة نفسها .. msgpass.accdb
  21. ابوخليل
    صحيح تتغير من دون ضغط وفك ولكن لن تستطيع فتح النماذج والتقارير على التصميم ، ولا يمكنك رؤية الأكواد هذا يعني ان الصيغة لم تتغير وانما تغير الامتداد فقط
  22. ابوخليل
    اخي العزيز ابا جودي عظم الله اجركم في والدكم وأحسن عزاءكم وألهمكم الصبر والسلوان انا لله وانا اليه راجعون اللهم اغفر له وارحمه واسكنه الفردوس الأعلى من الجنة
  23. ابوخليل
    اخي الكريم احمد صحيح اني عملت قبل سنوات على قاعدة بيانات sql لكني لست خبيرا فيها لذا تلاحظ اني استعنت بخبير في هذا المجال حين قدمت لك المساعدة في هذا الموضوع علما اني متأكد انك سوف تجد الحل ، فقط المحاولة والبحث في قوائم القاعدة
  24. ابوخليل
    الاستاذ خليفة غفل ان يضيف علامة التنصيص المفردة ليصبح السطر : Set rs = CurrentDb.OpenRecordset("Select * From Stock Where id='" & Me.article &"'") جرب لعل تضبط معك
  25. ابوخليل
    GoDaddy
×
×
  • اضف...

Important Information

  I accept