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:
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
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
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...