请帮我看看，新增出错

一点通 · 发表于 2006-12-1 17:01:00

请注明出错点

liujerryhn · 发表于 2006-12-1 19:39:00

hao

liujerryhn · 发表于 2006-12-1 19:40:00

good

杨斌321 · 发表于 2006-12-2 01:25:00

新增后,生成了新凭证号,子窗体也刷新了,但一往子窗体内录入信息,便还原为前面的信息了

杨斌321 · 发表于 2006-12-2 22:31:00

没有人帮我吗

一点通 · 发表于 2006-12-2 22:47:00

少了一句代码

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

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[与其它组件] 请帮我看看，新增出错

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)