Ejecutar consulta sql sobre un TextBox de un UserForm.

[Benito Bartolomé]

Buenos días y feliz año a todos.

Tengo la siguiente duda que no sé si es posible configurar o no.

Me gustaría conseguir que al poner un dato en el "TextBox50" del formulario "frm_Clientes" se haga una consulta a la base de datos Access "BBDD" y que el dato obtenido de la consulta se traslade a los "TextBox", (rellenando todos los campos que tengan datos en la consulta).

Tengo algo parecido pero en el "TextBox60" pero este es un comboBox y me gustaría que fuese sobre un "TextBox"

Adjunto macro de ejemplo.

Un cordial saludo.

MacroSql.zip

[Benito Bartolomé]

Hola de nuevo;

-Adjunto video.

-He conseguido hacer lo que proponía.

-La subo porque seguramente tendrá errores o se puede mejorar. Sí es así por favor comentar.

-Debe haber algún problema técnico que no me deja subir la macro. Detallo a continuación el código que he puesto para el evento Change del TextBox50.

Private Sub TextBox50_Change(): On Error Resume Next
Dim Texto As String
Call Conectar
Texto = TextBox50.Value
   Sql = "SELECT * FROM tb_cliente WHERE "
   Sql = Sql & "nºcliente like '" & Texto & "'"
   Set rs = cnn.Execute(Sql)
   

With rs
    frm_Clientes.TextBox50 = rs("nºcliente")
    frm_Clientes.TextBox51 = rs("nombre")
    frm_Clientes.TextBox52 = rs("dni")
    frm_Clientes.TextBox53 = rs("direccion")
    frm_Clientes.TextBox59 = rs("codigoPostal")
    frm_Clientes.TextBox60 = rs("poblacion")
    frm_Clientes.TextBox61 = rs("provincia")
    frm_Clientes.TextBox62 = rs("pais")
    frm_Clientes.TextBox54 = rs("telefono")
    frm_Clientes.TextBox58 = rs("notas")
    frm_Clientes.TextBox55 = rs("email")
    frm_Clientes.TextBox63 = rs("fechaAlta")
    frm_Clientes.TextBox64 = rs("fotoCliente")
    frm_Clientes.TextBox56 = rs("iban")
    frm_Clientes.TextBox57 = rs("ccc")
    frm_Clientes.CheckBox1 = rs("Activa")
End With
Call Desconetar
End Sub

Video:

FormularioAltaCliente

Saludos.

[Antoni]

Ya que lo tenía hecho.....

MExcel.xlsm

[Benito Bartolomé]

Hace 12 horas, Antoni dijo:

Ya que lo tenía hecho.....

MExcel.xlsm 130.89 kB · 2 descargas

Bo día Antoni;

Gracias por el ? de Reyes. 

He visto y probado la macro y es un poco similar a la había logrado recomponer yo pero mejorada. 

Lo intente pero faltaba el toque del Chef ?

Ahora quedó  perfecto.

No sé que frío hace por Santiago pero me acabo de levantar y por la ventana de mi casa se ven los campos con una Xiada de carallo ☃️ 

Un abrazo. 

 

[Antoni]

Pero de carallo gordo, gordo ?

¡Ah! se me olvidaba, también he modificado el formulario de búsqueda.

[Benito Bartolomé]

Se me olvidó puntuar. 

Abrígate 

Un abrazo ? 

Hace 5 minutos , Antoni dijo:

Pero de carallo gordo, gordo ?

¡Ah! se me olvidaba, también he modificado el formulario de búsqueda.

Se me olvidó puntuar.

Abrígate que hoy rasca. 

Un abrazo ?