לחצן עיון באקסס

[חייםיודלביץ]

שלום
יש למישהו אולי קוד שעושה את לחצן עיון
כלומר יש לי תיבת טקסט ואני מעוניין להכניס שם נתיב לתקייה במחשב ע" לחצן עיון
מצאתי קוד שעושה זאת בצורה כמו בתמונה 1 אבל אני מעוניין כמו בתמונה השנייה שזה יותר נוח

בתודה מראש

 

[moishy]

הראשון הוא בוחר תיקיות והשני בוחר קבצים, מה אתה צריך?

 

[חייםיודלביץ]

קוד לבחור תקייה ואז בלחיצה על אישור הוא יכניס לי את נתיב התקייה לתוך תיבת טקסט

בתודה מראש

 

[moishy]

קוד לבחור תקייה ואז בלחיצה על אישור הוא יכניס לי את נתיב התקייה לתוך תיבת טקסט

בתודה מראש

בטוח שזה מה שאתה רוצה?
זה ממש לא נראה לי לעניין.

 

[חייםיודלביץ]

כן

כי אז בקוד אני אומר לו איפה לשמור לי קובץ, והמיקום לשמור זה מה שבחרו בלחצן עיון

 

[moishy]

זה לא קשור.
גם בבוחר תיקיות (התמונה הראשונה) אתה שומר את הנתיב הנבחר למשתנה.

 

[חייםיודלביץ]

לא הבנתי את דבריך

 

[moishy]

מה לא הבנת?

 

[חייםיודלביץ]

כלומר אתה אומר שקוד שיש לי בשביל הבוחר תקיות הראשון הוא מתאים והשני לא קשור לעניין

 

[moishy]

אתה רוצה לשמור בקוד את הנתיב הנבחר?
אין סיבה שאתה לא יכול לעשות את זה עם הקוד שברשותך.
שים פה את הקוד ואראה לך.

 

[חייםיודלביץ]

....

 

[moishy]

אין קשר בין שני חלקי הקוד שהבאת.
צריך את הפונקציה BrowseFolder מתוך המודול mdlBrowseFolder.

 

[חייםיודלביץ]

סליחה טעות שלי

מצורף קובץ עם הקוד

 

[moishy]

לא מבין מה אתה רוצה.
המשתנה strnativ מכיל את הנתיב הנבחר.

 

[חייםיודלביץ]

לא מבין מה אתה רוצה.
המשתנה strnativ מכיל את הנתיב הנבחר.

אני רוצה שיהא חלון גדול כמו בתמונה הראשונה
האם הדבר אפשרי ?

 

[moishy]

מצטער, אני לא מבין.

 

[חייםיודלביץ]

הראשון הוא בוחר תיקיות והשני בוחר קבצים, מה אתה צריך?

בתחילת האשכול הצגתי שני תמונות ואז כתבת כנ"ל

השאלה היא האם אפשר שיהא "בוחר תקיות" בתצוגה כמו של החלון של "בוחר קבצים" ?

מקווה שעכשיו אני יובן

 

[moishy]

אפשר בהחלט, אמנם לא עם הקוד שהבאת.
ובכלל לדעתי זה טעות.

Function BrowseFolderExplorer(Optional DialogTitle As String, _
         Optional ViewType As MsoFileDialogView = _
         MsoFileDialogView.msoFileDialogViewSmallIcons, _
         Optional InitialDirectory As String) As String
    Dim fDialog  As Office.FileDialog
    Dim varFile As Variant
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    fDialog.InitialView = ViewType
    With fDialog
        If Dir(InitialDirectory, vbDirectory) <> vbNullString Then
            .InitialFileName = InitialDirectory
        Else
            .InitialFileName = CurDir
        End If
        .Title = DialogTitle
        
        If .Show = True Then
            BrowseFolderExplorer = .SelectedItems(1)
        Else
            BrowseFolderExplorer = vbNullString
        End If
    End With
End Function

 

[חייםיודלביץ]

מה טעות הקוד שלי או ליצור כזה חלון?

 

[moishy]

הקוד שלך?!
איזה קוד שלך?

כוונתי שבוחר תיקיות לא אמור להיראות כבוחר קבצים.