Free for PREMIUM members
[Last Call] Learn how to a build a cloud-first strategyRegister Now
Dim strFileName As String
Dim strSourceFolder As String
Dim strRowSource As String
strSourceFolder = FolderPath & "\" 'Enter the path of the folder that has the photos
strFileName = Dir(strSourceFolder)
While strFileName <> ""
strRowSource = strRowSource & strFileName & ";"
strFileName = Dir
strRowSource = Left(strRowSource, Len(strRowSource) - 1)
Me.lst0.RowSourceType = "Value List"
Me.lst0.RowSource = strRowSource 'This gives you a listbox with the path of all the photos
'Now we will display these photos
Dim i as Integer
For i = 0 to Me.lst0.ListCount -1
Me("Img" & i+1).Picture="'" & Me.lst0.Column(0, i)
Open in new window
Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!
Learn how Concerto can help you.
If Not Rst1.EOF Then
Dim strLetter As String
While Not Rst1.EOF
PhotCount = PhotCount + 1
!("Photo" & strLetter).Caption = Rst1![PhotoID]
!("Image" & strLetter).Picture = Rst1![RefFilePhoto]
!(Photo & strLetter).Visible = -1
!(Image & strLetter).Visible = -1
strLetter = Chr(Asc(Letter) + 1)
Veeam Explore for Oracle delivers low RTOs and RPOs with agentless transaction log backup and transaction-level recovery of Oracle databases. You can restore the database to a precise point in time, even to a specific transaction.