ayuda para una consulta en access

[eszzes]

me pueden decir cual es el error en este codigo? lo q queria hacer es q yo tengo horario de entrada y de salida y al elegir la opcion entrada q me busque en la base de datos en la tabla horaio_entrada todos los datos q tenga para mostrar y bueno despues lo mismo al elegir la opcion horario_salida. y lo unico q hace es buscar en la tabla "horario_entrada" al elegir cualquiera de las dos opciones... bueno me pueden decir q estoy haciendo mal?ah los botones q tengo son guardar, modificar, eliminar, buscar, anterior y siguiente y nose cual codigo le tengo q poner d todos esos botones, y bueno pongo el del boton guardar  aca esta el codigo:

Código [Seleccionar] Expandir

If Option1.Value = True Then
horario_entrada.MoveFirst
Do While Not horario_entrada.EOF
    If txtnempleado.Text = horario_entrada("nº_empleado") Then
        a = 1
        Exit Do
    End If
    horario_entrada.MoveNext
Loop
If a = 1 Then
    MsgBox "horario entrada existente"
    a = 0
Else
   horario_entrada.AddNew

   horario_entrada("nº_empleado") = txtnempleado.Text
    horario_entrada("dia") = txtdia.Text
    horario_entrada("mes") = txtmes.Text
    horario_entrada("año") = txtaño.Text
    horario_entrada("hora_entrada") = txthora.Text

   
   
    MsgBox "horario entrada guardado"
End If
Else

horario_salida.MoveFirst
Do While Not horario_salida.EOF
    If txtnempleado.Text = horario_salida("nº_empleado") Then
        a = 1
        Exit Do
    End If
    horario_salida.MoveNext
Loop
If a = 1 Then
    MsgBox "horario salida existente"
    a = 0
Else
   horario_salida.AddNew

   horario_salida("nº_empleado") = txtnempleado.Text
    horario_salida("dia") = txtdia.Text
    horario_salida("mes") = txtmes.Text
    horario_salida("año") = txtaño.Text
    horario_salida("hora_entrada") = txthora.Text

   
   
    MsgBox "horario salida guardado"
End If
End If

[Angeldj27]

Si te creas una consulta Sql te saldria mas facil evaluar la condicion y menos codigos diria yo sin necesidad de Bucles
Fijate:

Creas un Ado asi lo aria yo

Código [Seleccionar] Expandir



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



Asi seria mas facil y mas rapido
Talves te ayude en algo..
Saludos...