See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.
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
|Which operating system and computer hardware should I use with Access 2016||15||28|
|MS Access Query Concatenate Multiple Row Values Into A Single Row Or Field Used For Many Images For A Single Product||17||26|
|Why is my report opening in "MAX" view?||7||9|
|Pass Form Control to VBA Function||2||16|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!