kodu aşağıdaki ile değiştirerek deneyiniz.
Dim harf As String
harf = "F"
Me.borc = Me.Liste0.Column(3)
Me.limit = Me.Liste0.Column(2)
If (Sgn(limit) = -1 And Sgn(borc) = -1) And limit < borc Then
MsgBox ("Müşteri limitini aşmış! Yine de Satış yapmak istediğinize eminmisiniz? !......")
ElseIf limit < 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")
