DOCUMENT:Q189678  19-JUL-1998  [vbwin]
TITLE   :PRB: Error 3315 or 3426 When Updating a Bound DBCombo Box
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER:WINDOWS:5.0
OPER/SYS:WINDOWS
KEYWORDS:

======================================================================
---------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual Basic Professional and Enterprise Editions for
   Windows, version 5.0
---------------------------------------------------------------------

SYMPTOMS
========

When the ListField property is not set on a bound DBCombo box, one of the
following errors can occur when you try to Update the Recordset.

   Runtime error '3426':
   This action was cancelled by an associated object.

   -or-

   Run-time error '3315':
   Field  'Tablename.Field' can't be zero-length string.

CAUSE
=====

The new value is not being saved to the BoundText property of the DBCombo
box. If you check the BoundText property (e.g. Msgbox DBCombo1.BoundText),
it will be blank.

RESOLUTION
==========

If you set the ListField property, the BoundText property will retain the
data.

The RowSource property in the On Line Help states the following:

  "To fill the list in a DBCombo or DBList control, you must specify a
   Data control in the RowSource property at design time using the
   Properties window.

   To complete the connection with a field in the Recordset object managed
   by the Data control, you must also provide the name of a Field object
   in the ListField property."

STATUS
======

This behavior is by design.

MORE INFORMATION
================

Steps to Reproduce Behavior
---------------------------

1. Start a new project in Visual Basic and choose Standard EXE. Form1
   is created by default.

2. Add a DbCombo box, a DataControl, and two Command Buttons to the Form1.
   NOTE: To add the DBCombo box, you must first Click the Project Menu,
   click Components, and select "Microsoft Data Bound List Controls 5.0."

3. Set the following properties for each control:

    Datal
    -----
    DatabaseName: Biblio.mdb
    RecordSource: Authors

    DBCombo1
    ---------
    DataSource: Data1
    DataField: Author
    RowSource: Data1

    Command1
    --------
    Caption: Add

    In the Click event of Command1, add:

       Data1.RecordSet.AddNew

    Command2
    --------
    Caption: Update

   In the Click event of Command2 add:

     MsgBox DBCombo1.BoundText
     Data1.Recordset.Update

4. Run the application. Click the Add button. Type a new value into the
   DBCombo box. Click Update, and you should get an empty Msgbox followed
   by an error message.

   To correct the problem, change the values of the ListField property to
   the following:

    DBCombo1
    ---------
    ListField: Author

   Now when you run the application and click Add, then Update, you will
   notice that the value you typed is displayed in the Msgbox and you
   receive no error.

REFERENCES
==========

For additional information, please see the following article in the
Microsoft Knowledge Base:

   ARTICLE-ID: Q186682
   TITLE     : BUG: DBCombo BoundText Incorrect When Setting Text Property

Additional query words: kbVBp kbVBp500 KBDSE kbDSupport kbNoKeyWord
left
======================================================================
Version           : WINDOWS:5.0
Platform          : WINDOWS
Issue type        : kbprb

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1998.