Pesquisar na Comunidade

Boa tarde pessoal. Primeiramente gostaria de me desculpar, caso o que eu peça aqui infrinja alguma regra. Eu comprei um sistema de venda para PDV pela internet recentemente. O sistema me atende bem, ele é todo desenvolvido em access e é funcional. No entanto, na empresa em que trabalho, foram solicitados alguns ajustes e ao falar com o desenvolvedor, ele simplesmente ignora a possibilidade de alterações no sistema. Gostaria de saber se aqui no fórum, existe alguma boa alma que consiga dar uma olhada no arquivo e consiga me dar um "norte" se é possível fazer o desenvolvimento que eu preciso. Basicamente eu preciso alterar 2 campos apenas e eliminar dezenas de funções (pode ser só ocultar) para tornar o sistema mais simples. Na parte estética, apenas mudar a fonte. Eu tenho um conhecimento muuuuito básico sobre access, tentei de diversas formas desbloquear o arquivo, procurei por macetes na internet, procurei diversas formas de conseguir desbloquear, mas como eu disse, meu conhecimento é muito básico. Procurei também contratar um desenvolvedor em access para me dar uma luz sobre o assunto, no entanto, o valor cobrado supera o custo de desenvolvimento de um sistema do zero, logo, estou ficando sem opções. Abraços,

Boa tarde, eu estou a criar um banco de dados para a minha empresa, e criei um formulário para pesquisar os nomes dos produtores, onde além de pesquisar pelas pessoas, podia fazer duplo clique abria o formulário de pesquisa com o registo selecionado. Este formulário apenas têm uma caixa de listagem e uma caixa de texto com os seguintes códigos: Option Compare Database Dim VarEspaço Private Sub BTPesquisa_Change() If VarEspaço = 1 Then VarEspaço = 0 Else Me.Recalc SendKeys "{F2}" End If End Sub Private Sub BTPesquisa_AfterUpdate() Me.NomesLista.Requery End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then VarEspaço = 1 End If End Sub Private Sub NomesLista_DblClick(Cancel As Integer) DoCmd.OpenForm "Registo", acNormal, "", "[ID]=[Formulários]![PesquisaNomes]![NomesLista]", acFormEdit, acWindowNormal DoCmd.Close acForm, "PesquisaNomes" End Sub Private Sub VoltarRegisto_Click() DoCmd.Close DoCmd.OpenForm "Registo" End Sub O erro é quando pesquiso um nome na caixa de texto, a caixa de listagem não atualiza e fica difícil encontrar o registo. Existe outro código que possa utilizar ou outra maneira de consertar este erro? Agradeço a ajuda.

Tenho uma Base de dados que contem informação sobre apartamentos. Normalmente cada apartamento só tem 1 proprietário. Detectei entretanto que alguns dos apartamentos, têm mais do que um proprietário. Pois bem, pretendo apurar e mostrar apenas os apartamentos que têm mais do que um proprietário e, a partir desta restrição mostrar os nomes desses proprietários. Estou a utilizar o seguinte: SELECT Imo_Prop.Imovel, Count(Imo_Prop.Imovel) AS Contador INTO tmp FROM Imo_Prop, Imovel WHERE Imo_Prop.Imovel=Imovel.ID_Imovel GROUP BY Imo_Prop.Imovel HAVING (Count(Imo_Prop.Imovel))>1 UNION SELECT tmp.Imovel, Imo_Prop.Proprietario, Proprietario.Nome, Arruamento.Nome, Imovel.NumPorta FROM tmp, Imo_Prop, Arruamento, Imovel, Rua_Zona, Proprietario WHERE tmp.[Imovel] = Imo_Prop.[Imovel] AND Imo_Prop.[Proprietario] = Proprietario.[ID_Prop] AND tmp.[Imovel] = Imovel.[ID_Imovel] AND Imovel.[CodZona] = Rua_Zona.[ID] AND Rua_Zona.[Rua] = Arruamento.[ID_Rua] ORDER BY 1, 2; Dá a seguinte mensagem: Não é possivel utilizar uma consulta ação como origem de linha.

Prezados, bom dia ... Estou pesquisando há alguns dias o seguinte problema... Tenho um arquivo Access consumindo banco de dados via ODBC, MySql, distribuído em vários computadores... Ao pesquisar um determinado registro em um dos computadores consigo ver no formulário os dados corretamente, em outros computadores aparecem todos os dados preenchidos como #Excluído... São ao todo 10 computadores e esse erro acontece em apenas 4 computadores... O registro em questão existe no banco de dados, não foi excluído ... Já atualizei o Access, todos tem a mesma versão, atualizei o Windows, deixei as mesmas configurações nas opções do Access, porém até o momento o problema permanece... Alguém já passou por esse problema e poderia indicar alguma solução ...??? Muito Obrigado! Hebert

Tenho uma tabela que foi importada com erro do Excel para o Acess. O ano da data deveria ser 2018, mas foi importado com 2019. É possível mudar somente o ano de 2019 para 2018 através de uma consulto ou através de outro método sem usar VBA? AS Função Localizar/Substituir não funciona nesse caso. Obrigado! lbcarvalho

Tenho um banco de dados access que é atualizado constantemente, gostaria de consultar periodicamente esse banco de dados e enviar e-mail's a partir dos resultados da consulta.

Como criar um código onde o mesmo inicia assim que o documento é aberto? Fiz uma programação de login no Access através da programação VBA, mas não sei fazer com que assim que abra o documento ele fixe a tela de login até preencher seus dados.

E aí pessoal, estou com uma dúvida sobre pesquisa em formulário, estou usando uma caixa de texto para fazer a pesquisa. No formulário estou usando o seguinte codigo no campo "como" Como [Forms]![Frm_Cadastro].[TxtPesquisaCPF] & "*" Está funcionando perfeitamente a pesquisa, porém, registros que estão com o campo em questão vazio, não são listados. Nesse caso estou usando o campo CPF, todos os registros que estão com CPF vazio, não está listando no formulário, quando eu apago esse código de pesquisa, os registros voltam a aparecer, mas o campo de pesquisa perde a sua funcionalidade, eu acredito que esse "*" deveria ser os campos vazios, mas aparentemente não é. Alguém sabe me ajudar com isso?

Boa noite! Estou aprendendo a utilizar o Access e estou com alguns problemas, criei uma Caixa de Combinação, e defini que, ele irá pegar os valores de uma outra tabela chamada "Usuários", e deverá mostrar a coluna dos nomes. Minha ideia era gerar um recibo através de um Relatório, onde, no campo "Nome" aparecesse o nome selecionado na caixa de combinação, mas ao invés de mostrar o nome ele exibe o código do usuário. Alguém pode me dar uma luz?

Boa tarde, preciso executar uma consulta de referência cruzada que receba um valor de entrada do usuário, a consulta está assim: TRANSFORM Count(OCORRENCIAS.Culpabilidade) AS Culpabilidade SELECT Month(OCORRENCIAS.[Data]) AS Mes, Count(OCORRENCIAS.Culpabilidade) AS Total FROM OCORRENCIAS WHERE (((Year([OCORRENCIAS].[Data]))= "2018")) GROUP BY Month(OCORRENCIAS.[Data]) PIVOT OCORRENCIAS.Culpabilidade; Está executando sem problemas porém preciso que o filtro do Ano da pesquisa seja fornecido no momento de executar a consulta, quando troco o "2018" por [Inserir ano pesquisa] apresenta mensagem de erro "O mecanismo de banco de dados não reconhece [Inserir ano pesquisa] como um campo ou expressão válida", vi em outras postagem sugerindo para declarar o parâmetro, adicionei PARAMETERS [Inserir ano pesquisa] Short; no inicio do código, porém agora ele apresenta a janela para inserir a variável duas vezes (algumas vezes ele mostra 3 vezes a janela de entrada), alguém sabe como resolver este problema?

Boa noite pessoal, preciso da ajuda de vocês pra algo que parece simples, mas por falta de prática não estou conseguindo fazer. Tenho um formulário que esta sendo alimentado pelo meu bd, quero filtrar ele quando marco um checkbox. Por exemplo, tem uma coluna no meu bd que chama "Premium", quero filtrar somente os clientes Premium quando marcar essa checkbox. Consegui um código que esta funcionando, porém, não atualiza o formulário deixando somente os clientes Premium visíveis. Private Sub FiltroPremium_AfterUpdate() If Me.FiltroPremium = -1 Then Me.Filter = "Premium = 'Sim'" Me.FilterOn = True Else Me.Filter = "" Me.FilterOn = False End If End Sub Desde já, muito obrigado.

Estou fazendo um BD de agendamento de horários de um Pet Shop. Preciso que em cada dia não coincida nenhum horário. Utilizo a data para ser colocada manualmente e os horários em uma combobox, podendo ser das 8:00 às 19:00. EX.: No dia 08/05/2018 tem-se um horário marcado as 8:00. Neste caso quando for marcar o próximo filhote não terá na combobox o horário das 8:00.

Boa tarde, necessito da vossa ajuda. tenho um código em VBA no access que faz o envio automático de email via outlook. Nesse código, estou a utilizar a função GetBoiler que vai buscar a minha assinatura do outlook: Function GetBoiler(ByVal sFile As String) As String 'Dick Kusleika Dim fso As Object Dim ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2) GetBoiler = ts.readall ts.Close End Function Mas acontece que a minha assinatura é constituida por texto e por uma imagem. O código vai buscar a assinatura mas não mostra a imagem. Já verifiquei tudo o que tinha de verificar nas "opções" do outlook e está tudo Ok. Até porque se eu envio o email normalmente a assinatura aparece com a imagem. Podem ajudar? Preciso mesmo de resolver esta situação. Obrigado! Segue o código da minha função: Function EnviarMailAutomatico() On Error GoTo EnviarMail_Err Dim objOut As Object Dim objMail As Object Dim msg As String Dim resp As Integer Dim MyFile Dim SigString As String Dim Signature As String Dim Utilizador As String Dim strbody As String Const olMailItem = 0 Const olByValue = 1 Utilizador = UtilizadorRede ' Verifica se a caixa de seleção já está selecionada If Forms!Pedido!Enviado.Value = True Then MsgBox "Desculpe, mas você já enviou este e-mail. " _ & "Não é possível enviar o mesmo e-mail mais " _ & "de uma vez", vbCritical Else 'Retornar o nome do ficheiro da assinatura para o utilizador de rede que está logado no Computador MyFile = Dir("C:\Users\" & Utilizador & "\AppData\Roaming\Microsoft\Signatures\" & "*.htm") ' Confirmar antes de enviar o e-mail. resp = MsgBox("Você está prestes a enviar um e-mail de" _ & " confirmação de despacho. Deseja realmente continuar?", _ vbQuestion + vbYesNo) If resp = vbYes Then ' Cria os objetos Set objOut = CreateObject("Outlook.application") Set objMail = objOut.CreateItem(olMailItem) strbody = "<H3>Caros colegas,</H3>" & _ "Peço que se elimine o pedido número " & Forms!Pedido!Ped & _ ".<br>" & _ "<br><br><B>Obrigado</B>" 'Atribuir a assinatura do remetente SigString = Environ("appdata") & _ "\Microsoft\Signatures\" & _ MyFile If SigString <> "" Then Signature = GetBoiler(SigString) Else Signature = "" End If On Error Resume Next With objMail .BodyFormat = olFormatHTML .To = "teste@teste.pt" .CC = "teste1@teste.pt" .Subject = "Eliminar pedido " & Forms!Pedido!Ped .HTMLBody = strbody & "<br>" & Signature End With ' Envia o e-mail objMail.Display ' Remove os objetos da memória Set objMail = Nothing Set objOut = Nothing End If End If EnviarMailAutomatico_Exit: Exit Function EnviarMailAutomatico_Err: MsgBox Error$ Resume EnviarMail_Exit End Function

