Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!
Private Sub Form_Open(Cancel As Integer) ' Set error trap On Error Resume Next Dim strPath As String Dim strChair As String Dim rst As DAO.Recordset Set rst = Me.RecordsetClone With rst If .RecordCount Then .MoveFirst Do Until .EOF 'When the last record is reached the code stops Me.Bookmark = .Bookmark ' Assign ID as path for images strPath = Me.ID 'Determine current chair strChair = Me.Chair strChair = "Seat" & strChair 'Establish path for existing images and default path for missing immages If Err <> 0 Then strPath = CurrentProject.Path & "\Resources\Images\ths.png" Else strPath = CurrentProject.Path & "\Resources\Images\Students\" & strPath & ".png" End If 'Load picture to form Me!strChair.Picture = UCase(strPath) strChair = "" strPath = "" .MoveNext Loop End If End With rst.Close Set rst = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.