İşaretli Olanları Aktarma

1 2
10/06/2024, 10:30

evren89

Selamun aleykum

merhaba arkadaşlar form1 de isim listesi adlı düğmeye tıklayınca ilgili başka bir formdaki veriler ekrana geliyor.bu verilerin yanında da tik işaretleyici kutucuklar vardır.ben işaretli kutucuklarda ki verilerin form1 deki alt tablonun ilgili alanlarına aktarılmasını istiyorum.yardımlarınız içi teşekkurler
10/06/2024, 10:56

onur_can

Merhaba,
Puan alanı yok, sadece adı ve soyadını mı aktaracak?
10/06/2024, 11:04

evren89

evet aynen hocam ayrıca yukarıda bulunan tümünü işaretle kutucuğuna bastığımda da tümümü işaretleyecek. Yardımlarınız içi teşekkürler
10/06/2024, 11:25

onur_can

Eğer puan alanı olmayacaksa aşağıdaki kodu aktar butonunun click olayına yazın;

Kod:
On Error GoTo Hata
Dim strSQL As String
strSQL = "INSERT INTO Tablo1 ( Kimlik, Adi, Soyadi) " _
& "SELECT Tablo1.Kimlik, Tablo1.Adi, Tablo1.Soyadi " _
& "FROM Tablo1 " _
& "WHERE (((Tablo1.Eklem)=True))"
DoCmd.RunSQL (strSQL)
Hata:

Ayrıca Eklem onay kutusunun AfterUpdate olayına aşağıdaki kodu eklemelisiniz.
Kod:
Me.Form.Requery
10/06/2024, 11:38

onur_can

Tümünü işaretle onay kutusunun Click olayına da aşağıdaki kodu ekleyin. İşareti kaldırdığınızda da tüm işaretleri kaldırır.

Kod:
Dim strSQL As String
If Me.Onay10 Then
DoCmd.SetWarnings False
strSQL = "UPDATE Tablo1 SET Tablo1.Eklem = True"
DoCmd.RunSQL (strSQL)
Me.Form.Requery
Else
strSQL = "UPDATE Tablo1 SET Tablo1.Eklem = False"
DoCmd.RunSQL (strSQL)
Me.Form.Requery
DoCmd.SetWarnings True
End If
10/06/2024, 15:25

evren89

hocam teşekkür ederim.

İlgili tabloya ekliyor ama form1'i aç kapa yapınca verileri görebiliyorum bunu yapmadan anlık görebilme şansım olur mu
1 2