[Resolvido]Abrir Formulários com Caixa de Combinção

Boas sou novo aqui no forum e no access em geral.
Tive a ideia de fazer uma base de dados para o meu trabalho.
Recorri quase sempre á internet, youtube e páginas de foruns e assim.
Mas surgiu-me um problema e não o consigo solucionar.

Fiz um MENU PRINCIPAL, com um botão o ADICIONAR MAT/CON, que abrirá

O formulário ADICIONAR MAT/CON, onde tenho dois separadores MAT e CON.

Dentro do Separador MAT tenho um subformulário EXISTENCIAS_MAT Falso que
só tem a caixa de combinação Compartimentos activa, que servirá para abrir
o respectivo formulário onde tenho tudo activo, para que os dados sejam introduzidos
na respectiva tabela.

Valores da caixa de combinação Compartimentos:

- Cofres Exteriores
- Escotaria
- Paiol AS
- Ponte

Os 4 formulários que eu quero fazer corresponder:

- EXISTENCIAS_MAT Cofres Exteriores
- EXISTENCIAS_MAT Cofres Escotaria
- EXISTENCIAS_MAT Paiol AS
- EXISTENCIAS_MAT Ponte

Espero que me possam ajudar!!

Boa tarde, Lourenzo, e bem-vindo ao fórum
Coloque no acontecimento AoSairDaCaixaDeCombinação
Select case CxcCompartimentos
case "Cofres Exteriores"
docmd.openform "EXISTENCIAS_MAT Cofres Exteriores"
case "Escotaria"
docmd.openform "EXISTENCIAS_MAT Cofres Escotaria"
case "Paiol AS"
docmd.openform "EXISTENCIAS_MAT Paiol AS"
case Ponte"
docmd.openform "EXISTENCIAS_MAT Ponte"
end select

Não será, assim?!

Private Sub Compartimentos_AfterUpdate()
Select Case Compartimentos
Case "Cofres Exteriores"
DoCmd.OpenForm "EXISTENCIAS_MAT Cofres Exteriores"
Case "Escotaria"
DoCmd.OpenForm "EXISTENCIAS_MAT Cofres Escotaria"
Case "Paiol AS"
DoCmd.OpenForm "EXISTENCIAS_MAT Paiol AS"
Case "Ponte"
DoCmd.OpenForm "EXISTENCIAS_MAT Ponte"
End Select
End Sub

Também pode ser

Mas não está a dar dame um erro quando escolho uma das opções.

https://fbcdn-sphotos-h-a.akamaihd.net/hphotos-ak-prn2/v/975788_10201341570851310_680291182_n.jpg?oh=0e75ecc776e5d9addbe87938d037c214&oe=51B6DC19&__gda__=1370968461_12b09622c0f126e02ddb32d031e95b86

poe o mdb ai pra ver se podemos ajudar abraço

Não estou a consguir postar a minha BD...pus em zip e nada.

Já está resolvido?

Sim!!

Option Compare Database
Option Explicit

Private Sub cbCompartimentos_AfterUpdate()

If Me.cbCompartimentos.Value = "Cofres Exteriores" Then
DoCmd.OpenForm ("Existências_CON_Cofres Exteriores")
ElseIf Me.cbCompartimentos.Value = "Escotaria" Then
DoCmd.OpenForm ("Existências_CON_Escotaria")
ElseIf Me.cbCompartimentos.Value = "Paiol AS" Then
DoCmd.OpenForm ("Existências_CON_Paiol AS")
Else
DoCmd.OpenForm ("Existências_CON_Ponte")
End If
End Sub[i]

Expos o meu problema noutro site e
deram uma solução fiz algumas muadança na solução
e nos meus formulários e o que eu queria ja ta a dar.

Obrigado a todos