Alexandre Neves

Tente If IsNull(Me.ID_exame) Then Beep MsgBox "Não há ASO´s para serem impressos", vbInformation, "Fila de Impressão Vazia" Cancel=True End If

Este tipo de trabalho é aconselhável fazer em Access.

Tem de utilizar, dentro da consulta: - subconsulta para somar valores até ao início do período - subconsulta para somar valores até ao final do período

Porque não carrega a partde da bd (com dados alterados) para se tentar resolver?

Mas está a criar a consulta pelo assistente? Eu crio em código directamente e não tenho visto limites.

Eu utilizo Access e tenho-me dado bem. As consultas crio-as em SQL. Já me falaram em MySQL que é gratuito e mais poderoso que o Access mas não consegui entender bem porque não sei inglês.

Sobre o programa em access não tem utilidade se você não tem tempo para estudar base dados. Primeiro tem de estudar base de dados e, a partir daí, poder-lhe-ei ajudar em casos pontuais.

Tem duas possibilidades: - Cria código para fazer os cálculos ou, mais adequado - Trabalha em Access (base de dados). Esta opção é mais vocacionada para este tipo de trabalho e facilita em relatórios, etc.

Utilize SELECT TOP 3 ... GROUP BY Cliente, DataVenda;

Na vista SQL da consulta, em vez de SELECT FC11100.CDFIL, ..., coloque SELECT TOP 3 FC11100.CDFIL, ...

Não percebi o seu problema. Se expuser dados significativos ou facultar o bd será melhor para o ajudar

Publique a bd para se ver em concreto.

As consultas não duplicam registos. Acontece que pode haver registos iguais. Utiliza-se SELECT DISTINCT ... para não haver duplicações nos campos devolvidos pela consulta. Utiliza-se SELECT DISTINCTROW ... para não haver duplicações nos campos das tabelas envolvidas, quer sejam devolvidos pela consulta ou não. Veja a instrução SQL da consulta para a adaptar

Bem-vindo mic.chel Lamento não lhe poder ajudar. Eu não utilizo relações entre tabelas. Utilizo consultas criadas por código ou código para origem de Caixas de Listagem, Caixa de Combinação. Eu utilizo código SQL : 1-SELECT Campo, Campo, ... FROM Tabela1 LEFT JOIN Tabela2 ON Tabela1.CampoX=Tabela2.CampoX ... 'Lista os registos da Tabela2 e os correspondentes da Tabela1 ligados pelo campo CampoX 2-SELECT Campo, Campo, ... FROM Tabela1 RIGHT JOIN Tabela2 ON Tabela1.CampoX=Tabela2.CampoX ... 'Lista os registos da Tabela1 e os correspondentes da Tabela2 ligados pelo campo CampoX 3-SELECT Campo, Campo, ... FROM Tabela1 INNER JOIN Tabela2 ON Tabela1.CampoX=Tabela2.CampoX ... 'Lista todos registos da Tabela1 e da Tabela2 ligados pelo campo CampoX

Os controlos não devem ter nomes iguais aos dos campos. Nos controlos utilize: TxtDataInicio para saber que é Caixa de texto e armazena o campo DataInicio CmdFechar para saber que é botão de comando e fecha o formulário CxcNome para saber que é Caixa de combinação e armazena o campo Nome RtlMorada para saber que é Rótulo e mostra a morada etc. 1-Altere o nome da caixa de texto PAIS para TxtPais 2-Altere o nome da caixa de texto START para TxtStart 3-Na caixa de texto TxtPais, no acontecimento AoSair, coloque o seguinte código Private Sub TxtPais_Exit(Cancel As Integer) If TxtPais = "EUA" Then TxtStart = DateAdd("d", -65, Date) Else TxtStart = DateAdd("d", -40, Date) End Sub

No formulário para cadastro, na caixa de texto da numeração, coloque no valor predefinido: =PrimeiroLivre("Cadastro","Codigo")

Tente assim: 1-Crie esta função Function PrimeiroLivre(strTabela as string,strCampoNumerado as string)as boolean dim Rst as dao.recordset,N AS INTEGER set rst=currentdb.openrecordset("SELECT [" & strcamponumerado &"] FROM [" & strtabela &"] ORDER BY [" & strcamponumerado &"];" N=1 DO WHILE NOT RST.EOF IF RST(0)<>N THEN EXIT DO N=N+1 RST.MOVENEXT LOOP PRIMEIROLIVRE=N END FUNCTION 2-Como origem da numeração coloque PrimeiroLivre("NomeTabela","NomeCampo")

Tente SELECT TOP 2 DataCompra,Cliente FROM ...

Não tem código próprio. Tem de criar um recordset e, a partir deste, criar uma tabela com a apresentação desejada e, com esta tabela, criar a consulta

Na caixa de combinação: Origem do controlo - Nome do campo que armazena o valor Origem da linha - Origem dos valores que o utilizador pode escolher (pode ser limitado à lista ou não) Na caixa de texto: Origem do controlo - Nome do campo que armazena o valor Para definir valor pode criar código AoSair do controlo anterior que condicione o valor a preencher

Olá Andreia Veja se é isto: http://www.esnips.com/doc/013262b4-0896-49...12da1806/Livro1

Não sei se esse sistema funcionará com a finalidade pretendida: Cada utilizador poderá aceder todas as vezes com a senha teste e, em cada cesso, alterar a senha para uma senha diferente. No entanto, crie uma tabela TblUtilizadores com o nome do utilizador e a senha respectiva.

Crie uma caixa de texto para o campo País e denomine-a de TxtPais Se tem uma caixa de texto para o campo Start designada de TxtStart, o código que lhe passei deverá servir. If TxtPAIS="EUA" Then TxtSTART=DateAdd("d",Data,-65) Else TxtSTART=DateAdd("d",Data,-40) Para uma resposta mais em concreto pode disponibilizar a bd aqui esnips Disponibilize a bd com dados significativos mas falsos para protecção quer do seu trabalho quer das pessoas ou entidades envolvidas

2- Se colocar o campo "PAIS" separado, então, deve colocar ao sair: If TxtPAIS="EUA" Then TxtSTART=DateAdd("d",Data,-65) Else TxtSTART=DateAdd("d",Data,-40)

Não indicou elementos que pudesse formular em concrecto, mas aqui vai uma situação semelhante: Tem tabela Clientes (NumCli, Nome,Morada, etc) Tem tabela Pedidos (NumCli, CodPedido, DtPedido, etc) Tem tabela DetalhesPedido (CodPedido, CodArtigo, Quant, etc) Quer a partir do CodPedido da tabela DetalhesPedidos procurar o nome na tabela Clientes RtlNome.Caption=DLookup("Nome","Clientes","NumCli=" & DLookup("NumCli","Pedidos","CodPedido=" & TxtCodPedido)) Não se esqueça que: em números, Campo=1234 em texto, Campo="NomeX" em datas, Campo=#dd-mm-yyyy#