ник: deutin
Всё удаляет, спасибо, надо было так:
Private Sub cmdDellRecord_Click()
Dim rst As DAO.Recordset
Me.subfrmNewDoc.Form.AllowDeletions = True
Me.subfrmNewDoc.Form.AllowEdits = True
If MsgBox("Óäàëèòü " & Me.subfrmNewDoc.Form.CurrentRecord & "-þ çàïèñü?", vbYesNo + vbQuestion) = vbYes Then
DoCmd.SetWarnings False
Set rst = Me.subfrmNewDoc.Form.Recordset
rst.Delete
End If
DoCmd.SetWarnings True
End Sub
|