Istenen bilgiyi gösterme(combobox-textbox)

[muratozmenler]

Iyi akşamlar...
Ilgili bölümler seçildikten sonra istenen bilginin farklı sayfalardan gelmesini nasıl sağlarız..örnek vererek dosyada açıkladım...

 

[muratozmenler]

yardımcı olabilecek yokmu....

 

[muratozmenler]

buna benzer bir uygulamada olur

 

[Husgvarna]

Aşağıdaki dosyayı inceleyin.

 

[muratozmenler]

öncelikler teşekkür ederim...
tüm merkezler seçildiği zaman istenilen bilgiyi getirmesi tam istediğim gibi fakat ilçe adına göre arama yapıldığında örneğin ilçe adı merkez, merkez adı avrupakent seçildiğinde ac sayfasındaki bilgiler gelmemekte.....

 

[Husgvarna]

Yukarıdaki dosya değiştirildi; onu deneyin.

 

[muratozmenler]

çok teşekkür ederim yardımlarınız için...

 

[Ergün Güler]

Aşağıdaki dosyayı inceleyin.

Sayın Husgvarna,
çözümünüzü bende inceledim. ellerinize sağlık. Combobox'ta veriler benzersiz sıralanabiliyor. Peki alfabetik nasıl sırayabiliriz?
İyi çalışmalar.

 

[siyahim]

hocam userformda multipage üzerinde 6 tane sayfa var ben genel sayfasında combobox tan seçim yaptığımda genel sayfasına bilgiler textbox lara geliyor ama diğer sayfalara koşula göre gereken bilgiler gelmiyor nasıl yapabiliriz yardımınız için şimdiden teşekkürler

 

[Husgvarna]

çok teşekkür ederim yardımlarınız için...

Rica ederim kolay gelsin.

Sayın Husgvarna,
çözümünüzü bende inceledim. ellerinize sağlık. Combobox'ta veriler benzersiz sıralanabiliyor. Peki alfabetik nasıl sırayabiliriz?
İyi çalışmalar.

OptionButton altındaki kodları şöyle değiştiriniz.

Private Sub OptionButton1_Click()
ComboBox1.Clear
ComboBox2.Clear

Const adVarChar = 200
Const MaxCharacters = 255
Dim R As Integer
Set veri = CreateObject("ADOR.Recordset")
veri.Fields.Append "Liste", adVarChar, MaxCharacters
veri.Open
For R = 2 To [A65536].End(3).Row
If WorksheetFunction.CountIf(Range("b2:b" & R), Cells(R, "b")) = 1 Then
veri.AddNew
veri("Liste") = Cells(R, 2).Value
veri.Update
End If
Next R
veri.Sort = "Liste"
veri.MoveFirst
Do Until veri.EOF
ComboBox1.AddItem veri.Fields.Item("Liste")
veri.MoveNext
Loop
Set veri = Nothing
End sub

hocam userformda multipage üzerinde 6 tane sayfa var ben genel sayfasında combobox tan seçim yaptığımda genel sayfasına bilgiler textbox lara geliyor ama diğer sayfalara koşula göre gereken bilgiler gelmiyor nasıl yapabiliriz yardımınız için şimdiden teşekkürler

Örnek dosya eklermisiniz.