• 0
ebraheem-w

فتح ملف وورد عن طريق الاكسس

سؤال

السلام عليكم اخواني

هذ الكود لفتح ملف وورد اسمه z


Private Sub edoc_Click()
Set X = CreateObject("Word.Application")
X.Documents.Open CurrentProject.Path & "\z.Doc"
X.Visible = True
End Sub

انا اريد فتح ملف الوورد حسب الاسم الذي اعطيه في النموذج

0

شارك هذا الرد


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

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

  • 0

السلام عليكم اخواني

هذ الكود لفتح ملف وورد اسمه z


Private Sub edoc_Click()
Set X = CreateObject("Word.Application")
X.Documents.Open CurrentProject.Path & "\z.Doc"
X.Visible = True
End Sub

انا اريد فتح ملف الوورد حسب الاسم الذي اعطيه في النموذج

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

اليك الكود بعد التعديل

Private Sub edoc_Click()
Set X = CreateObject("Word.Application")
X.Documents.Open CurrentProject.Path &"\"& me.name & ".Doc"
X.Visible = True
End Sub

حيث me.name هو اسم مربع النص الذي في اسم ملف الوورد

تحياتي

تم تعديل بواسطه abdalla89
1

شارك هذا الرد


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

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

اليك الكود بعد التعديل

Private Sub edoc_Click()
Set X = CreateObject("Word.Application")
X.Documents.Open CurrentProject.Path &"\"& me.name & ".Doc"
X.Visible = True
End Sub

حيث me.name هو اسم مربع النص الذي في اسم ملف الوورد

تحياتي

اشكرك اخي انه بالفعل مااريد

جزاك الله كل خير

+1

2

شارك هذا الرد


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

شكرا لك أيضا على تقديرك لمجهودي

طبعا اكيد و بدون نقاش +1

0

شارك هذا الرد


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

شكرا لك أيضا على تقديرك لمجهودي

طبعا اكيد و بدون نقاش +1

اعجبت بثقتك بنفسك

استازي ممكن تغير الكود حتى افتح ملف وورد داخل مجلد اسمه Arshef الموجود عند قاعدة البيانات

جزاك الله خير

0

شارك هذا الرد


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

السلام عليكم أخي

تكرااااااااااااااااااااااااااااااااااااااااااااااام هذه بلهجتنا "الحلبية"

Private Sub edoc_Click()
Set X = CreateObject("Word.Application")
X.Documents.Open CurrentProject.Path &"\Arshef\"& me.name & ".Doc"
X.Visible = True
End Sub

تحياتي

1

شارك هذا الرد


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

السلام عليكم أخي

تكرااااااااااااااااااااااااااااااااااااااااااااااام هذه بلهجتنا "الحلبية"

Private Sub edoc_Click()
Set X = CreateObject("Word.Application")
X.Documents.Open CurrentProject.Path &"\Arshef\"& me.name & ".Doc"
X.Visible = True
End Sub

تحياتي

الله يكرمك ياأستاذي

هي لهجة درعاوية ههههههه

حياك الله

0

شارك هذا الرد


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

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

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



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

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

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