Capture date / time once search is succesful

[Zetsubo69]

Good day,

I would like to know how to capture the date / time of the user once he have scan his cards.

If successful, the back end will capture the date / time he scan successfully

if fail, the system will not capture the date / time.

Public Class Form1
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim strEmployeeName As String

If TextBox1.Text.Length >= TextBox1.MaxLength Then
'Check the exists of the Employee Card
'If exists then focus on invitation card
strEmployeeName = EmployeeExists(TextBox1.Text)
If strEmployeeName <> "<Not Exists>" Then
TextBox3.Text = " Welcome " & strEmployeeName & ", please scan your invitation card. "
TextBox2.Focus()
Else

TextBox3.Text = "Employee record not found, Please try again or proceed to manual registration counter"
TextBox1.Text = ""
TextBox1.Focus()

End If
Else
If TextBox1.Text.Length <> 0 Then
TextBox3.Text = "Please scan with your employee card."
End If
End If

Continue reading...