VBA Access - Documentando Objetos da Aplicacao MS Access - Code DocumenterExistem alguns aspectos desafiadores ao implementarmos os codigos em nossas aplicacoes MS Access. Mas ao olharmos para o projeto como um todo ainda nos cabe uma tarefa extremamente necessaria: A DOCUMENTACAO DA APLICACAO.Esta faz-se muito util tanto quando precisamos voltar a aplicacao para uma manutencao, como quando outros assumem futuras implementacoes. Tenham em mente que nao e tempo perdido, incluam isso ao preparar seus apertadissimos cronogramas.Para que se inspirem a documentar todos os objetos da sua aplicacao estou disponibilizando 2 aspectos bem relevantes para documentarem: Todas as Tabelas e Queries.Ao documenta-las tera uma boa compreensao de como sua aplicacao se comporta, cabe a voce extrapolar para:RelatoriosFormulariosScripts VBA (modulos e classes)MacrosConforme combinado, comeco a brincadeira e voces implementam o resto.:: PrimeiroListe todas as tabelas da sua aplicacaoPublic Sub ListTables() ' Author: Date: Contact: ' Andre Bernardes 09/09/2010 08:43 brazilsalesforceeffectiveness@gmail.com ' Lista todas as tabelas da aplicacao. Dim i As Integer On Error Resume Next For i = 0 To CurrentDb.TableDefs.Count - 1 Debug.Print "Table: " & CurrentDb.TableDefs(i).Name NextEnd Sub:: SegundoListe todas as queries da sua aplicacao com alguns detalhes opcionais Public Sub ListQueries() ' Author: Date: Contact: ' Andre Bernardes 09/09/2010 10:05 brazilsalesforceeffectiveness@gmail.com ' Lista todas as tabelas da aplicacao. Dim i As Integer Dim j As Integer Dim k As Integer Dim l As Integer On Error Resume Next For i = 0 To CurrentDb.QueryDefs.Count - 1 Debug.Print " Query: " & CurrentDb.QueryDefs(i).Name ' Opcionalmente pode-se acrescentar que se liste todos os campos: 'For j = 0 To CurrentDb.QueryDefs(i).Fields.Count ' Debug.Print "Field " & CurrentDb.QueryDefs(i).Fields(j).Name 'Next ' Opcionalmente pode-se listar todas as propriedades: 'For k = 0 To CurrentDb.QueryDefs(i).Fields.Count ' Debug.Print "Propertie " & k & " - " & CurrentDb.QueryDefs(i).Properties(k) 'Next Debug.Print "Propertie: " & CurrentDb.QueryDefs(i).Properties(16) Debug.Print " SQL: " & CurrentDb.QueryDefs(i).SQL Debug.Print " " NextEnd SubCode DocumenterRetornem para comentar o que desenvolveram de novo!Envie seus comentarios e sugestoes e compartilhe este artigo!brazilsalesforceeffectiveness@gmail.com VBA OFFICE - EXCEL, ACCESS, OUTLOOK, POWERPOINTPROJETOS CURTOS OU LONGOS Desenvolvo e aprimoro seus Dashboards em MS Excel!DASHBOARDS SCORECARDS BSC REPORTs Aplicacoes MS Access Conecte suas planilhas ao BI! Contate-me: brazilsalesforceeffectiveness@gmail.combrazilsalesforceeffectiveness@gmail.com Ferias 2016 - 2017Sim, vamos tirar alguns dias para descansar, sem atualizacoes, sem pesquisas. Apenas relaxar um pouco e voltamos logo.Divirtam-se e nos vemos em Janeiro de 2017!John Cale - HallelujahEnvie seus comentarios e sugestoes e compartilhe este artigo!brazilsalesforceeffectiveness@gmail.com VBA OFFICE - EXCEL, ACCESS, OUTLOOK, POWERPOINTPROJETOS CURTOS OU LONGOS Desenvolvo e aprimoro seus Dashboards em MS Excel!DASHBOARDS SCORECARDS BSC REPORTs Aplicacoes MS Access Conecte suas planilhas ao BI! Contate-me: brazilsalesforceeffectiveness@gmail.combrazilsalesforceeffectiveness@gmail.com Access 2016 - Funcao ShellAprenda a abrir e fechar um arquivo com a funcao VBA Shell.Sub OpenClose()'Open and Close a FileDim vPID As Variant'Launch filevPID = Shell("notepad.exe ""C:\VBA\text.txt""", vbNormalFocus)'Perform your actions here'Kill fileCall Shell("TaskKill /F /PID " & CStr(vPID), vbHide)End SubAntes de lhe mostrar como personalizar a funcao Shell, quero que saiba que existem diversas maneiras de invoca-la.A seguir demonstro todas as formas possiveis para se executar o aplicativo Timer. Perceba que que a funcao Shell retorna um valor Double.Sub DailyTimer()'Run timerDim vPID As Variant'Variation 1:vPID