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

[مختار الشارني]

هل يمكن الدخول عبر نموذج اكسس  الى محرر الاكواد وكتابة او تحديث او تغيير كود ؟؟؟؟

[jjafferr]

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

 

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

فهناك: Alt + F11

Ctrl + G

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

.

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

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

 

جعفر

[مختار الشارني]

وعليكم السلام اخي 
ولكني اقصد التالي :

هل يمكن من خلال نموذج تحرير كود او تغييره او تحديثه دون الدخول الى شاشة اكسس ؟؟؟

[jjafferr]

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

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

 

جعفر

[صالح حمادي]

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

[jjafferr]

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

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

 

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

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

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

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

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

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

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

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

 

جعفر

 

[صالح حمادي]

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

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

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

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

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

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

[صالح حمادي]

السلام عليكم

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

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

 

[jjafferr]

شكرا جزيلا 🙂

 

جعفر

[صالح حمادي]

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

شكرا جزيلا 🙂

 

العفو أستاذنا حاولت جاهدا الإستفادة منها مع صيغة mde و accde و لكنني فشلت