[Resolvido]Quando testo o BD pelo /runtime dá erro em tempo de execução e fecha tudo

Boa Noite

Estou iniciando ainda no access mas não encontrei solução para o problema.
Ocorre que quando executo o BD em Modo de Exibição Formulário, formulário "FCadastroEmpresa" funciona perfeitamente.
Mas quando testo esse BD pelo atalho  usando o /Runtime, dá o erro e fecha todo o aplicativo.

[img][/img]

Estou anexando o arquivo para quem quiser testar.

Desde já agradeço a ajuda

Olá Lissandro

Bem vindo ao Fórum.

Amigo, teu projeto está em Acc2010+, eu e muita gente aqui no fórum usamos o Ac 2007.

Por favor, converta-o para o Acc 2007 e muito mais gente poderá ajudá-lo.

Antecipando, verifique se está tudo certo com o código.
Para isso, abra um módulo VBA e no menu da página clique em Depurar.
Clique na primeira opção : Compilar (nomedoprojeto)

No caso do teu projeto é: Compilar Modulo_Importação

Veja se ele não "grita" e retorne o resultado.

Abraços

Noob

Boa Tarde Noobezinho

Segui sua orientação de testar a compilação e "gritou"
Dá a seguinte mensagem:



Estou usando o seguinte comando no evento:

[Private Sub btnNovo_Click()
On Error GoTo btnNovo_Click_Err
Me.txtCodigoEmpresa.Enabled = True
Me.txtNomeEmpresa.Enabled = True
Me.txtCNPJEmpresa.Enabled = True
Me.txtCodigoValidacao.Enabled = True
Me.btnPrimeiro.Enabled = False
Me.btnProximo.Enabled = False
Me.btnUltimo.Enabled = False
Me.btnNovo.Enabled = False
Me.btnSalvar.Enabled = True
Me.txtCodigoEmpresa.SetFocus

DoCmd.GoToRecord acForm, "FCadastroEmpresa", acNewRec

btnNovo_Click_Exit:
   Exit Sub

btnNovo_Click_Err:
   MsgBox Error$
   Resume btnNovo_Click_Exit

End Sub][/code]

Tentei converter o projeto para o Access 2003 mas ele não permitiu

Lissandro

Desculpe a demora em responder.


Geralmente quando o Access aviso de um erro no código VBA, ele pinta a linha que está o erro.
Mas vamos tentar explicar sobre o Me.

"Me" se refere ao formulário onde está o código.

digamos que você tem uma textBox(caixa de texto) chamada  txtNomeCliente no formulário frmClientes.

Num outro controle desse formulário quer se referir a caixa de controle.
Ao invés de escrever: Forms!frmClientes.txtNomeCliente, escreverá me.txtNomeCliente.

Olhando o código vejo o seguinte:

Private Sub btnNovo_Click()
On Error GoTo btnNovo_Click_Err
Me.txtCodigoEmpresa.Enabled = True
Me.txtNomeEmpresa.Enabled = True
Me.txtCNPJEmpresa.Enabled = True
Me.txtCodigoValidacao.Enabled = True
Me.btnPrimeiro.Enabled = False
Me.btnProximo.Enabled = False
Me.btnUltimo.Enabled = False
Me.btnNovo.Enabled = False <--- Mudar de lugar essa linha
Me.btnSalvar.Enabled = True
Me.txtCodigoEmpresa.SetFocus

Perceba que você está tentando dar uma atribuição ao botão que está ativado(pois nesse momento ele foi clicado).
Para desativar o botão (btnNovo) terá que mudar o foco para um outro controle e dai sim aplicar o atributo nele
Nesse caso poderá colocar essa linha por último, após a linha que está tirando o foco dele:

Me.txtCodigoEmpresa.SetFocus
Me.btnNovo.Enabled = False

Verifique ai, pode ser esse o problema

Noob

Boa Tarde Noob

