SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: sebadivididos en Sábado 8 de Marzo de 2008, 21:01

Título: Comando Buscar
Publicado por: sebadivididos en Sábado 8 de Marzo de 2008, 21:01

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

Título: Re: Comando Buscar
Publicado por: Abhero en Lunes 10 de Marzo de 2008, 16:15

Para buscar se usan:


Findfirst (http://personales.com/espana/granada/vbpedrojose/13.html)
Findnext (http://personales.com/espana/granada/vbpedrojose/13.html)
Findlast (http://personales.com/espana/granada/vbpedrojose/13.html)

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

Título: Re: Comando Buscar
Publicado por: sebadivididos en Martes 11 de Marzo de 2008, 23:36

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