كيف أحدد مسار لمجلد معين عند فتح الارتباط التشعبي؟

تم الغاء هذه المشاركة المكررة

جعفر

تفضل :)

هذا الكود المطلوب لزر الامر :

Application.FollowHyperlink Mid(Me.A1, 2, Len(Me.A1) - 2)

جعفر

124.Database6.mdb.zip

أشكرك يا أخي جعفر على سريع اجابتك وحسن تعاونك ،،

ولكن المطلوب هو عند الضغط على زر الارتباط التشعبي: يقوم بفتح مجلد محدد بغرض تحديد ملف معين، ووضع مساره في الحقل A1

مثال:

أريد أن أضع مسار تشعبي للملف Example.jpg من المجلد C:\Pictures بحيث يكون هذا المجلد ثابت ويفتح عليه مباشرة، وبهذا يكون كامل المسار بعد الإدراج للملف في الحقل  A1 كالاتي:

C:\Pictures\Example.jpg

اتمنى أن يكون أوضحت طلبي.

وشكراً.

تفضل اخي الكريم

za-AddPath.rar

بالتوفيق

تفضل اخي :)

واليك التفاصيل :

1. يوجد جدول اسمه tblDefaults ، وبه حقل اسمه MyFolder ،

2. عندما تريد ان تجعل للعملية مسار معين ، فرجاء ادخاله في هذه الخانه ، فمثلا يمكنك ان تدخل:

D:\

3. اذا كان هذا الحقل فارغا ، فان البرنامج سيفتح المسار:

C:\

4. والسبب هو اننا وضعنا هذا المسار احتياطا في الكود ، فالكود التالي والذي هو جزء من كود اكبر ، يقرأ القيمة من الجدول ، فان لم يجد قيمة ، فانه يستعين بالقيمة الاحتياطية:

    ' Read the last directory visited, from tblDefaults, otherwise use the default C:\
        sFolder = Nz(DLookup("[myFolder]", "tblDefaults", "[ID]=1"), "C:\")

وحياكي الله اختي الفاضلة الدكتورة أم عهود :)

جعفر

124.Database6.mdb.zip

الاخوة الكرام في المثالين عند وضع الرابط التشعبي  فانه لايعمل عن الضغط عليه  فقط يقوم بتسكين الرابط في الحقل

فهل المشكلة لدي فقط ؟؟ 

حسب ملاحظة الاخ lordring في موضوع آخر ، فالنقر على A1 لا يفتح الملف ،

لذا فقد تم تصحيح هذه المسألة في المرفق :)

جعفر

124.Database6.mdb.zip

أشكر الجميع على تفاعلهم ،، ولدي إشكالات :

- في مثال الاخت زهرة ، عند جلب الرابط ، فإن الرابط لا يعمل.

- في مثال الأخ جعفر يعمل الرابط عند جلبه ، لكن هناك إشكالان:

1. لا بد أن يكون المسار صحيحاً، وإلا ستظهر رسالة الخطأ ، وهذه كمثال:

2. لا يمكن تعديل اسم العرض لمسار الملف كما في مربع حوار تحرير الارتباط التشعبي كما في الصورة المقتبسة من مشاركة الأخ لورد.

والمطلوب هو امكانية استخدام مربع تحرير الارتباط التشعبي الموضح أعلاه للوصول للفائدة المرجوة ،، وشكراً.

اخي نفس الحالة بالنسبة الى مثال الاخت الكريمة زهرة

ضع هذا الكود بحدث عند الضغط على حقل الرابط لكي يقوم بفتح الملف 

    Application.FollowHyperlink Me.A1

لكن يبقى المسار في الحقل  عبارة عن  text وليس رابط ولذلك عندما تريد تحريره يدويا  تجد ان اسم المسار لايظهر في  ال  address

اختي الفاضلة الدكتورة أم عهود ،

انا وانتي نجاوب ، وما نحصل تقييم ، ولما Saleem20 رد علينا بالاخطاء الموجودة والتعديلات المطلوبة ، حصل تقييم +1 !! هذا حرك مشاعري  :boohoo:  وقلت لازم القى حل  :noidea:  وابيض وجهي  :pwease:  

الاخوة سليم و Lordring ،

في الجدول ، في حقل A1 ، اجعل القيمة الافتراضية:

1. النص لشرح الملف ،

2. الملف نفسه (وهذا هو المسار الافتراضي الذي كان سؤال هذا الموضوع) ،

في النموذج :

اذا كان السجل جديدا ، وتم النقر على الزر Edit HyperLink ، فعنوان النافذة سيكون كما هو في المادة 2 اعلاه ، والعنوان هو نفس العنوان الافتراضي من الجدول :

واما اذا اخترت ملف ، وكتبت معلومة تعريفية عن الملف ، فالنموذج سيكون

واما اذا لم نرد ان نكتب تعريف للملف ، فالنموذج سيكون

ولما تنقر على اسم الملف ، فان الملف سينفتح بدون كود :)

اعتقد هذا كان المطلوب :)

جعفر

124.Database6.mdb.zip

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

اما الاخت ام عهود فلاتحتاج مني الى شهادة فهي شمعة القسم  

