есть 2 (1, 2)таблицы связанные в акцессе (отношением один ко многим, с поддержкой целостности данных).
у меня на форме 2 гриды (1, 2), они отоброжают эти связанные таблицы (1, 2), соответственно два рекордсета открытых adOpenDynamic, adLockOptimistic.
после того как я добавил в рекордсет "1" новую запись
- Код: Выделить всё
rsLZK.AddNew
rsLZK("DATE") = Replace(DTPicker1.Value, ".", "/")
rsLZK("IDDept") = DataCombo1.BoundText
rsLZK("IDPlat") = DataCombo2.BoundText
rsLZK("CodeZatrat") = DataCombo3.BoundText
rsLZK("NameZatrat") = DataCombo3.Text
rsLZK("LimitMoneyMonth") = Replace(Trim(Text1.Text), ",", ".")
rsLZK.Update
в гриде становлюсь на эту запись и пытаюсь добавить в связанный рекордсет данные (перед этим в dgLZK_RowColChange ("1") я делаю
- Код: Выделить всё
Set rsLZKDetail = New ADODB.Recordset
rsLZKDetail.Open "SELECT * FROM LZKDetail WHERE date BETWEEN " & strStartDate & " AND " & strNowDate & " AND idLZK = " & CInt(dgLZK.Columns(2)), cna, adOpenDynamic, adLockOptimistic
Set dgLZKDetail.DataSource = rsLZKDetail
(если неправильно, поправьте пожалуйста)
и когда все-таки пытаюсь выполнить
- Код: Выделить всё
rsLZKDetail.AddNew
rsLZKDetail("idLZK") = frmWork.dgLZK.Columns(2).Value
rsLZKDetail("numberPP") = Text1.Text
rsLZKDetail("date") = Text2.Text
rsLZKDetail("NaimDocOpl") = Text3.Text
rsLZKDetail("VidPlat") = DataCombo1.BoundText
rsLZKDetail("VidLpatStr") = DataCombo1.Text
rsLZKDetail("CountryID") = DataCombo2.BoundText
rsLZKDetail("CountryName") = DataCombo2.Text
rsLZKDetail("RegionID") = DataCombo3.BoundText
rsLZKDetail("RegionName") = DataCombo3.Text
rsLZKDetail("SummOpl") = Replace(Text4.Text, ",", ".")
rsLZKDetail.Update
вываливается ошибка:
Невозможно добавление или изменение записи. Для обеспечения целостности данных необходимо наличие связанной записи в таблице LZK ("1")
Так вот, подскажите пожалуйста, как правильно работать со связанными таблиуами
