josequali

@Basole Esse tópico aqui não é gráfico, é soma das informações da coluna de acordo com critério. Eu usava no excel essa formula onde ela contava cada critério da coluna e exiba a contagem na label, mas não consegui adaptar para trazer do access para o userfom do excel. Era esse o código no excel: Label1 = WorksheetFunction.CountIf(Sheets("bancodedados").[BL:BL], "Interna") Label2 = WorksheetFunction.CountIf(Sheets("bancodedados").[BL:BL], "Externa") Ou seja ele contava na guia "bancodedados" na coluna BL o número de células com texto "Interna" e "Externa" e exibia a contagem na label1 e label2 separadamente. Quando somar era para ficar assim como nesta imagem abaixo no userforme Vi que nesse site abaixo o pessoal também faz assim, mas não consegui adaptar para referencia a coluna do access, fazer a soma e exibe na label do excel. https://docs.microsoft.com/pt-br/office/vba/api/access.application.dcount e https://stackoverflow.com/questions/45601001/dcount-in-access-vba Não sei se consegui explicar direito, rs, mas desde já agradeço a ajuda e disponibilidade

https://docs.microsoft.com/pt-br/office/vba/api/access.application.dcount e https://stackoverflow.com/questions/45601001/dcount-in-access-vba @Basole @AfonsoMira vcs saberiam? o importante é que some. Esqueçam os critérios que eu coloquei. rs

@Basole Conseguir carregar os opption button com esse código rs . Vou deixar aqui disponível para quem precisar Dim opt5, opt6 As Object For Each opt5 In Frame4.Controls If opt5.Caption = Rs!Cadastrar Then opt5.Value = True End If Next opt5 For Each opt6 In Frame4.Controls If opt6.Caption = Rs!Cadastrar Then opt6.Value = True End If Next opt6

@Basole Muito obrigado pela ajuda! Mas consegui resolver colocando apenas o seguint e código: Rs! Cadastrar = Frame1.opt1.caption Rs! Cadastrar = Frame1.opt2.caption Rs! Imprimir = Frame2.opt3.caption Rs! Imprimir = Frame2.opt4.caption @Basole @Basole Estou tentando agora ver como usar a textbox (txtnome) no painel de PESQUISAR como procurar a informação no banco de dados access e retornar para opption Button de acordo com a informação que foi cadastrada, mas ainda não obtive sucesso Tentei esses dois códigos para buscas, mas não deu certo. If frame4.controls = true then Rs! cadastrar= opt5.caption Else Rs! cadastrar= opt6.caption End if E o outro Login.frame4.opt5.caption =rs (Cadastrar) Mas nenhum deu certo

@AfonsoMira Rs!Cadastrar = opption_button.Caption

@AfonsoMira Não funcionou aqui, está dando erro Aparece a seguinte mensagem

Bom dia! Como cadastrar opptionbutton no Access via formulário excel vba e depois carregar os dados na consulta? Os códigos referentes ao cadastro e pesquisa já se encontram no arquivo e que foram elaborados por @Basole (crédito) Segue em anexo o modelo da planilha e o banco de dados. Obrigado! Cadastrar optbutton e carregar.rar

@Basole Perfeito! E agora vi que você também colocou para verificar se o banco de dados existe. Ficou perfeito! Muito obrigado

Bom dia! Como usar textbox para buscar informação no Access por Nome completo do usuário e preencher os textbox Usuário e Senha? Segue em anexo o modelo de banco de dados e planilha excel. Desde já agradeço a ajuda e disponibilidade de todos. Projeto teste.rar

@Basole @Basole O Login e verificação do usuário cadastrado funcionou perfeitamente , mas a de busca o usuário em alterar e alterar os dados não deu certo . Na verdade foi um erro meu, não expliquei direito. Segue em anexo o banco de dados e a planilha exemplo. Obrigado Projeto teste.rar

Bom dia! Como gerar um gráfico no userform do excel com banco de dados no access. Condição: Os gráficos só podem carregar se o banco de dados estiver correto, se não, não carrega mas também não pode dar erro (o caminho eu puxo da célula a1 da minha planilha). No meu modelo eu preciso que gere o primeiro gráfico com as cores dos coelho e o segundo gráfico com o estado de saúde do coelho. OBS: Eu só não faço direto conectando ao banco de dados pelo modo habitual indo em Dados e obter dados do access para gerar os gráficos porque a planilha no projeto ficará invisível, então não poderei mostrar o caminho por este método, por isso preciso fazer assim. rs Segue em anexo o modelo da planilha e o banco de dados. Desde já agradeço a ajuda de todos Projeto teste.rar

