textbox tan Listboxa veri aktarımı

[yoguz]

Ekteki örnekte Listbox ve textbox diye iki ayrı bölüm var. listbox tan seçilen kayıt istenilen tabloya aktarma işlemini Sevgili ozanakkaya nın yardımı ile yaptık. textbox bölümünden ismin harfini girerek aramayı başlatıp listboxa sadece aynı adlı kişileri yada harf benzeri kişileri getirtip aramayı hızlandırmak mümkünmü.

 

[yoguz]

Arkadaşlar takıldığım problemin çozümlenmesi bu kadar zormu yoksa anlatımdamı hata yaptım bilgi verirseniz boşuna uğraşmayayım

 

[Taruz]

Merhaba..

Listeye bağlı sorguya arama yapacağınız harfleri girdiğiniz kutuyu ölçüt göstermemişsiniz.. Sorun bu.. Tabii birde isme göre arayacağımız için ilişkili sütunu Adi alanına bağlıyoruz..

 

[yoguz]

Sayın Taruz merhaba;
Örnektede gördüğünüz gibi uygulamaya çalıştığım sizin telefon rehberindeki hızlı arama örnegidir. Siz programınızda makroyu kullanarak bilgi çağırma işini uygulamışsınız. Düzeltme yaptığınız yere kadar gelebiliyordum fakat İsimlerin bulunduğu listedeki isimlere tıkladığımda Tabloya o isme ait bilgileri aktaramıyorum. Bu konuda yardımcı olabilirmisiniz. Teşekkür ederim

 

[Taruz]

Merhaba..

Tabloya aktarmaktan kastettiğiniz nedir anlamadım.. Tabloda o kayıtlar var ki listede görünüyor.. Siz, listeyi tıkladığınızda ilgili kaydı başka bir formda göstermeyi mi amaçlıyorsunuz yoksa?..

 

[yoguz]

sn Taruz selam..
Hazıramış olduğunuz örneğinize ek olarak;
Liste üzerindeki isme tıkladığımda açık olan form üzerine kişi bilgilerininde getirilmesi.
Ayrıca zor olmassa (kodunuda belirtseniz olur) liste üzerindeki isme çift tıkladığımda baska bir formun açılması
ilginizden dolayı teşekkür ederim.

 

[modalı]

sn Taruz selam..
Hazıramış olduğunuz örneğinize ek olarak;
Liste üzerindeki isme tıkladığımda açık olan form üzerine kişi bilgilerininde getirilmesi.
Ayrıca zor olmassa (kodunuda belirtseniz olur) liste üzerindeki isme çift tıkladığımda baska bir formun açılması
ilginizden dolayı teşekkür ederim.

Sayın yoguz,

Dim BulNo As Variant
Dim frm As Form
    On Error GoTo Gozardi
For Each frm In Forms
    If frm.Name = "frmÖğrenciBilgi" Then
        GoTo cikis
    End If
Next frm
cikis:
    BulNo = Val(Me![Liste0])
    frm.RecordsetClone.FindFirst "[Öğrenci No]=" & Str(BulNo)
    frm.Bookmark = frm.RecordsetClone.Bookmark
    DoCmd.Close acForm, "frmOgrenciYardim"
Exit Sub
Gozardi:
    DoCmd.Close acForm, "frmOgrenciYardim"

Yukarıda frmÖğrenciBilgi diye bir form var ve öğrenci bilgilerini içeriyor. Bir öğrenci arama formum var onun adı da frmOgrenciYardim.

Öğrenci yardım formunda bir liste var ve bu listede öğrenci nosu adı ve soyadı var. Liste kutusunun ilişkili sütunu 1 ve burada öğrenci numaraları var.

Düğümeye klik olayı ile form açma ise:

On Error GoTo Err_Ders_Ekle_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "frmDersler"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Ders_Ekle_Click:
    Exit Sub
Err_Ders_Ekle_Click:
    MsgBox Err.Description
    Resume Exit_Ders_Ekle_Click

İyi çalışmalar

 

[yoguz]

sn modalı tesekkur ederim deniyecegim ..

 

[yoguz]

Sayın modalı merhaba ;

Gönderdiginiz kodları denedim çalıştırdım klik olayı ile form açma işimi gördü.
Fakat ornektede acıklama yazdıgım gibi calisanlar formu acik oldugunda listeden isim secerek listedeki ismin bilgilerini acık olan formun metin kutularına doldurtamıyorum.

 

[Taruz]

Merhaba..

Liste üzerindeki isme tıkladığınızda ilgili kaydın gelmesi olayının örneğinize uygulanmış hali ektedir..

 

[yoguz]

sn taruz ilginiz ve emeğiniz için çok teşekkür ederim.