çerçevenin tıklanma/click olayı

Private Sub ArmYer_Click()



If Me.ArmYer = 3 Then

    BasKrt = ""

    SonKrt = ""

ElseIf Me.ArmYer = 2 Then

    BasKrt = ""

    SonKrt = "%"

Else

    BasKrt = "%"

    SonKrt = "%"

End If



Ara '<--Eklenecek



End Sub