form üzerindeki her satırın karşısında onay kutuları var. Bu check box ları aynı anda tek buton ile seçmek veya onayı iptal etmek mümkünmüdür?
Ekteki dosyada mesailer formu.
[Bilgi]Örnek dosyanız sıkıştırılıp tekrar eklenmiştir.[/Bilgi]
[Bilgi]Lütfen Forum Kurallarını okuyunuz.[/Bilgi]
Bir güncelleme sorgusu yaparak ve forma bu güncelleme sorgusunu çalıştıracak bir buton koyarak yapılabilir.
Örnek ektedir.
Kod:
Private Sub btn_ONAYLA_Click()
'Sorgunun çalıştırılacağına dair uyarı mesajlarını kaldırır.
DoCmd.SetWarnings False
'Güncelleme sorgusunu çalıştırır
DoCmd.OpenQuery "Tumunu_Onaylama_Sorgusu"
'Uyarı mesajlarını açar.
DoCmd.SetWarnings True
'Formdaki kayıtları günceller
Me.Requery
End Sub
Merhaba,
konu zaten çözümlendi ama, bu işler için ayrı bir sorgu kaydetmek nesne pencresini şişirecek iyice. bunun yerine tılandığında olayına şu kod eklense daha iyi olur. Sorgu yerine
Sql kodunu
Vba ile çalıştırmak yöntemi:
Kod:
'Güncelleme sorgusunu çalıştırır
'DoCmd.OpenQuery "Tumunu_Onaylama_Sorgusu"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.RunSQL "UPDATE mesailer SET mesailer.onay = Yes Where mesailer.onay=No"