Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.

XL2000: ShowDataForm Method Fails if Data Cannot Be Found


View products that this article applies to.

Symptoms

In Microsoft Excel 2000, when you use the Microsoft Visual Basic ShowDataForm method, you may receive one of the following error messages:
Run-time error '1004':
ShowDataForm method of Worksheet class failed
-or-
400

↑ Back to the top


Cause

This behavior can occur because Excel is unable to find a data list on the worksheet that you specified in the Visual Basic statement.

When you use the ShowDataForm method, Excel looks for the data list in two places:
  • The defined name "Database." If a range has been defined as the database, Excel displays the data form, and the data in that range is accessible.
  • Cells A1:B2 on the specified worksheet. Excel attempts to find a list whose upper-left corner lies in the range A1:B2. If a list is found, Excel displays the data form, and the data in the list is accessible.

↑ Back to the top


Workaround

Microsoft provides programming examples 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 article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs.
If you have limited programming experience, you may want to contact a Microsoft Certified Partner or Microsoft Advisory Services. For more information, visit these Microsoft Web sites:

Microsoft Certified Partners - https://partner.microsoft.com/global/30000104

Microsoft Advisory Services - http://support.microsoft.com/gp/advisoryservice

For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

To work around this behavior, define your data with the defined name "Database," or move your data so that its upper-left corner is located in any of the four cells in the range A1:B2.

To Define Your Data with the Defined Name "Database"

  1. Select the range that contains your data.
  2. On the Insert menu, point to Name, and then click Define.
  3. In the Name box, type Sheetname!Database, where Sheetname is the name of the active worksheet.
  4. Click OK to accept the change.
When you run the ShowDataForm method and specify the worksheet, the data form is displayed with the correct data.

To automate the preceding process, select the data that you want included in your database (including column headings), and then include the following in your Visual Basic procedure:
ActiveWorkbook.Names.Add Name:=ActiveSheet.Name & _
   "!Database", RefersToR1C1:=Selection
ActiveSheet.ShowDataForm
				
NOTE: For information about variations that you can use for this code, see the "More Information" section.

↑ Back to the top


More information

The Visual Basic ShowDataForm method is used to display a data form. You can use a data form to view a list of data or to enter new data into a list. You may use the ShowDataForm method in either of the following ways:
ActiveSheet.ShowDataForm
-or-
Worksheets("Sheet1").ShowDataForm

↑ Back to the top


References

For additional information about getting help with Visual Basic forApplications, click the article number below to view the article in the Microsoft Knowledge Base:
226118 OFF2000: Programming Resources for Visual Basic for Applications

↑ Back to the top


Keywords: KB213835, kbprogramming, kbprb, kbdtacode

↑ Back to the top

Article Info
Article ID : 213835
Revision : 8
Created on : 11/23/2006
Published on : 11/23/2006
Exists online : False
Views : 302