Obrigado pela atenção.
Verifiquei suas orientações, corrigi a linha onde ele inativa o botão
Na primeira resposta você comentou de abrir um módulo, eu entendi abrir um novo módulo e copiar os comandos nesse novo módulo
acredito que por isso ele tava dando o erro ao usar o "Me"
Deixei todos os códigos em seus devidos lugares e mandei compilar e não deu mais erro.

Mas o probleminha quando uso o /Runtime persiste

Vou tentar salva-lo hoje a noite para o 2003 e posto o arquivo para teste

Obrigado pela ajuda

Lissandro

Quando falei em abrir um módulo, era somente para abrir um existente e ter acesso ao menu depurar   

Fico no aguardo     


Noob

Olá Lissandro.
Tenho o access 2010 instalado aqui e também uma máquina só com o runtime.
Baixei o teu BD e executei no runtime. A tela de login abriu mas, para ir para as demais telas, necessitaria da senha de login.
Se quiser, posso testar.
Veja também se além do runtime 2010 tens o servicepack 1 aplicado.

Att.

Daniel Robinson

Bom dia Robinson

Estou enviando novamente o arquivo, tentei tirar tudo que impedia de salvar na versão 2003 mas não consegui
Deixei o acesso do usuário Supervisor com a senha padrão "123456"


Estive testando e o problema está no btnSalvar, do formulário FCadastroEmpresa mas não identifiquei ainda o que de fato é

Noob,

Depois que reli seu primeiro post que entendi, coisas de iniciante, mas aos poucos vou me familiarizando

At
Lissandro

Lissandro

Modifiquei algumas linhas do código do botão salvar.

Teste, por favor

Eu criei um arquivo .accde,  portanto, não a erros.

Código:


On Error GoTo btnSalvar_Click_Err
If IsNull(txtCodigoEmpresa) Then
    MsgBox "Código da Empressa não informado", vbExclamation, "Código Inválido"
    txtCodigoEmpresa.SetFocus
    Exit Sub
    
End If
If IsNull(txtNomeEmpresa) Then
    MsgBox "Razão Social não informada", vbExclamation, "Razão Social Inválida"
    txtNomeEmpresa.SetFocus
    Exit Sub
End If
If IsNull(txtCNPJEmpresa) Then
    MsgBox "CNPJ não informado", vbExclamation, "CNPJ Inválido"
    txtCNPJEmpresa.SetFocus
    Exit Sub
End If
If IsNull(txtCodigoValidacao) Then
    MsgBox "Codigo validação não informado", vbExclamation, "Código de Validação Inválido"
    txtCodigoValidacao.SetFocus
    Exit Sub
End If

CodigoVal = ([CodigoEmpresa] * 90) + (Left([CNPJEmpresa], 2) * 80) + (Right([CNPJEmpresa], 2) * 70) + (Len([NomeEmpresa]) * 60)

If txtCodigoValidacao <> CodigoVal Then
    MsgBox "Codigo validação informado não é válido", vbExclamation, "Código de Validação Inválido"
    txtCodigoValidacao.SetFocus
    Exit Sub
End If

Me.txtCodigoEmpresa.Enabled = False
Me.txtNomeEmpresa.Enabled = False
Me.txtCNPJEmpresa.Enabled = False
Me.txtCodigoValidacao.Enabled = False
Me.btnPrimeiro.Enabled = True
Me.btnProximo.Enabled = True
Me.btnUltimo.Enabled = True
Me.btnNovo.Enabled = True

    
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Empresa incluída com sucesso!"

Me.btnNovo.SetFocus
Me.btnSalvar.Enabled = False

btnSalvar_Click_Exit:
    Exit Sub
    
btnSalvar_Click_Err:
    MsgBox Error$
    Resume btnSalvar_Click_Exit

End Sub



Aguardando ...
Noob

Bom Dia Noob

Funcionando perfeitamente agora.
Vou comparar o que você corrigiu para aprender.

Obrigado, valeu pela ajuda   

Abraço
Lissandro

Lissandro

É bom poder ajudar

Obrigado pelo retorno.

Boa sorte!


Noob