请高手指教作者: lxh 时间: 2002-7-19 19:12
制作一个更新按键comm. '在工程中引用DAO.
sub comm_click()
dim db as database
dim qt as querydef
set db=currentdb
set qt=db.createquerydef("","update 人才库 set 地址="&"'"& 地址 & "'","学历="&"'"& 学历 & "'"& "where 姓名="&"'" & 姓名 & "'")
qt.execute
end sub