Codigo VBA Registrar Entrada y Salida Reloj checador

Esta es una aplicacion para un Reloj Checador donde el usuario es capaz de registrar su "Entrada" ó "Salida" con una clave personal. El usuario sera capaz de registar el tipo de checada y quedara registrada mediante una Instruccion SQL.

El codigo para Registrar la Entrada en el Reloj Checador seria asi:
Seria este mismo codigo para registrar la salida, solo se cambiaria el valor de la variable



TipoChecada = "SALIDA"

****************** CODIGO VBA (Entrada) ******************
'Declaracion de Variables
Dim Nclave As String
Dim numemp As Integer
Dim varfecha As String
Dim varhora As String
Dim week As String
Dim strSQL As String
Dim TipoChecada As String
'Apagar mensajes emergentes
DoCmd.SetWarnings False
'Inicializar variables
varfecha = Format(Date, "dd/mm/yyyy")
varhora = Format(Time(), "hh:mm:ss")
week = Format(Date, "ww")
TipoChecada = "ENTRADA"
'Validar campo vacio en Clave
Nclave = Nz(Me.TxtClave.Value, "NULL")
If Nclave = "NULL" Then
GoTo Salir_campo_vacio
Else
'Validar clave correcta
numemp = Nz(DLookup("[PK_EMPLEADO]", "[EMPLEADOS]", "CLAVE='" & Nclave & "'"), 0)
If numemp = 0 Then
GoTo Salir_clave_incorrecta
Else
'Ejecucion de Insercion de Registro en tabla horarios
strSQL = "INSERT INTO HORARIOS (TIPO_DE_CHECADA,FECHA,HORA,FK_EMPLEADO,NUMERO_DE_LA_SEMANA) VALUES ('" & TipoChecada & "',#" & varfecha & "#,#" & varhora & "#," & numemp & "," & week & ");"
DoCmd.RunSQL strSQL
Me.Checadas_de_Reloj.Requery 'Refresca el grid
End If
End If
'Devolver el control para nueva checada
Me.TxtClave.Value = ""
Me.TxtClave.SetFocus
Exit Sub
'Ejecutar si el campo es vacio
Salir_campo_vacio:
MsgBox "Para Registrar una checada, necesita proporcionar su clave", vbCritical + vbOKOnly, "Reloj Checador: Error!!"
Exit Sub
'Ejecutar si la clave es incorrecta
Salir_clave_incorrecta:
MsgBox "Su Clave Incorrecta, favor de verificar!!", vbCritical + vbOKOnly, "Reloj Checador: Acceso Denegado!!"
Exit Sub
******************************************************