السلام عليكم اخواني
هذ الكود لفتح ملف وورد اسمه z
Private Sub edoc_Click()
Set X = CreateObject("Word.Application")
X.Documents.Open CurrentProject.Path & "\z.Doc"
X.Visible = True
End Subانا اريد فتح ملف الوورد حسب الاسم الذي اعطيه في النموذج
فتح ملف وورد عن طريق الاكسس
abdalla89 كتب:السلام عليكم و رحمة الله
اليك الكود بعد التعديل
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
abdalla89 كتب:شكرا لك أيضا على تقديرك لمجهودي
طبعا اكيد و بدون نقاش +1
اعجبت بثقتك بنفسك
استازي ممكن تغير الكود حتى افتح ملف وورد داخل مجلد اسمه Arshef الموجود عند قاعدة البيانات
جزاك الله خير
abdalla89 كتب:السلام عليكم أخي
تكرااااااااااااااااااااااااااااااااااااااااااااااام هذه بلهجتنا "الحلبية"
Private Sub edoc_Click() Set X = CreateObject("Word.Application") X.Documents.Open CurrentProject.Path &"\Arshef\"& me.name & ".Doc" X.Visible = True End Subتحياتي
الله يكرمك ياأستاذي
هي لهجة درعاوية ههههههه
حياك الله