[Yardım]  Listview'den Listview'e Veri Aktarma

Listeleme kutusu. Verileriniz klasör ve dosyalarınızı görsel olarak kontrol edebileceğiniz bir nesne modeli.

Listview'den Listview'e Veri Aktarma

İleti#1)  Tasarım » 10 Şub 2020 19:50

Arkadaşlar merhaba,
Forumu uzun zamandır araştırıyorum ve sürekli takip ediyorum. Sizlerim yardımıyla bir program hazırlamaya çalışıyorum. İsteği şöyle:
Programda iki adet userform var ve ikisi de üst üste açık durumda, aktif userformda bulunan Listview'de seçili bulunan satıra çift tıkladığımda satırdaki bilgilerin alttaki userformda bulunan textboxlara nasıl aktarabilirim.?
Not: Her iki userformda bulunan satır sayıları aynı.

Yardımlarınızı bekliyorum.
Kullanıcı avatarı
Tasarım
 
Kayıt: 01 Haz 2015 08:33
Meslek: Devlet Memuru
Yaş: 51
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Afyonkarahisar

Cevap: Listview'den Listview'e Veri Aktarma

İleti#2)  ahmetilhan282 » 11 Şub 2020 20:01

dosyanızı ekleyebilir misiniz?
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 30
İleti: 903
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Cevap: Listview'den Listview'e Veri Aktarma

İleti#3)  Ömer BARAN » 11 Şub 2020 21:23

Merhaba.

Listview kullanamıyorum.
Ekteki belgede benzer bir işlem Listbox ile yapılıyor durumda.

İyi çalışmalar.
UserFormdan_UserForma.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
☾✭ İnadına TÜRKÇE ✭☽

Sorularınızı bana https://www.ExcelDestek.Com 'dan da sorabilirsiniz.




.
Kullanıcı avatarı
Ömer BARAN
Siteye Alışmış
 
Adı Soyadı:ÖMER BARAN
Kayıt: 29 Oca 2013 16:17
Konum: ANKARA
Meslek: EMEKLİ
Yaş: 56
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA / ÇANKAYA

Cevap: Cevap: Listview'den Listview'e Veri Aktarma

İleti#4)  Tasarım » 13 Şub 2020 10:50

ahmetilhan282 yazdı:dosyanızı ekleyebilir misiniz?


Dosyayı ekledim.
Yapmak istediğim raporlama bölümünden herhangi bir ismin üzerine tıkladığımda bilgilerin diğer ana formdaki ilgili yerlere aktarılmasını istiyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Tasarım
 
Kayıt: 01 Haz 2015 08:33
Meslek: Devlet Memuru
Yaş: 51
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Afyonkarahisar

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Listview'den Listview'e Veri Aktarma

İleti#5)  Tasarım » 13 Şub 2020 12:49

Kod: Tümünü seç
Private Sub RpListe_DblClick()
With frmRapor.RpListe
frmDatabase.cmbAdi = .ListItems(.SelectedItem.Index).SubItems(1)
frmDatabase.txtTC = .ListItems(.SelectedItem.Index).SubItems(2)
    frmDatabase.txtEmekli = .ListItems(.SelectedItem.Index).SubItems(3)
    frmDatabase.txtTelefon = .ListItems(.SelectedItem.Index).SubItems(4)
    frmDatabase.txtBaba = .ListItems(.SelectedItem.Index).SubItems(5)
    frmDatabase.txtAna = .ListItems(.SelectedItem.Index).SubItems(6)
    frmDatabase.txtDerece = .ListItems(.SelectedItem.Index).SubItems(7)
    frmDatabase.cmbGorevi = .ListItems(.SelectedItem.Index).SubItems(8)
    frmDatabase.cmbBransi = .ListItems(.SelectedItem.Index).SubItems(9)
    frmDatabase.cmbGeldigi_Il = .ListItems(.SelectedItem.Index).SubItems(10)
    frmDatabase.cmbGeldigi_Ilce = .ListItems(.SelectedItem.Index).SubItems(11)
    frmDatabase.txtGeldigi_Okul = .ListItems(.SelectedItem.Index).SubItems(12)
    frmDatabase.cmbAtandigi_Okul = .ListItems(.SelectedItem.Index).SubItems(13)
    frmDatabase.txtBaslama = .ListItems(.SelectedItem.Index).SubItems(14)
    frmDatabase.cmbGittigi_Il = .ListItems(.SelectedItem.Index).SubItems(15)
    frmDatabase.cmbGittigi_Ilce = .ListItems(.SelectedItem.Index).SubItems(16)
    frmDatabase.txtGittigi_Okul = .ListItems(.SelectedItem.Index).SubItems(17)
    frmDatabase.txtAyrilma = .ListItems(.SelectedItem.Index).SubItems(18)
End With
End Sub


Neyse arkadaşlar sorunumu kendi imkanlarımla yukarıdaki kodla çözdüm. Belki başka bir arkadaşın işine yarar diye kodları buraya ekledim.
Kullanıcı avatarı
Tasarım
 
Kayıt: 01 Haz 2015 08:33
Meslek: Devlet Memuru
Yaş: 51
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Afyonkarahisar

Cevap: Listview'den Listview'e Veri Aktarma

İleti#6)  ıslakates » 13 Şub 2020 14:40

bu kodları (frmRapor) formunuza ekleyiniz

Private Sub RpListe_DblClick()
On Error Resume Next
With frmDatabase.lstDatabase
frmDatabase.cmbAdi = .ListItems(.SelectedItem.Index).SubItems(1)
frmDatabase.txtTC = .ListItems(.SelectedItem.Index).SubItems(2)
frmDatabase.txtEmekli = .ListItems(.SelectedItem.Index).SubItems(3)
frmDatabase.txtTelefon = .ListItems(.SelectedItem.Index).SubItems(4)
frmDatabase.txtBaba = .ListItems(.SelectedItem.Index).SubItems(5)
frmDatabase.txtAna = .ListItems(.SelectedItem.Index).SubItems(6)
frmDatabase.txtDerece = .ListItems(.SelectedItem.Index).SubItems(7)
frmDatabase.cmbGorevi = .ListItems(.SelectedItem.Index).SubItems(8)
frmDatabase.cmbBransi = .ListItems(.SelectedItem.Index).SubItems(9)
frmDatabase.cmbGeldigi_Il = .ListItems(.SelectedItem.Index).SubItems(10)
frmDatabase.cmbGeldigi_Ilce = .ListItems(.SelectedItem.Index).SubItems(11)
frmDatabase.txtGeldigi_Okul = .ListItems(.SelectedItem.Index).SubItems(12)
frmDatabase.cmbAtandigi_Okul = .ListItems(.SelectedItem.Index).SubItems(13)
frmDatabase.txtBaslama = .ListItems(.SelectedItem.Index).SubItems(14)
frmDatabase.cmbGittigi_Il = .ListItems(.SelectedItem.Index).SubItems(15)
frmDatabase.cmbGittigi_Ilce = .ListItems(.SelectedItem.Index).SubItems(16)
frmDatabase.txtGittigi_Okul = .ListItems(.SelectedItem.Index).SubItems(17)
frmDatabase.txtAyrilma = .ListItems(.SelectedItem.Index).SubItems(18)
End With
End Sub
Kullanıcı avatarı
ıslakates
Yeni Başlamış
 
Adı Soyadı:asa asax
Kayıt: 08 Eyl 2012 08:59
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sivas

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum ListView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe