Добавить запись в таблицу по нажатии кнопки

[DenProx]

Доброго времени суток. У меня такой вопрос: как сделать что бы при нажатии на кнопку на форме, в таблицу которая расположена на субформе добавилась новая пустая строка ?

p.s. и как потом сохранить внесенные данные?

[DenProx]

Добавить похоже получилось так:
[VB]
Private Sub btnAddQuestion_Click()
On Error GoTo Err_btnAddQuestion_Click

Me.fmSingleQuestionMode.SetFocus
DoCmd.GoToRecord , , acNewRec

PartSp = Null
ThemeSp = Null
PicturePath = Null
Images.Picture = ""
Variants = Null
CheckAll1 = Null
CheckAll2 = Null
Time = Null
Type1 = Null
Right1 = Null
Balls1 = Null
Type2 = Null
Right2 = Null
Balls2 = Null

Exit_btnAddQuestion_Click:
Exit Sub

Err_btnAddQuestion_Click:
MsgBox Err.Description
Resume Exit_btnAddQuestion_Click
End Sub
[/VB]

Вопрос теперь в том как сохранить? Т.е. как из контролов на форме записать информацию в таблицу на субформе ??

[Swatch]

Проще взять источник данных субформы (таблицу или запрос) и туда добавить новую запись командой AddNew. Затем уже в поля записи подставлять значения контроллов. И обновить субформу при помощи Requery

[DenProx]

Swatch а можно поподробнее? )))

[Swatch]

Dim rst as recordset
set rst=currentdb.openrecordset("имя таблицы или запроса", dbopendynaset)
rst.AddNew
rst!Поле1=Control1.Value   ' ну тут перебирать все поля для rst и в них добавлять значения контроллов
rst.update
rst.close
Me.fmSingleQuestionMode.Requery

вот как-то так

[DenProx]

Swatch Спасибо) щас попробую))

[DenProx]

Спасибо! Так работает) но есть недостаток... запись добавляется с уже заполненными полями, а как сделать чтобы добавилась пустая строка, я внес нужные данные, нажал сохранить и запись добавилась...?

И еще есть такой вопросик, как сохранить изменения, т.е. не добавить а отредактировать запись? прбовал поставить Edit вместо Add но выдало ошибку