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
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.
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]
Moderador: joseA
Ultimo Registro [Resolvido]
- Anexos
-
- Ultimo Registro.jpg (291.88 KiB) Exibido 1223 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
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].
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].
