MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Microsoft Common Dialog Controls (Referencias)

    denisms7
    denisms7
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 16/01/2018

    Microsoft Common Dialog Controls (Referencias) Empty Microsoft Common Dialog Controls (Referencias)

    Mensagem  denisms7 em 26/4/2020, 20:25

    Ola pessoal.  Smile

    Estou tentando carregar o Microsoft Common Dialog Controls
    eu uso o access 2016 em uma máquina Win10

    Eu baixei o comdlg32.ocx já que ele não estava no office por meio nativo

    Não deu certo, da erro 424 quando testo o codigo abaixo por exemplo:

    Código:

    Private Sub Command1_Click()
        With CommonDialog1
            CommonDialog1.ShowColor
            Me.Command1.BackColor = .Color
        End With
    End Sub

    Então tentei fazer o registro da ocx com o comando regsvr32 "C:\windows\syswow64\AQUIAOCX.ocx" e ocorreu um erro, que acabei corrigindo mudando a pasta da ocx, mas.... não resolveu, vou em referencias, adiciono a ocx e segue dando erro 424. mesmo ela estando marcada com refenciada na caixa de refencia.

    O que vem a ser?

    quero usar ele para as caixas de diálogo de fonte, cor etc..... como abaixo descrito
    https://www.recursosvisualbasic.com.ar/htm/tutoriales/commondialog-fuente.htm

    Grato desde ja, Denis  Very Happy
    avatar
    ruben92
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 25/10/2017

    Microsoft Common Dialog Controls (Referencias) Empty Re: Microsoft Common Dialog Controls (Referencias)

    Mensagem  ruben92 em 10/5/2020, 20:36

    Boa Tarde Denis, tudo bem?
    Não sei se isso te ajuda, mas aqui resolveu, após registrar a OCX.
    Criei uma variável do tipo object, e setei ela para o tipo commonDialog, conforme exemplo abaixo:

    Option Compare Database
    Option Explicit


    Private Sub Comando0_Click()

    Dim ComDg As Object
    Set ComDg = New CommonDialog

       With ComDg
                ComDg.ShowColor
               Comando0.BackColor = .Color
       End With
       
    End Sub
    denisms7
    denisms7
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 16/01/2018

    Microsoft Common Dialog Controls (Referencias) Empty Re: Microsoft Common Dialog Controls (Referencias)

    Mensagem  denisms7 em 10/5/2020, 22:12

    Ele da o erro em anexo, diz que não esta registrada a referência, mas já fiz isso em regsvr32 C:\windows\syswow64\comdlg32.ocx
    Anexos
    Microsoft Common Dialog Controls (Referencias) AttachmentScreenshot_1.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (6 Kb) Baixado 1 vez(es)
    avatar
    ruben92
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 25/10/2017

    Microsoft Common Dialog Controls (Referencias) Empty Re: Microsoft Common Dialog Controls (Referencias)

    Mensagem  ruben92 em 10/5/2020, 23:16

    Denis, faz o seguinte, mesmo que seu computador seja 64 bits.
    1° Copie a ocx para a pasta: C:\Windows\System32
    2° Abra o prompt de comando como Administrador
    3° Execute o comando regsvr32 comdlg32.ocx

    Ele deverá emitir a mensagem que foi registrada com exito.

    Feito isso, vá no access (Onde ficam os códigos) >> Ferramentas >> Referências >> Procurar >> Localize o caminho que você colou a ocx >> Abrir >> OK.

    Foram com esses passos que consegui resolver.

    Meu computador é 64 bits e também estou usando o office 2016.

      Data/hora atual: 5/8/2020, 19:55