Skip to main content

AccessTr.neT


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

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

#1
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.
.rar Eğitim Planım2003.rar (Dosya Boyutu: 498,95 KB | İndirme Sayısı: 50)
Cevapla
#2
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])
Cevapla
#3
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..
Cevapla
#4
Güncel
Cevapla
#5
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.
Cevapla
#6
Değerli Ozan hocam ilginize tşk ederim.Konu taşınabilir sayenizde çözülmüştür.
Saygılar sunuyorum
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task