[Resolvido]Como descobrir o erro em accdr

Boa tarde amigos

O código abaixo funciona bem em access 2013 - 32, e não dá erro nem accdb, e nem em accde

Em accdr dá : Erro em tempo de execução.

A ordem em que estão terá influência?

Obrigado

Private Sub Movimentos_AfterUpdate()

   Me.Tipo_Mov = Movimentos.Column(1)

      Me.A = Movimentos.Column(1)

  Me.Comando63.Visible = True

 Me.Rótulo455.Visible = True
   
   Me![Rubrica].enabled = True
     
       Me![Rubrica].SetFocus
       
    Rubrica.Dropdown
     

End Sub

Assis,

Verifique se o campo Rubrica.DropDown é um combobox. Se não for, vai dar erro.
Compile o sistema e veja se tem outros erros.


[]'s

FIM

Alexandre

Sim Rubrica é comboBox.

Consigo converter a BD para accde, por isso está compilado está bem

Assis,

O teu Access é 32 ou 64?

Se a versão for 64, verifique se não está faltando PtrSafe nas declarações de API.

Alexandre

Win 10 - 64 com Office 2013 - 32

Ok.

Na compilação não encontrou erros?

Compacte e repare o sistema.
Feche-o e abra novamente

Alexandre
Quando está na extensão accdb, e mando converter para accde, se tiver error de compilação não é criado a extensão accde.
Depois de estar com a extensão accde, não dá erro nenhum.
Depois de mudar a extensão para accdr, é que acontece o “Erro”
Obrigado

Ah...entendi !!
Nunca tive este problema e acho que não vou conseguir te ajudar.
Vamos aguardar algum membro do fórum ajudar.

[]'s

FIM

Obrigado Alexandre
BFS

Olá a todos,

Assis, teste renomeando de accdb para accdr e execute.
Se nao conseguir detetar o erro monte pequeno exemplo a dar o erro para se testar.

Abraço a todos

Que tal também ouvir o que o Access tem a dizer? Ou seja, cadê o tratamento para erro?

Outra coisa, que tal também emitir caixas de mensagem com o passo a passo do código e saber a linha exata que está o problema?

É um bom começo...

Private Sub Movimentos_AfterUpdate()
On error goto trataErro

call msgbox("passo 1 ok")
  Me.Tipo_Mov = Movimentos.Column(1)
call msgbox("passo 2 ok")
     Me.A = Movimentos.Column(1)
call msgbox("passo 3 ok")
 Me.Comando63.Visible = True
call msgbox("passo 4 ok")
Me.Rótulo455.Visible = True
call msgbox("passo 5 ok")
  Me![Rubrica].enabled = True
call msgbox("passo 6 ok")
      Me![Rubrica].SetFocus
call msgbox("passo 7 ok")
   Rubrica.Dropdown
   
sair:
exit sub

trataErro:
call msgbox(err.number & vbnewline & vbnewline & err.description)
resume sair

End Sub

Bom dia Amigos

É o SetFocus

Tem como resolver, na vossa opinião ?

Obrigado

Qual a mensagem de erro emitida? Experimenta também reiniciar esse controle para cboRubrica e referencia-lo sem os colchetes [].

Damasceno

Já tentei tudo !!!!!

Só tirando o setfocus, para não dar o erro na extensão accdr

Em accde funciona perfeito.

Obrigado

Private Sub Movimentos_AfterUpdate()
On error goto trataErro

Me.Tipo_Mov = Movimentos.Column(1)
    Me.A = Movimentos.Column(1)
Me.Comando63.Visible = True
Me.Rótulo455.Visible = True
 Me![Rubrica].enabled = True
DoEvents
     Me![Rubrica].SetFocus
  Rubrica.Dropdown
 
sair:
exit sub

trataErro:
call msgbox(err.number & vbnewline & vbnewline & err.description)
resume sair

End Sub

Não resolvendo, diga qual a mensagem de erro emitida pelo código.

Experimente também já deixar o controle habilitado desde o inicio para ver se mesmo assim o setfocus não funciona.

Tente montar um pequeno exemplo usando esse formulário e veja se o problema se repete.

Olá a todos,

Assis depois da "papa toda feita" pelo colega Damasceno, tem que mostrar o código do erro, pois tem tratamento de erros.
Pode mostrar qual o código do erro?

Abraço a todos

Boa tarde

Estou aqui a dar a mão á palmatória.

O erro está no acontecimento "Ao Alterar" o campo "Movimentos"

Se tirar esse acontecimento funciona, mas eu não queria tirar.

Obrigado

Olá Assis,

Voltando à mensagem nr. 11 do colega Damasceno, mostre o print da mesagem com o nr do passo com o erro e que o fez identificar como sendo no "setfocus".

Aguardo

Assis,

Com o código do Damasceno deveria aparecer a caixa de mensagem a dizer os "passos" e não deve ter aparecido nenhuma, porque o erro pelo exemplo que partilhou está aqui:


E nem percebo o que isto faz ou está a fazer numa caixa de combinação que tem "origem da linha dos dados" numa consulta, não faz sentido, pode explicar.

Qualquer membro que está a participar neste topico pode contornar o erro se pretender mesmo assim, mas na minha opiniao não faz sentido e deve ter um código limpo e fluido e você também tem que compreender o que tem no seu projeto.

Além disso o erro não tem nada haver com ACCDR, pois tenho em ACCDB e está a dar erro

Abraço

Então Assis, feedback
Se não vou sair e fica para depois a solução

Assis,
Era isto que o colega Damasceno tinha sugerido para identificar o erro, você nem viu , nem percebeu como funciona, nem colocou no sitio correto para aparecer, veja:

Olá a todos,

Assis, não respondeu à minha pergunta:
"E nem percebo o que isto faz ou está a fazer numa caixa de combinação que tem "origem da linha dos dados" numa consulta, não faz sentido, pode explicar.".
Mantenho o que disse, no entanto para "contornar o erro" usamos o tratamento de erros, ficando assim:


Vou alterar o titulo do topico porque ficou provado que o erro dá no formato accdb.

Abraço

Como o Amigo diz:

Não está a fazer nada.




Obrigado a todos