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