Como você usa o version control com o desenvolvimento do Access?

Estou envolvido com a atualização de uma solução do Access. Ele tem uma boa quantidade de VBA, várias consultas, uma pequena quantidade de tabelas e alguns formulários para input de dados e geração de relatórios. É um candidato ideal para o Access.

Eu quero fazer alterações no design da tabela, o VBA, as consultas e os formulários. Como posso acompanhar minhas alterações com o version control? (nós usamos o Subversion, mas isso vale para qualquer sabor) Eu posso colocar todo o mdb na subversão, mas isso irá armazenar um arquivo binário, e eu não serei capaz de dizer que eu acabei de mudar uma linha de código do VBA.

Pensei em copiar o código do VBA para separar arquivos e salvá-los, mas pude ver esses rapidamente saindo de sincronia com o que está no database.

    Escrevemos nosso próprio script em VBScript, que usa o Application.SaveAsText () não documentado no Access para exportar todos os módulos de código, formulário, macro e relatório. Aqui está, deve dar algumas dicas. (Cuidado: algumas das mensagens estão em alemão, mas você pode facilmente mudar isso.)

    EDIT: Para resumir vários comentários abaixo: Nosso projeto assume um arquivo .adp. Para obter este trabalho com .mdb / .accdb, você precisará alterar OpenAccessProject () para OpenCurrentDatabase () . (Atualizado para usar OpenAccessProject() se ele vir uma extensão .adp, use OpenCurrentDatabase() .)

    decompose.vbs:

     ' Usage: ' CScript decompose.vbs   ' Converts all modules, classs, forms and macros from an Access Project file (.adp)  to ' text and saves the results in separate files to . Requires Microsoft Access. ' Option Explicit const acForm = 2 const acModule = 5 const acMacro = 4 const acReport = 3 ' BEGIN CODE Dim fso Set fso = CreateObject("Scripting.FileSystemObject") dim sADPFilename If (WScript.Arguments.Count = 0) then MsgBox "Bitte den Dateinamen angeben!", vbExclamation, "Error" Wscript.Quit() End if sADPFilename = fso.GetAbsolutePathName(WScript.Arguments(0)) Dim sExportpath If (WScript.Arguments.Count = 1) then sExportpath = "" else sExportpath = WScript.Arguments(1) End If exportModulesTxt sADPFilename, sExportpath If (Err <> 0) and (Err.Description <> NULL) Then MsgBox Err.Description, vbExclamation, "Error" Err.Clear End If Function exportModulesTxt(sADPFilename, sExportpath) Dim myComponent Dim sModuleType Dim sTempname Dim sOutstring dim myType, myName, myPath, sStubADPFilename myType = fso.GetExtensionName(sADPFilename) myName = fso.GetBaseName(sADPFilename) myPath = fso.GetParentFolderName(sADPFilename) If (sExportpath = "") then sExportpath = myPath & "\Source\" End If sStubADPFilename = sExportpath & myName & "_stub." & myType WScript.Echo "copy stub to " & sStubADPFilename & "..." On Error Resume Next fso.CreateFolder(sExportpath) On Error Goto 0 fso.CopyFile sADPFilename, sStubADPFilename WScript.Echo "starting Access..." Dim oApplication Set oApplication = CreateObject("Access.Application") WScript.Echo "opening " & sStubADPFilename & " ..." If (Right(sStubADPFilename,4) = ".adp") Then oApplication.OpenAccessProject sStubADPFilename Else oApplication.OpenCurrentDatabase sStubADPFilename End If oApplication.Visible = false dim dctDelete Set dctDelete = CreateObject("Scripting.Dictionary") WScript.Echo "exporting..." Dim myObj For Each myObj In oApplication.CurrentProject.AllForms WScript.Echo " " & myObj.fullname oApplication.SaveAsText acForm, myObj.fullname, sExportpath & "\" & myObj.fullname & ".form" oApplication.DoCmd.Close acForm, myObj.fullname dctDelete.Add "FO" & myObj.fullname, acForm Next For Each myObj In oApplication.CurrentProject.AllModules WScript.Echo " " & myObj.fullname oApplication.SaveAsText acModule, myObj.fullname, sExportpath & "\" & myObj.fullname & ".bas" dctDelete.Add "MO" & myObj.fullname, acModule Next For Each myObj In oApplication.CurrentProject.AllMacros WScript.Echo " " & myObj.fullname oApplication.SaveAsText acMacro, myObj.fullname, sExportpath & "\" & myObj.fullname & ".mac" dctDelete.Add "MA" & myObj.fullname, acMacro Next For Each myObj In oApplication.CurrentProject.AllReports WScript.Echo " " & myObj.fullname oApplication.SaveAsText acReport, myObj.fullname, sExportpath & "\" & myObj.fullname & ".report" dctDelete.Add "RE" & myObj.fullname, acReport Next WScript.Echo "deleting..." dim sObjectname For Each sObjectname In dctDelete WScript.Echo " " & Mid(sObjectname, 3) oApplication.DoCmd.DeleteObject dctDelete(sObjectname), Mid(sObjectname, 3) Next oApplication.CloseCurrentDatabase oApplication.CompactRepair sStubADPFilename, sStubADPFilename & "_" oApplication.Quit fso.CopyFile sStubADPFilename & "_", sStubADPFilename fso.DeleteFile sStubADPFilename & "_" End Function Public Function getErr() Dim strError strError = vbCrLf & "----------------------------------------------------------------------------------------------------------------------------------------" & vbCrLf & _ "From " & Err.source & ":" & vbCrLf & _ " Description: " & Err.Description & vbCrLf & _ " Code: " & Err.Number & vbCrLf getErr = strError End Function 

    Se você precisar de um comando clicável, em vez de usar a linha de comando, crie um arquivo chamado “decompose.cmd” com

     cscript decompose.vbs youraccessapplication.adp 

    Por padrão, todos os arquivos exportados entram em uma subpasta “Scripts” do seu aplicativo do Access. O arquivo .adp / mdb também é copiado para este local (com um sufixo “stub”) e despojado de todos os módulos exportados, tornando-o realmente pequeno.

    Você deve verificar este stub com os arquivos de origem, porque a maioria das configurações de access e barras de menu personalizadas não podem ser exportadas de outra maneira. Só não se esqueça de confirmar alterações a este arquivo apenas, se você realmente mudou alguma configuração ou menu.

    Nota: Se você tiver algum Autoexec-Makros definido em seu Aplicativo, poderá ser necessário manter a tecla Shift pressionada quando invocar a decomposição para evitar que ela seja executada e interfira na exportação!

    Naturalmente, há também o script reverso, para construir o aplicativo a partir do diretório “Origem”:

    compose.vbs:

     ' Usage: ' WScript compose.vbs   ' Converts all modules, classs, forms and macros in a directory created by "decompose.vbs" ' and composes then into an Access Project file (.adp). This overwrites any existing Modules with the ' same names without warning!!! ' Requires Microsoft Access. Option Explicit const acForm = 2 const acModule = 5 const acMacro = 4 const acReport = 3 Const acCmdCompileAndSaveAllModules = &H7E ' BEGIN CODE Dim fso Set fso = CreateObject("Scripting.FileSystemObject") dim sADPFilename If (WScript.Arguments.Count = 0) then MsgBox "Please enter the file name!", vbExclamation, "Error" Wscript.Quit() End if sADPFilename = fso.GetAbsolutePathName(WScript.Arguments(0)) Dim sPath If (WScript.Arguments.Count = 1) then sPath = "" else sPath = WScript.Arguments(1) End If importModulesTxt sADPFilename, sPath If (Err <> 0) and (Err.Description <> NULL) Then MsgBox Err.Description, vbExclamation, "Error" Err.Clear End If Function importModulesTxt(sADPFilename, sImportpath) Dim myComponent Dim sModuleType Dim sTempname Dim sOutstring ' Build file and pathnames dim myType, myName, myPath, sStubADPFilename myType = fso.GetExtensionName(sADPFilename) myName = fso.GetBaseName(sADPFilename) myPath = fso.GetParentFolderName(sADPFilename) ' if no path was given as argument, use a relative directory If (sImportpath = "") then sImportpath = myPath & "\Source\" End If sStubADPFilename = sImportpath & myName & "_stub." & myType ' check for existing file and ask to overwrite with the stub if (fso.FileExists(sADPFilename)) Then WScript.StdOut.Write sADPFilename & " exists. Overwrite? (y/n) " dim sInput sInput = WScript.StdIn.Read(1) if (sInput <> "y") Then WScript.Quit end if fso.CopyFile sADPFilename, sADPFilename & ".bak" end if fso.CopyFile sStubADPFilename, sADPFilename ' launch MSAccess WScript.Echo "starting Access..." Dim oApplication Set oApplication = CreateObject("Access.Application") WScript.Echo "opening " & sADPFilename & " ..." If (Right(sStubADPFilename,4) = ".adp") Then oApplication.OpenAccessProject sADPFilename Else oApplication.OpenCurrentDatabase sADPFilename End If oApplication.Visible = false Dim folder Set folder = fso.GetFolder(sImportpath) ' load each file from the import path into the stub Dim myFile, objectname, objecttype for each myFile in folder.Files objecttype = fso.GetExtensionName(myFile.Name) objectname = fso.GetBaseName(myFile.Name) WScript.Echo " " & objectname & " (" & objecttype & ")" if (objecttype = "form") then oApplication.LoadFromText acForm, objectname, myFile.Path elseif (objecttype = "bas") then oApplication.LoadFromText acModule, objectname, myFile.Path elseif (objecttype = "mac") then oApplication.LoadFromText acMacro, objectname, myFile.Path elseif (objecttype = "report") then oApplication.LoadFromText acReport, objectname, myFile.Path end if next oApplication.RunCommand acCmdCompileAndSaveAllModules oApplication.Quit End Function Public Function getErr() Dim strError strError = vbCrLf & "----------------------------------------------------------------------------------------------------------------------------------------" & vbCrLf & _ "From " & Err.source & ":" & vbCrLf & _ " Description: " & Err.Description & vbCrLf & _ " Code: " & Err.Number & vbCrLf getErr = strError End Function 

    Novamente, isso combina com um complemento “compose.cmd” contendo:

     cscript compose.vbs youraccessapplication.adp 

    Ele pede para você confirmar sobrescrevendo seu aplicativo atual e primeiro cria um backup, se você fizer isso. Em seguida, ele coleta todos os arquivos de origem no Diretório de Origem e os reinsira no stub.

    Diverta-se!

    Parece ser algo bastante disponível no Access:

    Este link do msdn explica como instalar um suplemento de controle de origem para o Microsoft Access. Este é fornecido como um download gratuito como parte do Access Developer Extensions para Access 2007 e como um suplemento gratuito separado para o Access 2003.

    Fico feliz que você tenha feito essa pergunta e aproveitei para procurar, já que também gostaria dessa habilidade. O link acima tem mais informações sobre isso e links para os suplementos.

    Atualizar:
    Instalei o add-in para o Access 2003. Ele só funcionará com o VSS, mas permite que eu coloque objects do Access (formulários, consultas, tabelas, módulos, etc.) no repository. Quando você vai editar qualquer item no repository, você é solicitado a fazer check-out, mas não é necessário. Em seguida, vou verificar como ele é aberto e alterado em um sistema sem o add-in. Eu não sou fã de VSS, mas eu realmente gosto do pensamento de armazenar objects de access em um repository.

    Update2:
    Máquinas sem o suplemento não podem fazer alterações na estrutura do database (adicionar campos de tabela, parâmetros de consulta, etc.). No começo eu pensei que isso poderia ser um problema se alguém precisasse, pois não havia nenhuma maneira aparente de remover o database do Access do controle de origem se o Access não tivesse o suplemento carregado.

    Id descobriu que executar o database “compactar e reparar” avisa se você deseja remover o database do controle de origem. Eu optei sim e foi capaz de editar o database sem o add-in. O artigo no link acima também fornece instruções sobre como configurar o Access 2003 e 2007 para usar o Team System. Se você puder encontrar um provedor MSSCCI para o SVN, há uma boa chance de fazer isso funcionar.

    Olivers responde às rochas, mas a referência CurrentProject não estava funcionando para mim. Acabei arrancando as entranhas do meio de sua exportação e substituindo-a por isso, com base em uma solução semelhante de Arvin Meyer . Tem a vantagem de exportar consultas se você estiver usando um mdb em vez de um adp.

     ' Writes database componenets to a series of text files ' @author Arvin Meyer ' @date June 02, 1999 Function DocDatabase(oApp) Dim dbs Dim cnt Dim doc Dim i Dim prefix Dim dctDelete Dim docName Const acQuery = 1 Set dctDelete = CreateObject("Scripting.Dictionary") Set dbs = oApp.CurrentDb() ' use CurrentDb() to refresh Collections Set cnt = dbs.Containers("Forms") prefix = oApp.CurrentProject.Path & "\" For Each doc In cnt.Documents oApp.SaveAsText acForm, doc.Name, prefix & doc.Name & ".frm" dctDelete.Add "frm_" & doc.Name, acForm Next Set cnt = dbs.Containers("Reports") For Each doc In cnt.Documents oApp.SaveAsText acReport, doc.Name, prefix & doc.Name & ".rpt" dctDelete.Add "rpt_" & doc.Name, acReport Next Set cnt = dbs.Containers("Scripts") For Each doc In cnt.Documents oApp.SaveAsText acMacro, doc.Name, prefix & doc.Name & ".vbs" dctDelete.Add "vbs_" & doc.Name, acMacro Next Set cnt = dbs.Containers("Modules") For Each doc In cnt.Documents oApp.SaveAsText acModule, doc.Name, prefix & doc.Name & ".bas" dctDelete.Add "bas_" & doc.Name, acModule Next For i = 0 To dbs.QueryDefs.Count - 1 oApp.SaveAsText acQuery, dbs.QueryDefs(i).Name, prefix & dbs.QueryDefs(i).Name & ".txt" dctDelete.Add "qry_" & dbs.QueryDefs(i).Name, acQuery Next WScript.Echo "deleting " & dctDelete.Count & " objects." For Each docName In dctDelete WScript.Echo " " & Mid(docName, 5) oApp.DoCmd.DeleteObject dctDelete(docName), Mid(docName, 5) Next Set doc = Nothing Set cnt = Nothing Set dbs = Nothing Set dctDelete = Nothing End Function 

    A solução de composição / decomposição postada por Oliver é ótima, mas tem alguns problemas:

    • Os arquivos são codificados como UCS-2 (UTF-16), o que pode fazer com que os sistemas / ferramentas de version control considerem os arquivos binários.
    • Os arquivos contêm muito lixo que muda frequentemente – checksums, informações da impressora e muito mais. Este é um problema sério se você quiser limpar diffs ou precisar cooperar no projeto.

    Eu estava planejando consertar isso sozinho, mas descobri que já existe uma boa solução disponível: timabell / msaccess-vcs-integration no GitHub. Eu testei o msaccess-vcs-integration e ele funciona muito bem.

    Atualizado em 3 de março de 2015 : O projeto foi originalmente mantido / de propriedade de bkidwell no Github, mas foi transferido para o timabell – o link acima para o projeto é atualizado de acordo. Existem alguns garfos do projeto original do bkidwell, por exemplo, do ArminBra e do matonb , que o AFAICT não deve ser usado.

    A desvantagem de usar a integração msaccess-vcs em comparação com a solução de decomposição da Olivers:

    • É significativamente mais lento. Tenho certeza de que o problema de velocidade pode ser corrigido, mas não preciso exportar meu projeto para texto com frequência …
    • Ele não cria um projeto de stub Access com o material exportado removido. Isso também pode ser corrigido (adotando o código do script de decomposição), mas novamente – não é tão importante.

    De qualquer forma, minha recomendação clara é msaccess-vcs-integration. Ele resolveu todos os problemas que tive com o uso do Git nos arquivos exportados.

    Desenvolvemos nossa própria ferramenta interna, onde:

    1. Módulos: são exportados como arquivos txt e, em seguida, comparados com “ferramenta de comparação de arquivos” (freeware)
    2. Formulários: são exportados através do comando application.saveAsText do undocument. É então possível ver as diferenças entre duas versões diferentes (“ferramenta de comparação de arquivos” mais uma vez).
    3. Macros: não temos nenhuma macro para comparar, pois só temos a macro “autoexec” com uma linha iniciando o procedimento principal do VBA
    4. Consultas: são apenas cadeias de texto armazenadas em uma tabela: consulte infra
    5. tabelas: nós escrevemos nosso próprio comparador de tabela, listando diferenças em registros e estrutura de tabela.

    Todo o sistema é inteligente o suficiente para nos permitir produzir versões de “tempo de execução” do nosso aplicativo Access, gerado automaticamente a partir de arquivos txt (módulos e formulários sendo recriados com o comando undocument application.loadFromText) e mdb (tabelas).

    Pode parecer estranho, mas funciona.

    Com base nas idéias deste post e inputs semelhantes em alguns blogs eu escrevi um aplicativo que funciona com formatos de arquivo mdb e adp. Ele importa / exporta todos os objects do database (incluindo tabelas, referências, relações e propriedades do database) para arquivos de texto simples. Com esses arquivos, você pode trabalhar com qualquer version control de origem. A próxima versão permitirá importar de volta os arquivos de texto simples para o database. Haverá também uma ferramenta de linha de comando

    Você pode baixar o aplicativo ou o código-fonte em: http://accesssvn.codeplex.com/

    Saudações

    Ressuscitando um thread antigo, mas isso é bom. Eu implementei os dois scripts (compose.vbs / decompose.vbs) para meu próprio projeto e tive um problema com arquivos .mdb antigos:

    Ele pára quando chega a um formulário que inclui o código:

     NoSaveCTIWhenDisabled =1 

    O Access diz que tem um problema e esse é o fim da história. Fiz alguns testes e brinquei tentando contornar esse problema e encontrei esse segmento com uma solução no final:

    Não é possível criar database

    Basicamente (no caso de o thread ficar inativo), você pega o .mdb e faz um “Save as” para o novo formato .accdb. Em seguida, a fonte segura ou compor / decompor coisas vai funcionar. Eu também tive que brincar por 10 minutos para obter a syntax certa da linha de comando para os scripts de (de) composição funcionarem corretamente, então aqui está essa informação também:

    Para compor (digamos que seu material está localizado em C: \ SControl (crie uma subpasta chamada Source para armazenar os arquivos extraídos):

     '(to extract for importing to source control) cscript compose.vbs database.accdb '(to rebuild from extracted files saved from an earlier date) cscript decompose.vbs database.accdb C:\SControl\Source\ 

    É isso aí!

    As versões do Access onde experimentei o problema acima incluem os bancos de dados Access “.mdb” do Access 2000-2003 e resolvi o problema salvando-os nos formatos “.accdb” de 2007-2010 antes de executar os scripts de composição / decomposição. Após a conversão, os scripts funcionam bem!

    Há uma pegadinha – o VSS 6.0 só pode aceitar MDBs usando o suplemento em um determinado número de objects, o que inclui todas as tabelas locais, consultas, módulos e formulários. Não sabe o limite exato do object.

    Para construir nosso aplicativo de 10 anos, que é enorme, somos obrigados a combinar 3 ou 4 MDBs separados de SS em um MDB, o que complica as construções automatizadas ao ponto de não perdermos tempo fazendo isso.

    Acho que vou tentar o script acima para espalhar esse MDb no SVN e simplificar as compilações para todos.

    esse roteiro não funcionou para nós.

    isso fez: http://www.accessmvp.com/Arvin/DocDatabase.txt

    Para aqueles que usam o Access 2010, SaveAsText não é um método visível no Intellisense, mas parece ser um método válido, como o script de Arvin Meyer mencionado anteriormente funcionou bem para mim.

    Curiosamente, o SaveAsAXL é novo em 2010 e tem a mesma assinatura do SaveAsText, embora pareça que funcionará somente com bancos de dados da Web, que exigem o SharePoint Server 2010.

    Nós tivemos o mesmo problema há um tempo atrás.

    Nossa primeira tentativa foi uma ferramenta de terceiros que oferece um proxy da API do SourceSafe para o Subversion para ser usado com o MS Access e o VB 6. A ferramenta pode ser encontrada aqui .

    Como não estávamos tão satisfeitos com essa ferramenta, mudamos para o Visual SourceSafe e para o Plug-in do VSS Acces.

    Solução somente de arquivo de texto (consultas, tabelas e relacionamentos incluídos)

    Eu alterei o par de scripts do Oliver para que eles exportem / importem relacionamentos, tabelas e consultas , além de módulos, classs, formulários e macros. Tudo é salvo em arquivos de texto sem formatação, portanto, não há nenhum arquivo de database criado para ser armazenado com os arquivos de texto no version control.

    Exportar para arquivos de texto (decompose.vbs)

     ' Usage: ' cscript decompose.vbs   ' Converts all modules, classs, forms and macros from an Access Project file (.adp)  to ' text and saves the results in separate files to . Requires Microsoft Access. Option Explicit Const acForm = 2 Const acModule = 5 Const acMacro = 4 Const acReport = 3 Const acQuery = 1 Const acExportTable = 0 ' BEGIN CODE Dim fso, relDoc, ACCDBFilename, sExportpath Set fso = CreateObject("Scripting.FileSystemObject") Set relDoc = CreateObject("Microsoft.XMLDOM") If (Wscript.Arguments.Count = 0) Then MsgBox "Please provide the .accdb database file", vbExclamation, "Error" Wscript.Quit() End If ACCDBFilename = fso.GetAbsolutePathName(Wscript.Arguments(0)) If (Wscript.Arguments.Count = 1) Then sExportpath = "" Else sExportpath = Wscript.Arguments(1) End If exportModulesTxt ACCDBFilename, sExportpath If (Err <> 0) And (Err.Description <> Null) Then MsgBox Err.Description, vbExclamation, "Error" Err.Clear End If Function exportModulesTxt(ACCDBFilename, sExportpath) Dim myComponent, sModuleType, sTempname, sOutstring Dim myType, myName, myPath, hasRelations myType = fso.GetExtensionName(ACCDBFilename) myName = fso.GetBaseName(ACCDBFilename) myPath = fso.GetParentFolderName(ACCDBFilename) 'if no path was given as argument, use a relative directory If (sExportpath = "") Then sExportpath = myPath & "\Source" End If 'On Error Resume Next fso.DeleteFolder (sExportpath) fso.CreateFolder (sExportpath) On Error GoTo 0 Wscript.Echo "starting Access..." Dim oApplication Set oApplication = CreateObject("Access.Application") Wscript.Echo "Opening " & ACCDBFilename & " ..." If (Right(ACCDBFilename, 4) = ".adp") Then oApplication.OpenAccessProject ACCDBFilename Else oApplication.OpenCurrentDatabase ACCDBFilename End If oApplication.Visible = False Wscript.Echo "exporting..." Dim myObj For Each myObj In oApplication.CurrentProject.AllForms Wscript.Echo "Exporting FORM " & myObj.FullName oApplication.SaveAsText acForm, myObj.FullName, sExportpath & "\" & myObj.FullName & ".form.txt" oApplication.DoCmd.Close acForm, myObj.FullName Next For Each myObj In oApplication.CurrentProject.AllModules Wscript.Echo "Exporting MODULE " & myObj.FullName oApplication.SaveAsText acModule, myObj.FullName, sExportpath & "\" & myObj.FullName & ".module.txt" Next For Each myObj In oApplication.CurrentProject.AllMacros Wscript.Echo "Exporting MACRO " & myObj.FullName oApplication.SaveAsText acMacro, myObj.FullName, sExportpath & "\" & myObj.FullName & ".macro.txt" Next For Each myObj In oApplication.CurrentProject.AllReports Wscript.Echo "Exporting REPORT " & myObj.FullName oApplication.SaveAsText acReport, myObj.FullName, sExportpath & "\" & myObj.FullName & ".report.txt" Next For Each myObj In oApplication.CurrentDb.QueryDefs Wscript.Echo "Exporting QUERY " & myObj.Name oApplication.SaveAsText acQuery, myObj.Name, sExportpath & "\" & myObj.Name & ".query.txt" Next For Each myObj In oApplication.CurrentDb.TableDefs If Not Left(myObj.Name, 4) = "MSys" Then Wscript.Echo "Exporting TABLE " & myObj.Name oApplication.ExportXml acExportTable, myObj.Name, , sExportpath & "\" & myObj.Name & ".table.txt" 'put the file path as a second parameter if you want to export the table data as well, instead of ommiting it and passing it into a third parameter for structure only End If Next hasRelations = False relDoc.appendChild relDoc.createElement("Relations") For Each myObj In oApplication.CurrentDb.Relations 'loop though all the relations If Not Left(myObj.Name, 4) = "MSys" Then Dim relName, relAttrib, relTable, relFoTable, fld hasRelations = True relDoc.ChildNodes(0).appendChild relDoc.createElement("Relation") Set relName = relDoc.createElement("Name") relName.Text = myObj.Name relDoc.ChildNodes(0).LastChild.appendChild relName Set relAttrib = relDoc.createElement("Attributes") relAttrib.Text = myObj.Attributes relDoc.ChildNodes(0).LastChild.appendChild relAttrib Set relTable = relDoc.createElement("Table") relTable.Text = myObj.Table relDoc.ChildNodes(0).LastChild.appendChild relTable Set relFoTable = relDoc.createElement("ForeignTable") relFoTable.Text = myObj.ForeignTable relDoc.ChildNodes(0).LastChild.appendChild relFoTable Wscript.Echo "Exporting relation " & myObj.Name & " between tables " & myObj.Table & " -> " & myObj.ForeignTable For Each fld In myObj.Fields 'in case the relationship works with more fields Dim lf, ff relDoc.ChildNodes(0).LastChild.appendChild relDoc.createElement("Field") Set lf = relDoc.createElement("Name") lf.Text = fld.Name relDoc.ChildNodes(0).LastChild.LastChild.appendChild lf Set ff = relDoc.createElement("ForeignName") ff.Text = fld.ForeignName relDoc.ChildNodes(0).LastChild.LastChild.appendChild ff Wscript.Echo " Involving fields " & fld.Name & " -> " & fld.ForeignName Next End If Next If hasRelations Then relDoc.InsertBefore relDoc.createProcessingInstruction("xml", "version='1.0'"), relDoc.ChildNodes(0) relDoc.Save sExportpath & "\relations.rel.txt" Wscript.Echo "Relations successfuly saved in file relations.rel.txt" End If oApplication.CloseCurrentDatabase oApplication.Quit End Function 

    Você pode executar esse script chamando cscript decompose.vbs . Caso você omita o segundo parâmetro, ele criará a pasta ‘Source’ onde o database está localizado. Por favor, note que a pasta de destino será apagada se já existir.

    Incluir dados nas tabelas exportadas

    Substitua a linha 93: oApplication.ExportXML acExportTable, myObj.Name, , sExportpath & "\" & myObj.Name & ".table.txt"

    com a linha oApplication.ExportXML acExportTable, myObj.Name, sExportpath & "\" & myObj.Name & ".table.txt"

    Importar para o arquivo de database Create (compose.vbs)

     ' Usage: ' cscript compose.vbs   ' Reads all modules, classs, forms, macros, queries, tables and their relationships in a directory created by "decompose.vbs" ' and composes then into an Access Database file (.accdb). ' Requires Microsoft Access. Option Explicit Const acForm = 2 Const acModule = 5 Const acMacro = 4 Const acReport = 3 Const acQuery = 1 Const acStructureOnly = 0 'change 0 to 1 if you want import StructureAndData instead of StructureOnly Const acCmdCompileAndSaveAllModules = &H7E Dim fso, relDoc, ACCDBFilename, sPath Set fso = CreateObject("Scripting.FileSystemObject") Set relDoc = CreateObject("Microsoft.XMLDOM") If (Wscript.Arguments.Count = 0) Then MsgBox "Please provide the .accdb database file", vbExclamation, "Error" Wscript.Quit() End If ACCDBFilename = fso.GetAbsolutePathName(Wscript.Arguments(0)) If (Wscript.Arguments.Count = 1) Then sPath = "" Else sPath = Wscript.Arguments(1) End If importModulesTxt ACCDBFilename, sPath If (Err <> 0) And (Err.Description <> Null) Then MsgBox Err.Description, vbExclamation, "Error" Err.Clear End If Function importModulesTxt(ACCDBFilename, sImportpath) Dim myComponent, sModuleType, sTempname, sOutstring ' Build file and pathnames Dim myType, myName, myPath myType = fso.GetExtensionName(ACCDBFilename) myName = fso.GetBaseName(ACCDBFilename) myPath = fso.GetParentFolderName(ACCDBFilename) ' if no path was given as argument, use a relative directory If (sImportpath = "") Then sImportpath = myPath & "\Source\" End If ' check for existing file and ask to overwrite with the stub If fso.FileExists(ACCDBFilename) Then Wscript.StdOut.Write ACCDBFilename & " already exists. Overwrite? (y/n) " Dim sInput sInput = Wscript.StdIn.Read(1) If (sInput <> "y") Then Wscript.Quit Else If fso.FileExists(ACCDBFilename & ".bak") Then fso.DeleteFile (ACCDBFilename & ".bak") End If fso.MoveFile ACCDBFilename, ACCDBFilename & ".bak" End If End If Wscript.Echo "starting Access..." Dim oApplication Set oApplication = CreateObject("Access.Application") Wscript.Echo "Opening " & ACCDBFilename If (Right(ACCDBFilename, 4) = ".adp") Then oApplication.CreateAccessProject ACCDBFilename Else oApplication.NewCurrentDatabase ACCDBFilename End If oApplication.Visible = False Dim folder Set folder = fso.GetFolder(sImportpath) 'load each file from the import path into the stub Dim myFile, objectname, objecttype For Each myFile In folder.Files objectname = fso.GetBaseName(myFile.Name) 'get rid of .txt extension objecttype = fso.GetExtensionName(objectname) objectname = fso.GetBaseName(objectname) Select Case objecttype Case "form" Wscript.Echo "Importing FORM from file " & myFile.Name oApplication.LoadFromText acForm, objectname, myFile.Path Case "module" Wscript.Echo "Importing MODULE from file " & myFile.Name oApplication.LoadFromText acModule, objectname, myFile.Path Case "macro" Wscript.Echo "Importing MACRO from file " & myFile.Name oApplication.LoadFromText acMacro, objectname, myFile.Path Case "report" Wscript.Echo "Importing REPORT from file " & myFile.Name oApplication.LoadFromText acReport, objectname, myFile.Path Case "query" Wscript.Echo "Importing QUERY from file " & myFile.Name oApplication.LoadFromText acQuery, objectname, myFile.Path Case "table" Wscript.Echo "Importing TABLE from file " & myFile.Name oApplication.ImportXml myFile.Path, acStructureOnly Case "rel" Wscript.Echo "Found RELATIONSHIPS file " & myFile.Name & " ... opening, it will be processed after everything else has been imported" relDoc.Load (myFile.Path) End Select Next If relDoc.readyState Then Wscript.Echo "Preparing to build table dependencies..." Dim xmlRel, xmlField, accessRel, relTable, relName, relFTable, relAttr, i For Each xmlRel In relDoc.SelectNodes("/Relations/Relation") 'loop through every Relation node inside .xml file relName = xmlRel.SelectSingleNode("Name").Text relTable = xmlRel.SelectSingleNode("Table").Text relFTable = xmlRel.SelectSingleNode("ForeignTable").Text relAttr = xmlRel.SelectSingleNode("Attributes").Text 'remove any possible conflicting relations or indexes On Error Resume Next oApplication.CurrentDb.Relations.Delete (relName) oApplication.CurrentDb.TableDefs(relTable).Indexes.Delete (relName) oApplication.CurrentDb.TableDefs(relFTable).Indexes.Delete (relName) On Error GoTo 0 Wscript.Echo "Creating relation " & relName & " between tables " & relTable & " -> " & relFTable Set accessRel = oApplication.CurrentDb.CreateRelation(relName, relTable, relFTable, relAttr) 'create the relationship object For Each xmlField In xmlRel.SelectNodes("Field") 'in case the relationship works with more fields accessRel.Fields.Append accessRel.CreateField(xmlField.SelectSingleNode("Name").Text) accessRel.Fields(xmlField.SelectSingleNode("Name").Text).ForeignName = xmlField.SelectSingleNode("ForeignName").Text Wscript.Echo " Involving fields " & xmlField.SelectSingleNode("Name").Text & " -> " & xmlField.SelectSingleNode("ForeignName").Text Next oApplication.CurrentDb.Relations.Append accessRel 'append the newly created relationship to the database Wscript.Echo " Relationship added" Next End If oApplication.RunCommand acCmdCompileAndSaveAllModules oApplication.Quit End Function 

    You can execute this script by calling cscript compose.vbs . In case you omit the second parameter, it will look into ‘Source’ folder where the database should be created.

    Import data from text file

    Replace line 14: const acStructureOnly = 0 with const acStructureOnly = 1 . This will work only if you have included the data in exported table.

    Things that are not covered

    1. I have tested this only with .accdb files, so with anything else there might be some bugs.
    2. Setting are not exported, I would recommend creating the Macro that will apply the setting at start of the database.
    3. Some unknown queries sometimes get exported that are preceded with ‘~’. I don’t know if they are necessary.

    One of my other resources while working on this script was this answer , which helped me to figure out how to export relationships.

    I found this tool on SourceForge: http://sourceforge.net/projects/avc/

    I haven’t used it, but it may be a start for you. There may be some other 3rd party tools that integrate with VSS or SVN that do what you need.

    Personally I just keep a plain text file handy to keep a change log. When I commit the binary MDB, I use the entries in the change log as my commit comment.

    For completeness…

    There’s always “Visual Studio [YEAR] Tools for the Microsoft Office System” ( http://msdn.microsoft.com/en-us/vs2005/aa718673.aspx ) but that seems to require VSS. To me VSS (auto corrupting) is worse than my 347 save points on my uber backuped network share.

    i’m using the Access 2003 Add-in: Source Code Control . Funciona bem. One Problem are invalid characters like a “:”.

    I’m checkin in and out. Internly the Add-In do the same as the code up there, but with more tool support. I can see if an object is checked out and refresh the objects.

    I’m using Oasis-Svn http://dev2dev.de/

    I just can tell it has saved me at least once. My mdb was growing beyond 2 GB and that broke it. I could go back to an old version and import the Forms and just lost a day or so of work.

    You can also connect your MS Access to the Team Foundation Server. There is also a free Express variant for up to 5 developers. Works really well!

    • English guide
    • Team Foundation Server 2012 Express

    Edit: fixed link

    The answer from Oliver works great. Please find my extended version below that adds support for Access queries.

    (please see answer from Oliver for more information/usage)

    decompose.vbs:

     ' Usage: ' CScript decompose.vbs   ' Converts all modules, classs, forms and macros from an Access Project file (.adp)  to ' text and saves the results in separate files to . Requires Microsoft Access. ' Option Explicit const acForm = 2 const acModule = 5 const acMacro = 4 const acReport = 3 const acQuery = 1 ' BEGIN CODE Dim fso Set fso = CreateObject("Scripting.FileSystemObject") dim sADPFilename If (WScript.Arguments.Count = 0) then MsgBox "Bitte den Dateinamen angeben!", vbExclamation, "Error" Wscript.Quit() End if sADPFilename = fso.GetAbsolutePathName(WScript.Arguments(0)) Dim sExportpath If (WScript.Arguments.Count = 1) then sExportpath = "" else sExportpath = WScript.Arguments(1) End If exportModulesTxt sADPFilename, sExportpath If (Err <> 0) and (Err.Description <> NULL) Then MsgBox Err.Description, vbExclamation, "Error" Err.Clear End If Function exportModulesTxt(sADPFilename, sExportpath) Dim myComponent Dim sModuleType Dim sTempname Dim sOutstring dim myType, myName, myPath, sStubADPFilename myType = fso.GetExtensionName(sADPFilename) myName = fso.GetBaseName(sADPFilename) myPath = fso.GetParentFolderName(sADPFilename) If (sExportpath = "") then sExportpath = myPath & "\Source\" End If sStubADPFilename = sExportpath & myName & "_stub." & myType WScript.Echo "copy stub to " & sStubADPFilename & "..." On Error Resume Next fso.CreateFolder(sExportpath) On Error Goto 0 fso.CopyFile sADPFilename, sStubADPFilename WScript.Echo "starting Access..." Dim oApplication Set oApplication = CreateObject("Access.Application") WScript.Echo "opening " & sStubADPFilename & " ..." If (Right(sStubADPFilename,4) = ".adp") Then oApplication.OpenAccessProject sStubADPFilename Else oApplication.OpenCurrentDatabase sStubADPFilename End If oApplication.Visible = false dim dctDelete Set dctDelete = CreateObject("Scripting.Dictionary") WScript.Echo "exporting..." Dim myObj For Each myObj In oApplication.CurrentProject.AllForms WScript.Echo " " & myObj.fullname oApplication.SaveAsText acForm, myObj.fullname, sExportpath & "\" & myObj.fullname & ".form" oApplication.DoCmd.Close acForm, myObj.fullname dctDelete.Add "FO" & myObj.fullname, acForm Next For Each myObj In oApplication.CurrentProject.AllModules WScript.Echo " " & myObj.fullname oApplication.SaveAsText acModule, myObj.fullname, sExportpath & "\" & myObj.fullname & ".bas" dctDelete.Add "MO" & myObj.fullname, acModule Next For Each myObj In oApplication.CurrentProject.AllMacros WScript.Echo " " & myObj.fullname oApplication.SaveAsText acMacro, myObj.fullname, sExportpath & "\" & myObj.fullname & ".mac" dctDelete.Add "MA" & myObj.fullname, acMacro Next For Each myObj In oApplication.CurrentProject.AllReports WScript.Echo " " & myObj.fullname oApplication.SaveAsText acReport, myObj.fullname, sExportpath & "\" & myObj.fullname & ".report" dctDelete.Add "RE" & myObj.fullname, acReport Next For Each myObj In oApplication.CurrentDb.QueryDefs if not left(myObj.name,3) = "~sq" then 'exclude queries defined by the forms. Already included in the form itself WScript.Echo " " & myObj.name oApplication.SaveAsText acQuery, myObj.name, sExportpath & "\" & myObj.name & ".query" oApplication.DoCmd.Close acQuery, myObj.name dctDelete.Add "FO" & myObj.name, acQuery end if Next WScript.Echo "deleting..." dim sObjectname For Each sObjectname In dctDelete WScript.Echo " " & Mid(sObjectname, 3) oApplication.DoCmd.DeleteObject dctDelete(sObjectname), Mid(sObjectname, 3) Next oApplication.CloseCurrentDatabase oApplication.CompactRepair sStubADPFilename, sStubADPFilename & "_" oApplication.Quit fso.CopyFile sStubADPFilename & "_", sStubADPFilename fso.DeleteFile sStubADPFilename & "_" End Function Public Function getErr() Dim strError strError = vbCrLf & "----------------------------------------------------------------------------------------------------------------------------------------" & vbCrLf & _ "From " & Err.source & ":" & vbCrLf & _ " Description: " & Err.Description & vbCrLf & _ " Code: " & Err.Number & vbCrLf getErr = strError End Function 

    compose.vbs:

     ' Usage: ' WScript compose.vbs   ' Converts all modules, classs, forms and macros in a directory created by "decompose.vbs" ' and composes then into an Access Project file (.adp). This overwrites any existing Modules with the ' same names without warning!!! ' Requires Microsoft Access. Option Explicit const acForm = 2 const acModule = 5 const acMacro = 4 const acReport = 3 const acQuery = 1 Const acCmdCompileAndSaveAllModules = &H7E ' BEGIN CODE Dim fso Set fso = CreateObject("Scripting.FileSystemObject") dim sADPFilename If (WScript.Arguments.Count = 0) then MsgBox "Bitte den Dateinamen angeben!", vbExclamation, "Error" Wscript.Quit() End if sADPFilename = fso.GetAbsolutePathName(WScript.Arguments(0)) Dim sPath If (WScript.Arguments.Count = 1) then sPath = "" else sPath = WScript.Arguments(1) End If importModulesTxt sADPFilename, sPath If (Err <> 0) and (Err.Description <> NULL) Then MsgBox Err.Description, vbExclamation, "Error" Err.Clear End If Function importModulesTxt(sADPFilename, sImportpath) Dim myComponent Dim sModuleType Dim sTempname Dim sOutstring ' Build file and pathnames dim myType, myName, myPath, sStubADPFilename myType = fso.GetExtensionName(sADPFilename) myName = fso.GetBaseName(sADPFilename) myPath = fso.GetParentFolderName(sADPFilename) ' if no path was given as argument, use a relative directory If (sImportpath = "") then sImportpath = myPath & "\Source\" End If sStubADPFilename = sImportpath & myName & "_stub." & myType ' check for existing file and ask to overwrite with the stub if (fso.FileExists(sADPFilename)) Then WScript.StdOut.Write sADPFilename & " existiert bereits. Überschreiben? (j/n) " dim sInput sInput = WScript.StdIn.Read(1) if (sInput <> "j") Then WScript.Quit end if fso.CopyFile sADPFilename, sADPFilename & ".bak" end if fso.CopyFile sStubADPFilename, sADPFilename ' launch MSAccess WScript.Echo "starting Access..." Dim oApplication Set oApplication = CreateObject("Access.Application") WScript.Echo "opening " & sADPFilename & " ..." If (Right(sStubADPFilename,4) = ".adp") Then oApplication.OpenAccessProject sADPFilename Else oApplication.OpenCurrentDatabase sADPFilename End If oApplication.Visible = false Dim folder Set folder = fso.GetFolder(sImportpath) ' load each file from the import path into the stub Dim myFile, objectname, objecttype for each myFile in folder.Files objecttype = fso.GetExtensionName(myFile.Name) objectname = fso.GetBaseName(myFile.Name) WScript.Echo " " & objectname & " (" & objecttype & ")" if (objecttype = "form") then oApplication.LoadFromText acForm, objectname, myFile.Path elseif (objecttype = "bas") then oApplication.LoadFromText acModule, objectname, myFile.Path elseif (objecttype = "mac") then oApplication.LoadFromText acMacro, objectname, myFile.Path elseif (objecttype = "report") then oApplication.LoadFromText acReport, objectname, myFile.Path elseif (objecttype = "query") then oApplication.LoadFromText acQuery, objectname, myFile.Path end if next oApplication.RunCommand acCmdCompileAndSaveAllModules oApplication.Quit End Function Public Function getErr() Dim strError strError = vbCrLf & "----------------------------------------------------------------------------------------------------------------------------------------" & vbCrLf & _ "From " & Err.source & ":" & vbCrLf & _ " Description: " & Err.Description & vbCrLf & _ " Code: " & Err.Number & vbCrLf getErr = strError End Function 

    I tried to help contribute to his answer by adding an export option for Queries within the access database. (With ample help from other SO answers )

     Dim def Set stream = fso.CreateTextFile(sExportpath & "\" & myName & ".queries.txt") For Each def In oApplication.CurrentDb.QueryDefs WScript.Echo " Exporting Queries to Text..." stream.WriteLine("Name: " & def.Name) stream.WriteLine(def.SQL) stream.writeline "--------------------------" stream.writeline " " Next stream.Close 

    Haven’t be able to work that back into the ‘compose’ feature, but that’s not what I need it to do right now.

    Note: I also added “.txt” to each of the exported file names in decompose.vbs so that the source control would immediately show me the file diffs.

    Espero que ajude!


    This entry describes a totally different approach from the other entries, and may not be what you’re looking for. So I won’t be offended if you ignore this. But at least it is food for thought.

    In some professional commercial software development environments, configuration management (CM) of software deliverables is not normally done within the software application itself or software project itself. CM is imposed upon the final deliverable products, by saving the software in a special CM folder, where both the file and its folder are marked with version identification. For example, Clearcase allows the data manager to “check in” a software file, assign it a “branch”, assign it a “bubble”, and apply “labels”. When you want to see and download a file, you have to configure your “config spec” to point to the version you want, then cd into the folder and there it is.

    Apenas uma ideia.

    For anyone stuck with Access 97, I was not able to get the other answers to work. Using a combination of Oliver’s and DaveParillo’s excellent answers and making some modifications, I was able to get the scripts working with our Access 97 databases. It’s also a bit more user-friendly since it asks which folder to place the files.

    AccessExport.vbs:

     ' Converts all modules, classs, forms and macros from an Access file (.mdb)  to ' text and saves the results in separate files to . Requires Microsoft Access. Option Explicit Const acQuery = 1 Const acForm = 2 Const acModule = 5 Const acMacro = 4 Const acReport = 3 Const acCmdCompactDatabase = 4 Const TemporaryFolder = 2 Dim strMDBFileName : strMDBFileName = SelectDatabaseFile Dim strExportPath : strExportPath = SelectExportFolder CreateExportFolders(strExportPath) Dim objProgressWindow Dim strOverallProgress CreateProgressWindow objProgressWindow Dim strTempMDBFileName CopyToTempDatabase strMDBFileName, strTempMDBFileName, strOverallProgress Dim objAccess Dim objDatabase OpenAccessDatabase objAccess, objDatabase, strTempMDBFileName, strOverallProgress ExportQueries objAccess, objDatabase, objProgressWindow, strExportPath, strOverallProgress ExportForms objAccess, objDatabase, objProgressWindow, strExportPath, strOverallProgress ExportReports objAccess, objDatabase, objProgressWindow, strExportPath, strOverallProgress ExportMacros objAccess, objDatabase, objProgressWindow, strExportPath, strOverallProgress ExportModules objAccess, objDatabase, objProgressWindow, strExportPath, strOverallProgress objAccess.CloseCurrentDatabase objAccess.Quit DeleteTempDatabase strTempMDBFileName, strOverallProgress objProgressWindow.Quit MsgBox "Successfully exported database." Private Function SelectDatabaseFile() MsgBox "Please select the Access database to export." Dim objFileOpen : Set objFileOpen = CreateObject("SAFRCFileDlg.FileOpen") If objFileOpen.OpenFileOpenDlg Then SelectDatabaseFile = objFileOpen.FileName Else WScript.Quit() End If End Function Private Function SelectExportFolder() Dim objShell : Set objShell = CreateObject("Shell.Application") SelectExportFolder = objShell.BrowseForFolder(0, "Select folder to export the database to:", 0, "").self.path & "\" End Function Private Sub CreateExportFolders(strExportPath) Dim objFileSystem : Set objFileSystem = CreateObject("Scripting.FileSystemObject") MsgBox "Existing folders from a previous Access export under " & strExportPath & " will be deleted!" If objFileSystem.FolderExists(strExportPath & "Queries\") Then objFileSystem.DeleteFolder strExportPath & "Queries", true End If objFileSystem.CreateFolder(strExportPath & "Queries\") If objFileSystem.FolderExists(strExportPath & "Forms\") Then objFileSystem.DeleteFolder strExportPath & "Forms", true End If objFileSystem.CreateFolder(strExportPath & "Forms\") If objFileSystem.FolderExists(strExportPath & "Reports\") Then objFileSystem.DeleteFolder strExportPath & "Reports", true End If objFileSystem.CreateFolder(strExportPath & "Reports\") If objFileSystem.FolderExists(strExportPath & "Macros\") Then objFileSystem.DeleteFolder strExportPath & "Macros", true End If objFileSystem.CreateFolder(strExportPath & "Macros\") If objFileSystem.FolderExists(strExportPath & "Modules\") Then objFileSystem.DeleteFolder strExportPath & "Modules", true End If objFileSystem.CreateFolder(strExportPath & "Modules\") End Sub Private Sub CreateProgressWindow(objProgressWindow) Set objProgressWindow = CreateObject ("InternetExplorer.Application") objProgressWindow.Navigate "about:blank" objProgressWindow.ToolBar = 0 objProgressWindow.StatusBar = 0 objProgressWindow.Width = 320 objProgressWindow.Height = 240 objProgressWindow.Visible = 1 objProgressWindow.Document.Title = "Access export in progress" End Sub Private Sub CopyToTempDatabase(strMDBFileName, strTempMDBFileName, strOverallProgress) strOverallProgress = strOverallProgress & "Copying to temporary database...
    " Dim objFileSystem : Set objFileSystem = CreateObject("Scripting.FileSystemObject") strTempMDBFileName = objFileSystem.GetSpecialFolder(TemporaryFolder) & "\" & objFileSystem.GetBaseName(strMDBFileName) & "_temp.mdb" objFileSystem.CopyFile strMDBFileName, strTempMDBFileName End Sub Private Sub OpenAccessDatabase(objAccess, objDatabase, strTempMDBFileName, strOverallProgress) strOverallProgress = strOverallProgress & "Compacting temporary database...
    " Set objAccess = CreateObject("Access.Application") objAccess.Visible = false CompactAccessDatabase objAccess, strTempMDBFileName strOverallProgress = strOverallProgress & "Opening temporary database...
    " objAccess.OpenCurrentDatabase strTempMDBFileName Set objDatabase = objAccess.CurrentDb End Sub ' Sometimes the Compact Database command errors out, and it's not serious if the database isn't compacted first. Private Sub CompactAccessDatabase(objAccess, strTempMDBFileName) On Error Resume Next Dim objFileSystem : Set objFileSystem = CreateObject("Scripting.FileSystemObject") objAccess.DbEngine.CompactDatabase strTempMDBFileName, strTempMDBFileName & "_" objFileSystem.CopyFile strTempMDBFileName & "_", strTempMDBFileName objFileSystem.DeleteFile strTempMDBFileName & "_" End Sub Private Sub ExportQueries(objAccess, objDatabase, objProgressWindow, strExportPath, strOverallProgress) strOverallProgress = strOverallProgress & "Exporting Queries (Step 1 of 5)...
    " Dim counter For counter = 0 To objDatabase.QueryDefs.Count - 1 objProgressWindow.Document.Body.InnerHTML = strOverallProgress & counter + 1 & " of " & objDatabase.QueryDefs.Count objAccess.SaveAsText acQuery, objDatabase.QueryDefs(counter).Name, strExportPath & "Queries\" & Clean(objDatabase.QueryDefs(counter).Name) & ".sql" Next End Sub Private Sub ExportForms(objAccess, objDatabase, objProgressWindow, strExportPath, strOverallProgress) strOverallProgress = strOverallProgress & "Exporting Forms (Step 2 of 5)...
    " Dim counter : counter = 1 Dim objContainer : Set objContainer = objDatabase.Containers("Forms") Dim objDocument For Each objDocument In objContainer.Documents objProgressWindow.Document.Body.InnerHTML = strOverallProgress & counter & " of " & objContainer.Documents.Count counter = counter + 1 objAccess.SaveAsText acForm, objDocument.Name, strExportPath & "Forms\" & Clean(objDocument.Name) & ".form" objAccess.DoCmd.Close acForm, objDocument.Name Next End Sub Private Sub ExportReports(objAccess, objDatabase, objProgressWindow, strExportPath, strOverallProgress) strOverallProgress = strOverallProgress & "Exporting Reports (Step 3 of 5)...
    " Dim counter : counter = 1 Dim objContainer : Set objContainer = objDatabase.Containers("Reports") Dim objDocument For Each objDocument In objContainer.Documents objProgressWindow.Document.Body.InnerHTML = strOverallProgress & counter & " of " & objContainer.Documents.Count counter = counter + 1 objAccess.SaveAsText acReport, objDocument.Name, strExportPath & "Reports\" & Clean(objDocument.Name) & ".report" Next End Sub Private Sub ExportMacros(objAccess, objDatabase, objProgressWindow, strExportPath, strOverallProgress) strOverallProgress = strOverallProgress & "Exporting Macros (Step 4 of 5)...
    " Dim counter : counter = 1 Dim objContainer : Set objContainer = objDatabase.Containers("Scripts") Dim objDocument For Each objDocument In objContainer.Documents objProgressWindow.Document.Body.InnerHTML = strOverallProgress & counter & " of " & objContainer.Documents.Count counter = counter + 1 objAccess.SaveAsText acMacro, objDocument.Name, strExportPath & "Macros\" & Clean(objDocument.Name) & ".macro" Next End Sub Private Sub ExportModules(objAccess, objDatabase, objProgressWindow, strExportPath, strOverallProgress) strOverallProgress = strOverallProgress & "Exporting Modules (Step 5 of 5)...
    " Dim counter : counter = 1 Dim objContainer : Set objContainer = objDatabase.Containers("Modules") Dim objDocument For Each objDocument In objContainer.Documents objProgressWindow.Document.Body.InnerHTML = strOverallProgress & counter & " of " & objContainer.Documents.Count counter = counter + 1 objAccess.SaveAsText acModule, objDocument.Name, strExportPath & "Modules\" & Clean(objDocument.Name) & ".module" Next End Sub Private Sub DeleteTempDatabase(strTempMDBFileName, strOverallProgress) On Error Resume Next strOverallProgress = strOverallProgress & "Deleting temporary database...
    " Dim objFileSystem : Set objFileSystem = CreateObject("Scripting.FileSystemObject") objFileSystem.DeleteFile strTempMDBFileName, true End Sub ' Windows doesn't like certain characters, so we have to filter those out of the name when exporting Private Function Clean(strInput) Dim objRegexp : Set objRegexp = New RegExp objRegexp.IgnoreCase = True objRegexp.Global = True objRegexp.Pattern = "[\\/:*?""<>|]" Dim strOutput If objRegexp.Test(strInput) Then strOutput = objRegexp.Replace(strInput, "") MsgBox strInput & " is being exported as " & strOutput Else strOutput = strInput End If Clean = strOutput End Function

    And for importing files into the database, should you need to recreate the database from scratch or you wish to modify files outside of Access for some reason.

    AccessImport.vbs:

     ' Imports all of the queries, forms, reports, macros, and modules from text ' files to an Access file (.mdb). Requires Microsoft Access. Option Explicit const acQuery = 1 const acForm = 2 const acModule = 5 const acMacro = 4 const acReport = 3 const acCmdCompileAndSaveAllModules = &H7E Dim strMDBFilename : strMDBFilename = SelectDatabaseFile CreateBackup strMDBFilename Dim strImportPath : strImportPath = SelectImportFolder Dim objAccess Dim objDatabase OpenAccessDatabase objAccess, objDatabase, strMDBFilename Dim objProgressWindow Dim strOverallProgress CreateProgressWindow objProgressWindow ImportQueries objAccess, objDatabase, objProgressWindow, strImportPath, strOverallProgress ImportForms objAccess, objDatabase, objProgressWindow, strImportPath, strOverallProgress ImportReports objAccess, objDatabase, objProgressWindow, strImportPath, strOverallProgress ImportMacros objAccess, objDatabase, objProgressWindow, strImportPath, strOverallProgress ImportModules objAccess, objDatabase, objProgressWindow, strImportPath, strOverallProgress objAccess.CloseCurrentDatabase objAccess.Quit objProgressWindow.Quit MsgBox "Successfully imported objects into the database." Private Function SelectDatabaseFile() MsgBox "Please select the Access database to import the objects from. ALL EXISTING OBJECTS WITH THE SAME NAME WILL BE OVERWRITTEN!" Dim objFileOpen : Set objFileOpen = CreateObject( "SAFRCFileDlg.FileOpen" ) If objFileOpen.OpenFileOpenDlg Then SelectDatabaseFile = objFileOpen.FileName Else WScript.Quit() End If End Function Private Function SelectImportFolder() Dim objShell : Set objShell = WScript.CreateObject("Shell.Application") SelectImportFolder = objShell.BrowseForFolder(0, "Select folder to import the database objects from:", 0, "").self.path & "\" End Function Private Sub CreateBackup(strMDBFilename) Dim objFileSystem : Set objFileSystem = CreateObject("Scripting.FileSystemObject") objFileSystem.CopyFile strMDBFilename, strMDBFilename & ".bak" End Sub Private Sub OpenAccessDatabase(objAccess, objDatabase, strMDBFileName) Set objAccess = CreateObject("Access.Application") objAccess.OpenCurrentDatabase strMDBFilename objAccess.Visible = false Set objDatabase = objAccess.CurrentDb End Sub Private Sub CreateProgressWindow(ByRef objProgressWindow) Set objProgressWindow = CreateObject ("InternetExplorer.Application") objProgressWindow.Navigate "about:blank" objProgressWindow.ToolBar = 0 objProgressWindow.StatusBar = 0 objProgressWindow.Width = 320 objProgressWindow.Height = 240 objProgressWindow.Visible = 1 objProgressWindow.Document.Title = "Access import in progress" End Sub Private Sub ImportQueries(objAccess, objDatabase, objProgressWindow, strImportPath, strOverallProgress) strOverallProgress = "Importing Queries (Step 1 of 5)...
    " Dim counter : counter = 0 Dim folder : Set folder = objFileSystem.GetFolder(strImportPath & "Queries\") Dim objFileSystem : Set objFileSystem = CreateObject("Scripting.FileSystemObject") Dim file Dim strQueryName For Each file in folder.Files objProgressWindow.Document.Body.InnerHTML = strOverallProgress & counter + 1 & " of " & folder.Files.Count strQueryName = objFileSystem.GetBaseName(file.Name) objAccess.LoadFromText acQuery, strQueryName, file.Path counter = counter + 1 Next End Sub Private Sub ImportForms(objAccess, objDatabase, objProgressWindow, strImportPath, strOverallProgress) strOverallProgress = strOverallProgress & "Importing Forms (Step 2 of 5)...
    " Dim counter : counter = 0 Dim folder : Set folder = objFileSystem.GetFolder(strImportPath & "Forms\") Dim objFileSystem : Set objFileSystem = CreateObject("Scripting.FileSystemObject") Dim file Dim strFormName For Each file in folder.Files objProgressWindow.Document.Body.InnerHTML = strOverallProgress & counter + 1 & " of " & folder.Files.Count strFormName = objFileSystem.GetBaseName(file.Name) objAccess.LoadFromText acForm, strFormName, file.Path counter = counter + 1 Next End Sub Private Sub ImportReports(objAccess, objDatabase, objProgressWindow, strImportPath, strOverallProgress) strOverallProgress = strOverallProgress & "Importing Reports (Step 3 of 5)...
    " Dim counter : counter = 0 Dim folder : Set folder = objFileSystem.GetFolder(strImportPath & "Reports\") Dim objFileSystem : Set objFileSystem = CreateObject("Scripting.FileSystemObject") Dim file Dim strReportName For Each file in folder.Files objProgressWindow.Document.Body.InnerHTML = strOverallProgress & counter + 1 & " of " & folder.Files.Count strReportName = objFileSystem.GetBaseName(file.Name) objAccess.LoadFromText acReport, strReportName, file.Path counter = counter + 1 Next End Sub Private Sub ImportMacros(objAccess, objDatabase, objProgressWindow, strImportPath, strOverallProgress) strOverallProgress = strOverallProgress & "Importing Macros (Step 4 of 5)...
    " Dim counter : counter = 0 Dim folder : Set folder = objFileSystem.GetFolder(strImportPath & "Macros\") Dim objFileSystem : Set objFileSystem = CreateObject("Scripting.FileSystemObject") Dim file Dim strMacroName For Each file in folder.Files objProgressWindow.Document.Body.InnerHTML = strOverallProgress & counter + 1 & " of " & folder.Files.Count strMacroName = objFileSystem.GetBaseName(file.Name) objAccess.LoadFromText acMacro, strMacroName, file.Path counter = counter + 1 Next End Sub Private Sub ImportModules(objAccess, objDatabase, objProgressWindow, strImportPath, strOverallProgress) strOverallProgress = strOverallProgress & "Importing Modules (Step 5 of 5)...
    " Dim counter : counter = 0 Dim folder : Set folder = objFileSystem.GetFolder(strImportPath & "Modules\") Dim objFileSystem : Set objFileSystem = CreateObject("Scripting.FileSystemObject") Dim file Dim strModuleName For Each file in folder.Files objProgressWindow.Document.Body.InnerHTML = strOverallProgress & counter + 1 & " of " & folder.Files.Count strModuleName = objFileSystem.GetBaseName(file.Name) objAccess.LoadFromText acModule, strModuleName, file.Path counter = counter + 1 Next ' We need to compile the database whenever any module code changes. If Not objAccess.IsCompiled Then objAccess.RunCommand acCmdCompileAndSaveAllModules End If End Sub