I
Ian Bayly
I keep a hierachy of backups of a project.
My most recent copy fails at line 300 in the code below, with the message
"Enter Parameter" with parameter "value "DateSelect":
No changes have been made to this form and prior copies still run this code
OK.
Any ideas what I could have done. Unfortunately I am 6 hours into changes
which I don't want to redo!
All help appreciated
Ian B
210: Select Case obSelection
Case 1
230: sFilter = "EntrySourceCode = '" & Me.comboType & "'"
240: Case 2
250: sFilter = "RefNum = '" & Me.txID & "'"
260: Case 3
270: sFilter = "EntrySourceCode = '" & Me.comboType & "' AND
RefNum = '" & Me.txID & "'"
280: End Select
290: sFilter = sFilter & " AND (DateSelect BETWEEN #" &
Format(Me.txCalcFrom, "Medium Date") & "# AND #" & Format(Me.txCalcTo,
"Medium Date") & "#)"
300: DoCmd.OpenForm "frmLogView", acFormDS, , sFilter, acFormReadOnly
My most recent copy fails at line 300 in the code below, with the message
"Enter Parameter" with parameter "value "DateSelect":
No changes have been made to this form and prior copies still run this code
OK.
Any ideas what I could have done. Unfortunately I am 6 hours into changes
which I don't want to redo!
All help appreciated
Ian B
210: Select Case obSelection
Case 1
230: sFilter = "EntrySourceCode = '" & Me.comboType & "'"
240: Case 2
250: sFilter = "RefNum = '" & Me.txID & "'"
260: Case 3
270: sFilter = "EntrySourceCode = '" & Me.comboType & "' AND
RefNum = '" & Me.txID & "'"
280: End Select
290: sFilter = sFilter & " AND (DateSelect BETWEEN #" &
Format(Me.txCalcFrom, "Medium Date") & "# AND #" & Format(Me.txCalcTo,
"Medium Date") & "#)"
300: DoCmd.OpenForm "frmLogView", acFormDS, , sFilter, acFormReadOnly