[VBA] puantaj kaydında ondalık hatası

devilspath · 24-08-2016, 10:10

Merhaba arkadaşlar,

Konu açarken sayfa hata verdiğinden tekrar açıyorum. (hatta tekrar, tekrar...)
konu başlığına "insert into" yazınca konu açmadığını fark ettim ve tekrar siteye de giriş yapamıyorum firewall'a takılıyorum modemi kapatıp açmam gerekiyor.

uygulamamda puantaj kaydı yapmak için kullandığım kodlarda bir sıkıntı var.
tedarik ve firma fiyatı tam sayı ise puantaj kaydı yapıyor ama fiyat ondalıklı olduğu (72,5 gibi) zaman kodlar hata vermekte. tablo alanları para birimidir.
internette biraz araştırdım, ondalık ayıraçtaki "." ve "," ile alakalı gibi gözüküyor.
bilgisayarımdaki ondalık ayraç "," ve access dosyamda da ayıraç olarak "," kullanılmakta.
sorunu çözmemle ilgili yardımcı olabilirseniz sevinirim..

örnek uygulamaya gerek varsa linki aşağıda,
http://www.access-sql.com/Konu-ETAEL-Ara...#pid106756

kullandığım kodlar şu şekilde;

Visual Basic
Private Sub Komut33_Click()
Dim Trh As Date, Ctrl As Control, Msj As Variant
For Each Ctrl In Me.Controls
If Ctrl.Tag = "KONTROL" And IsNull(Ctrl) Then Me.Controls(Ctrl.Name).SetFocus: Msj = MsgBox(Ctrl.Name & " Hanesi bos olmamalidir.", vbCritical, "ETAEL Araç Takip"): Exit Sub
Next Ctrl
If IsNull(Me.f_fiyatgor.Form!t_firma_fiyat) Or IsNull(Me.f_fiyatgor.Form!t_tedarik_fiyat) Then Msj = MsgBox("Güzergaha fiyat girişi yapılmadığı için puantaj eklenmedi!", vbCritical, "ETAEL Araç Takip"): Exit Sub
If Me.t1 > Me.t2 Then
    MsgBox "Başlangıç Tarihiniz Bitiş Tarihinizden sonrası olamaz..", vbCritical, "ETAEL Araç Takip"
Else
    For Trh = Me.t1 To Me.t2
        If DCount("*", "t_cetele", "[guzergah_id]=" & Me.guzergah_id & " And [tarih]=#" & Format(Trh, "mm\/dd\/yyyy") & "#") > 0 Then
                MsgBox Me.guzergah_id & " Guzergahi ve " & Format(Trh, "dd\/mm\/yyyy") & " Tarihine ait kayit var", vbCritical, "ETAEL Araç Takip"
        Else
                CurrentDb.Execute "INSERT INTO t_cetele ( guzergah_id, plaka_gir, tek_sayisi, tarih, firma_fiyat, tedarik_fiyat ) " _
                & "SELECT " & Me.guzergah_id & ", '" & Me.plaka_gir & "', " & IIf(Weekday(Trh, vbMonday) = 6 And Me.cmt = -1, 0, IIf(Weekday(Trh, vbMonday) = 7 And Me.pzr = -1, 0, tek_sayisi)) & ", #" & Format(Trh, "mm\/dd\/yyyy") & "#, " & Nz(DLookup("Nz([t_firma_fiyat],0)", "t_fiyatlar", "[guzergah_id]=" & Me.guzergah_id), 0) & ", " & Nz(DLookup("Nz([t_tedarik_fiyat],0)", "t_fiyatlar", "[guzergah_id]=" & Me.guzergah_id), 0)
        End If
    Next Trh
Me.f_cetelealt.Requery
End If
Debug.Print Me.t2
Me.t1.Value = DateSerial(Year(Date), Month(Date), 1)
Me.t2.Value = DateSerial(Year(Date), Month(Date) + 1, 0)
Me.f_cetelealt.Requery
End Sub

bu da hata veren satır,

Visual Basic
CurrentDb.Execute "INSERT INTO t_cetele ( guzergah_id, plaka_gir, tek_sayisi, tarih, firma_fiyat, tedarik_fiyat ) " _
& "SELECT " & Me.guzergah_id & ", '" & Me.plaka_gir & "', " & IIf(Weekday(Trh, vbMonday) = 6 And Me.cmt = -1, 0, IIf(Weekday(Trh, vbMonday) = 7 And Me.pzr = -1, 0, tek_sayisi)) & ", #" & Format(Trh, "mm\/dd\/yyyy") & "#, " & Nz(DLookup("Nz([t_firma_fiyat],0)", "t_fiyatlar", "[guzergah_id]=" & Me.guzergah_id), 0) & ", " & Nz(DLookup("Nz([t_tedarik_fiyat],0)", "t_fiyatlar", "[guzergah_id]=" & Me.guzergah_id), 0)

devilspath · **Kayıt Tarihi:** 04.06.2015

forumda yazdığımız cevapların altına "sil" butonu eklenmiş galiba. acaba bundan kaynaklı mı hata veriyor site? başlığa insert into içeren birşeyler yazmayı deneyin, bir sıkıntı var.

edit: bu mesajın altında "sil" butonu çıkmadı. çok kafama taktım galiba bu konuyu Goofy

jon206 · 24-08-2016, 11:43

sn devilpath;
insert into nun handikaplarından birisi de bu , ayraç gibi algılayıp alan sayılarını eşitlemeye çalışıyor bu gibi durumlarda
ekleme yapmadan önce
dim tt
tt = Replace(Me.TUTAR, ",", ".") parasal değerleri değiştirmeniz gerekir.

yada ado veya dao kütüphanesi kullanmanız gerekir..

dün servis sağlayıcısında bir sorun oldu galiba bende giremedim modemi açtım kapattım şuan bir sorun yok gibi..

not:hatalı konu açmaları sildim..
kolay gelsin..

devilspath · 24-08-2016, 15:34

Teşekkür ederim. .

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[SORGU] Puantaj Sorguda Isim Gelmiyor	VARLIK66	6	253	09-01-2023, 10:19 Son Mesaj: onur_can
	[FORM] personel takip-puantaj-stok takip personel kartı açılmıyor	mustafa.sogutlu	5	2.952	27-12-2022, 14:33 Son Mesaj: metınaycıcek
	[FONKSiYON] Ondalık Sayı Ile Tam Sayıyı Ayrı Ayrı Gösterme	necasi	4	1.008	18-11-2021, 12:14 Son Mesaj: onur_can
	Puantaj Programı V07	IceMan7	5	2.716	14-05-2021, 21:38 Son Mesaj: kamil_55
	Geçerlilik Kuralı Hatası (check Hatası)	adnnfrm	5	635	24-03-2021, 21:38 Son Mesaj: halily
	[FORM] Puantaj Kayıt Formlarında Kayıt Hataları	M_Kemal_Askeri	11	989	26-02-2021, 15:27 Son Mesaj: M_Kemal_Askeri
	[FORM] Ondalık Sayı Yazamama sorunu	mbturkoglu	3	11.770	06-01-2021, 11:34 Son Mesaj: ramazan4503
	MS Access 1 kaydı anahtar hatası yüzünden tabloya ekleyemiyor" hatası	Access70	2	632	24-05-2020, 18:18 Son Mesaj: Access70

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL