Code: Select all
i call with:
Private Sub CANNI1_Click()
FILL_MESI Me.CMESE1
End sub
Function FILL_MESI(CBX As ComboBox)
With Me.CBX<<<< error here
.Clear
.AddItem "5-MAGGIO"
.AddItem "6-GIUGNO"
.AddItem "7-LUGLIO"
.AddItem "8-AGOSTO"
.AddItem "9-SETTEMBRE"
End With
End Function