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