ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » 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
Anexos
Ultimo Registro.jpg
Ultimo Registro.jpg (291.88 KiB) Exibido 648 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: 787
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Ultimo Registro

Mensagem por srobles » 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.


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

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

Re: Ultimo Registro

Mensagem por avgsantos » Sáb Mai 02, 2020 2:22 pm

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