编辑的程序最后一句提示:标签未定义

liumang54321

Private Sub 保存机构_Click()
On Error GoTo err_保存机构_click
Dim i As Integer
Dim STemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
'为打开数据库表"查询语句"字符变量赋值
STemp = "Select * From 单位资料"
'打开 "单位资料" 数据表
Rs.Open STemp, CurrentProject.Connetion, adOpenkeyset, adLockOptimistic
   '判断 "单位ID" 等文本框是否为空
   If IsNull(Me![单位ID]) = True Then
      '弹出提示 "单位ID" 文本框不可以为空信息
      MsgBox "请输入 '单位ID',它不可以为空!", vbOKOnly, "输入 '单位ID' "
      '把光标置于“单位ID"文本框内
      Me![单位ID].SetFocus
      '退出子程序'
      Exit Sub
   ElseIf IsNull(Me![单位名称]) = True Then
      MsgBox "请输入 '单位名称',它不可以为空! ", vbOKOnly, "输入 '单位名称'"
      Me![单位名称].SetFocus
      Exit Sub
      
   ElseIf IsNull(Me![单位电话]) = True Then
      MsgBox "请输入 '单位电话',它不可以为空! ", vbOKOnly, "输入 '单位电话' "
      Me![单位电话].SetFocus
      Exit Sub
   Else
      '循环判断该编号的单位是否存在
      If Rs.RecordCount > 0 Then
          Rs.MoveFirst
          For i = 1 To Rs.RecordCount
              '如果存在,弹出信息并退出子过程
              If Rs("职员ID") = Me![职员ID] Then
                 MsgBox "该编号的职员已经存在,请核实!", vbCritical, "记录已经存在"
                 Exit Sub
              Else
                 Rs.MoveNext
              End If
           Next i
        End If
    End If
    '为保存单位资料"查询语句"字符变量赋值
    STemp = "insert into 单位资料"
    STemp = STemp & "(单位ID,单位名称,单位地址,单位人员,单位电话)"
    STemp = STemp & "values ('" & Me![单位ID] & "','" & Me![单位名称] & "',"
    STemp = STemp & "'" & Me![单位地址] & "','" & Me![单位人员] & "','" & Me![单位电话] & "')"
    '使用docmd对象的runsql方法执行查询
    DoCmd.RunSQL STemp
    '刷新"单位资料管理子窗体"
    Me![单位资料管理子窗体].Requery
    '弹出 "保存完成"的提示信息
    'msgbox "单位资料已经保存完成!",vbokonly,"保存完成"
    '释放系统为RS数据集分配的空间
    Set Rs = Nothing
    Exit Sub
err_保存机构_click:
   MsgBox Err.Description
   Resume Exit_保存机构_Click
End Sub


红色部分为提示的错误
高手帮帮忙

ui

要定义标签  Exit_保存机构_Click

像 err_保存机构_click: 这样

tz-chf

Set Rs = Nothing
Exit_保存机构_Click:
    Exit Sub
err_保存机构_click:
   MsgBox Err.Description
   Resume Exit_保存机构_Click
End Sub

没抄全?

changweiren

yes,allright!