Обработка событий кнопки

[naboman]

Здрасте!Помогите разобраться с такой вот фигней. Есть форма на которой вводятся ФИО и оценка ученика, при нажатии на кнопку нужно добавить запись либо в таблицу Двоечники, либо Остальные! Прога выдает ошибку RunTime Error 13 Type Mismatch.

Private Sub Кнопка10_Click()
If Поле8.Value = 2 Then
DoCmd.GoToRecord , acDataTable, "Двоечники", acNewRec
Else
DoCmd.GoToRecord , acDataTable, "Остальные", acNewRec
End If

End Sub

[gluk_fm]

На сколько я понимаю вы что-то вставили код екселя.....(но я могу и ошибаться)
Как минимум: вместо If Поле8.Value = 2 Then надо If [forms]![name forms]![Поле8] = 2 Then

[satka]

На мой взгляд не верный подход к таблицам, можно хранить всё в одной, определяя кто двоечник, а кто остальной, или же использовать флаг, символизирующий что это двоечник. По сути: вы пытаетесь перейти на запись, к добавлению это не относится. Для добавления я использовал следующую конструкцию:

Dim rs As DAO.Recordset

Set rs = Access.CurrentDb.OpenRecordset("ИМЯ_ТАБЛИЦЫ", dbOpenDynaset)
        rs.AddNew
        rs.Fields("ИМЯ_ПОЛЯ_В_ТАБЛИЦЕ").value = поле_с_данными
        rs.Update