Hola, saludos a todos, soy nuevo en esto yarme un codigo, pero no se como crear un buscador, que me devuelva en el campo Apellido y Nombre, el valor, este es el codigo:
Private Sub Comanterior_Click()
Datamedicos.rsCommedicos.MovePrevious
If Datamedicos.rsCommedicos.BOF Then
Datamedicos.rsCommedicos.MoveFirst
MsgBox "Estamos en el primer registro"
End If
End Sub
Private Sub Comborrar_Click()
Datamedicos.rsCommedicos.Delete
Datamedicos.rsCommedicos.MoveNext
If Datamedicos.rsCommedicos.EOF Then
Datamedicos.rsCommedicos.MoveLast
End If
End Sub
Private Sub Comeditar_Click()
ModoEditar True
End Sub
Private Sub Comguardar_Click()
Datamedicos.rsCommedicos.Update
ModoEditar False
End Sub
Private Sub Comnuevo_Click()
Datamedicos.rsCommedicos.AddNew
ModoEditar True
End Sub
Private Sub Comprimero_Click()
Datamedicos.rsCommedicos.MoveFirst
End Sub
Private Sub Comsalir_Click()
Unload Me
End Sub
Private Sub Comsiguiente_Click()
Datamedicos.rsCommedicos.MoveNext
If Datamedicos.rsCommedicos.EOF Then
Datamedicos.rsCommedicos.MoveLast
MsgBox "Estamos en el último registro"
End If
End Sub
Private Sub Comultimo_Click()
Datamedicos.rsCommedicos.MoveLast
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("¿Desea terminar la aplicación?", _
vbQuestion + vbYesNo, "Pregunta") = vbYes Then
End
Else
Cancel = True
End If
End Sub
Private Sub Form_Activate()
ModoEditar False
End Sub
Private Sub ModoEditar(ByVal Ok As Boolean)
txtApellidoyNombre.Locked = Not Ok: txtApellidoyNombre.Locked = Not Ok
txtHonorarios.Locked = Not Ok: txtHonorarios.Locked = Not Ok
txtEspecialidad.Locked = Not Ok: txtEspecialidad.Locked = Not Ok
txtDias.Locked = Not Ok: txtDias.Locked = Not Ok
txtLegajoNº.Locked = Not Ok: txtLegajoNº.Locked = Not Ok
txtHorario.Locked = Not Ok: txtHorario.Locked = Not Ok
txtHspormes.Locked = Not Ok: txtHspormes.Locked = Not Ok
Comnuevo.Enabled = Not Ok: Comeditar.Enabled = Not Ok
Comguardar.Enabled = Ok: Comborrar.Enabled = Not Ok
Comprimero.SetFocus: If Ok Then txtLegajoNº.SetFocus
End Sub
Muchas gracias desde ya, y pordon si no fui muy claro con lo que dije, saludos
