Seçenek Düğmeleri ve Metin Kutusu

Seçenek Düğmeleri ve Metin Kutusu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Seçenek Düğmeleri ve Metin Kutusu (/konu-secenek-dugmeleri-ve-metin-kutusu.html)

Sayfalar: 1 2

Seçenek Düğmeleri ve Metin Kutusu - 53rize - 12/02/2012

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

semerkand53_2012-02-10.rar(103.1 KB)

Cvp: Seçenek Düğmeleri ve Metin Kutusu - ozanakkaya - 12/02/2012

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

semerkand53_sled.rar(90.18 KB)

Cvp: Seçenek Düğmeleri ve Metin Kutusu - 53rize - 12/02/2012

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

Cvp: Seçenek Düğmeleri ve Metin Kutusu - 53rize - 12/02/2012

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.

Cvp: Seçenek Düğmeleri ve Metin Kutusu - Puletin - 12/02/2012

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

Cvp: Seçenek Düğmeleri ve Metin Kutusu - 53rize - 12/02/2012

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