listbox arama sorunu

[polis-53]

Merhaba arkadaşlar combobox1 de arama yaptığım zaman listbox1 e Sayfa2 deki verilerin hepsi gelmiyor 10 sutün geliyor nedenini bulamadam yardımcı olursanıx sevinirim. dosya ektedir.

 

[cems]

....

 

[ynmcan]

Listboxta additem ile veri alıyorsanız 10 sütünü geçemezsiniz.
Verilerinizi Listbox.rowsource özeliği ile alın. Örnekleri forumda bulabilirsiniz

 

[ynmcan]

dosyayınızı şimdi açtım. Listboxta 15 sütun var zaten.
listboxun altındaki kaydıdma çubuğunu kullanın.
Anlatmak istediğiniz bu çubuğu kullanmadadan tüm sütunları görmek ise, sütun genişliklerini daraltın, yada userform ve listeoxunuzun enini büyütün.
ben dosyanızda büyüttüm inceleyin.

 

[polis-53]

dosyayınızı şimdi açtım. Listboxta 15 sütun var zaten.
listboxun altındaki kaydıdma çubuğunu kullanın.
Anlatmak istediğiniz bu çubuğu kullanmadadan tüm sütunları görmek ise, sütun genişliklerini daraltın, yada userform ve listeoxunuzun enini büyütün.
ben dosyanızda büyüttüm inceleyin.

tekrar merhaba dosyayı açtığımda listbox a veriler geliyorsorun yok arama yaptığımda lisbox a 10 sutün veri geliyor verilerin tamamı gelmesi gerekir.

 

[polis-53]

Arama Yaptığımda tüm kolonlar gelmiyor ve textboxlarda boş oluyor

 

[cems]

Sanırım bir mutipage çalışması kaydet dışında arama bulma düzeltme ve tek kişiyi bulunca tam veriyi ekrana çağırma konularını da çözer

Ekteki dosya onceki bir çalışmama verinizin adapte edilmiş halidir. Arama sayfasında textboxta yazılana göre veriyi süzer ve listboxta veri üstüne çift tıklayınca bilgi anaforma çağrılır.Müerrer veriye neden olmamak için kaydet tuşu saklanır ve düzeltme yapınca da save edilebilir. Verinizi textboxlara adapte etme vaktim yok ama en azından verimli bulursanız düzeltmeleri arıza verdiğinde bulup yapabilirsiniz

Açılışta resim ve kurum bilgilerinizi de ayarlayabilirsiniz

İnceleyin

 

[cems]

Sütun baslıkları duzeltildi

 

[polis-53]

İlgilendiği

Sütun baslıkları duzeltildi

İlgilendiğiniz için çok teşekkür ederim
Bir sorunum var TAKİP FİLİTRELE DE FİLİTRELEME YAPTIĞIMDA TIKLADIĞIM DEĞİLDE TÜM FİLİTRELEMEDE Kİ KİŞİLERİ RAPOR SAYFASINA ATIYOR BENİM İSTEDİĞİM TIKLADIĞIM KİŞİYİ RAPOR SAYFASINA ATSIN.

 

[cems]

Aslında tek kişi için de rapor çıkarılabilir hatta c:/ diskinizde yeterli yer varsa her kişinin fotosunu resim adı tc kimlik no olarak atayarak burada fotolar klasoru icine atarsanız hem userformda hem de cıkacak tek kişiye gore raporda da resmi de gorunebilir ve kişiye ait olduğu kesinleşir.
Bunun için süzme sayfasına çift tıklayınca bir yönlendirme msgboxu actırmak ve düzeltme mi rapor mu istiyorsunuz türü secenek verdirtmek ve seçime göre de işleme gitmek sanırım talebinizi tam karşılar.
Su an gorevli bir saglık mensubuyum ve bunu dizayn etmek için zamanım yeterli değil, ancak gorevden sonra ilgilenmem mümkün olabilir ve acilen yapmam cok zor, yine de arkadaşlar da bu anlamda duzeltme ya da geliştirme yapabilir.

Umarım adapte çalışma olsa da bazı arızalar da verse de genel olarak sanırım işinize yarar

Bu anlamda hazırlanmış bir dosyayı ekliyorum , zip içindeki dosyayı C:/ altına kopyalayın ve excel dosyasının kısayolunu masaustune alın ve
calıstırın

@Haluk @Korhan Ayhan @ynmcan

 

[polis-53]

dosyayınızı şimdi açtım. Listboxta 15 sütun var zaten.
listboxun altındaki kaydıdma çubuğunu kullanın.
Anlatmak istediğiniz bu çubuğu kullanmadadan tüm sütunları görmek ise, sütun genişliklerini daraltın, yada userform ve listeoxunuzun enini büyütün.
ben dosyanızda büyüttüm inceleyin.Ekli dosyayı görüntüle 251908

merhaba listbox a satıra çift tıklayınca textbox lar doluyor arama yapıp tıklayınca 10 adet textbox lar doluyor diğerlerine veri gelmiyor.

 

[cems]

Next
UserForm_Initialize

ThisWorkbook.Emre ' Bu satırı ekledim.
End Sub

kaydet tuşu bir yere gitmiyor buradaki gidişi ' ile pasiflestirdim ancakşu kod da bir " "" "" ama sonrasında .clear var ve hata veriyordu.
Şu şekilde düzeltince listbox tüm satır verisini gösterdi. Satıra cift tıklayınca da tüm texboxlara veri geldi

Private Sub CommandButton3_Click()

Dim ctrl As Control

For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Then
ctrl.Value = ""
ElseIf TypeName(ctrl) = "ComboBox" Then
ctrl.Value = ""
End If
Next ctrl
End Sub

 

[polis-53]

Next
UserForm_Initialize

ThisWorkbook.Emre ' Bu satırı ekledim.
End Sub

kaydet tuşu bir yere gitmiyor buradaki gidişi ' ile pasiflestirdim ancakşu kod da bir " "" "" ama sonrasında .clear var ve hata veriyordu.
Şu şekilde düzeltince listbox tüm satır verisini gösterdi. Satıra cift tıklayınca da tüm texboxlara veri geldi

Private Sub CommandButton3_Click()

Dim ctrl As Control

For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Then
ctrl.Value = ""
ElseIf TypeName(ctrl) = "ComboBox" Then
ctrl.Value = ""
End If
Next ctrl
End Sub

ŞİMDİDE ARAYA YAPARKEN LİSTBOX A VERİ GÖZÜKMÜYOR

 

[polis-53]

ŞİMDİDE ARAYA YAPARKEN LİSTBOX A VERİ GÖZÜKMÜYOR

SATIRA ÇİFT TIKLAYINCA VERİLER GELİYOR ARAMA YAPINCA ÇİFT TIKLAYINCA VERİLERİN YARISI GELMİŞYOR.

 

[cems]

Olasılıkla listbox1 de tarih formatı yok ancak bu aksamlık benden bu kadar , haftasonu tekrar incelerim

 

[Ouzz_z]

Bence bu tarz standart veri kayıt formları Access ile yapılsa daha faydalı olur. Textbox için izin verilen veri türünün belirtilmesi gibi uğraştırıcı işlemlerin Access'te çok daha kolay olmasının yanında etkili form arayüzleri hazırlamak da mümkün.