This sounds so silly. I've been trying for an hour to delete a record found in a tabletype recordset without displaying the Access standard message "You are about to delete x records..." you know.

I already have my own msgbox() function that asks for confirming the deletion.

I've tried DoCmd.SetWarnings False and later back to True.
I've tried SetOption with "Confirm Record Changes" to False then back to True. I also tried a few other ones to no avail.

I am sure I did that in the past and had no problems at all finding the information. Here's a portion of the code:

... (more)
    If MsgBox("Delete record?") = vbYes Then
        Dim dbs As DAO.Database
        Dim rst As DAO.Recordset

        Set dbs = CurrentDb()
        Set rst = dbs.OpenRecordset("tblzzz", dbOpenTable)

        With rst
            .Index = "PrimaryKey"
            .Seek "=", Me!EtudID, Me!FinDetailAn

            If Not .NoMatch Then
                .Delete
            Else
                DisplayExclamation "Not found"
            End If
        End With
    Else
... (more)

This code is in the OnDelete event of the form. As I think of it could it belong to another event like BeforeDelConfirm? Hum I'm on my way to try this.

If anybody can help I would appreciate.

Daniel

__________________
Daniel

Here's something else I tried. In the Debug Window I disable manually the Confirm Record Changes with the following:

SetOption "Confirm Record Changes",false

I run the procedure and I am not bothered by any message. When, on the other hand, I add the line above at the top of my procedure I still get the standard Access message!! Remember, I mentionned that SetWarning False didn't help at all. Anybody knows hpw to avoid this message?

Thank you

Daniel

Oh well. I used another approach after all. A good old delete query with a criterion reading the current record. And it works perfectly, no Access message.

Isn't it odd that I reply to my own post? 8)

    If MsgBox("Delete record?") = vbYes Then
        DoCmd.SetWarnings False
        ' Delete query using the current foreign key
        ' as a criterion.
        DoCmd.OpenQuery "qryDeleteRecord"
        DoCmd.SetWarnings True
    Else
        Cancel = True
    End If


Daniel

Good reasoning. Thanks for sharing it with us.

Clive Astley