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.
Function setConditionalFormats() Dim vControl As control Dim vTextbox As TextBox Dim sql As String Dim rst As New adodb.Recordset Dim teller As Integer Call OpenConnections For Each vControl In Me.Controls If TypeName(vControl) = "Textbox" Then teller = 0 Set vTextbox = vControl sql = "select alarmsoort, weergave_kleur from alarmsoort" rst.Open sql, G_SQLConn, adOpenForwardOnly, adLockReadOnly Do Until rst.EOF vTextbox.FormatConditions.Add acExpression, , "[Alarmsoort] = " & rst!Alarmsoort vTextbox.FormatConditions(teller).ForeColor = rst!weergave_kleur teller = teller + 1 rst.MoveNext Loop rst.Close End If Next End Function
Join the community of 500,000 technology professionals and ask your questions.