Curso básico de programación en Visual Basic

  Lección 34

Solución, private sub

 

Realizamos programas para la gestión de empresas. Empresas medianas y pequeñas. Programas de contabilidad, cartera de pedidos clientes proveedores, facturación control de albaranes, tesorería cartera de cobros y pagos y estadísticas. Nuestro agradecimiento a todos los que por unas causas o por otras visitan nuestra web. Gestión de empresas PYMES. Curso de programación de Visual Basic.

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