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 cmdRun_Click() Dim i As Integer, iCount As Integer, rst As Recordset, recSet As Recordset Dim sSql As String, iSql As String, cSql As String, i2 As Integer Dim iCount2 As Integer, mSql As String, newSet As Recordset, aSql As String Dim Tr2 As String, Tr3 As String, Tr4 As String, RD As String Dim Tr2F As DAO.Field, Tr3F As DAO.Field, Tr4F As DAO.Field, RF As DAO.Field Dim wrkSet As Recordset Tr2 = "AttempType2_": Tr3 = "AttempType3_": Tr4 = "AttempType4_": RD = "Results_" sSql = "qryUnique" Set rst = CurrentDb.OpenRecordset(sSql) If rst.EOF = False Then rst.MoveLast: rst.MoveFirst: iCount = rst.RecordCount - 1: i = 1 Else MsgBox "No Recs" End If Do Until i = iCount cSql = "Select Count([RID]) as myCount from tblHOH where RID = '" & rst!RID & "'" Set recSet = CurrentDb.OpenRecordset(cSql): i2 = 1: recSet.MoveLast: recSet.MoveFirst: iCount2 = recSet!myCount + 1 mSql = "Select AttempType2 as A2, AttempType3 as A3, AttempType4 as A4, Results as RT from tblHOH where tblHOH.RID = '" & rst!RID & "'" Set newSet = CurrentDb.OpenRecordset(mSql) aSql = "Select * from tblWork" Set wrkSet = CurrentDb.OpenRecordset(aSql) wrkSet.MoveLast: wrkSet.MoveFirst: Dim iWk As Integer: iWk = wrkSet.RecordCount Do Until i2 = iCount2 Tr2 = Tr2 & CStr(i2) Debug.Print Tr2 ' = AttempType2_1 when it debug prints. wrkSet.Fields(Tr2F) = Tr2 CurrentDb.Execute iSql, dbFailOnError i2 = i2 + 1 recSet.MoveNext Loop i = i + 1 rst.MoveNext Loop End Sub