ola, boa tarde
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.
tem outro comando alem do like que possa ser usado nesse caso?
Set rs = DB.OpenRecordset("select [code] 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
Set rs = DB.OpenRecordset("select [code] from [estado] where [estados] like ('" & combobox1 & "') ")
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.
Set rs = DB.OpenRecordset("select [code] from [estado] where [estados] like ('" & combobox1 & "') ")
desde já agradeço pela ajuda, tenham um ótimo dia.
