Newsgroup: it.comp.appl.access
Titolo: Verificare che MioControllo non sia vuoto

Salve,
Grazie ai suggerimenti ricevuti in questo ng ho creato un mdb che mi
calcola una formula e cioč l'area di un rettangolo, č quasi completo
vorrei solo sapere dove sbaglio quando lascio i campi base e altezza vuoti.
nella:
Private Sub Calcola_Click 
ho scritto una condizione if che nel momento del click sul pulsante Calcola
deve verificare se i campi base e altezza non siano vuoti obbligado
l'utente ad inserire un valore.
nel modo in cui non funziona come voglio, cioč mi da sia i msg di errore
che il risultato, qualcuno sa dirmi dove devo correggere ?
************************************************************************
Private Function calcolaArea() 'Funzione che calcola l'area di un
rettangolo
Dim Miabase As Integer
Dim MiaAltezza As Integer
Miabase = Me.base
MiaAltezza = Me.Altezza
calcolaArea = Miabase * MiaAltezza
End Function
****************************************************************************
Private Sub Calcola_Click() 'Pulsante che richiama, calcola e visualizza
area
If Miabase = "" Then MsgBox ("Il campo base č vuoto !")
If MiaAltezza = "" Then MsgBox ("Il campo Altezza č vuoto !")
Me.area = calcolaArea()
End Sub
****************************************************************************
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

RobertoAcc ha scritto:


If IsNull(Miabase) or IsNull(MiaAltezza) Then
MsgBox ("Uno dei campi č vuoto !")
else
Me.area = calcolaArea()
endif
End Sub
VA BENE?


 VA BENE?
*********************
E no purtoppo non funziona ............managgia ....! come si puň fare !!!



Private Sub Calcola_Click() 'Pulsante che richiama, calcola e visualizza
area
If Nz(Me!base, "") = "" Then
    MsgBox ("Il campo base è vuoto !")
    Exit Sub
End If
If Nz(Me!Altezza, "") = "" Then
    MsgBox ("Il campo Altezza è vuoto !")
    Exit Sub
End If
Me!area = calcolaArea()
End Sub
Comunque ti sconsiglio di chiamare un tuo campo Altezza; usando il
generatore di espressione Access potrebbe cambiarti tale nome in Height con
tutte le conseguenze di malfunzionamento del caso.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 If Miabase = "" 
Non puoi confrontare una casella che contiene Null o un numero (0) con una
stringa("").
Prova cosě:
  If isnull(Miabase) or Miabase = 0 
Namor
-- 
namor at inwind punto it


Roberto da casa ha scritto:



***************
Grazie finalmente funziona !!!
posso farti due ultime domande ?
1)Domanda per far si che erroneamente l'utente non digiti delle 
lettere quindi avere un controllo simile al precedente ?
2)per far si che il mio pusante "Calcola" dopo aver fornito alla sua
pressione il risultato della formula, la sua etichetta cambi nome con
"Azzera valori", ed in tal caso alla sua pressione i controlli:
-base
-altezza
-area
ridiventano vuoti e il pulsante "Azzera valori" ridiventa "Calcola", per
poter eseguire un nuovo calcolo.
si può fare ?
Spero di essere stato chiaro ! Ciao e ancora grazie !


 Spero di essere stato chiaro ! Ciao e ancora grazie !
-- 
