تعديل سطر في كود لاختيار مجلد

[Force]

السلام عليكم

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

Dim ofn As OPENFILENAME
    ofn.lStructSize = Len(ofn)
       ofn.lpstrFilter = "Mdb Files (*.mdb)" + Chr$(0) + "*.mdb" + Chr$(0) + "Mde Files (*.mde)" + Chr$(0) + "*.mde" + Chr$(0)
        ofn.lpstrFile = Space$(254)
        ofn.nMaxFile = 255
        ofn.lpstrFileTitle = Space$(254)
        ofn.nMaxFileTitle = 255
        ofn.lpstrInitialDir = CurDir
        ofn.lpstrTitle = " Berwas "
        ofn.flags = 0
        Dim A
        A = GetOpenFileName(ofn)
        If (A) Then
                Me![COPY_NM] = Trim$(ofn.lpstrFile)
        Else
                MsgBox "Cancel was pressed"
        End If
    Exit Sub

CmdBrowseErrHandler:
If Err.Number = 32755 Then
 MsgBox " You did not change the file name ", 64, "Alert Message "
ElseIf Err.Number = 20477 Then
 MsgBox " Invalid file name  ", 16, "Alert Message "
Else
MsgBox Str(Err.Number) + Err.Description
End If
Exit Sub

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

ofn.lpstrFilter = "Mdb Files (*.mdb)" + Chr$(0) + "*.mdb" + Chr$(0) + "Mde Files (*.mde)" + Chr$(0) + "*.mde" + Chr$(0)

شاكر ومقدر لكم المساعدة

[أمجد جمالي]

تفضل

ofn.lpstrFilter = "All Files" + Chr$(0) + ""

تحياتي

[Force]

السلام عليكم

مشكور يا اخ احمد

بس ما تغير شي انت غيرت من تحديد قواعد بيانات الى كل التنسيقات ولم يختر مجلد

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

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

على العموم شكرا لك واذا فيه حل اخر انا موجود

[أمجد جمالي]

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

وانت عليك التعديل حسب أسم الحقل عندك في النموزج

Dim ofn As OPENFILENAME
   ofn.lStructSize = Len(ofn)
      ofn.lpstrFilter = "Mdb Files (*.mdb)" + Chr$(0) + "*.mdb" + Chr$(0) + "Mde Files "
       ofn.lpstrFile = Space$(254)
       ofn.nMaxFile = 255
       ofn.lpstrFileTitle = Space$(254)
       ofn.nMaxFileTitle = 255
       ofn.lpstrInitialDir = CurDir
       ofn.lpstrTitle = " Berwas "
       ofn.flags = 0
       Dim A
       A = GetOpenFileName(ofn)
       If (A) Then
               MsgBox Left$(Trim$(ofn.lpstrFile), InStrRev(Trim$(ofn.lpstrFile), "\"))
       Else
               MsgBox "Cancel was pressed"
       End If
   Exit Sub

CmdBrowseErrHandler:

If Err.Number = 32755 Then
MsgBox " You did not change the file name ", 64, "Alert Message "
ElseIf Err.Number = 20477 Then
MsgBox " Invalid file name  ", 16, "Alert Message "
Else
MsgBox Str(Err.Number) + Err.Description
End If
Exit Sub

تحياتي

[Force]

شكرا لك على المساعدة

والظاهر انك لم تفهم ما اريده بالضبط

اول كود وضعته هو لوضع مسار ملف بتنسيق mdb او mde كلاهما

بعد الضغط على زر ما يظهر لي براوز اختيار الملف المراد اضافة مساره في التكست بوكس

انا اريد بدل من ذلك ان يقوم الكود باظهار البرواز (مربع حوار ادراج مجلد ) وليس ملف

اختار منه اي مجلد موجود على الجهاز وبمجرد الضغط على هذا المجلد يضع مساره في التكست بوكس فقط

على العموم انت ما قصرت اخي الكريم

واذا فيه تعديل على الكود نفسه يكون احسن واذا ما فيه مشكور على كل حال