|
Private Sub cmdSave_Click()
On Error GoTo Err_cmdSave_Click
If Nz([dwname]) = "" Or Nz([kind]) = "" Or Nz([agent]) = "" Then
MsgBox "单位名称/单位性质/经办人不能为空!", 64, "新永旭模具"
Else
If DLookup("[dwname]", "德江县企事业单位在职职工失业保险登记汇总表", "[dwname]='" & [dwname] & "'") <> "" Then
MsgBox "代码重复,请重新输入!", 64, "温馨提示"
Me.dwname.SetFocus
Else
DoCmd.RunSQL "insert into 德江县企事业单位在职职工失业保险登记汇总表(dwname,kind,pp,dwfr,address,finance,agent,bank,number,call,dremark) select [dwname],[kind],[pp],[dwfr],[address],[finance],[agent],[bank],[number],[call],[dremark] "
MsgBox "数据已经添加成功!", 64, "温馨提示"
Me.[dwname] = Null
Me.[kind] = Null
Me.[pp] = Null
Me.[dwfr] = Null
Me.[address] = Null
Me.[finance] = Null
Me.[agent] = Null
Me.[bank] = Null
Me.[number] = Null
Me.[call] = Null
Me.[dremark] = Null
Me.[德江县企事业单位在职职工失业保险登记汇总表子窗体].Requery
Me![dwname].SetFocus |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|