有VB+EXCEL的小程序,界面及数据库如下图:



程序代码如下:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Dim rst As New Recordset, sql As String, a As String
  If KeyAscii = 13 Then
    a = Trim(Text1)
    If a = "" Then Exit Sub
    sql = "select * from [sheet1$] where " & AName & "='" & a & "'"
    rst.Open sql, con, adOpenDynamic, adLockOptimistic
    If rst.EOF Then
      Label2.ForeColor = vbRed
      Label2.Caption = "错误条码：" & a
      Text1.Text = ""
    Else
      Label2.ForeColor = vbBlack
      Label2.Caption = "正确条码：" & a
      sql = "delete from [sheet1$] where " & AName & "='" & a & "'"
      Text1.Text = ""
    End If
    rst.Close
    KeyAscii = 0
  End If

现在需要加一个功能，如果相同的数据输入了两次（前提是输入进去的数据显示“正确条码”）系统能不能提示这个条码已经输入了2次？

恩，本来最开始我是想核对一个条码就删除一个，这样就可以达到没有重复条码的目的.

我加了这些代码进去，好像没有反应。我还有一个疑问，假如我有10000个条码需要扫描，相同的条码只能重复扫描两次（产品上会贴2个条码）。如果我上午只扫了5000个，剩下的5000个下午扫，中午的时候电脑会关机，这样会影响到下次开软件是的计数吧？ 我的想法是每扫一个条码就在Excel里把条码上加一个注释，当注释的内容是“2”时，提示已经扫了2次，不知道怎么实现。哎\！

刚开始的时候没说要扫描两次，后来告诉我一个产品是贴两个相同的条码，所以删除的办法行不通。 做这个程序的目的就是为了防止 一批货里出现两个相同条码的产品， 还有就是看扫出来的条码是不是这一批货的。

谢谢大家的帮助，问题已经解决了、