Skip to main content

AccessTr.neT


Seçenek Düğmeleri ve Metin Kutusu

Seçenek Düğmeleri ve Metin Kutusu

Çözüldü #1
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)
53rize, 08-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
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)
Cevapla
Çözüldü #3
Allah razı olsun. Tamam hocam tam istediğim gibi olmuş teşekkür ederim. saygılarla.
53rize, 08-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
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.
53rize, 08-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #5
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
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #6
Hocam uyguladım tamam. yalnız Formdan yeni kayıt ekle dediğim zaman hata veriyor.
53rize, 08-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da