Olá, sou novo no fórum e sou iniciante em criação de banco de dados. Fiz um banco de dados e preciso ter um botão, onde eu clique e ele faça a pesquisa dos dados na tabela e me retorne o registro. Uso atualmente, o "localizar e Substituir" do próprio office, mas sempre que uso essa função, preciso alterar "Examinar e Coincidir" para Documento Atual e Qualquer Parte do Campo (como na imagem que coloquei). Gostaria de saber, se existe algum meio que, ao clicar em Localizar e Substituir essas opções de Examinar e Coincidir já venham automaticamente configuradas para Documento Atual e Qualquer Parte do Campo. Outra dúvida é que, ao terminar o Localizar e Substituir e tentar localizar de novo dá um erro que também vou deixar a imagem aqui. Por favor, me ajudem como resolver ou se houver algum meio alternativo ficarei muito grato. Desde já agradeço a atenção!

Pessoal, Boa Tarde !!! Gostaria de uma ajuda para uma solução que estou criando de forma bem amadora, pois não sou programador de profissão. Estou utilizando o MS Visual Studio para criar formulários em páginas Asp.Net com a linguagem VB.Net por estar mais familiazarizado com VBA do Excel. Já consegui fazer algumas coisas com por exemplo construir a página e os controles de validação de campos, porém preciso fazer a conexão e regras de consulta com banco de dados. Acontece que, a base de dados do sistema utilizado esta em Access, por uma série de limitações de um outro sistema que utiliza este banco. Como não sou Expert em programação, os melhores exemplos dessa ligação estão em linguagem PHP, ou conexões com outros bancos de dados. O que eu gostaria de fazer, e se possível pudesse analisar algum projeto disponível na seguinte condição; Uma solução para me conectar com o banco de dados Access via JSON e trazer estes dados para poder trabalhar com Angular ou até com as opções de controles ASp.net. Eu não estou conseguindo identificar como eu passo os dados coletados na consulta JSON para uma tabela html ou aplicar filtros na consulta, pois os melhores exemplos de gráficos, utilização de filtros, etc, são utilizando tags html e Angular. Segue anexo uma imagem de exemplo do que eu imagino. Desde já agradeço a atenção e desculpe qualquer coisa sem sentido nessa história.....rsrs Hugo Santos

boa tarde caros colegas, estou aprendendo a programar pois estou convertendo um sistema antigamente em access para visual basic porém estou com dificuldades (que pra vocês deve ser coisa basica) em popular as textbox com os registros específicos das tabelas, eu consegui fazer funcionar porém estou achando que demora para abrir o formulario, alguém poderia me dar uma dica para ficar melhor? Realmente tem bastante informação nas tabelas mas creio que dê para optimizar (corrijam se eu estiver errado ou se tiver algo melhor a ser feito) meu codigo ta da seguinte forma. Tenho um modulo que faz com a conexão do banco de dados que está assim: Imports System.Data.OleDb Module mdlAcesso Public Function getConnection() As OleDbConnection Dim sql As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Settings.conexaoBanco Return New OleDbConnection(sql) End Function End Module E no formulario está assim: Imports System.Data.OleDb Public Class frmProcesso Public Sub PCarregaDados() Using con As OleDbConnection = getConnection() Try con.Open() Dim strPasta As String strPasta = InputBox("Digite o numero da pasta") Dim sql As String = "Select * from Processos WHERE pasta LIKE '%" & strPasta & "%'" Dim cmd As New OleDbCommand(sql, con) Dim da As New OleDbDataAdapter(cmd) Dim dt As New DataTable da.Fill(dt) txtpasta.Text = dt.Rows(0)("Pasta").ToString txtprocesso.Text = dt.Rows(0)("Processo").ToString cboobjacao.Text = dt.Rows(0)("Objeto da Ação").ToString txtsituacao.Text = dt.Rows(0)("Situação do Processo").ToString txttipoacao.Text = dt.Rows(0)("Ação").ToString txtvara.Text = dt.Rows(0)("Vara").ToString txtforum.Text = dt.Rows(0)("Forum").ToString txtarquiv.Text = dt.Rows(0)("DigitalizacaoFisica").ToString txtandamento.Text = dt.Rows(0)("Andamento").ToString txtresumoprocesso.Text = dt.Rows(0)("Resumo Processo").ToString Catch ex As Exception MsgBox("Ocorreu um erro ao carregar os dados", MsgBoxStyle.Critical) End Try End Using End Sub Private Sub frmProcesso_Load(sender As Object, e As EventArgs) Handles MyBase.Load PCarregaDados() End Sub End Class

