Ocultar subform sem dados - Dúvida

Referente ao tópico Ocultar subform sem dados

Bom dia Criquio
Muito bom seu exemplo e é exatamente o que eu preciso para implementar em meu formulário, porem tentei fazer um novo lançamento e não consegui! Como faço para ajustar, ou melhor, é possível eu criar um botão tipo + e outro botão -. o botão mais abre e exibe o botão menos fecha e oculta.

Boa tarde Criquio
Já consegui fazer o que eu preciso, no padrão os subforms sem dados ficam ocultos. Mesmo assim agradeço porque consegui isso através do seu exemplo. Porem tenho um pequeno probleminha e se possível gostaria muito de sua ajuda:

-Existe uma caixa de texto que soma os meus 3 subforms, porem quando não preencho o que ficou sem dados a soma não retorna nada.

Aguardo e agradeço,

Segue meu código:

Option Compare Database
Private Sub Form_Current()

On Error Resume Next

If Me.[Contratos/Mão_de_óbra].Form.RecordsetClone.RecordCount = 0 Then
Me.[Contratos/Mão_de_óbra].Height = 300

Else
Me.[Contratos/Mão_de_óbra].Height = 1900

End If

End Sub


Private Sub Exibir_Click()
On Error Resume Next

Me.[Contratos/Mão_de_óbra].Height = 1900
End Sub

Utilize o nz para retornar zero quando não tiver nada:

=nz(Campo1;0) + nz(Campo2;0)

OBS.: Não postar dúvidas nos tópicos de exemplos. Sempre abrir um tópico novo indicando o exemplo objeto da dúvida.

Muitíssimo obrigado. Farei dessa forma criarei um novo tópico quando houver duvida.

Grato pelo retorno,