Tomás Vásquez Fórum

Enviado: **Qui Abr 30, 2020 11:47 pm**

Boa noite a Equipe do Fórum

Por favor seria possível retornar ultimo registro banco de dados Acess no formulário Excel
Exemplo
Tenho 5 cadastro de vendas para o mesmo cliente ID 001, próximo ID seria 002 mas retornando 006 devido a quantidade de linha cadastrada, anexei print da tela mais destalhados
Código abaixo estou utilizando

Sub UltimoCadastro()
ConectDB
rs.Open "select *from Tab_Vendas ", db, 3, 3
Me.CodigoVendas.Caption = rs.RecordCount + 1
FechaDB
End Sub

Obrigado pela ajuda
Avgsantos

Enviado: **Sex Mai 01, 2020 10:24 pm**

AVGSantos,

Já experimentou utilizar o que se segue abaixo:

Código: Selecionar todos

Sub UltimoCadastro()
   Dim proximoID As String
   ConectDB
   rs.Open "select *from Tab_Vendas ", db, 3, 3
   While not rs.EOF
      proximoID = rs.Field(0).Value
      rs.MoveNext      
   Wend
   Me.CodigoVendas.Caption = proximoID + 1
   FechaDB
End Sub

Acredito que exista um jeito mais prático (talvez usando a opção rs.MoveLast, que vai para o último registro) porém, como não tenho muita experiência em integrações com Access, fico devendo.

Enviado: **Sáb Mai 02, 2020 2:22 pm**

Boa tarde, Saulo

Deu certo, valeu amigo

Obrigado mais uma vez

Avgsantos

Tomás Vásquez Fórum

Ultimo Registro [Resolvido]

Ultimo Registro [Resolvido]

Re: Ultimo Registro

Re: Ultimo Registro