|
当为“保存记录”按钮写完代码后,点击保存记录,然后弹出“INSERT INTO”错误。
代码如下:
Private Sub 保存记录_Click()
On Error GoTo Err_保存记录_Click
'判断“日期”等文本框是否为空
If IsNull(Me![日期]) = True Then
'弹出提示“日期”文本框不可以为空信息
MsgBox "请输入“日期”,它不可以为空!", vbOKOnly, "输入“日期”"
'把光标置于“货商ID”文本框内
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
ElseIf IsNull(Me![经办人]) = True Then
MsgBox "请输入“经办人”,它不可以为空!", vbOKOnly, "输入“经办人”"
Me![经办人].SetFocus
Else
'为保存计划“查询语句”字符变量赋值
STemp = "INSERT INTO 财务回款信息表"
STemp = STemp & "( 日期,付款单位,金额,开票价格,经办人,今日总回款,备注)"
STemp = STemp & "VALUES ('" & Me![日期] & "','" & Me![付款单位] & "',"
STemp = STemp & "'" & Me![金额] & "','" & Me![开票价格] & "',"
STemp = STemp & "'" & Me![经办人] & "','" & Me![今日总回款] & "',,'" & Me![备注] & "')"
'使用DoCmd对象的RunSQL方法执行查询
DoCmd.RunSQL STemp
'刷新“财务表子窗体”子窗体
Me![财务回款表 子窗体].Requery
End If
Exit_保存记录_Click:
Exit Sub
Err_保存记录_Click:
MsgBox Err.Description
Resume Exit_保存记录_Click
End Sub
“财务回款信息表”为“对象--表”中的表格。
财务回款表——为“对象——窗体”中的,此窗体含有一个子窗体。
不知道说清楚了没有,我刚学ACCESS,呵呵,大家见谅。
希望大家给予解决,谢谢!! |
|