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: 18
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 7 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: 1247
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: 18
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