AccessTr.neT
Access Formda Tümünü Seç Özelliği Nasıl Eklenir? - Baskı Önizleme

+- 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ığı: Access Formda Tümünü Seç Özelliği Nasıl Eklenir? (/konu-access-formda-tumunu-sec-ozelligi-nasil-eklenir.html)

Access Formda Tümünü Seç Özelliği Nasıl Eklenir? - mehami - 14/11/2016

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.

Cvp: Access Formda Tümünü Seç Özelliği Nasıl Eklenir? - ozanakkaya - 15/11/2016

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


Cvp: Access Formda Tümünü Seç Özelliği Nasıl Eklenir? - mehami - 15/11/2016

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

Cvp: Access Formda Tümünü Seç Özelliği Nasıl Eklenir? - mehami - 16/11/2016

Güncel

Cvp: Access Formda Tümünü Seç Özelliği Nasıl Eklenir? - ozanakkaya - 16/11/2016 

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.

Cvp: Access Formda Tümünü Seç Özelliği Nasıl Eklenir? - mehami - 16/11/2016

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