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

       

Tips - Office 2010 - 6 Guias de Migração - Office 2010 migration guides

| Blog Office VBA | Blog Excel | Blog Access |

+ de 100.000 VISITAS

Acesse: http://goo.gl/0v6AO   

Está pensando em atualizar para o Microsoft Office 2010?

Acredite ou não, aceite ou não, muita gente ainda está usando a versão do MS Office 2003. 

Sim, é verdade: 

Empresas multinacionais que têm filiais em outros países, 

Pequenas e médias empresas cujo o custo de atualização ainda não compensa, e os

Usuários domésticos que acreditam não precisar das novas funcionalidades disponíveis contidas na última versão do MS Office.

Cada atualização traz novas funcionalidades, e encontrá-las nas novas versões dos seus programas favoritos pode levar algum tempo até se acostumar. 

Para facilitar a transição, reuni 6 úteis Guias de Migração para o MA Office 2010 para que nos atualizemos com as mais recentes versões do Microsoft Access, Excel, OneNote, Outlook, PowerPoint e Word.

PS: Estes guias práticos já estão disponíveis em 36 idiomas. 

Essas Guias de Migração fornecem respostas a perguntas mais comuns sobre como fazer as transições para as versões do Office 2010. São particularmente adequadas se estiver convertendo a partir do Office 2003, mas haverá um monte de informações relevantes se estiver migrando de outras versões.

Clique numa imagem abaixo, e esta abrirá como um arquivo PDF. Poderá vê-lo e imprimi-lo ou guardá-lo para uso posterior.

Guia de Migração do Access 2010	Guia de Migração do Excel 2010
Guia de Migração do PowerPoint 2010	Guia de Migração do OneNote 2010
Guia de Migração do Outlook 2010	Guia de Migração do Word 2010

Tags: Tips, Microsoft, Office 2010, Migration Guide, learning, Training, Access 2010, Excel 2010, OneNote 2010, Outlook 2010, PowerPoint 2010, Word 2010, 

VBA Access - Gatilhos no Microsoft Access 2010 - Triggers in Microsoft Access 2010

Microsoft Access é um daqueles aplicativos da suíte do MS Office que você ama ou odeia. Tem características muito úteis para os bancos de dados departamentais, mas a limitação quanto ao tamanho físico máximo ser de 2 GB, torna-o bastante restritivo. O MS Office Access 2010 ofereceu algumas melhorias, incluindo confiabilidade.

Neste post olharemos para as Triggers no MS Office Access 2010  assim como temos no SQL Server, Oracle, etc... Nesta versão foi agregada o recurso do uso de Triggers,  facilitando muito a vida de quem trabalha com VBA, e o VSTO. Na verdade o que veremos é uma emulação, pois utilizaremos macros para processarem.

No  MS Office Access 2010 , esta opção está disponível no Menu Tabela (quando uma tabela for aberta no modo Folha de Dados) ou criação (quando uma tabela está aberta em Design). No modo Folha de Dados, você deve ver este menu (desconsidere o idioma):

A imagem acima mostra as opções para gravar eventos do jeito que desejarmos escrevendo "triggers" que permitem-nos gravar um evento [ou trigger], antes da mudança (before change), antes de uma deleção (before delete), após uma inserção (after insert), após uma atualização (after update), e após uma deleção (after delete).

Agora pode selecionar um tipo de evento para executar um job, usando uma instrução condicional para expressar a sua lógica de escolher a ação a partir do painel direito. Desta forma, você pode usar if else, looping blocks e pode verificar os dados neste estágio e filtrar, editar e desfazer os dados baseada na sua exigência.

Use este procedimento para adicionar uma macro de dados a uma tabela.

Uma demonstração de como criar uma macro (trigger) está disponível aqui.

Divirtam-se!

Tags: Bernardes, VBA, Office, Access 2010, Events, Microsoft, Office 2010, Triggers, Macros

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com