Curso Básico de Programación
en Visual Basic

 

Soluciones de la Entrega Treinta y cuatro: 18/Ene/2001
por Guillermo "guille" Som

Si quieres linkar con las otras entregas, desde el índice lo puedes hacer

Volver a la entrega 34

 

Aquí tienes la respuesta a la entrega 34.

'
Private Sub Text4_KeyPress(KeyAscii As Integer)
    ' Se buscará sólo cuando pulsemos INTRO
    Dim nReg As Long
    '
    ' Comprobar si la tecla pulsada es Intro: vbKeyReturn o 13 que es lo mismo
    If KeyAscii = vbKeyReturn Then
        ' Esta asignación evita que suene un BEEP
        KeyAscii = 0
        ' Convertir el contenido de TextBox en un número
        nReg = Val(Text4)
        ' Buscar la primera coincidencia en el recordset del Data1
        If Option1.Value Then
            ' en el campo Au_ID
            Data1.Recordset.FindFirst "Au_ID = " & nReg
        End If
        If Option2.Value Then
            ' en el campo Author
            Data1.Recordset.FindFirst "Author Like '" & Text4.Text & "'"
        End If
    End If
End Sub

 

Ir al índice principal del Guille