НЕ могу добавлять записи в БД

[Yurik]

Привет всем!
Люди подскажите в чем дело ? Пользуясь стандартным Data Control подключаю БД(data.mdb), читать ее могу редактировать какие то уже сделанные в ней поля могу.......ну а вот добавлять новые записи не могу....не пойму в чем дело, хотя делаю все как надо:

frmMain.Data1.Recordset.AddNew
frmMain.txtLastName.SetFocus
RefreshBlok
frmMain.Data1.Recordset.MoveLast


Sub RefreshBlok()
With frmMain.Data1
.DatabaseName = App.Path & "\" & "data.mdb"
.RecordSource = "People"
.Refresh
End With
frmMain.Data1.Recordset.MoveLast
KZ = frmMain.Data1.Recordset.RecordCount
frmMain.Data1.Refresh
frmMain.Data1.Caption = "Запись: " & (frmMain.Data1.Recordset.AbsolutePosition + 1 & " из " & KZ)
End Sub


Люди помогите я уже запарился!

[Dron]

сначала добавь запись, потом заполни, потом обнови

.....
rsRecordset.Addnew
rsRecordset!поле1 = frm.tx1
rsRecordset.Update

Попробуй однако!

[Yurik]

Пробовал нифига.......делает следующее просто перемещается в конец БД и все ничего добавлять не хочет!

[Dron]

private rsRecordset as recordset

Private Sub cbopodr_Click()
Dim strSQl As String
strSQl = "SELECT поле1 FROM tbl1"
frm.data.DatabaseName = "\\serwer\data.mdb"
frm.data.RecordSource = strSQl
frm.data.Refresh
Set rsRecordset = frm.data.Recordset
rsRecordset.addnew
rsRecordset!поле1 = frm.textBox
rsRecordset.update
End Sub

Однако это должно работать или у тебя чего то нехватает

[Yurik]

Блин спасибо....теперь добавляет только я малость урезал твой код....

Кстати я понял почему не добавлял записи у меня какой то вирус висел в памяти он все и блокировал!
Вот ща софт ремонтирую да и что нужно заново ставлю!!!

[Dron]

Блин пожалуста