Listbox Raporu oluşturmak

[mrt]

Bir userform'da Textbox1, textbox2 ve listbox1 oluşturacağım.

Veri tablomda;

Þube Adı............Belge No..........Açıklama....Tarih sütünları var.
şişli.....................110................XX1...........20051011
şişli.....................110................XX2...........20051011
şişli.....................111................XX5...........20051012
sarıyer................112................XX5...........20051012
sarıyer................113................XX7...........20051013
beykoz................114...............XX1............20051013


Textbox1'e şişli yazdığımda; listbox1 aşağıdaki gibi görüntülensin

Þube Adı............Belge No..........Açıklama....Tarih
şişli.....................110................XX1...........20051011
şişli.....................110................XX2...........20051011
şişli.....................111................XX5...........20051012


Textbox2'e 110 yazdığımda; listbox1 aşağıdaki gibi görüntülensin

şişli.....................110................XX1...........20051011
şişli.....................110................XX2...........20051011

istiyorum. VBA koduna nasıl yazmalıyım.

Listbox1'de görüntülenenleri çıktı alabilmeliyim.

 

[zafer]

Merhaba

 

[mrt]

Teşekkür ederim.

 

[Haluk]

Merhaba;

Zafer arkadaşımın çözümüne alternatif olarak, ben de ekli dosyadaki DAO kullanılan çalışmamı öneriyorum.

  '************************************************************************
  '*        Veri tabani dosyasından DAO ile alınan ve kriterlere          *
  '*        gore sorgulanan verilerin UserForm uzerindeki ListBox         *
  '*        nesnesinde goruntulenmesi ve ListBox iceriginin               *
  '*        yazdirilmasi ile ilgili bir calismadir.                       *
  '*                                                                      *
  '*        Not:                                                          *
  '*        1) Kodların yer aldıgi projeye                                *
  '*           Microsoft DAO 3.6 Object Library eklenmelidir.             *
  '*        2) Verilerin oldugu sayfada "MyTable" adinda alan tanimlidir. *
  '*                                                                      *
  '*                     Burasi Excel Vadisi                              *
  '*                                                                      *
  '*                            Haluk ®                                   *
  '*                          20/01/2006                                  *
  '*                                                                      *
  '************************************************************************

 

[Haluk]

Tekrar merhaba;

Sayfada önceden tanımlanmış bir alan adı yerine, verilerin bulunduğu sayfa adının, Tablo Adı olarak kullanıldığı yeni versiyon, ektedir.

 

[Merhum İdris SERDAR]

Alternatif örnek te benden.