.mdb dosyasında dikkat etmediğiniz konular;
Tablolardaki alan adları çok kötü isimlendirilmiş. Çarpma işlemlerinde kullanılan * ( - vs karakterleri kesinlikle kullanmamanız gerekir.
örn: SPT(15) yerine SPT15,
örn: N60 = N ( CER / 60 ) x Nt x Nö x Nç yerine N60x gibi kullanılmalı.
Kesirli sayılar kullanılırken virgül ( , ) değil nokta ( . ) kullanılmalıdır. örn: 1.5
Gelelim IIF kullanımına . Neyi nasıl hesapladığınızı bilmiyorum ama yöntem örn:
Kod:
Private Sub HesapLa()
If SPT30 <> "R" And SPT45 <> "R" Then
SPTn30 = Val(SPT30) + Val(SPT45)
End If
If YASSDÜZELTMESİ <> "R" Then
N60x = YASSDÜZELTMESİ * 0.9
End If
If SPTn30 = "R" Then
YASSDÜZELTMESİ = "R"
Else
If SPTn30 > 15 Then
YASSDÜZELTMESİ = 15 + (0.5 * (SPT30 - 15))
Else
YASSDÜZELTMESİ = SPT30
End If
End If
If YASSDÜZELTMESİ <> "R" Then
N60 = CLng(Nz(YASSDÜZELTMESİ.Value, 0)) * 0.75
End If
End Sub
Private Sub Komut25_Click()
Call HesapLa
End Sub