Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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.