请高手老师帮着将这个系统补充完整。

wangxy689

请高手老师帮着将这个系统补充完整。

lijiexiang

学习下

红尘如烟

改了一下，之前是在2010里面做的，我转成了2000的格式，然后在2003里面试了一下没什么问题了，你再试一下，要还有问题，那就是你的Office有问题了，重装一下

红尘如烟

之前就做好了，但是……忘记上传了

roych

回复 wangxy689 的帖子

那就不知道啦。。。俺做的好像没问题啊。。

wangxy689

回复 roych 的帖子

roych 老师，你好，我插入后，总出现“编译错误、语法错误”

Private Sub 保存记录_Click()

Dim FInfo As VbMsgBoxResult

'--

FInfo = MsgBox("记录将保存到[已审核]表，请再次确认...", vbQuestion + vbYesNo, "程序提示")

If FInfo = vbNo Then Exit Sub

'--

If Me.审核结论 = "" Then

Exit Sub

Else

With CurrentDb

.Execute "DELETE * FROM 已审核 WHERE ID = " & Me.ID

.Execute "INSERT INTO 已审核(ID, 申请序列号, 机构名称, 保单号, 险种代码, 保全受理类型, 变更类型, 申请资格人姓名, 申请资格人身份证, 县区柜员工号, 审核人员工号, 给付方式, 金额, 小额现金支付状态, 申请时间, 审核时间, 操作状态) SELECT ID, 申请序列号, 机构名称, 保单号, 险种代码, 保全受理类型, 变更类型, 申请资格人姓名, 申请资格人身份证, 县区柜员工号, 审核人员工号, 给付方式, 金额, 小额现金支付状态, 申请时间, 审核时间, 操作状态 FROM 临时表 WHERE ID = " & Me.ID

.Execute "UPDATE 已审核 SET 审核结论 = '" & Me.审核结论 & "', 审核意见 = '" & Me.审核意见 & "' WHERE ID = " & Me.ID



End With

End If

Me.审核结论 = ""

Me.审核意见 = ""

DoCmd.RunSQL "Delete * from  临时表 where 申请序列号='" & Me.申请序列号&"'"
Me.Requery
End Sub

zyz218

为了使系统能够在不同的操作系统通用如日语、繁体等。建议数据库设计时以英文命名所有因素。

roych

“申请序列号”是文本字段类型，因此必须前后加上单引号：
DoCmd.RunSQL "Delete * from  临时表 where 申请序列号='" & Me.申请序列号&"'"
执行完之后再刷新数据：
Me.Requery

wangxy689

回复 roych 的帖子
roych老师，你好，谢谢你的指导。我增加了一个删除临时表中被窗体抽取的记录语句，目的是让抽取后的数据不再窗体中出现，但是我发现我增加的语句总是出错，请roych老师，多指教，谢谢。我增加的语句用红色标识出来了，您看看错在哪里了，有没有其他解决办法。
Private Sub 保存记录_Click()

Dim FInfo As VbMsgBoxResult

'--

FInfo = MsgBox("记录将保存到[已审核]表，请再次确认...", vbQuestion + vbYesNo, "程序提示")

If FInfo = vbNo Then Exit Sub

'--

If Me.审核结论 = "" Then

Exit Sub

Else

With CurrentDb

.Execute "DELETE * FROM 已审核 WHERE ID = " & Me.ID

.Execute "INSERT INTO 已审核(ID, 申请序列号, 机构名称, 保单号, 险种代码, 保全受理类型, 变更类型, 申请资格人姓名, 申请资格人身份证, 县区柜员工号, 审核人员工号, 给付方式, 金额, 小额现金支付状态, 申请时间, 审核时间, 操作状态) SELECT ID, 申请序列号, 机构名称, 保单号, 险种代码, 保全受理类型, 变更类型, 申请资格人姓名, 申请资格人身份证, 县区柜员工号, 审核人员工号, 给付方式, 金额, 小额现金支付状态, 申请时间, 审核时间, 操作状态 FROM 临时表 WHERE ID = " & Me.ID

.Execute "UPDATE 已审核 SET 审核结论 = '" & Me.审核结论 & "', 审核意见 = '" & Me.审核意见 & "' WHERE ID = " & Me.ID



End With

End If

Me.审核结论 = ""

Me.审核意见 = ""

Me.Requery
DoCmd.RunSQL "Delete * from  临时表 where 申请序列号=" & Me.申请序列号
'我增加该语句的作用是想将抽检到的数据直接从临时表中删除，我这个语句不知道错在哪里了，请roych老师指教一下。End Sub

roych

回复 wangxy689 的帖子

前面也说过了，由于这些数据并非绑定数据，因此是必须逐条追加。换句话说，除非每条的结论都是一样，否则，你应该每条都输入不同的值，这样追加后的数据才是正确的数据。
或者稍稍修改下代码，追加完毕后清空之前输入的值，那么因为之前设置了结论为空时不追加而不会把默认值给追加上去了。

1. Private Sub 保存记录_Click()
   
2. Dim FInfo As VbMsgBoxResult
   
3. '--
   
4. FInfo = MsgBox("记录将保存到[已审核]表，请再次确认...", vbQuestion + vbYesNo, "程序提示")
   
5. If FInfo = vbNo Then Exit Sub
   
6. '--
   
7. If Me.审核结论 = "" Then
   
8. Exit Sub
   
9. Else
   
10. With CurrentDb
    
11. .Execute "DELETE * FROM 已审核 WHERE ID = " & Me.ID
    
12. .Execute "INSERT INTO 已审核(ID, 申请序列号, 机构名称, 保单号, 险种代码, 保全受理类型, 变更类型, " _
    
13. & "申请资格人姓名, 申请资格人身份证, 县区柜员工号, 审核人员工号, 给付方式, 金额, " _
    
14. & "小额现金支付状态, 申请时间, 审核时间, 操作状态) " _
    
15. & "SELECT ID, 申请序列号, 机构名称, 保单号, 险种代码, 保全受理类型, 变更类型, " _
    
16. & "申请资格人姓名, 申请资格人身份证, 县区柜员工号, 审核人员工号, 给付方式, 金额, " _
    
17. & "小额现金支付状态, 申请时间, 审核时间, 操作状态 FROM 临时表 WHERE ID = " & Me.ID
    
18. .Execute "UPDATE 已审核 SET 审核结论 = '" & Me.审核结论 & "', 审核意见 = '" & Me.审核意见 & "' " _
    
19. & "WHERE ID = " & Me.ID
    
20. End With
    
21. End If
    
22. Me.审核结论 = ""
    
23. Me.审核意见 = ""
    
24. Me.Requery
    
25. End Sub

复制代码