[Resolvido]Máscara em Design de Consulta

Bom dia meus caros mestres,

Estou com dificuldades em implementar algumas melhorias em meu banco de dados.

Na grade de Consulta no modo Design, tenho uma consulta assim descrita como Critério:

Entre [Digite a data de início:] E [Digite a data de término:]

Esta consulta funciona, porém como faria para colocar uma máscara nesta opção no Formato dd/mm/aaaa?

2ª Dúvida é vinculado à essa mesma questão. Ao se digitar o período, "se não houver nenhum dado para visualizar", queria que a consulta me mostrasse TODOS os registros.
como posso implementar estas questões?

Olá,

Para controlar os campos introduzidos sera melhor ter um Form para controlar as datas introduzidas, até por exemplo não colocar a 2ª data menor que a 1ª.

Poderias ter um form do tipo filtroDatas com os seguintes capos:

DataInicial
DataFinal
botão para executar a consulta

Assim podes formatar os campos, ao clicar no botão antes de abrir a consulta podes verificar se esta conforme pretendido.
Assim também podes efeturar um teste via DLookup e verificar se tem dados, se tiver executa a tua consulta , se não tiver avisa que não tem dados e não executa a consulta. (vai de encontro à 2ª questão)

Boa noite amigo,

Fiz o que me propôs, apreciei muito a ideia. Estou apenas em dúvida como faço a consulta DLookup e verificar se tem dados e como fazer para acusar 'a 2ª data menor que a 1ª?

Olá quanto à verificação aqui vai exemplo:

Código:


If IsNull(DLookup("NomeDoCampo", "Tabela")) = 0 Then 'se tem registos...faz codigo
        DoCmd.RunSQL "....'", -1
Else
      Msgbox ("não tem registos a processar")
Endif


Relativamente ao verificar datas, possivelmente deves ter um botão para clicar para executar a consulta, aí podes colocar o seguinte código:

Código:


    If [CampoDataInicial] > [CampoDataFinal Then]
        Msgbox (" A primeira data não pode ser maior que a segunda.")
        Exit Sub
    End If


Xauzão

Oi amigo, não consegui adaptar a função DLookup. A outra sim muito boa.

Pode dar uma olhada e me dizer ou indicar algum melhoramento?

senha: 12

Formulário: Cad Geral opção: Agenda Diária, que irá abrir o formulário "FormDialogoAgenda" onde está o comando que me indicou por meio do botão Visualizar.

Só um pitaco

No lugar do Dlookup()

Use o Dcount()

Abraços


Noob

noobezinho,

Eu não estou é conseguindo montar já que tenho um campo: Datainicial e DataFinal no formulário. Sendo a data inicial (automática) por função e a Data Final também.

Edson

Não consegui descobrir qual é o formulário que deve abrir após digitar as datas inicial e final.
A data Inicial será sempre a atual?

Noob

Noobezinho,


senha: 12

Formulário: Cad Geral opção: Agenda Diária, que irá abrir o formulário "FormDialogoAgenda" onde está o comando por meio do botão Visualizar.

Olá a todos
Noobezinho boa sugestao, mais simples.

Relativo ao codigo efetuei a seguinte alteração e funcionou

Código:

Private Sub Comando50_Click()
    If [DataInicial] > [DataFinal] Then
            MsgBox (" A DATA INICIAL não pode ser maior que a DATA FINAL."), vbCritical, "Erro!!!"
            Exit Sub
    End If
  
    If DCount("*", "Cad Diário") < 1 Then
          MsgBox "Não existem Registros para o período informado!!!", vbApplicationModal, "Atenção!!!!"
          Exit Sub
    End If
         DoCmd.OpenForm "FormDialogoAgenda", , , , , acHidden ' esconde
         DoCmd.OpenReport "Agenda Diária", acPreview
End Sub

Ao fechar o reporte "Agenda Diária" coloquei o codigo para abrir novamente o FormDialogoAgenda (visivel), necessário para funcionar bem

Código:

DoCmd.OpenForm "FormDialogoAgenda", , , , , acDialog

Também fica aqui outra sugestão, podes utilizar o próprio form, sem necessidade de estar abrir o FormDialogoAgenda

Edson

Taí teu aplicativo modificado.

Alterei o formulário diálogo FormDialogoAgenda e o relatório Agenda Diária.

Dica de amigo: Leia sobre nomenclatura de objetos no Access.
NUNCA use nomes de controles com espaços e nem acentue como por exemplo: Agenda Diária
O que é Agenda Diária?
Uma tabela, formulário, consulta ou relatório?
Como pode ver melhor definir isso no nome do objeto.
veja como você pode reconhecer cada objeto só pelo nome:
tblAgendaDiaria  ou tbl_AgendaDiaria
frmAgendaDiaria ou frm_AgendaDiaria
qryAgendaDiaria ou qryAgendaDiaria ou ainda ConsAgendaDiaria
rptAgendaDiaria ou rpt_AgendaDiariia.

Assim não só você como outros programadores não sofrerão para entender teu código   

Bom, agora já tem uma base de como funciona o código

Obs .: A dica do ahteixeira é genial, mas deixo pra você implementa-la.        

Abraços

Noob

Obrigado noobezinho e ahteixeira, cês são demais.

Obrigado pela sugestão nova sugestão. bastante agradecido e mais um aprendizado realizado.
Um abraço a todos.

Obrigado ao Fórum
   

Valeu o retorno.

Tamos ai pra ajudar, na medida do possível.

Boa sorte

Noob

Olá estive afastado, mas ainda bem que está resolvido.

Agradecemos retorno.

Abraço