msAccess 2007将表单对象传递给一个函数

Question

因为我一遍又一遍地做同样的事情，我想编写一个通用函数，它传递调用该​​函数的窗体，另一个窗体名称与字段值。我的表单上的一个字段将值和字段从另一个表单中传递出去。我认为这应该很容易。

一个简单的例子：

call setdefaultvalues(form1 as object, form2 as object, field1 as object, field2 as object) 

function setdefaultvalues(form1 as ojbect, form2 as object, field1 as object, field2 as object) 

If CurrentProject.AllForms(form1).IsLoaded Then 
form1.field1.defaultvalue = form2.field2 
end if 

end function 

有人可以给我一个手this.Thanks！

Answer 1

这里是传递对象&然后引用的名称的一种方式......

Private Sub Command6_Click() 
    ' Pass the names of the objects. 
    Call setdefaultvalues(Me.Name, Me.Name, "txtField1", "txtField2") 
End Sub 


Function setdefaultvalues(form1 As String, form2 As String, field1 As String, field2 As String) 
    If CurrentProject.AllForms(form1).IsLoaded Then 
     Forms(form1).Controls(field1).DefaultValue = Forms(form2).Controls(field2) 
    End If 
End Function