The following highlighted code(>>>>>>>>>>>>>>>>) gives me:
"operation is not supported for this type of object"
I'm assuming the Edit & Update will give me the same error.
I got this code from RickSpr in response to Swiftraven(May 9, 2002--Saving calculated valued in an archive table)
I'm using Access 2000.
In my VBA code, under Tools/Reference, I have the Microsoft DAO 3.6 Object Library checked.
Players is the database I'm trying to update.
Any ideas??
Dim PlayerInfo As DAO.Recordset
Set PlayerInfo = CurrentDb.OpenRecordset("Players"
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
PlayerInfo.FindFirst "PlastFirst = '" & svPlastFirst & "' "
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
If PlayerInfo.NoMatch Then
MsgBox "Can't find Player(" & svPlastFirst & ""
Etc.
Else
PlayerInfo.Edit
PlayerInfo![Field] = work
PlayerInfo.Update
End If
"operation is not supported for this type of object"
I'm assuming the Edit & Update will give me the same error.
I got this code from RickSpr in response to Swiftraven(May 9, 2002--Saving calculated valued in an archive table)
I'm using Access 2000.
In my VBA code, under Tools/Reference, I have the Microsoft DAO 3.6 Object Library checked.
Players is the database I'm trying to update.
Any ideas??
Dim PlayerInfo As DAO.Recordset
Set PlayerInfo = CurrentDb.OpenRecordset("Players"
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
PlayerInfo.FindFirst "PlastFirst = '" & svPlastFirst & "' "
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
If PlayerInfo.NoMatch Then
MsgBox "Can't find Player(" & svPlastFirst & ""
Etc.
Else
PlayerInfo.Edit
PlayerInfo![Field] = work
PlayerInfo.Update
End If