Path in access

[ابو عبد الله العراقي]

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

الأستاذة الافاضل والاخوة الأعزاء في منتدى اوفيسنا

في قاعدة البيانات المرفقة النموذج form 1  يوجد فيه button   وضيفته فتح فولدر اليوم حيث انayam.rarayam.rar هذا الـbutton  مرتبط بـــtextbox     = path  .

الـــpath  مضبوط وشغال 100%

المشكلة في الـــbutton   يفتح الفولدرات عدا انه لا يفتح فولدر يوم Saturday   شنو المشكلة ما اعرف ؟

يرجى التوضيح والمساعدة ؟

ملاحظة لكي تعمل قاعدة البيانات يجب وضعها في بارتشن D:\

تم ؟؟؟؟

[Moosak]

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

اسم الفولدر مكتوب غلط .. مكتوب Satruday    بدل Saturday   

[ابو عبد الله العراقي]

عاشت ايدك 

سبحان الله 

العتب على النظر

شكراً جزيلاً

[ابو عبد الله العراقي]

طيب في حالة ان الفولدر غير موجود ماهو كود الذي يجب ان يوضع  في حدث الــ  button    لكي تظهر رسالة    " فولدر هذا اليوم غير موجود "

[Moosak]

3 ساعات مضت, ابو عبد الله العراقي said:

طيب في حالة ان الفولدر غير موجود ماهو كود الذي يجب ان يوضع  في حدث الــ  button    لكي تظهر رسالة    " فولدر هذا اليوم غير موجود "

تفضل أخي أبو عبدالله ..

هذا الكود بعد التعديل :

Private Sub Command8_Click()
On Error Resume Next

If Len(Dir(Me.path, vbDirectory)) > 0 Then
    FollowHyperlink (Me.path)
'    Me.Command8.HyperlinkAddress = Trim(Me![path])
Else
    MsgBox "فولدر هذا اليوم غير موجود سوف يتم إنشاؤه تلقائيا", vbOKOnly, "تنبيه!"
    MkDir (Me.path)  '  هذا السطر يجعل البرنامج يقوم بإنشاء الفولدر المفقود
    FollowHyperlink (Me.path)
End If

End Sub

في حال تعذر وجود الملف يقوم البرنامج بإنشاء فولد جديد محل الفولدر المفقود .

لإلغاء هذه الخاصية .. أحذف هذين السطرين من الكود وعدل الرسالة 🙂 

  MkDir (Me.path)  '  هذا السطر يجعل البرنامج يقوم بإنشاء الفولدر المفقود
  FollowHyperlink (Me.path)

 

ayam.rar

تم تعديل مارس 12, 2022 بواسطه Moosak

[ابو عبد الله العراقي]

السلام عليكم ورحمة الله وبركاته عاشت ايدك اخوي العزيز وانا جداً ممنون منك ، بس ارجو توضيح الكود لو سمحت لغرض فهم الكودات والاستفادة منها 

تم تعديل مارس 13, 2022 بواسطه ابو عبد الله العراقي

[Moosak]

دالة Dir ترجع لك اسم الملف اللي تلاقيه في الباث المعطى لها .

ودالة Len تعطيك عدد حروف الملف الذي ترجعه دالة Dir .

فإذا تم إيجاد الملف المطلوب سيتم حساب عدد حروفه بالدالة Len .. أما إذا لم تجد الملف فسيكون عدد الحروف (صفر) ..

لذلك أخبرنا دالة If  إذا كان عدد الحروف أكبر من صفر ( يعني الملف موجود ) نخبرها أن تفتح الملف الذي في الرابط ..

وإذا كان عدد الحروف = (صفر) فهذا يعني أن الملف غير موجود ، فتعطينا رسالة تخبرنا بذلك ..

 

مرجع : https://analystcave.com/vba-reference-functions/vba-file-functions/vba-dir-function/

تم تعديل مارس 13, 2022 بواسطه Moosak

[ابو عبد الله العراقي]

تمام 

🌹عاشت ايدك على التوضيح  💯