Kod:
Private Sub List18_AfterUpdate()
If ODE Between 0 And 15 Then
Me.FIYAT = List18.Column(2)
ElseIf ODE Between 16 And 30 Then
Me.FIYAT = List18.Column(3)
ElseIf ODE Between 31 And 100 Then
Me.FIYAT = List18.Column(4)
ElseIf ODE = "KK" Then
Me.FIYAT = List18.Column(5)
End If
End Sub
Örneğiniz olmadığı için Kredi Kartı için kullandığınız KK alanının
bir değişken mi veya bir değer mi olduğu anlaşılmıyor.
Ben değerdir diye tahmin ederek "KK" olarak değiştirdim.
Bu durumda ODE alanı metin ise, üstteki kontrolleri de CInt(ODE) olarak değiştirmek gerekebilir.
Bir deneyin, olmazsa örneğinizi eklemeniz gerekmektedir.