[resolvido] Função auto expandir

Moderador: Avelino Sampaio

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

[resolvido] Função auto expandir

Mensagempor José Waldick » 10 Nov 2016, 08:03

Tenho um campo tipo txt que em que a informação é muita repetida, e torna-se as vezes cansativo está digitando a mesma informação; assim, como no Excel, existe uma maneira de que ao digitar os primeiros caracteres o sistema execute um auto expandir? Sei que existe esta possibilidade em uma combobox, porém não queria utilizar este modelo, desejo utilizar uma textbox.

Consegui este código na Net, não estou conseguindo a adequar ao meu aplicativo

Código: Selecionar todos

Dim con As New OleDbConnection

 con.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Controle de Vendas 2.0\Controle de Vendas 2.0\bd_x.accdb")
        con.Open()
        Dim dt As New DataTable
        Dim ds As New DataSet
        ds.Tables.Add(dt)
        Dim da As New OleDbDataAdapter("select * from Produtos", con)
        da.Fill(dt)
        With TBX_Codigo_Prod
            .AutoCompleteSource = AutoCompleteSource.CustomSource
            .AutoCompleteMode = AutoCompleteMode.SuggestAppend
        End With
        TBX_Codigo_Prod.AutoCompleteCustomSource.Clear()
        For Each dr As DataRow In dt.Rows
 ' Estou inserino um espaço depois do "código"
           TBX_Codigo_Prod.AutoCompleteCustomSource.Add(dr("Código").ToString() + " ")
        Next
    End Sub

[Link=]https://social.msdn.microsoft.com/Forums/pt-BR/fa82d283-4e3a-4775-aa91-1242242063b5/textbox-buscar-dados-autocompletar-em-bd-access?forum=vsvbasicpt[/Link]
Deus é bom e fiel!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Função auto expandir

Mensagempor Damasceno Jr. » 11 Nov 2016, 03:26

Tenho esse exemplo que consegui em outro fórum em meu repositório. Nunca o usei. Estou disponibilizando para seu estudo e adaptação.
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

Re: Função auto expandir

Mensagempor José Waldick » 11 Nov 2016, 14:25

Valeu meu amigo!
Atendeu muito bem!
;)
Deus é bom e fiel!

drigo_martins
Mensagens: 72
Registrado em: 08 Jun 2015, 16:54

Re: [resolvido] Função auto expandir

Mensagempor drigo_martins » 27 Set 2018, 12:40

damasceno... pode postar novamente... não estou conseguindo abrir.. diz que o banco de dados não pode ser reparado
obrigado.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: [resolvido] Função auto expandir

Mensagempor Damasceno Jr. » 28 Set 2018, 00:49

drigo, terei que garimpar o exemplo novamente pois perdi um hd cheio de arquivos para estudo como este. Assim que encontrá-lo retorno aqui.
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: [resolvido] Função auto expandir

Mensagempor Damasceno Jr. » 15 Out 2018, 04:16

Achei
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

drigo_martins
Mensagens: 72
Registrado em: 08 Jun 2015, 16:54

Re: [resolvido] Função auto expandir

Mensagempor drigo_martins » 15 Out 2018, 12:56

Opa.. obrigado Damasceno..

Imaginei ser algo assim, popular uma tabela com os textos inseridos... Achei que fosse algo como no excel mesmo..
Abs.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 11 visitantes