Yapmış Olduğum Vba Programında Verilerde Nota Ve Virgül Kullanamıyorum.

Yapmış Olduğum Vba Programında Verilerde Nota Ve Virgül Kullanamıyorum. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Yapmış Olduğum Vba Programında Verilerde Nota Ve Virgül Kullanamıyorum. (/konu-yapmis-oldugum-vba-programinda-verilerde-nota-ve-virgul-kullanamiyorum.html)

Sayfalar: 1 2 3 4 5 6

RE: Yapmış Olduğum Vba Programında Verilerde Nota Ve Virgül Kullanamıyorum. - atoykan - 21/01/2021

Bilgisayarınızın bölgesel ayarlarında dil seçeneği, tarih ve sayı format ayarlarının bu şekilde olmadığından emin misiniz?

RE: Yapmış Olduğum Vba Programında Verilerde Nota Ve Virgül Kullanamıyorum. - C*e*l*o*y*c*e - 21/01/2021

merhaba
sizin ayarlar g.aa.yyyy şeklide olabilir, bölgesel ayarlarda tarih alanını gg.aa.yyyy olarak değiştirip deneyin

RE: Yapmış Olduğum Vba Programında Verilerde Nota Ve Virgül Kullanamıyorum. - merttr07 - 22/01/2021

Denedim g.aaa.yyy şeklinde ama yine aynısını yapıyor. Ne yazıkki programın neyi karışık anlamadım.

Programda güncellemeye bastığım zaman 09.01.2021 olan tarih 01.09.2021 oluyor 09 aya geçiyor neden anlamadım.

RE: Yapmış Olduğum Vba Programında Verilerde Nota Ve Virgül Kullanamıyorum. - merttr07 - 22/01/2021

Kodlarda bu şekilde bir yanlışlık var mı?

Private Sub Image2_Click()
For Each ctl In Me.Controls
If TypeName(ct1) = "TextBox" Then
If ctl.Text = "" Then
MsgBox "Boş Bıraktığınız Alanlar Var Lütfen Doldurun"
Exit Sub
End If
End If
Next

Call connection_open

Selected_item = baraj.ListView1.SelectedItem.Text
sql1 = "select * from barajtablo where[Kimlik]=" & Selected_item
rs.Open sql1, conn, adOpenKeyset, adLockPessimistic

rs.Update 1, Me.TextBox1
rs.Update 2, Me.TextBox2
rs.Update 3, Me.TextBox3
rs.Update 4, Me.TextBox4
rs.Update 5, Me.TextBox5
rs.Update 6, Me.TextBox6
rs.Update 7, Me.TextBox7
rs.Update 8, Me.TextBox8
rs.Update 9, Me.TextBox9
rs.Update 10, Me.TextBox10
rs.Update 11, Me.TextBox11
rs.Update 12, Me.TextBox12

MsgBox "Veriler Başarılı Şekilde Güncellendi"

rs.Update
rs.Close
conn.Close
Unload Me
Unload baraj
baraj.Show

End Sub

Private Sub Image3_click()
For Each ctl In Me.Controls
If TypeName(ct1) = "TextBox" Then
If ctl.Text = "" Then
MsgBox "Boş Bıraktığınız Alanlar Var Lütfen Doldurun"
Exit Sub
End If
End If
Next

Call connection_open
sql1 = "select * from barajtablo where [Kimlik]"
rs.Open sql1, conn, adOpenKeyset, adLockPessimistic
rs.AddNew
rs.Fields(1) = Me.TextBox1
rs.Fields(2) = Me.TextBox2
rs.Fields(3) = Me.TextBox3
rs.Fields(4) = Me.TextBox4
rs.Fields(5) = Me.TextBox5
rs.Fields(6) = Me.TextBox6
rs.Fields(7) = Me.TextBox7
rs.Fields(8) = Me.TextBox8
rs.Fields(9) = Me.TextBox9
rs.Fields(10) = Me.TextBox10
rs.Fields(11) = Me.TextBox11
rs.Fields(12) = Me.TextBox12

barajveri.TextBox1 = Format(rs.Fields(1), "dd/mm/yyyy")
barajveri.TextBox2 = Format(rs.Fields(2), "#.##0,00")
barajveri.TextBox3 = Format(rs.Fields(3), "#.##0,00")
barajveri.TextBox4 = Format(rs.Fields(4), "#.##0,00")
barajveri.TextBox5 = Format(rs.Fields(5), "#.##0,00")
barajveri.TextBox6 = Format(rs.Fields(6), "#.##0,00")
barajveri.TextBox7 = Format(rs.Fields(7), "#.##0,00")
barajveri.TextBox8 = Format(rs.Fields(8), "#.##0,00")
barajveri.TextBox9 = Format(rs.Fields(9), "#.##0,00")
barajveri.TextBox10 = Format(rs.Fields(10), "#.##0,00")
barajveri.TextBox11 = Format(rs.Fields(11), "#.##0,00")
barajveri.TextBox12 = Format(rs.Fields(12), "#.##0,00")
rs.Update
rs.Close
conn.Close

MsgBox "Başarılı Şekilde Yeni Veri Kaydedildi"
Unload Me
Unload baraj
baraj.Show
End Sub

RE: Yapmış Olduğum Vba Programında Verilerde Nota Ve Virgül Kullanamıyorum. - berduş - 22/01/2021

dikkatimden kaçan birşey olmadıysa kodlarda bir sorun yok gibi
barajveri.TextBox1 = Format(rs.Fields(1), "dd/mm/yyyy") yerine

Format(rs.Fields(1), "dd\/mm\/yyyy")

de yazılabilir.
onun dışında yazdığınız her 2 kodda düzgün çalışıyor, ay ve günün yeri de değişmiyor.
şu anki sorun ne?
adım adım ne yaptığınızda ne olması gerekirken ne olduğunu anlatır mısınız?

RE: Yapmış Olduğum Vba Programında Verilerde Nota Ve Virgül Kullanamıyorum. - merttr07 - 22/01/2021

(22/01/2021, 11:10)berduş yazdı: dikkatimden kaçan birşey olmadıysa kodlarda bir sorun yok gibi
barajveri.TextBox1 = Format(rs.Fields(1), "dd/mm/yyyy") yerine
Format(rs.Fields(1), "dd\/mm\/yyyy")
de yazılabilir.
onun dışında yazdığınız her 2 kodda düzgün çalışıyor, ay ve günün yeri de değişmiyor.
şu anki sorun ne?
adım adım ne yaptığınızda ne olması gerekirken ne olduğunu anlatır mısınız?

Tek sorun güncellemeye bastığımızda yeni kayıtta olan tarihin gün ayın yeri değişiyor tek sorun bu güncelleme kodlarının içine yazmamız gereken her hangi bir kod var mı veri kayıtta sıkıntı yok ama verileri güncelemede sıkıntı attığım resimlere baktığımızda görürsünüz.

Tekrar teşekkür ederim ilginiz için şuan tek sıkıntı o sizde olmuyorsa şayet bilmiyorum bendeki Excel sürümünden mi yoksa başka bir şeyden mi şaşırtıcı.