בחירת קובץ באקסס

[מלא 0]

בקובץ המצורף יש קוד של בחירת קובץ.
יש איזה מחשב שהקוד הזה לא מגיב, הוא פשוט עוקף את השורה הזאת וממשיך למייסג' בוקס

מה הבעיה?

תודה רבה

נסיון לקובץ.accdb

פורסם במקור בפורום CODE613 ב29/11/2016 10:39 (+02:00)

[clickone]

תתאר קצת יותר.
מה יש במחשב ההוא?
אופיס 64 BIT? איזה גירסה? איזה ווינדוס?
(התחושה שלי שזה קשור לאופיס 64 BIT.)

פורסם במקור בפורום CODE613 ב29/11/2016 10:57 (+02:00)

[מלא 0]

פתחתי את ההודעה במהירות ושכחתי לכתוב פרטים.
אז סליחה מכל אלו שרצו לעזור על הקושי בבקשה..... :roll:

תחושתך נכונה, מדובר ב64 ביט אופיס 10 וכמדומה לי שזה על וינ8

פורסם במקור בפורום CODE613 ב29/11/2016 12:10 (+02:00)

[clickone]

מכיוון שאין לי אופיס 64 כדי לבדוק...

אני מצרף את הקלאס שבו אני משתמש. (הוספתי כפתור עם הדוגמא שלך)
אני משתמש שם במחלקה FileDialog

נסיון לקובץ.accdb

פורסם במקור בפורום CODE613 ב29/11/2016 13:05 (+02:00)

[מלא 0]

@ClickOne

מכיוון שאין לי אופיס 64 כדי לבדוק...

אני מצרף את הקלאס שבו אני משתמש. (הוספתי כפתור עם הדוגמא שלך)
אני משתמש שם במחלקה FileDialog

מחזיר שגיאה 5 על זה fd.SelectedItems(1)

פורסם במקור בפורום CODE613 ב29/11/2016 17:35 (+02:00)

[clickone]

תנסה

fd.SelectedItems(0)

פורסם במקור בפורום CODE613 ב29/11/2016 18:38 (+02:00)

[מלא 0]

גם לא עובד.

בסוף בסוף מצאתי קוד חדש שהוא עובד חלק גם במחשב הבעייתי...

Public Function getFileName(ByRef TFile As Control) As String

    Dim fDialog As Object
    Set fDialog = Application.FileDialog(3)
    Dim varFile As Variant

    With fDialog
       .AllowMultiSelect = False
       .Title = "בחר קובץ"
'       .InitialFileName = "11.xlsx"

    If .Show = True Then
       For Each varFile In .SelectedItems
         getFileName = varFile
       Next
    End If
End With

    TFile = getFileName
    
End Function

פורסם במקור בפורום CODE613 ב29/11/2016 21:07 (+02:00)