Microsoft Common Dialog Controls (Referencias)

Ola pessoal.  

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  

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

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

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.

segue dando erro de registro

pode mandar um modelinho com ele funcionando? e a ocx que esta usando? talvez seja a ocx bugada

uso o Windows 10 64bts
office 365 64btx

ele deixa eu registrar na pasta system 32 mas não deixa na syswow 64 , quando faço as linhas de condigo no vba ele ate corrige o inicio do comando para letra maiuscula, porem disse que o objeto nao ta registrado (so registro na system 32)