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]Campo inteiro

    avatar
    alantb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 25/07/2017

    [Resolvido]Campo inteiro Empty [Resolvido]Campo inteiro

    Mensagem  alantb 17/11/2020, 18:55

    Olá, adaptei um filtro do colega Damasceno Jr que funciona muito bem com string, entretanto não estou conseguindo com números inteiros, desse jeito:

    o filtro para string é assim:
    strFiltroColaborador = "[Nome do Colaborador] = '" & Me.txtColaborador & "'"

    preciso algo parecido:
    intFiltro = "[NumeroEmpenho]='" & me.txtNroEmpenho & "'"

    Dá erro de tipo incompativeis. Já tirei as aspas simples, o "&" no final, já deixei sem aspas no final e só da erro. Como fica esse filtro???

    ALAN
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Campo inteiro Empty Re: [Resolvido]Campo inteiro

    Mensagem  DamascenoJr. 17/11/2020, 19:34

    Se o seu campo realmente é numerico, então

    intFiltro = "[NumeroEmpenho]=" & me.txtNroEmpenho


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    alantb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 25/07/2017

    [Resolvido]Campo inteiro Empty Re: [Resolvido]Campo inteiro

    Mensagem  alantb 17/11/2020, 19:56

    Olá Damasceno Jr, os campos que estava referenciando para filtrar o relatório na tabela são do tipo Número. Entretanto no código acima, voltei para String e funcionou, carregou o relatório. Achei estranho, mas, o que importa é que funcionou. Valeu pela ajuda. Estou encerrando.

    Ficou assim:

    Dim FiltroNroEmpenho As String
    Dim FiltroAnoEmpenho As String
    Dim FiltroEmpenho As String

    FiltroNroEmpenho = "[NroEmpenho]=" & Me.txtNroEmpenho
    FiltroAnoEmpenho = "[AnoEmpenho]=" & Me.txtAnoEmpenho

    FiltroEmpenho = FiltroNroEmpenho & " And " & FiltroAnoEmpenho

    DoCmd.OpenReport "RelPendentes", acViewPreview, , FiltroEmpenho

    ALAN
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Campo inteiro Empty Re: [Resolvido]Campo inteiro

    Mensagem  DamascenoJr. 17/11/2020, 20:13

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado


    [Resolvido]Campo inteiro Empty Re: [Resolvido]Campo inteiro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 00:38