Dim GSorgu, GSorgu2, GSorgu3 As String
Dim GVarMi, GSayi As Integer
Dim rs As DAO.Recordset, GSonSayi As Integer
GVarMi = Nz(DCount("[id]", "tbl_begendirmeler", "[id]=" & [id]), 0)
If GVarMi > 0 Then
MsgBox (Me.id & " numaralı veri daha önce aktarılmış")
Exit Sub
Else
GSorgu = "INSERT INTO tbl_begendirmeler ( id, begenid, baslikid, alanlar, personel, ANACLAR, personel2, baslama, basla, yon, olc, ort ) " & _
"VALUES ('" & Me.id & "','" & Me.begenid & "','" & Me.baslikid & "','" & Me.alanlar & "','" & Me.personel & "','" & Me.ANACLAR & "','" & Me.personel2 & "','" & Me.baslama & "','" & Me.basla & "','" & Me.yon & "','" & Me.olc & "', '" & Me.ort & "');"
CurrentDb.Execute (GSorgu)
If UBound(Me.mat.OldValue) > 0 Then
GSorgu2 = "SELECT MAX(degerlendirid) FROM tbl_begendirmeler"
Set rs = CurrentDb.OpenRecordset(GSorgu2)
GSonSayi = rs.Fields(0)
For GSayi = LBound(Me.mat.OldValue) To UBound(Me.mat.OldValue)
GSorgu3 = "INSERT INTO tbl_begendirmeler ([mat].[Value]) VALUES ('" & Me.mat.OldValue(GSayi) & "') WHERE degerlendirid=" & GSonSayi
CurrentDb.Execute (GSorgu3)
Next GSayi
End If
MsgBox (seciciid & " Seçici Id numaralı veri aktarıldı.")
İnceleyip olumlu/olumsuz bildirimde bulununuz.