Merhaba,

Dim harf As String

harf = "F"



Me.borc = Me.Liste0.Column(3)

Me.limit = Me.Liste0.Column(2)





If (Sgn(Me.limit) = -1 And Sgn(Me.borc) = -1) And Int(Me.limit) > Int(Me.borc) Then

    

    MsgBox ("Müşteri limitini aşmış! Yine de Satış yapmak istediğinize eminmisiniz? !......")

    

End If



             

Me.Metin12 = Me.Liste0.Column(0)

Me.Metin8 = Me.Liste0.Column(1)

Me.Metin0 = harf & Format(Me.Metin7, "00000")

şeklinde de kullanabilirsiniz. 

Tabloda limit alanında bazı veriler negatif, bazı veriler pozitif. Pozitif değerlere göre de koşul eklemek gerekli.