Skip to main content

AccessTr.neT


Bir Tablodan Veriler Silinirken Aynı Anda Diger Tabloya Aktarılması

Bir Tablodan Veriler Silinirken Aynı Anda Diger Tabloya Aktarılması

Çözüldü #1
Merhaba,
Aşağıdai kodda Excel ortamından ADO ile tablodan bir satırı siliyoruz,
Benim isteiğim silinen bu satırın aynı anda aynı yapıdaki diğer bir tabloya TblCariArsiv otomatik olarak aktarılması;
ilginie şimdiden teşekkürler,

Kod:
Sub caridelete()
Dim cn As New ADODB.Connection, rs As ADODB.Recordset
Dim mysqlSt1 As String
Dim carikodu As String

carikodu = cCari1.TextBox1.Value

If carikodu = "" Then
    MsgBox ("Cari kodu boş bırakılamaz")
    Exit Sub
End If

Baglan

mysqlSt1 = "DELETE * FROM TblCari WHERE (((TblCari.Cari_Kodu)='" & carikodu & "'));"

Set cn = New ADODB.Connection
With cn
    .ConnectionString = Con1
    .Open
End With

cn.Execute mysqlSt1

cn.Close
Set cn = Nothing

Con1 = ""

Call caritblupdate

MsgBox "Silme işlemi tamamlandı", vbInformation

End Sub

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Bir Tablodan Veriler Silinirken Aynı Anda Diger Tabloya Aktarılması - Yazar: truhi - 21/06/2021, 17:45