Skip to main content

AccessTr.neT


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.

#7
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)
Cevapla
#8
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.
Cevapla
#9
[Resim: yf8M8T.jpg]

[Resim: 62Tmwq.jpg]
Cevapla
#10
Sayın merttr07
"#,##0.00" şeklinde olan sayı formatlarınızı "#.##0,00" şeklinde değiştirerek dener misiniz?
"Dünyayı fazla düşünme."
Cevapla
#11
Access ve Excel için yerel ayarları yaptınız mı?
Cevapla
#12
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task