طلب كيفية استعراض ما بداخل المجلد في النموذج؟

[حامل المسك]

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

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

ولكم جزيل الشكر وعظيم الامتنان على جميل فضلكم وخيركم السابق،،

كتب الله لكم الأجر وبارك لكم في الأهل والمال والولد..

لدي برنامج مرتبط بعدة مجلدات (اسم مجلد1 ، اسم مجلد2 ... إلخ) وهذه المجلدات مسمياتها مسجلة في حقول البرنامج إذ أن المجلد يبنى من خلال البرنامج

وكذلك مرتبط بملف وورد بحيث ينقل البيانات من النموذج لملف الوورد..

أرغب في أن يتم استعرض ما بداخل المجلد 1 في البرنامج في قائمة FileList بحيث تظهر جميع الملفات التي في المجلد1 وعند الانتقال للسجل التالي تظهر جميع الملفات التي في اسم المجلد2 وهكذا..

كذلك عند إرسال البيانات لملف الوورد فإنه يحفظ نسخة من الملف بجوار البرنامج والمطلوب أن يحفظ نسخة من ملف الوورد داخل المجلد المدون في حقل البرنامج مثلا إذا كان السجل الحالي مدون فيه اسم المجلد1 وفتحت ملف الوورد فإنه يحفظ نسخة من الملف في اسم المجلد1 وهكذا..

((علمًا أني بحثت في المنتدى ووجدة عدة أمثلة لكن لم أصل إلى مطلوب إذ غالب ما كتب في ذلك يستعرض الملفات ملجدات معينة وليست مدونه داخل سجلات البرنامج))

مرفق المثال مع جزيل الشكر وعظيم الامتنان،،

مثال أكسس.rar

[Foksh]

تفضل أخي ، هذه طريقتين لعرض المحتوى 

 

مثال أكسس.zip

[حامل المسك]

سلمت أسعدك الله ورضي عنك،،

جميل، لكني أريد أن يتحدث مربع FileList   بشكل تلقائي عند الانتقال للسجل التالي بناء على اسم المجلد في (namefolderx)، فمبجرد الانتقال للسجل التالي تظهر ملفاته مباشرة من غير تحديد مسار ونحوه.. مع الأخذ في الاعتبار أن الكود عدم تثبيت مسار الكود.. لأن مجلد البرنامج قد يكون على سطح المكتب وقد يكون في مكان غير

سلمكم الله ورعاكم

تم تعديل يناير 16 بواسطه حامل المسك

[Foksh]

57 دقائق مضت, حامل المسك said:

سلمت أسعدك الله ورضي عنك،،

جميل، لكني أريد أن يتحدث مربع FileList   بشكل تلقائي عند الانتقال للسجل التالي بناء على اسم المجلد في (namefolderx)، فمبجرد الانتقال للسجل التالي تظهر ملفاته مباشرة من غير تحديد مسار ونحوه.. مع الأخذ في الاعتبار أن الكود عدم تثبيت مسار الكود.. لأن مجلد البرنامج قد يكون على سطح المكتب وقد يكون في مكان غير

سلمكم الله ورعاكم

تفضل أخي التعديل بسيط ، ولكن حسب طلبك

 

مثال أكسس.zip

[حامل المسك]

سلمت،، لكن عند الانتقال للسجل التالي يعطي رسالة المجلد غير موجود.. والظاهر لأجل المسار

 folderPath = "C:\Users\Golden\Desktop\مثال أكسس\" & Me.namefolderx.Value

فهل من تعديل..

[Foksh]

7 دقائق مضت, حامل المسك said:

سلمت،، لكن عند الانتقال للسجل التالي يعطي رسالة المجلد غير موجود.. والظاهر لأجل المسار

أخي الكريم غير المسار الرئيسي فقط .  

حيث أن هذا المسار 

"C:\Users\Golden\Desktop\مثال أكسس\"

