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

أ / محمد صالح

أوفيسنا
  • Posts

    4,357
  • تاريخ الانضمام

  • Days Won

    185

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

  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. لكل عشاق الحديث في برمجة الأوفيس المتقدمة VBA يسعدني أن أقدم لكم شرح كود ترجمة جوجل 2019 في فيجوال بيسك للتطبيقات vba الموجودة ضمن حزمة ميكروسوفت أوفيس وسيكون الشرح على الأكسس microsoft access 2019 ومعالجة خطأ عدم ظهور الترجمة التعرف على أكواد لغات العالم world languages codes الموجودة في ترجمة جوجل وعددها 105 لغة التعرف على أسماء لغات العالم بالإنجليزية وباللغة العربية وباللغة المحلية لكل لغة دالة معرفة لإيقاف تنفيذ الكود فترة من الثواني wait مثل application.wait الموجودة في إكسل كتابة سطرين كود في سطر واحد نطق النصوص من خلال vba بجميع لغات العالم text to speech ترجمة سجلات الجداول أو الاستعلامات من خلال ADO وغيرها الكثيييييير اكتشفها بنفسك رابط القناة لمن لم يشترك معنا حتى الآن https://www.youtube.com/ostazmas2 #ostazmas ************ فتابعونا وقوموا بتفعيل زر الجرس للتنبيه وقت صدور الفيديو وعلق ولو بحرف لكي تدعمنا للاستمرار من أجلكم ********************* وفي هذه المرة لن أضع لكم الملف المستخدم في الشرح ولكن سأطلب ممن فهم الشرح أن يقوم بتطبيقه ويرفع لنا هنا ما تعلمه فعلا كنتيجة الفيديو ///////////////// وتذكر معي الحكمة القائلة: لا تعطني سمكة ولكن علمني كيف أصطاد
  11. يوجد في المنتدى الكثير من البرامج لحماية الكود وبدون مدة ويمكنك الاستفادة من هذا الموضوع في استخراج رقم الماذر بورد أو المعالج أو الهارد
  12. أخي الكريم الهدق من الملف هو نسخة تجريبية وحضرتك تريد إلغاءها إذا ينبغي عليك عدم استعمال هذا الملف والاكتفاء ببرنامجكم
  13. لا يحتاج الموضوع إلى تنزيل شيء فقط تنشيط المرجع في نافذة محرر الفيجوال بيسك من قائمة tools ثم references ثم تبحث عن المرجع المطلوب وتضغط في المربع الموجود بجواره
  14. وفقكم الله لكل خير أستاذ خالد بمقارنة الملف الأصلي والملف الموجود في مشاركتكم وجد الآتي: * تم تغيير الدالة التي تجلب رقم الهارد ديسك بدالة أخرى من المفترض أنها تجلب رقم الماذر بورد ولذلك الخلل بهذه الدالة وليس في البرنامج إذا صححت الدالة التي تجلب رقم الماذر بورد الموجودة ضمن دالة getcode سيعمل معك جيدا راجع الملف الأصلي ستجد الكود مختلف ويجلب رقم الهارد ديسك ************* * كما أنه يوجد تغيير في حدث عند التحميل في نموذج التسجيل register بطريقة تخل بعمل البرنامج *************** للمرة الأخيرة يجب اتباع التعليمات الواردة في الفيديو حتى لا تحصل على أخطاء ******************** هذا هو رابط الملف الأصلي بدون أي تعديلات لمن لم يعرف مكان تحميله
  15. يفضل إرفاق ملفات للتعديل عليه فربما لا يجد أحدنا وقتا لتصنيع مثال مع شرح ولكن يسهل تعديل الخطأ الوارد في الملف المرفق وفقنا الله جميعا لكل خير
  16. عدم ظهور كود البرنامج يعني عدم تفعيل الأكواد بالضغط على زر تمكين المحتوى enable content في الشريط الذي يظهر أعلى البرنامج عند فتحه أو ربما تغيير الدالة التي تجلب رقم الهارد ديسك بطريقة خاطئة
  17. عليكم السلام ورحمة الله وبركاته لعلك بخير أخي الكريم رجاء قراءة قواعد المشاركة في المنتدى حتى تستطيع الاستفادة بأقصى صورة ممكنة ومنها مثلا أن يكون عنوان الموضوع يدل على مضمونه فهل عنوان الموضوع السلام عليكم يدل على المضمون والذي هو حماية الشيت وعدم تحديد الخلايا المحمية ************** لعمل المطلوب اتبع الآتي حدد الخلايا المسموح الكتابة داخلها قم بإلغاء حماية هذه الخلايا وذلك بضغط CTRL+1 بعد التحديد ثم ستظهر نافذة اكتب كلمة المرور ثم احذف علامة الصح من الاختيار الأول ثم موافق ولا تنساني من صالح دعائك
  18. هل النص لا يستجيب لتنسيقه مرة أخرى؟ وإعادة تغيير لون النص الذي صار أبيض
  19. شكرا لكل من شارك في الموضوع وللمرة الألف الروابط تعمل 100% ولكن يبدو أن بعضنا يجيد سياسة الأخذ ولا يجيد سياسة العطاء وأرجو أن يفتح الله صدر أحبابي لقراءة هذا الموضوغ جيدا والتفاعل معه سواء بالسلب أو بالإيجاب بانتظار آراء الأصدقاء
×
×
  • اضف...

Important Information