MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Erro na compilação para clsCommonDialog

    Compartilhe

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Erro na compilação para clsCommonDialog

    Mensagem  ilvecchio em Seg 04 Ago 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
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho em Seg 04 Ago 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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho em Seg 04 Ago 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.





    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Erro na compilação para clsCommonDialog

    Mensagem  ilvecchio em Seg 04 Ago 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)
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho em Seg 04 Ago 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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Erro na compilação para clsCommonDialog

    Mensagem  ilvecchio em Seg 04 Ago 2014, 18:25

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

    Respeito às Regras 100%

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

    Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho em Seg 04 Ago 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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Erro na compilação para clsCommonDialog

    Mensagem  ilvecchio em Ter 05 Ago 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.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho em Ter 05 Ago 2014, 20:09

    Luiz

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



    Abraços

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Erro na compilação para clsCommonDialog

    Mensagem  ilvecchio em Ter 05 Ago 2014, 20:26

    [Você precisa estar registrado e conectado para ver este link.] o nome do arquivo é A2000SnapshotToPDFver785.zip.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho em Ter 05 Ago 2014, 20:46

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

    Veja esse [Você precisa estar registrado e conectado para ver este link.] talvez te ajude.





    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Erro na compilação para clsCommonDialog

    Mensagem  ilvecchio em Qua 06 Ago 2014, 14:59

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

    Respeito às Regras 100%

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

    Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho em Qua 06 Ago 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
    Anexos
    SnapView.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 6 vez(es)


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Erro na compilação para clsCommonDialog

    Mensagem  ilvecchio em Seg 11 Ago 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
    '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­ 
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Erro na compilação para clsCommonDialog

    Mensagem  Noobezinho em Seg 11 Ago 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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Dom 22 Out 2017, 11:11