Talk About Network

Google


Register and Login
Nick
Password
Register create new account Sign up is FREE and you can post replies, new topics, bookmark posts and more!
Recover lost password


Software > Access Modules daovba ado > Trouble Closing...
Latest [ Topics | Posts ] Archive Post A New Topic Post a Reply
<< Topic < Post Post 1 of 1 Topic 1511 of 1609
Post > Topic >>

Trouble Closing My Application

by =?Utf-8?B?VGV4S2llcm5hbg==?= <TexKiernan@[EMAIL PROTECTED] Jul 17, 2008 at 11:33 AM

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
 




 1 Posts in Topic:
Trouble Closing My Application
=?Utf-8?B?VGV4S2llcm5hbg=  2008-07-17 11:33:18 

Post A Reply:
  Go here to Signup

AddThis Feed Button


About - Advertising - Contact - Frequently Asked Questions - Privacy Policy - Terms of Use - Signup

Contact
tan12V112 Fri Nov 21 12:27:18 CST 2008.