Registrations are now open. Join us today!
There is still a lot of work to do on the wiki yet! More information about editing can be found here.
Already have an account?

Microsoft KB Archive/104682

From BetaArchive Wiki

ACC1x: Cannot Paste Data from Clipboard Using DDE

Q104682



The information in this article applies to:


  • Microsoft Access versions 1.0, 1.1





SYMPTOMS

When you attempt to paste data into a dynamic data exchange (DDE) server application from Microsoft Access, the process does not complete correctly and the following error message is generated:


The other application won't perform the DDE method or operation you attempted.


If you are using Microsoft Word for Windows as your DDE server application, the error message "WordBASIC Err=102 Command failed" will appear in Word for Windows.

If you are using Microsoft Excel as your DDE server application, the error message "Cannot paste data" will appear in Microsoft Excel.



CAUSE

Microsoft Access does not "render," or place, the data on the Clipboard until an application requests the data for pasting. (This technique provides improved performance with large pieces of data.) When Microsoft Access issues the DDEExecute command to tell the DDE server application to paste the data, it waits for that command to finish before allowing any other operation to take place. When the DDE server application receives the paste command, it requests that Microsoft Access place the data on the Clipboard. However, Microsoft Access will not do this because it is waiting for the DDEExecute command to finish.



RESOLUTION

The following sample Access Basic function called RenderClipboard() can be called to force Microsoft Access to render the data to the Clipboard before issuing the DDEExecute command:

NOTE: This article assumes that you are familiar with Access Basic and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information on Access Basic, please refer to the "Introduction to Programming" manual.

NOTE: You may have some Microsoft Windows API functions defined in an existing Microsoft Access library; therefore, your declarations may be duplicates. If you receive a duplicate procedure name error message, remove or comment out the declarations statement in your code.

NOTE: In the following sample code, an underscore (_) is used as a line- continuation character. Remove the underscore when re-creating this code in Access Basic.


   '*********************************************************
   ' MODULE DECLARATION SECTION
   '*********************************************************
   Declare Function OpenClipboard% Lib "User" (ByVal hWnd%)
   Declare Function GetClipboardData% Lib "User" (ByVal wFormat%)
   Declare Function CloseClipboard% Lib "User" ()

   Global Const CF_TEXT = 1

   Function RenderClipboard ()
       Dim RetVal As Integer
       RetVal = OpenClipboard(0)
       RetVal = GetClipboardData(CF_TEXT)
       RetVal = CloseClipboard()
   End Function 



The following example demonstrates how to use the RenderClipboard() function:


  1. Start Microsoft Word for Windows. The default document Document1 should be open.
  2. Start Microsoft Access. Open the sample database NWIND.MDB.
  3. Create a new module, and enter the following Access Basic function:

          Function CopyRecordToWinword ()
             Dim RetVal, Chan
    
             ' Copy the current record to the clipboard
             DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD
             DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_COPY
    
             RetVal = RenderClipboard()
    
             Chan = DDEInitiate("winword", "Document1")
             DDEExecute Chan, "[EditPaste]"
             DDETerminate Chan
          End Function 
  4. Open the Customers form in Design view and add a command button with the following properties:

          Caption: Copy to Record
          OnPush: =CopyRecordToWinword() 
  5. Change to Form view, and choose the Copy To Winword button. The record will be pasted into the Word for Windows document.



STATUS

Microsoft has confirmed this to be a problem in Microsoft Access versions 1.0 and 1.1. This problem no longer occurs in Microsoft Access version 2.0.



MORE INFORMATION

Steps to Reproduce Behavior



  1. Start Microsoft Word for Windows. The default document Document1 should be open.
  2. Start Microsoft Access. Open the sample database NWIND.MDB.
  3. Create a new module, and enter the following Access Basic function:

    Option Explicit

          Function CopyRecordToWinword ()
             Dim RetVal, Chan
    
             ' Copy the current record to the clipboard
             DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD
             DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_COPY
    
             Chan = DDEInitiate("winword", "Document1")
             DDEExecute Chan, "[EditPaste]"
             DDETerminate Chan
          End Function 
  4. Open the Customers form in Design view and add a command button with the following properties:

          Caption: Copy to Record
          OnPush: =CopyRecordToWinword() 
  5. Change to Form view, and choose the Copy To Winword button. Word for Windows will generate the error message: "WordBASIC Err=102 Command failed."

    NOTE: To reproduce the problem with Microsoft Excel, use the following Access Basic function instead of the function listed above:

    Option Explicit

       Function CopyRecordToExcel ()
          Dim RetVal, Chan
    
          ' Copy the current record to the clipboard
          DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD
          DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_COPY
    
          Chan = DDEInitiate("Excel", "Sheet1")
          DDEExecute Chan, "[Paste()]"
          DDETerminate Chan
       End Function 

Keywords : kbinterop
Issue type : kbbug
Technology :


Last Reviewed: November 4, 2000
© 2001 Microsoft Corporation. All rights reserved. Terms of Use.