funzioni logiche con access

Question

Salve,

vorrei riportare la seguente formula, che ho utilizzato su excel, in access

=SE(E(E6>=0;E6<=59);"ASINO";SE(E(E6>=60;E6<=179);"BRAVO";SE(E6>=180;"BRAVISSIMO")))

Ho provato diverse soluzioni, ovviamente sostituendo la cella E6 con il dovuto campo di access ma mi restituisce sempre un errore e non va avanti.

Answer 1

Ciao,

nell'espressione del campo calcolato docredigere metti:

IIf([gg_valutare]<=59;"ASINO";IIf([gg_valutare]>=60 And [gg_valutare]<=179;"BRAVO";"BRAVISSIMO"))

se incontri ancora difficoltà avvisa che metto in condivisione il tuo file modificato.

Ciao

Giorgio Rancati

Answer 2

Sandro, 

sicuramente ti sto facendo perdere la pazienza, abbia pietà.

ho scaricato il tuo file ed ho rinominato i nomi dei campi, anche all'interno del codice VBA.

risultato??? inserisco il numero ma non mi appare la scritta dovuta.

Answer 3

ciao Matteo,

quanto ti ho suggerito esegue esattemente quello che richiedi...prova a scaricare questo esempio :

http://1drv.ms/1QUEFis matteo.accdb.

ciao, Sandro.

Answer 4

Ciao Sandro,

grazie per avermi risposto.

la tua soluzione, è applicabile all'interno di un campo?

in sostante, quella condizione si deve verificare SE nel campo1 appara und ato variabile da 0 a 180 così come nella formula di excel.

campo_voto    campo_risultato

10                         asino

72                          bravo

quindi se il campo_voto è maggiore O uguale a zero ed è minore O uguale a 59 deve apparire asino.. e così via

Answer 5

ciao Matteo,

supponendo un tabella :

1	50	asino
2	200	bravissimo
3	0	asino
4	89	bravo

con una maschera associata sui campi sopra indicati,

con una semplice UDF invocata dopo aggiornamento del voto ottieni quanto richiesto :

Option Compare Database

Option Explicit

Private Sub voto_AfterUpdate()

Me.risultato = setVoto

End Sub

Private Function setVoto() As String

Dim strVoto As String

Select Case Me.voto

    Case Is <= 59

            strVoto = "asino"

    Case 60 To 179

            strVoto = "bravo"

    Case Else

            strVoto = "bravissimo"

End Select

setVoto = strVoto

End Function

ciao, Sandro.