• 0
H_O_A

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

سؤال

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

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

ابحث عن طريقة لاستيراد كود من ملف نصي واقوم بتشغيله من داخل الـ 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 ("السلام عليكم")

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

4 إجابة على هذا السؤال .

  • 0

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

2016-09-04_2221.png.fadcf07cff990f9deeae

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

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

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

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

Dim a As Long
Dim b As Long

a = 1
b = 5

While a <= b

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

Wend

 

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

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

 

شكرا

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

 

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

 

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .