Programación General > Visual Basic para principiantes

 Comando Buscar

(1/1)

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

Abhero:
Para buscar se usan:


Findfirst
Findnext
Findlast

Los tres te llevaran al mismo lugar donde hay ejemplos.
Recuerdos,  :hola:
Ab

sebadivididos:
Gracias, voy a ver si puedo con los ejemplos.
Gracias denuevo y perdon por la tardanza

Navegación

[0] Índice de Mensajes