- Katılım
- 8 Temmuz 2016
- Mesajlar
- 52
- Excel Vers. ve Dili
- excell 10
- Altın Üyelik Bitiş Tarihi
- 24-11-2021
Merhabalar,
Aşağıdaki kod ile verilerimi Access üzerinde Montaj tablosu üzerine yazdırıyorum. Ancak Bu kod içinde bir değişiklik yaparak aynı verileri Montaj_havuz tablosunada yazdırmasını nasıl sağlayabilirim?
Şimdiden teşekkürler.
Aşağıdaki kod ile verilerimi Access üzerinde Montaj tablosu üzerine yazdırıyorum. Ancak Bu kod içinde bir değişiklik yaparak aynı verileri Montaj_havuz tablosunada yazdırmasını nasıl sağlayabilirim?
Şimdiden teşekkürler.
Kod:
Private Sub CommandButton1_Click()
Dim yol As String, Dosya As String
Dim baglan As New ADODB.Connection, ks As New ADODB.Recordset
yol = ThisWorkbook.path & "\"
Dosya = "Veritabani.mdb"
Set baglan = New ADODB.Connection
baglan.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & yol & Dosya & ";"
Set ks = New ADODB.Recordset
ks.Open "SELECT * FROM Montaj", baglan, adOpenDynamic, adLockOptimistic
ks.AddNew
ks("Personel") = TextBox2.Text
ks("Adet") = TextBox3.Text
ks("QrKod") = TextBox4.Text
ks("LotNo") = TextBox5.Text
ks("Rev") = TextBox6.Text
ks("Proje") = TextBox7.Text
ks("Operasyon") = TextBox8.Text
ks("BaslamaZamani") = TextBox9.Text
ks("BitisZamani") = TextBox10.Value = "0"
ks("OperasyonSuresi") = TextBox11.Value = "0"
ks("DuraklamaSuresi") = TextBox16.Value
ks("Aciklama") = TextBox12.Text
ks("Tarih") = TextBox13.Text
ks.Update
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox10 = Empty
TextBox11 = Empty
TextBox12 = Empty
TextBox13 = Empty
TextBox16 = Empty
Set baglan = Nothing
Set ks = Nothing
Call goster
TextBox2.SetFocus
ListView1.SelectedItem = Nothing
End Sub