MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Consultar por Mês

    ptknascimento
    ptknascimento
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 18/09/2011

    [Resolvido]Consultar por Mês Empty Consultar por Mês

    Mensagem  ptknascimento 26/9/2011, 15:52

    Amigos, lá vem eu dinovo pertubar vocês rs'
    Quero criar uma consulta onde me mostre todos os registros de um mês...
    Na minha tabela tenho um campo data da ocorrência...quero que minha consulta se baseie nesse campo, onde o usuario coloque o mês(01,02,03...ou 12) e ele mostre todos os registros adicionados nesse mês...com base no campo data..

    Agradeço a ajuda... Smile


    .................................................................................
    Patrick Nascimento.
    Venha para o Lado Negro da Força.
    ptknascimento
    ptknascimento
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 18/09/2011

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  ptknascimento 26/9/2011, 16:17

    Fiz uma consulta e no critério coloquei assim:

    Como */02/* apareceu todos do Mês 02 cheers
    Porééem...queria que criar um campo .txt para que o usuario coloque no form e clique em um botão.
    tentei assim mas deu ruim:
    Como "*/Formulários![CADASTRO RO]![Consultas].Form![perdas.txt]/*"


    .................................................................................
    Patrick Nascimento.
    Venha para o Lado Negro da Força.
    ptknascimento
    ptknascimento
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 18/09/2011

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  ptknascimento 26/9/2011, 16:34

    Tentei assim agora:
    "*" & [Formulários]![CADASTRO RO]![Consulta].[Form]![perdas.txt] & "*"
    Mas deu ruim dinovo diz: Colchetes inválidos Question Question


    .................................................................................
    Patrick Nascimento.
    Venha para o Lado Negro da Força.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  vieirasoft 26/9/2011, 17:14

    http://dl.dropbox.com/u/8157744/Stella.rar
    ptknascimento
    ptknascimento
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 18/09/2011

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  ptknascimento 26/9/2011, 18:20

    Puutz amigão...
    dessa vez não consegui...
    o que eu queria msm era que o usuário colocasse num campo somente o mês, não me importando a data.
    Tipo, apenas um txt pra mes e um botão pra consultar.
    Eu até consegui gerar a consulta.

    Coloquei assim no critério.

    Como "*/02/*" apareceu todo o mês dois...

    Eu queria um campo onde o usuário que digitasse o mês.


    .................................................................................
    Patrick Nascimento.
    Venha para o Lado Negro da Força.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  vieirasoft 26/9/2011, 18:31

    Mas com o calendário é bem mais fácil e prático para o usuário filtra por data e nesse caso pode filtrar por dia, semana, mês e ano. Outra forma de afzer isso é colocar duas txt no formulário para inserir as datas:

    No critério do campo Mês:

    >=[forms]![formulárionome]![DataInicial] E <=[forms]![Formularionome]![DataFinal]

    ou mais simples:
    [Digite o Mês]
    ptknascimento
    ptknascimento
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 18/09/2011

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  ptknascimento 26/9/2011, 18:56

    Realmente vc tem razão.
    Desculpe minha ignorância rsrs'
    To passando por um problema agora...
    fiz o que vc falou e funcionou

    >=[forms]![formulárionome]![DataInicial] E <=[forms]![Formularionome]![DataFinal]

    mas to fazendo alguma coisa errada no campo...se eu colocar até 01/05/2011 a 28/05/2011 consulta normal
    mas se eu for consultar 01/05/2011 a 29/05/2011 ou 30/05/2011 ou 31/05/2011 da erro affraid
    até o dia 28 funfa de boa, mas passou disso (29,30,31) da o seguinte erro:
    o valor que você inseriu não é válido para esse campo... Question


    .................................................................................
    Patrick Nascimento.
    Venha para o Lado Negro da Força.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  vieirasoft 26/9/2011, 19:03

    O campo está formatado como data (data abreviada????) Verifique por favor.
    ptknascimento
    ptknascimento
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 18/09/2011

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  ptknascimento 26/9/2011, 19:04

    Eu verifiquei tá sim!


    .................................................................................
    Patrick Nascimento.
    Venha para o Lado Negro da Força.
    ptknascimento
    ptknascimento
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 18/09/2011

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  ptknascimento 26/9/2011, 19:09

    eu apaguei a máscara de entrada...dae funfou, mas tenho tenho que colocar "/" ao digitar e quando clico em otro campo ta ficando assim: 00:00:0000 lol!
    To entendendo mais nada...agora voltou ao normal, depois que apaguei a mascara e coloquei novamente, o problema é que o calendario não fica...
    como faço pra deixar o calendario msm colocando mascara de entrada...


    .................................................................................
    Patrick Nascimento.
    Venha para o Lado Negro da Força.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  vieirasoft 26/9/2011, 19:15

    Super estranho....coloque esta máscara no campo na tabela e no próprio campo(s) do form


    00-00-0000;0;_

    e teste, por favor.
    ptknascimento
    ptknascimento
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 18/09/2011

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  ptknascimento 26/9/2011, 19:18

    Tá funcionando, mas eu queria que o calendário ficasse, colocando a mascara ele não fica.


    .................................................................................
    Patrick Nascimento.
    Venha para o Lado Negro da Força.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  vieirasoft 26/9/2011, 19:20

    não entendi? o Calendário? Você está usando 2 txt e não o calendário, certo?
    ptknascimento
    ptknascimento
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 18/09/2011

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  ptknascimento 26/9/2011, 19:22

    certo!
    Tenho 2txt

    data inicial e data final quando coloca a mascara de entrada não aparece o calendário..isso é normal?


    .................................................................................
    Patrick Nascimento.
    Venha para o Lado Negro da Força.
    ptknascimento
    ptknascimento
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 18/09/2011

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  ptknascimento 26/9/2011, 19:28

    Amigão, pesquisando um poco achei a solução:

    Private Sub DATA_AfterUpdate()
    Me.DATA.InputMask = ""
    End Sub

    Private Sub DATA_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then
    GoTo FIM
    ElseIf Me.DATA.InputMask = "" Or IsNull(Me.DATA.InputMask) Then
    Me.DATA.InputMask = "00/00/0000;0;_"
    End If
    FIM:
    End Sub

    Funcionou perfeitamente...Agora tenho a máscara e o calendário juntos!


    .................................................................................
    Patrick Nascimento.
    Venha para o Lado Negro da Força.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  vieirasoft 26/9/2011, 19:30

    Amigão, fico satisfeito. Obrigado e bom trabalho.
    ptknascimento
    ptknascimento
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 18/09/2011

    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  ptknascimento 26/9/2011, 19:31

    Vlw meu mestre, tenho muito o que agradecer a vocês, obrigado msm!
    Abraço forte e sucesso!


    .................................................................................
    Patrick Nascimento.
    Venha para o Lado Negro da Força.

    Conteúdo patrocinado


    [Resolvido]Consultar por Mês Empty Re: [Resolvido]Consultar por Mês

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 09:20