MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Máscara em Design de Consulta

    Compartilhe

    edjunho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 188
    Registrado : 24/12/2011

    [Resolvido]Máscara em Design de Consulta

    Mensagem  edjunho em Sex 30 Maio 2014, 15:41

    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?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4650
    Registrado : 15/03/2013

    Re: [Resolvido]Máscara em Design de Consulta

    Mensagem  ahteixeira em Sab 31 Maio 2014, 15:24

    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)


    edjunho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 188
    Registrado : 24/12/2011

    Re: [Resolvido]Máscara em Design de Consulta

    Mensagem  edjunho em Qua 04 Jun 2014, 01:59

    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ª?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4650
    Registrado : 15/03/2013

    Re: [Resolvido]Máscara em Design de Consulta

    Mensagem  ahteixeira em Qua 04 Jun 2014, 11:05

    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


    edjunho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 188
    Registrado : 24/12/2011

    Re: [Resolvido]Máscara em Design de Consulta

    Mensagem  edjunho em Sex 06 Jun 2014, 16:58

    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.
    Anexos
    Controle de Rotina Versão 06.0614 - Cópia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (857 Kb) Baixado 15 vez(es)
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    Registrado : 29/06/2012

    Re: [Resolvido]Máscara em Design de Consulta

    Mensagem  Noobezinho em Sex 06 Jun 2014, 17:27

    Só um pitaco

    No lugar do Dlookup()

    Use o Dcount()

    Abraços


    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    edjunho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 188
    Registrado : 24/12/2011

    Re: [Resolvido]Máscara em Design de Consulta

    Mensagem  edjunho em Sex 06 Jun 2014, 20:04

    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.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    Registrado : 29/06/2012

    Re: [Resolvido]Máscara em Design de Consulta

    Mensagem  Noobezinho em Sex 06 Jun 2014, 22:09

    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

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    edjunho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 188
    Registrado : 24/12/2011

    Re: [Resolvido]Máscara em Design de Consulta

    Mensagem  edjunho em Sab 07 Jun 2014, 12:36

    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.

    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4650
    Registrado : 15/03/2013

    Re: [Resolvido]Máscara em Design de Consulta

    Mensagem  ahteixeira em Sab 07 Jun 2014, 13:12

    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

    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    Registrado : 29/06/2012

    Re: [Resolvido]Máscara em Design de Consulta

    Mensagem  Noobezinho em Sab 07 Jun 2014, 14:42

    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  Wink 

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

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

    Abraços

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    edjunho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 188
    Registrado : 24/12/2011

    Re: [Resolvido]Máscara em Design de Consulta

    Mensagem  edjunho em Qua 11 Jun 2014, 00:08

    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
     Smile cheers 
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    Registrado : 29/06/2012

    Re: [Resolvido]Máscara em Design de Consulta

    Mensagem  Noobezinho em Qua 11 Jun 2014, 00:38

    Valeu o retorno.

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

    Boa sorte

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4650
    Registrado : 15/03/2013

    Re: [Resolvido]Máscara em Design de Consulta

    Mensagem  ahteixeira em Qui 12 Jun 2014, 15:53

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

    Agradecemos retorno.

    Abraço

      Data/hora atual: Qui 14 Dez 2017, 08:07