MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

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

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

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

    Mensagem  Assis 25/9/2018, 22:23

    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


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 26/9/2018, 10:33

    Bom dia Assis,

    Funcionou sem erros e atualizou.

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

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

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

    Mensagem  Assis 26/9/2018, 11:13

    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 ? Laughing Laughing

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 26/9/2018, 11:23

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

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

    Mensagem  Assis 26/9/2018, 12:44

    Boa tarde Amigo

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

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 26/9/2018, 12:48

    Ola, tente compilar.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 26/9/2018, 13:41

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Alguém testa este exemplo em Access 2016  32 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Alguém testa este exemplo em Access 2016  32 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Alguém testa este exemplo em Access 2016  32 Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

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

    Mensagem  Assis 26/9/2018, 17:44

    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






    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 26/9/2018, 20:48

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Alguém testa este exemplo em Access 2016  32 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Alguém testa este exemplo em Access 2016  32 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Alguém testa este exemplo em Access 2016  32 Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

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

    Mensagem  Assis 27/9/2018, 11:57

    JPaulo

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

    Resolvi o assunto como mostra a imagem.

    Obrigado

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


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 27/9/2018, 12:28

    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 Very Happy

    Abraço a todos

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 07:59