有沒有辦法通過 ByRef 函式更新記錄集中的欄位？我覺得這個例子應該可以作業，但是 tbl![Field1] 沒有被 UpdateTable 子更新。可以這樣做，還是必須先將該欄位傳遞給變數？
Private Sub DeclareTable()
Dim tbl As Recordset
Set tbl = CurrentDb.OpenRecordset("Table1")
tbl.MoveFirst
tbl.Edit
UpdateTable tbl![field1], 5, 2
tbl.Update
End Sub
Private Sub UpdateTable(ByRef tblField, X, Y)
tblField = X * Y
End Sub
uj5u.com熱心網友回復：
您可能需要更具體，因為您希望使用 DAO：
Private Sub DeclareTable()
Dim tbl As DAO.Recordset
Set tbl = CurrentDb.OpenRecordset("Table1")
tbl.MoveFirst
tbl.Edit
UpdateTable tbl![Field1], 5, 2
tbl.Update
tbl.Close
End Sub
Private Sub UpdateTable( _
ByVal tblField As DAO.Field, _
ByVal X As Long, _
ByVal Y As Long)
tblField.Value = X * Y
End Sub
這在這里運行得很好。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/342501.html
下一篇：按記錄ID僅選擇最近的記錄