DavidsonGomes1998

Cara por cor nao acho muito boa ideia. Eu faria uma coluna fazendo a mesma verificacao da formataçao condidional. E definir um indicador por exemplo. Coloquei uma verificaçao pra dizer se é numero positivo. SE(A1 > 0;"positivo";"negativo") Ai entao eu faço o somases e oculto a coluna

Quase certeza que seu problema é fonte, provavelmente ela nao ta gerando carga suficiente.

@arfneto Pode me indicar um tutorial? nao entendo muito sobre o assunto, estou estudando

Bom dia amigos devs, To trabalhando atualmente em um projeto em casa no visual basic com banco MySql, usando XAMPP e o banco no localhost, mas quero trabalhar nesse projeto tambem do PC da empresa, mas nao sei como acessar o mesmo banco para trabalhar. o arquivo do visual studio te tenho como usar com ele estando em nuvem

@Basole Perfeitamente, obrigado

planilha.rar@Basole Aqui fiz rapidinho aqui o modelo. o Banco ja esta com uns dados para trabalhar.

Boa noite pessoal, Como eu posso fazer esse processo aqui so q com o banco em access? quero puxar os produtos vendidos e agrupar os produtos que se repetirem e somar o valor isso na listview aqui segue de um tutorial q achei, mas com dados nas planilhas e nao em access

@Basole exatamente isso, obrigado mestre

@Basole Ta dando erro de -2147217913 Tipo de dados incompativel na expressao do criterio

@Basole eu vi algo sobre Dsoma no access pra somar valor da tabela com critérios, mas nao sei aplicar no vba, como seria?

Então deixa eu ser mais especifico. eu tenho a Label Saldo caixa nela é pra ir a soma de toda a tabela de fluxo do access mas so os itens que tiverem o "1" na coluna CodPlanoVenda e o "D" na Natureza. como faz essa soma? tentei adaptar o Select Case mas nao ta me dando o valor correto ta colocando apenas o valor da primeira linha da tabela aqui como fiz o codigo Dim Soma_Dh As Double ConectDB rs.Open "Select * From tb_fluxo", db, 3, 3 Select Case rs!CodPlanoVenda & rs!Natureza Case Is = "1" & "D" Soma_Dh = Soma_Dh + rs!valor.Value End Select FechaDb Lbl_Saldo_DinheiroCaixa = Soma_Dh

Fala pessoal, sei q to postando coisa atras de coisa kkkk, mas to aprendendo muito com isso tudo To montando meu fluxo de caixa. ele ja esta gerando a listview puxando da tabela access de acordo com o intervalo de datas a cima. agora preciso fazer as somas para o controle de caixa kkk. tipo a formula somases do excel como fazer isso nos itens filtrados pela list view? Os calculos seriam da seguinte forma somando a coluna Valor iria separar pelo cod do plano de venda 1 = dinheiro 2 = debito e por ai vai e tambem dividir pela natureza D = despeza R = Receita B = Banco print da tela do fluxo de caixa codigos da ListView

Consegui muito obrigado

Bom dia mestres, Eu to fazendo um método de pesquisa por ListView, com uma tabela no access. pimeiro fiz a condição de se todas as checkbox estiverem desmarcadas ele buscar todos os cadastros, ae ai tudo perfeito depois fui fazendo as IF para cada checkbox, fiz a ID funcionou perfeitamente, porém logo na segunda IF do cliente nao funciona. nao consigo entender por que! abaixo esta o codigo o trabalhando e uma print do Formulário! Dim ID As String Dim CLIENTE As String If Me.CheckBox_ID.Value = False And Me.CheckBox_Cliente.Value = False And Me.CheckBox_CPF.Value = False _ And Me.CheckBox_CNPJ.Value = False And Me.CheckBox_Cidade.Value = False And Me.CheckBox_UF.Value = False Then ConectDB rs.Open "Select * from tb_clientes", db, 3, 3 On Error Resume Next Me.ListView1.ListItems.Clear While Not rs.EOF Set List = Me.ListView1.ListItems.Add(Text:=rs(0)) List.SubItems(1) = rs(1) List.SubItems(2) = rs(2) List.SubItems(3) = rs(4) List.SubItems(4) = rs(5) List.SubItems(5) = rs(6) List.SubItems(6) = rs(7) List.SubItems(7) = rs(8) List.SubItems(8) = rs(10) List.SubItems(9) = rs(12) rs.MoveNext Wend FechaDb End If If Me.CheckBox_ID.Value = True Then ID = Me.Txt_Busca.Text ConectDB rs.Open "Select * from tb_clientes where Codigo like '" & ID & "'", db, 3, 3 On Error Resume Next Me.ListView1.ListItems.Clear While Not rs.EOF Set List = Me.ListView1.ListItems.Add(Text:=rs!Codigo) List.SubItems(1) = rs!Nome List.SubItems(2) = rs!DECONTO List.SubItems(3) = rs!CPF List.SubItems(4) = rs!CNPJ List.SubItems(5) = rs!ENDERECO List.SubItems(6) = rs!CIDADE List.SubItems(7) = rs!ESTADO List.SubItems(8) = rs!TELEFNE List.SubItems(9) = rs!Email rs.MoveNext Wend FechaDb End If If Me.CheckBox_Cliente.Value = True Then CLIENTE = Me.Txt_Busca.Text ConectDB rs.Open "Select * from tb_clientes where Nome like '" & CLIENTE & "'", db, 3, 3 On Error Resume Next Me.ListView1.ListItems.Clear While Not rs.EOF Set List = Me.ListView1.ListItems.Add(Text:=rs!Codigo) List.SubItems(1) = rs!Nome List.SubItems(2) = rs!DECONTO List.SubItems(3) = rs!CPF List.SubItems(4) = rs!CNPJ List.SubItems(5) = rs!ENDERECO List.SubItems(6) = rs!CIDADE List.SubItems(7) = rs!ESTADO List.SubItems(8) = rs!TELEFNE List.SubItems(9) = rs!Email rs.MoveNext Wend FechaDb End If End Sub

ainda continua. ate alterei de combobox para txtbox. ConectDB rs.Open "Select * FROM [tb_cep] WHERE [Codigo]=" & ComboBox_Cep.Text, db, 3, 3 If Not rs.EOF And Not rs.BOF Then ' * Altere abaixo o nome da textbox CIDADE e Combobox UF Me.Txt_Cidade.Value = rs.Fields(4).Value Me.Txt_Estado.Value = rs.Fields(5).Value Else MsgBox "Registro Não Encontrado" End If FechaDb adicionado 2 minutos depois na verdade funcionou, uma coisa q nao reparei é q tava com uma formatação programada, e tava ficando diferente do banco por causa dos pontos kkk, valeu mestre

Bom no evento click nao funciona porque são muuuuitos ceps, teria que ser no exit. tentei ajustar o codigo mas so passa pro msgbox. da uma olhada, o que fiz errado? ConectDB rs.Open "Select * FROM [tb_cep] WHERE [Codigo]='" & ComboBox_Cep.Text & "'", db, 3, 3 If Not rs.EOF And Not rs.BOF Then ' * Altere abaixo o nome da textbox CIDADE e Combobox UF Me.ComboBox_cidade.Text = rs.Fields(4).Value Me.ComboBox_estado.Text = rs.Fields(5).Value Else MsgBox "Registro Não Encontrado" End If FechaDb

Boa tarde mestres Como faço pra quando preencher o CEP na ComboBox ele preencher automaticamente a cidade e a UF? uso banco de dados no access segue abaixo foto dos codigos do banco e da tabela O CEP ta descriminado aqui como "Codigo"

Funcionou perfeitamente amigo, obrigado

Bom dia/tarde/noite, Estou aos poucos desenvolvendo meu sisteminha aqui. Fiz uma caixa de combinação com os dados que se encontram no meu banco de dados no access, no caso aqui, cidade, estado e CEP, mas como a maior parte das cidades nao são CEP unico, acaba se repetindo as cidades e estados nas listas do banco de dados. como faço para nao mostrar repetido nas combobox? Logo a baixo está o codigo usado para carregar as combo box. coloquei a call das macros no initialize do formulario Sub Carrega_CEP() ConectDB rs.Open "select * FROM tb_cep order by Codigo", db, 3, 3 Do Until rs.EOF Me.ComboBox_Cep.AddItem rs!Codigo rs.MoveNext Loop FechaDb End Sub Sub Carrega_Estado() ConectDB rs.Open "select * FROM tb_cep order by UF", db, 3, 3 Do Until rs.EOF Me.ComboBox_Estado.AddItem rs!UF rs.MoveNext Loop FechaDb End Sub Sub Carrega_Cidade() ConectDB rs.Open "select * FROM tb_cep order by Cidade", db, 3, 3 Do Until rs.EOF Me.ComboBox_Cidade.AddItem rs!Cidade rs.MoveNext Loop FechaDb End Sub

Eu fiz aqui esse processo ai, funcionou, porém os novos cadastros tambem ta indo pro else e nao cadastra, diz q ja existe

Boa tarde gente, estou aprendendo ainda usar o access como banco de dados. Segui os tutoriais do diarioexcel.com.br para conexao e programar as funcões, gravar, alterar e excluir. porém eu nao to conseguindo adicionar funções aos botões sem q interfira na conexão do banco de dados. alguem pode me dizer onde eu colocaria, condições como se o campo ID ja existir no BD os demais campos ficarem vazios "", ou se o ID ja existir desabilitar o botao gravar e habilitar os outros e por ai vai segue abaixo os codigos: