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ı.

Merhaba, problem bu konudaki örnekte mi yoksa kendi uygulamanıza eklediğinizde mi hata alıyorsunuz?

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.

Çok teşekkür ederim Sayın Atoz112.