[Resolvido]Erro de código ao converter ficheiro Access 2003 para Access 2010

Boa tarde a toda a comunidade Máximo Access,

Alguém pode ajudar

tenho tentado converter algumas aplicações feitas em Access 2003 para Access 2010, mas deparei-me logo com um erro

compile error: User defined type not defined

o erro está aqui ----- dd As New FileSystemObject

o código é este:

Option Compare Database

Function Analise()
Dim T As Recordset, D As Database
Dim dd As New FileSystemObject, dr As Drive, t1, TT
   
   
Set dr = dd.GetDrive("c:")
If DFirst("[SERIAL]", "[SERIAL]", "[SERIAL]=" & dr.SerialNumber) = "" Or IsNull(DFirst("[SERIAL]", "[SERIAL]", "[SERIAL]=" & dr.SerialNumber) = True) Then
    DoCmd.OpenForm "SERIE"
    MsgBox "ESTE PC NÃO ESTÁ AUTORIZADO - CONTACTE 9_______!", , ""
Else
   DoCmd.OpenForm "Entra"
End If

SendKeys "{F6}"
End Function

Olá José Maria,
Verifique as referências.
Compare com as da versão 2003.
Abraço

Olá, ahteixeira,

obrigado pela resposta, fui vendo que o problema residia em muitas linhas de código, que não passou na conversão.

já agora pregunto se conhece alguma forma mais assertiva de converter de .mdb para .accdb, pois tentei converter várias vezes mas não passa tudo direito, falta sempre código, nunca fico com a certeza de que tudo passou, só quando dá erro é que vejo não ter passado tudo.


Abraço

Olá José Maria,
Normalmente é suficiente a conversão a partir de uma versão superior.

Se está com problemas eu faria da seguinte forma:
Utilizado o Access 2007 atualizado com SP3

1) BACKUP
2) Compilava o Projecto (ALT+F11 -> DEBUG - >Compile)
3) Anotava as referências do projecto
4) Criava uma base de dados nova no formato ACCDB (2007)
5) Importava tudo (não se esqueça de ver as opções:

6) Adicionar referencias ao projecto
7) Compilar e verificar

Abraço

Olá ahteixeira,

irei proceder conforme sua indicação, no fim de semana, pois tenho o Access 2007 noutro PC

Obrigado, pela ajuda

Abraço

Boa Tarde, ahteixeira,

não resultou o processo de conversão mesmo no Access 2007

vou tentar copiar e colar individualmente, caso não resulte voltarei


Abraço

Olá,
Não parece estar fácil.
Efetue um backup e em Access 2003
Verifique se o formato da base de dados está em 200, se estiver converta para MDB bersão 2002/2003
Caso ja esteja em 2003
Compile o projecto.
Compactar reparar e só depois voltar à importação atraves do 2007.
Abraço

Boa Tarde, Caro, ahteixeira

a BD já está em Access 2002/2003, mas já me dá um erro quando a compilar nesta versão, mas que não tem interferido no desempenho

o erro é o que aparece na imagem

o código que uso foi copiado vai para muito tempo e retirado de um exemplo postado.

caso possa ajudar agradeço.

Olá, acho que deve começar por aí.
Acho não, tenho a certeza.
Corrija , pois é erro de codigo.
Acho que falta fechar uma Sub ou tem codigo fora de uma sub ou function.
Compile que mostra onde está mal a amarelo.
Abraço

Boa Tarde, Caro, ahteixeira,

estou de volta na tentativa de obter uma solução, pois já tentei de tudo, incluindo eliminação de algum código com erro, mesmo assim não funcionou, o curioso é que a aplicação em mbd funciona sem erro

anexo o ficheiro original em Access 2003 mdb para ver a possibilidade de converter em Access 2010 accdb, se me conseguir orientar, é que domino muito mal VBA, e muito do código que usei, foi extraído de exemplos aqui no fórum.

meus agradecimentos

Olá José Maria,
Pelo que estive a ver no seu projecto, esta com erros no código.
Sendo esta a razão da não conversão, ou seja, enquanto não corrigir os erros no Access 2003, vai ter sempre o mesmo problema.

Veja, para compilar, deve abrir o editor de VBA, para isso prima as teclas
ALT+F11
Depois DEBUG -> Compile
Veja:


Tem que corrigir até ficar sem nenhum erro.

Por exemplo, neste caso abaixo:

A parte que está marcada a Vermelho, está repetida, remova que resolve.
Volte a compilar e verificar os restantes erros.

Qualquer coisa estamos cá.
Abraço

Boa Tarde, Caro ahteixeira,

a sua ajuda foi bastante eficaz e motivadora, estive a rever tudo, e efetivamente existiam muitos erros, verifiquei agora que foram motivados pelo copiar e colar, ficou muito código solto e que gerava erro constante.

já consegui converter, mas ficou com um erro que ainda não dei saída, será que me pode ajudar:

anexo parte da aplicação que dá o erro à entrada, compreendo que falta algo, mas não sei como começar

Olá, estou no telemóvel.
Mas para despistar, depois de coreigir em 2003,funcionava tudo bem?
Abraço

Olá, obrigado pela prontidão,

no 2003 mdb, ficou sem erro e funciona na perfeição, em 2010 accdb, logo no arranque, dá esse erro

A função 'DaneIpMaquina' não está definida na Expressão

Olá, tente compilar no 2010.
Verifique se tem erros.
À primeira vista está a faltar essa função.
Continuo no telemovel.
Abraço

Olá, Caro ahteixeira,

compilei novamente no 2010, mas ao compilar não aparece erro

no arranque aparece

A função 'DaneIpMaquina' não está definida na Expressão


fico a aguardar, logo que lhe seja possível


muito obrigado

Olá,


continua dando a mensagem "A função 'DaneIpMaquina' não está definida na Expressão", já virei tudo e não encontro a solução

será pela máquina ser de 64bit

vou tentar em 32bit e depois informo

Olá, baixei exemplo da mensagem nº 12 e dá erro (falta form Serial)
Também não tem a função que lhe dá erro.
Verifique o exemplo que postou se está funcional e a dar o ero que descreve.
Abraço

Olá,

eliminei tudo o que não é necessário, o erro mantém ao abrir o ficheiro em accdb e abre corretamente em mdb

as referências estão iguais

anexo dois ficheiros exatamente iguais, um em mdb o outro em accdb

em mdb abre corretamente
em accdb dá erro (DaneIpMaquina)

Olá,
Na versão 2003 ainda apresentava o erro, alterei conforme sugestão.
Na versão 2010 faltava o Modulo IP_PC (que estava oculto na versão 2003)



Segue o meu teste:
meocloud.pt/link/3ddc3752-7461-4f7f-b3c4-32032c41b90a/GPVistos_Access%202002_2003_2007.zip/

Copiar e colar no browser
Abraço

Olá, ahteixeira,

muito obrigado pela sua ajuda, finalmente vou conseguir migrar para 2010.

já agora e antes de dar por resolvido, se não for massada, numa situação em que está oculto, como faço para mostrar novamente o modulo

para ocultar já vi que é clicar botão lado direito do rato, mas para voltar a mostrar como faço

Olá José Maria, obrigado pelo retorno.

Veja abaixo como fazer:



Depois já consegue ver, veja:


Para ficar a mostrar de futuro é clicar como para ocultar (botão lado direito, e retirar o visto)
Abraço

Olá, ahteixeira,

muito obrigado pelas preciosas aulas, grato a toda a comunidade maximoaccess, e em particular a si.

um Grande Abraço

Olá José Maria,
Obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço