You Cancelled the Previous Operation Error

[chewy]

I have this code

Private Sub Command4_Click()

'between 1/1/2003 AND 1/1/04
Dim myDate As Variant
myDate = "BETWEEN "
myDate = myDate & Me.StartDate
myDate = myDate & " AND "
myDate = myDate & Me.EndDate

FullDate.SetFocus
Me.FullDate.Text = myDate

DoCmd.OpenQuery "qryMain", acViewNormal
'DoCmd.Close acQuery, "qryMain"
'DoCmd.OpenReport "ComboBox2", acViewPreview
End Sub


On this line
DoCmd.OpenQuery "qryMain", acViewNormal

It give me the Error You Cancelled the Previous Operation. What is causing this to happen.

I also am having a query read from the text box what the value of the query will be. See Attached. Thanks for any ideas!

 

[mission2java_78]

You need some error handling and catch the exception. First figure out what the error number is. Once you have figured that out you can catch the exception / error and skip it from being displayed.

Its a valid error that can happen on a report as well when you cancel a report when originally you intended to open it.

To find out the error do the following

Before the beginning of your code do this:

On Error Goto Hell

after your code but before the function / sub END do this:

Heaven:
Exit Sub


Hell:
MsgBox Err.Description,vbCritical, "Error #: " & Err.Number
Resume Heaven

That will give u the error code on the title bar of the message box such as Error #: 1215.

Once you get the error code you modify the above to this:

Heaven:
Exit Sub


Hell:
If Err.Number = YourErrorNumberHere then 
       'dont show the message
else
     MsgBox Err.Description,vbCritical, "Error #: " & Err.Number
end if
Resume Heaven

Jon

 

[ghudson]

Try this...

Private Sub Command4_Click()
On Error GoTo Err_Command4_Click

Me.FullDate.Value = "BETWEEN " & Me.StartDate.Value & " AND " & Me.EndDate.Value

'Assuming the control source of your report is "qryMain"
DoCmd.OpenReport "ComboBox2", acViewPreview

Exit_Command4_Click:
Exit Sub

Err_Command4_Click:
If Err = 2001 Then 'You canceled the previous operation.
Exit Sub
Else
MsgBox Err.Number & " - " & Err.Description
Resume Exit_Command4_Click
End If

End Sub

'HTH

 

[bradcccs]

Your criteria line in the query will be interpreting your date as text that is not date qualified.

You will need to include the date # qualifier either end of your date.

eg:

Me.FullDate.Value = "BETWEEN #" & Me.StartDate.Value & "# AND #" & Me.EndDate.Value & "#"

However, looking at your query structure, it would be much easier to simply enter your criteria line in your query as:

Between [forms]![frmdate].[startdate] And [forms]![frmdate].[enddate]

That way you can avoid messing with the concatenation code.
If the format of StartDate and EndDate are set within the form, you can avoid type mismatch errors.

HTH

Brad.

 

[chewy]

Thanks Brad that did it. I was using ! instead of the period. What is the difference?

 

[mission2java_78]

You can still use '!' that wasnt the original problem.

Jon

 

[chewy]

it's strange. I was sending it with the "#" signs before and it didn't work either. Oh well. It works now!

 

[mission2java_78]

Hence the reason I dont use access at all no more. SQL Server and VB is soo much better. Better controls, flexibility, power. Access is a tool literally a piece of sh**.

 

[chewy]

good to hear from you again Mission! Havent heard from you in a while

 

[mission2java_78]

ola Mr. Chewy.

Ya I sneak in every once in a while to annoy rich of course .
Hope everything on your end is looking good.

Jon

 

[chewy]

working on a new database now. Mostly taking pieces from old databases that I have made. Slow but steady. Gives me something to do aroundhere

 

[chewy]

hey! you could probably answer this. When I want to run a query I use the following code and then open the subsequent report.

Private Sub Command4_Click()

If StartDate > EndDate Then
MsgBox "Start date can not be after end date"
Else
DoCmd.OpenQuery "qryMain"
DoCmd.Close acQuery, "qryMain"
DoCmd.OpenReport "rptMain", acViewPreview

End If
End Sub


How can I just run the query behind a command button without opening and closing it?

 

[Rich]

What is the purpose of opening the query?

 

[chewy]

Just to get it to run.

 

[mission2java_78]

Queries are always running.

If your rptMain takes data from this query than why not just bound this query to that report? That way any changes in the query change the report?

Jon

 

[mission2java_78]

You can also set the reports recordsource property during runtime in the on open event of the report

Me.Recordsource="qryMain"

Jon

 

[chewy]

well I be jiggered! I was doing that all along and didnt realize it. I was just adding a step. Thanks guys!