Newsgroup: it.comp.appl.access
Titolo: Un numero appartiene ad un intervallo????

Ciao a tutti, e complimenti alla "testa geniale" di tutti quelli che
rispondono ai vari quesiti.
Mi sono messa in testa di fare un piccolo database e quindi mi sto
affacciando ad access vba.
Ho un problema forse talmente semplice che non sono nemmeno riuscita a
trovarlo sui vari forum... probabilmente è troppo semplice!
Allora, ho una maschera con diversi campi.
In particolare 2, che si chiamano MAX e MIN (che conterranno valori
negativi) e uno chiamato VAR, che è un campo numerico derivato da
altri campi ancora.
Premo un pulsante. Se il campo VAR contiene un numero che NON
appartiene all'intervallo tra max e min, devo cancellare il record
(dopo aver fatto uscire un msgbox che mi avverte della cosa),
altrimenti resetto la form, e continuo con un altro record.
Ad esempio:
min=-8
max=-20
var=-12 resetto la form
var=-30 appare il msgbox e poi cancello il record
Io ho abbozzato quanto segue:
If var > max And var < min = False Then
    intRisposta = MsgBox("Eliminare il record" & Me.NserieIR & "?",
vbYesNo, "Attenzione!")
        If intRisposta = vbYes Then
            DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
            DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
            MsgBox "Eliminato", vbInformation
            Forms!frm_fosfatazione.casella_ricerca_nserieir.Value = ""
            Forms!frm_fosfatazione.casella_ricerca_nserieir.SetFocus
            Forms!frm_fosfatazione.cmdfind.Visible = True
            Me.Visible = False
         End If
Else
    'Resetta la subfrm
    Forms!frm_fosfatazione.casella_ricerca_nserieir.Value = ""
    Forms!frm_fosfatazione.casella_ricerca_nserieir.SetFocus
    Forms!frm_fosfatazione.cmdfind.Visible = True
    Me.Visible = False
End If
-----------------------------------------------------------------------------------------------------------------------------------------
visto che non va, ho provato a fare una mascherina semplice semplice
con 3 campi, semplificando un po' le cose... ma non funziona nemmeno
questo
If var > max Then
    If var < min Then
        MsgBox "Nell'intervallo"
    Else
        MsgBox "NON nell'intervallo"
    End If
Else
        MsgBox "NON nell'intervallo"
End If
-------------------------------------------------------------------------------------------------------------------------------------------
potete aiutarmi?

potete aiutarmi?
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------

 ha scritto nel messaggio
news:1185570985.2...@g4g2000hsf.googlegroups.com...








----------------------------------------------------------------------------
-------------------------------------------------------------


----------------------------------------------------------------------------
---------------------------------------------------------------
potete aiutarmi?
[Risposta]
Ipotiziamo:
min=-8
max=-20
var=-12
Perchè per semplificarti la vita non effettui il confronto sul valore
Assoluto...?
If abs(var) > abs(min) and abs(var) < abs(max) then
    resetto la form
Else
    non resetto
End if
Vedrai che funziona anche con -30 ecc.... vedi tu se ti serve l'uguaglianza
stretta metti anche gli UGUALE
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 If var < max Or var > min Then
Mi pare che entrambe le condizioni diano falso in questo modo e
matematicamente sembrerebbe vero...!
