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

2 participantes

    Como executar VBA7

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2166
    Registrado : 23/01/2018

    Como executar VBA7 Empty Como executar VBA7

    Mensagem  crysostomo 28/4/2022, 18:31

    Damasceno boa tarde amigo.
    Eu não entendo esse código de vba7, pois já coloquei ele , mas não funciona. Pode me explicar como é colocado e aonde ele faz a ação. Porque coloco eles em todos os meu sistema, mas ele não executa.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

    Como executar VBA7 Empty Re: Como executar VBA7

    Mensagem  DamascenoJr. 29/4/2022, 01:14

    essas condicionais com # são orientações ao compilador. A linha só é compilada se atender a condição. Pode parecer uma condicional simples, mas não é. Essa forma permite criar uma função com o mesmo nome mas com parametros e/ou ações diferentes.
    Código:
    #If VBA7 Then
        MsgBox "é access 2010 ou superior"
    #Else
        MsgBox "é access inferior ao 2010"
    #End If

    #If Win64 Then
        MsgBox "é office 64bits"
    #Else
        MsgBox "é office 32bits"
    #End If


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2166
    Registrado : 23/01/2018

    Como executar VBA7 Empty Re: Como executar VBA7

    Mensagem  crysostomo 29/4/2022, 01:51

    Sim, até aí tudo bem. Mas aonde ele vai ser executado como ele vai substituir o as linha para rodar nos offices.
    Mesmo vendo em outro lugares encontrei os mesmo códigos, mas tive que acrescentar PrtSafe, ou estou errado, de qualquer forma terei que substituir q limha, ou cada linha do módulo tenho que colocar dentro de cada if?


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

    Como executar VBA7 Empty Re: Como executar VBA7

    Mensagem  DamascenoJr. 29/4/2022, 01:58

    Ora, um trecho de código é executado quando ele for chamado. Basketball

    O PtrSafe só é obrigatório quando é office 64bits, e opcional quando for 32 bits. Em todo caso, se for VBA7, melhor colocar PtrSafe.

    Se você precisou fazer substituições, talvez tenha copiado de um código que tenha sido criado pra versões antigas e que ainda não tinha sido previsto o office 64 bits.

    No fim, essa preocupação só é válida se seus arquivos vão ser executados nas mais diversas versões do Access. Senão, você pode só usar o PtrSafe em tudo que tá resolvido. rsrs

    Em todo caso, segue um ótimo artigo sobre o assunto
    usandoaccess.com.br/tutoriais/configurar-api-access-de-64-e-32-bits-ptrsafe.asp


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 25/9/2022, 15:28