Office中国论坛/Access中国论坛

标题: 标准表达式中数据类型不匹配 [打印本页]

作者: lingyunlan 时间: 2007-12-12 16:56
标题: 标准表达式中数据类型不匹配
Private Sub 保存_Click()
On Error GoTo Err_保存_Click
'定义保存“查询语句”的字符型变量
Dim STemp As String
'判断“工号”组合框是否为空
If Me![工号] <> "" Then
      '为保存内部调动信息“查询语句”字符变量赋值
      STemp = "INSERT INTO 职员内部调动 "
      STemp = STemp & "( 工号,姓名,性别,原组织机构,新组织机构,"
      STemp = STemp & "调动日期,调动原因,备注 )"
      STemp = STemp & "VALUES ( '" & Me![工号] & "','" & Me![姓名] & "',"
      STemp = STemp & "'" & Me![性别] & "','" & Me![原组织机构] & "',"
      STemp = STemp & "'" & Me![新组织机构] & "','" & Me![调动日期] & "',"
      STemp = STemp & "'" & Me![调动原因] & "','" & Me![备注] & "')"
      '使用DoCmd对象的RunSQL方法执行查询
      DoCmd.RunSQL STemp
      '为更新职员基本信息“查询语句”字符变量赋值
      STemp = " update 职员基本资料 "
      STemp = STemp & "SET 组织机构= ''' & Me![新组织机构] & ''' "
      STemp = STemp & "WHERE 工号=" & Me![工号] & ""
      '使用DoCmd对象的RunSQL方法执行查询
      DoCmd.RunSQL STemp
Else
      '如果“工号”为空，则弹出”警告“信息
      MsgBox "“工号”不能为空，请重新输入！", vbOKOnly, "警告"
      '把光标置于“工号”组合框内
      Me![工号].SetFocus
End If
'刷新“职员内部调动子窗体”
Me![职员内部调动子窗体].Requery
Exit_保存_Click:
Exit Sub
Err_保存_Click:
MsgBox Err.Description
Resume Exit_保存_Click
End Sub

作者: hi-wzj 时间: 2007-12-12 17:04
如果调动日期是日期型字段，请用#号而不是'号来分隔。

作者: lingyunlan 时间: 2007-12-13 09:20
具体怎么修改？
谢谢

作者: lingyunlan 时间: 2007-12-13 10:00
职员基本资料表中的数据没有同步更新
'为更新职员基本信息“查询语句”字符变量赋值
      STemp = " update 职员基本资料 "
      STemp = STemp & "SET 组织机构= ''' & Me![新组织机构] & ''' "
      STemp = STemp & "WHERE 工号=" & Me![工号] & ""
      '使用DoCmd对象的RunSQL方法执行查询
      DoCmd.RunSQL STemp

作者: hi-wzj 时间: 2007-12-13 11:41
如果实在不会改，将例子放上来。

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