Bom dia! Alguém saberia resolver essa bucha? Tenho a seguinte situação em que tenho um banco de dados em access e tenho um formulário excel. Meu objetivo é: fazer a soma da coluna do access (Cor) e exibir na label do excel. No meu exemplo eu coloquei três tipos de cor de coelhos. Ou seja na label1 deve aparecer só a soma dos coelhos azul; Na label 2 dos coelhos brancos e na label3 dos coelhos pretos. Entretanto, eu preciso que seja respeitado o seguinte critério para minha planilha não dar erro que pode ser qualquer uma das seguintes condicções. 1) Os dados só carregam se eu der um clique em algum botão (gerar relatorio) 2) Ou dados só devem carregar se o caminho do banco de dados estiver correto, caso contrário não soma e nem da erro. Mas porque isso? É porque a depender do usuário que estiver logado ele pode apontar o banco de dados para outro local na rede. E já que meu código que carrega o banco de dados puxa a informação da célula a1 da minha planilha excel, se o caminho estiver errado ele poderá dar erro por não achar o banco de dados (acredito que esse erro possar ocorrer). A coluna do access que tem as cores dos coelhos está nomeada com a palavra (Cor) Segue em anexo o modelo de planilha com o banco access. Desde já agradeço a ajuda de todos Projeto teste.rar

@AfonsoMira Perfeito . O que seria aceder? Dei uma enxugada no meu código de pesquisa por textbox. Caso possa auxiliar serei grato Projeto teste.rar

Boa noite! Alguém poderia me dar uma luz. Criei um tela de login para acessar, cadastrar, alterar e excluir usuário com dado cadastro no acess via excel vba. Meus problemas são os seguintes: Primeiro: Acessando com outro usuário Quando vou fazer o Login, meu código só reconhece o primeiro usuário cadastrado no meu banco, ou seja, o código não procura os outros usuários cadastrados. por exemplo: meu primeiro usuário é JOSE e a senha é 123, já do segundo é PEDRO e a senha também é 123, mas esse segundo não consigo acessar. Segundo problema: pesquisa aos usuários restrito por pesquisa por Codigo (primeira coluna do access) No meu código preciso altera senha dos usuários ou outros dados quando necessário. Entretanto, no meu código só consigo pesquisar os usuários se utilizar o nome do código. Tentei em outro modelo de tabela pesquisa substituir o campo Codigo (primeira coluna do access) por Nome_completo, para pesquisa o nome, mas não funcionou. Teria outra forma de buscar os dados no banco acess via textbox para poder alterar os dados? Segue em anexo meu modelo de planilha. Desde já agradeço a atenção e ajuda de todos Projeto.rar

@Basole consegui. Era simples Vou deixa disponível para quem precisar. Era só colocar o filtro dentro das textbox. rs Projeto.rar

Bom dia! alguém poderia me tira uma dúvida? No meu código eu faço a pesquisa utilizando um código que busca em todas as colunas no banco do Access. @Basole conectdb 'conectar ao banco de dados e carregar rs.Open "Select * from TabCadastro where Nome like'" & Replace(vBusca, "'", "''") & "%'" & _ "or Codigo like '" & Replace(vBusca, "'", "''") & "%'" & " or Idade like '" & Replace(vBusca, "'", "''") & "%'" & " or Sexo like '" & Replace(vBusca, "'", "''") & "%'", db, 3, 3 Entretanto, como eu poderia fazer para procurar separadamente, por exemplo. Eu quero procurar no meu banco de dados filtrando por Idade e Sexo, ou sexo e endereço, ou por datas (intervalo ou ano caso fique mais fácil) usando para cada um um textbox diferente. Porquê normalmente vejo quando é em access o pessoal usando só um filtro, e preciso separa-los porque uso como pesquisa de Indicador dos meus dados para relatório. . Vou criar um novo tópico e mencionar. Segue em anexo o documento. Obrigado desde já a todos Projeto.rar

@Basole Perfeito! Muito Obrigado Me tire uma dúvida. No meu código eu faço a pesquisa utilizando um código que busca em todas as colunas (que é o que eu uso no código lá acima) conectdb 'conectar ao banco de dados e carregar rs.Open "Select * from TabCadastro where Nome like'" & Replace(vBusca, "'", "''") & "%'" & _ "or Codigo like '" & Replace(vBusca, "'", "''") & "%'" & " or Idade like '" & Replace(vBusca, "'", "''") & "%'" & " or Sexo like '" & Replace(vBusca, "'", "''") & "%'", db, 3, 3 Entretanto, como eu poderia fazer para procurar separadamente, por exemplo. Eu quero procurar no meu banco de dados filtrando por Idade e Sexo, ou sexo e endereço, usando para cada um um textbox diferente. Porquê normalmente vejo quando é em access o pessoal usando só um filtro, e preciso separa-los porque uso como pesquisa de Indicador dos meus dados para relatório. . Vou criar um novo tópico e mencionar.

