+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sorguda yürüyen bakiye sorunu. (/konu-sorguda-yuruyen-bakiye-sorunu.html)
Cvp: Sorguda yürüyen bakiye sorunu. - ates2014 - 13/11/2016
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ı.
Cvp: Sorguda yürüyen bakiye sorunu. - ozanakkaya - 13/11/2016
Merhaba, problem bu konudaki örnekte mi yoksa kendi uygulamanıza eklediğinizde mi hata alıyorsunuz?
Cvp: Sorguda yürüyen bakiye sorunu. - atoz112 - 13/11/2016
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 Functionbilginize...iyi çalışmalar,saygılar.
Cvp: Sorguda yürüyen bakiye sorunu. - ates2014 - 14/11/2016
Çok teşekkür ederim Sayın Atoz112.