VBA：今天早上写的一个简单窗体，删除关系表中的旧数据

今天早上写的一个简单窗体，删除关系表中的旧数据。没有对非法数据的处理。界面如下：

下面是代码：呵呵。

Option  Compare Database

Private   Sub  CmdDelete_Click()
     Call  DeleteOldData(Me.Text0)
End Sub

Function  DeleteOldData(YearStr)
Dim  Sql, Sqlo, Sqlm
Dim  Rst  As  DAO.Recordset
Dim  i
If   IsNull (YearStr)  Then
    Sql  =   " Select ItemNo From ProdutsInfo Where YearS Is Null "
Else
    Sql  =   " Select ItemNo From ProdutsInfo Where YearS=' "   &  YearStr  &   " 相片' "
End   If
Me.Text4  =   0
Set  Rst  =  CurrentDb.OpenRecordset(Sql)
If   Not  (Rst.EOF  And  Rst.BOF)  Then
    Rst.MoveLast
    Rst.MoveFirst
    Me.Text4  =  Rst.RecordCount
     For  i  =   1   To  Me.Text4
        Me.LB.Caption  =  i  &   "  删除记录: "   &  Rst( " ItemNo " ).Value
        Me.Repaint
        Sqlo  =   " Delete * From Others Where ItemNo=' "   &  Rst( " ItemNo " ).Value  &   " ' "
        CurrentDb.Execute Sqlo
        Sqlm  =   " Delete * From Materials Where ItemNo=' "   &  Rst( " ItemNo " ).Value  &   " ' "
        CurrentDb.Execute Sqlm
        Rst.MoveNext
     Next
    Me.LB.Caption  =   " 删除明细记录完毕. "
End   If
If   IsNull (YearStr)  Then
    Sql  =   " Delete ItemNo From ProdutsInfo Where YearS Is Null "
Else
    Sql  =   " Delete ItemNo From ProdutsInfo Where YearS=' "   &  YearStr  &   " 相片' "
End   If
CurrentDb.Execute (Sql)
Me.LB.Caption  =   " 删除货号记录完毕. "
End Function

Private   Sub  CmdDeletMx_Click()
Dim  Sql
Dim  Rst  As  DAO.Recordset
Me.LBOther.Caption  =   " 删除明细内容操作: "
If   Not   IsNull (Me.TBoxOther)  Then
    Sql  =   " Delete * From Others Where ItemNo=' "   &  Me.TBoxOther  &   " ' "
    CurrentDb.Execute Sql
    Sql  =   " Delete * From Materials Where ItemNo=' "   &  Me.TBoxOther  &   " ' "
    CurrentDb.Execute Sql
    Me.LBOther.Caption  =   " 删除成功. "
Else
    Me.LBOther.Caption  =   " 删除失败.... "
End   If
End Sub

Private   Sub  CmdQry_Click()
   Call  Qry(Me.Text0)
End Sub

Function  Qry(YearStr)
Dim  Sql
Dim  Rst  As  DAO.Recordset
Dim  i
If   IsNull (YearStr)  Then
    Sql  =   " Select ItemNo From ProdutsInfo Where YearS Is Null "
Else
    Sql  =   " Select ItemNo From ProdutsInfo Where YearS=' "   &  YearStr  &   " 相片' "
End   If
Me.Text4  =   0
Set  Rst  =  CurrentDb.OpenRecordset(Sql)
If   Not  (Rst.EOF  And  Rst.BOF)  Then
    Rst.MoveLast
    Rst.MoveFirst
    Me.Text4  =  Rst.RecordCount
End   If
End Function