PRB: Cannot DDEPoke More Than 255 Characters of Text

The information in this article applies to:

• Microsoft Access versions 1.0 and 1.1
• Microsoft Access Distribution Kit version 1.1

1. Start Microsoft Word for Windows. Word for Windows will open with an empty document named Document1.
2. From the File menu, choose Save As, and then enter DOC1 as the file name.
3. From the Insert menu, choose Bookmark, and type "test" (without the quotation marks) in the Bookmark Name box.
4. Start Microsoft Access, leaving Word for Windows running, and create a blank, unbound form with a text box.
5. Type the following expression in the text box ControlSource property:

   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.

         =DDESend("winword","doc1","test",String$(255,"*") &_
         String$(100,"@"))
   

6. View the form. If you switch back to Word for Windows you will see 255 asterisk (*) characters, followed by 100 at sign (@) characters.

1. Start Microsoft Word for Windows 2.0. Word for Windows will open with an empty document named Document1.
2. From the File menu, choose Save As, and then enter DOC1 as the file name.
3. From the Insert menu, choose Bookmark, and type "test" (without the quotation marks) in the Bookmark Name box.
4. Start Microsoft Access, leaving Word for Windows running.
5. Create a new database, and create a new Access module.
6. Add the following function to the module:

         Option Explicit
   

         Function DDEPokeTest ()
            Dim chan
            chan = DDEInitiate("winword", "doc1")
            DDEPoke chan, "test", String$(255, "*") & String$(100, "@")
            DDETerminate chan
         End Function
   

7. From the View menu, choose Immediate Window.
8. Type the following, and then press ENTER:

         ? DDEPokeTest()
   

9. Switch back to Word for Windows and note that only 255 asterisk (*) characters display. The at sign (@) characters do not display.