Obrigado por te lido meu comentário e mais que isso ter me ajudado ,pois está com muita dificuldade agora poderei prosseguir com meu projeto. E como sempre conteúdo ótimo didática perfeita.
Bom dia Professor sua videos aulas eu sempre acompanho o senhor já me ajudou muitas vezez. o senhor pode carregar as duas comboBox de uma vez basta colocar uma Virgula para separar os nome dos campos como no exemplo abaixo é uma dica simples mas vai diminuir o seu Código dentro do formulário Rs.Open "select Cliente,Produto from Tabela1", Do until Rs.EOF CBCliente.AddItem Rs!Cliente CBProduto.AddItem Rs!Produto Rs.MoveNext Loop
Excelente! Eu ainda erro muito o desenvolvimento dos meus códigos por causa de não me atentar aos Eventos. Eu consegui fazer um código até parecido com o teu, mas na hora de chamar a sub-rotina da combobox dependente eu não a estava chamando dentro da combobox de referência, que foi o que tu fez para o teu código funcionar. Hahah Valeu irmão!
Parabens pelas aulas, muito ditadico. Gostaria de ver como salvar com tabelas relacionadas, por exemplo, um cadastro de pessoa, cuja combobox liste o setor (até aqui, bem esplicado nos videos) que salve o código desse setor que esta na tabela setor, ex: Tabela CLiente (código, Nome, setor) e tabela Setor( código e setor)
Você tem algum vídeo que mostra como pegar o código do cliente? No caso, não seria o index do Combobox, mas o código que está na base de dados. Eu queria gravar no banco de dados o código do cliente, como se fosse uma nova requisição dele.
Olá Luan, boa noite Meu caro, eu fiz esse processo, carregando uma combobox, deu certo, está funcionando. Agora estou tentando fazer o mesmo processo para a carregar o ID, porém utlizando para carregar a textbox com o "ID" do nome selecionado na combobox, porque vou precisar utlizar o ID para fazer editar e excluir esse nome o processo é o seguinte Combobox, carrega nomes (OK) Textbox, carrega o ID desse nome selecionado na combobox Poderia me ajudar a como fazer esse carregamento? Muito Obrigado
Olá Prof, fiz um projeto com base nas suas aulas, ficou muito bancana, e agradeço muito a ajuda e disponibilização do conhecimento Fiz um comentário em outro video, porém a responsta me deixou com mais dúivdas. Tenho um processo parecido, no caso do seu, um Combobox dependente de outra Combobox, no meu caso, é TextBox dependente do Combobox. Quando selecion o combobox, ele carrega um texto que está no BD do acces, porém quando vou EDITAR as informações dessa textbox, o cursor automáticamente vai para o final da linha. Preciso editar a linha inteira Tem algum comando da textbox para evitar que isso aconteça? Agradeço muito a ajuda Tks
@@CanalSGP Não sei o que acontece, eu seleciono o combobox, e uma textbox é carregada com a informação correta, porém essa informação se precisar editar, o curso automáticamente vai para o final.
ola como faço para carregar mais de uma combox no mesmo formulario fiz conforme orientação mas só traz a informação de coluna tenho a tabela 1 e coluna 1, coluna 2 e coluna 3
Como faço se tiver umas 5 combobox no mesmo form? utilizo 5 sub com os codigos para preencher todos. Ex: na tabel do access tenho 5 tabelas diferentes e 5 combobox no form, preciso preencher cada combobox com cada tabela separada do acces.
Professor, bom dia… minha macro quando entra no Do Until fica em um loop infinito e trava todo o Excel, está correto isso? Pois aí colocar isso no evento inicialize a userform não abre e trava. A macro está correta. O único problema é o loop infinito, saberia informar o motivo?
Boa tarde Professor, Então tenho duas tabelas no access. Na primeira CB eu pego a informação de uma Tbl e na segunda CB eu pego a informação de outra Tbl. Eu preciso fazer igual o senhor fez no vídeo. mas pegando de tabelas no access diferentes e colocando a mesma condição que você colocou no vídeo. Eu tentei, mas não consegui. 'Rs.Open "SELECT DISTINCT Nome FROM Clientes ORDER BY Nome ASC", Conexao, adOpenKeyset, adLockReadOnly (Primeira CB) 'Rs.Open "SELECT DISTINCT Rede FROM RedeCli ORDER BY Rede ASC", Conexao, adOpenKeyset, adLockReadOnly (Segunda CB) 'Rs.Open "SELECT DISTINCT Rede FROM Clientes WHERE Rede='" & CBCli.Text & "' ORDER BY Rede ASC", Conexao, adOpenKeyset, adLockReadOnly (Essa seria a condição) Saberia me ajuda com essa questão ?
Boa tarde, depois de cada rs precisa carregar os dados para a listbox ou se for juntar os dados das tabelas, tem o procedimento do vídeo no link a seguir. ua-cam.com/video/XZkD_5r-7oY/v-deo.html
Bom dia professor Me perdoe a pergunta Em uma consulta na tabela no banco access com 17 colunas com certeza é mais rápida que uma tabela que contém 47 colunas no banco access correto ? pois usei o mesmo código e demora muito a consulta Desde já agradeço a atenção
Boa tarde tudo bem? No meu caso aparece um erro no "rs" .AddItem rs!Nome acredito que seja algo com o .EOF por que nao aparece na lista quando clico "." tem alguma orientação?
uma pergunta como ficaria o sql se o meu produto estivesse numa tabela separada? sendo que nessa tabela eu teria o id do cliente por exemplo igual como se fosse entre cidade e estado um exmeplo da minha duvida RS.Open "SELECT Subcriterio FROM tb_subcriterio WHERE criterio_id = '" & cmb_criterio.Text & "' ORDER BY Subcriterio", connection, adOpenKeyset, adLockReadOnly ele esta dando um loop infinito
@@CanalSGP a minha coluna criterio_id é número que faz referência ao código de minha tabela de critérios, já a coluna Subcriterio e a coluna onde puxo as informações do Critério no cmb_criteiro são texto.
@@CanalSGP acho que não é junção é por exemplo eu escolher um critério num combobox e ele me trazer os seus sub critérios no outro por exemplo 1. Critério 1.1 Subcriterio xpto 1.2 Critério xpto assim por diante
Bom dia, pode ser erro de digitação, espaços depois do sinal de igual, pelo menos foi isso que reparei. Errado RS.Open "SELECT Subcriterio FROM tb_subcriterio WHERE criterio_id = '" & cmb_criterio.Text & "' ORDER BY Subcriterio", connection, adOpenKeyset, adLockReadOnly Correto RS.Open "SELECT Subcriterio FROM tb_subcriterio WHERE criterio_id =" & cmb_criterio.Text & "'ORDER BY Subcriterio", connection, adOpenKeyset, adLockReadOnly
Próxima Aula: Filtrar Dados de Tabela do Access e Carregar para Listbox VBA:
ua-cam.com/video/yDwXLrq77os/v-deo.html
Obrigado por te lido meu comentário e mais que isso ter me ajudado ,pois está com muita dificuldade agora poderei prosseguir com meu projeto.
E como sempre conteúdo ótimo didática perfeita.
Que bom que ajudou
Bom dia Professor sua videos aulas eu sempre acompanho
o senhor já me ajudou muitas vezez.
o senhor pode carregar as duas comboBox de uma vez
basta colocar uma Virgula para separar os nome dos campos
como no exemplo abaixo
é uma dica simples mas vai diminuir o seu Código dentro do formulário
Rs.Open "select Cliente,Produto from Tabela1",
Do until Rs.EOF
CBCliente.AddItem Rs!Cliente
CBProduto.AddItem Rs!Produto
Rs.MoveNext
Loop
Bom dia, sim pode ser também.
Boa noite Professor!!!
Excelente esta Vídeo Aula!!!!
Bom dia, obrigado
Excelente! Eu ainda erro muito o desenvolvimento dos meus códigos por causa de não me atentar aos Eventos. Eu consegui fazer um código até parecido com o teu, mas na hora de chamar a sub-rotina da combobox dependente eu não a estava chamando dentro da combobox de referência, que foi o que tu fez para o teu código funcionar. Hahah Valeu irmão!
Obrigado, que bom que conseguiu, sucesso em seus estudos.
Parabens pelas aulas, muito ditadico. Gostaria de ver como salvar com tabelas relacionadas, por exemplo, um cadastro de pessoa, cuja combobox liste o setor (até aqui, bem esplicado nos videos) que salve o código desse setor que esta na tabela setor, ex: Tabela CLiente (código, Nome, setor) e tabela Setor( código e setor)
Boa tarde, obrigado, desta forma não fiz código ainda.
Olá amigo! Como vai? Pode por favor nos mostrar um exemplo de um Combobox com duas colunas com dados de uma tabela do Access? Muito obrigado!
Bom dia, até o momento não tentei algo do tipo ainda.
Você tem algum vídeo que mostra como pegar o código do cliente? No caso, não seria o index do Combobox, mas o código que está na base de dados. Eu queria gravar no banco de dados o código do cliente, como se fosse uma nova requisição dele.
Boa tarde, não fiz vídeo sobre esse tema ainda.
Boa noite
Consigo digitar e já trazer as informações ao Inves de clicar na seta só lado da combobox
Bom dia, acredito que não seja viável, porque a cada letra vai precisar acessar os dados e filtrar.
Olá Luan, boa noite
Meu caro, eu fiz esse processo, carregando uma combobox, deu certo, está funcionando.
Agora estou tentando fazer o mesmo processo para a carregar o ID, porém utlizando para carregar a textbox com o "ID" do nome selecionado na combobox, porque vou precisar utlizar o ID para fazer editar e excluir esse nome
o processo é o seguinte
Combobox, carrega nomes (OK)
Textbox, carrega o ID desse nome selecionado na combobox
Poderia me ajudar a como fazer esse carregamento?
Muito Obrigado
Boa noite, acredito que seja mais fácil fazer uma pesquisa pelo ID, com base na seleção da combobox.
Olá Prof, fiz um projeto com base nas suas aulas, ficou muito bancana, e agradeço muito a ajuda e disponibilização do conhecimento
Fiz um comentário em outro video, porém a responsta me deixou com mais dúivdas.
Tenho um processo parecido, no caso do seu, um Combobox dependente de outra Combobox, no meu caso, é TextBox dependente do Combobox.
Quando selecion o combobox, ele carrega um texto que está no BD do acces, porém quando vou EDITAR as informações dessa textbox, o cursor automáticamente vai para o final da linha. Preciso editar a linha inteira
Tem algum comando da textbox para evitar que isso aconteça?
Agradeço muito a ajuda
Tks
Boa tarde, não entendi exatamente, mas se for linha dentro da textbox, não fiz código para colocar o cursor no início ou em outra posição ainda.
@@CanalSGP Não sei o que acontece, eu seleciono o combobox, e uma textbox é carregada com a informação correta, porém essa informação se precisar editar, o curso automáticamente vai para o final.
Boa noite, infelizmente não tenho ideia do que pode ser.
ola como faço para carregar mais de uma combox no mesmo formulario fiz conforme orientação mas só traz a informação de coluna
tenho a tabela 1 e coluna 1, coluna 2 e coluna 3
Boa tarde, precisa de uma macro para cada combobox.
Como faço se tiver umas 5 combobox no mesmo form? utilizo 5 sub com os codigos para preencher todos.
Ex: na tabel do access tenho 5 tabelas diferentes e 5 combobox no form, preciso preencher cada combobox com cada tabela separada do acces.
Bom dia, para cada combobox vai ser um procedimento para carregar.
como faria para concatenar duas colunas do banco de dados e depois carregar na combobox?
Bom dia, não fiz algo assim ainda, mas para juntar duas informações é utilizado ecomercial. Ex: Texto1 & Texto2
Professor, bom dia… minha macro quando entra no Do Until fica em um loop infinito e trava todo o Excel, está correto isso? Pois aí colocar isso no evento inicialize a userform não abre e trava. A macro está correta. O único problema é o loop infinito, saberia informar o motivo?
Bom dia, solicite a planilha de exemplo do vídeo nos contatos do site do canal, link na descrição do vídeo.
Boa tarde Professor, Então tenho duas tabelas no access. Na primeira CB eu pego a informação de uma Tbl e na segunda CB eu pego a informação de outra Tbl.
Eu preciso fazer igual o senhor fez no vídeo. mas pegando de tabelas no access diferentes e colocando a mesma condição que você colocou no vídeo.
Eu tentei, mas não consegui.
'Rs.Open "SELECT DISTINCT Nome FROM Clientes ORDER BY Nome ASC", Conexao, adOpenKeyset, adLockReadOnly (Primeira CB)
'Rs.Open "SELECT DISTINCT Rede FROM RedeCli ORDER BY Rede ASC", Conexao, adOpenKeyset, adLockReadOnly (Segunda CB)
'Rs.Open "SELECT DISTINCT Rede FROM Clientes WHERE Rede='" & CBCli.Text & "' ORDER BY Rede ASC", Conexao, adOpenKeyset, adLockReadOnly
(Essa seria a condição)
Saberia me ajuda com essa questão ?
Boa tarde, depois de cada rs precisa carregar os dados para a listbox ou se for juntar os dados das tabelas, tem o procedimento do vídeo no link a seguir. ua-cam.com/video/XZkD_5r-7oY/v-deo.html
Bom dia professor
Me perdoe a pergunta
Em uma consulta na tabela no banco access com 17 colunas com certeza é mais rápida que uma tabela que contém 47 colunas no banco access correto ? pois usei o mesmo código e demora muito a consulta
Desde já agradeço a atenção
Bom dia, teste colocar um ponto de interrupção no código e ir executando utilizando a tecla F8, para identificar qual parte do código está lento.
@@CanalSGP então o senhor acredita que deva ter algum erro, deveria ser mais rápido né ?
Boa noite, não deve ser demasiado lento, a menos que tenha linhas vazias na base.
Boa tarde tudo bem?
No meu caso aparece um erro no "rs"
.AddItem rs!Nome
acredito que seja algo com o .EOF por que nao aparece na lista quando clico "."
tem alguma orientação?
Boa tarde, talvez tenha células vazias na coluna Nome do banco de dados Access.
@@CanalSGP na coluna nome esta tudo preenchido, observei que o Do Until rs.EOF
o .EOF não esta na lista DLL será preciso ativar alguma?
Solicite a planilha de exemplo nos contatos do site do canal, link na descrição do vídeo.
e se eu quisesse por uma imagem e/ou documento (exemplo a nf)
Boa tarde, não fiz algo assim ainda.
uma pergunta como ficaria o sql se o meu produto estivesse numa tabela separada? sendo que nessa tabela eu teria o id do cliente por exemplo igual como se fosse entre cidade e estado um exmeplo da minha duvida
RS.Open "SELECT Subcriterio FROM tb_subcriterio WHERE criterio_id = '" & cmb_criterio.Text & "' ORDER BY Subcriterio", connection, adOpenKeyset, adLockReadOnly ele esta dando um loop infinito
Boa tarde, talvez seja o tipo de dados da coluna, verifique se consta como texto ou número no Access.
@@CanalSGP a minha coluna criterio_id é número que faz referência ao código de minha tabela de critérios, já a coluna Subcriterio e a coluna onde puxo as informações do Critério no cmb_criteiro são texto.
Boa noite, mas se está tentando juntar duas tabelas pesquisa pelos comandos innerjoin.
@@CanalSGP acho que não é junção é por exemplo eu escolher um critério num combobox e ele me trazer os seus sub critérios no outro por exemplo 1. Critério 1.1 Subcriterio xpto 1.2 Critério xpto assim por diante
Bom dia, pode ser erro de digitação, espaços depois do sinal de igual, pelo menos foi isso que reparei.
Errado
RS.Open "SELECT Subcriterio FROM tb_subcriterio WHERE criterio_id = '" & cmb_criterio.Text & "' ORDER BY Subcriterio", connection, adOpenKeyset, adLockReadOnly
Correto
RS.Open "SELECT Subcriterio FROM tb_subcriterio WHERE criterio_id =" & cmb_criterio.Text & "'ORDER BY Subcriterio", connection, adOpenKeyset, adLockReadOnly