Son kaydedilen verinin olduğu satırın ekrana gelmesi

teknikyapı

Altın Üye
Katılım
30 Nisan 2007
Mesajlar
396
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
13-01-2026
Merhaba.
Sayfaya kaydettiğim veriler listview de görüntüleniyor.Misal olarak diyelim bin adet veri var.Yeni kaydettiğim veriler sıralandıktan sonra bu verilerin arasına geliyor.Acaba bir veri kaydettikten sonra listviewde ilk önce bu yeni kaydedilen verilerin olduğu kısmı görebilirmiyiz.Yani listview de böyle bir özellik varmı acaba ? ( eğer derdimi anlatabildisem tabiki ! )
 

teknikyapı

Altın Üye
Katılım
30 Nisan 2007
Mesajlar
396
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
13-01-2026
Tam anlatamamış olabilirim.Yani arkadaşlar ,son kaydedilen veriden sonra listviewde o verilerin olduğu satırın seçili olması, ekrana gelmesi mümkünmü acaba?
 

teknikyapı

Altın Üye
Katılım
30 Nisan 2007
Mesajlar
396
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
13-01-2026
Arkadaşlar herhangi bir fikri olan yokmu acaba? En azından listviewin böyle bir özelliği varmı yokmu diye.Herhangi bir çözümü var ise çok kullanışlı olacağını düşünüyorum.
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,339
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
İstediğiniz hazır bir özellik yoktur ama geliştirilebilir.
-Bir sütun daha açarak en son kayıt için işaret belirlenir. İşaret koymadan önce bir önceki işaret de temizlenmelidir.
-Sıralama yapılıp listview e alındıktan sonra "finditem" metodu ile işaret aranır ve ilgili satır seçili hale getirilebilir.
 

teknikyapı

Altın Üye
Katılım
30 Nisan 2007
Mesajlar
396
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
13-01-2026
Sn Anemos aslında biryerlere kadar geldim.Aşağıdaki linkte Alpi arkadaşımızın açıklamış olduğu listview özellikleri kısmında bununla ilgili biraz çözüme yaklaştım.

ListView1.ListItems(41).Selected = True
ListView1.SelectedItem.EnsureVisible
ListView1.DropHighlight = ListView1.ListItems(41)

Şeklinde yazdığım kodlar ile deneme yaptım.Burada 41 index numarası rastgele seçtim denemek için.Herhangi bir kayıttan sonra 41.satırdaki veri seçili hale geldi.( ama benim girdiğim verinin index numarasını belirleyip o rakamı atarsak sorun kalmıyacak)
Yardımcı olursanız sevinirim.İyi çalışmalar.
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,339
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
İşte asıl mesele bu. Aralarda kaybolabilecek kayda işaret koymak gerekir. Bu olmadan hangi kaydın en son kaydedildiğini tespit etmek mümkün değildir. (Eğer sıralama yaptıktan sonra listview e alıyorsanız.)
 

teknikyapı

Altın Üye
Katılım
30 Nisan 2007
Mesajlar
396
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
13-01-2026
Sn anemos evet sıralamadan sonra listview e verileri alıyorum.Şunu bulabilirmiyiz acaba.Ben textbox1 de yazılı olan verinin kaydettikten sonra listview deki index numarasını ? Yani bu 41 nolu index numarasının otomatik bulabilmek için.
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,339
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
Eğer kayıtları birbirinden ayıran index sütunu varsa Public değişkene atayarak hafızada veya bir hücrede tutulması sağlanabilir tabiki.
 

teknikyapı

Altın Üye
Katılım
30 Nisan 2007
Mesajlar
396
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
13-01-2026
Sn anemos haklısınız esas sorun burada.Herhalde biraz daha uğraşmak gerek.Çözüme ulaştığım zaman burada paylaşırım.Şimdilik verdiğiniz bilgiler için teşekkür ederim.İyi çalışmalar.
 

teknikyapı

Altın Üye
Katılım
30 Nisan 2007
Mesajlar
396
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
13-01-2026
merhaba.
Aşağıdaki kodlarla sorunu hallettim görünüyor.Sn anemos tekrar yardımlarınız için teşekkür ederim.



Dim lvwItm As ListItem
Set lvwItm = ListView1.FindItem(TextBox1.Text, , , lvwPartial)
n = lvwItm.Index
ListView1.ListItems(n).Selected = True
ListView1.SelectedItem.EnsureVisible
ListView1.DropHighlight = ListView1.ListItems(n)

not : Bu kodlar ile son kaydettiğiniz veriyi listview işaretliyebilirsiniz.
 

teknikyapı

Altın Üye
Katılım
30 Nisan 2007
Mesajlar
396
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
13-01-2026
Merhaba.
Konunun daha iyi anlaşılabilmesi ve arkadaşlara örnek olması açısından çözümün olduğu dosyayı ekliyorum.İyi çalışmalar.
 
Üst