Checkbox per garanzia prodotto

  • Creatore Discussione Creatore Discussione Dagger
  • Data di inizio Data di inizio

Dagger

Nuovo Utente
10 Ott 2010
1
0
0
Ciao a tutti! :)

Spero che il probl che vi propongo non sia troppo troppo banale... sto cercando di associare la checkbox garanzia ad un costo di prodotto in modo tale che se attivata, il costo si annulla. Quando riseleziono la checkbox vorrei che il costo tornasse al valore originale immesso.
In breve:
costo = 12 se garanzia non selezionata
costo = 0 se garanzia attivata

Il codice che ho provato ad implementare è questo qui

Private Sub garanzia_AfterUpdate()
Dim CostoRic
CostoRic = Me!costo
If (garanzia.Value = True) Then
costo= 0
ElseIf (garanzia.Value = False) Then
costo= CostoRic
End If
End Sub


Quando l'abilito mi azzera il costo, ma quando la spunto nuovamente mi mantiene il costo azzerato... e non so che pesci pigliare.:hammer:
Ringrazio tutti anticipatamente per l'attenzione!
Good work
 

Discussioni simili