Question

我想做的是根据用户在组合框中选择的内容来填充文本字段。我遇到的问题是文本字段需要来自多个查询的数据。每个查询一个文本框，总共有6个。因此，me.txtTextBox1 = me.cboComboBox1.column（1）将不起作用。这可能是一个非常简单的修复程序，但会有所帮助。

Answer 1

组合框的 AfterUpdate 事件需要一个事件过程。在该过程中，您可以使用DLookup函数使用6条语句，但是该函数非常慢。因此，我建议打开6个记录集，这些记录集最多返回一条记录，以检索6个文本框的值。使用6个参数化查询时，代码可能如下所示：

Private Sub cboComboBox1_AfterUpdate()

    With CurrentDb

        Me.txtTextBox1 = Null
        With .QueryDefs("qryQuery1")
            !ParameterNameInQuery1 = Me.cboComboBox1
            With .OpenRecordset()
                If Not .EOF Then
                    Me.txtTextBox1 = !NameOfFieldInQuery1
                End If
                .Close
            End With
            .Close
        End With

        ' ... other 5 code Fragments for the other 5 textboxes ...

    End With

End Sub

基于组合框填充多个文本字段

1 个答案: