Este fórum está sendo desativado

[Gerson]

Caros,

Preciso de uma solução para o meu formulario em excel que tem a base de dados em access, no entanto, preciso que o formulario busque na base de dados em access o maior numero do registro, para que retorne no campo de registro do formulario no excel o maior registro ja cadastrado.

Ex: na coluna de codigos na base de dado em access: tenho os seguintes registros 1, 2, 5 ,3, 6, 8, 7.
entao, o codigo que preciso, vai buscar o maior numero de registro dessa coluna e informará no campo de registro no meu formulario em excel. tipo como se fosse a função Application.function.max(intervalo), porem no access.

por gentileza, alguem poderia me ajudar?

[Gerson]

não consegui colocar o banco de dados em access como anexo

[Viniciussilvap]

Você precisa compactar os arquivos, ai você consegue.

[Gerson]

consegui colocar o banco de dados

[laennder]

Olá Gerson, tente utilizar o seguinte comando SQL

Código: Selecionar todos

SELECT MAX([codigo]) FROM tabela

Onde codigo é nome do campo numérico, e tabela é a tabela que deseja buscar. Se quiser poderá completar a sintaxe com uma condição WHERE

[Gerson]

Laennder, muito obrigado pelo seu retorno.

descrevi o seguinte código, porém, não estou conseguindo, esta dando mensagem de erro.

o que você acha que poderia esta de errado?

Dim ComandoSQL As String

ComandoSQL = "select max([código]) * from revisao "

Call CONECTA

Set consulta = banco.OpenRecordset(ComandoSQL)

With consulta

FRMCONTROLEDEREVISAO.TEXTOPESQUISAPORCADASTRO = .Fields(0)

On Error Resume Next

End With

Call DESCONECTA

[laennder]

Código: Selecionar todos

ComandoSQL = "select max([código]) from revisao "

Remova o asterisco