レコードを削除しようとしたときにエラー2501

Question

私はAccessデータベースのフロントエンドを持っており、現在のレコードを削除するためのボタンをフォームに配置しようとしています。私はレコードを削除するには、次のVBAコードを使用：

If Me.NewRecord Then 
    Me.Undo 
    Exit Sub 
End If 

DoCmd.RunCommand acCmdDeleteRecord 

Me.Requery 
Me.Refresh 

私はフォームをデータベースに挿入されたレコードでこれを実行すると、それはのDoCmdに実行時エラー「2501」を返します。しかし、データベースにすでに存在していたレコードで実行すると、コードは意図したとおりに完了します。

さらに、他の誰もこのデータベーステーブルにアクセスしていません。私は1つのフォームしか開いていませんでした。

アクセス時に手動でリンクテーブルから削除する場合、同じエラーが発生しましたが、SQL Server Management Studioを使用してデータベースから削除できました。

これは何が起こるのでしょうか？

EDIT

私はいくつかのより多くの調査を行なったし、私はどちらかのアクセスを使用して、ベーステーブル内の新しいレコードを編集することができませんことを見出しました。別のユーザーがレコードを変更したというエラーが表示されます。

Answer 1

テーブルにタイムスタンプフィールドを持つことをお勧めします（SSMAアシスタントは、Accessからアップサイズするためにこれを使用すると、これをすべてのテーブルに追加しますが、間違いなく推奨します） 。私はこのように書くでしょう：

If Me.NewRecord Then 
    Me.Undo 
    Else 
    DoCmd.RunCommand acCmdDeleteRecord 
    Me.Requery 
    End If 

最新のデータをすでに持っているので、再クエリー後にリフレッシュは冗長です。

Exit Subを使用すると、排他的ではないガード句に役立ちますが、この場合、既存のレコードを削除するか、新しいレコードを元に戻すかどちらかがあります。これは、単一のIf/Then/Elseブロック内で処理することができ、サブルーチンの出口点が1つしかないため、将来的にコードが複雑になる場合に役立ちます。