ilgili kodu aşağıdaki ile değiştirerek deneyiniz.
Sub Hesapla()
Dim GBalik As String
Dim GPuan, GBoy As Integer
GPuan = Me.BALIK.Column(3)
GBoy = Me.BALIK.Column(2)
GBalik = Me.BALIK.Column(1)
Me.BOY = GBoy
If GBalik <> "DİĞER" And Val(Me.ÖLÇÜM) >= GBoy Then
Me.Metin19 = "GEÇERLİ"
Me.PUAN = Me.ÖLÇÜM + 10
ElseIf GBalik <> "DİĞER" And Me.ÖLÇÜM.Value < GBoy Then
Me.Metin19 = "LİMİTALTI"
Me.PUAN = Me.ÖLÇÜM + 1
ElseIf GBalik = "DİĞER" Then
Me.Metin19 = "DİĞER"
Me.PUAN = 5
End If
End Sub