有那個高手能告訴我這段代碼為什麼不行?

lang

Private Sub Command25_Click()

Dim temp As String

temp = "SELECT 材料編碼表1.材料名稱 FROM 材料編碼表1 WHERE (((材料編碼表1.材料編碼1)='" & Me!Text0 & "'));"

DoCmd.RunSQL temp)

End Sub


提示我
執行階段錯誤"2342"
Runsql巨集指令需要組成sql陳述式的引數

lang

o ,我知到錯了。

lang

表1    A     a
       B     b

有兩個文本框text_1,text_2和一個按鈕。
當text_1輸入A,按下按鈕，text_2就能顯示a

請問該怎麼寫這段代碼?

[此贴子已经被作者于2004-4-13 6:21:21编辑过]

sea.er

Private Sub 按钮_Click()
Me.text_2 = LCase(text_1)
End Sub