Private Function Valor10(Tecla As Integer) As Integer
Dim StrValido As String
StrValido = "1234567890."
    If Tecla > 26 Then
        If InStr(StrValido, Chr(Tecla)) = 0 Then
            Tecla = 0
        End If
    End If
    Valor10 = Tecla
End Function

Private Sub txtCantidad_KeyPress(KeyAscii As Integer)
    Call Valor10(KeyAscii)
End Sub

factura_articulo.Recordset.MoveLast
txtnfactura.Text = Val(factura_articulo("nº_factura")) + 1

AdoHorarioEntrada.RecordSource = "SELECT * FROM horario_entrada WHERE nº_empleado = '" & (txtnempleado.Text) + "'"
AdoHorarioEntrada.Refresh

If AdoHorarioEntrada.Recordset.RecordCount = 0 Then   ' Si la consulta es igual k cero quiere decir que no tiene registro en esa tabla 

   Aky puedes Grabar los Datos en la tabla
else
  MsgBox "horario entrada existente"
End If