Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Melhorias do textbox para o listbox

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

RobertoCM
Colaborador
Colaborador
Mensagens: 34
Registrado em: Sáb Set 28, 2019 9:57 am

Melhorias do textbox para o listbox

Mensagem por RobertoCM » Ter Out 29, 2019 6:39 pm

Olá boa tarde adaptei um modelo de textbox que envia os dados para o listbox ao preencher o terceiro textbox, porem começou apresentar erro ao tentar jogar os dados após a primeira linha também não tá aceitando letras e números, precisaria consertar esse codigo para colocar varias linhas uma abaixo da outra no listbox e que que aceite letras numeros ao prencher o ultimo textbox e dar Enter, alguem pode me ajudar nisso?
Segue o arquivo em anexo:
Anexos
TextBox para ListBox Dê Enter.rar
(17.63 KiB) Baixado 116 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1340
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Melhorias do textbox para o listbox

Mensagem por Reinaldo » Qua Out 30, 2019 7:17 pm

Experimente:
Ao "chamar" a rotina "retorna..." altere Cint para CStr

Código: Selecionar todos

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If TextBox3 <> "" Then
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then
        retornaUserForm1 CStr(TextBox3)
    End If
End If
End Sub
Na Function "retorna..." altere o tipo esperado de integer para string

Código: Selecionar todos

Function retornaUserForm1(ByVal vCodigo As String)
Dim i
 i = Me.ListBox1.ListCount
Me.ListBox1.AddItem TextBox1.Text

ListBox1.List(i, 0) = TextBox1.Text
ListBox1.List(i, 1) = TextBox2.Text
ListBox1.List(i, 2) = TextBox3.Text

TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Function


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

RobertoCM
Colaborador
Colaborador
Mensagens: 34
Registrado em: Sáb Set 28, 2019 9:57 am

Re: Melhorias do textbox para o listbox

Mensagem por RobertoCM » Qua Out 30, 2019 9:50 pm

Obrigado deu certo.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder