Scriviamo una semplice funzione per Access

di Gianfranco Budano

scritto il

La lista di funzioni, diciamo preconfezionate, disponibili in Access è cospicua. Supponiamo, tuttavia, di avere un’esigenza particolare che ci costringa a scriverne una di sana pianta: come fare?

Esplicitiamo il nostro problema, supponiamo che in una nostra query si voglia trasformare tutti i campi in cui compare il valore “100” nella frase “Obiettivo raggiunto”.

Iniziamo creando un nuovo modulo; il codice da scrivere sarà il seguente:


Public Function ObbRag(X As Long) As String
If X = 100 Then
ObbRag = "Obiettivo raggiunto"
Else
ObbRag = "Obiettivo non raggiunto"
End If
End Function

Analizziamo il codice:

abbiamo scritto una funzione nominandola ObbRag, abbiamo deciso che analizzerà una variabile X composta da un valore numerico intero lungo, che trasformerà in testo attribuendo il valore Obiettivo raggiunto solo se il valore del campo sarà stato pari a 100.