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:
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