Access 2016 - Função Shell

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

       

VBA Access - O que há de novo no Office 2016?

VBA Access - O que há de novo no Office 2016?

Programação em VBA no Office

Este artigo é indicado para usuários experientes do Office que querem aprender sobre o VBA e para quem deseja entender um pouco sobre como a programação pode ajudar na personalização do Office.

O pacote de aplicativos do Office tem um sofisticado conjunto de recursos. Há muitas maneiras diferentes de criar, formatar e manipular documentos, emails, bancos de dados, formulários, planilhas e apresentações. A grande vantagem da programação em VBA no Office é que quase todas as operações que podem ser executadas com um mouse, teclado ou uma caixa de diálogo também podem ser realizadas usando o VBA. Além disso, se a operação pode ser realizada uma vez com o VBA, ela pode ser feita com a mesma facilidade centenas de vezes. Na verdade, a automatização de tarefas repetitivas é um dos usos mais comuns do VBA no Office.

Além da capacidade de criar scripts com o VBA para acelerar as tarefas diárias, use o VBA para adicionar novas funcionalidades a aplicativos do Office ou solicitar e interagir com as pessoas que usam seus documentos de formas específicas para atender às suas necessidades de negócios. Por exemplo, você poderia gravar um código VBA que exibisse um mensagem popup lembrando os usuários de salvar um documento em uma determinada unidade de rede na primeira vez que eles tentassem salvá-lo.

Este artigo explora algumas das principais razões para aproveitar a capacidade de programação em VBA. Ele explora a linguagem VBA e as ferramentas prontas que podem ser usadas para trabalhar com suas soluções. Por fim, ele inclui algumas dicas e formas de evitar algumas frustrações e equívocos comuns que acontecem na programação.

Access

Nome	Descrição
Propriedade CodeProject.IsSQLBackend (acesso)	Retorna o booliana valor true se o projeto de código foi criado no Access 2013 e versões mais recentes e Falso se caso contrário.
Propriedade CurrentProject.IsSQLBackend (acesso)	Retorna verdadeiro se o projeto atual foi criado no Access 2013 e em diante e false se o projeto atual foi criado anteriores ao Access 2013. Somente leitura booliano.

brazilsalesforceeffectiveness@gmail.com