Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Register | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read
BOOK: Beginning Access 2007 VBA ISBN: 978-0-470-04684-5
This is the forum to discuss the Wrox book Beginning Access 2007 VBA by Denise M. Gosnell; ISBN: 9780470046845
Welcome to the p2p.wrox.com Forums.

You are currently viewing the BOOK: Beginning Access 2007 VBA ISBN: 978-0-470-04684-5 section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Reply
 
Thread Tools Display Modes
  #1 (permalink)  
Old December 24th, 2009, 02:35 PM
Registered User
 
Join Date: Dec 2009
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default Doesn't work: CH3 example

I followed the instruction but could not get the expected result. Instead, it when I clicked on the command botton "Get list of forms", it gave me a warning sign saying The expression On Click you entered as the event property setting produced the following error: a problem occurred while Microsoft Office Access was communicating with the OLE server or Actuve X Control.

Here is the code on page 95.
Private Sub cmdGetForms_Click()

Dim frmForms As Form
'loop

For Each frmForms In Forms
Me.1stForms.AddItem (frmForms.Name)
Next frmFroms
End Sub

Please help to detect the error. Thanks!
Reply With Quote
  #2 (permalink)  
Old July 22nd, 2010, 05:12 PM
Registered User
 
Join Date: Jul 2010
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Private Sub cmdGetForms_Click()

Dim frmForms As Form
'loop

For Each frmForms In Forms
Me.1stForms.AddItem (frmForms.Name)
Next frmFroms
End Sub

I have highlighted your error. (Although you have prob figured it out by now)
try this:

Private Sub cmdGetForms_Click()

Dim frmForms As Form
'loop

For Each frmForms In Forms
Me.lstForms.AddItem (frmForms.Name)
Next frmFroms
End Sub
Reply With Quote
Reply


Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
Ch3 Testing mod_rewrite speculumcm BOOK: Professional Search Engine Optimization with PHP: A Dev's Guide to SEO ISBN: 978-0-470-10092-9 1 September 8th, 2011 11:48 AM
CH3 allowDefinition='MachineToApplication' jtavenner BOOK: Beginning ASP.NET 2.0 BOOK VB ISBN: 978-0-7645-8850-1; C# ISBN: 978-0-470-04258-8 2 May 2nd, 2008 07:57 AM
Ch3 Moviesite table already exists? aiche_ag BOOK: Beginning PHP, Apache, MySQL Web Development ISBN: 978-0-7645-5744-6 0 August 7th, 2007 01:29 PM
Problems in Ch3 and Ch4 Maram BOOK: Beginning PHP5, Apache, and MySQL Web Development ISBN: 978-0-7645-7966-0 2 August 4th, 2005 09:28 AM



All times are GMT -4. The time now is 02:00 AM.


Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.