Close Form from Calendar Control on Form 2

[netrusher]

I had an earlier posting and kind of added close form to the other posting but am making it its own post now.

I have a Calendar Control on a form DateFrm see code below: I cannot close the DateFrm
from the CalEnd_Exit. Any advice on how to accomplish this? After the code from the Calendar Function
is triggered I want the Form DateFrm that the Calendar Control is on to close.

Private Sub CalEnd_Exit(Cancel As Integer)

    Dim stDocName As String

    stDocName = "BucketTblReqdPartsQty"
    DoCmd.OpenQuery stDocName, acNormal, acEdit


    DoCmd.Close acForm, "DateFrm"

End Sub

 

[SeeThru]

The code looks ok to me....

Try using a pause - check if the form is still open, step thruogh code to see if there is anything running in DateFrm that cancels the close.

SeeThru
Synergy Connections Ltd - Telemarketing Services

 

[netrusher]

The form never closes and I can find nothing stoping the
code from running. It just blows up and stops on

DoCmd.Close acForm, "DateFrm"

. Any other
suggestions?

 

[PHV]

No error message ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[netrusher]

PHV,

Run-time error 2585

 

[netrusher]

I have been researching this error but can't figure anything
out unless it is because I am calling a query.

Run-time error 2585

This action can't be carried out while processing a form or
report event.

 

[PHV]

Doesn't BucketTblReqdPartsQty need the form open ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[netrusher]

PHV,

Well the query is actually running and then I am trying to
close the form after the query runs. It only needs form
until the query runs. Maybe I am closing the form at the
wrong time. Basically I want to:
Select the dates, run the query and close the form. I am
really open to suggestions as to when etc. I have been
working on this for two days. I am hoping this can be
solved and desperately looking for your input or
suggestions.
Thanks

 

[netrusher]

By the way, the query that is running is a make table query

 

[netrusher]

I do not know what I did differently but this code is
working below?? This kind of thing drives me nuts!!!

Private Sub CalEnd_Click()

    EndDateTxt.Value = CalEnd.Value
    EndDateTxt.SetFocus
    CalEnd.Visible = False
    
    Dim stDocName As String

    stDocName = "BucketTblReqdPartsQty"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    
DoCmd.Close acForm, "DateFrm"

End Sub