(24/01/2019, 11:20)ozanakkaya yazdı: Örnek uygulamayı tekrar test ettiğimde sadece DİĞER ile ilgili sorun vardı, 

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

Deneyip bilgi vereceğim,teşekkürler