Búsqueda con cuadro de texto, mostrar resultado en otro cuadro de texto

Tengo dos campos de texto y un botón, quisiera que en el primer campo de texto ingresara un rut y en el otro campo de texto me devolviera el nombre de esa persona, todo esta en una misma tabla.

1

1 Respuesta

4.543.800 pts. Sancho, si los perros ladran ...

Te anexo el código, suponiendo que los datos están en la hoja1, en la columna A está el RUC y en la B el nombre

Private Sub CommandButton1_Click()
    Set h = Sheets("Hoja1")
    If TextBox1.Value = "" Then
        MsgBox "Captura el RUC"
        TextBox1.SetFocus
        Exit Sub
    End If
    If IsNumeric(TextBox1.Value) Then valor = Val(TextBox1.Value) Else valor = TextBox1.Value
    Set b = h.Columns("A").Find(valor, lookat:=xlWhole)
    If Not b Is Nothing Then
        TextBox2.Value = h.Cells(b.Row, "B").Value
    Else
        MsgBox "El RUC no existe"
    End If
End Sub

.

.

Me olvide decir que es en access, como busco los datos si no están las columnas enumeradas en access :(

Es correcto, como me llegó la pregunta no revisé que era en el tema de access. Te ofrezco una disculpa.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas