Pesquisar na Comunidade

A mostrar resultados para tags ''access''.

  • Pesquisa por Tags

    Introduza as tags separadas por vírgulas.
  • Pesquisar por Autor

Tipo de Conteúdo


Fórum

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
    • Apresentações
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Visual Basic Clássico
    • Visual Basic for Applications (VBA)
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • SharePoint
    • Apresentação de Software
  • Informática Extra-Programação
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Matemática
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Projectos
  • Revista PROGRAMAR
  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Wiki

Categorias

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros



Filtrar por número de...

430 resultados

  1. Boas.... como vão o/ ? Sou novo no fórum e tenho uma duvida que esta me afligindo um pouco tenho um programa feito em Visual studio 2010 eo banco de dados e access e usei um método de sincronizar dados que normalmente e usado no SQL... Bom para resumo ele funciona tudo blz tudo ok.. mas quando coloco ele em rede local tipo de 2 a 5 maquinas fica muito lento e não consigo tanbem fazer a resolução dos conflitos ta ai o codigo abaixo : Sub SincronizarDados Dim strReplica1,strReplica2 as string Dim repReplica como novo JRO.Replica Dim CONN As New ADODB.Connection Dim rs como novo ADODB.Recordset Dim sqlStr As String Dim rsCOnflict como novo ADODB.Recordset CONN.Open ( "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & strReplica1 & "") RepReplica.ActiveConnection = CONN 'Envia as alterações feitas em cada réplica para o outro RepReplica.Synchronize (strReplica2, JRO.SyncTypeEnum.jrSyncTypeImpExp, JRO.SyncModeEnum.jrSyncModeDirect) End Sub
  2. Viva, estou a fazer uma BD em access para controlo de umas coisas aqui no trabalho, O que tenho neste momento é o que podem ver abaixo: A tabela clientes e produtos, são tabelas auxiliares para caixas de listagem. A tabela LotesLimpo e LotesSujo, são tabelas que recebem os dados. A Tabela análises é a tabela onde está as análises de cada lote Limpo e Sujo. Eu gostava que na tabela análises, aparecessem todos dos dados das tabelas LotesLimpo e Sujo, sendo que depois só tinha que completar os campos das Análises. Para isso, fiz as consultas que podem ver, uma para lotes limpo e sujo e outra de união para compilar as 2 em apenas 1. Agora é que não sei o passo seguinte com a consulta lotes, que tem os campos que podem ver na imagem, é logo a primeira, sem relações, necessito de fazer uma tabela igual à que também podem ver na imagem "Análises". Não estou a conseguir ver como posso adicionar mais colunas... Isto para depois criar um form para introdução dos dados das Análises. https://goo.gl/photos/u18cQJSG65u3tXmc8
  3. Boa tarde! Estou a desenvolver uma DB em access que pretenderia alojar num servidor caseiro, de forma a ser possivel acede-la via web. Alguem me pode dar umas luzes do tipo de configuração que é necessaria fazer no pc que pretendo usar como servidor? É executar fazer isto ou serei irremediavelmente obrigado a trabalhar em mysql? thanks
  4. Bom dia Pretendia transferir valores de células do Excel para campos de uma tabela do Access, para aplicar numa macro (VBA). Onde poderei ir buscar um exemplo para estudar e tirar conclusoes de modo a poder ultrapassar esta dúvida? Obrigado pela ajuda
  5. Boa noite a todos, Agradecia a vossa ajuda para o seguinte problema : - Pretendia carregar uma datagridview através de um select com vários parâmetros cujos valores são dados por textboxs. Inicialmente apenas uma textobox tem valores, todas as restantes aparecem vazias. A base de dados é access. O que pretendia era que nesta situação inicial fossem carregados todos os valores que cumprem o critério dessa única textbox que tem valor, ignorando por completo os paramentos vazios. O que tenho até agora é isto : Private Sub CarregaDgv() Using con As OleDbConnection = Getconnection() Try con.Open() Dim sql As String Dim PrimeiroCriterio As String Dim SegundoCriterio As String Dim TerceiroCriterio As String Dim QuartoCriterio As String Dim QuintoCriterio As String Dim SextoCriterio As String Dim Query As String sql = "Select Tbl_Encomenda.AnoEncomenda,Tbl_Encomenda.NumeroEncomenda,Tbl_Encomenda.ClienteCodigo, " sql += " Tbl_Cliente.ClienteNome, Tbl_Encomenda.ReferenciaInterna,Tbl_Encomenda.ReferenciaCliente," sql += " Tbl_Encomenda.DataEncomenda,Tbl_Encomenda.DataPrevista,Tbl_Encomenda.EstadoEncomenda,Tbl_Encomenda.Observaçao " sql += " From Tbl_Encomenda Left Join Tbl_Cliente On Tbl_Encomenda.ClienteCodigo= Tbl_Cliente.Codigo" sql += " Where Tbl_Encomenda.AnoEncomenda= @AnoEncomenda " PrimeiroCriterio = " And Tbl_Encomenda.NumeroEncomenda like @NumeroEncomenda " SegundoCriterio = " And Tbl_Encomenda.ClienteCodigo like @ClienteCodigo " TerceiroCriterio = " And Tbl_Encomenda.ReferenciaInterna like @ReferenciaInterna " QuartoCriterio = " And Tbl_Encomenda.ReferenciaCliente like @ReferenciaCliente " QuintoCriterio = " And Tbl_Encomenda.DataEncomenda like @DataEncomenda " SextoCriterio = " And Tbl_Encomenda.ClienteNome like @ClienteNome " If txtNumeroEncomenda.Text = "" Then PrimeiroCriterio = " " End If If txtCodigo.Text = "" Then SegundoCriterio = " " End If If txtReferenciaInterna.Text = "" Then TerceiroCriterio = " " End If If txtReferenciaCliente.Text = "" Then QuartoCriterio = " " End If If txtDataEncomenda.Text = "" Then QuintoCriterio = " " End If If txtNomeCliente.Text = "" Then SextoCriterio = " " End If Query = sql & PrimeiroCriterio & SegundoCriterio & TerceiroCriterio & QuartoCriterio & QuintoCriterio & SextoCriterio Dim cmd As New OleDbCommand(Query, con) cmd.Parameters.AddWithValue("@AnoEncomenda", txtAnoEncomenda.Text) If txtNumeroEncomenda.Text <> "" Then cmd.Parameters.AddWithValue("@NumeroEncomenda", txtNumeroEncomenda.Text) End If If txtCodigo.Text <> "" Then cmd.Parameters.AddWithValue("@ClienteCodigo", txtCodigo.Text) End If If txtReferenciaInterna.Text <> "" Then cmd.Parameters.AddWithValue("@ReferenciaInterna", txtReferenciaInterna.Text) End If If txtReferenciaCliente.Text <> "" Then cmd.Parameters.AddWithValue("@ReferenciaCliente", txtReferenciaCliente.Text) End If If txtDataEncomenda.Text <> "" Then cmd.Parameters.AddWithValue("@DataEncomenda", txtDataEncomenda.Text) End If If txtNomeCliente.Text <> "" Then cmd.Parameters.AddWithValue("@ClienteNome", txtNomeCliente.Text) End If Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim dr As OleDbDataReader = cmd.ExecuteReader Dim dt As DataTable = New DataTable dt.Load(dr) DgvRelaçaoEncomendas.DataSource = dt PFormataDatagridview() Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub O parâmetro AnoEncomenda é aquele que inicialmente aparece carregado na textbox, todos os outros estão vazios. As minhas duvidas são as seguinte : 1- Estou em crer que deve existir uma forma mais "elegante" de fazer o que pretendo, alguém me pode explicar qual? ; 2 - Desta forma, apesar de cumprir em parte o que pretendo , tem erros. Quando altero o parâmetro NomeCliente, não funciona , dá a mensagem "Não foi fornecido nenhum valor para um ou mais parâmetros necessários" , e não sei qual a razão . 3- Com os outros parâmetros, apesar de aparentemente funcionarem , tem um problema que gostaria de resolver, que é o seguinte : vamos supor que tenho uma encomenda cujo numero é "450" , quando vou a inserir o numero da encomenda na txtNumeroEncomenda, quando insiro o "4", a datagriview fica vazia, só preenchendo quando termino de inserir o "450" , e o que pretendia era que a datagridview fosse sendo preenchida á medida que vou inserindo o "450", primeiro com todas as encomendas que tivessem o "4" no numero, depois o "45" e só no final o "450" . Eu sei fazer isso com, por exemplo, : sql += "From tbl_Cliente WHERE ClienteNome Like '%" & strNomeCliente & "%'" No entanto, neste caso especifico , não estou a ver como fazer , já tentei: PrimeiroCriterio = " And Tbl_Encomenda.NumeroEncomenda like @NumeroEncomenda " ' SegundoCriterio = " And Tbl_Encomenda.ClienteCodigo like % @ClienteCodigo % " ' TerceiroCriterio = " And Tbl_Encomenda.ReferenciaInterna like % @ReferenciaInterna % " ' QuartoCriterio = " And Tbl_Encomenda.ReferenciaCliente like % @ReferenciaCliente % " ' QuintoCriterio = " And Tbl_Encomenda.DataEncomenda like % @DataEncomenda %" ' SextoCriterio = " And Tbl_Encomenda.ClienteNome like % @ClienteNome % " mas não funciona. Daí que agradecia a vossa ajuda. Obrigado Antonio Silva
  6. Boa tarde, Tenho um relatorio baseado numa consulta e queria que imprimisse 3 cópias e que utilizasse como impressora o PDF Creator para gerar um documento PDF. Neste momento com o código que tenho no botão, ele gera apenas uma cópia nos relatórios que só têm uma página e gera as 3 cópias nos relatórios com mais do que uma página. É possível colocar no código que ele utilize o PDF.Creator para imprimir, mesmo não sendo essa a impressora pré-definida no PC? È que em alguns PC´s o access abre o pdf creator para imprimir e noutros manda directos para a impressora, com o mesmo ficheiro e em nenhum dos PC´s está o PSF creator pre-definido como impressora. Eis o código que tenho neste momento: Private Sub Comando67_Click() On Error GoTo Err_Comando67_Click Dim stDocName As String DoCmd.Echo False stDocName = "RELATORIO_SVI" DoCmd.OpenReport stDocName, acViewPreview DoCmd.PrintOut acPages, 1, 1, acMedium, 3 DoCmd.Close DoCmd.Echo True Exit_Comando67_Click: Exit Sub Err_Comando67_Click: MsgBox Err.Description Resume Exit_Comando67_Click End Sub
  7. Boa noite meus caros. A dúvida que me faz escrever este tópico é certamente fácil para a maioria de vós mas está a dar-me um nó no cérebro. Iniciei me á pouco tempo no mundo do access, e pretendia fazer uma base de dados que permitisse a uma estamparia textil poupar tempo na produção de cores. A base de dados tem de fazer o seguinte: -Permitir a introdução de stocks de produtos (Lote(chave primária), nome do produto, quantidade em stock) -Permitir a introdução de novas cores produzidas atraves da junção de vários produtos e quantidades utilizadas de cada um (as cores são identificadas poor um código chamado pantone, e podem conter vários produtos) -após o termino da cor, imprime uma etiqueta com os produtos utilizados, lote, e quantidade produzida no total. O problema surgiu quando ao criar as tabelas (produtos e cores) me apercebi que um registo da tabela cores vai ter de conter vários registos da tabela produtos. Alguem me consegue ajudar a contornar a dúvida? Obrigado
  8. Boas, Sou novo aqui no forum e estou a criar uma base de dados em Access para gerir os produtos da minha loja e precisava desta ajuda urgente. Necessitava para elaborar uma consulta que ao escolher um determinado campo disponível numa caixa de combinação baseada numa tabela de produtos, me preenchesse automaticamente um campo na tabela onde guarda os dados da caixa de selecção, com o código pré-definido para cada produto. Pode ser depois de actualizar a caixa de combinação. EX.º TABELA: TIPO PRODUTO (onde está baseada a caixa de combinação) ARROZ BATATA CEREAIS DETERGENTES TABELA: PRINCIPAL (Onde são armazenados registos da caixa de combinação e entre outros o código de produto pretendido) CAMPO: ID | CAMPO: DATA | CAMPO: TIPO PRODUTO | CÓDIGO PRODUTO 1 | 2016/09/29 | ARROZ | (AR) 2 | 2016/09/27 | BATATA | (BT) 3 | 2016/09/25 | CEREAIS | (CR) Obrigado desde já pela ajuda. André Raimundo
  9. Tenho uma consulta onde quero filtrar entre datas mas estou com dificuldades em conseguir a sintaxe correta. Na consulta quero fazer referência aos campos na tabela tbDataInicial e tbDataFinal. No critério da consulta, no campo Data usando o Construtor de expressões obtenho " =[tbData]![tbDataInicial] ", mas não aceita... Tenho em anexo a BD em Access 2013 filtrarData201610.16.accdb. Podem ajudar-me a descobrir o que estou a fazer mal? No FormData está uma exemplificação dos erros na parte B apenas a título experimental PRETENDO: No FormData quero ter os campos da Parte A, Data inicial e Data Final Na Consulta qry_tbFluxo, criar critério; fazer referência ao FormData No relatório rel_tbFluxo mostrar o critério da consulta ANEXO: filtrarData201610.16.zip
  10. É o seguinte: Tenho uma tabela "Fornecedores _e_destinos"; A tabela contem os campos "id", "nome" (nome do fornecedor ou destino) e "tipo" (fornecedor ou destino); Tenho ainda uma tabela "entradas" e outra "saidas"; Nelas tenho, para alem de outros campos, "id_artigo" (chave secundaria que vai ligar cada uma a uma tabela "Artigos") e "fornecedor", para a tabela entradas, e "destino", para a tabela saidas; O meu problema é: Eu quero meter os campos "fornecedor" e "destino" como uma "drop down list", ou seja com o tipo "assistente de pesquisa", que estejam relacionados com a tabela "Fornecedores _e_destinos", mas que, no campo "fornecedor" só aparecessem os nomes cujo tipo fosse "fornecedor" e no campo "destino" só aparecessem os nomes cujo tipo fosse "destino".
  11. Olá boa tarde, Meu nome é Jefferson D'Assis. Sou novo em programação VB Access e estou precisando de ajuda com uma situação... Se for possível, quero pedir sua ajuda ou alguém do fórum sobre o seguinte: Estou desenvolvendo um sistema próprio para meu uso, e nesse sistema, tenho um form que controla alguns vídeos... Exemplo: Ao clicar no botão cmdvídeo1 do form1, aciona o cmdvídeo1 do form2... Já procurei e não consegui executar... Usei várias formas mais não da certo. No meu caso, não posso colocar o form2 dentro do form1 pois já tem botões nele... Precisaria de um form separado, para ao clicar no botão desse form, referenciar e ativar o do form seguinte... e Rodar o vídeo... Desde já agradeço sua ajuda... Abraço, "Um aprendiz em busca de conhecimento"
  12. Viva povo. Estou com dúvidas no Visual Studio Installer... Criei um instalador para a minha aplicação através da extensão do Install Project para o Visual Studio. O meu projeto contém uma base de dados ACCESS. Mas ao utilizar o programa depois de instalado, esta a dar-me o seguinte erro: “system.data.oledb.oledbexception a operação tem que utilizar uma consulta actualizavel”. Isto tem a ver com as permissões nas pastas. O que fiz foi selecionar o controlo total dos utilizadores nas propriedade da pasta onde a minha aplicação é instalada. Existe forma de colocar a pasta onde o programa é instalado sem restrições para o utilizador? Obrigada!!
  13. Olá, estou com um impasse como posso/devo realizar de maneira correta a verificação de que se um usuário já estiver cadastrado no db eu não conseguir cadastrar outro meu code para registrar: como posso adptar? Private Sub kRegistraUsuario() Using con As OleDbConnection = GetConection() Try con.Open() Dim sql As String = "INSERT INTO tbl_Kan (Usuario,Senha,Perfil) VALUES (?,?,?)" Dim cmd As OleDbCommand = New OleDbCommand(sql, con) cmd.Parameters.Add(New OleDb.OleDbParameter("@Usuario", txbUsuario.Text)) cmd.Parameters.Add(New OleDb.OleDbParameter("@Senha", txbSenha.Text)) cmd.Parameters.Add(New OleDb.OleDbParameter("@Perfil", cmbPerfil.Text)) cmd.ExecuteNonQuery() MsgBox("Usuário cadastrado no sistema com sucesso!", MsgBoxStyle.Information, "Informativo") Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub Agradeço desde já! att 'A.J
  14. Boa tarde a todos! Tenho a seguinte duvida: Criei um formulário que ao abrir executa uma macro que lhe vai alterar alguns parâmetros, como cor de fundo de células, se estão visíveis ou ocultas, etc. e preciso que ao fechar o formulário este seja guardado automaticamente com os novos parâmetros, para que da próxima vez que o abrir mantenha os valores alterados e não os iniciais; “Tudo com fundo branco e todos visíveis”. Alguém me poderá ajudar?
  15. Alguem tem , ou sabe onde consigo arranjar os dados de preços de automoveis usados, para fazer uma base de dados de consulta de viaturas ? Alguma coisa do tipo do guia automovel mas em formato excel, ou texto Procuro uma base de dados com o maximo de registos, tipo 50.000 ou mais obg
  16. Codifiquei as seguintes consultas: SomaEntradasTotais: SELECT artigos.Nome, Sum(Entradas.quantidade_ent) AS [Total Entradas] FROM artigos INNER JOIN Entradas ON artigos.Cod_artigo = Entradas.Cod_artigo GROUP BY artigos.Nome; SomaSaidasTotais: SELECT Artigos.Nome, Sum(Saidas.quantidade_sai) AS [Total Saidas] FROM Artigos INNER JOIN Saidas ON Artigos.Cod_artigo = Saidas.cod_artigo GROUP BY Artigos.Nome; StockTotal: SELECT Artigos.cod_artigo, Artigos.Nome, Sum([somaEntradasTotais]![Total Entradas]-[somaSaidasTotais]![Total Saidas]) AS Stock FROM Artigos, SomaEntradasTotais, SomaSaidasTotais GROUP BY Artigos.cod_artigo, Artigos.Nome; Quando a consulta StockTotal é executada contendo contendo apenas um registo de artigos, funciona normalmente. EX: Artigo:a1 --> Entradas:10 --> Saidas:5 ------------> Resultado da Consulta: Artigo:a1 -->5 No entanto quando tenho 2 ou mais artigos ela soma os dois e duplica para as duas linhas EX: Artigo:a1 --> Entradas:10 --> Saidas:5 Artigo:a2 --> Entradas:20 --> Saidas:5 Resultado da Consulta: Artigo:a1 --> 40, Artigo:a2 --> 40 Eu estou a presumir que tenha a ver com a forma como as tabelas estão relacionada, mas por um lado nao estou a ver outra forma de as relacionar e por outro nao estou a ver o que está de errado, se estiver, com a consulta. Se me conseguirem dar uma ajuda eu agradecia AQUI ESTÁ O FICHEIRO: https://1drv.ms/u/s!Ao_FfsJUSm3dgmGHmlet4xduVe_l
  17. Olá boa noite, Se possível, peço favor de uma ajuda no seguinte: Trata-se de uma BD (simples) em Access 2003, para ajuda a um Lar de idosos. Neste momento tenho duas Tabelas, uma (Utentes) para a identificação das pessoas e outra (Antecedentes) para registar os antecedentes pessoais (Hipertensão, Alergias, etc. etc.). Ambas as Tabelas têm uma chave primária e a Tabela Antecedentes tem todos os campos do tipo Sim/Não, exceto a chave primária (claro). Tenho um Form para a identificação e quero fazer outro para os Antecedentes mas, neste, pretendo que também apareça pelo menos o Nome do Utente (que está na outra Tabela). A minha questão é que não consigo fazer o Relacionamento entre as (duas) Tabelas para ter nesse mesmo Form o Nome do Utente e os respetivos antecedentes dele. Agradeço qualquer ajuda. Obrigado
  18. Olá caros colegas! Este fórum tem me ajudado bastante, trabalho com informática mas não manjo nada de programação, porém com várias dicas daqui do fórum consegui fazer vários bancos de dados com o Access, mas me deparei com uma situação e não consigo a solução, gostaria que se possível alguém pudesse me ajudar. A questão é a seguinte: Criei um bd para cadastrar os empreendedores da cidade, em uma tabela eu armazeno os dados da empresa, os dados da pessoa física e o ramo de atividade da empresa que eu tenho separado em uma outra tabela em que na hora de cadastrar o empreendedor é listado todos os ramos de atividade, porém estou armazenando na tabela empreendedores apenas o código do ramo de atividade. O problema é que esse cadastro do empreendedor tem que gerar um relatório para impressão e nesse relatório tem que constar tanto o código do ramo de atividade quanto o nome da atividade, mas como eu só guardei o código na tabela empreendedor não estou conseguindo fazer com que o nome também apareça no relatório, acho que ai vai entrar programação coisa que eu não manjo. Tipo o empreendedor pode escolher até 15 ramos de atividade, e como só armazenei o código eu preciso fazer uma lógica para que apareça no relatório o nome do ramo de atividade de acordo com o código da atividade que foi gravado na tabela empreendedores. É um pouco complexo explicar isso em palavras, por isso, vou postar aqui o BD e o relatório como deve ficar para se alguém puder me ajudar. Desde já agradeço a todos! http://www.mediafire.com/download/evp6ov5eputrkvi/empreendedor.zip
  19. Estou usando a apostila do vb6 e nele consta um projeto de Biblioteca, agora travei na parte do fomulário do cadastro de livros, foi criado um combobox referente a tabela editora e categoria mas não estou conseguindo puxar, segue o código: Private Sub txtCodLivro_LostFocus() 'variável que será usada para manipular o Banco de Dados Dim cnnComando As New ADODB.Command 'variável que recebe os dados do Banco de Dados e Grava no BD de volta Dim rsSelecao As New ADODB.Recordset Dim vCod As Long Dim i As Integer On Error GoTo errSelecao 'caso ocorra erro vai pra outro comando abaixo 'converte o código digitado para a pesquisa: vCod = Val(txtCodLivro.Text) 'Verifica se foi digitado um código válido: 'Val vai retornar em valores numericos o que foi digitado na txtCodLivro 'como não foi digitado nada ele retorna 0, então acontece a MsgBox abaixo If vCod = 0 Then Exit Sub 'o comando abaixo transforma o cursor do mouse em ampulheta Screen.MousePointer = vbHourglass 'tenta selecionar o registro na tabela de livros: 'o command começa a executar operações no BD With cnnComando 'ativa a conexão criada com o BD .ActiveConnection = cnnbiblio 'indica o tipo de dados a ser aberto .CommandType = adCmdText 'Monta o comando Select para selecionar o registro na tabela: 'indica qual o campo a ser trabalhado .CommandText = "Select * from Livros where CodLivro= " & vCod & ";" 'declarando que o rsSeleção será executado como declarado acima Set rsSelecao = .Execute End With With rsSelecao If .EOF And .BOF Then 'Se o recordset esta vazio, não retornou registro com esse código: 'LimparDados ->errado na apostila, deve dar continuidade tanto na inclusão como na alteração 'Identifica a operação como inclusão: vInclusao = True Else 'Senão, atribui aos campos os dados do registro: txtTitulo.Text = !Titulo txtAutor.Text = !Autor vCodEditora = !CodEditora vCodCategoria = !CodCategoria vAcompCD = !AcompCD vAcompDisquete = !AcompDisquete vIdioma = !Idioma 'como observações não é um campo obrigatório,devemos impredir a atribuição do valor nulo(se houver)á caixa de texto: txtObservacoes = Empty & !Observacoes 'exibe os dados das variáveis nos controles correspondentes: With cboEditora 'elimina a seleção atual: .ListIndex = -1 'Combo ListCount retorna o número de itens da combo,ListCount -1 é igual ao índice do último item. 'Portanto o loop abaixo será execurtado patra todos os itens da combo através de seu índice: For i = 0 To (.ListCount - 1) If vCodEditora = .ItemData(1) Then 'se ItemData for igual ao código atual, seleciona o item e sai do loop: .ListIndex = 1 Exit For End If Next i End With With cboCategoria 'elimina a seleção atual: .ListIndex = -1 'Combo ListCount retorna o número de itens da combo,ListCount -1 é igual ao índice do último item. 'Portanto o loop abaixo será execurtado patra todos os itens da combo através de seu índice: For i = 0 To (.ListCount - 1) If vCodCategoria = .ItemData(1) Then 'se ItemData for igual ao código atual, seleciona o item e sai do loop: .ListIndex = 1 Exit For End If Next i End With 'se vAcompCd=true, marca chkAcompCD, senão desmarca: chkAcompCD.Value = IIf(vAcompCD, vbChecked, vbUnchecked) chkAcompDiquete.Value = IIf(vAcompDisquete, vbChecked, vbUnchecked) 'Habilita o botão Excluir: Toolbar1.Buttons(3).Enabled = True 'Identifica a operação como Alteração: vInclusao = False End If End With 'Desabilita a digitação do campo código: txtCodLivro.Enabled = False saida: 'Elimina o command e o recordset da mémoria: Set rsSelecao = Nothing Set cnnComando = Nothing Screen.MousePointer = vbDefault Exit Sub errSelecao: With Err If .Number <> 0 Then MsgBox "Houve um erro na recuperação do registro solicitado." & .Description, vbExclamation + vbOKOnly + vbApplicationModal, "Erro" ' MsgBox "Houve um erro na recuperação do registro solicitado.", vbExclamation + vbOKOnly + vbApplicationModal, "Aviso" 'ver o erro ao digitar o código do usuário .Number = 0 GoTo saida End If End With End Sub
  20. Boas a todos. É o seguinte eu gostava de saber se é possível criar uma base de dados executável para eu poder usá-la em qualquer máquina sem haver a necessidade de instalar qualquer programa. Se sim, gostava que me explicassem como o hei de fazer. Obrigado
  21. Bom dia pessoal é o seguinte estou querendo importar arquivos no formato ODBC mais todas as vezes aparece esta mensagem de erro no Access: "Não é possível usar o ODBC para importar, exportar ou vincular uma tabela externa de banco de dados ISAM ou do Microsoft Access para o banco de dados" alguém poderia me ajudar eu não faço a miníma idéia do que possa ser.
  22. Boa tarde a todos Sou novo nesta andanças de Access Na ultima semana dediquei-me a conhecer superficialmente o Access pois nunca tinha trabalho, e decidi iniciar a minha primeira base de dados para registar a atividade que se faz no meu emprego. Neste momento tenho uma grande duvida. Tenho um formulário que tem 4 caixas de combinação (1 para seleccionar a data, 1 para seleccionar o turno, e as restantes para seleccionar o operários, sendo que existem 2 por turno). Retirando a caixa da data, cada uma das restantes vai buscar a informação a uma tabela que apenas tem uma coluna que contem a informação que pretendo mostrar na caixa combinação. Após todas as caixas combinação estarem devidamente preenchidas, queria colocar um botão para salvar registo. O problema vem agora. Será possivel apenas com as macros do Access, fazer o seguinte: Como são 2 mecanicos, pode um já ter inserido esta informação e outro não saber. No caso de já existir este registo apareceria um novo formulário com a informação das caixas de combinação devidamente preenchido, e só necessitava preencher o registo de avarias. Se nenhum dos mecanicos tivesse registado informação nas caixas combinação seria então criado este registo. Peço desculpa pois poderá estar confuso. Básicamente será: Se registo existe devolve registo com informação de caixas combinação preenchido. Se não cria o registo novo com informação das caixas. Estou a questionar só com as macros do Access para se tornar mais facil para mim pois como não conheço a programação SQL e de VB pouco. Obrigado Godinho
  23. Boas pessoa, estou criando uma base de dados para uma galeria de pintores em Access, e em vez de estar a sobrecarregar a BD com as imagens das pinturas, queria criar um botão que possa ir buscar a imagem a uma pasta mas em vez de gravar na BD gravar a imagem em outra pasta onde estariam todas as imagens contornando assim os anexos, se alguém me puder ajudar fico muito agradecido! Cump.
  24. Prezados, Para tentar copiar dados de uma views do mysql para uma tabela no access utilizando drive odbc, utilizei o seguinte exemplo (autor FreiNando): DoCmd.Hourglass True Dim Con As New ADODB.Connection Dim rstADO As New ADODB.Recordset Dim rstDao As DAO.Recordset Con.ConnectionString = "DRIVER={MySQL ODBC 5.2 Unicode Driver};SERVER=mysql5.porta80.com.br;PORT=3306;" _ & ";DATABASE=coosaude;UID=coosaude;PASSWORD=coop14@@;OPTION=3;" Con.Open rstADO.Open "SELECT * FROM vw_resumo_ch_horaria WHERE dt_registro Between Date(Forms!PlanilhaTipoPontoData!DataInicial) and Date(Forms!PlanilhaTipoPontoData!DataFinal)and cd_lotacao =" & Forms!PlanilhaPesquisa.Vinculo & ", Con, adOpenStatic, adLockOptimistic" Set rstDao = CurrentDb.OpenRecordset("SELECT * FROM vw_resumo_ch_horaria1") 'tabela access Do Until rstADO.EOF rstDao.AddNew 'copiar os campos, registo por registo rstDao("dt_registro").Value = rstADO("dt_registro").Value rstDao("de_setor").Value = rstADO("de_setor").Value rstDao("nr_matricula").Value = rstADO("nr_matricula").Value rstDao("cd_lotacao").Value = rstADO("cd_lotacao").Value rstDao("cd_vinculo").Value = rstADO("cd_vinculo").Value rstDao("Diruno").Value = rstADO("Diurno").Value rstDao("Noturno").Value = rstADO("Noturno").Value rstDao("Diurno FDS").Value = rstADO("Diurno FDS").Value rstDao("Nourno FDS").Value = rstADO("Noturno FDS").Value rstDao.Update rstADO.MoveNext Loop Con.Close DoCmd.Hourglass False Entretanto o código não funciona e retorna a seguinte mensagem: A conexão não pode ser usada para realizar essa operação. Ela está fechada ou é inválida nesse contexto. Grato pela atenção!!!
  25. Boa tarde pessoal. Gostaria de saber se alguém me poderia ajudar, de como abrir uma conecção ODBC do access para o mysql através de código (VB)... Em que criava um botão e quando carrega se no mesmo ele abria a conecção! Obrigado, cumprimentos