|
|
|
События при удалении записи в форме проекта ADP (Access 2K)
|
|||
|---|---|---|---|
|
#18+
За 5 лет работы с adp так и не заметил, что вся цепочка событий связанных с удалением записи в форме проекта adp отрабатывает до отправки на сервер DELETE. Фигня какая! Просто на форме запрет добавления, и после удаления последней записи current не отрабатывает, а нужно обновить данные в другой форме именно после удаления записи на сервере. Бардак! Порешал конечно, но изврат это... Или я ошибаюсь, есть нормальное решение? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.09.2004, 20:36:45 |
|
||
|
События при удалении записи в форме проекта ADP (Access 2K)
|
|||
|---|---|---|---|
|
#18+
А с удалением у аксеса совсем беда Я давно кричу, что нужны события BeforeDelete и AfterDelete, по аналогии с BeforeUpdate и AfterUpdate Но видимо кричу недостаточно громко. Мелкомягкие меня не слышат. Есть только Delete, который отрабатывает до удаления (независимо от того - adp или mdb), и еще не факт что удаление произойдет (зависит от настроек аксеса и реакции пользователя) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.09.2004, 00:57:41 |
|
||
|
События при удалении записи в форме проекта ADP (Access 2K)
|
|||
|---|---|---|---|
|
#18+
В общем, это не обязательно смертельно... у АДО рекордсета, например, есть RecordsetChangeComplete и WillChangeRecordset а у АДО коннешна WillExecute и ExecuteComplete правда, применительно к "чисто акцессным" CurrentProject.Connection вряд ли я бы стал на них пролагаться... (с выражением лица) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.09.2004, 02:23:57 |
|
||
|
События при удалении записи в форме проекта ADP (Access 2K)
|
|||
|---|---|---|---|
|
#18+
Да это понятно: Private WithEvents rs As ADODB.Recordstet Set rs = Me.Recordset Private Sub rs_RecordsetChangeComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) ... Короче класс писать придется... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.09.2004, 05:58:19 |
|
||
|
События при удалении записи в форме проекта ADP (Access 2K)
|
|||
|---|---|---|---|
|
#18+
2 Pavel Ага. Придётся. Или после посыла делете - в хп к примеру что-либо ожидать - т.е. переносить это событие на сервер - но не всегда удобно да.... В общем, велком то .NET ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.09.2004, 08:58:26 |
|
||
|
События при удалении записи в форме проекта ADP (Access 2K)
|
|||
|---|---|---|---|
|
#18+
А по-простому не пойдет? Private Sub Form_Delete(Cancel As Integer) Cancel = True On Error GoTo ErrDelete '<делаем, что надо> Me.Recordset.Delete '<делаем, что надо> Me.Recordset.Refresh exit Sub ErrDelete: Msg "Хрен, а не удаление!" End Sub ------------- Для мультиселекта немного сложнее, но можно. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.09.2004, 09:21:42 |
|
||
|
|

start [/forum/topic.php?fid=45&msg=32696594&tid=1671732]: |
0ms |
get settings: |
15ms |
get forum list: |
15ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
74ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
48ms |
get tp. blocked users: |
1ms |
| others: | 239ms |
| total: | 406ms |

| 0 / 0 |
