deleting record leave at #Deleted

[markjkubicki]

I've got this simple code to delete a record... (which works just fine); the problem is navigating to a valid record once it is deleted.


At first I did not have the me.requery line, and I thought that might help... but no

            vCurrentRecordNo = Me.CurrentRecord            sSQL = "Delete from tbeFixtureTypeDetails" & " WHERE [Type] = '" & [Forms]![frmSpec]![txtType] & "';"
            CurrentDb().Execute sSQL, dbFailOnError
            Me.Requery
            
            If vCurrentRecordNo = 1 Then
                DoCmd.GoToRecord , , acGoTo, 1
            Else
                DoCmd.GoToRecord , , acGoTo, vCurrentRecordNo - 1
            End If

as always, with many thanks in advance,
Mark

[JoeM]

If you are viewing this records through a Form, you might need a Me.Refresh line too, to refresh the Form to reflect the change.

[markjkubicki]

I am viewing it thru a form<br>and took your suggestion to add ME.REFRESH (immediately after Me.Requery)<br>I've still got the #Deleted issue and get thrown an error: 'record is deleted' if I try to navigate away from it<br><br>running a debug, it goes to error immediately after the Me.Requery<br><br>

[JoeM]

What kind of Form do you have?
Is it showing a single record, continuous records?
Is there a subform on it?
How is the code being initiated?

It may be helpful if you can upload the database for analysis. Just be sure to remove any sensitive information first.

[markjkubicki]

- continuous records
- with several related subforms
- command button_click event
don't mind uploading the database, but with several related files and and a lot of "other" (irrelevant) stuff, it will take a small bit of effort; never-the-less, if it becomes abvious that this would realy help my cause... just let me know (it's also still in 32-bit -which may certainly be a problem)

[Rawb]

Try moving the Me.Requery down underneath the If block.