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

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

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

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

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!

Aguardo...

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

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?

Crysostomo,

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

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 



Isso é só o começo

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

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

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

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

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

Crysostomo,

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

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

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.

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