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

كل الانشطه

هذه الصفحة تحدث تلقائياً

  1. الساعة الأخيرة
  2. اعتقد أني عرفت المشكلة جرب المثال الان وأخبرنا إذا ظهرت الرسالة أم لا مع تحياتي baseM11.rar اعتقد أني عرفت المشكلة جرب المثال الان وأخبرنا إذا ظهرت الرسالة أم لا مع تحياتي
  3. Today
  4. واجهتني مشكلة واحدة أنه عند إغلاق النماذج من علامة X تتبقى شاشة أكسس بدون أي مجال لإغلاقها إلا عن طريق Task Manager
  5. تأكد من تمكين الماكرو. الصور غير واضحة ولو أمكن ترفع الملف لمعاينته
  6. لما بفتح الملف بيجي كده
  7. أرجوا حل لهذه المشكلة لو تكرمتم الملف شغال زي الفل عندي في البيت المشكلة لما أروح الشغل مش راضي يفتح ويجيب الرسالة دي
  8. الجزء الثاني التحكم بملف الاكسل عن mcp server رابط الجزء الثاني
  9. اعادة الموضوع صعب انه يفصل الموضوع فحذف 0-حتى لو كان مواصفات الكمبيوتر سيئه ورديئه يعمل بكفاءه من غير وميض وترميش عند تحريك للسجلات الكل Caption مع الفلترة يمكن اسهل طريقة 1- مع الفلترة عرض غير منضم بسيطه من غير DOA , SQL ونوع Caption 2- اضافة آلية وهمية لسجلات 100000 الى تخلص من مساحة التخزين قاعدة ويمكن تغير عدد السجلات في الكود وتجربة 3- تحسين صندوق الرسائل دائما في الامام كل النوافذ 4- جعل الخلفية في الخلف لكل النوافذ ولكن ناقص ===========( اصبحة النافذة مستقرة مع تضخم البيانات لا يأثر ) بناء مختلف فلتره رئيسي وفرعي Caption تجربة لتحسين طريقة عرض السجلات من غير بطىء وتجنب اعادة التحميل الذي يؤثر عند قرب انتهاء مساحة تخزين قاعدة بيانات وتحميلات ويوجد حلول اخرى Function Run Update Link Map all In Folder(1)
  10. Yesterday
  11. عجيب .. المبرمج المحترف لا يستعصي عليه شيء الفكرة جميلة .. الف شكر استاذنا الكريم
  12. مرفق لك مثالك بعد التعديل قمت بإضافة جدول tblDates والإستعلام qryDates النتيجة النهائية ستجدها في الاستعلام Query1 أرجو أن يكون هو ماتبحث عنه مع تحياتي Database1.rar
  13. بارك الله فيكم استاذى
  14. تمام انا احاول انتهج طريقة انسيابية جديدة .. واترك الطريقة التقليدية المتعارف عليها وهي عرض الحالات من جدول الحضور (الحضور والغياب ) فقط سيتم عرض الأيام المستهدفة .. كل معرف وايام عمله الفعلية مع استبعاد عطلة نهاية الاسبوع ( لكل معرف عطلته الخاصة) السجلات الفارغة = غياب .. وسيظهر ( العدد )في الخلاصة وبجانبها عدد ايام الاجازة (ان كان يتمتع باجازته) الخلاصة النهائية عبارة عن ارقام فقط + المعرف .. والفترة من/الى تكون في رأس الخلاصة من اراد تفاصيل الاجازات وتفاصيل التأخر يمكنه ذلك باستعلامات اخرى يتم عرضها من المكان نفسه ( نموذج التقارير)
  15. تجربة تم حذف المسافات والبحث بدالة VLOOKUP تجربة للرفع (2).xlsx
  16. اسم المطلوب / سميحه محمدالسيد سيد اسم الحائز / سميحه محمد السيد
  17. حتى الاسماء المتطابقة لا تعمل المعادلة
  18. الاسم المطلوب / محمد متولى سليمان سالم أسم الحائز / محمد متولى سالم سليمان الأفضل البحث بالرفم القومى أو رقم الحيازة مع طلب تعديل البيانات والتأكد من صحتها
  19. اسف نسيت المرفق للرفع.xlsx
  20. السلام عليكم فى الملف المرفق احتاج الى معادلة VLOOKUP ولكنها لا تعمل ارجوا المساعدة وتوضيح سبب عدم عمل المعادلة
  21. بدايةً الخطأ ان اسم مربع النص ID وليس الكود !! ثانياً لازم تمرر مسار واسم النموذج الفرعي اللي موجود فيه الشرط ID . وفي الدالة :- Public Function f11(الكود As Integer) DoCmd.OpenForm "Customer Details", , , "[الكود] = " & الكود End Function لا يتم تمرير الشرط أو المعيار للفلترة . لذا توجهت الى فكرة غريبة نوعاً ما بحيث من خلال الكود يتم البحث عن أول نموذج فرعي يحتوي مربع النص ID كشرط ومعيار للفلترة وتمريره الى جملة فتح النموذج على السجل المحدد . لتصبح الدالة مع مساعد بسيط :- '---------- ( ID تم التعديل هنا بحيث يتم البحث عن أول نموذج فرعي يحتوي مربع النص ) ---------- Public Function f11() On Error GoTo ErrHandler Dim frmMain As Form Dim ctrl As Control Dim frmSub As Form Dim val As Variant Set frmMain = Screen.ActiveForm For Each ctrl In frmMain.Controls If ctrl.ControlType = acSubform Then Set frmSub = ctrl.Form If HasControl(frmSub, "ID") Then val = frmSub.Controls("ID").Value DoCmd.OpenForm "Customer Details", , , "[الكود] = " & val Exit Function End If End If Next ctrl MsgBox ". 'ID' لم يتم العثور على نموذج فرعي يحتوي على الشرط", vbExclamation + vbMsgBoxRight, "" Exit Function ErrHandler: MsgBox "حدث خطأ: " & Err.Description, vbCritical + vbMsgBoxRight, "" End Function Private Function HasControl(frm As Form, ctrlName As String) As Boolean On Error Resume Next HasControl = Not frm.Controls(ctrlName) Is Nothing End Function '---------- ( نهاية التعديل ) ---------- ملفك بعد التعديل :- date-2025 - Copy (4).zip
  22. date-2025 - Copy (4).rar كل اللي محتاجه انا اختار من open هيفتح القائمة المختصرة اختار منها تعديل يفتحلي الفورم اللي فيه داتا العميل المختار للتعديل عليها
  23. فكرة ابو جودي هي الافضل، وللعلم ، فجدول 2 لا يمكن يكون اكثر من ايام السنة 365 سجل ، وقد جربت هذه الطريقة بدل 365 ، جربت 3,000,000 وكانت سريعة ، وكانت السرعة ممتازة: . .
  24. انا الذي يهمني عدد السجلات فقط حسب اليوزر عملته كما هو كجملة داخل الكود
  1. أظهر المزيد
×
×
  • اضف...

Important Information