formiga10x- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 818
Registrado : 11/09/2013
formiga10x Seg 22 Set 2014, 04:20
- Código:
Dim a, b, c As Single
a = DSum("Animais", "tblTeste")
b = DSum("Humanos", "tblTeste")
c = DSum("Ets", "tblTeste")
If a >= Nz(b) And a >= Nz(c) Then MsgBox ("Maior Valor " & FormatCurrency(a) & " Na Tabla tblTeste Campo Animais"), vbInformation, "Aviso"
If b >= Nz(a) And b >= Nz(c) Then MsgBox ("Maior Valor " & FormatCurrency(b) & " Na Tabla tblTeste Campo Humanos"), vbInformation, "Aviso"
If c >= Nz(a) And c >= Nz(b) Then MsgBox ("Maior Valor " & FormatCurrency(c) & " Na Tabla tblTeste Campo Ets"), vbInformation, "Aviso"
- Anexos
- MaiorValorTabela.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (26 Kb) Baixado 26 vez(es)
.................................................................................
AbraçoFormiga10xSempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
“Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
Formiga10x
"Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
- Maurice Vicent Wilkes