Office中国论坛/Access中国论坛

标题: 请教:"运行时错误'13'"类型不匹配的错误提示是何原因? [打印本页]

作者: lvrongsheng 时间: 2006-1-12 16:44
标题: 请教:"运行时错误'13'"类型不匹配的错误提示是何原因?

下面这段代码运行时有"运行时错误'13'"类型不匹配等错误提示:如图:帮我看看可能的出错原因,谢谢.

Private Sub 正式任用_Click()
'定义临时字符串
Dim s As Variant
s = "是否要正式任用:" + Form_选拔任用录改子窗体.姓名 + " 同志新的职务？"
   '弹出确认对话框
If MsgBox(s, vbOKCancel) = vbOK Then
      '如果确认，就建立添加类别查询的一个实例
      Set r = CurrentDb.QueryDefs("任职情况行政职务")
      '创建SQL-Insert语句
      s = "insert into 任职情况行政职务表 ( 人员编号, 姓名, 行政职务) values(""" + [Forms]![信息录入主窗体]![选拔任用录改子窗体]![人员编号] + """,""" + [Forms]![信息录入主窗体]![选拔任用录改子窗体]![姓名] + """," + [Forms]![信息录入主窗体]![选拔任用录改子窗体]![拟任职务] + ")"
      '设置记录集的SQL语句
      r.SQL = s
      '执行SQL语句
      r.Execute
      '提示成功
      MsgBox "添加成功！"
End If
End Sub

调试时的错误提示定位在此行代码:
  s = "insert into 任职情况行政职务表 ( 人员编号, 姓名, 行政职务) values(""" + [Forms]![信息录入主窗体]![选拔任用录改子窗体]![人员编号] + """,""" + [Forms]![信息录入主窗体]![选拔任用录改子窗体]![姓名] + """," + [Forms]![信息录入主窗体]![选拔任用录改子窗体]![拟任职务] + ")"

[attach]15305[/attach]

作者: fan0217 时间: 2006-1-12 21:14
光看图片怎么知道啊？

传上你的库来，让大家分析分析。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)