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 : 19
    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 : 19
    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 2 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.

    denisms7 gosta desta mensagem

    denisms7
    denisms7
    Novato
    Novato

    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 em 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 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 em 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: 4/12/2020, 07:37