Ejecutar consulta sql sobre un TextBox de un UserForm.

Benito Bartolomé · el 5 de enero

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é · el 5 de enero

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.