Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

VBA OFFICE - EXCEL, ACCESS, OUTLOOK, POWERPOINT

VBA OFFICE - EXCEL, ACCESS, OUTLOOK, POWERPOINT


PROJETOS CURTOS OU LONGOS 

Desenvolvo e aprimoro seus Dashboards em MS Excel!


  • DASHBOARDS 
  • SCORECARDS 
  • BSC 
  • REPORTs 
  • Aplicações MS Access  

Conecte suas planilhas ao BI!  


Contate-me: brazilsalesforceeffectiveness@gmail.com





brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets

Férias 2016 - 2017

Férias 2016 - 2017




Sim, vamos tirar alguns dias para descansar, sem atualizações, sem pesquisas. Apenas relaxar um pouco e voltamos logo.

Divirtam-se e nos vemos em Janeiro de 2017!


John Cale - Hallelujah






Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®✔ Brazil SFE®´s Facebook´s Profile  Google+   Author´s Professional Profile  ✔ Brazil SFE®´s Pinterest       ✔ Brazil SFE®´s Tweets

VBA Access - Documentando Objetos da Aplicação MS Access - Code Documenter

VBA Access - Documentando Objetos da Aplicação MS Access - Code Documenter

Existem alguns aspectos desafiadores ao implementarmos os códigos em nossas aplicações MS Access. Mas ao olharmos para o projeto como um todo ainda nos cabe uma tarefa extremamente necessária: A DOCUMENTAÇÃO DA APLICAÇÃO.
Esta faz-se muito útil tanto quando precisamos voltar a aplicação para uma manutenção, como quando outros assumem futuras implementações. Tenham em mente que não é tempo perdido, incluam isso ao preparar seus apertadíssimos cronogramas.

Para que se inspirem a documentar todos os objetos da sua aplicação estou disponibilizando 2 aspectos bem relevantes para documentarem: Todas as Tabelas e Queries.
Ao documentá-las terá uma boa compreensão de como sua aplicação se comporta, cabe a você extrapolar para:
  • Relatórios
  • Formulários
  • Scripts VBA (módulos e classes)
  • Macros
Conforme combinado, começo a brincadeira e vocês implementam o resto.
:: Primeiro
Liste todas as tabelas da sua aplicação
Public Sub ListTables()    ' Author:                           Date:                        Contact:    ' André Bernardes             09/09/2010 08:43   brazilsalesforceeffectiveness@gmail.com         ' Lista todas as tabelas da aplicação.     Dim i As Integer         On Error Resume Next
   
    For i = 0 To CurrentDb.TableDefs.Count - 1
        Debug.Print "Table: " & CurrentDb.TableDefs(i).Name
    Next
End Sub


:: Segundo
Liste todas as queries da sua aplicação com alguns detalhes opcionais
 Public Sub ListQueries()    ' Author:                          Date:                     Contact:    ' André Bernardes             09/09/2010 10:05   brazilsalesforceeffectiveness@gmail.com         ' Lista todas as tabelas da aplicação.     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 " "
    Next
End Sub


Retornem para comentar o que desenvolveram de novo!


Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®✔ Brazil SFE®´s Facebook´s Profile  Google+   Author´s Professional Profile  ✔ Brazil SFE®´s Pinterest       ✔ Brazil SFE®´s Tweets

Ranking: DB-Engines - Classificação dos Sistemas de Gerenciamento de Banco de Dados

Ranking: DB-Engines - Classificação dos Sistemas de Gerenciamento de Banco de Dados




DB-Engines Ranking classifica os sistemas de gerenciamento de banco de dados de acordo com a sua popularidade.













Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®✔ Brazil SFE®´s Facebook´s Profile  Google+   Author´s Professional Profile  ✔ Brazil SFE®´s Pinterest       ✔ Brazil SFE®´s Tweets

LinkedIn - SenseiDB

LinkedIn - SenseiDB




O grupo de Engenharia do LinkedIn lançou e tornou open source o SenseiDB, um banco de dados distribuído e semiestruturado. O SenseiDB é a tecnologia que está por trás da infraestrutura de pesquisas do LinkedIn e dá sustentação à sua página principal, ao LinkedIn Signals e a outros recursos de pesquisa do portal, como as buscas de pessoas e empresas. O SenseiDBfoi desenvolvido internamente para atender a necessidades da empresa, e agora teve seu código aberto, passando a integrar ao projeto "guarda-chuva" LinkedIn SNA, focado em buscas, rede de contatos e análise.






Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®✔ Brazil SFE®´s Facebook´s Profile  Google+   Author´s Professional Profile  ✔ Brazil SFE®´s Pinterest       ✔ Brazil SFE®´s Tweets

Access 2016 - Função Shell


Aprenda a abrir e fechar um arquivo com a função VBA Shell.


Sub OpenClose()
'Open and Close a File
Dim vPID As Variant
'Launch file
vPID = Shell("notepad.exe ""C:\VBA\text.txt""", vbNormalFocus)

'Perform your actions here

'Kill file
Call Shell("TaskKill /F /PID " & CStr(vPID), vbHide)

End Sub

Antes de lhe mostrar como personalizar a função Shell, quero que saiba que existem diversas maneiras de invocá-la.

A seguir demonstro todas as formas possíveis para se executar o aplicativo Timer. Perceba que que a função Shell retorna um valor Double.


Sub DailyTimer()
'Run timer
Dim vPID As Variant
'Variation 1:
vPID = Shell("wscript.exe ""C:\VBScripts\Timer.vbs""", vbNormalFocus)
'Variation 2:
Shell "explorer.exe ""C:\VBScripts\Timer.vbs""", 1
'Variation 3:
Call Shell("Explorer.exe ""C:\VBScripts\Timer.vbs""", vbNormalFocus)
'Variation 4 - Open with Notepad for Editing:
vPID = Shell("notepad.exe ""C:\VBScripts\Timer.vbs""", vbNormalFocus)
End Sub

Outro exemplo:


dTimer=InputBox("Enter timer interval in minutes","Set Timer") 'minutes

do until IsNumeric(dTimer)=True
  dTimer=InputBox("Invalid Entry" & vbnewline & vbnewline & _ 
         "Enter timer interval in minutes","Set Timer") 'minutes
loop

if dTimer<>"" then
do
  WScript.Sleep dTimer*60*1000 'convert from minutes to milliseconds
  t=MsgBox("Take a Walk." & vbnewline & vbnewline & "Restart Timer?", _
    vbYesNo, "It's been " & dTimer &" minute(s)")
  if t=6 then 'if yes
       'continue loop
  else 'exit loop
       exit do
  end if
loop
end if


Aplicável em: Access 2016, Access 2013, Access 2010, Access 2007, 



brazilsalesforceeffectiveness@gmail.com


✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets



VBA OFFICE - EXCEL, ACCESS, OUTLOOK, POWERPOINT

VBA OFFICE - EXCEL, ACCESS, OUTLOOK, POWERPOINT


PROJETOS CURTOS OU LONGOS 

Desenvolvo e aprimoro seus Dashboards em MS Excel!


  • DASHBOARDS 
  • SCORECARDS 
  • BSC 
  • REPORTs 
  • Aplicações MS Access  

Conecte suas planilhas ao BI!  


Contate-me: brazilsalesforceeffectiveness@gmail.com





brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets

LinkWithinBrazilVBAAccessSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine