Propósito

✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.

.: Vitrine

Carregando artigos...

Views

Mostrando postagens com marcador Intellisense. Mostrar todas as postagens
Mostrando postagens com marcador Intellisense. Mostrar todas as postagens

VBA Access - Usando built-in enumerations nas suas procedures - Using built-in enumerations in your procedures


Às vezes temos tarefas recorrente que gostaríamos de simplificar e quando essas tarefas envolvem interações com o modelo de objetos do MS Access, nós certamente não queremos perder o recurso de intellisense embutido neste.

Você tem algum intellisense?

Freqüentemente abrimos os nossos formulários usando uma cláusula WHERE, e para nos certificarmos de abrí-los corretamente, sempre o fechamos antes de abrí-lo novamente.

Criamos um procedimento simples chamado OpenMyForm usando uma seqüência regular para a condição onde.


Public Sub OpenMyForm(FormName As String, WhereCondition As String)
  If CurrentProject.AllForms(FormName).IsLoaded Then
    DoCmd.Close acForm, FormName
  End If

  DoCmd.OpenForm FormName, WhereCondition:=WhereCondition
End Sub


Este código funcionou bem, mas suponha que deseje abrir o formulário de abertura no modo visualizar ou folha de dados. Poderíamos fazer isso adicionando um outro parâmetro:


Public Sub OpenMyForm( _
  FormName As String, _
  WhereCondition As String, _
  OpenAsDatasheet As Boolean)

  If CurrentProject.AllForms(FormName).IsLoaded Then
    DoCmd.Close acForm, FormName
  End If

  If OpenAsDatasheet Then
    DoCmd.OpenForm FormName, _
                   WhereCondition:=WhereCondition, _
                   View:=acFormDS
  Else
    DoCmd.OpenForm FormName, _
                   WhereCondition:=WhereCondition, _
                   View:=acNormal
  End If
End Sub


Não queremos continuar adicionando mais linhas de código, então modificamos o OpenMyForm para usar o modo nativo do Access AcFormView, AcFormOpenDataMode e AcWindowMode:


Public Sub OpenMyForm ( _
  FormName As Variant, _
  Optional View As AcFormView = acNormal, _
  Optional FilterName As Variant, _
  Optional WhereCondition As Variant, _
  Optional DataMode As AcFormOpenDataMode = acFormPropertySettings, _
  Optional WindowMode As AcWindowMode = acWindowNormal, _
  Optional OpenArgs As Variant)
  If CurrentProject.AllForms(FormName).
IsLoaded Then
    DoCmd.Close acForm, FormName
  End If
  DoCmd.OpenForm FormName, _
                 View, _
                 FilterName, _
                 WhereCondition, _
                 DataMode, _
                 WindowMode, _
                 OpenArgs
End Sub

Se você usar o navegador de objeto (F2) e olhar para cima DoCmd.OpenForm, notará que os parâmetros são exatamente iguais. Quando adicionar uma nova linha OpenMyForm, ainda receberá a mesma ajuda intellisense que teve com DoCmd.OpenForm originais.

Como os parâmetros são definidos usando os mesmos tipos de dados (perceba que as enumerações são uma forma de tipo de dados), nomeando os mesmos nomes, e têm os mesmos padrões, todas as variantes possíveis de DoCmd.OpenForm, omitem argumentos, use vírgulas para pular alguns argumentos opcionais, trabalhando com o novo OpenMyForm sem quaisquer alterações, além do fato de que nós temos a garantia de que a filtragem será a atual.

Para descobrir quais enumerações são built-in para o Access e o DAO, pressione F2 para abrir e olhando para o acesso e/ou bibliotecas DAO para ver como as enumerações são nomeadas. Se olhar para o intellisense, verá que ele mostra o tipo de dados, incluindo o nome de enumerações para que possa usá-lo e obtê-las de modo correto no seu próprio código . Claro que não está limitado a apenas acesso e / ou enumerações DAO.

Quais são os outros usos para as enumerações embutidas ? Deixe-me saber nos comentários!





Tags: VBA, Access, intellisense, procedure, built-in, 




Inline image 1


Nenhum comentário:
Tags: , , , ,

VBA Outlook - Inserindo assinatura no e-mail com o Early Binding - Insert Outlook Signature in mail


O código nesta página só funciona quando você usa o Outlook como seu programa de email.

Early Binding (Compreendendo o Early Binding e o Late Binding)

Se quisermos melhorar o que desenvolvemos nos três códigos anteriores (1, 2 e 3) e usarmos a ajuda do Intellisense para nos mostrar as propriedades e métodos dos objetos, bem como os seus tipos, podemos implementar a técnica do Early Binding. 

Isso certamente tornará a aplicação um pouco mais rápida ao executar o código, mas poderemos ter problemas ao distribuirmos as planilhas. O MS Excel automaticamente atualizará a versão da referência feita no MS Outlook quando abrirmos nossa planilha na versão mais atualizada disponível, mas não a atualizará quando esta for aberta numa versão inferior.

Com o Late Binding como usei nos exemplos de código, não teremos tal problema.

Adicione uma referência para o Microsoft Outlook Library no Excel:

1) Vá para o editor VBA com as teclas de combinação Alt - F11.

2) Clique em Ferramentas / Referências no Menu.

3) Marque a caixa antes de Microsoft Outlook XX Object Library. O valor que estiver em XX será o número da versão do MS Outlook.

Então troque as três linhas de código abaixo:

Dim OutApp As Object
Dim OutMail As Object

Set OutMail = OutApp.CreateItem(0)

Por estas 3 linhas:

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem

Set OutMail = OutApp.CreateItem(olMailItem)

Referência: Ron de Bruin 

Tags: VBA, Outlook, email, e-mail, send, enviar, assinatura, signature, Early Binding, Late Binding, Intellisense, 


Nenhum comentário:
Tags: , , , , , , , , , ,
Assinar: Postagens (Atom)
diHITT - Notícias