Estou utilizando esse exemplo para importar xmls de nfes em lote. O Exemplo funciona corretamente porém as tabelas criadas com os dados não estão referenciadas assim sendo não conseguimos trabalhar com os dados para gerar relatórios. Exemplo, não consigo saber quais são os produtos de determinada nota. alguém pode me ajudar? https://www.sendspace.com/file/d2e09q

Boa tarde a todos, Tenho experiência mediana no VBA mas sou novo no Access. Uma vez preenchido um campo em um formulário, preciso levar essa informação para um campo de uma outra tabela - no registro cuja chave primária eu tenho naquele formulário citado. Já fiz várias tentativas, busquei várias opções na internet mas não consegui ter sucesso. Alguém pode me dar uma dica de como fazê-lo? Em termos simplórios, seria como um dlookup mas "invertido", pois não quero trazer mas sim levar o valor para outra tabela. Muito obrigado!

Bom dia pessoal. Como faço para criar um campo de pesquisa no formulário Access que permita dados com letras e números? Ex: pesquisar o item ABC12345678.

Bom dia Amigos, estou com um problema e creio que vocês podem me ajudar. A empresa em que trabalho tem um sistema muito antigo que foi herdado após aquisição de outra empresa. O sistema foi desenvolvido em ACCESS 97 (PASMEM!), porém, a pessoa que era responsável por dar manutenção neste, foi desligada, e a bomba sobrou pra mim. O problema, é que sou bastante leigo quando se trata de Banco de Dados, e Estruturas ACCESS. Enfim... vamos ao problema... necessito realizar algumas alterações no MDE, mas a estrutura está com o shift bloqueado. Não tenho nem ideia como fazer para desbloquear, pois já tentei abrir direto pelo access (sem ser pelo executavel), com alt+f1+enter, ctrl+, , ctrl+g... mas não tive exito em nada. Poderiam me ajudar neste problema? Desde já agradeço, Milton

Boa noite Galera!! Sou novo no fórum e esse é meu primeiro tópico e queria q me ajudacem. Tenho um formulario em access 2010, que contém uma planilha de dados: descrição, série, status e valor, sendo que o campo status é preenchido com "Ag desmontagem ou Montado ou Ag peças" Gerei a consulta e coloquei um critério que vai listar conforme eu digitar "Status, Série". Até aí tudo certo. O que quero é criar um formulário com botão para que eu apenas marque essas opções em vez de ter que difitar, pra ficar mais prático. Alguém pode me dar uma dica aí? Obrigado

Falae Galera,Tenho uma tabela com nome de “funcionários” onde cadastro nomes de funcionários em um campo chamado “FuncPresenca” e esses nomes se repetem várias vezes. Exemplo:FuncPresenca___________Func AFunc BFunc CFunc BFunc BFunc ACriei uma consulta usando DISTINCT para filtrar o nome dos funcionários sem repetição.Resultado:FuncPresenca___________Func AFunc BFunc CGostaria de criar mais um campo nessa consulta onde me retornasse quantas vezes repete cada nome. Exemplo:FuncPresenca ---------- Presencas___________ ----------___________Func A-------------------2Func B-------------------3Func C-------------------1Isso é possível? Se Sim, como posso fazer?Desde já agradeço a ajuda pessoal!

