Question

我正在使用Access VBA，我有两种形式（form1和form2），在表单1中我有一个列表框控件（form1.modifiable49）。我选择一个列表项并使用按钮控件单击我打开第二个表单（form2），

在第二种形式中，我有一些表格列，我有一个文本框，我存储我的变量，我想打开form2，其元素等于modifiable49的值

我有：

Private Sub Form_Load()
    Me.Texte = [Forms]![Form1]![Modifiable49]
    Me.Filter = "[id_parcelle]=" & Texte
    Me.FilterOn = True
End Sub

但是当我选择列表框中的值并执行时，我得到错误2427：

您输入的表达式没有任何价值。

表达式可能指的是没有值的对象，例如表单，报表或标签控件。

Answer 1

这不会失败，并会列出文本的值供您调查：

Private Sub Form_Load()
    Me!Texte.Value = [Forms]![Form1]![Modifiable49].Value
    Debug.Print "Texte:", Me!Texte.Value
    Me.Filter = "[id_parcelle]=" & Me!Texte.Value & ""
    ' or, if Texte is a string:
    ' Me.Filter = "[id_parcelle]='" & Me!Texte.Value & "'"
    Me.FilterOn = Not IsNull(Me!Texte.Value) 
End Sub

错误2427＆＃34;您输入的表达式没有任何值。＆＃34;在Access窗体（VBA）中

1 个答案: