Newsgroup: it.comp.appl.access
Titolo: Funzione Dmax

Buongiono a tutti ho effettuato una ricerca nel NG ma non ho trovato
nulla che si adatti al mio problema o almeno così mi sembra...
In una maschera ho tre campi con tre valori diversi, devo far
comparire in un quarto campo il valore più alto dei tre.
Qualcuno può aiutarmi?
Grazie Sauro

 ha scritto nel messaggio 
news:903547d7-c52f-436c...@13g2000hsb.googlegroups.com...
Buongiono a tutti ho effettuato una ricerca nel NG ma non ho trovato
nulla che si adatti al mio problema o almeno cosě mi sembra...
In una maschera ho tre campi con tre valori diversi, devo far
comparire in un quarto campo il valore piů alto dei tre.
Qualcuno puň aiutarmi?
Grazie Sauro
[risposta]
Un esempio?
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
Nella fattispecie abbiamo tre fasce orarie con ognuna una potenza ad
eempio
F1 50
F2 55
F3 40
questi valori sono scritti rispettivamente
in caselle di testo,
F1 Testo1
F2 Testo2
F3 Testo3
Io vorrei che in una casella di testo presente sulla maschera ad
esempio Testo4 venga riportato automaticamente il valore 55 cioè il
più alto dei tre.
Spero di essere stato chiaro in caso contrario creerò un db ad hoc...
anche se non saprei come inviarlo...
Grazie Sauro

 F3 Testo3
Public function ValMax(ParamArray Valore) as Variant
Dim varValore as variant
For each varValore in Valore

 ha scritto nel messaggio 
news:aff3eaa3-b10b-4a88...@e23g2000prf.googlegroups.com...

Molte grazie... perň il mio livello non mi permette di capire come scrivere 
il codice se potresrte farmi un esempio ve ne sarei grato
Grazie
Sauro 

 Sauro
Se qualcuno interessa ho risolto in questo modo:
Considerando che Access non gestisce questa funzione (così ho letto da 
qualche parte) occorre creare il seguente modulo sia per la funzione Max sia 
per quella Min
Function Minimum(ParamArray FieldArray() As Variant)
         ' Declare the two local variables.
         Dim I As Integer
         Dim currentVal As Variant
         ' Set the variable currentVal equal to the array of values.
         currentVal = FieldArray(0)
         ' Cycle through each value from the row to find the smallest.
         For I = 0 To UBound(FieldArray)
            If FieldArray(I) < currentVal Then
               currentVal = FieldArray(I)
            End If
         Next I
         ' Return the minimum value found.
         Minimum = currentVal
      End Function
      Function Maximum(ParamArray FieldArray() As Variant)
         ' Declare the two local variables.
         Dim I As Integer
         Dim currentVal As Variant
         ' Set the variable currentVal equal to the array of values.
         currentVal = FieldArray(0)
         ' Cycle through each value from the row to find the largest.
         For I = 0 To UBound(FieldArray)
            If FieldArray(I) > currentVal Then
               currentVal = FieldArray(I)
            End If
         Next I
         ' Return the maximum value found.
         Maximum = currentVal
      End Function
Dopodichè creando una casella di testo la cui origine di controllo sarà
=Maximum([Testo1];[Testo2];[Testo3])
dove Testo1 ecc sono le caselle di testo dove andranno iseriti i vaolori di 
riferimento
Spero di essere stato chiaro e soprattutto utile...
Sauro 

 il codice se potresrte farmi un esempio ve ne sarei grato
Ehm... l'intenzione era quella, non m'ero accordo che il messaggio e'
partito monco :P
Beh, vedo con piacere che hai risolto comunque....
cia'
Max