Microsoft KB Archive/118370

= GP Fault Setting Property Value to Array of Custom Data Type =

PSS ID Number: 118370

Article Last Modified on 1/17/2001

-

The information in this article applies to:


 * Microsoft Visual Basic for Applications 1.0

-



This article was previously published under Q118370



SYMPTOMS
In a Visual Basic module, if you set the value of the name of a property procedure to an array variable of custom data type, you receive a general protection (GP) fault.



WORKAROUND
To avoid receiving a GP fault, set the value of a non-array temporary variable to the value of the variable custom data type, and then set the value of the name of the property procedure equal to the value of this temporary variable.

Microsoft provides examples of Visual Basic procedures for illustration only, without warranty either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. This Visual Basic procedure is provided "as is" and Microsoft does not guarantee that it can be used in all situations. Microsoft does not support modifications of this procedure to suit customer requirements for a particular purpose. Note that a line that is preceded by an apostrophe introduces a comment in the code--comments are provided to explain what the code is doing at a particular point in the procedure. Note also that an underscore character (_) indicates that code continues from one line to the next. You can type lines that contain this character as one logical line or you can divide the lines of code and include the line continuation character. For more information about Visual Basic for Applications programming style, see the "Programming Style in This Manual" section in the "Document Conventions" section of the Visual Basic "User's Guide." Type Bdata B1 As Integer B2 As Integer End Type

Property Let Bprop(A As Integer, B As Bdata) MsgBox A  End Property

Sub Test ' Dimension B3 as Bdata type Dim B3(0 To 2) As Bdata ' Dimension temporary variable BTemp as Bdata type Dim BTemp As Bdata ' Set BTemp to value of B3(1) LSet BTemp = B3(1) ' Set property procedure Bprop(1) to value of BTemp Bprop(1) = BTemp End Sub



MORE INFORMATION
For more information about the Property Let Statement, choose the Search button in Help and type:

Property Let

For more information about the LSet Statement, choose the Search button in Help and type:

LSet

Additional query words: gpf

Keywords: KB118370

Technology: kbVBA100 kbVBASearch kbZNotKeyword3 kbZNotKeyword6

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© 2004 Microsoft Corporation. All rights reserved.