Office中国论坛/Access中国论坛

标题: 请帮我看看,新增出错 [打印本页]

作者: 杨斌321    时间: 2006-12-1 08:05
标题: 请帮我看看,新增出错
[attach]21843[/attach]

作者: 一点通    时间: 2006-12-1 17:01
请注明出错点
作者: liujerryhn    时间: 2006-12-1 19:39
hao


作者: liujerryhn    时间: 2006-12-1 19:40
good
作者: 杨斌321    时间: 2006-12-2 01:25
新增后,生成了新凭证号,子窗体也刷新了,但一往子窗体内录入信息,便还原为前面的信息了
作者: 杨斌321    时间: 2006-12-2 22:31
没有人帮我吗
作者: 一点通    时间: 2006-12-2 22:47
少了一句代码

Private Sub 新增_Click()
On Error GoTo Err_新增_Click

DoCmd.GoToRecord , , acNewRec '新增记录

bh = Val(Nz(Right(DMax("凭证号", "凭证", "Left([凭证号],8)='" & Format("Z") & Format(Date, "yymmdd") & "'"), 3))) + 1
Me!凭证号 = Format("Z") & Format(Date, "yymmdd") & Format(bh, "000")
Exit_新增_Click:
    Exit Sub
Err_新增_Click:
    MsgBox Err.Description
    Resume Exit_新增_Click
End Sub





欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3