0
Private Sub Report_Open(Cancel As Integer)

Dim strResultDesc As String

strResultDesc = DLookup("Description", "[products/stock]", "[Product Code] = Me.txtResultPC.Value")

Text20.Value = strResultDesc

End Sub

これは私が現在持っているコードです。次のものに問題があるというエラーが表示されます。

[Product Code] = Me.txtResultPC.Value

誰でも何かを見つけることができますか?

アップデート:

このアプローチも試してみましたが、

Private Sub Report_Open(Cancel As Integer)

Dim strResultDesc As String

strResultDesc = DLookup("Description", "[products/stock]", "[products/stock].[Product Code] = [Result PC]")

Me.Text20.Value = strResultDesc

End Sub

ありがとう、

ボブ・P

4

1 に答える 1

0

記号「&」を入力する必要があります。以下の例を参照してください。

strResultDesc = DLookup("Description", "[products/stock]", "[Product Code] =" & Me.txtResultPC.Value)
于 2012-10-08T11:46:00.373 に答える