0

複数の機能を持つ大きなフォームがあります。機能の 1 つは、コードのリストやその他のさまざまなデータを格納するサブフォームを編集することです。編集ボタンをクリックすると、選択したデータがボックスに自動的に入力されますが、編集を行って保存しようとすると、次のエラー メッセージが表示されます。RUN TIME ERROR 3075 SYNTAX ERROR (MISSING OPERATOR) IN QUERY EXPRESSION

コード全体は 

Private Sub cmdAdd_Click()

    'when we click on button Add there are two options
    '1. For insert
    '2. For Update
    If Me.txt_code.Tag & "" = "" Then
        'this is for insert new
        'add data to table
        CurrentDb.Execute "INSERT INTO KWTable(KW, Source, Code) " & _
            " VALUES('" & Me.text_key & "','" & Me.combo_source & "','" & _
            Me.txt_code & "')"
    Else
        'otherwise (Tag of txtID store the id of student to be modified)
        CurrentDb.Execute "UPDATE KWTable " & _
            " SET KW='" & Me.text_key & _
            ", Code='" & Me.txt_code & "'" & _
            ", Source='" & Me.combo_source & "'" & _
            " WHERE KW='" & Me.text_key
    End If

    'clear form
    cmdClear_Click

    'refresh data in list on form
    TableSub.Form.Requery    

End Sub

そして、問題をデバッグしようとしたときに強調表示される部分は. 

CurrentDb.Execute "UPDATE KWTable " & _
    " SET KW='" & Me.text_key & _
    ", Code='" & Me.txt_code & "'" & _
    ", Source='" & Me.combo_source & "'" & _
    " WHERE KW='" & Me.text_key
4

1 に答える 1

0

試す

CurrentDb.Execute "UPDATE KWTable " & _
" SET KW='" & Me.text_key & _
"', Code='" & Me.txt_code & "'" & _
", Source='" & Me.combo_source & "'" & _
" WHERE KW='" & Me.text_key + "'"
于 2013-07-29T14:56:41.130 に答える