Pesquisar na Comunidade

Boa tarde! Gostaria de pedir ajuda à alguém sobre meu banco de dados.. Se me permitirem, posso postar uma copia dele aqui e tentar dizer o que eu estou precisando saber. Coloquei uma imagem anexada explicando o que eu gostaria que fosse feito.. Desde já agradeço a qualquer ajuda... Obrigado!

Boa noite sou novo aqui alguém pode me ajudar a Inserir dados filtrados no subformulário a partir de uma escolha em uma caixa de combinação

boa noite, Estou com uma consulta em um formulario onde contem um subformulario e gostaria de saber como criar o codigo vba, pois ja tentei em diferças maneiras e nao deu certo. Tenho uma Data inicial e uma final no formulario e gostaria que trouxesse todas as informaçoes da tabela ou consulta nesse intervalo. algem podeira ajudar-me?

Olá a todos, estou a começar no Access e estou a desenvolver um programa onde pretendo executar uma consulta onde o campo que pretendo reflectir é variável. Para isso criei um Formulário com uma Caixa de Combinação (ComboBox) que lista o campo "Profissão". O pretendido: Ter um botão "OK" que quando pressionado execute uma consulta tendo como critério a profissão escolhida na Caixa de Combinação e mostre um relatório com o resultado. O código que tenho neste momento, para lançar o Report é este: Sei que está um pouco baralhado mas é porque já tentei várias coisas e neste momento já nem sei onde ando... O erro que dá é este: O Relatório /Report a lançar chama-se: "Pessoal Disponível-Profissão Consulta" O Form onde está a ComboBox, chama-se "RecolheProf" O campo a passar da ComboBox para o Relatório chama-se "Profissão" Alguém me pode ajudar, s.f.f. Obrigado

Boa tarde Numa bd tenho duas tabelas diferenciadas. Consigo ler os registos da primeira. Ao tentar ler a segunda aparecem registos da primeira. O que fiz de errado ou o que não fiz? Obg

Boa noite, Estou declarando diretório da string de conexão no arquivo app.configuration. O caminho do banco de dados esta definido como "|DataDirectory|\NomeDoBancoDeDados". No caso, o banco de dados deve estar na pasta em que se encontra a aplicação. Eu gostaria de saber como definir o caminho do banco de dados para a pasta Meus Documentos. Criaria uma pasta específica para o banco de dados na pasta Meus Documentos, mas gostaria de saber como eu poderia escrever o diretório para a pasta Meus Documentos. Teria que ser algo padrão (como o DataDirectory), e não algo como "c:users\Usuario\...".

stou com um banco de dados Access. Depois que instalo o programa que fiz, quando vou executá-lo, recebo a mensagem de que o banco de dados é apenas leitura. Para evitar este problema, tentei tornar o banco de dados editável via código (coloquei no load do form principal). Tentei duas sintaxes sql, mas em ambas recebo o erro do título do tópico. Quando criei o meu banco de dados não coloquei nenhuma senha. Quando fui estabelecer a conexão com o banco de dados pelo Visual Studio, não coloquei nenhuma senha e consegui me conectar ao banco de dados normalmente. Alguma sugestão? Seguem as duas sintaxes que tentei utilizar sql = "ALTER DATABASE [TesteBCAccess] SET READ_WRITE WITH NO_WAIT" sql = "ALTER DATABASE TesteBCAccess SET CHANGE_TRACKING = ON (CHANGE_RETENTION = 2 DAYS, AUTO_CLEANUP = ON)"sql

Olá a todos! Como fazer para passar valores de uma textbox para richtextbox e passa para próxima linha cada vez que passa um valor? (visual.net) Obrigado.

Ola a todos! Queria saber como fazer para armazenar um arquivo de videos no banco de dados access usando visual.net ? Tenho um formulário de cadastro pronto no visual studio e todos os outros compros estão pronto só falta eu conseguir um método de armazena vídeos no banco de dados. Obrigado!

Boa dia. Estou a desenvolver um software e tenho como objetivo ter uma base de dados integrada com os códigos postais de Portugal. Não precisa necessariamente de ter TODOS os códigos postais existentes, mas devia conter pelo menos os códigos postais "gerais" das cidades portugueses. Alguém tem um ficheiro que podia disponibilizar? É para importar para base de dados Access.

Caros(as) Senhores(as), preciso desenvolver um programa em MS-Access que me permita visualizar diversos tipos de arquivo DENTRO de um formulário (algo equivalente ao feito pelo Windows Explorer). Na área destinada a mostrar o arquivo deverá permitir VISUALIZAR (não abrir) arquivos do Microsoft Word (*.docx, *.doc, ...), do Microsoft Excel (*.xlsx, *.xls, ...), do Microsoft Outlook (*.msg incluíndo seus anexos), PDF. Peço a gentileza aos programadores mais experientes e/ou que possam contribuir na solução deste problema que me apoiem o mais rápido possível. Agradeço desde já pelo interesse e apoio.

Caros(as) Senhores(as), estou tendo os seguintes problemas para os quais peço-lhes apoio em sua solução: 1) Não há nenhum Suplemento instalado [Suplemento COM, Suplemento do Access, nem Itens desabilitados (em Opções do Access / Suplementos: não há na lista nenhum suplemento Ativo, Inativo, Relacionado com Documento ou Desabilitado). [nesta mesma janela, em Gerenciar ... Ir, não há suplementos disponíveis tanto COM, do Access nem Desabilitados). Também, em Adicionar, não há nenhum arquivo (DLL, exe, ...) disponível para instalar.]. Como conseguir ter os Suplementos disponíveis para utilização?; 2) No menu, os Controles não estão disponíveis, especialmente os ActiveX. Como utilizá-los?

Um Bem Aja a todos com Votos de Bom Natal Tenho uma BD Access 2010 onde faço o Insert com o código descrito a seguir. Os respectivos valores (referentes a ultima semana) aparecem na BD. Sem fechar a aplicação VB Net fazendo uma consulta recebo os dados bem. Só que depois de fechar o VB Net e voltar a abrir a aplicação (projecto) os dados que introduzi desaparecem da BD. Agradeço uma ajuda Private Sub InserirJogadosEuro() Dim DataSorteio = MonthCalendar1.SelectionStart.DayOfWeek Dim Dia As String Dia = "" Select Case DataSorteio Case 2 Dia = "Terça Feira" Case 5 Dia = "Sexta Feira" End Select ' Texto de ligação à base de dados Dim ConnectionString As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\Justino\Documents\Visual Studio 2015\Projects\TotoMilhoesNovo\TotoMilhoesNovo\bin\Debug\ResultadosEuromilhoesTotoloto.accdb") ' Comando que irá inserir dados na tabela "NumJogadosEuromilhoes" em que os campos ' "Data" e "diasemana" são passados através de parâmetros Dim Query As String = "INSERT INTO NumJogadosEuromilhoes([Aposta], [Data], [DiaSemana], [N1], [N2], [N3], [N4], [N5],[E1], [E2]) VALUES (@Aposta, @Data, @DiaSemana, @N1, @N2, @N3, @N4, @N5, @E1, @E2)" '' Cria uma nova ligação à base de dados 'Dim connection As New SqlConnection(myConnectionString) ' Criação do comando indicando a instrução e a ligação Dim command As New OleDbCommand(Query, ConnectionString) ' Indicação dos parâmetros que serão inseridos command.Parameters.Add("@Aposta", OleDbType.VarChar).Value = ContaNumeroAposta command.Parameters.Add("@Data", OleDbType.Date).Value = MonthCalendar1.SelectionStart 'command.Parameters.Add("@DiaSemana", SqlDbType.VarChar).Value = MonthCalendar1.SelectionStart.DayOfWeek command.Parameters.Add("@DiaSemana", OleDbType.VarChar).Value = Dia command.Parameters.Add("@N1", OleDbType.VarChar).Value = ListBox1.Items.Item(0).ToString command.Parameters.Add("@N2", OleDbType.VarChar).Value = ListBox1.Items.Item(1).ToString command.Parameters.Add("@N3", OleDbType.VarChar).Value = ListBox1.Items.Item(2).ToString command.Parameters.Add("@N4", OleDbType.VarChar).Value = ListBox1.Items.Item(3).ToString command.Parameters.Add("@N5", OleDbType.VarChar).Value = ListBox1.Items.Item(4).ToString command.Parameters.Add("@E1", OleDbType.VarChar).Value = ListBox2.Items.Item(0).ToString command.Parameters.Add("@E2", OleDbType.VarChar).Value = ListBox2.Items.Item(1).ToString ' Abre a ligação, executa o comando e guarda em "x" o número de registos inseridos ConnectionString.Open() Dim x As Integer = command.ExecuteNonQuery() If x < 1 Then MessageBox.Show("A operação efectuada não retomou qualquer resultado.") Else MsgBox("Aposta Registada com Exito", MsgBoxStyle.Information, "Registo de Aposta na Base Dados") End If ' Fecha a ligação e limpa as variáveis ConnectionString.Close() ConnectionString = Nothing command = Nothing ListBox1.Items.Clear() ListBox2.Items.Clear() End Sub

Boa tarde, tenho uma tabela em access com a seguinte estrutura: T_Artigos -ID_Artigo (Chave Primária) -ID_Familia -Descricao_Artigo -Vida_Util Acontece que pretendo fazer a seguinte consulta: SELECT T_Artigos.ID_Artigo, T_Artigos.ID_Familia, T_Artigos.Descricao_Artigo, T_Artigos.Vida_Util FROM T_Artigos WHERE T_Artigos.ID_Familia=2 AND T_Artigos.Descricao_Artigo Like "gtrthg" Até aqui tudo, ok. O problema começa quando uso %, como por exemplo: SELECT T_Artigos.ID_Artigo, T_Artigos.ID_Familia, T_Artigos.Descricao_Artigo, T_Artigos.Vida_Util FROM T_Artigos WHERE T_Artigos.ID_Familia=2 AND T_Artigos.Descricao_Artigo Like "gtrthg%" OU: SELECT T_Artigos.ID_Artigo, T_Artigos.ID_Familia, T_Artigos.Descricao_Artigo, T_Artigos.Vida_Util FROM T_Artigos WHERE T_Artigos.ID_Familia=2 AND T_Artigos.Descricao_Artigo Like "%gtrthg" Nestes casos, não devolve qualquer linha. Alguém me consegue ajudar? Agradeço desde ja.

Boa tarde, Tenho um subformulário que ao testar independente o combobox com pesquisa, acerta as colunas e funciona. Quando este subformulario esta com o formulário dá erro: "Você tentou atribuir o valor Null a uma variável que não é do tipo de dados Variant." E abre o editor VBA na primeira linha (NomeFantasia) Private Sub cbo_TipoFornecedor_Click() Me.NomeFantasia = cbo_TipoFornecedor.Column(1) Me.NomeServico = cbo_TipoFornecedor.Column(3) Me.TarifaCF = cbo_TipoFornecedor.Column(6) ' Me.Refresh End Sub Já mudei, colocando de 1 a 10 (são 10 colunas) Não entendo onde esta o erro. Alguem pode ajudar?

Ola a todos Criei um formulário com 2 subformulários semelhantes. Um subformulário com preços fixos e outro com preços variáveis. Dentro destes subformulários quero uma pesquisa com filtro em cascata 4 caixa combinação e 1 caixa de texto Como fazer isto? Já pesquisei e não encontrei nada tão complexo (para mim). Qualquer ajuda será bem vinda. Obrigado kakalo

Boa tarde, Alguém possuí um modelo de base de dados em access que trabalhe com as seguintes entidades: Alunos, Professores, Turmas, Notas, Horários, etc. Obrigado, desde já pela disponibilidade

Bom Dia, Sendo novo no Portal e não conhecendo as regras do mesmo, espero por isso não estar a quebrar as regras mas gostaria de contactar com alguém com experiência em Access / VBA para desenvolvimento em Microsoft Access mas com base de dados em ambiente remoto ( Cloud Amazon ) para controle de produção da minha empresa. Já existe desenvolvimento feito por mim e a base de dados já existe, estando em funcionamento mas com "n" funcionalidades necessárias não implementadas, devido à minha limitação e desconhecimento do programa/linguagem. Eventuais interessados por favor enviem email para mario.ferreira.mails@gmail.com Aos administradores do forúm, caso este tópico seja "introsivo" as minhas desculpas e queiram por favor eliminar o mesmo. Obrigado

Boa, Com o novo access 2016 as pivoy table desapareceram. alguem sabe se existe alguma forma de usar as pivot table no access 2016? Obrigado

Boa Pessoal como vão? Estou com um problema de consumo de memoria em uma aplicaçao que estou a desenvolver nao sei o porque mas esta acontecendo vou passar um codigo base de como algum de meus forms Funcionam Imports System.Data.OleDb Imports Classes ' Importando classes Public Class Cad_banco Dim cx As New Conexao Dim sql As String = "" Private Sub Cad_banco_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Dispose() End Sub Public Sub Cad_banco_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MostrarTabelaBanco() MostrarBancos() FormatarColunas() contar() End Sub Sub MostrarTabelaBanco() Dim sql As String = "" sql += " SELECT Codigo,Banco From Bancos " sql += " Order by Codigo " cx.Conectar() Dim DaBancos As OleDbDataAdapter Dim ds As New DataSet DaBancos = New OleDbDataAdapter(sql, cx.C) ds = New DataSet DaBancos.Fill(ds, ("Bancos")) DGVBancos.DataSource = ds.Tables("Bancos") cx.Desconectar() End Sub Sub MostrarBancos() Dim Dabancos As OleDbDataAdapter Dim ds As New DataSet Dim sql As String = "" sql += " Select Codigo,Banco " sql += " FROM Bancos " cx.Conectar() Dabancos = New OleDbDataAdapter(sql, cx.C) ds = New DataSet Dabancos.Fill(ds, ("Bancos")) CbBanco.ValueMember = ("Banco") CbBanco.DisplayMember = ("Banco") CbBanco.DataSource = ds.Tables("Bancos") cx.Desconectar() End Sub Private Sub BtnIncluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIncluir.Click Try If TxtCodigoBanco.Text = "" Or TxtDescricao.Text = "" Then Throw New Exception("Nao pode harver campos em branco!") Else VerificaCodigo(Codigo) Dim sql As String = "" sql += " Insert into Bancos(Codigo,Banco) " sql += " Values(" + TxtCodigo.Text + ",'" + TxtDescricao.Text + "') " cx.Conectar() Dim cd As New OleDbCommand(sql, cx.C) cd.ExecuteNonQuery() Throw New Exception("Banco Incluido com sucesso!!" + TxtDescricao.Text.ToString) End If Catch ex As Exception LblAguardar.Text = ex.Message Finally MostrarTabelaBanco() TxtCodigo.Text = "" TxtDescricao.Text = "" cx.Desconectar() End Try End Sub End Class Bom Pessoal no codigo acima tanbem tenho para alterar e excluir e mas alguma consulta mas e so repetiçoes sabem como funciona mas Eis ai o problema a aplicaçao funciona 100% so o consumo de memoria ele sobe conforme abre-se e fecha o form mesmo utilizando o DISPOSE no fechamento do FORM_Closing Gostaria de saber se tem alguma forma de mudar este cenario da memoria um ex: o consumo esta em 92.500 quando abro o form vai para 92,650 e vou utilizando ele vai aumentando quando fecho o form ele continua no mesmo valor so que dai ele usa o utlimo que estava 92,650 e vai para 92,780 (E somente exemplos pessoal) Oque fazer sobre o consumo e como baixa-lo?

Boa tarde. Por ser novo neste blog venho questionar se alguem conhece ou possui que possa disponibilizar ficheiro excell ao acess que funcione como base de dados "manual" para emissão e registo de recibos de condominos para condominio. Sei que existem alguns programas de gestão de condominios mas se houvesse ficheuri excel ou acess com essa informação seria top. Obrigado desde já. JC Oliveira

Estou tentando fazer essa consulta com ACCESS via ADOQuery pelo Delphi e dá erro na linha ParamByName... O engraçado é que com os outros bancos de dados não dá esse erro ADOQuery2.Close; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('SELECT Valor FROM PRODUTOS WHERE MarcaProduto =:Combo2' ); ADOQuery2.ParamByName('Combo2').Value:=ComboBox2.Text; ADOQuery2.Open;

Prezados, boa tarde! Gostaria de saber se podem me ajudar? Eu gostaria de exportar um relatório do ACCESS em formato PDF (ou WORD), contudo, gostaria que saísse em arquivos individuais. (Não se trata de criar filtro na consulta) Atualmente, por padrão do ACCESS, quando exportamos, apenas extrai-se um arquivo PDF com todos os documentos. Na situação que eu preciso, por exemplo, se eu tiver 10 documentos em um relatório, gostaria que fosse extraído 10 PDFs, um PDF para cada documento. Agradeço desde já!

Boa Tarde! Acredito que minha pergunta seja algo muito simples, mas pesquisei, pesquisei na internet e não conseguí fazer com que meu navegador exiba os documentos linkados no formulário. O que estou fazendo de errado? Alguém poderia me ajudar a ordenar os endereços no construtor de hiperlinks? Muito Obrigado!

Boas pessoal, Preciso de uma ajuda aqui na aplicação que estou a desenvolver! É o seguinte: estou a desenvolver uma aplicação que tem como objetivo ser acedida em qualquer lugar que a tenha instalada. Sou novo nestas andanças e queria saber como deveria fazer e a melhor solução para isto. Neste momento estou a usar BD em access, e por norma não vai ter mais do que 2/3 pessoas a trabalhar na aplicação ao mesmo tempo. Obrigado desde ja pela ajuda