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?

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

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.

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

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?

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