AccessTr.neT

Tam Versiyon: Access Isnull Hatası
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6
(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
Sayfalar: 1 2 3 4 5 6