الأخوة الأعزاء
السلام عليكم
لدى جدول في قاعدة البيانات يحتوي أحد حقوله على برامج مثل الوورد والاكسل والفلاش وبرامج أخرى ) وما أرغب به هو وضع زر في أحد النماذج يقوم بفتح البرنامج الموجود في السجل نفسه .
لقد جربت وضع ماكرو لكن المشكلة أن الماكرو يشغل برنامج معين ولم أتمكن من جعله يأخذ البرنامج المراد تشغيله من الجدول وحسب السجل .
فهل من حل ... جزاكم الله خيرا
الأخ أبو بشاير
بشرك الله بالجنة جرب التالي :
With [اسم مربع النص المرتبط بحقل OLE]
.Verb = acOLEVerbPrimary
.Action = acOLEActivate
End With
لقد جربته مع صورة BMP و ملف صوتي WAV وملف نصي TXT واشتغل الجميع .
ولك تحياتي
الأخ العزيز / أبو حمود حفظه الله
جزاك الله أخي الكريم كل خير سواء على الدعاء لي أو بتعاونك في ايجاد الحل الذي كان كعادتك دائما حلا ناجعا وناجحا .
وللعلم فإنني خلال الفترة الماضية ولوجود مشكلة في الاتصالات لم أستطع الاطلاع على ردودك وقد اضطرتني الحاجة الملحة إلى البحث في التعليمات الخاصة بالأكسس فتوصلت إلى حل آخر لعل الأخوة ينتفعون به :
Private Sub CmdBig_Click()
Dim RetVal
Dim Tareeg
Tareeg = Me.Map!Brnamg
RetVal = Shell([Tareeg], 1)
End Sub
مرة أخرى الشكر الجزيل لك وأسال الله أن يزيدك عمرا ومعرفة وأن يجعل ذلك في ميزان حسناتك
الأخ أبو بشاير
لقد جربت الكود الذي كتبته على نفس الحقل OLE ولكن تظهر لي الرسالة : Invalid procedure call or argument مع تعليم السطر الذي فيه Shell ومعنى الرسالة حسب فهمي بسبب وسائط الدالة Shell .
عموما أظن أن الخطأ عندي هو في السطر :
Tareeg = Me.Map!Brnamg
حيث لم أفهمه جيدا فما هو MAP وكذلك Brnamg .
فهل أنت تشغل هذا الكود على مسار إلى ملفات يعني لا تحفظ الملفات في داخل القاعدة أم لا ؟
ولك تحياتي
نعم صحيح أخي أبو حمود لقد استخدمت الدالة Shell
اسم نموذج فرعي = Map
اسم الحقل الذي يتضمن مسار البرنامج = Brnamg
الكود هو لتشغيل برامج مثل الوورد والاكسل والحاسبة والفلاش وغيرهاوفقا للمسار الموجود في الجدول كما أن النموذج لا يحتوي على حقل OLE كما أنني لا أقوم بحفظ الملفات ضمن القاعدة منعا لتضخمها
الأخ أبو بشاير
عذرا لكثرة الأسئلة ولكن هل تحفظ الملف الخاص بالبرنامج مثل ملف TXT مع المسار إليه أم تحفظ الملف التنفيذي للبرنامج الذي يفتحه وكيف تحصل على مسار الملف التنفيذي ؟
ولك تحياتي
الأخ العزيز أبو حمود
أنا أقوم فقط بحفظ مسار الملف التنفيذي للبرنامج وياليت نتساعد في امكانية الوصول إلى الملف المحفوظ ( لا أعتقد أنها صعبة عليك )
عموما هذا مثال عما كنت أقوم به
http://mypage.ayna.com/bshr8/Shell.zip
تنويه : المثال على اكسس 97
الأخ ابو بشاير
لقد اطلعت على الملف الذي أرسلته لي وقد لاحظت عند ضغط زر استعراض ثم ضغط إلغاء الأمر تمسح البيانات الموجودة سابقا في الحقل ، وتركها بهذا الشكل يضيع عليك البيانات خاصة عند ضغط زر استعراض دون قصد ، والحل :
استبدل السطر الأخير بهذا السطر :
If Not IsNull(Me![brnamg]) Then Me![brnamg] = LCase(Me![brnamg])
بالنسبة للحصول على مسار ملف تنفيذي راجع هذا الرابط ففيه مثال ممتاز معمول بالفيوجل بيسك فقط ضع لاحقة الملف في القائمة المنسدلة ثم اضغط زر الأمر بالأسفل ومباشرة يخرج مسار الملف :
http://www.vb4arab.com/cgi-bin/ubbcgi/ulti...ic&f=1&t=006826
ولك تحياتي
أخي العزيز / أبو حمود
الله لا يحرمنا من اسهاماتك
لقد جربت ما قلت فكانت النتيجة نفسها ( عموما ذلك لا يشكل لي مشكلة حيث أنني لا أستخدم مطلقا حقولا منضمة في قواعد البيانات التي أقوم بعملها )
وشكرا على المثال
الأخ ابو بشاير
هذا مثال آخر أي ملف ويشغل أي ملف تنفيذي وجدته في أحد المنتديات كمشروع VB وحولته إلى الأكسس .
الاخ ابو حمود لم نجد الملف .
أنقذونا من التحسينات الجديدة في الموقع فإننا لم نعد تحمل الوقت بدون ملفات الأمثلة :mad:
الأخ الغريب
المشكلة من المنتدى وليست مني .
تفضل الملف على هذا الرابط :
http://mypage.ayna.com/h_h123/OPEN.zip
ولك تحياتي
أشكرك من أعماق قلبي و صل المثال ما رأيك أستاذي أبو حمود أن تعتمد هذه الطريقة في إنزال الأمثلة إلى أن يتم إصلاح برمجة المتندى بشكل يمكننا من تنزيل الأمثلة و الإستفادة منها
لك من التحية و للقائمين على المنتدى كل الشكر و التقدير:P
والله لظاهر أني أبعمل كذا ، وفكرة الملفات مع الرد فكرة ممتازة ولكن ما باليد حيلة . :(
وفقك الله لكل خير .
ولك تحياتي
هذا الموضوع مغلق.