Newsgroup: it.comp.appl.access
Titolo: PROBLEMONE!!!!!!!!!!!!!!!!!

Ho 3 campi su una maschera
filtro 1
filtro 2
filtro 3
il primo deve essere sempre compilato gli altri no.
il secondo non puo' essere compilato se il primo e' vuoto
A seconda del filtro compilato mi si abilitano o disabilitano dei campi.
diciamo che durante l'inserimento bene a male la cosa mi funziona anche se
non l'ho ancora perfezionata, ma ho riscontrato che in fase di modifica e'
come se il codice non esistesse.
Non riesco a capire dove sbaglio.
di seguito il codice. (su uscita del canpo del secondo filtro)
 Dim stDocName As String
   Dim retValue As Integer
   'Dim strTtl As String
   Dim strmsg As String
   Me.CasellaCombinata281.Locked = False
    Me.CasellaCombinata281.BackColor = 16777215
   Me.CasellaCombinata281.Requery
   If Me.CasellaCombinata281 = 0 And Me.Tipo_raccoglivernice1 <> 0 Then
      strmsg = "Inserimento filtro n°2 !." & vbCrLf & _
            "Vuoi inserire il filtro ?"
   retValue = msgbox(strmsg, vbYesNo + vbDefaultButton1, "raccoglivernice
© - ATTENZIONE !!!! - ")
   If retValue = 6 Then 'Si
    Forms![conti].Form![CasellaCombinata281].SetFocus
    Me.CasellaCombinata281.Locked = False
    Me.CasellaCombinata281.BackColor = 16777215
    Me.CasellaCombinata291.Enabled = True
   Me.effic_prev_filtro2.Enabled = True
   Me.effic_prev_filtro3.Enabled = True
   Me.post_accumulo_120pa_kgmq.Enabled = True
   Me.post_accumulo_120pa_sezfil.Enabled = True
   Me.post_costo_mq.Enabled = True
   Me.post_costo_ora.Enabled = True
   Me.post_durata.Enabled = True
   Me.filfin_accumulo_120pa_kgmq.Enabled = True
   Me.filfin_accumulo_120pa_sezfil.Enabled = True
   Me.filfin_costo_mq.Enabled = True
   Me.filfin_costo_ora.Enabled = True
   Me.filfin_durata.Enabled = True
   End If
   Me.CasellaCombinata281 = ""
   Me.CasellaCombinata291 = ""
   Me.effic_prev_filtro2 = 0
   Me.effic_prev_filtro3 = 0
   Me.post_accumulo_120pa_kgmq = 0
   Me.post_accumulo_120pa_sezfil = 0
   Me.post_costo_mq = 0
   Me.post_costo_ora = 0
   Me.post_durata = 0
   Me.filfin_accumulo_120pa_kgmq = 0
   Me.filfin_accumulo_120pa_sezfil = 0
   Me.filfin_costo_mq = 0
   Me.filfin_costo_ora = 0
   Me.filfin_durata = 0
   If retValue = 7 Then 'no
   Me.CasellaCombinata281.BackColor = -
2147483633
   Me.CasellaCombinata281.Locked = True
   Me.CasellaCombinata291.Enabled = False
   Me.effic_prev_filtro2.Enabled = False
   Me.effic_prev_filtro3.Enabled = False
   Me.post_accumulo_120pa_kgmq.Enabled = False
   Me.post_accumulo_120pa_sezfil.Enabled = False
   Me.post_costo_mq.Enabled = False
   Me.post_costo_ora.Enabled = False
   Me.post_durata.Enabled = False
   Me.filfin_accumulo_120pa_kgmq.Enabled = False
   Me.filfin_accumulo_120pa_sezfil.Enabled = False
   Me.filfin_costo_mq.Enabled = False
   Me.filfin_costo_ora.Enabled = False
   Me.filfin_durata.Enabled = False
   Forms![conti].Form![pref_accumulo_120pa_kgmq].SetFocus
End If
Exit_CasellaCombinata281_Click:
    Exit Sub
Err_CasellaCombinata281_Click:
    msgbox Err.Description
    Resume Exit_CasellaCombinata281_Click
 End If
End Sub

 ha scritto nel messaggio
news:D8ZS8.233$B8....@tornado.fastwebnet.it...

Ciao Angelo,
io non sono riuscito a capire bene quale sia il tuo problema, forse perché
non ho capito esattamente cosa vuoi fare.
Toglimi qualche dubbio:
- la form corrente è la form [conti]?
- la [CasellaCombinata281] è il 1° o il 2° filtro?
- la [CasellaCombinata291] è il 2° o il 3° filtro?
- mi dici che questo codice viene eseguito all'evento su uscita del
CONTROLLO (!!) del secondo filtro, mentre nel codice perché sembra essere
eseguito all'evento Su Click del controllo stesso?
- la parte centrale del tuo codice, diciamo quella compresa tra il 1° If e
il 2° If, deve essere sempre eseguita?
- hai provato a riorganizzare quanto hai scritto in maniera + leggibile, del
tipo
    If msgbox(strmsg, vbYesNo + vbDefaultButton1, "raccoglivernice© -
ATTENZIONE !!!! - ") = vbYes Then
        ' quello che deve essere eseguito se la risposta è Sì
    Else
        ' quello che deve essere eseguito se la risposta è No
    End If
- hai provato ad eseguire questo codice passo passo?
Se non sono riuscito a focalizzare, spiegami meglio cosa vuoi ottenere.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


SCUSAMI SE HO SCITTO FRA LE RIGE MA RITENGO CHE ERA LA COSA PIU' SEMPLICE .
GRAZIE PER INTANTO.

 GRAZIE PER INTANTO.
Non ti devi scusare x aver scritto nel testo del messaggio, aiutava la
comprensione della tua risposta e hai fatto bene.
Molto meno bene è che hai scritto tutto MAIUSCOLO, che equivale a gridare,
cosa inutile perché non sono ancora sordo...
... ma, hai poi provato ad eseguire passo passo, correggendo la sintassi
dell'IF ... THEN ... ELSE come ti avevo suggerito?



ed inoltre scrivi un subject decente
Massimiliano