metinin elemanının satır kaynağına yazarak yapılabilir ancak çok uzun ve hata luşması durumunda baya uğraştırır. benim tavsiyem form koduna vb'de yazmandır.
Private Sub Form_Current()
dim tasiyici as intager
if (me.metin268>=1081) then tasiyici =8*7
if (me.metin268>=541 and me.metin268<=1080) then tasiyici =tasiyici + 6*7
if (me.metin268>=181 and me.metin268<=540) then tasiyici =tasiyici + 4*7
if (me.metin268>=61 and me.metin268<=180) then tasiyici =tasiyici + 2*7
msgbox tasiyici
End Sub
Son Düzenleme: 04/08/2009, 14:47, Düzenleyen: gocebe.