一、調(diào)用方式： Sub Acchelp_Test() '如果是 條件 是長整型 Call AccHelp_DeleteFldNumRow("表名稱", " 字段 名稱", 條件 ) '如果是 條件 是文本型 'Call AccHelp_DeleteFldStrRow("表名稱", " 字段 名稱", 條件 ) End Sub 二、兩個 函數(shù) ： Public Function

一、調(diào)用方式：

Sub Acchelp_Test()

'如果是條件是長整型

Call AccHelp_DeleteFldNumRow("表名稱", "字段名稱", 條件)

'如果是條件是文本型

'Call AccHelp_DeleteFldStrRow("表名稱", "字段名稱", 條件)

End Sub

二、兩個函數(shù)：

Public Function AccHelp_DeleteFldStrRow(tblName As String, conditionFldName As String, strCondition As String)

'功能：根據(jù)某字段條件刪除某表中某個字段符合條件(必須是文本型)的整行記錄,需引用DAO3.6

' 一般用于根據(jù)文本型的訂單號(或合同號等)來刪除表中的一條記錄，亦可刪除滿足條件的多條記錄

'修改歷史：2006/1/3

'說明：

'tblName 是指表的名稱

'conditionFldName 是指應(yīng)用條件字段的名稱

'strCondition 是指條件

'作者：竹笛 (微軟最有價值專家)

'說明：您可以無償?shù)卦谀砸验_發(fā)的軟件中應(yīng)用此函數(shù)，為了尊重作者的勞動，請保留這些說明信息。同時您不得用于盈利的商業(yè)用途，歡迎大家提出修改意見，并就此函數(shù)與作者交流

'郵箱：admin@accessoft.com

On Error GoTo Err_AccHelp_DeleteFldStrRow:

Dim strSQL As String

Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset(tblName, dbOpenDynaset)

rst.MoveFirst

Do Until rst.EOF

If rst(conditionFldName) = strCondition Then

rst.Delete

End If

rst.MoveNext

Loop

rst.Close

Set rst = Nothing

Exit_AccHelp_DeleteFldStrRow:

Exit Function

Err_AccHelp_DeleteFldStrRow:

rst.Close

Set rst = Nothing

Resume Exit_AccHelp_DeleteFldStrRow

End Function

Public Function AccHelp_DeleteFldNumRow(tblName As String, conditionFldName As String, NumCondition As Long)

'功能：根據(jù)某字段條件刪除某表中某個字段符合條件(必須是長整型數(shù)字)的整行記錄,需引用DAO3.6

' 一般用于根據(jù)序號來刪除表中的一條記錄，亦可刪除滿足條件的多條記錄

'修改歷史：2006/1/3

'說明：

'tblName 是指表的名稱

'conditionFldName 是指應(yīng)用條件字段的名稱

'NumCondition 是指條件

'作者：竹笛 (微軟最有價值專家)

'說明：您可以無償?shù)卦谀砸验_發(fā)的軟件中應(yīng)用此函數(shù)，為了尊重作者的勞動，請保留這些說明信息。同時您不得用于盈利的商業(yè)用途，歡迎大家提出修改意見，并就此函數(shù)與作者交流

'郵箱：admin@accessoft.com

On Error GoTo Err_AccHelp_DeleteFldNumRow:

Dim strSQL As String

Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset(tblName, dbOpenDynaset)

rst.MoveFirst

Do Until rst.EOF

If rst(conditionFldName) =NumCondition Then

rst.Delete

End If

rst.MoveNext

Loop

rst.Close

Set rst = Nothing

Exit_AccHelp_DeleteFldNumRow:

Exit Function

Err_AccHelp_DeleteFldNumRow:

rst.Close

Set rst = Nothing

Resume Exit_AccHelp_DeleteFldNumRow

End Function

原文參考自站長網(wǎng)http://www.software8.co/shujuku/access/2395.html

聲明：本網(wǎng)頁內(nèi)容旨在傳播知識，若有侵權(quán)等問題請及時與本網(wǎng)聯(lián)系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com