I Have written the Following Code:
Private Sub Form_Activate()
Dim x As Integer
Dim m As Integer
m = Month(Date)
With Me.cmbShip01
Me.cmbShip01.Value = Null
For x = m To 12
.AddItem MonthName(x)
Next
End With
End Sub
This Populates Month Names from the Current Month Till December or MonthName(12)
What i want is to Show only Six Months from current Month i.e from September 2019 i want to show Till March 2020.
Can Anyone Help
Private Sub Form_Activate()
Dim x As Integer
Dim m As Integer
m = Month(Date)
With Me.cmbShip01
Me.cmbShip01.Value = Null
For x = m To 12
.AddItem MonthName(x)
Next
End With
End Sub
This Populates Month Names from the Current Month Till December or MonthName(12)
What i want is to Show only Six Months from current Month i.e from September 2019 i want to show Till March 2020.
Can Anyone Help