VB Code to Call Userform in Userform

Greetings!

Hello, I wonder if what code should I use to call another userform inside a userform. It keeps prompting me an error when I tried to insert a userform.show in a click event. here is the example.

this is the code to call the main userform

Private Sub CommandButton4_Click()
    frmSRStat.Show
End Sub

then this userform will appear.

Attachment 146862

here is the code for this main userform

Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub cmdSelect_Click()
Sheets("Group SR").Range("N1") = ComboBox1.Value
If ComboBox1.Value = "ALL STATUS" Then
Sheets("Group SR").Range("N1") = ""
End If
Unload Me
End Sub

Private Sub Image1_Click()
frmCalendar.Show
End Sub

Private Sub TextBox1_Change()
Calendar1.Value
End Sub

Private Sub UserForm_Initialize()
With ComboBox1
    .Value = "ALL STATUS"
    .AddItem "ALL STATUS"
    .AddItem "ACTIVATED-CONFIRMED"
    .AddItem "ACTIVATED-QA"
    .AddItem "ESCALATED NPSD SOC BRO"
    .AddItem "ESCALATED NPSD SOC BRO - PREMIUM"
    .AddItem "ESCALATED_NPSD_CRG"
    .AddItem "ESCALATED-KSP"
    .AddItem "FEEDBACK"
    .AddItem "FOR_DEPLOYMENT"
    .AddItem "FOR_RESCHEDULING"
    .AddItem "OPEN"
    .AddItem "SCHEDULED-RESCHEDULED"
End With
End Sub

then in escalation date field. i will click the small calendar image so that the second userform will appear. but upon clicking, it will prompt me an error that says object required.

Attachment 146861

i tried to insert the line frmCalendar.Show(name of the second userform) in Private Sub Image1_Click() event then the error now prompts. I don't know how to call the second userform inside the main userform.

Check to see if the properties of the userforms > Show Modal is set to false.

Show Modal is all set to True.

perhaps if you could try to open the workbook and execute the codes, maybe you could help me identify what is the problem.

Attachment 146867

Hello Stonesteel15 ,

You will need to repost your workbook without the VBA Project being protected.

Hello Stonesteel15 ,

Please see if the WorkBook now does what you want.

Originally Posted by Winon

Hello Stonesteel15 ,

Please see if the WorkBook now does what you want.

Hi Winon, your code works, may I ask what in those codes did you changed for the calendar to show? upon comparing, there seems no change in the code. also i forgot to ask, what code should I use in the textbox so that when I changed the date, the value in the textbox will also change.

Originally Posted by Stonesteel15

Hi Winon, your code works, may I ask what in those codes did you changed for the calendar to show? upon comparing, there seems no change in the code. also i forgot to ask, what code should I use in the textbox so that when I changed the date, the value in the textbox will also change.

OK I got it, it seems that the changes made was in the Initialize part of the code, and also I got to make the date appear in the textbox whenever I select date.

Thank You guys for the assistance. You are such a big help to the community :D

See my calendar form example here, it has an example of what you want

Originally Posted by royUK

See my calendar form example here, it has an example of what you want

Hi royUK, hmm thank you for the suggestion but as much as possible I don't want to insert add ins to the workbook since I will be disseminating this workbook to the company. and not all users had a permission to modify their workstations.

I wasn't referring to the addin, the CalendarForm example is what I meant

oh shoots, I'm sorry, I didn't notice the sentence describing the form. :D

Hello Stonesteel15 ,

I would gladly assist as far as I can, but the vba project is password protected, and I cannot go any further than what I had sent you. As Leith Ross has asked,

You will need to repost your workbook without the VBA Project being protected

or you will have to send me the Password.

oh wait, I didn't notice it, and can I request again. I thought it was finished already but I still have another problem, the textbox is displaying the date I selected, yes, but when I close the form and open it again, the value in the textbox return to the current date, can you guys assist me how to edit that part, that when I close the form and when I opened it again, the value in the textbox should be the date what I selected before. here is the form.

Attachment 146882

hi
try this..

Private Sub UserForm_Initialize()
    With ComboBox1
        .Value = Range("N1")
        .AddItem "ALL STATUS"
        .AddItem "ACTIVATED-CONFIRMED"
        .AddItem "ACTIVATED-QA"
        .AddItem "ESCALATED NPSD SOC BRO"
        .AddItem "ESCALATED NPSD SOC BRO - PREMIUM"
        .AddItem "ESCALATED_NPSD_CRG"
        .AddItem "ESCALATED-KSP"
        .AddItem "FEEDBACK"
        .AddItem "FOR_DEPLOYMENT"
        .AddItem "FOR_RESCHEDULING"
        .AddItem "OPEN"
        .AddItem "SCHEDULED-RESCHEDULED"
    End With
    Me.TextBox1.Value = Range("L1").Value
End Sub

There you go!

Originally Posted by Winon

There you go!

got it, thank you very much Winon.

thanks john, I was about to post that I already got it, and we have the same solution. Thank you guys, thank you guys.

Private Sub UserForm_Initialize()
    With ComboBox1
        .Value = Range("N1")
        .AddItem "ALL STATUS"
        .AddItem "ACTIVATED-CONFIRMED"
        .AddItem "ACTIVATED-QA"
        .AddItem "ESCALATED NPSD SOC BRO"
        .AddItem "ESCALATED NPSD SOC BRO - PREMIUM"
        .AddItem "ESCALATED_NPSD_CRG"
        .AddItem "ESCALATED-KSP"
        .AddItem "FEEDBACK"
        .AddItem "FOR_DEPLOYMENT"
        .AddItem "FOR_RESCHEDULING"
        .AddItem "OPEN"
        .AddItem "SCHEDULED-RESCHEDULED"
    End With
    With TextBox1
        .Value = Range("L1").Value
    End With

hello guys,
Stonestell15, I did not know that you already have it!
Winon, hehehehhe... how r u?
sorry man, I did not see you r online! ...too many unknown things!

I am marking the thread as [SOLVED]

thank you guys for your big help.

You are welcome!