مطلوب زر لاستعراض المجلد الرئيسي والمجلدات الفرعية

[محسن سرحان]

اخواني

عندي قاعدة بها نمودج ارفاق من عدة قواعد في مجلد واحد

وانا اريد زر استعراض الموجود بالنمودج يستعرض كل القواعد التي هي في الفولدر والفلادر الفرعية الموجدة في نفس الفولدر

10.1.Import_Table_Data.mdb.zip

[jjafferr]

أخي محسن 

 

كل اللي كنت محتاج له هو رقم الملف 

 

الكود السابق كان للمجلد الذي تم اختياره فقط ، غير هذا الكود:

Private Sub cmdfrom_Click()

    'open the Open Folder dialog
    Me.DataBaseFromPath = BrowseFolder("which folder")
    'if the user didn't select any folder, exit
    If Len(Me.DataBaseFromPath & "") = 0 Then Exit Sub
    
    'list the .mdb files from the folder
    Call ListFiles(Me.DataBaseFromPath, "*.mdb", , Me.lst_Files)
    'list the .accdb files from the folder
    Call ListFiles(Me.DataBaseFromPath, "*.accdb", , Me.lst_Files)
    
End Sub

والكود الحالي يشمل جميع المجلدات اللي داخل المجلد الذي تم اختياره ، فغير الكود اعلاه الى:

Private Sub cmdfrom_Click()

    'open the Open Folder dialog
    Me.DataBaseFromPath = BrowseFolder("which folder")
    'if the user didn't select any folder, exit
    If Len(Me.DataBaseFromPath & "") = 0 Then Exit Sub
    
    'list the .mdb files from the folder
    Call ListFiles(Me.DataBaseFromPath, "*.mdb", True, Me.lst_Files)
    'list the .accdb files from the folder
    Call ListFiles(Me.DataBaseFromPath, "*.accdb", True, Me.lst_Files)
    
End Sub

جعفر

[محسن سرحان]

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

[jjafferr]

هلا والله بالمحسن