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


    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  crysostomo 17/3/2021, 15:23

    Meus amigo fiz um sistema no access 2010 e tanto de meu cliente é do meu setor de trabalho que é "mandado judicial"  é 2013 o vb7 não funciona sendo que já tenho o módulo .
    Código:

    #If VBA7 Then
    '// 2010 ou 2013 de 32 ou 64 bits
    Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal _
    lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory _
    As String, ByVal nShowCmd As Long) As Long
    #Else
    '// 2007 ou inferior
    Public Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal _
    lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory _
    As String, ByVal nShowCmd As Long) As Long
    #End If
    O módulo não da certo. Nem com  runtime.
    Eu crente  que o superior sempre abre o inferior


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4058
    Registrado : 29/06/2012

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  Noobezinho 17/3/2021, 18:27

    Código:

    Function ChecaVer() As Boolean
      If Application.Version = "12.0" Then          'versão do Access 2007
         ChecaVer = True
      ElseIf Application.Version = "14.0" Then     'versão do Access 2010
         ChecaVer = True
      ElseIf Application.Version = "15.0" Then     'versão do Access 201
         ChecaVer = False
      Else
           ChecaVer = False
      End If
    End Function



    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...

    crysostomo gosta desta mensagem

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  crysostomo 17/3/2021, 21:31

    Noobs Muito boa  noite, amanha eu te dou retorno de lá do trabalho.
    Por ser um setor de mandado judicial caramba isso vai resolver ns processos e não dobrar tempo para refazer tudo em um novo banco etc..
    Isso é um modulo  ne, mas tem que colocar uma call,  chamar ele e algum lugar?
    Aquela situação de trocar algumas linhas e, PtrSafe?

    vou baixar um bd2013 aqui e te retorno pois só tenho no trabalho


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4058
    Registrado : 29/06/2012

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  Noobezinho 18/3/2021, 00:19

    Meu amigo

    Se ler o código irá ver que começa com Function.

    Então, é um função que vai dentro de um Módulo.

    Function ChecaVer() As Boolean

    Você sabe uma que é Boolean?

    Vamos lá, leia essa função e me explique ela.

    E sobre PtrSafe, me explique também o que é.

    Vou começar a fazer perguntas pra vocês aprenderem na marra! Razz Razz

    Aguardo...




    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...

    crysostomo gosta desta mensagem

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  crysostomo 18/3/2021, 02:40

    Boolean é uma logica de falso ou vdd.
    PtrSafe é um atributo de compatibilidade para versão de 32bits


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4058
    Registrado : 29/06/2012

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  Noobezinho 18/3/2021, 11:10


    Isso:

    Boolean é uma logica de falso ou vdd.
    false ou true
    não ou Sim
    0 ou -1

    Resolveu a questão do tópico?


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1396
    Registrado : 13/12/2016

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  Alexandre Fim 18/3/2021, 12:07

    Crysostomo,

    No código-fonte do teu sistema, acesse o menu "Depurar" e selecione o submenu Compilar, e verifique se gera algum erro.



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  crysostomo 18/3/2021, 14:04

    Ele pede para declarar ptrsafe, mas mesmo eu declarando ele aponta outras linha de código aí apago é não tenhomais códigos. A transparência o mouse cursor nada funciona 

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro 16160713
    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro 16160712
    Isso é só o começo


    Última edição por crysostomo em 18/3/2021, 14:10, editado 1 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1396
    Registrado : 13/12/2016

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  Alexandre Fim 18/3/2021, 14:09

    Crysostomo,

    1 - Não se deve apagar declarações de API, porque pode gerar problemas em algumas funções.
    Não apague, apenas comente a linha.

    2 - Se está pedindo para incluir a palavra-chave "PtrSafe", é necessário fazer em todas elas.


    #If VBA7 Then
    Declare PtrSafe Function...
    #Else
    Declare Function...
    #EndIf



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  crysostomo 18/3/2021, 14:13

    Alexandre tenho que fazer esses if vb7 em todas privates É nao em modulo?


    Última edição por crysostomo em 18/3/2021, 14:14, editado 1 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1396
    Registrado : 13/12/2016

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  Alexandre Fim 18/3/2021, 14:14

    Isso !!!
    Somente nas declarações de API


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  crysostomo 18/3/2021, 14:16

    Não entendi essa  Alexandre pode me dar um exemplo por um módulo porque tenho , estou com milhares de registros judicial.
      Como está na mensagem 2


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4058
    Registrado : 29/06/2012

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  Noobezinho 18/3/2021, 14:19

    Crysostomo

    Na primeira linha em vermelho da imagem está faltando a palavra function. por isso o erro.

    É assim que deve ser:
    Declare PtrSafe Function G
    ou
    quando for Sub
    Declare PtrSafe Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)

    Obs.: Quase não da pra ler nessa imagem.

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1396
    Registrado : 13/12/2016

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  Alexandre Fim 18/3/2021, 14:23

    Crysostomo,

    À medida que você for alterando as declarações, vc vai compilando sua aplicação para ver onde se encontram os erros.


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  crysostomo 18/3/2021, 14:32

    Vou refazer aqui é retorno
    Já agradeço a atenção.


    Última edição por crysostomo em 18/3/2021, 14:49, editado 1 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4058
    Registrado : 29/06/2012

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  Noobezinho 18/3/2021, 14:35

    Crisostomo

    Você pode usar o binóculos do menu ou clicar em F3, ele abre a janela pesquisar

    digite Declare function e depois clique em substituir e coloque em substuir Declare ptrsafe Function

    então clique no botão substituir novamente para modificar, se modificou, check Projeto atual e pode clicar no botão substituir todas.

    Assim não vai ter tanto trabalho.

    Confira no F3 se todas foram modificadas.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  crysostomo 18/3/2021, 14:50

    Ok, obrigado.
    Resolveu , mais porque há esse módulo?
    Mas estou com outro problema de compartilhamento  . Obrigado  pela atenção desse.
    Vou abrir outro.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado

    [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro Empty Re: [Resolvido]Vb7 não está funcionando e da erro de execução sem o número do erro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2021, 11:41