Set rs = Form1.Adodc1.Recordset重复精简

Question

Dim rs  As Recordset
Set rs = Form1.Adodc1.Recordset怎么把以上代码加入到通用里
而不是重复
Private Sub Form_Load()
Dim rs  As Recordset
Set rs = Form1.Adodc1.Recordset
end subPrivate Sub Command1_Click()
Dim rs  As Recordset
Set rs = Form1.Adodc1.Recordset
end subPrivate Sub Command2_Click()
Dim rs  As Recordset
Set rs = Form1.Adodc1.Recordset
end sub

Answer 1

在通用里定义Dim rs  As Recordset，然后在form_load里写 Set rs=Form1.Adodc1.Recordset
这样不知道可不可以达到你的要求

Answer 2

Dim rs  As Recordset Private Sub Form_Load() 
Set rs = Form1.Adodc1.Recordset 
end sub 
Private Sub Command1_Click() 
Set rs = Form1.Adodc1.Recordset 
end sub 
Private Sub Command2_Click() 
Set rs = Form1.Adodc1.Recordset 
end sub 我目前就是这样啊

Answer 3

那你在form_load里写完了，在按钮里直接调用不行吗？

Answer 4

在你需要访问Form1.Adodc1.Recordset时处理最合适。