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

نجوم المشاركات

  1. محمد طاهر عرفه

    محمد طاهر عرفه

    إدارة الموقع


    • نقاط

      22

    • Posts

      8741


  2. أبوبسمله

    أبوبسمله

    الخبراء


    • نقاط

      11

    • Posts

      3463


  3. Khalid Jnb

    Khalid Jnb

    الخبراء


    • نقاط

      8

    • Posts

      774


  4. kha9009lid

    kha9009lid

    الخبراء


    • نقاط

      5

    • Posts

      1347


Popular Content

Showing content with the highest reputation on 01/10/20 in all areas

  1. لان احنا حددنا مربعات النص جرب الكود التالى ان شاء الله يظبط معك Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox and ctl.ControlType = acComboBox Then If ctl.Value <> "" Then ctl = "" End If End If Next ctl جرب ووافنا بالنتيجه بالتوفيق
    5 points
  2. السلام عليكم تفضل اخي ضع هذا الكود في خصائص الحقل - بيانات - قاعدة التحقق من الصحة / حيث يسمح لك بادخال تاريخ اليوم او قبل ذلك فقط ومن ثم ضع الرسالة المناسبة في نص التحقق من الصحة "لقد ادخلت تاريخ لاحق" <=Date() تحياتي
    4 points
  3. السلام عليكم تم عمل المطلوب في الملف المرفق بواسطة المعادلات وجداول مساعدة (ملونة بالأصفر الفاتح وأحد الجداول يحوي معادلات صفيف)... أرجو أن يفي الغرض المطلوب في انتظار من يقوم بالمساعدة بواسطة حل بـ VBA... بن علية حاجي رصد الدرجات.xlsm
    2 points
  4. تم معالجة الامر ملاحظة يجب ترك الصف 2 في الشيت total فارغاً للحفاظ على بنية الجدول دون تدخل خلايا غريبة (بذلك تكون اول خلية بالجدول بعد الرأس هي الخلية A4) Option Explicit Sub get_data_New() Dim SH_from As Worksheet Dim T As Worksheet Dim rg_to_Patse As Range Dim Rt%, MY_max%, Ro%: Ro = 4 Set T = Sheets("Total") Set rg_to_Patse = T.Range("A3").CurrentRegion Rt = rg_to_Patse.Rows.Count If Rt > 1 Then Set rg_to_Patse = rg_to_Patse.Offset(1).Resize(Rt - 1) Else Set rg_to_Patse = T.Range("B4").Resize(, 5) End If rg_to_Patse.Clear For Each SH_from In Sheets If SH_from.Name <> T.Name Then MY_max = Application.Max(SH_from.Range("A:A")) T.Cells(Ro, 2).Resize(MY_max, 5).Value = _ SH_from.Cells(3, 2).Resize(MY_max, 5).Value Ro = Ro + MY_max End If Next SH_from With T.Range("A3").CurrentRegion .Sort key1:=Range("b3"), Header:=1 .Columns(1).Offset(1).Formula = _ "=IF(B4="""","""",MAX($A$3:A3)+1)" .Offset(1).Borders.LineStyle = 1 .Offset(1).InsertIndent 1 .Value = .Value .Font.Bold = True End With End Sub M_data_new.xlsm
    2 points
  5. ومشاركه مع اخى على Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If ctl.Value <> "" Then ctl = "" End If End If Next ctl تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق
    2 points
  6. اخي العزيز Khalf نحن نتكلم عن برنامج متكامل للرواتب: الجواب - نعم ممكن في حالة عمل حقول محسوبة calculated بالجدول الواحد ( وهي طريقة غير محببة لانستخدمها بالجدول وانما نستخدم استعلام) ما هو الجيد وما هو السيء الحقول المحسوبة ؟ الجيد: أن الحقل المحسوب سيعرض نتيجة الحساب بوضع للقراءة فقط (Read-only)، هذا يعني أن المستخدم لا يمكنه التلاعب بالأرقام الناتجة. السيء: أن الحقل المحسوب لا يمكن أن يتضمن حقولا موجودة في جداول أخرى، هذا يعني أنه في بعض الحالات ستحتاج إلى إنشاء حقولا محسوبة في استعلام وهي دائما تحتاج تحديث
    2 points
  7. فورم اظهار الادخال الجديد للاسم على الليست بوكس بمجرد الحفظ الفيديو
    1 point
  8. العفو اخى الفاضل محمد وحتى ان لم يكن مكتمل انت طلبت افكار فخذه ما تشاء من افكار ووفقها مع ماتريد وكذلك ابحث عن كل ما يخص الصادر والوارد وعلى ما اعتقد فى موضوع للاستاذ @Elsayed Bn Gemy تقريبا برنامج شبيه بالفيس على ما اتذكر دور عليه وشوف الافكار الموجوده به ورتب افكارك وحلل نظامك وابداء وتوكل على الله واذا توقفت فى شىء اسئل واخوانك واساتذتنا لا يقصرون جزاهم الله خيرا بالتوفيق اخى
    1 point
  9. لو حرف امتناع لامنتناع ويستخدم كذلك كحرف مصدري بمعنى ان وكذلك للتمني وايضا للتقليل وللنفي ويستخدم للدعاء وللحض والامر وللتعميم والدلالة على المستقبل على العموم جرب المرفق لعله ينهي لو 😉 aa.accdb
    1 point
  10. تم نقل الموضوع لقسم الوورد قد تكون هناك فصول Sections ضمن الملف و بالتالي يبدأ الترقيم ببداية كل فصل
    1 point
  11. اعتذر منك اخي فعلا كان هناك مشكلة مع الارقام المتشابهه حزئيا جرب الان واخبرني aa.accdb
    1 point
  12. اخي العزيز Khalf كل ماتفضلت به صحيح / هذه هي مزايا الاكسس تستطيع عمل الكثير وباكثر من مكان. انا رايي ان تصميم قواعد البيانات اكسس يجب ان يكون اساسه صحيحا مثل (اساس البيت) كل ماكان اساسه صحيحا كان بناءة صحيحا وليس العكس. حتى لاتقع بمشاكل التصميم.(افضل مكان لعمل العمليات الحسابية او الدوال هي الاستعلامات) واساس الاكسس هي الجداول ثم الاستعلامات والعلاقات ثم النماذج والتقارير. تحياتي
    1 point
  13. مرحباً أستاذ خالد يمكن ذلك ودون استعلام بجعل العمليات الحسابية في النموذج عن طريق استعلامات مدمجة بالفيجوال بيزيك وعمليات حسابية تعطي قيم لحقل مخفي أو ظاهر بحسب الحاجة. فيكون البرنامج من جدول واحد ونموذج إدخال تتم العمليات به وتنتقل منه إلى الجدول.
    1 point
  14. افاد الله استاذ خالد هذا ما اريد ان اصل اليه
    1 point
  15. السلام عليكم ربما مع هذه المشاركات للخبراء لن يكون لتعليقي محل، ولكن وباختصار: نعم، يمكن عمل البرنامج بجدول واحد.
    1 point
  16. قم بتغيير اسم الشيت مجمل إلى Total ونفذ هذا الكود Option Explicit Sub get_data() Dim SH_from As Worksheet Dim T As Worksheet Dim Rt%, MY_max%, Ro%: Ro = 3 Set T = Sheets("Total") Rt = T.Cells(Rows.Count, 2).End(3).Row If Rt <= 2 Then Rt = 3 With T.Range("B3").Resize(Rt, 5) .ClearContents .Interior.ColorIndex = xlNo End With For Each SH_from In Sheets If SH_from.Name <> T.Name Then MY_max = Application.Max(SH_from.Range("A:A")) T.Cells(Ro, 2).Resize(MY_max, 5).Value = _ SH_from.Cells(3, 2).Resize(MY_max, 5).Value With T.Cells(Ro + MY_max, 3) .Value = SH_from.Name .Offset(, -1).Resize(, 5).Interior.ColorIndex = 6 End With Ro = Ro + MY_max + 1 End If Next SH_from End Sub الملف مرفق M_data.xlsm
    1 point
  17. الفلترة بناء استعلام بمعيار مبني على القائمة المنسدلة comUnits وهذة القائمة تستمد قيمتها من خلال استعلام مبني على الجدول tblUnits فلو كان الجدول يحتوي على 3 وحدات تكون خيارات الفلترة لثلاث وحدات ولو كان الجدول يحتوي على 1000 وحدة تكون خيارات الفلترة 1000 وهكذا تحياتي
    1 point
  18. اضفت وحدات جديدة ولم اواجه اي مشكله ايضا غيرت صيغة ملف اكسيل لان الكود السابق احيانا يرفض الفتح جرب الملف المرفق علما بان الفلترة لا علاقة لها بعدد الوحدات 3 او 100 او 1000 Database3 (2).accdb
    1 point
  19. اخى الفاضل عزالدين انت طلبت معرفه اللذين لم يسددوا قمنا بعمل استعلام يوضح لك من لم يسددوا ممكن تنشىء نموذج على هذا الاستعلام وتضيف اى بيانات اخرى به وتقوم بتصفيه بناء على اى تاريخ انت تريده هل قمت بتجربه هذه الجزئيه قمت باضافه اسماء وقمت بالضغط عالزر ينقلنى الى هذا الاسم برقمه لااعرف اين المشكله التى تتحدث عنها لعل احد اخواننا او اساتذتنا يوافيك بما تريد بالتوفيق ان شاء الله
    1 point
  20. مداخلة مع الزملاء افضل شيء في هذه الحالة ان تضع حقل سدد الاشتراك / نعم /لا ومن يقوم بالتسديد تضع صح الان لما تعمل استعلام ضع المعيار سدد الاشتراك -- نعم هيك تستطع حصر من قام بالسداد
    1 point
  21. مشاركه مع اخى واستاذى العزيز @essam rabea بالنسبه للسؤال الاول شو الاستعلام لم يتم تجديد الاشترك وافتحه فى وضع التصميم وشوف فى حقل تم تجديد الاشتراك المعيار 0 بالنسبه للسؤال الثانى انت تقصد انه بيفتح على رقم المشرك لكن حقل الاسم فارغ ام ماذا جرب الان ووافنا بالنتيجه بالتوفيق ان شاء الله GYM.rar
    1 point
  22. وعليكم السلام -تفضل ربط الميزان ببرنامج الكاشير طريقة شرح وبرمجة الميزان الباركود الماستر lp 16 وتوصيله على جهاز الكمبيوتر
    1 point
  23. وعليكم السلام-كلن عليك استخدام خاصية البحث بالمنتدى-تفضل طلب هل من طريقة لعمل زر متحرك مع صفحة
    1 point
  24. وعليكم السلام ألقي نظره على هذا الموقع الأجنبي ( سورس كود مجاني ) وحفظ فلوسك 😅 https://www.sourcecodester.com/microsoft-access
    1 point
  25. وعليكم السلام-اهلا بك بالمنتدى , كان عليك استخدام خاصية البحث بالمنتدى-تفضل ملف لاحتساب تكاليف وتسعير طلبية بضاعة مستوردة وهذه ملفات وبرامج أخرى Auto Expense Report.xls Purchases.xls اكسل محاسب الاستيراد.rar
    1 point
  26. الحلقة الثانية: أكواد الطباعة و الخصائص و... سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من طباعة صفحة الويب و حفظها و عرض خصائص الصفحة و غيرها... 1- كود طباعة الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT 2- كود معاينة طباعة الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT 3- كود عرض خصائص الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT 4- كود حفظ صفحة الويب: Me.WebBrowser3.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT 5- كود تنسيق الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT 6- كود عنوان رابط الصفحة: MsgBox Me.WebBrowser3.LocationName 7- كود رابط الصفحة: MsgBox Me.WebBrowser3.LocationURL 8- كود فتح الصفحة الإفتراضية للمتصفح: Me.WebBrowser3.GoHome 9- كود فتح صفحة البحث: Me.WebBrowser3.GoSearch 10- كود فتح صندوق التصفح: هذا الكود يقوم بفتح صندوق لإدخال رابط صفحة ويب جديدة Me.WebBrowser3.ExecWB OLECMDID_OPEN, OLECMDEXECOPT_DODEFAULT 11- كود تخطي رسائل الأخطاء التي تظهر من الأداة عند التصفح: Me.WebBrowser3.Silent = True وهذا المرفق بعد الإضافات الجديدة webbroser.rar
    1 point
  27. بسم الله الرحمان الرحيم اليوم سأقدم لكم مشروع صغير و هو احتساب الاعمار منها العام و الشهر و اليوم سوف أرفق لكم هذا الملف البسيط مع تحياتي لكم المبرمج : مناد سفيان ............ الجزائر
    1 point
  28. على حسب ما فهمت اخ حمادة انه يريد مثل تلك الايقونة متحركة معه بالشيت . اما ينزل تكون معاه . لعله يرد ان يربطها بفورم او يريد ان يربطها بارتباط تشعيبى ليسهل عليه التنقل بين الصفحات .ميكونش في اسفل الصفحة ومن اجل الانتقال الى صفحة اخرى او ان يقورم بفتح فورم او ان يفعل مديول وايقونته اعلى الشيت يطلع الى ان يصل اليه للضغط عليه ولكن تكون الايقونة متحركة معه اينما يذهب وتكون على يمن او شمال الشاشة هذا ما فهمت وشرحتة لانى اريد نفس الامر ههههههههه وشكرا على الصبر عليا وان كان مرادك غير ذالك استاذ محمد يرجى التوضيح
    1 point
  29. تم إخفاء كافة المشاركات التالية لنشر الموضوع الحوارات التالية بدأت بتعليق بأن الموضوع ليس بجديد ، بينما رد الأخ سعيد بأن هناك إضافة تستجق التبيان و لكن كان الرد فى سياق غير مقبول وفق ما تعودنا عليه فى المنتدى هنا من طريقة حوار. أرجو ملاحظة أن أي تجاوز غير مسموح به فى المنتدى و ان كان هناك اختلاف مع اي تعليق أو عدم رضا عن أي تعليق يمكن التبليغ عن التعليق ، أما الرد بشدة و تحويل الحوار الي تلاسن فسنضطر الى اتخاذ اجراءات مختلقة اذا تكرر ذلك. أبقيت الموضوع الأصلي فقط دون الجوارات التالية و برجاء استكمال الحوار بموضوعية و توضيح عن طريق الشرح المبسط ما هو المكرر و ما هي الاضافة الجديدة تم غلق الموضوع و يرجي عدم الحوار بهذا الموقف فى اية مواضيع عامة أخرى
    1 point
  30. برنامج صغير يحل مشكلة البحث عن "الكلمة" في ملفاتك الوورد مهما كان عددها منقول السلام عليكم ورحمة الله وبركاته من جديد وعودة للأحباب ببرنامج صغير يحل مشكلة البحث عن كلمة أو كلمات في ملفات الوورد التي عندك بالجهاز مهما كان عددها كلنا نعاني من هذه المشكلة: أتذكر كلمة - أو جملة معينة - في ملف وورد ولكنني لا أتذكر أي ملف هو هذا الملف هل أفتح كل الملفات وأبحث فيها؟ ماذا أفعل؟ أخبروني مفيش حل معقول أبدأ الحل اليوم بإذن الله تعالى في برنامج صغير جدًا تجدونه بالمرفقات - كالعادة - يبحث لنا في أي كمية من ملفات الوورد وبمنتهى الدقة ليس هذا فقط، بل بإمكانه أن يفتح لك الملف الذي به الكلمة المختارة، بل ويقوم بتلوين الكلمة أو الجملة وفيه غير هذا من الإمكانيات التي وهبها الله للإنسان وسخَّرها له فقط تابع الصور وقم بالتحميل واستبدال الكراك كما هو مبين بالصور لم أحب أن أضع لكم صور التسطيب لعدم احتوائه على الجديد، فالتسطيب يكون بالطريقة العادية دون اختراعات مني بعد التسطيب لا تفتح البرنامج، بل قم بالذهاب إلى مكان التسطيب واستبدل الكراك ووافق على الاستبدال ثم قبل البحث عن المراد قم باختيار أية لغة عربية من قائمة الفونت التحميل في المرفقات 32exam-setup.rar
    1 point
  31. مثال علي اختيار رقم عشوائي مع السماح بالتكرار أو عدم السماح ( لابو حمود ) RANDOM_abuh.rar
    1 point
  32. مثال لاظهار الأذكار بالتتابع المثال للأخ فهد الدوسري AZKAR_FHD.rar
    1 point
  33. أيضا تم اضافة مثال آخر الي نفس الموضوع فى الارشيف http://www.officena.net/ib/index.php?act=S...&st=0#entry6020 و مثال الأخ فهد مشكورا يعتمد علي ال RecordsetClone و المثال الذي أضفته عن طريق دالة Dcount
    1 point
  34. أخي :العصيمي جرب هذا المثال عله يفيدك فيما تريد إن شاء الله حاول أن تدخل معلومة متكررة في السجل كاملاً مثلاً الاسم____العمر___الهاتف فهد_____10______1234567 فهد_____10______1234567 أما لو أختلف أي معلومة في السجل فسوف يقبلها البرنامج.. مثلاً أختلاف العمر وتطابق باقي المعلومات فهد_____11______1234567 فهد_____10______1234567 أوأختلاف الاسم وتطابق باقي المعلومات وليد_____10______1234567 فهد_____10______1234567 أواختلاف الهاتف وتطابق باقي المعلومات فهد_____10______9876543 فهد_____10______1234567 أرجو أن يكون هذا هو ما تريده وتقبل تحياتي fahad_2003.zip
    1 point
  35. هل هذا الموضوع من ضمنها شرح دوال أكسس - دوال تجميع المجال http://www.officena.net/ib/index.php?showtopic=152 أيضا الامثلة فى هذا القسم دوال الأكسس http://www.officena.net/ib/index.php?s=&act=SF&f=30
    1 point
  36. شكرا للأخ سحاب علي مداخلته ، و سأحاول أيضا شرح الفكرة فيما يلي : و طبعا الموضوع عرضة لافكار كثيرة و لكن ساشرح فكرة لتوضيح الطريقة ( طريقة التعامل مع الدوال و التأكد من الرصيد ) . مع ملاحظة أني كتبت الكود التالي سريعا و لم أجربه فعليا ( لتوضيح الفكرة فقط ) لنفرض أن الرصيد المتاح يسجل فى جدول الموظفين كاجمالي المسموح به لكل موظف. و المستهلكات تسجل فى جدول الاجازات كتاريخ بداية و نهاية و منها علي النموذج تحسب عدد الايام المطلوب تسجيلها كأجازة ( مدة الاجازة ) ومدة الاجازة هي التي سنقوم باختبار هل الرصيد يسمح بها أم لا txtnewRquest هو مربع النص الذي يتم منه تسجيل مدة الاجازة فى جدول الاجازات سواء مباشرة بالكتابة فيه أو بالكود بعد تحديث تواريخ بداية و نهاية الاجازة علي النموذج txtempId هو كود الموظف علي النموذج txtremaining مربع نص غير منضم يتم حساب المتبقي فيه بالكود ( قبل تسجيل الاجازة التي يتم اختبارها حاليا ) txtRassed مربع نص غير منضم يتم حساب الرصيد الاصلي فيه بالكود و لدينا جدولان الاول الموظفين و اسمه tblemp و به حقل الرصيد الكلي Total و حقل كود الموظف empId و جدول حركة الاجازات tblVications و به حقل المستهلك used و كود الموظف empId بالاضافة الي توايخ الاجازة و لكن هي ليست موضوعنا هنا و الكود ينفذ من زر أمر فى نموذج الاضافة الي جدول الاجازات فاما يقوم باظهار رسالة برفض التسجيل لعدم وجود الرصيد ، أو يحسب لنا القيم و يضعها علي النموذج و طبعا هذا لا يكفي لاتمام العمل و التسجيل ، و لكن فقط أردت توضيح النقطة المطلوبة وان لم يكن الشرح التالي واضحا ، فأرجو أن يفي مثال الاخ سحاب بما تريد Dim Rassed, used As Integer Rassed = DLookup("[Total]", "tblemp", "[empId]=" & Me.txtempId) used = DSum("[used]", "tblVications", "[empId]=" & Me.txtempId) If (Rassed - used) < Me.txtnewRquest Then MsgBox "No Rassed available" Exit Sub Else Me.txtRassed = Rassed Me.txtremaining = (Rassed - used) MsgBox " Vications Can be Taken !! " End If
    1 point
  37. السلام عليكم هذا مثال لمن يريد معرفة عدد حروف أي جملة عربية وبالتفصيل قام بتعديل الكود ليصبح بهذا الشكل الذي في المثال أستاذي المبدع أبو هادي وله مني وافر الشكر والعرفان . (( يوجد في المثال نموذجين قبل تعديل الأستاذ أبو هادي وبعد التعديل )) ولكم تحياتي أخوكم : فهد الدوسري A_B_C.zip
    1 point
  38. السلام عليكم شكرا جزيلا أخي فهد على هداياك الجميلة . تحياتي .
    1 point
  39. ضع فى خانة القيمة الافتراضية لمربع النص d1 = Format(now(); "ddd")
    1 point
  40. موضوع ذو صلة و ان كان لا علاقة له بالسؤال التعرف علي اللغة الحالية و تغييرها و التحكم فيها
    1 point
  41. السلام عليكم كذلك يمكن استخدام دالة Format وذلك كالتالي : =Format(Date(),"ddd") أو للأسماء الكاملة كالتالي : =Format(Date(),"dddd") تحياتي .
    1 point
  42. أخي العزيز، جرب استخدام دالة () date في القيمة الإفتراضية للعمود بدلا من () time وفي التنسيق أكتب ddd مع تحياتي
    1 point
  43. يا عزيزي ،،،،، وهذا مثال آخر على ( xp ) ،،، تختلف الأوامر فيه ,,,, تصفحه ،،،، ربما تستفيد منه هو أيضاً ,,,, أسالكم الدعاء ,,,, شاكر dayname_xp.zip
    1 point
  44. أخي الكريم ،،،، السلام عليكم ورحمة الله وبركاته لإظهار اسم اليوم لتاريخ معين ،،، اعمل مربع نص اجعل مصدر عنصر التحكم له هذا الكود : =Weekday([Date]) سوف يظهر لك في مربع النص هذا رقم اليوم اعمل مربع نص آخر ليظهر لك فيه ( اسم اليوم ) ،،، مثلاً حدد مربع نص اسمه ( combo2 ) وهذا الذي سوف يظهر فيه اسم اليوم ،،،، أنشيء مربع نص لإدخال التاريخ وليكن اسمه ( date ) ،،، ضع هذا الكود في حدث بعد التحديث لهذا الحقل : If day = 1 Then Me![combo2] = "السبت" ElseIf day = 2 Then Me![combo2] = "الأحد" ElseIf day = 3 Then Me![combo2] = "الإثنين" ElseIf day = 4 Then Me![combo2] = "الثلاثاء" ElseIf day = 5 Then Me![combo2] = "الأربعاء" ElseIf day = 6 Then Me![combo2] = "الخميس" ElseIf day = 7 Then Me![combo2] = "الجمعة" End If DoCmd.Requery "combo2" لقد عملت مثالاً لذلك ،،،، عسى أن يفي بالغرض شاكر dayname_97.zip
    1 point
  45. اجعل التنسيق الخاص بمربع النص الذي فيه اليوم الحالي هو "ddd" الذي مصدر بياناته هو : =Now()
    1 point
  46. تنسيق جديد للأرقام غير موجود بالتنسيقات الاساسية يناسب الأرقام بالخط العربى يضع الأرقام فى مجموعات ثلاثية و يظهر القيم السالبة باللون الأحمر و بين قوسين Formating.zip
    1 point
×
×
  • اضف...

Important Information