• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Listview'de arama yapıldığında bilgiler gelmiyor ?

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Y

ysb

Yeni Üye
Katılım
8 Ara 2022
Mesajlar
34
Aldığı beğeni
7
Excel V
Office 2021 TR
Konu Sahibi
Personel araması yaptığımda tarihler işe giriş çıkış bilgiler gelmiyor.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Kısaca ilk resimde PersAra eklememişsiniz ikinci resimde ise işaretlediğim yerlere yanlış yazmıştınız.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sn. Refaz Prİsim'den değil Userform sağ taraftaki notun olduğu yerdeki Persarm 'dan yapıyordum.
 
Olumlu oy 0 Negatif oyla
ysb' Alıntı:
Sn. Refaz Prİsim'den değil Userform sağ taraftaki notun olduğu yerdeki Persarm 'dan yapıyordum.
Genişletmek için tıkla...
Alttaki .ListItems.Clear olan fazla olmuş onu silin ve ikinci resimdeki değiştirin dediğimi değiştirmeye gerek yok o zaman abey.

If rs.RecordCount > 0 Then
.ListItems.Clear
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Feraz diye kayıtlı olduğunuz form hakkında bilginiz var mı? Excel VBA hiç bir şey kalmamış??
 
Olumlu oy 0 Negatif oyla
Bu tarih olayı için ise ADO kanunlarına göre ilk 8 satır önemli yani bu satırlara göre biçim ayarlıyormuş.Kısaca baştaki tarihler boş olunca hata oluyor sizde.
Çözüm bulursam eklerim.
 
  • Beğen
İfadeler: ysb
Olumlu oy 0 Negatif oyla
Ben başka çözüm bulamadım yada adosuz yapacaksınız.
Eğer ado ile olacaksa resimdeki işaretlediklerim gibi çözüm buldum.
Eğer H2 boşsa o hücreye boşluk ekliyor sonrada siliyor.

3.jpg
 
  • Beğen
İfadeler: ysb
Olumlu oy 0 Negatif oyla
Son olarak klasik olanı yazayım tarih sütununu komple sütun biçimini metin yapın çözülür ama sonrasını bilemem.
İnşAllah bu soruna çözüm gelir benimde problemimdi bir zamanlar :)
Kısaca Ado olayı biraz tuhaf.Birde access ile denedim orda tarihler boş olsa dahi sorun olmuyor tarih formatındada ama excel işte bu :(
 
  • Beğen
İfadeler: ysb
Olumlu oy 0 Negatif oyla
Konu Sahibi
İlk çözüm ado olanı idareten kullanmaya devam ederim o zaman zarfında belki başka bir çözüm olur. Teşekkürler
 
Olumlu oy 0 Negatif oyla
Rica ederim.Eğer dosyanızdaki gibi arama yapacaksanız bu şekilde ozaman dizi ile daha iyi olur bence.Tabii duruma bakarsınız.
Kolay gelsin.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Rica ederim.Eğer dosyanızdaki gibi arama yapacaksanız bu şekilde ozaman dizi ile daha iyi olur bence.Tabii duruma bakarsınız.
Kolay gelsin.
Genişletmek için tıkla...
Peki Sn. Refaz dizi ile kodlama tavsiyeniz nasıl olur.
2.
.ColumnHeaders.Add(3) = Pyvm.Range("c1")
.ColumnHeaders.Add(4) = Pyvm.Range("d1")
.ColumnHeaders.Add(5) = Pyvm.Range("e1")
30-35 kolon başlıklarını , sayfadan Listview alma için öneriniz.....
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
ysb' Alıntı:
Peki Sn. Refaz dizi ile kodlama tavsiyeniz nasıl olur.
2.
.ColumnHeaders.Add(3) = Pyvm.Range("c1")
.ColumnHeaders.Add(4) = Pyvm.Range("d1")
.ColumnHeaders.Add(5) = Pyvm.Range("e1")
30-35 kolon başlıklarını , sayfadan Listview alma için öneriniz.....
Genişletmek için tıkla...
Dim X As Long
Dim lst As ListItem
ÇksnLsw.ListItems.Clear
For X = 2 To 100000
If ÇkSn.Range("A" & X).Value = "" Then Exit For
Set lst = ÇksnLsw.ListItems.Add(text:=ÇkSn.Range("A" & X).Value)
lst.SubItems(1) = ÇkSn.Range("b" & X).Value
 
Olumlu oy 0 Negatif oyla
ysb' Alıntı:
Peki Sn. Refaz dizi ile kodlama tavsiyeniz nasıl olur.
2.
.ColumnHeaders.Add(3) = Pyvm.Range("c1")
.ColumnHeaders.Add(4) = Pyvm.Range("d1")
.ColumnHeaders.Add(5) = Pyvm.Range("e1")
30-35 kolon başlıklarını , sayfadan Listview alma için öneriniz.....
Genişletmek için tıkla...
Döngü ile basitçe alınır.Yada sırası ile alınmıyorsa başlık ozaman array("c1","e1") gibi yazılıpta döngü ile alınır.
 
Olumlu oy 0 Negatif oyla
ysb' Alıntı:
.ColumnHeaders.Add(3) = Pyvm.Range("c1")
.ColumnHeaders.Add(4) = Pyvm.Range("d1")
.ColumnHeaders.Add(5) = Pyvm.Range("e1")
30-35 kolon başlıklarını , sayfadan Listview alma için öneriniz.....
Genişletmek için tıkla...
HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.

yada

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst