如何创建动态窗体

下面的示例将窗体的 RecordSource 属性设为“客户”表：

Forms!frmCustomers.RecordSource = "Customers"

下一个示例根据 cmboCompanyName 组合框控件中选定的公司名称，将窗体的记录源更改为“客户”表中的单个记录。该组合框的内容由一条语句决定，该 SQL 语句返回的是客户 ID（在绑定列中）和公司名称。“客户ID”的数据类型为“文本”型。

Sub cmboCompanyName_AfterUpdate()
    Dim strNewRecord As String
    strNewRecord = "SELECT * FROM Customers " _
        & " WHERE CustomerID = '" _
        & Me!cmboCompanyName.Value & "'"
    Me.RecordSource = strNewRecord
End Sub