Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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: 51
Registrado em: Sáb Set 28, 2019 9:57 am

Melhorias do textbox para o listbox

Mensagem por RobertoCM »

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 334 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: 1537
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 »

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


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

Re: Melhorias do textbox para o listbox

Mensagem por RobertoCM »

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