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.
Do Until boolEOF = False With objExcel lngCurrentPublicationID = .Cells(intDataRow, intDataColumn) If lngCurrentPublicationID = 99 Then boolEOF = False Exit Do End If intDataRow = 1 intDataColumn = 3 lngCurrentTeamID = .Cells(intDataRow, intDataColumn) End With strSQL = "SELECT Sum(RevenueRecords.Revenue) AS SumOfRevenue, Issues.IssueClosed " & _ " FROM ((Issues INNER JOIN Publications ON Issues.PublicationID = Publications.PublicationID) " & _ " INNER JOIN RevenueRecords ON Issues.IssueID = RevenueRecords.IssueID) INNER JOIN " & _ " (SalesReps INNER JOIN SalesTeams ON SalesReps.TeamID = SalesTeams.TeamID) ON " & _ " RevenueRecords.SalesRepID = SalesReps.RepID GROUP BY Publications.PublicationID, SalesTeams.TeamID, Issues.IssueClosed " & _ " HAVING Publications.PublicationID = " & lngCurrentPublicationID & " AND SalesTeams.TeamID = " & lngCurrentTeamID & _ " AND Issues.IssueClosed = False" Loop
Join the community of 500,000 technology professionals and ask your questions.