Office中国论坛/Access中国论坛

标题: [已解决]SQL语句 [打印本页]

作者: zyz218 时间: 2007-10-9 20:11
标题: [已解决]SQL语句
If Me.Check1 = True Then
      STemp = "INSERT INTO lack(emid, others, yearmonth)"
      STemp = STemp & "SELECT emid," & Me.Text1 & ",'" & Me.Text3 & "'"
      STemp = STemp & "FROM lackadd"
      STemp = STemp & "WHERE intime<#" & Me.Text2 & "# and vocation='作业员';"
         DoCmd.RunSQL STemp
End If

提示FROM子句语法错误？？？

[ 本帖最后由 zyz218 于 2007-10-9 20:39 编辑 ]

作者: zyz218 时间: 2007-10-9 20:39
If Me.Check1 = True Then
      STemp = "INSERT INTO lack(emid, others, yearmonth)"
      STemp = STemp & "SELECT emid," & Me.Text1 & ",'" & Me.Text3 & "'"
      STemp = STemp & " FROM lackadd"
      STemp = STemp & " WHERE intime<#" & Me.Text2 & "# and vocation='作业员';"
         DoCmd.RunSQL STemp
End If
FROM前面与WHERE前面留一空格问题解决！

作者: andymark 时间: 2007-10-9 20:42
STemp & " 间加空格, 在立即窗体debug.print STemp 一下
If Me.Check1 = True Then
      STemp = "INSERT INTO lack(emid, others, yearmonth)"
      STemp = STemp & " SELECT emid," & Me.Text1 & ",'" & Me.Text3 & "'"
      STemp = STemp & " FROM lackadd"
      STemp = STemp & " WHERE intime<#" & Me.Text2 & "# and vocation='作业员';"
         DoCmd.RunSQL STemp
End If

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