ник: Lukas
Можно у самой подчиненной формы спросить, есть ли в ней строки:
'Модуль подчиненной формы:
Public Function HaveRows() As Boolean
HaveRows = Me.RecordsetClone.RecordCount > 0
End Function
|
И спрятать/показать ее контейнер:
'В модуле главной формы
Private Sub Form_Current()
Call ShowHide(Me.podobekt.Form.HaveRows())
End Sub
Private Sub cmdpodobekt_Click()
Call ShowHide(True)
End Sub
Private Sub ShowHide(blnCheck As Boolean)
With Me.podobekt
.Visible = blnCheck
If blnCheck Then .SetFocus
End With
Me.cmdpodobekt.Enabled = Not blnCheck
End Sub
|
Нет необходимости указывать имя таблицы, поля, то есть присутствует некая универсальность.