Página 1 de 1

Formularios com base de dados em access

Enviado: 28 Abr 2015 às 11:07
por 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?

Formularios com base de dados em access

Enviado: 28 Abr 2015 às 11:09
por Gerson
não consegui colocar o banco de dados em access como anexo

Formularios com base de dados em access

Enviado: 28 Abr 2015 às 11:11
por Viniciussilvap
Você precisa compactar os arquivos, ai você consegue.

Formularios com base de dados em access

Enviado: 28 Abr 2015 às 11:13
por Gerson
consegui colocar o banco de dados

Formularios com base de dados em access

Enviado: 28 Abr 2015 às 14:26
por 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

Re: Formularios com base de dados em access

Enviado: 28 Abr 2015 às 14:55
por 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

Formularios com base de dados em access

Enviado: 28 Abr 2015 às 15:03
por laennder
Código: Selecionar todos
ComandoSQL = "select max([código]) from revisao "
Remova o asterisco