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 是指應用條件字段的名稱
'strCondition 是指條件
'作者：竹笛 (微軟最有價值專家)
'說明：您可以無償?shù)卦谀砸验_發(fā)的軟件中應用此函數(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 是指應用條件字段的名稱
'NumCondition 是指條件
'作者：竹笛 (微軟最有價值專家)
'說明：您可以無償?shù)卦谀砸验_發(fā)的軟件中應用此函數(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
