求助“编译错误，标签未定义“

leeyanairen

各位高手：

     我是一个新手，在做access数据库时遇到“编译错误，标签未定义”这个错误，我怎么也想不通呀！请大家帮忙解决，拜托！

    Private Sub 数量_LostFocus()
    On Error GoTo err_数量_lostfocus
    Me![进货金额] = Me![数量] * Me![进货价]
    exit_数量_LostFocus:
           Exit Sub
    err__数量_LostFocus:
          MsgBox Err.Description
          Resume exit_数量_LostFocus
      End Sub



还有一个是按“提交”命令符是，老是出现“在对应所需名称或序数的集合中，未找到项目。但是字段名我都看过是没有问题的呀，到底又是错在哪里呢？大家帮我看看，提个意见！

Private Sub 提交_Click()
On Error GoTo err_提交_click
Dim i, j As Integer
Dim strtemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
Dim rs2 As ADODB.Recordset
Set rs2 = New ADODB.Recordset
   strtemp = "select * from 进货单"
   rs.Open strtemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   strtem = "select * from 进货单历史"
   rs1.Open strtemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   strtem = "select * from 库存资料"
   rs2.Open strtemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   '如果"进货单"为空,则退出
   If rs.RecordCount <= 0 Then
   Exit Sub
End If
rs.MoveFirst
For i = 0 To rs.RecordCount - 1
    cunzai = False
    If rs2.RecordCount < 1 Then
       cunzai = False
    Else
      '判断记录库存中是否存在,是则更新库存信息
      rs2.MoveFirst
      For j = 0 To rs2.RecordCount - 1
         If rs2("产品ID") = rs("产品ID") Then
            rs2("库存数量") = rs2("库存数量") + rs("数量")
            rs2("库存单价") = rs2("进货价")
            rs2("库存金额") = rs2("库存数量") * rs2("库存单价")
            rs2.Update
            cunzai = True
            Exit For
         Else
           rs2.MoveNext
         End If
       Next j
     End If
     '不存在则添加新记录
     If cunzai = False Then
       rs2.AddNew
       rs2("产品ID") = rs("产品ID")
       rs2("产品名称") = rs("产品名称")
       rs2("单位") = rs("单位")
       rs2("仓库") = rs("仓库")
       rs2("库存数量") = rs("库存数量")
       rs2("库存单价") = rs("库存单价")
       rs2("库存金额") = rs2("库存数量") * rs2("库存单价")
       rs2.Update
     End If
     '保存进货单到历史表中
     rs1.AddNew
     rs1("供应商ID") = Me![供应商ID]
     rs1("供应商名称") = Me![供应商名称]
     rs1("进货日期") = Me![进货日期]
     rs1("单号") = Me![单号]
     rs1("仓库") = Me![仓库]
     rs1("备注") = Me![备注]
     rs1("制单人") = Me![制单人]
     rs1("产品ID") = rs("产品ID")
     rs1("产品名称") = rs("产品名称")
     rs1("单位") = rs("单位")
     rs1("数量") = rs("数量")
     rs1("进货价") = rs("进货价")
     rs1("进货金额") = rs("进货金额")
     rs1.Update
     '删除进货单该条记录
     rs.Delete 1
     Me![单据查询 子窗体].Requery
     rs.MoveNext
  Next i
  Set rs = Nothing
  Set rs1 = Nothing
  Set rs2 = Nothing
  Me![金额总计] = Null
  MsgBox "进货单已经提交成功", vbInformation, "提交成功"
exit_提交_click:
  Set rs = Nothing
  Set rs1 = Nothing
  Set rs2 = Nothing
  Exit Sub
err_提交_click:
  MsgBox Err.Description
  Resume exit_提交_click
End Sub

bergyan

第一个问题可能是 err__数量_LostFocus:  这一句...err接着的好像是中文状态下的下横线了

至于第二个问题,最好能上传个附件例子,比较容易查找问题和分析,,单看代码,既眼花又费劲

leeyanairen

高手就是高手,一眼就看到错误的,谢谢!

我把附件一起上传,请帮忙看看!

[此贴子已经被作者于2007-4-4 23:23:23编辑过]

leeyanairen

还有上面窗体中采购收货的单号,怎么样设置自动编号呢?我想用这样子的"XXXX年XX月XX日001"每天自动编号.