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

    Erro na compilação para clsCommonDialog

    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 16/11/2012

    Erro na compilação para clsCommonDialog  Empty Erro na compilação para clsCommonDialog

    Mensagem  ilvecchio 4/8/2014, 15:17

    Buenas!
    Estou usando este código, em conjunto com outros, para converter um arquivo .snp em .pdf.
    O que está me incomodando é que sempre que compilo um código qualquer, é apontado o termo clsCommonDialog , com o erro:

    Erro de compilação. O tipo definido pelo usuário não foi definido , o que me impede antecipar erros nos códigos que estou trabalhando.

    Alguém sabe como resolver isso?



    Public Function fFileDialogSnapshot() As String
    ' Calls the API File Open Dialog Window
    ' Returns full path to existing Snapshot File

    On Error GoTo Err_fFileDialog

    ' Call the File Common Dialog Window
    Dim clsDialog As Object
    Dim strTemp As String
    Dim strFname As String

    Set clsDialog = New clsCommonDialog

    ' Fill in our structure
    ' I'll leave in how to select Gif and Jpeg to
    ' show you how to build the Filter in case you want
    ' to use this code in another project.
    clsDialog.Filter = "SNAPSHOT (*.SNP)" & Chr$(0) & "*.SNP" & Chr$(0)
    'clsDialog.Filter = "ALL (*.*)" & Chr$(0) & "*.*" & Chr$(0)
    clsDialog.hDC = 0
    clsDialog.MaxFileSize = 256
    clsDialog.Max = 256
    clsDialog.FileTitle = vbNullString
    clsDialog.DialogTitle = "Please Select a Snapshot File"
    clsDialog.InitDir = vbNullString
    clsDialog.DefaultExt = vbNullString

    ' Display the File Dialog
    clsDialog.ShowOpen

    ' See if user clicked Cancel or even selected
    ' the very same file already selected
    strFname = clsDialog.FileName
    If Len(strFname & vbNullString) = 0 Then
    ' Do nothing. Add your desired error logic here.
    End If

    ' Return File Path and Name
    fFileDialogSnapshot = strFname

    Exit_fFileDialog:

    Err.Clear
    Set clsDialog = Nothing
    Exit Function

    Err_fFileDialog:
    fFileDialogSnapshot = ""
    MsgBox Err.Description, vbOKOnly, Err.Source & ":" & Err.Number
    Resume Exit_fFileDialog

    End Function
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho 4/8/2014, 15:31

    Luiz

    Você precisa fazer a referência para a ocx MSCOMCTL.OCX que está na pasta windows32.

    Acredito que saiba fazer essa referência na página do VBA.

    Abraços

    Noob


    .................................................................................
    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...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho 4/8/2014, 15:45

    Mais uma dica:

    Se quer usar snapshot e estiver usando msAccess 2003, tudo bem.
    No Access2007 (não tenho certeza) e no Access2010 esse sim tenho certeza, já não funciona mais.





    .................................................................................
    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...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 16/11/2012

    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  ilvecchio 4/8/2014, 16:42

    Fiz a referência mas não funcionou. Em que posição da lista deve ficar?

    - Visual Basic for Applications
    - Microsoft Access 11.0 Object Library
    - Ole Automation
    - Microsoft DAO 3.6 Object Library
    - Microsoft ActiveX Data Objects 2.8 Library
    - Microsoft Scripting Run time
    - fpdtc 1.0 Type Library
    - Microsoft forms 2.0 Object Library
    - Microsoft Outlook 11.0 Object Library
    - Microsoft Calendar ontrol 11.0
    - Microsoft Windows Common Controls 6.0 (SP6)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho 4/8/2014, 18:09

    Olha

    O que me parece é que está faltando um modulo de classe chamado clsCommonDialog
    Por favor, verifique junto de onde tirou o código,provavelmente, do Lebans.


    Abraços


    Noob


    .................................................................................
    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...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 16/11/2012

    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  ilvecchio 4/8/2014, 18:25

    É do Lebans, sim.
    Perdão, mas se faltasse, o código falharia, ou não?
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho 4/8/2014, 20:05

    Assim:

    No código está faltando a classe  a que o código se refere: clsCommonDialog
    De primeira, conclui que seria justamente a falta da Referência conforme tinha indicado.
    Analisando mais a fundo percebi que se trata de uma classe criada nos módulos do VBA
    É um módulo Classe.
    Estava um tanto apressado quando fui ao site do Lebans pesquisar para te ajudar.
    Então não obtive sucesso, retornando e explicado a você, antes de ira para o trampo.

    Sim, sem esse módulo não irá funcionar.
    Mas diga o que pretende com o snapshot , pois creio que podemos ver(viewer) dentro
    de um formulário de uma outra maneira.

    Abraços

    Noob


    .................................................................................
    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...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 16/11/2012

    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  ilvecchio 5/8/2014, 18:03

    O código faz parde de outros, e objetiva salvar relatórios em PDF.
    O Access 2003 exporta relatórios no formato .snp.
    O que o Lebans fez:[

    1) o relatório é salvo em uma pasta no formato .snp;
    2) em seguida, o código converte aquele .snp em .pdf;


    então:

    3) excluo o .snp.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho 5/8/2014, 20:09

    Luiz

    envie o link ou me diga o nome do exemplo que pegou no Lebans.



    Abraços

    Noob


    .................................................................................
    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...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 16/11/2012

    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  ilvecchio 5/8/2014, 20:26

    http://www.lebans.com/reporttopdf.htm, o nome do arquivo é A2000SnapshotToPDFver785.zip.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho 5/8/2014, 20:46

    Não encontrei o aplicativo no Lebans, talvez tenham tirado ou estou ficando vesgo  Razz 

    Veja esse exemplo talvez te ajude.





    .................................................................................
    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...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 16/11/2012

    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  ilvecchio 6/8/2014, 14:59

    Está lá. Talvez.
    Tem o exemplo em .mdb (Access 2003)?
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho 6/8/2014, 15:30

    Tai o exemplo para 2003.

    Como não tenho esse Access, não posso testa-lo por não ter a snapview.ocx.

    Espero que funfe. ^^

    Noob


    .................................................................................
    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...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 16/11/2012

    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  ilvecchio 11/8/2014, 13:05

    Buenas!
    Você tem razão, estava faltando um módulo:
    '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­ 
    ' VERSION 1.0 CLASS
    ' BEGIN
    '  MultiUse = -1 'True
    '  Persistable = 0 'NotPersistable
    '  DataBindingBehavior = 0 'vbNone
    '  DataSourceBehavior = 0 'vbNone
    '  MTSTransactionMode = 0 'NotAnMTSObject
    ' End
    Attribute VB_Name = "clsCommonDialog"
    ' Attribute VB_GlobalNameSpace = False
    ' Attribute VB_Creatable = True
    ' Attribute VB_PredeclaredId = False
    ' Attribute VB_Exposed = True
    '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­ 
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho 11/8/2014, 13:49

    Ótimo que descobriu  Wink 

    Se estiver resolvido, por favor, feche
    o tópico clicando no botão resolvido conforme
    orientação na minha assinatura.

    Valeu pelo retorno

    Boa sorte

    Noob


    .................................................................................
    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...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    Erro na compilação para clsCommonDialog  Empty Re: Erro na compilação para clsCommonDialog

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:17