[求助]窗體刪除當前記錄問題

小宜

<>如何刪除窗體當前選取的記錄?而下面的代碼始終冊除的是第一個記錄,謝謝!</P>
<>rivate Sub 刪除記錄_Click()<BR>On Error GoTo Err_刪除記錄_Click<BR>    Dim db As Database<BR>    Dim rs As DAO.Recordset<BR>    Set db = CurrentDb<BR>    Set rs = db.OpenRecordset("表1", dbOpenDynaset)<BR>        rs.Delete<BR>        rs.Close<BR>    Me![表1].Requery</P>
<P>Exit_刪除記錄_Click:<BR>    Exit Sub</P>
<P>Err_刪除記錄_Click:<BR>    MsgBox Err.Description<BR>    Resume Exit_刪除記錄_Click<BR>    <BR>End Sub</P>

hi-wzj

按鈕向?qū)�，刪除記錄....拷貝代碼，即可。