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


    [Resolvido]Excluir macro Autoexec em outro BD com VBA

    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 16/11/2012

    [Resolvido]Excluir macro Autoexec em outro BD com VBA Empty [Resolvido]Excluir macro Autoexec em outro BD com VBA

    Mensagem  ilvecchio 26/2/2015, 12:47

    Buenas!

    Preciso excluir a macro Autoexec de um banco de dados Access2003 (BD1) por meio de código VBA num formulário em outro banco de dados (BD2).
    Alguém tem um código para isso, ou algo que eu possa tentar adaptar?
    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 16/11/2012

    [Resolvido]Excluir macro Autoexec em outro BD com VBA Empty Re: [Resolvido]Excluir macro Autoexec em outro BD com VBA

    Mensagem  ilvecchio 26/2/2015, 15:40

    Buenas!

    A Ajuda do Acces contém este código:

    Sub AllMacros()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in AllMacros collection.
    For Each obj In dbs.AllMacros
    If obj.IsLoaded = True Then
    ' Print name of obj.
    Debug.Print obj.Name
    End If
    Next obj
    End Sub



    Funciona para o mesmo banco (Application.CurrentProject).

    Como adaptá-lo para ler outro banco?

    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 16/11/2012

    [Resolvido]Excluir macro Autoexec em outro BD com VBA Empty Re: [Resolvido]Excluir macro Autoexec em outro BD com VBA

    Mensagem  ilvecchio 27/2/2015, 12:46

    Buenas!
    Resolvido com esta excelente solução, simples e eficaz, do site: http://stackoverflow.com/questions/2422173/how-to-skip-autoexec-macro-when-opening-msaccess-from-msaccess, sugerida pelo usuário ChuckB

    Basta enviar para o segundo banco uma macro com o mesmo nome "Autoexec", para substituir a que está lá. Essa é uma macro "vazia", para não executar nada se o banco for aberto.

    Dim VCaminho As String
    VCaminho = "C:\TesteAutoexec.mdb"

    DoCmd.SetWarnings False

    DoCmd.TransferDatabase acExport, "Microsoft Access", VCaminho, acMacro, "AutoexecVazia", "AutoExec", False

    DoCmd.SetWarnings true

    Conteúdo patrocinado


    [Resolvido]Excluir macro Autoexec em outro BD com VBA Empty Re: [Resolvido]Excluir macro Autoexec em outro BD com VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/4/2024, 13:26