Run-time error 8577

[GingerNut]

Run-time error 8577

Failed getting Rowset(s) from current data source



OK guys, where did I go wrong?
Here's my code:

Private Sub cmdAdd_Click()
'Add item to database
cmdAdd.Enabled = False
cmdSave.Enabled = True
cmdDelete.Enabled = True
dtaInventory.Recordset.AddNew
txtItem.SetFocus
End Sub
 
Private Sub cmdDelete_Click()
'Delete item from database
Dim Rvalue As Integer
Rvalue = MsgBox("Are you sure you want to delete this item?", vbQuestion + vbYesNo, "Delete Item")
If Rvalue = vbNo Then Exit Sub
dtaInventory.Recordset.Delete
dtaInventory.Recordset.Requery
dtaInventory.Recordset.MoveNext
If dtaInventory.Recordset.EOF = True Then
    dtaInventory.Refresh
    If dtaInventory.Recordset.BOF = True Then
        MsgBox "You must add a record.", vbOKOnly + vbInformation, "Empty File"
        Call cmdAdd_Click
    Else
        dtaInventory.Recordset.MoveFirst
    End If
End If
txtItem.SetFocus
End Sub
 
Private Sub cmdNext_Click()
'Move to next item
dtaInventory.Recordset.MoveNext
If dtaInventory.Recordset.EOF Then dtaInventory.Recordset.MovePrevious
txtItem.SetFocus
End Sub
 
Private Sub cmdPrevious_Click()
'Move to previous item
dtaInventory.Recordset.MovePrevious
If dtaInventory.Recordset.BOF Then dtaInventory.Recordset.MoveNext
txtItem.SetFocus
End Sub
 
Private Sub cmdSave_Click()
'Check txtItem has been filled
If txtItem.Text = "" Then
Dim Response As Integer
Response = MsgBox("Please enter an item", vbOKOnly + vbCritical, "Add item")
Else
'Save item to database
dtaInventory.Recordset.Update
dtaInventory.Recordset.Requery
cmdAdd.Enabled = True
cmdSave.Enabled = False
cmdDelete.Enabled = True
txtItem.SetFocus
End If
End Sub
 
Private Sub mnuExit_Click()
'Exit Program
Dim Response As Integer
Response = MsgBox("Are you sure you want to exit?", vbYesNo + vbCritical + vbDefaultButton2, "Exit Program")
If Response = vbNo Then
    Exit Sub
Else
    End
End If
End Sub
 
Private Sub mnuPrint_Click()
'Show Printable Inventory
dtaInventory.Recordset.Requery
rptInventory.Refresh
rptInventory.Show
End Sub

The error comes up when I try to view the data report

[GingerNut]

Any ideas?

When I originally wrote the prog I was using ME, but I upgraded to XP Pro a while back. Would that have something to do with it?

[JFK]

Is the database path the same as it was before ie the same folder names?

I haven't got XP pro but I have got XP home and it's my document folder for instance is not in the root directory as it is in Win98.

Just a thought

JFK

[GingerNut]

It's not the path.

[Ecniv]

When is it erroring? as you open the form or as you do an amendment?


Vince

[GingerNut]

The error pops up when I try to show the data report.

[Highlight=VB]
Private Sub mnuPrint_Click()
'Show Printable Inventory
dtaInventory.Recordset.Requery
rptInventory.Refresh
rptInventory.Show
End Sub
[Highlight=VB]

[honeybee]

Are you sure the dtaInventory.Recordset is not opened as forward-only or some such type? Is the .Requery operation allowed on it?

.

[GingerNut]

I've attached the heap, maybe it will be easier for someone to see what's wrong with it.

[ralph]

I see no datasource property set for the report.
I don't see the connection string in the DE either.

When I set them, it worked.

[GingerNut]

Damn, hadn't noticed that. Thanks ralph