Access 2016 Ошибка 3464 при кодировании кнопки Обновить - PullRequest
0 голосов
/ 07 января 2020

В Access 2016 я пытаюсь использовать команду обновления. Я создаю базу данных в качестве моего проекта стажировки, так как я не знаком с кодированием, с которым я много боролся. Я имею в виду видео от Setha Iech: https://www.youtube.com/watch?v=Ri2Y9-16AEo. Когда я использую приведенный ниже код, постоянно выскакивает ошибка

Ошибка 3464

Private Sub cmdAdd_Click()
    'when we click on button Add there are two options
    '1. for insert
    '2. for update
    If Me.txtID.Tag & "" = "" Then
        'this is for insert new
        'add data to table
        CurrentDb.Execute "INSERT INTO Business(ID, Project_ID, [Date_of_Enquiry], Division, Client, Description, Probability_to_win,Status, [Proposal_Submission_date], [Expected_award_date], Remarks)" & _
                "VALUES ('" & Me.txtID & "','" & Me.txtProject_ID & "','" & Me.txtDate_of_Enquiry & "','" & Me.cboDivision & "','" & _
                Me.txtClient & "','" & Me.txtDescription & "','" & Me.cboProbability_to_win & "','" & Me.cboStatus & "','" & Me.txtProposal_Submission_date & "','" & Me.txtExpected_award_date & "','" & Me.txtRemarks & "')"
    Else
        'otherwise (Tag of txtID store the ID of statement to be modified)
    CurrentDb.Execute "UPDATE Business" & _
    " SET ID=" & Me.txtID & _
    ", Project_ID='" & Me.txtProject_ID & "'" & _
    ", Date_of_Enquiry='" & Me.txtDate_of_Enquiry & "'" & _
    ", Division='" & Me.cboDivision & "'" & _
    ", Client='" & Me.txtClient & "'" & _
    ", Description='" & Me.txtDescription & "'" & _
    ", Probability_to_win='" & Me.cboProbability_to_win & "'" & _
    ", Status='" & Me.cboStatus & "'" & _
    ", Proposal_Submission_date='" & Me.txtProposal_Submission_date & "'" & _
    ", Expected_award_date='" & Me.txtExpected_award_date & "'" & _
    ", Remarks='" & Me.txtRemarks & "'" & _
    " WHERE ID=" & Me.txtID.Tag

    End If


'clear form
cmdClear_Click
'refresh data in list on form
databasesub.Form.Requery

End Sub

Спасибо за ваши ответы заранее

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...