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

الدخول عبر نموذج اكسس الى محرر الاكواد


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

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

 

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

فهناك: Alt + F11

Ctrl + G

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

image.png.1a91c240bf42c8cb35dea0a820f48c03.png

.

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

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

 

جعفر

  • Like 3
رابط هذا التعليق
شارك

السلام عليكم

6 ساعات مضت, jjafferr said:

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

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

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

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

 

9 ساعات مضت, صالح حمادي said:

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

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

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

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

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

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

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

 

جعفر

 

رابط هذا التعليق
شارك

3 دقائق مضت, jjafferr said:

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

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

3 دقائق مضت, jjafferr said:

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

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

  • 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