Impedir abertura de form em branco

[Gil Kléber]

Olá pessoal!

Bom dia!!

Tenho um form principal que tem apenas um campo TOTAL, que é uma soma dos campos VALOR_LC de um subformulário folha de dados que está inserido no mesmo.

Não sei se fui claro

Tenho um subform, folha de dados, que mostra todos os pagamentos do período selecionado. Este sub está inserido em outro Form, que só tem um campo TOTAL, que recupera a soma do campo VALOR_LC do sub.

Agora fui mais claro

Eu queria fazer algo que se não tivesse nenhum pagamento no período selecionado, ou se o valor=0,00 ele mostrasse uma mensagem "NÃO HÁ PAGAMENTOS" e FECHASSE automaticamente o form principal

Consigo fazer as verificações (se vazio ou = 0,00) mas não consigo colocar pra fechar NEM A PAU!

alguém me ajuda??

Abraços a todos!!!

[Humm]

use o evento ON_LOAD do form principal e coque lá essa condição

if isnull(me.seucampo) or me.seucampo = 0 then
docmd.close
end if

[Gil Kléber]

já tentei isso, e nada..

Acho que tem a ver com Um form dentro do outro...

[Humm]

acho que tem a ver com voce estar fazendo algo de errado.

pois aqui funciona normal.

http://www.4shared.com/file/BERtR0Ma/teste.html

[Gil Kléber]

Cara.. parece bincadeira.. mas o seu está igual ao meu e não fnciona.

Ele NÃO FECHA!!!

O seu fechou.. o meu não... olha o código como está:

Private Sub Form_Load()

Me.txtSubtotal = Nz(DSum("valor_LC", "LivroCaixa_Consulta_Entrada_PorPaciente"), 0)

If IsNull(Me.txtSubtotal) Or Me.txtSubtotal = 0 Then

msgbox "Não há registros de pagamento para esse paciente no período selecionado"

DoCmd.Close acForm, "Form_LivroCaixa_EntradaPorPaciente"

End If

End Sub

Um form dentro do outro, o sub como folha de dados, exatamente como você fez...

[Humm]

experimenta usar um dlookup como eu usei pra buscar o valor que você quer.

esse docmd.close não precisa tem os demais parametros..

atribua o valor do me.txtsubtotal diretamente no controle, ao invés de por codigo..

tente fazer o maximo possivel como eu fiz, no exemplo que postei tem todos os procedimentos

[Gil Kléber]

Consegui colocar pra funcionar assim, no evento AO ABRIR

If IsNull(Me.txtSubtotal) Or Me.txtSubtotal = 0 Then

msgbox "Não há registros de pagamento para esse paciente no período selecionado"

Cancel = True

End If

Obrigado MESMO pela ajuda!!

[Iceguy]

No Load() ele ta carregando, não abriu ainda, então não dá pra fechar algo que não foi aberto, tem que ser no Open() mesmo