Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Ultimo Registro [Resolvido]

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

avgsantos
Colaborador
Colaborador
Mensagens: 93
Registrado em: Ter Fev 02, 2016 6:39 pm

Ultimo Registro [Resolvido]

Mensagem por avgsantos »

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
Anexos
Ultimo Registro.jpg
Ultimo Registro.jpg (291.88 KiB) Exibido 3075 vezes
Editado pela última vez por avgsantos em Sáb Mai 02, 2020 2:23 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Ultimo Registro

Mensagem por srobles »

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.


avgsantos
Colaborador
Colaborador
Mensagens: 93
Registrado em: Ter Fev 02, 2016 6:39 pm

Re: Ultimo Registro

Mensagem por avgsantos »

Boa tarde, Saulo

Deu certo, valeu amigo

Obrigado mais uma vez

Avgsantos


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder