[Resolvido]condição if than else

Boas!
Necessito de ajuda com o seguinte:
Criei uma base de dados que abre com um dado formulário que tem origem numa consulta. Basicamente defini nessa consulta uma condição (data atual <= dd/mm/aa )que quando se verifica, funciona tudo como quero. Quando não se verifica essa condição, abre esse formulário em branco e fica tudo bloqueado.
Isto já vai parcialmente de encontro ao meu objetivo, mas, o que eu gostaria é que caso essa condição não se verifique abra um determinado formulário.
Obrigado.
Abraço

Bom dia Pedro bem vindo ao forum!

Tente algo desse tipo no evento Ao Abrir desse formulario que citou..

Código:

If Form.RecordsetClone.RecordCount = 0 Then
DoCmd.Close acForm, "Seu Formulario Em Branco" 'Para fechar o form sem dados
DoCmd.OpenForm "Form Que Deseja Abrir" ' Para abrir o form desejado
Exit Sub
End If

Obrigado!

Vou tentar.

Ok, ficamos no aguardo!

Boas!

Não estou a conseguir

obrg

Olá Fernando!

Posso enviar-te por E-mail uma parte da BD com exemplo do que pretendo?

Obrg.

Pedro

Boa tarde, anexe aqui no forum.

Essa semana não to conseguindo entrar pois é semana de provas e to na correria.

Anexando aqui mesmo tanto eu como outros membros poderemos ajudar ok.

Boas!

A BD abre então com o form FMG que depende da consulta  validadelicença a qual depende da data atual ser igual ou anterior a indicada na tabela validade

o que eu gostaria é que no caso da data ser posterior a essa, em vez de abrir o form em branco, abrisse o form PJM_EXPIRA

Obrigado

Pedro

Olá a todos,

Pjjpm, talvez seja melhor a sua base de dados abrir com um novo form (inicio).
Neste formulário colocamos no evento ao abrir o codigo que pretende para verificar e abrir o formulario desejado.

Exemplo:

Código:

If date()  <= [campoComData] Then
  DoCmd.OpenForm "FMG"
Else
  DoCmd.OpenForm "PJM_EXPIRA"
End If

Abraço

Obrigado!

Vou tentar fazer isso.

Boas!

Parece-me que já está a funcionar.

Tive de acrescentar a linha: DoCmd.Close acForm, "FMG"

ficando:

If date() <= [validade] Then
DoCmd.OpenForm "FMG"
Else
DoCmd.Close acForm, "FMG"
DoCmd.OpenForm "PJM_EXPIRA"
End If


Muito obrigado!

Olá Pjjpm, pbrigado pelo retorno, o forúm agradece.

Não se esqueça de dar o tópico como resolvido, veja link abaixo:
http://maximoaccess.forumeiros.com/t860-resolucao-de-topicos