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

zyz218

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

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

roych

回复 wangxy689 的帖子

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

红尘如烟

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

红尘如烟

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

lijiexiang

学习下