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. - berduş - 21/01/2021

kodları zaten yazmışsınız ben sadece formatladım
sizin kodlarınız aşağıdaki gibiydi ben sadece ferileri alırken format dönüşümü yaptım

barajveri.TextBox1 = rs.Fields(1)

barajveri.TextBox2 = rs.Fields(2)

barajveri.TextBox3 = rs.Fields(3)

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

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(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.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
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyCode = vbKeyBack Then

If Len(Me.TextBox1) = 4 Then
Me.TextBox1 = Left(Me.TextBox1, 2)
KeyCode = False

ElseIf Len(Me.TextBox1) = 7 Then
Me.TextBox1 = Left(Me.TextBox1, 5)
KeyCode = False
End If

Else
If Len(Me.TextBox1) = 2 Or Len(Me.TextBox1) = 5 Then
Me.TextBox1 = Me.TextBox1 & "."
End If

End If

End Sub

Kodları bu şekilde düzenledim deniycem ilginiz için teşekkür ederim.

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

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

Sayın merttr07
"#,##0.00" şeklinde olan sayı formatlarınızı "#.##0,00" şeklinde değiştirerek dener misiniz?

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

Access ve Excel için yerel ayarları yaptınız mı?

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

1 - ekleme kodunuzda aktif doluluk oranının olduğu rs(4) alanı eksik eklemeyi o nedenle yapmıyor
2 - gösterme kodunuzda da aktif doluluk oranının olduğu rs(4) alanı yok
onun dışında ekleme ve güncelleme olaylarına eklediğim düzenlemelerde sorun göremedim yeni kayıt ekledim kapatıp açtım verileri düzgün gösterdi
kaydı güncelledim doğru gösterdi
kapatıp açtım doğru gösterdi yaptığım tek değişiklik de yukarda bahsettiğim değişiklikti