פקודת הפעלת קובץ וידיאו

[לוי א]

האם ישנו קוד באקסס שמפעיל קובץ וידאו שמאוחסן במחשב?

 

[אייקוד]

Application.FollowHyperlink "C:\...file.mp4"

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

'Source: http://www.pacificdb.com.au/MVP/Code/ExeFile.htm
Public Const SW_HIDE = 0
Public Const SW_MINIMIZE = 6
Public Const SW_RESTORE = 9
Public Const SW_SHOW = 5
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOWNORMAL = 1
 
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
 
Public Sub ExecuteFile(sFileName As String, sAction As String)
    Dim vReturn As Long
    'sAction can be either "Open" or "Print".
 
    If ShellExecute(Access.hWndAccessApp, sAction, sFileName, vbNullString, "", SW_SHOWNORMAL) < 33 Then
        DoCmd.Beep
        MsgBox "File not found."
    End If
End Sub

מקור https://www.devhut.net/2010/06/12/ms-access-vba-open-a-file/

 

[לוי א]

תודה רבה!!
כעת, האם יש גם קוד הפוקד על סגירת הקובץ?
(אני בונה קובץ שמשודר בצורה אוטמטית ללא מגע אדם לפי פקודה שהוא מקבלת ממערכת טלפונית - ואני רוצה שבשלב מסוים הוא יפתח וידיאו , אז אני צריך גם בסיום הוידיאו לסגור אותו)