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