ник: час
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
|