Question

我有一个返回例如5行的查询，我想在文本框中显示这些行（字段）。但它只给我一个记录。我还将表单的默认视图属性设置为连续表单。她是我的代码：

Private Sub List2_DblClick(Cancel As Integer)
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT XValue, YValue,Wert FROM tb_DCM_Daten WHERE (FzgID=" & Forms!frm_fahrzeug!ID & " AND [Name]='" & List2.Value & "')")
If rst.RecordCount <> 0 Then

Do While Not rst.EOF
  Text8.SetFocus
  Text8.Text = rst.Fields("XValue").Value

  Text10.SetFocus
  Text10.Text = rst.Fields("YValue").Value

  Text11.SetFocus
  Text11.Text = rst.Fields("Wert").Value
  rst.MoveNext
Loop   
  End If
End Sub

我该怎么做？

Answer 1

现在，您的代码将循环遍历Recordset，将第一条记录中的值放入文本框，然后使用第二条记录中的值覆盖这些值，并覆盖那些来自第三条记录的值，依此类推。

听起来你想要一个子表单。有关详细信息，请查看Office教程here。

使用vba在表单上的文本框中显示一些行

1 个答案: