Доброе всем время суток!
Появилася такая проблемка (Акс2000): в одном окне ленточная форма, при клике по записи открывается другое окно: в нем происходит редактирование.
Вот код
В начале модуля второй формы
1.
Dim RS As ADODB.Recordset
При загрузке
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
NewRec = False
PeopleCB.Enabled = True
CompanyCB.Enabled = True
SaveNewRecBtn.Visible = False
AddRecord.Visible = True
' ----------------
Set RS = New ADODB.Recordset
Nid = Id
RS.Open "select * from News where NId=" & Nid, _
CurrentProject.Connection, adOpenForwardOnly, adLockPessimistic
Topic = RS!Topic
Industry = RS!IndId
FDate = RS!Date
SourceCB = RS!SId
Document = RS!Document
Body = RS!Body.GetChunk(RS!Body.ActualSize)
CompanyLB.RowSource = _
"SELECT C.CId, C.ÑSName FROM CConnect AS CC, Companies AS C WHERE CC.CId=[C].[CId] AND CC.NId=" _
& Nid
PeopleLB.RowSource = _
"select P.Pid, P.PSName from PConnect PC, Peoples P where PC.PId= P.Pid and PC.NId=" _
& Nid
При сохранении
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
RS!Topic = Topic
RS!IndId = Industry
RS!Date = FDate
RS!SId = SourceCB
RS!Document = Document
If Not IsNull(Body) Then
RS!Body = Null
RS!Body.AppendChunk Body
End If
RS.Update
При updat'e и происхоит ошибка из сабжа.
Работа в одного юзера.
Все блокировки ставил и по минимуму и по разному.
Почему? Что за сеанс данной машины?
