Access Formda Tümünü Seç Özelliği Nasıl Eklenir?

14/11/2016, 22:16

mehami

Merhaba değerli forum üyeleri-adminler;
Ekte bulunan uygulama örneğinde yardımlarınıza ihtiyacım var.

frm_degerlendirmeyap ı açıyoruz,öğrenci bilgilerini girip tanı seçimi yapıyoruz-modüller geliyor-modüllere çift tıklayınca-o modüllere ait maddeler geliyor(frm_secimformu) burada PERFORMANS ve AMAÇLAR belirlenirken amaç olarak işratelediğimizde o amaca yönelik alt maddeler formu (frm_secimaltbeceri) açılıyor.

Bizim istediğimiz şey burada tek tek seçim yapılabilmesi-dilenirse de hepsini aynı anda seçili yapabilmek için için TÜMÜNÜ SEÇ seçeneğinin olmasıdır.

Ne yaptımsa TÜMÜNÜ SEÇ seçeneği özelliği ekleyemedim.

Bu konuda öneri ve yardımlarınızı bekliyor saygılar sunuyorum.
15/11/2016, 13:24

ozanakkaya

frm_secimaltbeceri isimli forma "btn_degistir" adında buton ekle, tıklandığında olayına aşağıdaki kodu ekle

Private Sub btn_degistir_Click()
DoCmd.SetWarnings False
If Me.btn_degistir.Caption = "Tümünü Seç" Then
   DoCmd.RunSQL "UPDATE tbl_gecici2 SET onay = '-1'"
   Me.btn_degistir.Caption = "Seçimleri Kaldır"
ElseIf Me.btn_degistir.Caption = "Seçimleri Kaldır" Then
   DoCmd.RunSQL "UPDATE tbl_gecici2 SET onay = '0'"
   Me.btn_degistir.Caption = "Tümünü Seç"
End If
DoCmd.SetWarnings True
Me.Requery
End Sub



Ayrıca, aynı formdaki mtn_altbaslik isimli metin kutusunun denetim kaynağının sonucu hatalı, denetim kaynağının aşağıdaki gibi düzeltilmesi gerekli.



=DLookUp("[beceri]";"tbl_beceri";"[beceriid]=" & [beceriid])
15/11/2016, 22:14

mehami

Değerli Ozan hocam;
Vermiş olduğunuz kodu-bahsettiğiniz gibi ilgili forma (frm_secimaltbeceri'ye ) bir buton ekleyip-adını da btn_degistir koyarak deneme fırsatı bulduğumda;tümü seç deyip-seçip daha sonra kaydedip çıkmak istediğimizde, kaydetme yapmadan formun kapandığını gözlemledim.

Bu hatayı giderebilme hususunda öneri ve yardımlarınızı bekliyor saygılar sunuyorum..
16/11/2016, 12:19

mehami

Güncel
16/11/2016, 21:10

ozanakkaya

Option Compare Database

kodunun altına


Dim GDegistiMi As Integer


kodu ekle


Private Sub btn_degistir_Click()


kodunun altına


GDegistiMi = 1


kodu ekle


If Form.Dirty = True Then


kodunu


If Form.Dirty = True Or GDegistiMi = 1 Then


kodu ile değiştir.
16/11/2016, 21:35

mehami

Değerli Ozan hocam ilginize tşk ederim.Konu taşınabilir sayenizde çözülmüştür.
Saygılar sunuyorum