Sorguda yürüyen bakiye sorunu.

1 2 3 4
13/11/2016, 09:22

ates2014

Sayın ozan, o kodları pasif ettim,
Yeni kayıt yaparken her rakamda  rs.Close bu satır hata veriyordu,
daha sonra eklediğim resimdeki hatayı vermeye başladı.
13/11/2016, 09:52

ozanakkaya

Merhaba, problem bu konudaki örnekte mi yoksa kendi uygulamanıza eklediğinizde mi hata alıyorsunuz?
13/11/2016, 12:08

atoz112

sayın ates2014,

konunun 17. ve 19.mesajlarında yazdığınız ifadelerinize ve eklediğiniz hata resmine göre aşağıdaki açıklamanın yapılması uygun görülmüştür.

sayın ozan bey tarafından 13.mesajda eklenen örnek uygulamada Bakiye adlı modül üzerinde yer alan FormatiCevir adlı fonksiyonu,aşağıdaki kodlar ile değiştirmek sureti ile kullanmayı deneyiniz.

Public Function FormatiCevir(STutar As Currency, SBirimi As Integer) As String


On Error Resume Next
Dim GSayi As Integer
Dim GFormatEkle As Boolean
Dim GTutari As String
Dim GParaBirimi As Integer


GParaBirimi = SBirimi
GTutari = CStr(STutar)



GSayi = InStr(GTutari, ".")
    If GSayi = 0 Then


        GTutari = Left(GTutari, GSayi) & "." & Right(GTutari, Len(GTutari) - GSayi)
        If Len(GTutari) = 6 Then '
           GFormatEkle = True
        End If
End If



GSayi = InStr(GTutari, ",")



If GSayi = 0 Then


    GTutari = GTutari & ",00"


    If Len(GTutari) = 6 Then
        GFormatEkle = True
    End If
End If


GSayi = InStrRev(GTutari, ",")


GSayi = GSayi - 4



GTutari = Left(GTutari, GSayi) & "." & Right(GTutari, Len(GTutari) - GSayi)



If GParaBirimi = "1" Then
    GTutari = Format(GTutari, "Currency")
ElseIf GParaBirimi = "2" Then
    GTutari = GTutari & " " & Chr(36)
ElseIf GParaBirimi = "3" Then
    GTutari = GTutari & " " & Chr(128)
ElseIf GParaBirimi = "4" Then
    GTutari = GTutari & " " & Chr(163)
End If


    FormatiCevir = GTutari


End Function

bilginize...iyi çalışmalar,saygılar.
14/11/2016, 08:48

ates2014

Çok teşekkür ederim Sayın Atoz112.
1 2 3 4