فتح ملف من خارج قاعدة البيانات

[salim07]

السلام عليكم 

عندي مشكلة اخوتي متمثله في الخروج المتكرر من قاعدة البيانات فأحيانا يتطلب العمل . العمل في الاكسس ثم العمل في الاكسال او العمل على مستند نصي .

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

DT.rarFetching info...

[Moosak]

تفضل أخي ..

 

فتح ملف خارجي.accdbFetching info...

[salim07]

  في 13‏/1‏/2022 at 09:39, Moosak said:

تفضل أخي ..

Expand  

مشكور اخي هذا المطلوب حزاك الله كل خير

[salim07]

  في 13‏/1‏/2022 at 09:39, Moosak said:

تفضل أخي ..

Expand  

اخي عند تطبيق المطلوب يأتي هذا الخطأ

  في 13‏/1‏/2022 at 09:39, Moosak said:

تفضل أخي ..

Expand  

هنا

[salim07]

  في 13‏/1‏/2022 at 09:39, Moosak said:

تفضل أخي ..

Expand  

اخي الملف الذي تم التعديل عليه من طرفك يعمل عادي . ولكن عند النقل للقاعدة الاساسية يأتي هذا الخطأ

[Barna]

استبدله بهذا وجرب .....

Dim FD As Object

 

[Moosak]

 

  في 13‏/1‏/2022 at 10:30, salim07 said:

اخي عند تطبيق المطلوب يأتي هذا الخطأ

هنا

Expand  

أخي سالم من نافذة محرر الأكواد ومن قائمة Tools 

اختر References

ثم من القائمة التي ستظهر لك اختر

Microsoft office 16.o object  

علم عليه بإشارة صح.. 

وإن شاء الله تتفعل معاك ..

 

 

 

[salim07]

  في 13‏/1‏/2022 at 10:43, Moosak said:

ختر References

ثم من القائمة التي ستظهر لك اختر

Microsoft office 16.o object  

علم عليه بإشارة صح.. 

وإن شاء الله تتفعل معاك ..

Expand  

مفعلين اخي من قبل 

  في 13‏/1‏/2022 at 10:42, Barna said:

ستبدله بهذا وجرب .....

Expand  

بقي الخطا في السطر الثالث

[salim07]

  في 13‏/1‏/2022 at 10:43, Moosak said:

أخي سالم من نافذة محرر الأكواد ومن قائمة Tools 

Expand  

اخي لقد قمت بنقلها من مكان الي ممان وبقي نفس الخطأ يمكنك الاطلاع عليها وعلى الخطأ في المرفق

DATA41.rarFetching info...

[salim07]

  في 13‏/1‏/2022 at 10:43, Moosak said:

علم عليه بإشارة صح.. 

وإن شاء الله تتفعل معاك ..

Expand  

معك حق اخي تم حل المشكل وكما قلت انت كان مطبق في القاعدة التي عدلت عليها ولم يكن مطبق عندي مشكور اخي وجزاك الله كل خير .

[Moosak]

بالتوفيق أخي سالم ..

ياليت لو تعلم عليها كأفضل إجابة لتسهيل الوصول إليها من قبل الأعضاء مستقبلا .. 🙂 

[ابو جودي]

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

Dim FD As Object
Dim Path As String

Set FD = Access.Application.FileDialog(1)

FD.AllowMultiSelect = False
FD.Filters.Clear
If FD.Show = -1 Then
    Path = FD.SelectedItems(1)
Else: Exit Sub
End If

FollowHyperlink Path