مطلوب كود لفتح : قاعدة بيانات أخرى و اكسل و وورد (معدل)

[زين المهندس]

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

ابحث عن كود يفتح :-

1) واجهة (FORM) موجودة في قاعدة بيانات اكسز ثانية .

2) يفتح برنامج اكسل او وورد .

من خلال استعمال ازرار الاوامر (DOCMD) 

و ممنون منكم مقداً .

[بحار الاكسس]

لفتح الاكسل هذا الكود

Dim oApp As Object

   Set oApp = CreateObject("Excel.Application")
   oApp.Visible = True
 

لفتح الوورد هذا الكود

 Dim oApp As Object

   Set oApp = CreateObject("Word.Application")
   oApp.Visible = True

[زين المهندس]

شكرا على المعلومة بحار الاكسس , ولكن الا نحتاج الى تحديد مكان وجودالوورد و الاكسل ؟

[ابوخليل]

وهذا لفتح قاعدة بيانات اكسس

Dim app As New Access.Application
app.OpenCurrentDatabase "D:\mydb.mdb"

 

[أبو عبدالله الحلوانى]

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

إضافة الى ما تقدم به أساتذتى الكرام هذا الكود لفتح أي ملف خارجى ورد اكسل بوربينت أكسس أو أي شيء آخر ...

FollowHyperlink "D:\FullFileName"

طبعا "D:\FullFileName"  اسم الملف بالكامل يعنى المسار + الامتداد "txt." " acdb." أو ....

[ابو عارف]

14 ساعات مضت, زين المهندس said:

ولكن الا نحتاج الى تحديد مكان وجودالوورد و الاكسل

'للملف وورد 2003 او اقدم

ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.doc"
ActiveControl.Hyperlink.Follow

'للملف وورد 2007 او احدث

ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.docx"
ActiveControl.Hyperlink.Follow

'للملف اكسل 2003 او اقدم

ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.xls"
ActiveControl.Hyperlink.Follow

'للملف اكسل 2007 او احدث

ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.xlsx"
ActiveControl.Hyperlink.Follow

ضع كود مناسب في حدث عند نقر لزرالأمر

غير مسار الى مسار ملف لديك

تم تعديل مايو 14, 2016 بواسطه ابو عارف
حذف سطر اضافي

[زين المهندس]

ينفع مع office2016?

[أبو عبدالله الحلوانى]

45 دقائق مضت, أبو عبدالله الحلوانى said:

هذا الكود لفتح أي ملف خارجى

 

2 دقائق مضت, زين المهندس said:

ينفع مع office2016?

وأى أوفس

[زين المهندس]

ماشي استاذي راح اجرب بالبرنامج اللي عندي واعطيك النتيجة ان شاءالله و ممنون منكم

57 دقائق مضت, أبو عبدالله الحلوانى said:

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

إضافة الى ما تقدم به أساتذتى الكرام هذا الكود لفتح أي ملف خارجى ورد اكسل بوربينت أكسس أو أي شيء آخر ...

FollowHyperlink "D:\FullFileName"

طبعا "D:\FullFileName"  اسم الملف بالكامل يعنى المسار + الامتداد "txt." " acdb." أو ....

استاذي تمت العملية باستخدام هذا الكود بنجاح شاكراً لكم و لكافة االاعزاء المشاركين معي في الاجابة على سؤالي و دمتم اخوة اعزاء و بارك الله بجهوكم .

[أبو عبدالله الحلوانى]

الحمد لله بالتوفيق أخى

[زين المهندس]

49 دقائق مضت, ابو عارف said:

'للملف وورد 2003 او اقدم
Dim Haddress As String
ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.doc"
ActiveControl.Hyperlink.Follow

'للملف وورد 2007 او احدث
Dim Haddress As String
ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.docx"
ActiveControl.Hyperlink.Follow

'للملف اكسل 2003 او اقدم
Dim Haddress As String
ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.xls"
ActiveControl.Hyperlink.Follow

'للملف اكسل 2007 او احدث
Dim Haddress As String
ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.xlsx"
ActiveControl.Hyperlink.Follow

ضع كود مناسب في حدث عند نقر لزرالأمر

غير مسار الى مسار ملف لديك

استاذي ابو عارف ، ممنون منكم كثير ، حقيقة استملت كود للاستاذ ابوعبدالله الحلواني (followhyperlink) ، و اتبعته بإسم الملف مع الامتداد و الحال تمام جداً و بدون استعمال dim or active control ، و عامل على كل الامتدادات ... اكرر شكري لكم و لكل الاخوة على هذا الاهتمام .

)

[ابو عارف]

يبدو الاستاذ ابو عبدالله قام بالرد خلال كتابة مشاركتي لان قبل البدء بكتابة الكود ماشفت مشاركة ابو عبدالله 

على كل حال الحمد لله على ايجاد الحل و نتمنى لك توفيق.