AccessTr.neT

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.

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])

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..

Güncel

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.

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