+- 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ığı: İşaretli Olanları Aktarma (/konu-isaretli-olanlari-aktarma.html)
Sayfalar:
1
2
İşaretli Olanları Aktarma - evren89 - 10/06/2024
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
RE: İşaretli Olanları Aktarma - onur_can - 10/06/2024
Merhaba,
Puan alanı yok, sadece adı ve soyadını mı aktaracak?
RE: İşaretli Olanları Aktarma - evren89 - 10/06/2024
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
RE: İşaretli Olanları Aktarma - onur_can - 10/06/2024
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:Kod:
Me.Form.RequeryRe: İşaretli Olanları Aktarma - onur_can - 10/06/2024
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 IfRE: İşaretli Olanları Aktarma - evren89 - 10/06/2024
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