MaximoAccess

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

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Máscara em Design de Consulta

    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Máscara em Design de Consulta Empty [Resolvido]Máscara em Design de Consulta

    Mensagem  edjunho 30/5/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?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 31/5/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)

    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  edjunho 4/6/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ª?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 4/6/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

    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  edjunho 6/6/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
    [Resolvido]Máscara em Design de Consulta AttachmentControle 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)
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 6/6/2014, 17:27

    Só um pitaco

    No lugar do Dlookup()

    Use o Dcount()

    Abraços


    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  edjunho 6/6/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.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 6/6/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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  edjunho 7/6/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.

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 7/6/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

    [Resolvido]Máscara em Design de Consulta F2rmf
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 7/6/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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  edjunho 11/6/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 
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 11/6/2014, 00:38

    Valeu o retorno.

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

    Boa sorte

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 12/6/2014, 15:53

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

    Agradecemos retorno.

    Abraço

      Data/hora atual: 1/3/2021, 19:58