Page 2 of 2 FirstFirst 12
Results 16 to 20 of 20
  1. #16
    ItsMe's Avatar
    ItsMe is offline Sometimes Helpful
    Windows 8 Access 2013
    Join Date
    Aug 2013
    Posts
    7,862
    Maybe padding the control based on the metadata is the only option. Right now, I am super swamped and too many things on my mind. Below is some sample code to go after the meta data. I will check in later.



    Code:
    Public Function GetMediaFileLength(ByVal p_FolderPath As String, ByVal p_FileName As String) As String
        If p_FolderPath <= "" Or p_FileName <= "" Then
            MsgBox "Please provide a folder and a path."
        Exit Function
        End If
    GetMediaFileLength = "No File Found"
    Dim objShell As New Shell
    Dim objFolder As Folder3
    Dim objFile As FolderItem
    Set objFolder = objShell.NameSpace(p_FolderPath)
        For Each objFile In objFolder.Items
        
            If objFile.Name = p_FileName Then
                GetMediaFileLength = objFile.GetDetailsOf(objFile, 27)
                'GetMediaFileLength = objFolder.GetDetailsOf(objFile, 27)
            End If
        
        Next objFile
    End Function

  2. #17
    Corsica51 is offline Novice
    Windows 10 Access 2003
    Join Date
    Sep 2016
    Posts
    11
    OK, thanks. I can't test that just now, but I will later.

    Many thanks.

  3. #18
    Corsica51 is offline Novice
    Windows 10 Access 2003
    Join Date
    Sep 2016
    Posts
    11
    So glad to be able to say that yesterday I found that I could carry the work on in Access 2010. I immediately did some testing and found that the problem that I brought up in this thread is no longer relevant. This is simply because I found that in Access 2010 I could display different images on each record in a continuous form by linking an image control to a field that contains the paths to the images.

    Thank you all for your replies.

  4. #19
    ItsMe's Avatar
    ItsMe is offline Sometimes Helpful
    Windows 8 Access 2013
    Join Date
    Aug 2013
    Posts
    7,862
    Thanks for the update. Glad things are working for you.

  5. #20
    Corsica51 is offline Novice
    Windows 10 Access 2003
    Join Date
    Sep 2016
    Posts
    11

    Thanks for your suggestions.

Page 2 of 2 FirstFirst 12
Please reply to this thread with any new information or opinions.

Similar Threads

  1. Replies: 19
    Last Post: 10-21-2015, 10:37 PM
  2. Bound Object Frame
    By bigguy in forum Forms
    Replies: 4
    Last Post: 04-15-2015, 03:14 PM
  3. Replies: 1
    Last Post: 05-30-2012, 03:51 PM
  4. Bound Object Frame Combo sorted Results
    By kevsim in forum Programming
    Replies: 7
    Last Post: 01-08-2011, 06:30 PM
  5. Replies: 1
    Last Post: 08-05-2010, 12:11 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums