Código:
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
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