Kod yazarak yapabilirsin. INSERT INTO ile her iki kalem icin gerekli kaydi tabloya ekleyeceksin. Suna benzer bir kod, kaydin After Insert (kayit eklendiginde) olayina yazilabilir:
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim sqlStr As String
Set cnn = New ADODB.Connection
Set cnn = CurrentProject.Connection
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cnn_local
cnn.BeginTrans
' birinci kalem icin
sqlStr = "INSERT INTO TabloAdi " & _
"(Alan1, Alan2) " & _
"VALUES (deger1, deger2);"
cmd.CommandText = sqlStr
cmd.Execute
' ikinci kalem icin
sqlStr = "INSERT INTO TabloAdi " & _
"(Alan1, Alan2) " & _
"VALUES (deger1, deger2);"
cmd.CommandText = sqlStr
cmd.Execute
cnn.CommitTrans
Set cmd = Nothing
Set cnn = Nothing
|