Si te bëj Update vlerën e Taksës kur fus vlerën e Lekëve

[nince_tutes]

Kam nje databaze.

Ne nje subforme te saj, kam texboxin Leket, dhe kur te jap fus vleren e lekeve, automatikisht te me axhornohet Taksa sipas ketij rregulli:

Kur vlera Leket <= 100 atehere Taksa te jete 6
Kur vlera 100 < Leket <= 1000 Taksa te jete 12
Kur vlera 1000
Problemi eshte se ne kete subforme, un mund te kem shume rekorde, dhe psh, ne ne rast fus vleren e Leket 78, dhe Taksa me behet 6, por kur ne rekordin e dyte psh, un fus vleren Leket 150 atehere Taksa per kete rekord me behet 12, por problemi eshte se te gjitha vlerat e Taksa behet 12, edhe per rekordet e tjere pavarsisht se per ta vlera Leket eshte e ndryshme.

Un kam perdoru kete kod per kete rast:

Private Sub Leket_AfterUpdate()
If (Leket.Value <= 100) Then Taksa = 6
ElseIf ((Leket.Value <= 1000) Then Taksa = 12
else Taksa = 20

End if

End Sub

KU E KAM GABIMIN

[besnikstava]

Provoje:

.....

ElseIf((Leket.Value>100 and LeketValue<=1000) Then Taksa=12

......