在訪問子窗體中獲取當前選定的記錄值

Question

我在Access 2010數據庫中有2個子表單； 基於對subform1字段值的選擇，vba程序將運行subform2輸出，該輸出在subform 1和2中的通用文本字段為“ supplier_name”。 因此，我嘗試在subform1上執行“雙擊”事件，以編寫currentRecord方法，如下所示，

Private Sub Supplier_name_DblClick(Cancel As Integer)
    strSQL = "Select * from [Query1] where"
    strSQL = strSQL & "[Supplier_name] ="'" & "Me!current record![Supplier_name]" &"'"
    Form![Mainform]![Subform2].Form.RecordSource = strSQL
End Sub

我在第二行收到運行時錯誤3075； 查詢表達式'[Supplier_name] = Me！current record！[Supplier_name]'中的語法錯誤（缺少運算符）請幫助

Answer 1

您在代碼第二行中的位置之后缺少空格：

strSQL = "Select * from [Query1] where "

第三行中的“和”字符也存在問題：

strSQL = strSQL & "[Supplier_name] ='" & Me!current record![Supplier_name] & "'"

Answer 2

謝謝它為我工作，但沒有currentrecord屬性

strSQL = strSQL & "[Supplier_name] ='" & Me![Supplier_name] & "'"