Office中国论坛/Access中国论坛

标题: [求助]请老师把一段代码改成通用模块 [打印本页]

作者: wssf 时间: 2006-7-17 18:04
标题: [求助]请老师把一段代码改成通用模块
各位专家：您们好！下面一段代码是在窗体中一个文本框[单位]中填入字符后，自动加进表[生产单位]“名称”一栏的代码。由于很多窗体上都重复中一段，我想把它改成通用模块，然后用Call ....调用，请好心大哥给改一下，谢谢啦！

Private Sub 单位_AfterUpdate()
On Error GoTo Err_单位_Click

Dim D As Recordset
Set D = CurrentDb.OpenRecordset("生产单位")
D.AddNew
D("名称") = 单位
D.Update

Exit_单位_Click:
Exit Sub
Err_单位_Click:
Resume Exit_单位_Click
Me.Requery

End Sub

[此贴子已经被作者于2006-7-17 10:05:28编辑过]

作者: sgrshh29 时间: 2006-7-17 20:49
这样试试

public sub adname(strname as string)
dim d as recordset
set d = currentdb.openrecordset("生产单位")
d.addnew
d("名称") = strname
d.update
end sub

调用 call adname(me.单位) 或者 call adname(screen.activecontrol )

作者: wssf 时间: 2006-7-17 23:39
谢谢二楼老师指点。试过有点问题。不过按下面的改动获得通过：

调用：call 添加（Me）

Public Sub 添加(frm As Form)
On Error GoTo Err_生产单位_Click

Dim D As Recordset
Set D = CurrentDb.OpenRecordset("食品生产单位")
D.AddNew
D("名称") = frm.生产单位
D.Update

Exit_生产单位_Click:
Exit Sub
Err_生产单位_Click:
Resume Exit_生产单位_Click
frm.Requery

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)