Trouble Closing My Application

T

TexKiernan

I'm having trouble closing database app. It occurs only after I click a node
in a treeview control then try closing the app. I get "Microsoft Office
Access has encountered a problem and needs to close. We are sorry for the
inconvenience.". Here is the code: (only started do this when we upgraded
to 2007).


Private Sub tvwReviewers_NodeClick(ByVal node As Object)
On Error GoTo ErrorHandler
Dim frm1 As Access.Form
Set frm1 = Me![frmItemsDetail].Form
Me!SelectedReviewItem = Null
If Left(node.Key, 6) = "level2" Then
Me![SelectedReviewItem].Value = Mid(node.Key, 7)
frm1.RecordSource = "qrySelectedItem"
frm1.Visible = True
ListView0.Visible = True
FillListView
Me.StorageBtn.Enabled = True
Me.HistoryBtn.Enabled = True
Me.DetailBtn.Enabled = True
Me.ReminderABtn.Enabled = True
Me.ReminderBtn.Enabled = True


Else
frm1.Visible = False
Me!SelectedReviewItem = Null
ListView0.ListItems.Clear
ListView0.Visible = False
Me.StorageBtn.Enabled = False
Me.HistoryBtn.Enabled = False
Me.DetailBtn.Enabled = False
Me.ReminderABtn.Enabled = False
Me.ReminderBtn.Enabled = False


End If
ErrorHandlerExit:
Exit Sub

ErrorHandler:
MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
Resume ErrorHandlerExit
Set frm1 = Nothing

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Closing PDF file from Excel VBA (Adobe Reader, Adobe Acrobat, Browser) 0
Want to avoid the possibilty to edit field in listbox 6
VBE tricky question 2
Why does this happen to my report 4
Convert export calendar to Outlook to late binding 0
Help !! VBA code to copy 2
Field is not getting value in Access 2007 5
Copying an Object within a database 1

Top