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