Hi Sir, Kimangel is here again! Gud Day!
How would I code that a cursor will automatically return to its place where it was encountered error? unless resolved.
Below is my code;
Private Sub txtContact_No1_LostFocus() On Error Resume Next If txtContact_No1.Text = "" Then MsgBox "Fill up the field to avoid error.", vbOKOnly + vbInformation, "Employees" Exit Sub ElseIf Not IsNumeric(txtContact_No1.Text) Or Val(txtContact_No1.Text) <= 0 Then MsgBox "You must enter Numeric values.", vbOKOnly, "Employees" Exit Sub End If End Sub