وعذرونا اذا نسينا في بضعة مرات التقييم مع اني دائما احاول ان لا انسى التقييم لانه اقل شي نعمله لنرد فضلكم علينا

وللتاكيد شاهد ماوصلني الان وانا احاول تقييم مشاركتك التي قبلها 

اقتباس

 

 

لقد وصلت إلى الحد الأقصى للنقاط الإيجابية لهذا اليوم

شكرا لكم 

عفوا ، التقييم كان مزحة :)

ولكن شكرا لك :)

جعفر

شكرا اخي جعفر  التطبيق الان تمام  في المثال المرفق اعلاه 

لكن عند نقله الى برنامجي تحدث اشكالات ساقوم بتصويرها لك عسى ان تحل الاشكال 

اخي جعفر

راجعت المشكلة  واتضح لي انها في الوحدة النمطية  اذا انها لاتدعم الامتدادات الخاصة ب 2007  

لذلك استبدلت الامتدادات الى  accdb  ونجح التطبيق ..

شكرا لك  

حياك الله :)

اخي لكن لازال عندما  اعمل  debug لمحرر الفيجوال تظهر الرسالة التالية

ماذا تقترح  ؟؟ 

اخي الفاضل :)

اذا كان في اعلى صفحة VBA فقط :

Option Compare Database

فالبرنامج لن يزعجك بهذه الرسائل :)

ولكن الافضل ان يكون في اعلى صفحة VBA:

Option Compare DatabaseOption Explicit

وهذا معناه ان جميع الكلمات variables يجب ان تكون موضحة بالامر Dim ،

ولذلك يجب ان تضم الكلمة (المشار اليها في الخطأ) في امر Dim ،

لذا يرجى استعمال هذه الاوامر:

Dim strFilter As String
Dim lngFlags As Long
Dim varFileName As Variant
Dim varDirectory As String
Dim varTitleForDialog As String
Dim sFolder As String

بدلا عن

Dim strFilter As String
Dim lngFlags As Long
Dim varFileName As Variant

وللآسف ، انا لا امارس الطريقة المثلى في البرمجة ، فانا لا استعمل Option Explicit

لذلك افلت من هذه الاخطاء :)

جعفر

بارك الله بيك اخي  

بارك الله بكم جميعا اخواني الكرام

اخير تم حل هذه المشكلة مع اتها لم تكن مشكلة كبيره ولكن يبدو ان الفيوزات كانت عندي ضاربه  :) 

لذا فإن حل هذه الإشكالية تمثل في سطر واحد فقط سهل وبسيط للغايه وهو كالتالي

Private Sub A1_Click()
Me.A1 = Me.A1 & "#" & Me.A1 & "#"
End Sub

جزاكي الله كل خير اختي الفاضلة على ختام المسك :)

جعفر

الحمد لله أن جعل لسؤالي أكثر من إجابة من كبار خبراء هذا المنتدى المبارك ،، 

كل الشكر للأخت زهرة ، والأخ جعفر على جهودهم ، ومنكم نتعلم ونستفيد.. :)

الآن الخاصية المتاحة هي فقط اختيار ملف للإدراج،

المطلب الآخر : هل يمكن ان تضاف خاصية اختيار مجلد للإدراج كذلك ،،  :rolleyes:

وشكراً.

اختي العزيزة  ..المرفق الاخير  

يفتح اخر مسار تم تحميل ملف منه   وليس الى مسار تلقائي  ..  حتى اني استغربت انه قام بفتح مسار على السيرفر عندي

اعتقد انه يحتفظ بمسار اخر ملف في الرجستري .. اليس كذلك  والا كيف تعرف على اخر مسار فتحته  مع اني انزلت الملف للتو ؟

lordring كتب:

اختي العزيزة  ..المرفق الاخير  

 

يفتح اخر مسار تم تحميل ملف منه   وليس الى مسار تلقائي  ..  حتى اني استغربت انه قام بفتح مسار على السيرفر عندي

 

اعتقد انه يحتفظ بمسار اخر ملف في الرجستري .. اليس كذلك  والا كيف تعرف على اخر مسار فتحته  مع اني انزلت الملف للتو ؟

لا يا اخي الكريم

لا يحتفظ بأي مسار سوى المسار الموجود في الجدول في الحقل  A1 فقط

وليس له اي علاقة لا بالريجستري ولا بغيره

السطر البرمجي الذي قمنا بعمله يقوم فقط بأخذ مسار الملف عند حدث النقر عليه ثم يضيف اليه نفس اسم الملف بين علامتي شبكه

وحتى تتأكد من ذلك بارك الله بك اتبع الطريقة التالية

قم بالضغط على زر الأمر الخاص بفتح مسار الملفات واختار ملف معين

الآن بعد ان يظهر لك مسار الملف في الحقل A1  اضغط على مفتاح F2 في لوحة المفاتيح

وسيظهر لك المسار الكامل للرابط التشعبي للملف في نفس مربع النص  A1

مما يدل على ان المشكلة لديك انت فقط وليس في الملف الذي قمنا بتعديله

بالتوفيق