MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 125
    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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2483
    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 .

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2483
    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 : 125
    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)

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2483
    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 : 125
    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?

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2483
    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 : 125
    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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2483
    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 : 125
    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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2483
    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 exemplo 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 : 125
    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)?

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2483
    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 5 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 : 125
    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
    '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­ 

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2483
    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: Sab 03 Dez 2016, 02:24