Populating a TextBox with the selected value of a ComboBox

[RunTime91]

I changed the IIf to a CASE



The below seems to work effectively (and efficiently)

But I remain convinced there is a better way - I just can't seem to find it.

Dim Period As String


Select Case Me.CmboSumResults


  Case "January"
    [Period] = "December"
    Case "February"
      [Period] = "January"
      Case "March"
        [Period] = "February"
        Case "April"
          [Period] = "March"
          Case "May"
            [Period] = "April"
            Case "June"
              [Period] = "May"
            Case "July"
              [Period] = "June"
          Case "August"
            [Period] = "July"
        Case "September"
          [Period] = "August"
      Case "October"
        [Period] = "September"
    Case "November"
      [Period] = "October"
  Case "December"
    [Period] = "November"
  
End Select

[davegri]

But I remain convinced there is a better way - I just can't seem to find it.

Well, code is code. Here's another way. Pass it your string month name from the combobox.

Public Function fcnGitmo(Mo As String) As String
    Dim nMo As Integer
    Dim sWork  As String
    Dim sList As String
    sList = "JanFebMarAprMayJunJulAugSepOctNovDec"
    sWork = Left(Mo, 3)
    nMo = InStr(sList, sWork)
    nMo = nMo \ 3 + 1
    nMo = IIf(nMo = 1, 12, nMo - 1)
    fcnGitmo = MonthName(nMo)
End Function

[pbaldy]

Sorry for the delay, yesterday was busy and today I feel blah. This is where I was headed in post 14, the 2 ending variables could be used in your SQL:

  Dim strMonth As String
  Dim intYear As Integer
  Dim strPrevMonth As String
  Dim intPrevYear As Integer
  Dim dteDate As Date
  Dim dtePrevDate As Date

  strMonth = Me.CmboSumResults.Column(0)
  intYear = Me.CmboSumResults.Column(1)
  dteDate = CDate(strMonth & "/1/" & intYear)

  dtePrevDate = DateAdd("m", -1, dteDate)

  strPrevMonth = Format(dtePrevDate, "mmmm")
  intPrevYear = Year(dtePrevDate)
  MsgBox strPrevMonth & " " & intPrevYear

davegri's method I'm sure works, but you'd also need to calculate year, though it would only be different when looking at January.