(12/01/2020, 12:58)berduş yazdı: accesste .text ve .value şeklinde 2 değer vardır.
".value" alanın gerçek değerini gösterir, tabloda kayıtlı halini siz metin kutusu içindeyken enter tuşuna basmadığınız müddetçe value değişmez o nedenle textchange olayından etkilenmez
".text" alanda o anda yazan metni gösterir yani gerçek olanı değil geçici olanı gösterir ama bunun için mfarklı etin kutusuna odaklanmış olmak
exceli çok bilmiyorum ama galiba excelde sadece .text var sorun bundan kaynaklanıyor olabilir.
uygun olursam ara fonksiyonunu farklı bir şekilde düzenlemeye çalışırım metin kutuları değişse bile kod sabit kalır
iyi çalışmalar

Sağolunuz açıklama için.
Evet acess için .text yazınca hata veriyordu odaklandığında gibi bir mesajdı sanırım şuan deneyemiyorum.

Excel bilgim çok fazla diyebilirim.Excelde genel olarak textbox1.value gibi kullanılır.Yani sadece.text yok üstad.

Excel ile yaptıpım orjinal dosyamı Access olayına çevirip öğrenmeyi düşünüyorum Ado ile.
Bu yüzden başladım artık Access olayına bakalım ne olacak.

(12/01/2020, 05:15)ozanakkaya yazdı: Değiştiğinde olayı için ikinci metin kutusu eklemelisiniz. Form Üzerinden Veri Arama konusu fikir verebilir.

Yok üstad bana verdiğim kod yapısuna göre olmalı.

(12/01/2020, 13:08)feraz yazdı: Excel bilgim çok fazla diyebilirim.Excelde genel olarak textbox1.value gibi kullanılır.Yani sadece.text yok üstad.

bilgilendirme için teşekkürler.
aslında hem accesste hem de excelde teorik bilgim maalesef yeterli değil daha çok kodlar üzerinden çözüm üretmeye çalışıyorum)

Rica ederim.Olmazsa sizin verdiğiniz kodları uygulayacağım.

Müsait olunca Excel kodları gibi yapmaya uğraşacağım.

inceleyiniz, forma 2 adet metin kutusu ekledim. txtSoyadAra ve txtAdAra metin kutularının değiştiğinde olayına kod eklendi, 

Sub Ara kodunda düzenleme yapıldı.

çalışmanızda sadece ara fonksiyonunu aşağıdaki kodla değiştirip dener misiniz?
metin alanlarında sorun çıkarmadan çalıştı sayısal alan için emin değilim
dediğim gibi sadece çalışmanızdaki Ara değişecek
metin değiştiğinde olayları eskisi gibi

call Ara

olarak kalacak

Sub Ara()

Dim AktifNesne As Variant



    With cn

        If .State = adStateOpen Then

            .Close

            Set cn = Nothing

        End If

    End With



    Set cn = CurrentProject.Connection



     strSQL = "Select id,FORMAT(Tarih, 'dd.mm.yyyy') as Tarih,Ad,Soyad,Yas,format(Telefon,'(###) ### ## ##')as Telefon From Tablo1 where Not IsNull(id)"

     If Screen.ActiveControl.Name = Me.txtAd.Name Then AktifNesne = Me.txtAd.Text Else AktifNesne = Me.txtAd.Value

         strSQL = strSQL & " and Ad like '%" & AktifNesne & "%'"

     If Screen.ActiveControl.Name = Me.txtSoyadAra.Name Then AktifNesne = txtSoyadAra.Text Else AktifNesne = txtSoyadAra.Value

         strSQL = strSQL & " and Soyad like '%" & AktifNesne & "%'"



    With rs

        If .State = adStateOpen Then .Close

        .CursorType = adOpenDynamic

        .CursorLocation = 3

        .LockType = adLockOptimistic

        .Open strSQL, cn, , , 1

    End With



    Lstbox.ColumnCount = 6

    Lstbox.ColumnWidths = "2Cm;2Cm;3Cm;3Cm;3Cm;3Cm"

    Lstbox.ColumnHeads = True



    Set Lstbox.Recordset = rs



End Sub