[Resolvido]Alguém testa este exemplo em Access 2016 32

Boa noite

No exemplo que anexo em Access 2013 funciona direito, mas não funciona num PC com Office 2016 32.

Alguém com o dito Office 2016 32 Bits, testa para mim e retorna o resultado.

A dificuldade está informada no único formulário do exemplo.

Obrigado

Bom dia Assis,

Funcionou sem erros e atualizou.



Abraço

Bom dia Teixeira

Obrigado por fazer o teste. Mas eu preferia que não funcionasse.

Tenho um Amigo que tem um PC MAC , e tem o Win 10 e o Office 2016 32 e nesse o formulário desse exemplo teima em não funcionar nesse PC.

Será a maldição da Maça ?

Obrigado

Olá Assis,

Tente fazer uma ligação ao colega e teste diretamente na maquina.
Um palpite apenas, tem macros e codigo VBA habilitado (definições de segurança)

Abraço

Boa tarde Amigo

Sou eu que faço tudo via TeamViewer , as macros estão desativadas.

Obrigado

Ola, tente compilar.

Provavelmente porque a instrução está errada.

Testei no Win 10 e o Office 2016 32, e também não funcionava, agora já funciona.

Código:

Private Sub Modelo_AfterUpdate()
If DCount("*", "Modelos") = 0 Then ' se não houver registros na tabela
    Me.Mod = Format("1", "000") & "." & Year(Date)
    Me.Ref.SetFocus
    'morre aqui
    Exit Sub
End If

'se passar para a frente, obtem o ano do ultimo registo e compara com o ano atual
'para texto use o DLast, o DMax funciona bem em numerico
If Val(Right(DLast("[mod]", "Modelos"), 4)) <> Year(Date) Then
      MsgBox "Reiniciando Contagem dos Registos Para o Novo Ano", vbInformation, "Aviso"
      Me.Mod = Format("1", "000") & "-" & Year(Date)
      Me.Ref.SetFocus
      Exit Sub
   Else
'para texto use o DLast, o DMax funciona bem em numerico
      Me.Mod = Format(Left(DLast("[mod]", "Modelos"), 4) + 1, "000") & "." & Year(Date)
      Me.Ref.SetFocus
End If
End Sub

Teixeira

Está compilado pois vai para o outro PC no formato accde.

Mas mesmo em accde aqui no meu PC funciona

Obrigado


JPaulo

Mesmo com a sua dica que agradeço o PC MAC continua a não preencher os campos

Obrigado

O melhor é fazer um break no código e depois usar a combo e com o F8 acompanhar linha a linha para ver o porquê de não popular os campos.

JPaulo

Como o Amigo diz: existe muita maneira de fazer Nestum.

Resolvi o assunto como mostra a imagem.

Obrigado

Olá a todos,

Assis, é verdade que existem várias formas de obter o mesmo resultado.
Recomendo que teste quando não tem registos ou na mudança do ano. Que acha da ideia?

Mas também é bom descobrir o que se está a passar.
Estive a dar uma vista ao exemplo e tinha um tratamento de erros para continuar, veja:

Código:

Private Sub Form_Error(DataErr As Integer, Response As Integer)

    MsgBox DataErr
    'adicionada linha acima e comentado resto codigo para se ver erros

    'Response = acDataErrContinue 'inibe msg padrão do access.
    'Exit Sub
    'Me.ActiveControl.SetFocus
    'Response = acDataErrDisplay
    'Response = acDataErrContinue
    'Exit Sub
End Sub

Também usa em muitos casos o 'On Error Resume Next que ao ocorrer um erro continua, não é nada bom e devemos prever os erros.

Efetuei uns ajustes para poder testar no computador  "mac", segue em anexo e recomendo que efetue os testes quer como ACCDB ou ACCDE e verifique se mantem o erro.

cld.pt/dl/download/2aeaecd7-ea46-4405-b221-dfdc0cac245a/TesteForum_rev.zip

Nota final: Parabéns já está a usar indentação, mas ainda tem que melhorar

Abraço a todos