I am trying to shrink the space occupied by a subform when it is hidden, is there a way to use the height of the subform in centimeters from the property sheet/format tab.
Also this code below does not seem to change anything.
Private Sub Form_Current()
If IsNull(Me.[Client ID].Value) = True Then
Me.visitsdatasheetform.Visible = False
Me.visitsdatasheetform.height = 0
Docmd.MoveSize , , , Me.InsideHeight = -10000
Else
Me.visitsdatasheetform.Visible = True
Me.visitsdatasheetform.Height = 10000
DoCmd.MoveSize , , , Me.InsideHeight + 10000
End If
End Sub