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


    [Resolvido]Filtro - Problema com data

    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Filtro - Problema com data Empty [Resolvido]Filtro - Problema com data

    Mensagem  toyebom 11/1/2014, 18:33

    Não consigo filtrar relatório através do campo Data, peço ajuda. Obrigado.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Filtro - Problema com data Empty Filtro - Problema com data

    Mensagem  toyebom 11/1/2014, 21:04

    UP


    Última edição por toyebom em 11/1/2014, 22:22, editado 1 vez(es)


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Filtro - Problema com data Empty Filtro - Problema com data

    Mensagem  toyebom 11/1/2014, 22:21

    O código que uso penso estar correto:

    Private Sub Command28_Click()

    Dim strSQL As String, intCounter As Integer
    'Build SQL String
    For intCounter = 1 To 9
    If Me("Filter" & intCounter) <> "" Then
    strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = " & Chr(34) & Me("Filter" & intCounter) & Chr(34) & " And "
    End If
    Next

    If strSQL <> "" Then
    'Strip Last " And "
    strSQL = Left(strSQL, (Len(strSQL) - 5))
    'Set the Filter property
    Reports![NUIPCSREG_38].Filter = strSQL
    Reports![NUIPCSREG_38].FilterOn = True
    Else
    Reports![NUIPCSREG_38].FilterOn = False
    End If

    End Sub


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Filtro - Problema com data Empty Problema com data

    Mensagem  toyebom 12/1/2014, 12:10

    UP
    Caso possivel agradeço resposta visto estar a necessitar do campo.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Filtro - Problema com data Empty Filtro - Problema com data

    Mensagem  toyebom 12/1/2014, 19:09

    up


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Filtro - Problema com data Empty Filtro - Problema com data

    Mensagem  toyebom 13/1/2014, 23:41

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Filtro - Problema com data Empty Filtro - Problema com data

    Mensagem  toyebom 15/1/2014, 21:03

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Filtro - Problema com data Empty Filtro - Problema com data

    Mensagem  toyebom 17/1/2014, 16:19

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Filtro - Problema com data Empty Filtro - Problema com data

    Mensagem  toyebom 22/1/2014, 21:48

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Convidado
    Convidado


    [Resolvido]Filtro - Problema com data Empty Re: [Resolvido]Filtro - Problema com data

    Mensagem  Convidado 26/1/2014, 19:37

    Primeiramente... Bonito o layout do teu sistema.. Se tiver ai alguns.. me envie por e-mail..

    Algumas considerações:

    1 - Há maneiras mais fáceis de fazer isto.. poderia colocar os critérios diretamente na consulta... pois assim ela entenderia o tipo de dado sem ser necessário formatá-lo.
    2 - Seu filtro percorre as caixas texto em seu formulário concatenando os campos para efetuar a filtragem, ocorre que filtro entre datas devem serem colocados entre cerquilha pois se não desta forma o critério não será entendido.
    Como iria fazer isto posto que concatenação do filtro é feito sempre da mesma forma?
    Simples: Deverá verificar quando o controle é o que contém a data e assim direcionar para o filtro de forma que a data seja expressa entre cerquilha:



    Dim strSQL As String, intCounter As Integer
         'Build SQL String
         For intCounter = 1 To 9
            If Me("Filter" & intCounter) <> "" Then
                If Me("Filter" & intCounter).Tag = "Dia" Then
                    strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = #" & Format(Me("Filter" & intCounter), "mm/dd/yyyy") & "# And "
                Else
                    strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = " & Chr(34) & Me("Filter" & intCounter) & Chr(34) & " And "
                End If
           End If
         Next

         If strSQL <> "" Then
            'Strip Last " And "
            strSQL = Left(strSQL, (Len(strSQL) - 5))
            'Set the Filter property
            Reports![NUIPCSREG_38].Filter = strSQL
            Reports![NUIPCSREG_38].FilterOn = True
         Else
            Reports![NUIPCSREG_38].FilterOn = False
         End If


    Cumprimentos.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Filtro - Problema com data Empty Filtro - Problema com data

    Mensagem  toyebom 26/1/2014, 20:08

    Resultou na perfeição obrigado.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Filtro - Problema com data Empty Filtro - Problema com data

    Mensagem  toyebom 26/1/2014, 21:50

    Quanto ao layout, julgo não ter mais, criei este e apliquei na maior parte dos meus bds, mas se quiseres posso-te mandar outra coisa

    Estou a ajudar o wsenna numa bd que coloca o logotipo em todos os forms e relatórios em

    http://maximoaccess.forumeiros.com/t17131-inserir-logomarca-em-todos-os-formularios-e-relatorios

    Caso queiras, manda email que mando-te o start da bd que me estas ajudar o proprio form principal tem várias funções tais como minimizar para o canto superior esquerdo, redimensionar para barra lateral imitação windows smi transparente, vários niveis de protecção (tive de retirar 1 que ao abrir iria procurar um ficheiro na minha pen-drive e só após o encontrar é que abria caso contrário mandava-te dar uma volta), nome do utilizador no cabeçalho o formulário ofícios tem mais componentes tais como código de barras no relatório e texto justificado, para alem de outras configurações na bd, tais como o layout que gostaste.

    Parte da bd foi adaptada e construída com alguns exemplos e ajuda da malta do forum, um deles foste tu. Atualmente a bd tem 1.200gb pelo que não a posso mandar toda tendo apenas extraído o arranque , o formulário principal e o formulario oficio para ajudar o wsenna.

    No link a cima tem as passes.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Convidado
    Convidado


    [Resolvido]Filtro - Problema com data Empty Re: [Resolvido]Filtro - Problema com data

    Mensagem  Convidado 27/1/2014, 00:15

    Harysohn@hotmail.com

    O Förum agradece o Retorno.

    Conteúdo patrocinado


    [Resolvido]Filtro - Problema com data Empty Re: [Resolvido]Filtro - Problema com data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/3/2024, 04:36