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 cbVendorName_Click() On Error GoTo Err_cbVendorName_Click Dim strCurrSort As String If Not IsNull(Me.tbVendorName) Then strCurrSort = Me.tbVendorName Else Me.tbVendorName = "false" strCurrSort = Me.tb1VendName End If 'Me.tb1VendName If strCurrSort = "True" Then Me.OrderBy = "tb1VendName DESC" Me.OrderByOn = True Me!tb1VendName.BackColor = 16777215 '4227200 Me.tbVendorName = "false" Else ' Me.tb1VendName a test to verify that I have the syntax for the field name correct Me.OrderBy = "tb1VendName ASC" Me.OrderByOn = True Me.tbVendorName = "True" Me!tb1VendName.BackColor = 10998526 End If ' refresh data DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 Exit_cbVendorName_Click: Exit Sub Err_cbVendorName_Click: MsgBox Err.Description Resume Exit_cbVendorName_Click 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.