Listelemedekiz pratikler dediğiniz Harf bazındaki butonlar mı eğer onlarsa form üzerine bir sürü buton koymak yerine açılır kutu içerisinde harfler bulunsa ve bu harflerden seçiminize göre filtrelese daha mantıklı olmaz mı formu doldurmamış ve yormamış oluruz
Ben daha önce bir çalışmada denemitim. formun yorulması mühüm değil. Bence bu tasarı daha pratik ve kullanışlı. Harflerin olması güzel.
DoCmd.SetWarnings False
Undo
On Error Resume Next
For Each kutu In Me
With kutu
.enabled = True
'.BackColor = vbYellow
Me.Liste162.enabled = True
End With
Next
Me.Kaydet.enabled = False
Me.Duzenle.enabled = False
Me.Sil.enabled = False
Me.Yeni_Kayit.enabled = True
Me.Vazgec.enabled = False
Metin164 = Me.Liste162.ListCount - 1
If [Metin182] < 0 Then
Else
End If
'Me.Requery
DoCmd.GoToRecord , , acNewRec
Me.Kapat.enabled = True
DoCmd.SetWarnings True
Bu koddaki "kutu" kısmında hata veriyor. Ve bu kutu nedir?
Çalışmamı düzenleyerek tekrar ekledim. frm_evci formu işlemlerim kaldı.
frm_evci = Bu formdan tek tek veya toplu olarak evci çıkartabilirsin
frm_evci_sorgulama = Bu form üzerinden evci çıkan öğrencileri sorgulayabilirsin
frm_ogrencinin_ciktigi_evci = Bu form üzerinden öğrencinin daha önce çıktığı evci izinlerini görebilir veya değiştirebilirsin.
Çok teşekkür ederim. Çalışmayı kendi formuma uyarlayıp size dönüş yapacağım.