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

[salim07]

السلام عليكم 

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

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

DT.rar

[Moosak]

تفضل أخي ..

 

فتح ملف خارجي.accdb

[salim07]

31 دقائق مضت, Moosak said:

تفضل أخي ..

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

[salim07]

49 دقائق مضت, Moosak said:

تفضل أخي ..

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

52 دقائق مضت, Moosak said:

تفضل أخي ..

هنا

[salim07]

منذ ساعه, Moosak said:

تفضل أخي ..

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

[Barna]

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

Dim FD As Object

 

[Moosak]

 

7 دقائق مضت, salim07 said:

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

هنا

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

اختر References

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

Microsoft office 16.o object  

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

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

 

 

 

[salim07]

7 دقائق مضت, Moosak said:

ختر References

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

Microsoft office 16.o object  

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

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

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

9 دقائق مضت, Barna said:

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

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

[salim07]

22 دقائق مضت, Moosak said:

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

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

DATA41.rar

[salim07]

57 دقائق مضت, Moosak said:

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

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

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

[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