עזרה ב Access

[צליל הכינור]

שלום מישהו יכול לעזור לי,
אני צריך אפשרות ללחצן בתוכנת Access שיפתח קובץ במדיה פלייר או ב VLC וכדו'.

 

[אפר]

שלום מישהו יכול לעזור לי,
אני צריך אפשרות ללחצן בתוכנת Access שיפתח קובץ במדיה פלייר או ב VLC וכדו'.

פתיחת קובץ דרך שורת הפקודה של Windows ב-VBA ( באמצעות WSscript) – כובע על ענן

 

[צליל הכינור]

שלום מישהו יכול לעזור לי,
אני צריך אפשרות ללחצן בתוכנת Access שיפתח קובץ במדיה פלייר או ב VLC וכדו'.

אשמח לפירוט יותר אם אפשר

 

[צליל הכינור]

פתיחת קובץ דרך שורת הפקודה של Windows ב-VBA ( באמצעות WSscript) – כובע על ענן

אשמח לפירוט יותר אם אפשר

 

[MordiD]

אשמח לפירוט יותר אם אפשר

על פי מה ש @אפר כתב

Dim objshell As Object
Set objshell = CreateObject("WScript.Shell")

objshell.Run "start filePath/file.mp4 "

תשנו את הנתיב של הקובץ
זה מפעיל את הקובץ בברית מחדל

 

[אפר]

אשמח לפירוט יותר אם אפשר

פתיחת קובץ דרך שורת הפקודה של Windows ב-VBA ( באמצעות WSscript) – כובע על ענן

ספוילר: אם חסום לך לחץ כאן

פתיחת קובץ דרך שורת הפקודה של Windows ב-VBA ( באמצעות WSscript)

בדרך כלל אם רוצים להריץ פקודה ב-Shell, יש לשם כך את הפקודה Shell

אלא מה – זוהי פקודה מאוד נכה, שלא תמיד עובדת.
נניח – אם תנסו להריץ קובץ lnk, זה לא יעבוד, כנ"ל לגבי קבצי pdf, וכדומה.

ולכן משתמשים ב-wsScript
הערה – אם הפקודה מכילה ארגומנטים או רווחים, תכפילו את המרכאות ב-4, או לחלופין יש להשתמש ב-chr(34)

Dim objshell As Object

Set objshell = CreateObject("WScript.Shell")
    
objshell.Run "C:YouPathYourFile.lnk"

 

[צליל הכינור]

אשמח אם תוכלו לעזור לי באישי

 

[moshem]

יותר פשוט מפשוט !
להריץ את הפקודה הבאה ב SUB \ FUNCTION

Shell "C:\WINDOWS\Users\1\exmple.xlsx", 1​

זה פותח את הקובץ בתכנית ברירת המחדל המוגדרת במחשב

 

[צליל הכינור]

הצורך בדיוק הפוך שלא יפתח ע"י ברירת מחדל, אלא תמיד ע"י MEDIA PLAYER
זה מה שכתוב לי היום מה צריך לשנות כאן?

Private Sub פקודה22_Click()
DoCmd.OpenForm "טבלה1", acNormal, , "[מזהה] = 1", , acHidden
DeleteOldFilse
SaveandOpenAttachments
DoCmd.Close acForm, "טבלה2"
End Sub​

 

[MordiD]

אולי ככה

CreateObject("WScript.Shell").Run "C:\Program Files (x86)\VideoLAN\VLC\vlc.exe filePath/file.mp4"

 

[אפר]

אולי ככה

CreateObject("WScript.Shell").Run "C:\Program Files (x86)\VideoLAN\VLC\vlc.exe filePath/file.mp4"

אמור לעבוד

 

[אפר]

אמור לעבוד

Sub פקודה22_Click()
DoCmd.OpenForm "טבלה1", acNormal, , "[מזהה] = 1", , acHidden
Dim objshell As Object
Set objshell = CreateObject("WScript.Shell")
objshell.Run  "C:\Program Files (x86)\VideoLAN\VLC\vlc.exe " & "נתיב הקובץ"
DeleteOldFilse
SaveandOpenAttachments
DoCmd.Close acForm, "טבלה1"
End Sub

תחליף את "נתיב הקובץ" בנתיב של הקובץ לדוג' C:\Users\User\Desktop\Video.mp4

 

[MordiD]

תחליף את "נתיב הקובץ" בנתיב של הקובץ לדוג' C:\Users\User\Desktop\Video.mp4

מחפשים את השליפה מהטבלה
אני לא עובד כמעט עם vba

 

[צליל הכינור]

אחרי כל העצות המחכימות עדין לא נפתח

 

[אפר]

אחרי כל העצות המחכימות עדין לא נפתח

תשים מה שעשית

 

[צליל הכינור]

היו הרבה אופציות זה אחד מהם

Sub פקודה22_Click()
DoCmd.OpenForm "טבלה1", acNormal, , "[מזהה] = 1", , acHidden
Dim objshell As Object
Set objshell = CreateObject("WScript.Shell")
objshell.Run "C:\Program Files (x86)\Windows Media Player\wmplayer.exe"
DeleteOldFilse
SaveandOpenAttachments
DoCmd.Close acForm, "טבלה1"
End Sub
​

 

[אפר]

היו הרבה אופציות זה אחד מהם

Sub פקודה22_Click()
DoCmd.OpenForm "טבלה1", acNormal, , "[מזהה] = 1", , acHidden
Dim objshell As Object
Set objshell = CreateObject("WScript.Shell")
objshell.Run "C:\Program Files (x86)\Windows Media Player\wmplayer.exe"
DeleteOldFilse
SaveandOpenAttachments
DoCmd.Close acForm, "טבלה1"
End Sub
​

חסר פה הנתיב של הקובץ עצמו אחרי הנתיב של התוכנה

 

[צליל הכינור]

נתיב הקובץ מצורף (קופץ בתצוגה לתחילה השורה.)
המיקום הוא בטבלה1 מזהה1

objshell.Run "C:\Program Files (x86)\Windows Media Player\wmplayer.exe" & "[מזהה ] = 1"​

 

[אפר]

נתיב הקובץ מצורף (קופץ בתצוגה לתחילה השורה.)
המיקום הוא בטבלה1 מזהה1

objshell.Run "C:\Program Files (x86)\Windows Media Player\wmplayer.exe" & "[מזהה ] = 1"​

מצטער אבל אני לא מצליח להבין איך VBA אמור לדעת לתרגם את "[מזהה]=1" לנתיב הקובץ