PRB This Action was Cancelled by an Associated Object.(3426)"

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new Visual Basic Standard EXE project. Form1 is created by default.
2. Add the following controls to Form1:
   

         Control Type        Control Name         Caption
         ------------        ------------         -------
         Data                datDataCtl
         Text Box            txtCategory
         Command Button      cmdAddNew            Add
         Command Button      cmdMoveVeryLast      Move Very Last
   
   						

3. Cut and paste the following code into the code window of the form:
   

         Option Explicit
   
         Private Sub cmdAddNew_Click()
   
             'Uncomment this block to avoid 3426 error message
             ' Check to see you are on NULL Pointer
             'If datDataCtl.Recordset.EOF Or datDataCtl.Recordset.BOF Then
   
                 'Dim strBuffer As String
   
                 ' Save what was typed into the text box into memory
                 'strBuffer = txtCategory.Text
   
                 ' Restore text box value to the original record contents
                 ' in this case, that is NULL
                 'datDataCtl.UpdateControls
   
                 ' Add a new blank record
                 'datDataCtl.Recordset.AddNew
   
                 ' Restore what has been typed from memory to text box
                 'txtCategory.Text = strBuffer
   
                 ' Save the current record we are on and Add a new blank
                 ' record
                 'datDataCtl.Recordset.AddNew
   
             'End If
   
             ' be sure to comment below line when uncommenting above block of
             ' code to avoid an additional record added to the recordset.
             datDataCtl.Recordset.AddNew
   
         End Sub
   
         Private Sub cmdMoveVeryLast_Click()
   
           If Not (datDataCtl.Recordset.BOF Or datDataCtl.Recordset.EOF) Then
             datDataCtl.Recordset.MoveLast
             datDataCtl.Recordset.MoveNext
           End If
   
         End Sub
   
         Private Sub Form_Load()
   
             With datDataCtl
               .DatabaseName = App.Path & "\NWIND.MDB"
               .RecordSource = "Categories"
             End With
   
             txtCategory.DataField = "CategoryName"
   
         End Sub
   
   						

4. While in the form's design view, set txtCategory's DataSource property equal to datDataCtl.
5. Run the form. To reproduce the data, click on the Move Very Last CommanButton, type any data into the text box, and then click on the Add CommandButton.
6. Note error: uncomment the above code sample to avoid the error.