| |
|
|
| | Такое решение правильное?
Forms("CONFLICT_FRM").CRITICAL_KONFLICT_FRM.Form.RecordSource = ""
|
| |
| |
| |
| |
|
|
| |  вроди другово спосыба нету
| |
| |
| |
|
|
| |
|
|
| | Учтите, если нв форме есть контролы, которые привязаны к полям источника, ио после такого действия уни будут ссылаться в никуда, что может привести к неприятным последствиям.
Зачем вам нужно "отцепиться"? | |
| |
| |
| |
|
|
| | что бы не отображать на форме - сведения из пустой таблицы. | |
| |
| |
| |
|
|
| | Так может индейский символ - фиг вам показать юзеру вместо формы | |
| |
| |
| |
|
|
| | видимо индейский символ- это выход! 
--------------------------------но форма подчинённая.  | |
| |
| |
| |
|
|
| | а может просто
if me.recordsetclone.recordcount=0 then
msbox "NO DATA"
docmd.close ....
exit sub
end if
 | |
| |
| |
| |
|
|
| | if me.recordsetclone.recordcount=0 then
Я оцепляюся ..... 
Forms("CONFLICT_FRM").CRITICAL_KONFLICT_FRM.Form.RecordSource = ""
=================================================================
Но как говорит Анатолий - видимо лучше - Forms("CONFLICT_FRM").CRITICAL_KONFLICT_FRM.Form.Visible.= False
Set RST = db.OpenRecordset("CRITICAL_QUE")
If RST.EOF Then
'Пусто
RST.Close
Set RST = Nothing
db.Close
Set db = Nothing
Forms("CONFLICT_FRM").CRITICAL_KONFLICT_FRM.Form.Visible = False
Call MsgBox("Готово!", vbInformation, "Склад ПВХ.")
Exit Sub
Else
Forms("CONFLICT_FRM").CRITICAL_KONFLICT_FRM.Form.Visible = True
Forms("CONFLICT_FRM").CRITICAL_KONFLICT_FRM.Form.RecordSource = Forms("CONFLICT_FRM").CRITICAL_KONFLICT_FRM.Form.RecordSource
End If
|
| |
| |
| |
| |
|
|
| | Если в вашей субформе запретить добавление записей, то при отсутствии оных область данных будет пуста. Может вас это устроит? | |
| |
| |
| |
|
|
| | Может быть....
это вариант!!! | |
| |
| |
|
|
|
|
| |
|
|
| | Кем и когда удаляются? Если этим же юзером, то на время удаления и перезапроса можно отключить перерисовку формы (св-во Painting).
Кроме того, если данные в субформе предназначены для просмотра, то можно указать тип источника - "Снимок". | |
| |
| |
| |
|
|
| | А что reqwery не помогает? | |
| |
| |
| |
|
|
| | А что reqwery не помогает?
НЕТж
Кем и когда удаляются? Если этим же юзером, то на время удаления и перезапроса можно отключить перерисовку формы (св-во Painting).
Кроме того, если данные в субформе предназначены для просмотра, то можно указать тип источника - "Снимок".
==================
Всё что Вы Анатолий порекомендовали - мне не знакомо.
Я как на новые ворота взглянул и вздрогнул.
========================================
Удаление происходит программно.
Идёт проверка на качество и если всё в норме, то удаляется с переносом в постоянную таблицу, если что то фиговато - остаётся в 'той временной таблице и подлежит корректировке юзером.
После чего он опять жмёт на кнопку - перенести.
---------------------------------------------------------------------------
Если с первого раза всё без вопросов переносится, то в этой таблице - все записи удаляются и юзер офигивает - это я всё удалил????????
-------------------------------------------------------------------------
Painting = False но тогда не исчезнут записи, которые подлежат удалению.
Снимок - с ним я не смог - это как ?
Но чует моё серидце, что эффект не подходящий будет.  | |
| |
| |
| |
|
|
| | Painting = False делается перед тем, как "удаляется с переносом в постоянную таблицу", после чего перезапрос формы и Painting = True (возможно, надо добавить небольшую задержку).
А тип набора записей "Статический набор" (Снимок - мой неправильній перевод с англ. ) сам по себе - статический, т.е. удаление/изменение записей в нем не отразится, пока не сделаешь перезапрос. | |
| |
| |
| |
|
|
| | ААААААА....... - понятно. | |
| |
| |
