Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Про Resync....  [new]
вадя
Member

Откуда: Екатеринбург
Сообщений: 18326
такой вариант работает ( но он не нужен)

Private Sub имя_LostFocus()
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.AccessConnection
cmd.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter("@s", adInteger, adParamInput, , Me!id)
cmd.Parameters.Append prm
cmd.CommandText = "P02_23"
cmd.Execute , , adExecuteNoRecords
Set cmd = Nothing
Set prm = Nothing
Forms![Форма3]![клиент] = Forms![Форма3]![клиент] + 1
Me.ResyncCommand = "P02_1 " & Me!id
Me.Dirty = False
'Me.Recordset.Resync adAffectCurrent

End Sub


а такой вариант .... почему-то тоже заработал....!?

Private Sub имя_LostFocus()
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.AccessConnection
cmd.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter("@s", adInteger, adParamInput, , Me!id)
cmd.Parameters.Append prm
cmd.CommandText = "P02_23"
cmd.Execute , , adExecuteNoRecords
Set cmd = Nothing
Set prm = Nothing
'Forms![Форма3]![клиент] = Forms![Форма3]![клиент] + 1
Me.ResyncCommand = "P02_1 " & Me!id
'Me.Dirty = False
Me.Recordset.Resync adAffectCurrent '- здеся выдавал ошипку
 к сожалению уже не могу воспроизвесть...

End Sub


но!

ежели в первом варианте четко происходит обновление одной записи,
то во втором - обновление происходит с мерцанием всей формы...

как бы сделать второй вариант без мерцания?
28 авг 04, 22:38    [916289]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить