Show Bid Request Toolbar on Access97 form Bid Request Id: 47048 Bookmark in my 'To Do' list Posted by: chavnick (0 ratings) Non-action Ratio: Above Average - 25.00% Buyer Security Verifications: Good Approved on: Feb 6, 2003 2:18:57 PM EDT Bidding Closes: Feb 20, 2003 11:20:10 AM EDT Viewed (by coders): 75 times Phase: 100% of work completed and accepted. Coder has been paid. Max Accepted Bid: Bidding is closed Project Type: Personal Project / Homework Help Bidding Type: Open Auction Categories: Database, Access Enter chat room for this bid request (0 active users at Jul 10, 2003 11:28:04 AM EDT) Description: I want to make a toolbar with buttons depended on an image list to be working properly. I send you the mdb file with this form. Deliverables: 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. Platform: win98, winxp, access97. Additional Files: This bid request includes IMPORTANT additional attached files. Please download and read fully before bidding. Remember that contacting the other party outside of the site (by email, phone, etc.) on all business projects < $500 (before the buyer's money is escrowed) is a violation of both the software buyer and seller agreements. We monitor all site activity for such violations and can instantly expel transgressers on the spot, so we thank you in advance for your cooperation. If you notice a violation please help out the site and report it. Thanks for your help.   Bidding/Comments: All monetary amounts on the site are in United States dollars. Rent a Coder is a closed auction, so coders can only see their own bids and comments. Buyers can view every posting made on their bid requests. See all rejected bids (and all comments) Name   Bid Amount    Date   Coder Rating   fabiodemartino (3 ratings) in La Spezia, La Spezia Italy Bid id: 506,487   N/A Feb 6, 2003 9:24:20 PM EDT  9.67 (Excellent)     Hi, Replace the existing code: Private Sub Toolbar1_Enter() Dim buttonx As ComctlLib.Button With buttonx Select Case buttonx.key Case 'exit' msgbox 'exit' Case 'print' msgbox 'Print' Case 'find' msgbox 'find' Case 'New' msgbox 'new' Case 'Backup' msgbox 'Backup' Case 'Delete' msgbox 'delete' End Select End With End Sub with the following: Private Sub Toolbar1_ButtonClick(ByVal Button As Object) Select Case Button.key Case 'exit' msgbox 'exit' Case 'print' msgbox 'Print' Case 'find' msgbox 'find' Case 'New' msgbox 'new' Case 'Backup' msgbox 'Backup' Case 'Delete' msgbox 'delete' End Select End Sub In other word use the Toolbar1_ButtonClick event instead and it will work. Please rate me I gave this suggestion for free. Fabio De Martino Dema Productions           See 2 private reply(ies) to/from fabiodemartino.   This bid was accepted by the buyer! fabiodemartino (3 ratings) in La Spezia, La Spezia Italy Bid id: 508,017   $4 (USD) Feb 7, 2003 8:59:54 PM EDT  9.67 (Excellent)     I would appreciate 4 dollars for this suggestion. Thanks Dema Productions           See 1 private reply(ies) to/from fabiodemartino.