aşağıdaki kod işinizi görecektir. güncellendi olayını bu şekilde ayarlayın
Option Compare Database
Dim Sql As String
Private Sub ADI_AfterUpdate()
Guncelle
End Sub
Private Sub Guncelle()
Dim siraNo As String, oAdi As String
siraNo = Nz(ADI.Column(1)): If siraNo = "" Then Exit Sub
oAdi = ADI
Sql = "INSERT INTO Tablo2 ( ADI ) SELECT Tablo1.ADI FROM Tablo1 LEFT JOIN Tablo2 ON Tablo1.ADI = Tablo2.ADI WHERE (((Tablo1.SIRA_NO)= '" & siraNo & "') AND ((Tablo2.ADI) Is Null));"
DoCmd.RunSQL SQL
End Sub
Kayıt ekleme.
Bu Konudaki Yorumlar |
Kayıt ekleme. - Yazar: serdar_20 - 12/01/2013, 01:51
Cvp: Kayıt ekleme. - Yazar: C*e*l*o*y*c*e - 12/01/2013, 14:44
Cvp: Kayıt ekleme. - Yazar: serdar_20 - 12/01/2013, 15:11
Cvp: Kayıt ekleme. - Yazar: fatih karagöl - 12/01/2013, 16:53
Cvp: Kayıt ekleme. - Yazar: serdar_20 - 12/01/2013, 17:06
Cvp: Kayıt ekleme. - Yazar: fatih karagöl - 12/01/2013, 17:22
Cvp: Kayıt ekleme. - Yazar: serdar_20 - 12/01/2013, 17:32
Cvp: Kayıt ekleme. - Yazar: fatih karagöl - 12/01/2013, 17:51
Cvp: Kayıt ekleme. - Yazar: serdar_20 - 12/01/2013, 17:58
|
Konuyu Okuyanlar: 1 Ziyaretçi