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

ابوخليل

أوفيسنا
  • Posts

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

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

  • Days Won

    274

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

  1. يبدو انك تعمل على تعديل نسخة من برنامج الاستاذ صالح @ابوآمنة فرجعت الى محفوظاتي ووجدت لك نسخة متكاملة .. عمل احترافي رائع متقن .. وفي الوقت نفسه يحقق طلبك الذي هو : عند النقر على الزر مرة أخرى يزداد العدد والشيء الجميل ان تحقيق ذلك يتم من طريقين اما بالنقر على الزر مرة اخرى او النقر على علامة + في النموذج الفرعي Restaurant100%.rar
  2. جميل جدا استاذ خليفة مرجع جميل مفيد وأفكار فريدة ..
  3. تفضل المعيار متغير عام فلترة5.accdb
  4. كون التصميم بسيط ومباشر ، هذا يحقق القوة والسرعة انظر هذا التعديل .. بلا اكواد ولا استعلامات ولا فلترة فلترة4.accdb
  5. عليكم السلام شكرا استاذ حمدي على حرصك واهتمامك بما يخدم المصلحة العامة طبعا في موضوع وعنوان جديد افضل . وللعلم موضوعنا هذا : ( تعريف مربعات نص غير منضمة الى كود الارسال ) سوف اقوم بتعديله الى : ( تنسيق الرسالة الى واتساب )
  6. جربت على اول مرفق لك وادخلت قريب من 15 الف سجل لأتأكد من السرعة ، تفاجأت انها اسرع من رمش العين لذا رددنا بضاعتكم اليكم ومؤكد ان الخلل عندك في برنامجك وليس المثال فلترة3.rar
  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. اخي العزيز ابا جودي عظم الله اجركم في والدكم وأحسن عزاءكم وألهمكم الصبر والسلوان انا لله وانا اليه راجعون اللهم اغفر له وارحمه واسكنه الفردوس الأعلى من الجنة
×
×
  • اضف...

Important Information