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