PASS comcobox name as public function

[sal21]

Code: Select all

Private Sub FILL_GIORNI()

    Dim myVar As String
    Dim StartDate As Date
    Dim EndDate As Date
    Dim ThisDate As Date

    myVar = MESE & "-" & ANNO

    StartDate = CDate(myVar)
    EndDate = DateAdd("d", -1, DateAdd("m", 1, StartDate))

    With Me.CGIORNO
        .Clear
        For ThisDate = StartDate To EndDate
            .AddItem UCase(Format$(ThisDate, "DDD")) & "-" & ThisDate
        Next
    End With

End Sub

how to use in this code to pass the name of a combobox?

similar:
FILL_GIORNI(cmycombobox)

[HansV]

Code: Select all

Sub FILL_GIORNI(ctl As String)

    Dim myVar As String
    Dim StartDate As Date
    Dim EndDate As Date
    Dim ThisDate As Date

    myVar = MESE & "-" & ANNO

    StartDate = CDate(myVar)
    EndDate = DateAdd("d", -1, DateAdd("m", 1, StartDate))

    With Controls(ctl)
        .Clear
        For ThisDate = StartDate To EndDate
            .AddItem UCase(Format$(ThisDate, "DDD")) & "-" & ThisDate
        Next
    End With

End Sub

[SpeakEasy]

>pass the name of a combobox

Why do you want to pass the name rather than the combobox itself?

[sal21]

Code: Select all

Sub FILL_GIORNI(ctl As String)

    Dim myVar As String
    Dim StartDate As Date
    Dim EndDate As Date
    Dim ThisDate As Date

    myVar = MESE & "-" & ANNO

    StartDate = CDate(myVar)
    EndDate = DateAdd("d", -1, DateAdd("m", 1, StartDate))

    With Controls(ctl)
        .Clear
        For ThisDate = StartDate To EndDate
            .AddItem UCase(Format$(ThisDate, "DDD")) & "-" & ThisDate
        Next
    End With

End Sub