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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Ultimo Registro [Resolvido]
Moderador: joseA
Ultimo Registro [Resolvido]
- Anexos
-
- Ultimo Registro.jpg (291.88 KiB) Exibido 3076 vezes
Editado pela última vez por avgsantos em Sáb Mai 02, 2020 2:23 pm, em um total de 1 vez.
Re: Ultimo Registro
AVGSantos,
Já experimentou utilizar o que se segue abaixo:
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.
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