Abrir os formulários ao escolher Empresa no combo?

Boa tarde pessoal, preciso que todos os formulários abram com a empresa correspondente escolhida no combo, não entendo muito de access, estou aprendendo. Estou anexando uma img, preciso que apartir desse combo os formulários abram na empresa escolhida! Utilizo o access 97. Desde já agradeço!

Danilo

Boa tarde!

Selecione o ComboBox vá em propriedades depois no evento apos atualizar..

Private Sub Nomedacombobox_AfterUpdate()

if (Me.NomedaCombox)= "Nome_do_Formulario" then
DoCmd.OpenForm "Nome_do_Formulario"

elseif....

End Sub

Acho que isso resolve seu problema

Fiz isso e deu um erro "O Microsoft não pode localizar o evento..."

O Nome da minha combo é combinação 15 e o nome do formulário é #2 Dados Cadastrais. Coloquei desta forma, veja se está correto por favor:

Private Sub Combinação15_AfterUpdate()

if (Me.Combinação15)= "#2 Dados Cadastrais" then
DoCmd.OpenForm "#2 Dados Cadastrais"

elseif....

End Sub

Um pitaco;

Nunca utilize caracteres especiais ou sinais nos nomes dos objetos, um dia destes tudo deixa de funcionar no seu banco.

Para formularios, use sempre o nome a começar por frmSeuFormulario, tabelas tbl, consultas por qry, relatorios por rpt, macros por mcr, por ae e evite ao máximo dar espaços nos nomes, esses nomes não são visiveis aos usuários, então mais vale jogar pelo seguro.


Para a sua duvida use o Select Case

Select Case Me.Combinação15.Value
    Case Is = "Dados Cadastrais"
    DoCmd.OpenForm "Dados Cadastrais"
    Case Is = "Outro Formulario"
    DoCmd.OpenForm "Outro Formulario"
End Select

Não deu certo, quando abro construir evento, estão essas informações:

Option Compare Database
Option Explicit

Private Sub Comando2_Click()
On Error GoTo Err_Comando2_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "NF"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando2_Click:
Exit Sub

Err_Comando2_Click:
MsgBox Err.Description
Resume Exit_Comando2_Click

End Sub
Private Sub Comando8_Click()
On Error GoTo Err_Comando8_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "NF"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando8_Click:
Exit Sub

Err_Comando8_Click:
MsgBox Err.Description
Resume Exit_Comando8_Click

End Sub
Private Sub Comando14_Click()
On Error GoTo Err_Comando14_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "#1 Tela Inicial"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando14_Click:
Exit Sub

Err_Comando14_Click:
MsgBox Err.Description
Resume Exit_Comando14_Click

End Sub

Private Sub Combinação15_BeforeUpdate(Cancel As Integer)

End Sub



-Eu apaguei e inseri oque foi dito, alterei minha tabela para somente Dados Cadastrais para nao ter problema e nao deu certo ;(

Danilo, boa tarde.

Preste atenção a mensagem que o JPaulo lhe postou, lhe garanto que lhe será de grande ajuda mesmo.

Quanto ao teu código, postado aqui, vejo mais uma salada de frutas pois esta tudo junto e misturado.

Tente assim, no evento após atualizar de tua combo ( que seria bom, que ela mudasse de nome para algo tipo cbobusca ou algo parecido) o código que JPaulo lhe forneceu.



Select Case Me.Combinação15.Value '--> mude o nome dessa combo, para algo mais amigável
Case Is = "NF"
DoCmd.OpenForm "NF"
Case Is = "TelaInicial"
DoCmd.OpenForm "TelaInicial"
End Select