Userform2 çağrıldığında tamama basınca userform1 kapansın yada initalizesi çalışsın

[hsayar]

Private Sub UserForm_Initialize()                                                                '||
Mdl_00_Acls.DegiskenAl                                                   'genel değişkenleri oku '||
YeniSatis = True                                         'Açılışta yeni satış kaydı yapmayı açtık'||
YeniAlis = True                                         'Açılışta yeni satış kaydı yapmayı açtık'||
'------------------------------------------------------------------------------------------------<<<
DTPicker1.Value = Format(CDate(Date), "dd/mm/yyyy")                        'bugünün tarihini oku '||
'------------------------------------------------------------------------------------------------<<<
[B]Call Ayb_Kont                                           [/B]'ayın biri ise/değilse yapılcak işlmeler '||
...............

Sub Ayb_Kont()
Mdl_00_Acls.DegiskenAl                                                   'genel değişkenleri oku '||
'işlem tarihini kontrol et, ayın biri değilse
    If Day(DTPicker1.Value) = 1 And ckBU_sfDVR.Cells(5, "f").Value = "" Then
       cevap = MsgBox("Devir alınacak değerler boş, lütfen tamamlayınız", vbOKCancel + vbQuestion)
        If cevap = vbOK Then
[B]            Uf_Aybs.Show[/B]
        Else
            Exit Sub
        End If
    ElseIf ckBU_sfDVR.Cells(5, "f").Value <> "" Then
        
        If Year(DTPicker1.Value) <> ckBU_sfYIL.Cells(1, "A") Then
            MsgBox ckBU_sfYIL.Cells(1, "A") & " yılı haricinde işlem yapamazsınız"
            DTPicker1.SetFocus
            Exit Sub
        End If
    
        If Month(DTPicker1.Value) <> Month(ckBU_sfAYL.Cells(1, "A")) Then
            MsgBox Month(ckBU_sfAYL.Cells(1, "A")) & ".ay haricinde işlem yapamazsınız"
            DTPicker1.SetFocus
            Exit Sub
        End If
    End If
End Sub

normalde açılırken ayın 1 ise uf_aybs formunu çağırıyorum... ancak bazen iptal deyip çıkarsan yeniden dtpickerle ayın 1 imi çağırıp değerleri giriyorum ancak sorun şu;

eğer açıksa 1. sini kapatsın ikincisini açsın
ikincisinde tamama basınca ikinci kapansın 1. açılsın ada
kestirmeden userform_initalize çalışsın

 

[isfa5878]

iyi anlayamadım ama...

commandbutton click()

unload me
userform2.show
end sub


veya 2. forma
ıniatilize()
unload userform1
end sub

gibi mi ?

 

[hsayar]

birinci öneriizi denemiştim.. ikincisini deneyeyim.
teşekkürler