Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
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_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 3 And KeyCode = vbKeyF5 Then If IsNumeric([fldLocation4]) Then [fldLocation4] = [fldLocation4] + 1 ElseIf IsNull([fldLocation4]) Then [fldLocation4] = 1 Else MsgBox "Must Manually Enter AlphaNumeric Code Values.!", vbCritical, "Error!" KeyCode = 0 Me.fldLocation4.SetFocus Exit Sub End If End Sub
Join the community of 500,000 technology professionals and ask your questions.