Runtime error
Hej igen.Jeg fik lavet noget kode herinde som også virkede fint, indtil idag. Nu får jeg en fejl "Runtime error 13: Type mismatch". Jeg vælger så debug og kan se at fejlen åbenbart opstår der hvor der står "Select Case CInt(Me.OpenArgs)".
Hvad er der sket ???
Her er hele koden:
Private Sub Form_Load()
Dim dStart As Date
Dim dEnd As Date
Dim iYear As Integer
If Not IsNull(Me.OpenArgs) Then
iYear = Forms!kvartal!periode
Select Case CInt(Me.OpenArgs)
Case 1
dStart = Format(iYear & "-01-01", "yyyy-mm-dd")
dEnd = Format(iYear & "-03-31", "yyyy-mm-dd")
Case 2
dStart = Format(iYear & "-04-01", "yyyy-mm-dd")
dEnd = Format(iYear & "-06-30", "yyyy-mm-dd")
Case 3
dStart = Format(iYear & "-07-01", "yyyy-mm-dd")
dEnd = Format(iYear & "-09-30", "yyyy-mm-dd")
Case 4
dStart = Format(iYear & "-10-01", "yyyy-mm-dd")
dEnd = Format(iYear & "-12-31", "yyyy-mm-dd")
Case 5
dStart = Format(iYear & "-01-01", "yyyy-mm-dd")
dEnd = Format(iYear & "-06-30", "yyyy-mm-dd")
Case 6
dStart = Format(iYear & "-07-01", "yyyy-mm-dd")
dEnd = Format(iYear & "-12-31", "yyyy-mm-dd")
Case 7
dStart = Format(iYear & "-01-01", "yyyy-mm-dd")
dEnd = Format(iYear & "-12-31", "yyyy-mm-dd")
End Select
Me.txt6 = DCount("*", "qryResultat", "Interval = 6 AND Start BETWEEN #" & Format(dStart, "yyyy-mm-dd") & "# AND #" & Format(dEnd, "yyyy-mm-dd") & "#")
Me.txt18 = DCount("*", "qryResultat", "Interval = 18 AND Start BETWEEN #" & Format(dStart, "yyyy-mm-dd") & "# AND #" & Format(dEnd, "yyyy-mm-dd") & "#")
Me.txt30 = DCount("*", "qryResultat", "Interval = 30 AND Start BETWEEN #" & Format(dStart, "yyyy-mm-dd") & "# AND #" & Format(dEnd, "yyyy-mm-dd") & "#")
Me.txtMax = DCount("*", "qryResultat", "Interval = 100 AND Start BETWEEN #" & Format(dStart, "yyyy-mm-dd") & "# AND #" & Format(dEnd, "yyyy-mm-dd") & "#")
Me.txtPeriod = dStart & " - " & dEnd
End If
End Sub