@Basole Funcionou perfeitamente na listbox, mas agora quando faco uma pesquisa a listbox fica toda desformatada Projeto.rar Todos os dados carregam em uma única coluna

@Basole o código ficou assim. Dim vBusca As String Dim LinhaListbox As Integer Dim rsArray As Variant vBusca = TextBox5.Text conectdb 'conectar ao banco de dados e carregar rs.Open "Select * from TabCadastro where Nome like'" & Replace(vBusca, "'", "''") & "%'" & _ "or Codigo like '" & Replace(vBusca, "'", "''") & "%'" & " or Idade like '" & Replace(vBusca, "'", "''") & "%'" & " or Sexo like '" & Replace(vBusca, "'", "''") & "%'", db, 3, 3 Do Until rs.EOF rsArray = rs.GetRows With ListBox1 .AddItem .List(LinhaListbox, 0) = rs(0) .List(LinhaListbox, 1) = rs(1) .List(LinhaListbox, 2) = rs(2) .List(LinhaListbox, 3) = rs(3) .List(LinhaListbox, 4) = rs(4) .List(LinhaListbox, 5) = rs(5) .List(LinhaListbox, 6) = rs(6) .List(LinhaListbox, 7) = rs(7) .List(LinhaListbox, 8) = rs(8) .List(LinhaListbox, 9) = rs(9) '.List(LinhaListbox, 10) = rs(10) '.List(LinhaListbox, 11) = rs(11) .Clear .ColumnCount = 12 .List = Application.Transpose(rsArray) .ColumnWidths = "30;200;100;100;100;100;100;100;100;100;100;100" .ListIndex = -1 End With LinhaListbox = LinhaListbox + 1 rs.MoveNext Loop FechaDb 'fehcar o banco de dados End Sub Mas está dando esse erro:

@Basole não consegui ajustar

Boa noite. Como carregar mais de 10 colunas no dentro do listbox1 utilizando como base de dados o access? Queira que todas as colunas carregassem dentro da listbox1. Utilizei o seguinte código para pesquisa e preencher as colunas, mas quando chega na coluna 10, o código da erro. Private Sub BtnBuscar_Click() Dim vBusca As String Dim LinhaListbox As Integer LinhaListbox = 0 ListBox1.Clear ListBox1.ColumnCount = 12 ListBox1.ColumnWidths = "30;200;100;100;100;100;100;100;100;100;100;100" vBusca = TextBox5.Text conectdb 'conectar ao banco de dados e carregar rs.Open "Select * from TabCadastro where Nome like'" & Replace(vBusca, "'", "''") & "%'" & _ "or Codigo like '" & Replace(vBusca, "'", "''") & "%'" & " or Idade like '" & Replace(vBusca, "'", "''") & "%'" & " or Sexo like '" & Replace(vBusca, "'", "''") & "%'", db, 3, 3 Do Until rs.EOF With ListBox1 .AddItem .List(LinhaListbox, 0) = rs(0) .List(LinhaListbox, 1) = rs(1) .List(LinhaListbox, 2) = rs(2) .List(LinhaListbox, 3) = rs(3) .List(LinhaListbox, 4) = rs(4) .List(LinhaListbox, 5) = rs(5) .List(LinhaListbox, 6) = rs(6) .List(LinhaListbox, 7) = rs(7) .List(LinhaListbox, 8) = rs(8) .List(LinhaListbox, 9) = rs(9) .List(LinhaListbox, 10) = rs(10) '.List(LinhaListbox, 11) = rs(11) End With LinhaListbox = LinhaListbox + 1 rs.MoveNext Loop ContagemdeLinhas.Caption = ListBox1.ListCount 'contagem de linhas FechaDb 'fehcar o banco de dados End Sub Segue em anexo o modelo do projeto. Desde já, agradeço a ajuda de todos. Projeto.rar

Consegui resolver

@CasaDoHardware já fiz isso.

Boa tarde! Realizei a adaptação de dois códigos para filtrar minha tabela dinâmica e carregar os gráficos no userform de acordo com o filtro aplicado. Entretanto, quando eu aplico o filtro (empresa) referente a tabela dinâmica1, ela também deveria filtrar os dados na tabela dinâmica2 e 3 trazendo só dados ao que foi aplicado na primeira empresa, entretanto, isso não acontece. Eu queria que acontecesse a conexão dos relatórios. Estou anexando o modelo da tabela e um documento pdf mostrando como deveria acontecer e como está contendendo. Desde já agradeço a disponibilidade! Segue abaixo também as aula que usei como referência. : Filtro tabela dinamica.rar

@CasaDoHardware por que os usuários não podem ter acesso a planilha, além de que ela fica invisível, mas já resolvi o problema!