الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عاجل___زر أمر لتشغيل ملف

بدأه X.Code في 28 ديسمبر 2008 · 6 رد · 567 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أريد كود احطه بزر أمر يقوم يشغل لي ملف وورد مخزن مسبقاً على الدريف سي.

#2

استخدمت الكود التالي لكن لم يشتغل:

Shell ("C:\T\Template.doc"), vbMaximizedFocus

فأين الخلل يا جماعة.؟ :unsure:

تم تعديل هذه المشاركة بواسطة X.Code في 28 ديسمبر 2008 في 12:58

#3

تفضل اخي الكريم طريقة عمل الكود حسب طلبك

  1. Dim x AS Integer
  2.     Dim AppName AS String
  3.      AppName = "C:Program FilesMicrosoft OfficeOffice10WINWORD.EXE" & " " & [FLIELOCATION]
  4.      x = Shell(AppName, 1)
  5.  
  1. [FLIELOCATION]
  2.  

هو اسم الحقل في النموذج المخزن به مسار الملف
وهذه طريقة ثانية للاخت الفاضلة ام عهود.
تقبل تحياتي
اخوك ابو عدنان
zaOpenWord.rar

      
      

      
27169617.gif

    

  

    
    

      
#4
        
        

      
اخوي ابو عدنان يعطيك الف عاااافيه
لكن باث الملف اللي ابيه يشتغل عند الضغط على زر الأمر هو التالي:
C:\T\Template.doc
فأين اضع هذا الباث في الكود.؟ :unsure:

      
      

      
    

  

    
    

      
#5
        
        

      
عند تطبيق الأمر تظهر لي المسج التالية:
post-176097-1230465010_thumb.png

      
      

      
    

  

    
    

      
#6
        
        

      
اخي الكريم يبدو انك لم تنتبه الى آخر المشاركة
هذا مربع النص قم بإنشائه على الفورم بالاسم المدون ادناه  ويفترض انه يحتوي على بيان لمسار ملف الورد.
  1. [FLIELOCATION]
  2.  


      
      

      
27169617.gif

    

  

    
    

      
#7
        
        

      
أخي جرب هذا الكود
Dim x AS Integer
	Dim AppName AS String
	 AppName = "C:\Program Files\Microsoft Office\Office10\WINWORD.EXE" & " " & "C:\T\Template.doc"
	 x = Shell(AppName, 1)

      
تم تعديل هذه المشاركة بواسطة mas123 في 28 ديسمبر 2008 في 20:50

      

      
التغير هو القانون الدائم للحياة.ودوام الحال من المحال
فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟
 موقعي

    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر ساعة · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…