ACC2: GPF Using GetChunk Method As Argument for Put Statement

MORE INFORMATION

Steps to Reproduce Problem

WARNING: Following these steps will cause a general protection fault on your computer. Make sure you save and close any open work on your computer before following these steps.

1. Start Microsoft Access and open the sample database NWIND.MDB.
2. Create a new module and enter the following function:
   

         Function Test ()
            Dim d As Database, rs As Recordset
   
            Set d = CurrentDb()
            Set rs = d.OpenRecordset("Employees", DB_OPEN_TABLE)
   
            Open rs![Last Name] & ".txt" For Binary As #1
            Put #1, , rs![Notes].GetChunk(0, 1000)
            Close #1
            rs.Close
            d.Close
         End Function
   						

3. From the View menu, choose Immediate window.
4. Type the following line in the Immediate window, and then press ENTER:
   
   ?Test()
   
   Note that you receive a GP fault.

Workaround

The following sample function is a modified version of the Test() function above. This version of the Test() function will generate a text file with a portion of the Notes memo field from the first record of the Employees table. The name of the text file is determined by the first eight characters of the Last Name field. Note that in this version, the Put statement uses the variable X for the third parameter, which is set equal to the GetChunk method.

   Function test ()
         Dim d As Database, rs As Recordset
         Dim x As String

         Set d = CurrentDb()
         Set rs = d.OpenRecordset("Employees", DB_OPEN_TABLE)

         Open rs![Last Name] & ".txt" For Binary As #1
         x = rs![Notes].GetChunk(0, 1000)
         Put #1, , x
         Close #1
         rs.Close
         d.Close

   End Function