ボタンでMS Accessフォームでレコードを削除する

Question

最近、Accessへのアクセスを開始しましたが、フォーム内のレコードを削除するのがちょっとありません。私は次のコードのリストを持っています：

Private Sub lstPickList_AfterUpdate() 
Dim rst As DAO.Recordset 

Set rst = Me.RecordsetClone 
rst.FindFirst "OrderID=" & lstPickList.Column(0) & "" 
If rst.NoMatch Then 
    MsgBox "The selected record can not be displayed." _ 
     & "To display this record, you must first turn off record filtering.", _ 
     vbInformation 
Else 
    Me.Bookmark = rst.Bookmark 
End If 
Set rst = Nothing 
End Sub 

そしてリスト内で現在選択されている注文を削除するために使用したいボタンです。 "DeleteRecord"マクロは単に私に "コマンドやアクション 'DeleteRecord'は利用できません。"エラー。検索は私のために働いていないコードを私に与えてくれました。

Answer 1

あなたはクローンから直接削除することができます `Me.RecordSet.Bookmark = rst.Bookmark`：

If rst.NoMatch Then 
    MsgBox "The selected record can not be displayed." _ 
     & "To display this record, you must first turn off record filtering.", _ 
     vbInformation 
Else 
    rst.Delete 
End If