Skip to main content

AccessTr.neT


İşaretli Olanları Aktarma

İşaretli Olanları Aktarma

#5
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

 İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
İşaretli Olanları Aktarma - Yazar: evren89 - 10/06/2024, 10:30
RE: İşaretli Olanları Aktarma - Yazar: onur_can - 10/06/2024, 10:56
RE: İşaretli Olanları Aktarma - Yazar: evren89 - 10/06/2024, 11:04
RE: İşaretli Olanları Aktarma - Yazar: onur_can - 10/06/2024, 11:25
Re: İşaretli Olanları Aktarma - Yazar: onur_can - 10/06/2024, 11:38
RE: İşaretli Olanları Aktarma - Yazar: evren89 - 10/06/2024, 15:25
RE: İşaretli Olanları Aktarma - Yazar: onur_can - 10/06/2024, 16:04
RE: İşaretli Olanları Aktarma - Yazar: evren89 - 10/06/2024, 23:07
Task