Aşağıdaki kodları deneyiniz.

Private Sub Seçenek104_AfterUpdate()

'Call VeriAktar

If Me.Seçenek104 = -1 Then

Dim Sql As String

sql = "INSERT INTO Promosyonlar ( kisi_id, adı_soyadı, Bölgesi,[Kayıt Tarihi],semerkand) values (Forms!ANA.kisi_id , Forms!ANA.adı_soyadı, Forms!ANA.Bölgesi,Forms!ANA.Metin351,Forms!ANA.Metin110)"

DoCmd.RunSQL sql

Else

End If

End Sub

Private Sub Seçenek106_AfterUpdate()

'Call VeriAktar

If Me.Seçenek106 = -1 Then

Dim Sql As String

sql = "INSERT INTO Promosyonlar ( kisi_id, adı_soyadı, Bölgesi,[Kayıt Tarihi],Aile) values (Forms!ANA.kisi_id , Forms!ANA.adı_soyadı, Forms!ANA.Bölgesi,Forms!ANA.Metin351,Forms!ANA.Metin110)"

DoCmd.RunSQL sql

Else

End If

End Sub

Private Sub Seçenek108_AfterUpdate()

'Call VeriAktar

If Me.Seçenek108 = -1 Then

Dim Sql As String

sql = "INSERT INTO Promosyonlar ( kisi_id, adı_soyadı, Bölgesi,[Kayıt Tarihi],Mostar) values (Forms!ANA.kisi_id , Forms!ANA.adı_soyadı, Forms!ANA.Bölgesi,Forms!ANA.Metin351,Forms!ANA.Metin110)"

DoCmd.RunSQL sql

Else

End If

End Sub