BD Access e VB.Net 2012 Como fazer que ao clicar no botão Salvar (seja executada a rotina de salvar o registro normalmente) e ao mesmo tempo exibir em uma label ou textbox a numeração atual da quantidade de registros que foram salvos, somando +1 a cada clique (quando um novo registro for salvo)? E subtrair -1 dessa mesma numeração caso seja clicado no botão Excluir Não pode ser feito com variável pois essa numeração deve permanecer gravada mesmo depois do programa ser encerrado, e ao tornar abri-lo essa numeração deve ser exibida (em espera para somar ou subtrair 1 conforme o botão que for clicado) O problema é como guardar essa numeração? Acredito que deva ser no BD onde os demais registros serão guardados também. Mas como fazer isso? Imaginando o funcionamento dessa ação teria que usar o comando Insert para salvar (do código do botão Salvar)? E a cada soma ou subtração?! Manteria o Insert ou usaria o comando Update??? Ou nada disso??? Tô completamente no escuro Código para somar/subtrair 1 Public Class Form1 Private Sub btnAcrescenta_Click(sender As Object, e As EventArgs) Handles btnAcrescenta.Click Label1.Text = Label1.Text + 1 End Sub Private Sub btnDiminui_Click(sender As Object, e As EventArgs) Handles btnDiminui.Click If (Label1.Text > 0) Then Label1.Text = Label1.Text - 1 ElseIf (Label1.Text <= 0) Then Label1.Text = Label1.Text End If End Sub End Class

Pessoal, boa tarde ! Tudo bem? Estou tentanto fazer um inserte de uma tabela "temp" chamada ("mailing_temp") para uma tabela principal chamada ("BD_2017") de apenas dados que não existe na tabela principal usando o método NOT IN. Entretanto com muitos dados na tabela principal o inserte não esta acontecendo. Fiz alguns testes, o código para pouco linhas na tabela principal faz o comando, com muito dados ele dispara mas não acontece nada. Gostaria que alguém pudesse me ajudar ou com uma solução diferente ou identificar algo no código abaixo: "INSERT INTO BD_2017 (CODIGO,CONTATO,CNPJ,CPF,RAZAO_SOCIAL,TEL,TEL_CONTATO, TEL_CONTATO2,TEL_2,TEL_3,ER,PORTE,GUID_ID,MUNICIPIO,PROTOCOLO,E_MAIL,OFERTA_1,OFERTA_2,OFERTA_3,CF_Date, CF_Hour,CF_AgentId,CF_AgentName,CF_Group,CF_Code,CF_Detail,CF_Text,CF_TextDetail,CF_TextDetail1,STATUS_1,STATUS_2) SELECT CODIGO,CONTATO,CNPJ,CPF,RAZAO_SOCIAL,TEL,TEL_CONTATO, TEL_CONTATO2,TEL_2,TEL_3,ER,PORTE,GUID_ID,MUNICIPIO,PROTOCOLO,E_MAIL,OFERTA_1,OFERTA_2,OFERTA_3,CF_Date, CF_Hour,CF_AgentId,CF_AgentName,CF_Group,CF_Code,CF_Detail,CF_Text,CF_TextDetail,CF_TextDetail1,STATUS_1,STATUS_2 FROM MAILING_TEMP WHERE (((MAILING_TEMP.CPF) NOT IN (SELECT CPF FROM BD_2017)));" Obrigado.

Gostaria de uma ajuda para incluir novos registros em uma tabela, usando um formulário de outra tabela. Tenho 02 tabelas e 01 formulário. Tabela 01: Tb_Fornecedores; - Nesta tabela eu tenho os seguintes campos: [Fornecedor], [CNPJ], [Contato], [Telefone] e outros; Tabela 02: Tb_Contas_a_Pagar; - Nesta tabela eu tenho vários campos, sendo um deles o campo [Fornecedor] que está estabelecida como Caixa de Combinação e vinculado ao campo [Fornecedor] da tabela Tb_Fornecedores. Formulário: Fm_Contas_a_Pagar; - Neste formulário eu lanço os dados das notas que vou pagar e seleciono ou adiciono novo fornecedor no campo [Fornecedor]. No formulário, consigo adicionar novas contas a pagar, e consigo lançar o campo [Fornecedor], mesmo ele existindo ou não na tabela Tb_Fornecedores; O problema é que quando adiciono um novo fornecedor no formulário, este fornecedor fica gravado apenas na tabela Tb_Contas_a_Pagar e não fica gravado na tabela Tb_Fornecedores. Preciso que este campo também fique gravado na tabela Tb_Fornecedores. Alguém pode me ajudar com isso?