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

أ / محمد صالح

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

  • Posts

    4,444

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

  • Days Won

    192

 نوع المحتوي 

كل منشورات العضو أ / محمد صالح

  1. أ / محمد صالح
    لا تحتاج لكتابة الكود في أكسس ثم تصديره إلى إكسل فقط تحتاج كتابة جميع سطور الأوامر الخاصة بالإكسل بين السطرين with xl end with وكأنك في تطبيق الإكسل تماما مثلا .activesheet.range("a1").value=5555555
  2. أ / محمد صالح
    ما شاء الله شكرا خاص للأستاذ @رفعت يسري حامد لقيامه بالتحايل على المطلوب الذي أسعد أخانا مصطفى شاهين الله يعطيك العافية، تم حل المشكلة بإضافة كود تم إدراجه بالمشاركات أعلاه. أشكر لكم جهودكم الطيبة معنا والحمد لله صدق كلامي مع الأستاذ مصطفى ولم يتم الحل بجدول محتويات قائم على الإشارات المرجعية حيث أن ذلك غير ممكن في الوورد
  3. أ / محمد صالح
    بفضل الله الموضوع بسيط لفتح الإكسل على مصنف معين وتشغيل ماكرو معين فيه استعمل هذه الدالة Function runExcelMacro(wkbookPath, macroName) Dim XL As Object Set XL = CreateObject("Excel.Application") With XL .Visible = False .displayalerts = False .Workbooks.Open wkbookPath .Run macroName .ActiveWorkbook.Close (True) .Quit End With Set XL = Nothing End Function وطريقة استدعائها هكذا Sub mas() Call runExcelMacro("C:\myworkbook.xls", "Macro1") End Sub الباراميتر الأول مسار الملف وليس اسمه فقط والثاني اسم الإجراء موفق بإذن الله
  4. أ / محمد صالح
    يفضل تصوير الرسالة حتى نتعرف معك على الخطأ ويمكن معالجته
  5. أ / محمد صالح
    أخي الكريم حتى يسهل عليك كتابة الكود يفضل أن تقوم بتسمية الجداول والحقول بحروف انجليزية وهي عادة حسنة يتبعها كل المبرمجين والمحترفين ولذا ينبغي عليك تسمية الجدول بـ names وحقل المعرف بـ id ثم أضف هذا الكود في حدث قبل الإدراج Private Sub Form_BeforeInsert(Cancel As Integer) If DCount("*", "[names]") >= 10 Then DoCmd.RunSQL "delete from names where id=" & DMin("id", "[names]") End If End Sub ومعناه كالتالي: إذا كان عدد السجلات في جدول names يساوي 10 يجري استعلام حذف السجل صاحب رقم id الأصغر موفق بإذن الله
  6. أ / محمد صالح
    يبدو أن فكرة تطبيق ما تعلمه كل منا في الفيديو وصناعة ملف كدليل على الفهم الجيد فكرة صعبة ؟؟؟!!!
  7. أ / محمد صالح
    مرحبا بأهل عمان الطيبين أدام الله عليكم المحبة والسلام بالنسبة للمطلوب غريب قليلا هل تريد أن يسمح بإضافة سجلات جتى يصل العدد إلى 10 ثم بعد ذلك يتم منع الإضافة؟ وماذا بعد منع الإضافة؟ هل تريد أن يحذف السجل الأول ثم يتم إضافة الجديد مكانه أم بعد الأخير؟؟ المطلوب سهل بإذن الله لكن نحتاج للمزيد من التفاصيل وفقنا الله جميعا لكل خير
  8. أ / محمد صالح
    جميعا بإذن الله أستاذ @حلبي تقديرنا واحترامنا لكل ناشر للعلم وكل من يحث الناس على الفضيلة شكرا لمرورك العطر
  9. أ / محمد صالح
    شكرا لكلماتك الطيبة استاذ علي وبإذن الله ستجد طريقة جديدة للتعامل مع الشروح لجذب انتباه الأحباب أعضاء المنتدى
  10. أ / محمد صالح
    جميعا بإذن الله أستاذ فارس شكرا لمرورك العطر
  11. أ / محمد صالح
    لكل عشاق الحديث في برمجة الأوفيس المتقدمة VBA يسعدني أن أقدم لكم شرح كود ترجمة جوجل 2019 في فيجوال بيسك للتطبيقات vba الموجودة ضمن حزمة ميكروسوفت أوفيس وسيكون الشرح على الأكسس microsoft access 2019 ومعالجة خطأ عدم ظهور الترجمة التعرف على أكواد لغات العالم world languages codes الموجودة في ترجمة جوجل وعددها 105 لغة التعرف على أسماء لغات العالم بالإنجليزية وباللغة العربية وباللغة المحلية لكل لغة دالة معرفة لإيقاف تنفيذ الكود فترة من الثواني wait مثل application.wait الموجودة في إكسل كتابة سطرين كود في سطر واحد نطق النصوص من خلال vba بجميع لغات العالم text to speech ترجمة سجلات الجداول أو الاستعلامات من خلال ADO وغيرها الكثيييييير اكتشفها بنفسك رابط القناة لمن لم يشترك معنا حتى الآن https://www.youtube.com/ostazmas2 #ostazmas ************ فتابعونا وقوموا بتفعيل زر الجرس للتنبيه وقت صدور الفيديو وعلق ولو بحرف لكي تدعمنا للاستمرار من أجلكم ********************* وفي هذه المرة لن أضع لكم الملف المستخدم في الشرح ولكن سأطلب ممن فهم الشرح أن يقوم بتطبيقه ويرفع لنا هنا ما تعلمه فعلا كنتيجة الفيديو ///////////////// وتذكر معي الحكمة القائلة: لا تعطني سمكة ولكن علمني كيف أصطاد
  12. أ / محمد صالح
    يوجد في المنتدى الكثير من البرامج لحماية الكود وبدون مدة ويمكنك الاستفادة من هذا الموضوع في استخراج رقم الماذر بورد أو المعالج أو الهارد
  13. أ / محمد صالح
    أخي الكريم الهدق من الملف هو نسخة تجريبية وحضرتك تريد إلغاءها إذا ينبغي عليك عدم استعمال هذا الملف والاكتفاء ببرنامجكم
  14. أ / محمد صالح
    لا يحتاج الموضوع إلى تنزيل شيء فقط تنشيط المرجع في نافذة محرر الفيجوال بيسك من قائمة tools ثم references ثم تبحث عن المرجع المطلوب وتضغط في المربع الموجود بجواره
  15. أ / محمد صالح
    وفقكم الله لكل خير أستاذ خالد بمقارنة الملف الأصلي والملف الموجود في مشاركتكم وجد الآتي: * تم تغيير الدالة التي تجلب رقم الهارد ديسك بدالة أخرى من المفترض أنها تجلب رقم الماذر بورد ولذلك الخلل بهذه الدالة وليس في البرنامج إذا صححت الدالة التي تجلب رقم الماذر بورد الموجودة ضمن دالة getcode سيعمل معك جيدا راجع الملف الأصلي ستجد الكود مختلف ويجلب رقم الهارد ديسك ************* * كما أنه يوجد تغيير في حدث عند التحميل في نموذج التسجيل register بطريقة تخل بعمل البرنامج *************** للمرة الأخيرة يجب اتباع التعليمات الواردة في الفيديو حتى لا تحصل على أخطاء ******************** هذا هو رابط الملف الأصلي بدون أي تعديلات لمن لم يعرف مكان تحميله
  16. أ / محمد صالح
    يفضل إرفاق ملفات للتعديل عليه فربما لا يجد أحدنا وقتا لتصنيع مثال مع شرح ولكن يسهل تعديل الخطأ الوارد في الملف المرفق وفقنا الله جميعا لكل خير
  17. أ / محمد صالح
    عدم ظهور كود البرنامج يعني عدم تفعيل الأكواد بالضغط على زر تمكين المحتوى enable content في الشريط الذي يظهر أعلى البرنامج عند فتحه أو ربما تغيير الدالة التي تجلب رقم الهارد ديسك بطريقة خاطئة
  18. أ / محمد صالح
    أي ملف تقصد أخي الفاضل؟؟!!
  19. أ / محمد صالح
    ما رقم الخطأ الذي يظهر؟
  20. أ / محمد صالح
    عليكم السلام ورحمة الله وبركاته لعلك بخير أخي الكريم رجاء قراءة قواعد المشاركة في المنتدى حتى تستطيع الاستفادة بأقصى صورة ممكنة ومنها مثلا أن يكون عنوان الموضوع يدل على مضمونه فهل عنوان الموضوع السلام عليكم يدل على المضمون والذي هو حماية الشيت وعدم تحديد الخلايا المحمية ************** لعمل المطلوب اتبع الآتي حدد الخلايا المسموح الكتابة داخلها قم بإلغاء حماية هذه الخلايا وذلك بضغط CTRL+1 بعد التحديد ثم ستظهر نافذة اكتب كلمة المرور ثم احذف علامة الصح من الاختيار الأول ثم موافق ولا تنساني من صالح دعائك
  21. أ / محمد صالح
    ممكن تستبدل Sheets("Salim") ب Activesheet
  22. أ / محمد صالح
    هل النص لا يستجيب لتنسيقه مرة أخرى؟ وإعادة تغيير لون النص الذي صار أبيض
  23. أ / محمد صالح
    الشكر لله نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  24. أ / محمد صالح
    شكرا لكل من شارك في الموضوع وللمرة الألف الروابط تعمل 100% ولكن يبدو أن بعضنا يجيد سياسة الأخذ ولا يجيد سياسة العطاء وأرجو أن يفتح الله صدر أحبابي لقراءة هذا الموضوغ جيدا والتفاعل معه سواء بالسلب أو بالإيجاب بانتظار آراء الأصدقاء
  25. أ / محمد صالح
    بسم الله شكرا للأستاذ علي محمد على جهوده ولكن إذا سمح الأستاذ صاحب الموضوع يفضل وضع عنوان يدل على المطلوب وليس إلى أهل الخبرة أو العباقرة أو ما إلى ذلك ضع نفسك مكان المتصفح للمنتدى هل تفهم مضمون الموضوع إذا كان بمثل هذا العنوان؟؟!! وأعتقد أنك تريد معرفة اسم المحافظة من خلال الرقم القومي بالمعادلات فأنصحك بمتابعة هذا الفيديو به الحل بالكود وبالمعادلات وفقكم الله لك ما يحب ويرضى
×
×
  • اضف...

Important Information

  I accept