Form_Load Event issue

[Avatarp]

I have a form that has a lot of code in the Form_Load event. The problem is my form only shows after the code runs. How could I have the Form show at a certain stage in my code.

I tried the DoEvents command...

Is there even a way I can do this or do I need to setup something else?

[Andrew G]

Show

or

Me.Show

and put that when you want it to show.

[jcis]

I have a form that has a lot of code in the Form_Load event. The problem is my form only shows after the code runs. How could I have the Form show at a certain stage in my code.
I tried the DoEvents command...
Is there even a way I can do this or do I need to setup something else?

You can always..

Private Sub Form_Load()
    Me.Show
    'Your Form_Load code..
End Sub

[Avatarp]

i did that but none of my code runs

Private Sub Form_Load()
    Dim Activation_Status_String As String
    Me.Show 1
    chkActive.Value = IIf(GetSetting("IntelliSchedule", "Weekend_Scheduling_Form_Controls", "ShowActiveEmps") = "", 1, GetSetting("IntelliSchedule", "Employees_Form_Controls", "ShowActiveEmps"))
    chkShowLeave.Value = IIf(GetSetting("IntelliSchedule", "Weekend_Scheduling_Form_Controls", "ShowLeaveEmps") = "", 1, GetSetting("IntelliSchedule", "Employees_Form_Controls", "ShowLeaveEmps"))
    chkShowInactive.Value = IIf(GetSetting("IntelliSchedule", "Weekend_Scheduling_Form_Controls", "ShowInactiveEmps") = "", 1, GetSetting("IntelliSchedule", "Employees_Form_Controls", "ShowInactiveEmps"))
 
    DoEvents
    
    DTPickerWeekend(0).Value = CDate("01/01/" & Year(Now))
    DTPickerWeekend(1).Value = CDate("12/31/" & Year(Now))
    Call Populate_Department_Combobox(comboboxTeamView)
    comboboxTeamView.ListIndex = 0
'    Activation_Status_String = Create_Activation_Status_String(chkActive, chkShowLeave, chkShowInactive)
'    Call Populate_Employee_List(comboboxTeamView.Text, lstVwEmployees, Activation_Status_String)
 
    Call Set_Employee_Weekend_Grid
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '   Auto Populate Employee Grid
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Call Populate_Employee_Weekend_Grid_Names(comboboxTeamView.Text)
    Call Populate_Employee_Weekend_Grid_Days(comboboxTeamView.Text, DTPickerWeekend(0).Value, DTPickerWeekend(1).Value)
 
End Sub

[jcis]

Maybe becuase you are showing it Modally, if you do it modally the code after show 1 won't be executed until the Form closes

[Andrew G]

Use only

Me.Show

so it doesn't show as modal.

[Avatarp]

hmm so no way to do this if it is modal?

[Andrew G]

If another form is opening it then use

Form1.Show VbModal, Me

[jcis]

Yes, put that code in Form_Activate() event, so it will be executed after your Form is already visible.
And remove the Me.Show from there, use Form.Show 1 in the Form that call this one, as Andrew G said.