Başka Userform daki UserForm_Initialize Tetikleme

[facenoise]

Merhaba arkadaşlar,
Ekteki dosyamda stok programım var. Benim burada yapamadığım olay FrmVeri userform benim asıl formum ama asıl formumda Urün Ekle ye tıkladığımda zUrun adlı userform açılıyor ve yeni bir ürün ekliyorum.Ekledikten sonra Zurun kapattığım zaman FrmVeri deki Listbox ı yenileyemedim, daha doğrusu Zurun deki formun kaydet düğmesine basınca FrmVeri formundaki listbox ı yenielemek istiyorum bunun kodu nedir acaba?
İlginiz için şimdiden teşekkürler..

 

[İhsan Tank]

Merhaba arkadaşlar,
Ekteki dosyamda stok programım var. Benim burada yapamadığım olay FrmVeri userform benim asıl formum ama asıl formumda Urün Ekle ye tıkladığımda zUrun adlı userform açılıyor ve yeni bir ürün ekliyorum.Ekledikten sonra Zurun kapattığım zaman FrmVeri deki Listbox ı yenileyemedim, daha doğrusu Zurun deki formun kaydet düğmesine basınca FrmVeri formundaki listbox ı yenielemek istiyorum bunun kodu nedir acaba?
İlginiz için şimdiden teşekkürler..

Merhaba
Ürün ekle butonundaki kodu bununla

Private Sub CommandButton4_Click()
Unload FrmVeri
zUrun.Show
End Sub

ZUrun userform'unun kaydet butonundaki kodu

Private Sub CommandButton1_Click()
Dim Satır As Long, Say As Byte
    If TextBox1.Text = Empty Then
    MsgBox "Firma İsmi Boş Görünüyor", vbExclamation, "..::YusufPb::..": Exit Sub
    End If
    Worksheets("DATA").Select
    Set s1 = Sheets("DATA")
son1 = s1.[A65536].End(3).Row + 1
    s1.Cells(son1, 1) = son1 - 2
    s1.Cells(son1, 2) = TextBox1.Text
    s1.Cells(son1, 3) = TextBox2.Text
    s1.Cells(son1, 4) = ComboBox2.Text
     Worksheets("DATA").Select
    MsgBox "Kayıt İşlemi Tamamlanmıştır", vbExclamation, "..::YusufPb::.."
Range("A1").Select
Unload zUrun
FrmVeri.Show
End Sub

Bununla değiştirip dener misiniz_?

 

[facenoise]

@İhsan Tank, teşekkür ederim, kodunuz çalıştı ve gayet güzel..Ama ben Ürün Ekle düğmesine tıklayınca FrmVeri formunun kapanmasını istemiyorum, o şekilde olabilecek bir yöntem var mı acaba?

 

[ReBiwAr]

Merhaba,

Unload FrmVeri kodunu siliniz..

İyi Çalışmalar.

 

[İhsan Tank]

@İhsan Tank, teşekkür ederim, kodunuz çalıştı ve gayet güzel..Ama ben Ürün Ekle düğmesine tıklayınca FrmVeri formunun kapanmasını istemiyorum, o şekilde olabilecek bir yöntem var mı acaba?

Sayın Rebiwar'ın dediği gibi yapabilirsiniz ama bu o kodu orda tetiklemesini engeller. Tabi siz bilirsiniz. Bende size farklı bir yöntem teklif edeyim o zaman Zurun userform'unuzdaki kaydet butonuna diğer userform'un tetikleme kodunu yazın.
Frmveri userformunuzdaki ürün ekle butonuna

Private Sub CommandButton4_Click()
zUrun.Show
End Sub

Bu kodu yazın.
zUrun Userformunuzdaki kaydet butonundaki kodu bununla değiştirin.

Private Sub CommandButton1_Click()
Dim Satır As Long, Say As Byte
    If TextBox1.Text = Empty Then
    MsgBox "Firma İsmi Boş Görünüyor", vbExclamation, "..::YusufPb::..": Exit Sub
    End If
    Worksheets("DATA").Select
    Set s1 = Sheets("DATA")
son1 = s1.[A65536].End(3).Row + 1
    s1.Cells(son1, 1) = son1 - 2
    s1.Cells(son1, 2) = TextBox1.Text
    s1.Cells(son1, 3) = TextBox2.Text
    s1.Cells(son1, 4) = ComboBox2.Text
     Worksheets("DATA").Select
    MsgBox "Kayıt İşlemi Tamamlanmıştır", vbExclamation, "..::YusufPb::.."
Range("A1").Select
Unload zUrun
Dim k As Range, a As Long, j As Integer, ilk_adres As String
FrmVeri.ListBox1.ColumnCount = 3
FrmVeri.ListBox1.ColumnWidths = "25;100;30"
FrmVeri.ListBox1.RowSource = vbNullString
ReDim myarr(1 To 4, 1 To 1)
Set k = Range("B4:B65536").Find("*", , xlValues, xlWhole)
If Not k Is Nothing Then
    ilk_adres = k.Address
    Do
        a = a + 1
        ReDim Preserve myarr(1 To 4, 1 To a)
        For j = -1 To 1
            myarr(j + 2, a) = k.Offset(0, j).Value
        Next j
        myarr(4, a) = k.Row
    Set k = Range("B3:B65536").FindNext(k)
    Loop While k.Address <> ilk_adres And Not k Is Nothing
    FrmVeri.ListBox1.Column = myarr
    liste = FrmVeri.ListBox1.List
    FrmVeri.ListBox1.List = FrmVeri.sirala(liste)
    End If
End Sub