[Resolvido]Abrir form com duas condiçoes

Boa tarde amigos

Tenho num formulário dois campos independentes.

Campo1 - QTD - numerico.
Campo2 - Saldo - numerico.

Queria colocar ao abrir esse formulário a condição se:

QTD = 0 (zero) e
Saldo = 0 (zero)

O formulario abre .....

Se:

QTD = 1, 2, 3 ....isto é maior que 0 (zero) e
Saldo = 0 (zero)

O formulario Não abre .....

Obrigado

Bom dia Assis.
De onde vem esses dados para os campos QTD e SALDO?
Tem um outro form que incluí dados nestes campos?

Abrasss.

Luiz Carlos Junior

Chumbrega

QTD = Quantidade de registros numa tabela

Saldo = Valor calculado

O QTD eu entendi, mas o Saldo não.
Valor calculado, mas do que?

Chumbrega

Saldo pode ser = a 0 (Zero) ou 100 (Cem)

Saldo = Entrada - saida ... de produtos

O formulario é desacoplado ou ligado a uma consulta ou tabela ?

Boa tarde JPaulo

Desacoplado

Obrigado

Então o form já é populado por RecordSet, certo ?

Pode colar aqui toda a instrução ?

Fiz um exemplo com o que entendi do que quer.
Como sou iniciante nessa bagaça, não sei se será útil, mas...
Segue.

Abrasss!!!

Luiz Carlos Junior

JPaulo
O form é de introdução de dados e tem incluido outro form aonde está o valor do saldo.

Com este funciona.
If Me.Saldo.Value = 0 And Me.QTD.Value => 1 Then
MsgBox "Não tem Saldo na Conta Para executar o Movimento...", vbCritical, " Aviso "
DoCmd.Close
Exit Sub
Else

End If


Mas com os dois valores em 0 (zero) não deixa abrir, por isso não consigo fazer o primeiro registo.

Os dois valores estão a 0(zero) quando a tabela não tem registos (QTD)

Com base no que informou, fiz outro exemplo com 2 forms.
Se os resultados das TextBox forem 0, abre o form de inclusão.
Segue.

Chumbrega

Com os dois campos a zero deixa abrir - correto

Mes com o campo QTD = 1 e o campo Saldo = 0 não devia deixar abrir, mas abre - incorreto

A partir o momento que o campo QTD é maior que zero o form só não abre se o saldo for 0 zero

Obrigado

Testei o Saldo 0 e o QTD 1 e não abre.
Inclui mais um Caso para abertura, não sei se é isso, mas só abre tb quando os dois forem maior que zero e QTd maior que saldo.
Segue:

Boas Assis, podes enviar-nos um modelo simplificado do mesmo?

Cumprimentos.

1 - Em que evento é carregado o form?
2 - É carregado como?

Quando a tabela não tem registros podes direcionar para pular a verificação:

If DCount("*","SuaTabela") = 0 Then Exit Sub
'Aqui a verificação dos valores do campo
Cumprimentos.

Amigos

Abrir a base de dados

Selecionar na parte dos saldos a conta C. G. D. que tem um saldo de zero.

A C. G. D. fica selecionada a amarelo.
Clikar do lado esquerdo em registar .

O formulario a ser aberto não devia abrir pois a C. G. D. não tem saldo para movimentar.


PS. Se as contas com saldo estão todas a zero :

O formulario de registo deve abrir
segue Exemplo

Qual form e tabela envolvidos...

Especifique as opcoes... que devem aparecer... Com registros na tabela e quando nao há...

Cumprimentos.

Se CGD for 0 o que devera acontecer ao clicar em registrar?

Cumprimentos.

O Valor de CDG quando este for 0 estara em qual tabela ou consulta?

Cumprimentos.

Ao Abrir o form Movimentacao...

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next

ReSizeForm Me
ReSizeForm Form_frmVendasMensais
DoCmd.Maximize


If Forms!Menu.Incorporado38.Form!SomaDeVlr = 0 Then
Cancel = True
Else

.....

Cumprimentos.

Boa tarde Piloto

Fiz como o amigo indicou:

Ao abri o Form Movimentação ....

If Forms!Menu.Incorporado38.Form!SomaDeVlr = 0 Then
MsgBox "Não tem Saldo na Conta Para executar o Movimento...", vbCritical, " Aviso "
DoCmd.Close
Exit Sub
Else
End If

Piloto se fez o download do exemplo faça o seguinte.

Abra diretamente a tabela e elimine todos os registo da tabela "tblVendas".

Abra o Form "Menu"

Os saldos vão ficar todos a zero

Tente fazer o primeiro registo.

Tem que ter uma condição quando a tabela "tblVendas" não tem registos deixar abrir .

Aguardo

Obrigado

If DCount("*","tblVendas") = 0 Then Goto Continuar
If Forms!Menu.Incorporado38.Form!SomaDeVlr = 0 Then
MsgBox "Não tem Saldo na Conta Para executar o Movimento...", vbCritical, " Aviso "
DoCmd.Close
Exit Sub
Else
End If
Continuar:
End If

Cumprimentos

Obrigado Piloto

É isso ai...

Até a próxima.

O Fórum agradece o Retorno.