AccessTr.neT

Tam Versiyon: Yapmış Olduğum Vba Programında Verilerde Nota Ve Virgül Kullanamıyorum.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6
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)
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.
[Resim: yf8M8T.jpg]

[Resim: 62Tmwq.jpg]
Sayın merttr07
"#,##0.00" şeklinde olan sayı formatlarınızı "#.##0,00" şeklinde değiştirerek dener misiniz?
Access ve Excel için yerel ayarları yaptınız mı?
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
Sayfalar: 1 2 3 4 5 6