Newsgroup: it.comp.appl.access
Titolo: Calcolare una semplice formula

Salve riformulo il quesito di ieri:
Ho creato in una maschera 3 caselle di testo:
-Base
-Altezza
-Area
poi ho creato un pulsante chiamato 
-Calcola
poi nella maschera ho inserito il codice:
*********************************************************************************************
Private Function calcolaArea() 'Funzione che calcola l'area di un
rettangolo
Dim base As Integer
Dim Altezza As Integer
calcolaArea = base * Altezza
End Function
**********************************************************************************************
Private Sub Calcola_Click()	'Pulsante che richiama, calcola e visualizza
il risultato
Me.Area = calcolaArea()
End Sub
*********************************************************************************************
Il problema è quando inserisco due numeri in [base e [altezza] e premo sul
pulsante come risultato mi da 
ZERO.
Qualcuno mi sa dire dove sbaglio io non so. 
Ciao 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Ciao
Nella funzione CalcolaArea dichiari e moltiplichi fra loro due variabili che
non hanno nulla a che fare con i controlli che contengono i valori; prova
cosě:
Private Function calcolaArea()
     calcolaArea = Me.base * Me.Altezza
 End Function
Oppure, se vuoi comunque usare le variabili:
Private Function calcolaArea()
    Dim Miabase As Integer
    Dim MiaAltezza As Integer
    MiaBase = Me.Base
    MiaAltezza = Me.Altezza
    calcolaArea = Miabase * MiaAltezza
End Function
Ciao
Galliano.

 ha scritto nel messaggio
news:c6594a$6dr$1...@news.newsland.it...

E mi meravigliavo del contrario, non gli passi nessun valore alla funzione;
hai letto l'help in linea alla voce: Scrittura di una routine Function?
Non hai letto tutto il mio suggerimento?
Perché la funzione l'hai dichiarata Private?
Ciao.
--
Sergio MAZZA

 Galliano.
Si č ok funziona !
un ultima cosa ho provato ad inserire un msgbox nel caso i campi [base] e
[altezza] siano vuoti:
*************************************************************************
Private Sub Calcola_Click() 'Pulsante che richiama, calcola e visualizz il
risultato
if isnull Miabase or Miabase="" then 
  msgbox "il campo base non puň essere vuoto" 
me.base.setfocus
  end if
if isnull MiaAltezza or MiaAltezza="" then 
  msgbox "il campo Altezza non puň essere vuoto"
me.altezza.setfocus
  end if
Me.Area = calcolaArea()
End Sub
******************************************************************
Ma non funziona bene dove erro ? forse sbaglio dove inserisco gli if cioč
non deve stare in :
Private Sub Calcola_Click() 


 Sergio MAZZA
Sergio, ti chiedo scusa ma il thread precedente mi era sfuggito. Se lo
avessi visto mi sarei ben guardato dall'intervenire, visto che avevi già
risposto in maniera più che esauriente (come al solito). Se c'è una cosa che
non sopporto è chi cerca la pappa pronta, lasciando agli altri lo studio e
il lavoro.
Ciao
Galliano.

 ha scritto nel messaggio
news:rruhc.14930$Qc.5...@twister1.libero.it...

Ma figurati! Non era nelle mie intezioni e me ne guarderei bene dal
redarguire chi sta aiutando qualcuno; non ne ho l'autorità e non mi
interessa averla.
Volevo solo far notare a RobertoAcc che non è nella "netiqhette" reinviare
il messaggio quando qualcuno ha già risposto al suo precedente.
Quindi tu non centri nulla...
Ciao e buon lavoro.
--
Sergio MAZZA