هو مسار المجلد في جهازي ، فقط استبدله بمسار المجلد في جهازك .,

تم تعديل يناير 16 بواسطه Foksh

[حامل المسك]

سلمت،، كنت أظن أنه بالإمكان وضع كود يغني عن كتابة المسار لكون البرنامج أحيانا ينقل من جهاز لآخر..

أسعدك الله أيه الغالي.. والحقيقة  أتعبتك معي،، وشكر الله لك سعيك وبارك لك فيما رزقك..

تمت التجربة بنجاح..

حفظك الباري أينما كنت..

[Foksh]

27 دقائق مضت, حامل المسك said:

كنت أظن أنه بالإمكان وضع كود يغني عن كتابة المسار لكون البرنامج أحيانا ينقل من جهاز لآخر

ظنك في محله يا صديقي ، ولكن ما رأيك لو جعلنا المجلدات الفرعية التي تريد عرض محتوياتها ان تكون داخل مجلد واحد رئيسي بجانب قاعدة بيانات ؟؟

 

او حدد لي فكرتك وإن شاء الله بتتنفذ.

[حامل المسك]

9 ساعات مضت, Foksh said:

ظنك في محله يا صديقي ، ولكن ما رأيك لو جعلنا المجلدات الفرعية التي تريد عرض محتوياتها ان تكون داخل مجلد واحد رئيسي بجانب قاعدة بيانات ؟؟

ممتاز أسعدك الله وفكرة رائعة..

إذا أمكن فعلى بركة الله،،

[Foksh]

في 17‏/1‏/2024 at 08:39, حامل المسك said:

إذا أمكن فعلى بركة الله،،

أخي @حامل المسك ، أعتذر على التأخير ، تفضل المرفق بدون تحديد مسار المجلد الرئيسي بشكل يدوي ، على أن تكون المجلدات الفرعية داخل مجلد All

 

مثال أكسس.zip

[حامل المسك]

4 ساعات مضت, Foksh said:

خي @حامل المسك ، أعتذر على التأخير ، تفضل المرفق بدون تحديد مسار المجلد الرئيسي بشكل يدوي ، على أن تكون المجلدات الفرعية داخل مجلد All

سبحان الله وبحمده،، أخي @Foksh تجود بفضلك وتعتذر وتكرمنا بجميل طرحك وتعتذر... وهذا من طيب منبعك وحسن معدنك فرحم الله رحما حملك وأبا رباك.. وبارك الله لك فيما رزقك..

سلمت وسلمك الله ورعاك..

رائع وممتاز.. غير أني أضفت هذا الكود بحيث عن النقر مرتين يفتح الملف ولكن بهذا الكود يفتح المجلد فإن أمكن التعديل عليها لفتح الملف مباشرة سواء كان وورد أم pdf أم صورة سملكم الله،،،

 

Dim fullPath As String
fullPath = CurrentProject.Path & "\All\" & Me.namefolderx.Value
FollowHyperlink fullPath

 

مثال أكسس2.rar

[Moosak]

السلام عليكم 🙂 

أعتذر أنا دخلت عرض في الموضوع 😅🖐🏻

ما رأيك في هذه الطريقة لاستعراض الملفات الموجودة في مجلد البرنامج ؟ 

 

وهذا الموضوع مرجع لك :

 

 

OpenFolders.rar

[Foksh]

1 ساعه مضت, حامل المسك said:

سلمت وسلمك الله ورعاك..

هذا من طيب أصلك أخي @حامل المسك .

 

1 ساعه مضت, حامل المسك said:

Dim fullPath As String
fullPath = CurrentProject.Path & "\All\" & Me.namefolderx.Value
FollowHyperlink fullPath

تم اضافة اللازم والتعديل المطلوب حسب ما توضح لي في حدث النقر المزدوج لـ FileList ، تفضل باستبداله بالتعديل التالي :-

