* ODE olan ismi ODEME olarak, list18 olan ismi KKOD olarak değiştirdim.
* Açılan kutu ayarlarını fiyatları düzgün gösterecek şekilde düzelttim.
* Ödeme bilgisinin düzgün girildiğini kontrol eden kontrol ekledim.
* ElseIf yerine Select Case kullandım, daha kullanışlıdır.
Kod:
Private Sub KKOD_AfterUpdate()
If IsNull(Me.Parent.ODEME) Then
MsgBox "Ödeme günü bilgisi giriniz"
ElseIf Not IsNumeric(Me.Parent.ODEME) And Me.Parent.ODEME <> "KK" Then
MsgBox "Kredi Kartı için KK giriniz"
ElseIf Me.Parent.ODEME < 0 Or Me.Parent.ODEME > 100 Then
MsgBox "Ödeme günü bilgisi 0 ile 100 arasında olmalıdır"
End If
'-----------------------------------
Select Case Me.Parent.ODEME
Case 0 To 15
Me.FIYAT = Me.KKOD.Column(2)
Case 16 To 30
Me.FIYAT = Me.KKOD.Column(3)
Case 31 To 100
Me.FIYAT = Me.KKOD.Column(4)
Case "KK"
Me.FIYAT = Me.KKOD.Column(5)
Case Else
Me.FIYAT = 0
End Select
End Sub
Bu aralar Sql Server'da SP ve Trigger'lar ile uğraştığım için (+oruç) if içinde Between kullanmışım, özür