هل يمكن استيراد كود من ملف نصي وتشغيله. مع العلم ان الكود يتغير وقاعدة البيانات mde

[H_O_A 1]

السلام عليكم ورحمة الله وبركاته

الاخوة الكرام ؛

ابحث عن طريقة لاستيراد كود من ملف نصي واقوم بتشغيله من داخل الـ VBA

بمعني أخر ؛ أقوم بكتابة الكود داخل ملف نصي ؛ واضع هذا الملف في كمان محدد مقدما؛ ثم اقوم بفتح نموذج واضغط علي زر يقوم بتنفيذ ماهو مكتوب في الملف النصي.

وجدت طريقة ولكنها تقوم بتشغيل الكود اذا كان سطر واحد فقط.... وكذلك لاحظت ان التنفيذ علي شكل ماكرو وليس علي شكل كود VBA

التجربة نجحت مع رسالة Msgbox ولكنها فشلت عند كتابة كود متعدد السطور كـ while

ارجو ان تكون الفكرة واضحة

 

هذا الكود يقوم باستراد الكلام المكتوب في الملف النصي ويقوم بتشغيل الكلام المكتوب فيه

Dim strFilename As String: strFilename = "C:\dvr\codee.txt"
Dim strFileContent As String
Dim iFile As Integer: iFile = FreeFile
Open strFilename For Input As #iFile
strFileContent = Input(LOF(iFile), iFile)
Close #iFile
Eval (strFileContent)

وهذا ما هو مكتوب داخل الملف النصي

msgbox ("السلام عليكم")

 

[Gaham 110]

في الحقيقة سؤالك هذا أثار فضولي لكون قاعدة البيانات mde لكن أعتقد أنك سوف تحولها بعد البرمجة على كل حال الطريقة موجودة في الشفرة التي أرفقتها وهي ببساطة أن تجعل الشفرة في سطر واحد وتفصل بين تعليماتها بعلامة النقطتين (:) ارجع إلى مشاركتك ولاحظ هذا!

من المفترض أن يكون الاعلان عن المتغير في سطر واسناد القيمة في سطر آخر ولكن تم دمجهما بعلامة النقطتين!

الاستاذة زهرة لها مشاركة بهذا الخصوص أجابت فيها على سؤال للاستاذ إكسير بهذا الخصوص 

تم تعديل 4 Sep 2016 بواسطه Gaham
إشارة مرجعية

[H_O_A 1]

اشكرك علي المشاركة

حسنا ؛ لنضع هذا الكود في ملف نصي

Dim a As Long
Dim b As Long

a = 1
b = 5

While a <= b

    MsgBox "HI" & " " & a
    
    a = a + 1

Wend

 

السؤال: كيف يمكن تنفيذ هذا الكود عند الضغط علي زر أمر؟

أرجو منك كذلك رابطة مشاركة الاستاذة زهرة ؛ حاولت البحث ولكن فشلت

 

شكرا

 

[H_O_A 1]

وجدت رابط الموضوع.

ولكن للاسف لا يعمل عند تحويل قاعدة البيانات الي MDE .

فكرة الكود اللي استاذتنا زهرة كتباه مبني علي استيراد الكود من ملف نصي ثم انشاء وحدة نمطية جديدة بهذا الكود. وانشاء وحدة نمطية جديدة يتطلب ان قاعدة البيانات تكون مفتوحة.

السؤال: هل يمكن كتابة الكود بشكل تاني بحيث يقبل مع MDE ؟؟

 

رابط الموضوع لاستاذتنا زهرة والمبدع الجميل اكسير:

 

 

[Gaham 110]

نعم هناك طريقة أخرى استخدمها أنا بكثرة وهي استخدام مكون المتصفح Web Browser Control.

بهذه الطريقة أحسن من عرض البيانات على النموذج وأيضا أمرر ما أحتاجه من الشفرة إما بالتضمين أو بالمعالجة الخارجية للبيانات وثم عرضها على مكون المتصفح.

لي مشاركات عديدة بهذا الخصوص لكن لما لم يكن هناك تجاوب مع الفكرة لم أقم بالشرح التفصيلي لبعضاها.. أرجو أن تتطلع عليها.. وإذا كنت متحمسا للفكرة قم بطرحاها في مشاركة جديدة.