[Resolvido]"Return sem GoSub" ao clicar em botão abrir formulário

Olá senhoras e senhores, boa tarde.

Já estou na fase de testes do meu primeiro BD e estava tudo funcionando perfeitamente.Testei as consultas, as adições e as exclusões de dados e os botões. Tudo funcionando perfeitamente. Repentinamente um botão que abre um outro formulário me informou isso: "Return sem GoSub" e abre uma tela de Macro passo a passo não entendi nada. Este botão estava funcionando perfeitamente há um minuto atrás. Já olhei a macro, os dados da tabela e não encontro a solução. Resolvi deletar o botão e fazer outro igual e funcionou perfeitamente, entretanto se eu fechar o BD e abrir novamente o botão passa a informar novamente isso: "Return sem GoSub".

Alguém sabe como resolver isso?

Obrigado

Vagner

Abra um módulo qualquer, vá no Menu Ferramentas > Referências e veja se não tem alguma AUSENTE. Se tiver, desmarque ela. Depois, vá no menu Depurar e depure o código para ver se encontra algum erro de código. Se encontrar, corrija-o e repita o debug até não ter mais erros. Salve e feche o módulo. Depois, faça um Compactar/Reparar e teste para ver se resolve.

Criquio, obrigado pela resposta, mas fiz o que me falou, fui em referências e só tem 4 itens selecionados e nenhum AUSENTE. Cliquei em Depurar e nada aconteceu. Já testei em outros BD e fica tudo certo só nesse (que é o que preciso) está assim.

Tente criar um bd novo e importar tudo para ele.

Ok, Obrigado mais uma vez. Agora finalizei meu projeto.

Valeu!!!

Pessoal, alguem pode me ajudar com este erro (erro na execulsao 3 retum sem gosum)


Private Sub BTN_ENTRAR_Click()
If txtusuariotab.Value = txtusuario.Value And txtsenha.Value = txtsenhatab.Value Then
DoCmd.OpenForm "FORMULARIOPRINCIPAL", acNormal, "", "", , acNormal
Forms!FORMULARIOPRINCIPAL!campouser = campouser
Else
MsgBox ("USUÁRIO OU SENHA INVÁLIDO")
txtusuario = ""
txtsenha = ""
txtusuario.SetFocus
End If
End Sub