Hola a todos! espero no equivocarme de foro sino cualquier cosa me avisan.
Aquí va mi consulta:
Veamos, tengo un formulario con un campo independiente y un botón que realizará la búsqueda, en dicho campo se introducirá un nº de dni y al encontrar dicho registro se visualizará en el subformulario que tengo insertado.
El campo independiente tiene como nombre "buscar" y el botón "botonbuscar" y en el botón dentro del evento "click" inserté el siguiente código:
*******
Private Sub botonbuscar_Click()
' Declaramos la variable para la sentencia sql
Dim sql As String
sql = "SELECT * FROM [datos personales] "
sql = sql & " WHERE [NroDni] Like '*" & [buscar] & "*' "
'Finalmente seleccionamos como origen del subformulario la sentencia sql
Dim F As Form
Dim SF As Form
Set F = Forms![Buscador Eliminación de Clientes]
Set SF = F![Borrado].Form
SF.RecordSource = sql
Exit Sub
End Sub
*******
Cuando ingreso el nº de dni en el campo del subformulario solo aparece esto: #Error
Así que no se si estoy haciendo algo mal o que, espero me puedan ayudar.
Desde ya les doy las gracias.
Un saludo!
Maru.-
