如何用代碼來動態的創建窗體的輸入參數

HG

如何在用命今按鈕打開數據源為帶參數的存儲過程的窗體的同時，用代碼來改帶輸入參數，且打開窗體。(一般的作法是，在用帶參數輸入的存儲過程為數據源的窗體的屬於屬性中輸入如下語句:forms.[formname]![para]即可。)但現在的情況是，按上述語法，則打開窗體時參數已幫定到某一個窗體中了，如上述的forms.[formname]，而現在的問題是，如何用代碼來在命令按鈕的單擊事件發生後，來動態的創健親的輸入參數，並打開窗體。
我的語法如下：但有錯誤發生，請各位指點
Private Sub com_qry_emp_Click()
Dim my_frm As New Form
Set my_frm = Form_EMPloyee
my_frm.InputParameters = "@my_emp_sn = forms.[wage_new]![emp_sn]"
DoCmd.OpenForm my_frm /*有錯誤，請指點
Set my_frm = Nothing
End Sub
這個問題有很多實際的作用，請各位高手賜教!多多謝!
[em02][em02]

[此贴子已经被HG于2002-7-11 12:27:48编辑过]

zhuyiwen

forms.[wage_new]! => forms![wage_new]!

HG

與這個有關嗎？forms.[wage_new]!==forms![wage_new]!
的引用方法是都可以行的通的。請看看上面的問題。

freemanager

怎么可以反复犯一些同样的错误？原来创建窗体的多实例就用到过，应该用：
My_Frm.Visible = True 来打开一个已经创建的窗体。
再有，后面这句：
set My_frm = nothing。
这窗体岂不是在创建的同时又被你干掉了？

HG

freemanager:多謝!
my_frm.InputParameters = "@my_emp_sn = forms.[wage_new]!"
DoCmd.OpenForm my_frm
這兩行語句可以創建一個無錯誤的數據源嗎，且打開窗體。