Вставить в таблицу из формы доступа - PullRequest
0 голосов
/ 25 апреля 2018

У меня есть следующий код:

Private Sub Command134_Click()

    Dim strInsert As String
    Set db = CurrentDb()
    strInsert = "INSERT INTO [SEMP Documentation] (Staff_Name) VALUES " & (Staff_Name.Value) & ");"
    MsgBox (strInsert)

    Debug.Print staffname
    db.Execute staffname, dbFailOnError
End Sub

Staff_Name - это поле со списком в форме Microsoft Access, которое содержит имена примерно 10 человек, каждый со своим индексом.

В окне сообщения есть вызов Staff_Name.Value, создающий индекс, а не фактическое текстовое имя.Для справки, значения в поле со списком взяты из таблицы, где первый столбец - индекс персонала, а второй столбец - имя персонала.

Пользователь выбирает, кем он является.

Во-вторых, оператор db.Execute не выполняется;имя таблицы - документация SEMP, в которую я пытаюсь вставить - «ядру базы данных Microsoft Access не удается найти входную таблицу»

указана любая помощь

1 Ответ

0 голосов
/ 25 апреля 2018

попробуйте

 "INSERT INTO [SEMP Documentation] (Staff_Name) VALUES ('" & (Staff_Name.Value) & "');"

2-й пробный

db.Execute staffname, dbFailOnError

должен быть db.Execute strInsert, dbFailOnError

...