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]Retorno de ultimo registro com SELECT

    avatar
    wilflx2
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 31/01/2014

    [Resolvido]Retorno de ultimo registro com SELECT Empty [Resolvido]Retorno de ultimo registro com SELECT

    Mensagem  wilflx2 em 23/8/2019, 14:58

    Olá Grandes Mestres, preciso de ajuda com um código, não sei se estou empregando da forma certa, olhei alguns exemplos mas não consegui.

    Seguinte, a ideia é buscar um valor no ultimo registro da tabela.

    Quero comparar as versões do programa, assim buscando um único valor do ultimo registro de cada tabela.

    Tabelas         Campos da tabela      
    tabVersaoF   -     Versao            
    tabVersaoB   -     Versao

    Aparece o erro "Item não encontrado nesta coleção"
    O que estou fazendo de errado?

    Segue o código:

    Código:
    Dim dbVF As DAO.Database
        Dim dbVB As DAO.Database

        Dim rsVF As DAO.Recordset
        Dim rsVB As DAO.Recordset

        Dim sqlVF As String
        Dim sqlVB As String

        Set dbVF = CurrentDb()
        Set dbVB = CurrentDb()

        sqlVF = "SELECT Last (Versao) FROM tabVersaoF"
        sqlVB = "SELECT Last (Versao) FROM tabVersaoB"

        Set rsVF = dbVF.OpenRecordset(sqlVF, dbReadOnly)
        Set rsVB = dbVB.OpenRecordset(sqlVB, dbReadOnly)

        With rsVF
            Me.VersaoF = !Versao
            .Close
        End With

        With rsVB
            Me.VersaoB = !Versao
            .Close
        End With

       Set rsVF = Nothing
       Set rsVB = Nothing
       Set dbVB = Nothing
       Set dbVB = Nothing
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Retorno de ultimo registro com SELECT Empty Re: [Resolvido]Retorno de ultimo registro com SELECT

    Mensagem  DamascenoJr. em 24/8/2019, 05:33

    Código:
    ...

        With rsVF
            Me.VersaoF = .Fields(0).value
            .Close
        End With

        With rsVB
            Me.VersaoB = .Fields(0).value
            .Close
        End With

      ...


    .................................................................................
    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
    wilflx2
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 31/01/2014

    [Resolvido]Retorno de ultimo registro com SELECT Empty Re: [Resolvido]Retorno de ultimo registro com SELECT

    Mensagem  wilflx2 em 27/8/2019, 15:44



    Perfeito IvanJr! Muito obrigado!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Retorno de ultimo registro com SELECT Empty Re: [Resolvido]Retorno de ultimo registro com SELECT

    Mensagem  DamascenoJr. em 29/8/2019, 22:32

    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: 25/1/2021, 03:10