Seçenek Düğmeleri ve Metin Kutusu

Formda Promosyon adı altında Bulunan seçenek düğmeleri var. Bu düğmelerin üzerinde bulunan metin kutusuna gireceğim notu, hangi seçenek düğmelerini işaretlediysem. Bu notu Promosyonlar Tablosunda ilgili Alanlara yazdırılmasını istiyorum. Buradaki örnekleri inceledim fakat yapamadım. Üstadlarımın yardımlarını bekliyorum saygılarımla.

Ek Dosyalar

Metin kutusuna veri girip işaretlediğin seçenek düğmesine ait veriyi Promosyonlar tablosunda ilgili yere aktarır, değişirse günceller.
Formda farklı kayıtlar arası geçiş yaptığında Promosyonlar tablosundaki kayda göre seçenek düğmeleri güncellenir,

Ek Dosyalar

Allah razı olsun. Tamam hocam tam istediğim gibi olmuş teşekkür ederim. saygılarla.

Hocam Özür dileyerek mevcutunu güncelleyerek değilde, tekrar satır ekleyerek yapsa önceki değişiklikleri görmem bakımından iyi olurdu.

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

Hocam uyguladım tamam. yalnız Formdan yeni kayıt ekle dediğim zaman hata veriyor.