[求助]请老师把一段代码改成通用模块

wssf

各位专家：您们好！下面一段代码是在窗体中一个文本框[单位]中填入字符后，自动加进表[生产单位]“名称”一栏的代码。 由于很多窗体上都重复中一段，我想把它改成通用模块，然后用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

这样试试

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

谢谢二楼老师指点。试过有点问题。不过按下面的改动获得通过：

调用：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