Organizasyon Takip Otomasyonu (Düğün, Nişan, Etkinlik vb.)

1- "Txt_Ara"  metin kutusu kodlarından türkçe karekter düzeltmelerini ve Liste1'i içeren kodları çıkartarak daha yalın ve basit bir kodlama yapamaz mıyız.? çok basit sadece iki eylem yapsa yeter.

* metin kutusuna yazdığımda "Frm_IletisimAra" listesi üzerinde arasın
* Listedeki ilgili isme tıkladığımda ilgili ID ye isme gitsin.

Visual Basic

Private Sub Txt_Ara_AfterUpdate()
'****** 1. Satir *****************
On Error Resume Next
 
'****** 2. Satir *****************
Dim Kmt As String
Kmt = iif(isnull(Me.Txt_Ara),"","Where ((([AdiSoyadi]) Like '*" & me.Txt_Ara.text & "*'))")
 
'****** 3. Satir *****************
Me.Frm_IletisimAra.form.Liste_IletisimAra.RowSource = "SELECT Tbl_Iletisim.IletisimID, 
Tbl_Iletisim.IletisimSiraNo, Tbl_Iletisim.AdiSoyadi, Tbl_Iletisim. AdiSoyadiEk, Tbl_Iletisim.EtkinlikGunu,
Tbl_Iletisim.EtkinlikTarihi, DLookUp('Kodu', 'KODLAR', 'KodNumarasi = ' & [Durumu]) AS Durum FROM
Tbl_Iletisim " & Kmt  & " ORDER BY Tbl_Iletisim.IletisimID, Tbl_Iletisim.IletisimSiraNo,
Tbl_Iletisim.AdiSoyadi, Tbl_Iletisim.EtkinlikTarihi" 
 
'****** 4. Satir *****************
Me.Frm_IletisimAra.form.Liste_IletisimAra.Requery
End Sub

1. Satir :
Hata cikarsa sonraki satirdan devam et.

2. Satir :
Liste kutusu satir kaynagi SQL'inin kosulunun olusturulmasi.

3. Satir :
Liste kutusu satir kaynagi SQL'inin olusturulmasi ve kosul ile liste verilerinin Txt_Ara kutusuna yazilan ile birlestirilmesi.

4. Satir :
Liste verilerinin cagrilmasi

Suzdurulen Liste verisi secildiginde Ana Form uzerinde ki kaydi bulmasi saglanir.
Frm_IletisimAra formundan Liste_IletisimAra nesnesi Ana Form uzerine tasinirsa Parent kelimesini siliniz.

Visual Basic

Private Sub Liste_IletisimAra_AfterUpdate()
Me.Parent.RecordsetClone.FindFirst "IletisimID=" & Me.Liste_IletisimAra.Column(0)
Me.Parent.Bookmark = Me.Parent.RecordsetClone.Bookmark
End Sub

Tusa basilma olay yordamindan cikarilip, guncelleme olay yordaminada tarif edilmistir. Liste1 durum kodlarina gore veri gosteriminide Frm_IletisimAra.form.Liste_IletisimAra yonlendirip, Liste1 nesnesini silebilirsiniz. Liste_IletisimAra nesnesinide direk form uzerine tasiyip, Frm_IletisimAra silebilirsiniz. Gizle dugmesini de Ana Form uzerine tasiyabilirsiniz.

Kolay Gelsin....