17-03-2013, 13:48
Merhaba,
Şimdiden herkese teşekkür ederim. Tablomda otomatik olarak bir çıkartma işlemi yapmak istiyorum. Aşağıdaki kodu kullanıyorum bunun için fakat istediğim sonucu alamıyorum. Birbirinden çıkartılacak kayıtları güncellememe rağmem otomatik olarak çıkarma işlemi yapmıyor. Bir sonraki kayıda gidip geri gelmem gerekiyor. Bu sorunu nasıl çözebilirim?[/code]
[Private Sub Profit_Change()
Dim A, B, C As Integer
A = Me.SalesPrice
B = Me.OrderedPrice
C = Nz(A - B)
Me.Profit = C
End Sub]
Şimdiden herkese teşekkür ederim. Tablomda otomatik olarak bir çıkartma işlemi yapmak istiyorum. Aşağıdaki kodu kullanıyorum bunun için fakat istediğim sonucu alamıyorum. Birbirinden çıkartılacak kayıtları güncellememe rağmem otomatik olarak çıkarma işlemi yapmıyor. Bir sonraki kayıda gidip geri gelmem gerekiyor. Bu sorunu nasıl çözebilirim?[/code]
[Private Sub Profit_Change()
Dim A, B, C As Integer
A = Me.SalesPrice
B = Me.OrderedPrice
C = Nz(A - B)
Me.Profit = C
End Sub]