[Resolvido]Função DMax, mais de uma tabela

Olá Meus Amigos!

tenho a seguinte função abaixo:

Código:

Public Function LAUDOEXTERNOS()
Dim iLin1 As Long
Dim ano As String
              'traz o mair valor do registro
              'se for 0 será inserido um novo registro
iLin1 = Nz(DMax("CONTADOR", "TB_EXTERNAS"))
ano = Year(Date)
             'verifica se a variavel iLin é 0)
If iLin1 = 0 Then
LAUDOEXTERNOS = 1 & "/" & ano
             'se não
Else
             'será o valar total de registro + 1
LAUDOEXTERNOS = iLin1 + 1 & "/" & ano
End If
End Function


No entanto ele serve para trazer o maior valor do campo: CONTADOR, da tabela: TB_EXTERNAS.

o que eu preciso é de uma função que me trouxesse o maior valor entres os campos: CONTADOR das Tabelas:

Tb_acidentes, campo: contador = 2
Tb_mortes, campo: contador = 1
Tb_patrimônios, campo: contador = 3
Tb_setran, campo: contador = 5

O valor trazido seria = 5

Se eu não fui claro por favor me corrijam.

Sugiro fazer várias verificações, mantendo sempre o valor máximo na variável através e função IIF

Código:

iLinFinal = Nz(DMax("CONTADOR", "TB_EXTERNAS"))

iLin1 = Nz(DMax("CONTADOR", "Tb_acidente"))
iLinFinal = iif(iLin1 > iLinFinal, iLin1, iLinFinal)

iLin1 = Nz(DMax("CONTADOR", "Tb_mortes"))
iLinFinal = iif(iLin1 > iLinFinal, iLin1, iLinFinal)

iLin1 = Nz(DMax("CONTADOR", "Tb_patrimônios"))
iLinFinal = iif(iLin1 > iLinFinal, iLin1, iLinFinal)

iLin1 = Nz(DMax("CONTADOR", "Tb_setran"))
iLinFinal = iif(iLin1 > iLinFinal, iLin1, iLinFinal)

LAUDOEXTERNOS = (iLinFinal + 1) & "/" & ano

Tente adaptar à sua necessidade.
Não existe uma função que faça isso diretamente.

Outra solução seria escrever uma consulta SQL que fizesse um SELECT em cada tabela e retornasse somente o valor máximo.

conseguir adaptar com if e o select case

mais fui testar como ficaria em rede...

tentei adicionar um registro ao mesmo tempo na tabela

ele só adiciona o primeiro, e como todos abrem com os mesmo números

a função não se atualiza ai dar duplicidade...


assim voltei a estaca zero

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

Olá Waldiney,
Ontem enviei a seguinte mensagem privada:


Aguardamos que regularize a situação, editando a sua mensagem nº 3.
Espero o bom senso dos colegas em não dar continuidade ao tópico enquanto a situação não for regularizada.

Abraço a todos

Resolvi da seguinte forma:

Criei uma nova tabela: TB_LAUDO_PCE
ai nela criei um campo ID auto numeração e um campo LAUDO tipo texto,

exemplo abaixo.

Public Function LAUDOS()
Dim iLIn1 As Long
Dim ANO As String
iLIn1 = Nz(DMax("LAUDO", "TB_LAUDO_PCE"), 0)
'ANO = Year(Date)
If iLIn1 = o Then
LAUDOS = 1 '& "/" & ANO
Else
LAUDOS = iLIn1 + 1 '& "/" & ANO
End If
End Function

assim posso utilizar vários formulários de uma mesma tabela, e busco o numero do laudo na tabela tb_laudo_pce
através de um formulário, e jogo o número de laudo gerado para o outro formulário via botão kkk foi isso.

Olá, obrigado pelo retorno.
Situação regularizada.

Abraço e bons estudos