使用模态或弹出窗口打开表单

Question

稍微苦苦挣扎,我有一个数据表表单,列出了每条记录的ID和其他信息.到目前为止,我已经找到了一些VBA代码,它将每个ID作为超链接打开并将其传递给另一个表单.

我遇到的问题是我想在弹出窗口或模态窗口中打开表单,到目前为止我的代码是:

Private Sub ID_Click()
    Dim varWhereClause As String
    varWhereClause = "ID = " & Me!ID
    DoCmd.OpenForm "Copy Of test", , , varWhereClause
End Sub

Answer 1

DoCmd.OpenForm "Copy Of test", , , varWhereClause, ,acDialog

虽然这将是弹出式和模态式的.