On Error Resume Next
    Dim folderPath As String
    folderPath = CurrentProject.Path & "\All\" & Me.namefolderx.Value & "\"

    If Me.FileList.ListIndex >= 0 Then
        Dim selectedFileName As String
        selectedFileName = Me.FileList.Column(0, Me.FileList.ListIndex)

        Dim fullPath As String
        fullPath = folderPath & selectedFileName
        FollowHyperlink fullPath
    End If

 

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

أعتذر أنا دخلت عرض في الموضوع 😅🖐🏻

 

انت تدخل الموضوع عرض وتخمس كمان  أستاذنا @Moosak . وتتحفنا أيضاً بما في جعبتك 

تم تعديل يناير 18 بواسطه Foksh

[حامل المسك]

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

السلام عليكم 🙂 

أعتذر أنا دخلت عرض في الموضوع 😅🖐🏻

ما رأيك في هذه الطريقة لاستعراض الملفات الموجودة في مجلد البرنامج ؟ 

أستاذنا القدير @Moosak وعليكم السلام ورحمة الله وبركاته،، وحياك الله ،، ونحن من يعتذر فأنتم المنبع الصافي ومنهل المعرفة لنا ولجميع الزملاء في المنتدى المبارك..

الحقيقة أثناء البحث وجدت هذا المثال الذي ذكرته،، ولكن كنت بحاجة أن يكون الاستعراض تلقائي لمحلدات متعددة مسمياتها داخل سجل البرنامج فيرتبط مباشرة وتظهر كما تفضل أستاذنا القدير @Foksh بتعديلاته النيرة

 

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

تم اضافة اللازم والتعديل المطلوب حسب ما توضح لي في حدث النقر المزدوج لـ FileList ، تفضل باستبداله بالتعديل التالي :-

سلمت وهذا هو المطلوب رضي الله عنكم جميعا.. 

لكن ظهر لي أمر وهو أنه إذا هناك مجلد داخل إحدى المجلدات المذكورة مثلاة مجلد 1 الذي بداخل مجلد ALL به مجلد فهل يمكن أن يظهر اسمه مع الملفات أم يتعذر ذلك..

معذرة لكن جاءت الفكرة عرضًا الآن..

حفظكم الله الباري

مثال أكسس3.rar

[Foksh]

46 دقائق مضت, حامل المسك said:

معذرة لكن جاءت الفكرة عرضًا الآن..

 

ولا يهمك ، اتمنى أن يكون هذا هو المطلوب .

Private Sub cmdShowFile_Click()

    Dim folderPath As String
    folderPath = CurrentProject.Path & "\All\" & Me.namefolderx.Value

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    If fso.FolderExists(folderPath) Then
        Dim folder As Object
        Set folder = fso.GetFolder(folderPath)

        Me.FileList.RowSource = ""

        ' عرض أسماء الملفات
        Dim file As Object
        For Each file In folder.Files
            Me.FileList.AddItem file.Name
        Next file

        ' عرض أسماء المجلدات
        Dim subFolder As Object
        For Each subFolder In folder.SubFolders
            Me.FileList.AddItem subFolder.Name & "\"
        Next subFolder

    Else
        ' MsgBox "المجلد غير موجود."
    End If

    Set fso = Nothing
    Set folder = Nothing
    Set file = Nothing
    Set subFolder = Nothing
End Sub

قم باستبدال الكود السابق بهذا الكود ليشمل عرض أسماء المجلدات أيضاً .

[حامل المسك]

  

40 دقائق مضت, Foksh said:

ولا يهمك ، اتمنى أن يكون هذا هو المطلوب .

أزال الله همك وغمك ورضي عنك..

ممتاز جدا .. سلمك الله ورعاكم وفرج همك وغمك ورضي عنك..

شكر الله لكم أيها الكرام..

والحمد لله رب العالمين،،

تم تعديل يناير 18 بواسطه حامل المسك