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/)