代碼如下:
[plain] view plaincopy
'拼寫刪除指定PR Number的SQL文
stSql = "DELETE FROM [000_BASTS] WHERE [PR NR] = '" & pr_nr & "'"
'執行SQL文
CurrentDb.Execute (stSql)