[Resolvido]Formulário inicial não funciona

Oi pessoal.

É o seguinte... eu tenho uma formulário que inicia automaticamente quando o Banco de Dados é aberto. Só que quando ele abre ao iniciar o arquivo ele não está funcionando. Só que quando eu abro em modo de edição e dou dois cliques lá no formulário ele funciona normalmente.

Eu tenho 3 caixas de opção e 2 botões. Então ao selecionar uma caixa de opção o valor de uma variável é alterada e ao clicar num botão abre um formulário específico de acordo com a combinação (caixa de opção/botão).

Eu penso que talvez a variável não esteja sendo criada ao iniciar o bando de dados. Eu a criei como "Public" abaixo daquele "Option Compare Database" do formulário em questão.

Não sei se a declaração da variável está no lugar certo, mas como eu disse, o formulário funciona perfeitamente quando eu dou 2 cliques nele para abrir, mas não funciona quando ele inicia automaticamente ao abrir o Banco de Dados.

Desde já agradeço.

E o nome do formulário está lá no local aonde você indica para ele abrir automaticamente? Por acaso não tem algum evento no "Ao carregar", "Ao abrir", "No atual", que possa estar fechando o formulário tão logo ele abra ou que esteja impedindo a abertura do mesmo?

Se a pública tem que estar num módulo e fazer depois o call da função no módulo do formulário

Criquio, eu não expliquei direito. O formulário abre, só que ele não funciona. As combinações (caixas de opção/botões) não abrem os outros formulários, fica como se não tivesse evento associado.

Vieirasoft, como eu chamo uma função no módulo do formulário e em que evento eu insiro o código?

Obrigado!

Talvez se postar os códigos utilizados, fique mais fácil para elucidarmos o caso.

Option Compare Database
Public var As Integer

Private Sub CADASTRO_Click()
On Error GoTo Err_CADASTRO_Click

Dim stDocName As String
Dim stLinkCriteria As String
If var = 1 Then
stDocName = "02-Menu_Investigação_Inserção"
DoCmd.OpenForm stDocName, , , stLinkCriteria

ElseIf var = 2 Then
stDocName = "02-Menu_Monitoramento_Inserção"
DoCmd.OpenForm stDocName, , , stLinkCriteria

ElseIf var = 3 Then
stDocName = "02-Menu_Remediação_Inserção"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Else
MsgBox "Escolha uma das 3 opções: Investigação, Monitoramento ou Remediação", vbOKOnly + vbInformation

End If

Exit_CADASTRO_Click:
Exit Sub

Err_CADASTRO_Click:
MsgBox Err.Description
Resume Exit_CADASTRO_Click


End Sub

Private Sub Comando9_Click()
DoCmd.Quit


End Sub



Private Sub CONSULTA_Click()

On Error GoTo Err_CONSULTA_Click

Dim stDocName As String
Dim stLinkCriteria As String
If var = 1 Then
stDocName = "02-Menu_Investigação_Consulta"
DoCmd.OpenForm stDocName, , , stLinkCriteria

ElseIf var = 2 Then
stDocName = "02-Menu_Monitoramento_Consulta"
DoCmd.OpenForm stDocName, , , stLinkCriteria

ElseIf var = 3 Then
stDocName = "02-Menu_Remediação_Consulta"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Else
MsgBox "Escolha uma das 3 opções: Investigação, Monitoramento ou Remediação", vbOKOnly + vbInformation

End If

Exit_CONSULTA_Click:
Exit Sub

Err_CONSULTA_Click:
MsgBox Err.Description
Resume Exit_CONSULTA_Click


End Sub




Private Sub Selecao_Invest_Click()

var = 1
Selecao_Monit.Value = 0
Selecao_Remed.Value = 0


End Sub

Private Sub Selecao_Monit_Click()

var = 2
Selecao_Invest.Value = 0
Selecao_Remed.Value = 0


End Sub

Private Sub Selecao_Remed_Click()

var = 3
Selecao_Invest.Value = 0
Selecao_Monit.Value = 0

End Sub



Só que agora está funcionando. Não fiz nada, só troquei de PC.

Se já resolveu agradeço o retorno