PRB: No Current Record Error In VB When Database is Empty (106494)

STATUS

This behavior is by design. This design is under review and will be considered for enhancement in a future release.

More Information

How to Create an Empty Microsoft Access Database

Before using Example 1 or 2 shown below, create an empty database by following these steps in Visual Basic:

1. Open the Data Manager program by choosing it from the Window menu in Visual Basic or by running DATAMGR.EXE from the Windows File Manager.
2. In the Data Manager, choose New Database from the File menu and select Access 1.1.
3. Click the New button and enter tbl1 for the table name.
4. Click the Design button. Then click the Add button. Enter fld1 for the Field Name and select Integer for the Field Type.
5. Save this Microsoft Access database with the name TEST1.MDB. Close the Data Manager.

Example One: Steps to Reproduce Behavior using a Data Control

1. Start a new project in Visual Basic. Form1 is created by default.
2. Create the empty Microsoft Access database (TEST1.MDB) as described above.
3. Add the following controls and set the following properties:

      Control Name  Property       New Value         NOTE
      ------------------------------------------------------------------------
      Data1         DatabaseName   C:\VB\TEST1.MDB   Empty MDB created above.
      Data1         RecordSource   tbl1              Table name.
      Text1         DataSource     Data1             Name of data control.
      Text1         DataField      Fld1              Field name.
      Command1      Caption        "Press for AddNew"
   
   						

4. Add the following code in the Command1 Click event procedure:

      Sub Command1_Click ()
         data1.Recordset.AddNew
         text1.SetFocus
      End Sub
   
   						

5. From the Run menu, choose Start (ALT, R, S), or press the F5 key to run the program.
6. Either of the following will give the no current record error:
   
   
   1. Click any of the arrow buttons on the data control.
   2. Enter text into the text box, and then click the command button.
   Notice that if you rerun the program, press the Command1 button first, and then enter some text into the Text1 text box, you can then click any of the arrow buttons on the data control without getting the error.

Example One Workaround

To work around this behavior, set the Enabled property for the text and data controls to False at design time or in the Load procedure for the form. Then add the following to the top of the Command1_Click procedure before the AddNew:

   Data1.enabled = True
   Text1.enabled = True
				

This prevents the user from automatically updating an empty database, thus avoiding the no current record error.

Example Two: Steps to Reproduce Behavior Using Object Variables

1. Start a new project in Visual Basic. Form1 is created by default.
2. Create the empty Microsoft Access database (TEST1.MDB) as described above.
3. Add a command button. Enter "Press to Test" as its Caption property.
4. Add the following code in the general Declarations section of Form1:

      Dim db As database
      Dim ds As dynaset
   
   						

5. Add the following code in the Command1 Click event procedure:

      Sub Command1_Click ()
         Set db = OpenDatabase("TEST1.MDB")
         Set ds = db.CreateDynaset("tbl1")
         ' Execute the following line to work around problem:
         ' ds.AddNew
         If IsNull(ds(0)) Then  'The No Current Record error occurs here
            Print "No entry"
         Else
            Print ds(0)
         End If
      End Sub
   
   						

6. From the Run menu, choose Start (ALT, R, S), or press the F5 key to run the program.

To correct the error, add the line ds.AddNew shown in a comment above.