求高手帮忙

majie0218

窗体上有添加按钮 运行是出现附件中对话框
这是怎么了？

有人说是字段设置有问题了
    我不知道哪里错了
哪位高手帮帮忙吧   
我的字段设置是：
           字段名称   类型     大小   必填字段     允许为空字符串
           职工ID        文本    10           是                 否
          所在部门   文本     1 0         是                 否
           职称      文本        10          否                是
           姓名      文本      10          是                 否
           性别      文本        4          是                 否
           籍贯      文本        10          否                是
      身份证ID     文本       18           否                是
          工资     数字（单精度型）  否                               默认值：0
          补贴     数字（单精度型）  否                            默认值：0
     联系方式    文本         12           否                是
         备注       文本         50          否                      是

kangking

这个要看实例。也许是添加的按钮代码有问题，也许是表设计的问题（比如表中有查阅字段时常会出现这样的问题），也许是表中1对多的关系限制了录入，等等。

majie0218

Private Sub 添加职工_Click()
On Error GoTo Err_添加职工_Click
  '定义保存"查询语句"的字符型变量
Dim STemp As String
    '判断"职工ID"等文本框是否为空
    If IsNull(Me![职工ID]) = True Then
      '弹出提示"职工ID"文本框不可以为空信息
      MsgBox "请输入 职工ID 它不能为空！", vbOKOnly, "输入职工ID"
      '把光标置于"职工ID"文本框内
      Me![职工ID].SetFocus
    ElseIf IsNull(Me![所在院系]) = True Then
      '弹出提示"所在院系"文本框不可以为空信息
      MsgBox "请输入 所在院系 它不能为空！", vbOKOnly, "输入所在院系"
      '把光标置于"所在院系"文本框内
      Me![所在院系].SetFocus
    ElseIf IsNull(Me![职称]) = True Then
      '弹出提示"职称"文本框不可以为空信息
      MsgBox "请输入 职称 它不能为空！", vbOKOnly, "输入职称"
      '把光标置于"职称"文本框内
      Me![职称].SetFocus
    ElseIf IsNull(Me![姓名]) = True Then
      '弹出提示"姓名"文本框不可以为空信息
      MsgBox "请输入 姓名 它不能为空！", vbOKOnly, "输入姓名"
      '把光标置于"姓名"文本框内
      Me![姓名].SetFocus
    ElseIf IsNull(Me![性别]) = True Then
      '弹出提示"性别"文本框不可以为空信息
      MsgBox "请输入 性别 它不能为空！", vbOKOnly, "输入性别"
      '把光标置于"性别"文本框内
      Me![性别].SetFocus
    Else
     '为添加职工"查询语句"字符变量赋值
     STemp = "INSERT INTO 职工基本资料"
     STemp = STemp & "(职工ID,所在院系,职称,姓名,性别,籍贯,"
     STemp = STemp & "身份证ID,工资,补贴,联系方式,备注)"
     STemp = STemp & "VALUES('" & Me![职工ID] & "','" & Me![所在院系] & "',"
     STemp = STemp & " '" & Me![职称] & "','" & Me![姓名] & "',"
     STemp = STemp & " '" & Me![性别] & "','" & Me![籍贯] & "',"
     STemp = STemp & " '" & Me![身份证ID] & "','" & Me![工资] & "',"
     STemp = STemp & " '" & Me![补贴] & "','" & Me![联系方式] & "',"
     STemp = STemp & " '" & Me![备注] & "')"
     '使用DoCmd对象的RunSQL方法执行查询
     DoCmd.RunSQL STemp
     '刷新"职工信息管理 子窗体"窗体
     Me![职工信息管理 子窗体].Requery
   End If
Exit_添加职工_Click:
   Exit Sub
Err_添加职工_Click:
   MsgBox Err.Description
   Resume Exit_添加职工_Click

End Sub