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

    Controle de Versões

    avatar
    delatorrea
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 06/08/2013

    Controle de Versões Empty Controle de Versões

    Mensagem  delatorrea 11/4/2018, 14:48

    Fala galera!

    Estou iniciando um projeto grande e o Access não da ferramentas para Controle de Versões. Vi alguns videos no youtube e achei algumas ideias.
    No entanto nada específico para access. Alguém usa algum tipo de Controle de Versões tipo GIT.
    Alguma dica ou ideia de como fazer?

    Achei um código para excel mas não conheço bem a referencia usada e ta dando erro.
    Segue o link do video e repositório git para estudo:

    https://www.youtube.com/watch?v=09fTq17kLfY
    PlinioMabesi
    PlinioMabesi
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 30/05/2010

    Controle de Versões Empty Re: Controle de Versões

    Mensagem  PlinioMabesi 11/4/2018, 19:10

    Seguindo a ideia do vídeo, vc pode simplesmente exportar seus módulos usando o VBComponents. Nem precisa se preocupar com referências a bibliotecas extras.
    Veja um exemplo de código que faz isto:

    Sub ExportarModulos()

       Dim objProj As VBProject
       Dim objComp As VBComponent
       
       Set objProj = Application.VBE.ActiveVBProject
       
       For Each objComp In objProj.VBComponents
           If objComp.Type = vbext_ct_StdModule Then
               objComp.Export "C:\temp\" & objComp.Name & ".bas"
           End If
       Next
           
    End Sub


    Note que este exemplo exporta arquivos .bas para módulos padrão (vbext_ct_StdModule).
    Então vc deve adaptar o código para os demais tipos de módulos.

    Veja aqui a referência para cada tipo de módulo:

    https://msdn.microsoft.com/pt-br/vba/language-reference-vba/articles/type-property-vba-add-in-object-model

    Veja também aqui exemplos para importação e remoção de módulos, no artigo sobre o Genesis (no final do artigo):

    http://mabesi.com/artigos/aplicativos-office/access/26-classes-genesis-ferramenta-case.html

      Data/hora atual: 23/11/2024, 11:50