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

    Microsoft Common Dialog Controls (Referencias)

    denisms7
    denisms7
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  denisms7 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 : 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 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 : Respeito às Regras 100%

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

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

    Mensagem  denisms7 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 2 vez(es)
    avatar
    ruben92
    Novato
    Novato


    Respeito às regras : 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 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.

    denisms7 gosta desta mensagem

    denisms7
    denisms7
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  denisms7 20/11/2020, 13:21

    segue dando erro de registro
    Anexos
    Microsoft Common Dialog Controls (Referencias) Attachmenterro common.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (8 Kb) Baixado 3 vez(es)
    denisms7
    denisms7
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  denisms7 20/11/2020, 13:32

    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)

      Data/hora atual: 6/12/2021, 17:17