Run Time Error 13 when compare two string formats help

[accessvbanewbie]

All I am trying to do is based on month value of date typed in 2 unbound form text boxes assign it to summer,winter or mixseason.

I am getting a runtime erro 13 from the statement below.

When I debug both mStart and strJan etc(months) appear as string. I am not sure

where I am going wrong. Please help

Private Sub txtSeason_Click()



Dim mStart As String
Dim mEnd As String

Dim strJan As String
Dim strFeb As String
Dim strMar As String
Dim strApr As String
Dim strMay As String
Dim strJun As String
Dim strJul As String
Dim strAug As String
Dim strSep As String
Dim strOct As String
Dim strNov As String
Dim strDec As String


strJan = "Jan"
strFeb = "Feb"
strMar = "Mar"
strApr = "Apr"
strMay = "May"
strJun = "Jun"
strJul = "Jul"
strAug = "Aug"
strSep = "Sep"
strOct = "Oct"
strNov = "Nov"
strDec = "Dec"


mStart = Format(txtmStartDate.Value, "mmm")


mEnd = Format(txtmEndDate.Value, "mmm")

'IF MONTHSTART AND MONTHEND IN WINTER MONTHS
If ((CStr(mStart) = (strJan) Or (strFeb) Or (strMar) Or (strApr) Or (strNov) Or (strDec))) And ((CStr(mEnd)) = (strJan) Or (strFeb) Or (strMar) Or (strApr) Or (strNov) Or (strDec))) Then
txtSeason.Value = "Winter"

'MONTHSTART AND MONTHEND IN SUMMER MONTHS
ElseIf (CStr(mStart)) = (strMay) Or (strJun) Or (strJul) Or (strAug) Or (strSep) Or (strOct)) And (CStr(mEnd)) = (strMay) Or (strJun) Or (strJul) Or (strAug) Or (strSep) Or (strOct)) Then

txtSeason.Value = "Summer"

'Else MONTH END AND MONSTART NOT EQUAL SAME
'txtSeason = "MixSeason"
End If

[nico5038]

Hmm, this testing will only work for a period less or equal to half a year.
E.g. Jan 2007 till Jan 2008 should be mixed I guess...

Better to start with testing the number of months between the start and end. > 6 is always mixed.

Next you could use:

IF datediff("M",Me.txtDateFrom,Me.txtDateTo) > 6 then
  Me.txtSeason= "MixSeason"
ELSE
  IF Month(DateFrom) between 11 and 12 or Month(DateFrom) between 1 and 4 then
     ' possibly winter
    IF Month(DateTo) between 11 and 12 or Month(DateTo) between 1 and 4 then
      Me.txtSeason= "Winter"
    else
      Me.txtSeason= "MixSeason"
    end if
  else
    ' possibly summer
    IF Month(DateTo) between 5 and 10 then
      Me.txtSeason= "Summer"
    else
      Me.txtSeason= "MixSeason"
    end if
  end if
end if
 

Getting the idea ?

Nic;o)

[missinglinq]

A major flaw with your code is your comparison syntax.

If ((CStr(mStart) = (strJan) Or (strFeb) Or (strMar)...

needs to be

If ((CStr(mStart) = (strJan) Or CStr(mStart) = (strFeb) Or CStr(mStart) = (strMar)...

and so forth.

Welcome to Bytes!

Linq ;0)>