İkinci Userformun İnitalize olayını tetikleme

[mehmetkoca]

Değerli arkadaşlar ;

Userform1 üzerindeyken Userform2 nin initalize olayını tetiklemek için nasıl bir kod yazmak gerekir.

Yardımlarınız için teşekkürler..

 

[mehmetkoca]

Yardımcı olabilirmisiniz değerli üstadlar..

 

[uzmanamele]

Merhaba

Nasıl bir şey istiyorsunuz ki?, sorunuzdan anlaşılmıyor.
Mesela userform1 üzerine buton koyup buradan Userform2.show demek gibi bir şey mi?

 

[mehmetkoca]

Sayın Uzmanamele ;
Userform1 'in initalize olayında listviewle ilgili kodlarım var.Userform 2 üzerinde ise sayfaya kayıt işlemi yapıyorum.Fakat kayıt işlemi yapınca listview güncellenmiyor.Bu yüzden Call Userform1 initalize gibi bir kodla sayfaya yapılan kaydın listviewde görünmesi-güncellenmesi olsun diye bu userform1 in initalize olayını çözüm olarak düşündüm.
Userform 1 in initalize kodları aşağıdadır.

belki sizin farklı bir önerinizde olabilir.

Private Sub UserForm_Initialize()
ListView1.ColumnHeaders.Clear
With ListView1.ColumnHeaders
.Add , , "NO", 20, 0
.Add , , "FİRMA ADI", 130, 0
.Add , , "İLGİLİ KİŞİ", 90, 0
.Add , , "ŞEHİR", 60, 0
.Add , , "İLÇE", 60, 0
.Add , , "TELEFON 1", 72, 0
.Add , , "TELEFON 2", 72, 0
.Add , , "DAHİLİ", 40, 0
.Add , , "CEP TLF 1", 72, 0
.Add , , "CEP TLF 2", 72, 0
.Add , , "FAKS", 72, 0
.Add , , "E-MAİL", 100, 0
.Add , , "ADRES", 200, 0


End With

ListView1.ListItems.Clear
On Error Resume Next

For i = 4 To [a65536].End(3).Row
Set liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
liste.SubItems(1) = Cells(i, 2).Value
liste.SubItems(2) = Cells(i, 3).Value
liste.SubItems(3) = Cells(i, 4).Value
liste.SubItems(4) = Cells(i, 5).Value
liste.SubItems(5) = Cells(i, 6).Value
liste.SubItems(6) = Cells(i, 7).Value
liste.SubItems(7) = Cells(i, 8).Value
liste.SubItems(8) = Cells(i, 9).Value
liste.SubItems(9) = Cells(i, 10).Value
liste.SubItems(10) = Cells(i, 11).Value
liste.SubItems(11) = Cells(i, 12).Value
liste.SubItems(12) = Cells(i, 13).Value

Next i
End Sub

 

[mehmetkoca]

Üstad bakabildinizmi?

 

[HAKANP]

Arkadaşlar bu sorun bende de oluştu şu an. Cevap verilememiş bir sebepten dolayı belli ama, çözümü bende de aciliyet uyandırdı
Yardımcı olabilecek bir arkadaş var ise süper olacak

 

[Korhan Ayhan]

Merhaba,

Kayıt işleminden sonraki aşamada (aynı butonun altına) UserForm_Initialize() olayındaki kodları eklerseniz güncellenen kayıtlar listede yenilenmiş olur.

Örnek yukarıdaki koddaki aşağıdaki satırı;

ListView1.ColumnHeaders.Clear

Bunun gibi yazmalısınız;

UserForm1.ListView1.ColumnHeaders.Clear

 

[HAKANP]

Teşekkürşer deneyeceğim

 

[snx111]

50 karater sınırı var sanıyordum