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

    avatar
    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Campo inteiro Empty [Resolvido]Campo inteiro

    Mensagem  alantb em 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 100%

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

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

    Mensagem  DamascenoJr. em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  alantb em 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 100%

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

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

    Mensagem  DamascenoJr. em 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.

      Data/hora atual: 29/11/2020, 16:58