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

الردود الموصى بها

قام بنشر

وعليكم السلام 🙂

 

اذا كان سؤالك: ما هي طرق الدخول الى محرر الاكواد VBE ، غير عن طريق اعدادات الكائنات في النموذج ؟

فهناك: Alt + F11

Ctrl + G

ومن الشاشة الرئيسية :

image.png.1a91c240bf42c8cb35dea0a820f48c03.png

.

وبجميع هذه الطرق يمكنك كتابة او تحديث او تغيير كود ، اذا كان البرنامج بصيغة mdb او accdb ،

اما اذا كان البرنامج بصيغة mde او accde ، فلا يمكنهم رؤية الكود حتى وان دخلوا على VBE 🙂

 

جعفر

  • Like 3
قام بنشر

انت اعدت كتابة سؤالك بطريقة تختلف ، ومن الواضح ان سؤالك غير واضح !!

رجاء اعطنا تفصيل ، خطوة بخطوة ، ولا تجعلنا نخمن 🙂

 

جعفر

قام بنشر

السلام عليكم

  في 4‏/6‏/2021 at 15:02, jjafferr said:

انت اعدت كتابة سؤالك بطريقة تختلف ، ومن الواضح ان سؤالك غير واضح !!

Expand  

أستاذ جعفر حياك الله 

أظن أن الأخ الكريم يريد التعديل على الأكواد الموجود في vbe باستخدام كود برمجي

بعد إصابة جهازي بفيروس فدية قمت بالعمل على هذا الموضوع و هو:

- إستخراج الأكواد الموجودة

- التعديل على سطر معين

- إضافة سطر برمجي

و كلها من خلال أكواد VBA سواءا من داخل القاعدة نفسها أو من قاعدة أخرى

لكنها لم تعمل معي مع صيغة MDE و ACCDE

هل هذا ما تريده أخي أم عندك طلب آخر

  • Like 1
قام بنشر

شكرا جزيلا على الشرح 🙂

الظاهر انكم تفهمون بعض اكثر ، انتم الجيران 🙂

 

  في 4‏/6‏/2021 at 21:24, صالح حمادي said:

- إستخراج الأكواد الموجودة

- التعديل على سطر معين

- إضافة سطر برمجي

كلها من خلال أكواد VBA سواءا

1. من داخل القاعدة نفسها

2. أو من قاعدة أخرى

Expand  

يا ريت تثري الموضوع بشرح الطرق 🙂

 

جعفر

 

قام بنشر
  في 5‏/6‏/2021 at 06:54, jjafferr said:

الظاهر انكم تفهمون بعض اكثر ، انتم الجيران 🙂

Expand  

ههههههه لم أرى  البلد إلا الآن فقط

  في 5‏/6‏/2021 at 06:54, jjafferr said:

يا ريت تثري الموضوع بشرح الطرق 🙂

Expand  

بإذن الله أنا الآن على الهاتف. لما أفتح الكمبيوتر سوف أضعه

  • Like 1
قام بنشر

السلام عليكم

الكود التالي يعطيني عدد الأسطر البرمجية في محرر الأكواد:

MsgBox Me.Module.CountOfLines ' حساب عدد الأسطر

الكود التالي يعطي نص الأوامر البرمجية الموجودة من السطر 1 حتى السطر 6:

MsgBox Me.Module.Lines(1, 6) 'استخراج الأكواد الموجودة

الكود التالي يقوم بإضافة سطر أو أسطر برمجية جديدة:

Me.Module.InsertText "MsgBox 2020"  ' إضافة أكواد جديدة

الكود التالي يقوم بتغيير السطر رقم 4 بسطر آخر:

Me.Module.ReplaceLine 4, "Dim x as Integer" ' تغيير سطر معين بسطر جديد

الكود التالي يقوم بحذف الأسطر البرمجية 3 أسطر بداية من السطر رقم 4:

Me.Module.DeleteLines 4, 3

 

  • Like 4
  • Thanks 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information