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

como inserir o valor de uma combobox em um comando select no vba?

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

Moderador: joseA

fantomas
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qui Nov 09, 2017 11:22 pm

como inserir o valor de uma combobox em um comando select no vba?

Mensagem por fantomas »

ola, boa tarde meus amigos

como faço no vba do excel, para que um combobox retorne o valor na minha caixa de select, já tentei de muitas formas, mas ate agora nenhuma deu certo, o oque preciso é que apos eu escolher um estado no combobox ele salve isso e jogue no select para encontrar no meu banco de dados, eu consegui fazer ele retornar o valor código de um estado,mas não de todos, agradeço se alguém puder ajudar, deixo o código abaixo.

Set rs = DB.OpenRecordset("select

Código: Selecionar todos

 from [estado] where [estados] like ('" & combobox1 & "') ")

Private Sub UserForm_initialize()

Dim cnConexao As New ADODB.Connection
Dim rsProjeto As New ADODB.Recordset
Set cnConexao = New ADODB.Connection
Set rsProjeto = New ADODB.Recordset
Dim jsProjeto As New ADODB.Recordset
Set jsProjeto = New ADODB.Recordset
Dim Arquivo As String
Arquivo = ActiveWorkbook.Path & "\pessoa.accdb"
cnConexao.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Arquivo)
Dim DB As Database
Set DB = OpenDatabase(Arquivo)

Set js = DB.OpenRecordset("select [estados] from [estado]")
Do While Not js.EOF
    Me.combobox1.AddItem js.Fields(0) & ""
    estadosx = (js.Fields(0) & "")
    js.MoveNext


Loop


[highlight=yellow]Set rs = DB.OpenRecordset("select [code] from [estado] where [estados] like ('" & combobox1 & "')[/highlight] ")
Do While Not rs.EOF

Me.ComboBox2.AddItem rs.Fields(0) & ""
codigoestado = (rs.Fields(0) & "")
rs.MoveNext

Loop
DB.Close
Set DB = Nothing

End Sub

aqui é onde esta o meu problema (coloquei o código todo pra vocês entenderem a pegunta), só com o like não ta dando, não consegui fazer um "like for values ('" & combobox1 & "') ")", ele nao puxa o estado para fazer a verificação, aí não gera o código.

[highlight=yellow]Set rs = DB.OpenRecordset("select [code] from [estado] where [estados] like ('" & combobox1 & "') [/highlight]")

desde já agradeço pela ajuda, tenham um ótimo dia.


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: como inserir o valor de uma combobox em um comando select no vba?

Mensagem por Reinaldo »

Sem poder "ver" seu banco/estrutura/rotinas, e por razoes obvias, não e possível verificar a execução da rotina.
Pelo selec nada justifica o relatado.
Não entendi o que quis dizer com:
eu consegui fazer ele retornar o valor código de um estado,mas não de todos
Se funciona para um e não para os demais, entendo que não há correlação com esses outros estados ou a descrição no combo não condiz com a descrição na tabela/banco


fantomas
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qui Nov 09, 2017 11:22 pm

Re: como inserir o valor de uma combobox em um comando select no vba?

Mensagem por fantomas »

oi amigo, boa tarde, estou mandando ele em anexo, agradeço pela sua resposta anterior.
meu problema esta na user form 3*
Nova pasta (2).rar
(58.63 KiB) Baixado 306 vezes


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: como inserir o valor de uma combobox em um comando select no vba?

Mensagem por Reinaldo »

Seu excel não está com a rotina que utiliza? Preciso ve-las para acompanhar a conexação do banco, pois tem um mdb e outro aacdb


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.


fantomas
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qui Nov 09, 2017 11:22 pm

Re: como inserir o valor de uma combobox em um comando select no vba?

Mensagem por fantomas »

oi amigo, a conexao que estou usando é a aacdb, estou mandando so o excel utilizado e o access, desculpa pelo outro.
Nova pasta.rar
(116.75 KiB) Baixado 297 vezes


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: como inserir o valor de uma combobox em um comando select no vba?

Mensagem por Reinaldo »

Ola, vendo agora seu projeto, em particular o Form3; a rotina "problemática" está no evento inicialize do formulário.
Bem nesse evento, o combobox não tem ainda um valor definido; esse e o motivo de inconstancia.
Se entendi corretamente o que deseja, creio que a alteração que fiz lhe auxiliara.

Ao selecionar o estado, na text Coddo Estado e carregado esse codigo
Anexos
Cópia_Teste.zip
(81.16 KiB) Baixado 312 vezes


fantomas
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qui Nov 09, 2017 11:22 pm

Re: como inserir o valor de uma combobox em um comando select no vba?

Mensagem por fantomas »

obrigado amigo, deu certo, tenha um otimo dia.


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