الفريق العربي للبرمجةأرشيف المنتديات · 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

      

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

    

  

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