Кто в пятницу после обеда способен думать ?
В mdb базе чтобы инициировать запись изменений в форме при её программном закрытии или при щелчке мышкой на панели инструментов использовалось к примеру следующее
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Sub My_Close()
On Error GoTo err
SaveChange Me.ActiveControl, Screen.ActiveForm
. . .
DoCmd.Close
Exit Sub
err:
Show_Err
End Sub
сама SaveChange
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Sub SaveChange(ctrl As Control, frm As Form)
If ctrl.ControlType = acSubform Then
If ctrl.Form.Dirty Then DoCmd.RunCommand acCmdSaveRecord
Else
If frm.RecordSource = "" Then
DoCmd.RunCommand acCmdSaveRecord
Else
If frm.Dirty Then DoCmd.RunCommand acCmdSaveRecord
End If
End If
End Sub
И всё работало долгие годы.
... а в adp при записи изменений в
контроле subForm инициируется ошибка
err.Description = Возникла ошибка при обращении к свойству или методу объекта OLE.
err.Number = 2757
err.Source = MSAccess
Подчинённая форма с RecordSource на основе ХП без параметров на SQL2000
Кто выдержал до конца ?
