0

no/productをリストする2つの列を含むメインフォームを取得しました。製品フィールドクリックイベントのvbaコードを指定して、選択した製品の詳細フォームを開き、詳細を編集しました。私は以下のようにコードを与えました

Dim stDocName As String
    Dim stLinkCriteria As String
    stLinkCriteria = Me.Product

    stDocName = "ProductDetail"
    DoCmd.openform stDocName, , , "Product = " & stLinkCriteria

製品をクリックすると入力ボックスが表示され、値を入力すると製品の詳細が表示され、正しい情報が表示されます。

毎回商品名を入力したくありません。製品をクリックしているときにこれを直接機能させたいので、製品の詳細を開く必要があります。

これを行う方法を教えてください。

4

2 に答える 2

1

[Product] フィールドがテキスト データ型の場合は、ステートメントstLinkCriteria内で引用符で囲みます。OpenForm

DoCmd.OpenForm stDocName, , , "Product = '" & stLinkCriteria & "'"
于 2012-06-16T06:58:44.127 に答える
0

このコードは、上記の問題を解決するのに役立ちます

Forms!Frm.SetFocus 

Const FORMNAME = "frm1"


Dim ctrl As Control
Dim strCriteria As String

On Error GoTo Err_Handler

Set ctrl = Me.ActiveControl

strCriteria = "[Product] = """ & ctrl & """"


DoCmd.OpenForm FORMNAME, WhereCondition:=strCriteria

Exit_Here:
Exit Sub

Err_Handler:
MsgBox Err.Description, vbExclamation, "Error"
Resume Exit_Here
于 2012-06-21T04:49:24.733 に答える