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

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

ACESSE  CÓDIGO ATUALIZADO PARA TODAS AS VERSÕES AQUI.

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

brazilsalesforceeffectiveness@gmail.com

            

VBA Excel - Barra de Status Informativa - Info Status Bar

| Blog Office VBA | Blog Excel | Blog Access |

+ de 100.000 VISITAS

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

Podemos aumentar  a quantidade de visualizações sobre o que estamos fazendo, colocando detalhes na nossa Barra de Status do MS Excel. Chamaremos este exemplo de INFO STATUS BAR.

Antes de continuar, um pequeno parênteses, deixe seus comentários para este post. 

Como sempre fazemos, é bom lembrar que este exemplo de código serve para que possamos ampliar a nossa visão sobre como utilizar outras informações muito mais úteis do que estas na Barra de Status, fica o exemplo!

Ahhh, e faremos passo a passo para incluir os iniciantes.

Início

Já percebeu que ao selecionarmos um range de células, não conseguimos observar o range selecionado na  

'Name Box'? (Veja abaixo)

Tampouco, observamos este Range na Barra de Status.

PASSO 01

Com o intuito de inserirmos um código que possa demonstrar o que selecionamos, vá para o VBE (pressione Alt + F11), e então dê umduplo clique em 'EstaPasta_de_trabalho' (ou 'ThisWorbook' se a sua versão do MS Office estiver em inglês).

PASSO 02

Ao lado direito, na área do editor, copie e cole o código abaixo:

Private Sub Workbook_SheetSelectionChange

(ByVal Sh As Object, ByVal Target As Range)

    ' Author                        Contact                        Place

    ' André Luiz Bernardes          bernardess@gmail.com          http://inanyplace.blogspot.com/

    ' Mostra as células que foram marcadas na barra de status.

    

    Dim cCell As Variant, i As Range

  

    For Each i In Selection.Areas

        Let cCell = cCell + CDec(i.Rows.Count) * i.Columns.Count

    Next

    Let Application.StatusBar = Replace(Selection.Address(0, 0) & " selecionadas (" & cCell & Left(" Célula(s)", 11 + (cCell = 1)) & ")", ",", ", ")

End Sub

PASSO 03

Agora quando selecionar qualquer parte da planilha, sempre observará algo similar a isso:

Muito bem, o exemplo acabou aqui. Mas lembre-se, este foi apenas uma aplicabilidade para a utilização da Barra de Status. Colocarei outras aplicações abaixo para que continue se exercitando:

Exemplo 01

Se você, no código VBA, desligou a atualização da tela, e seus códigos levarem algum tempo para processar, o usuário pode pensar que o computador parou de responder. Por isso, uma boa regra de programação é informar ao usuário sobre a evolução do processamento, exibindo [no mínimo] uma mensagem na Barra de Status na parte inferior da tela.

Sub StatusBarSample()

    Let Application.ScreenUpdating = False 

    ' Desliga a atualização da tela.

    

    ' Certifica-se de que a Barra de Status estará funcional.

    Let Application.DisplayStatusBar = True    

    Let Application.StatusBar = "Por favor, aguarde a execução da 1ª Parte..."

    ' No ponto abaixo, algum código é adicionado para o processamento.

    Application.Wait Now + TimeValue("00:00:02")

    Let Application.StatusBar = "Aguarde a execução da 2ª Parte..."

    

    ' Adicione algum código para o processamento da 2ª Fase.

    Application.Wait Now + TimeValue("00:00:02")

    Let Application.StatusBar = False 

End Sub

Exemplo 02

Você tem um processo que leva algum tempo para ser executado. Talvez uns 30 segundos, talvez 10 minutos. De qualquer forma você quer que o usuário saiba que a macro está sendo executado e em que parte do processe está:

Sub StatusBar()

    ' Author                        Contact                        Place

    ' André Luiz Bernardes          bernardess@gmail.com           http://inanyplace.blogspot.com/

    ' Efetua um contador.

         

    Dim x               As Integer

    Dim MyTimer         As Double

     

    Let Application.StatusBar = True

    

    ' Adapte este loop se for necessário.

    For x = 1 To 250

        Let MyTimer = Timer

        

        Do

        Loop While Timer - MyTimer < 0.03

         

        Application.StatusBar = "Progresso: " & x & " de 250: " & Format(x / 250, "Percent")

        

        DoEvents

    Next x

     

    Let Application.StatusBar = False

End Sub

Tags: Barra de Status, Bernardes, Excel, information, iniciantes, Microsoft, MS, Office, range, select, Status, Status Bar, VBA

VBA Access - Documentando todos os objetos - Loop Through All Objects

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

Para os que não gostam de documentar as suas aplicações, saibam, me agradecerão depois. Documentar é essencial para mantermos certa ordem sob os nossos códigos.

Acreditem, ninguém tem uma memória tão prodigiosa ao ponto de não esquecer tudo o que desenvolveu em uma semana. Resguardar-se não lhe fará mal. Tendo isso em mente, sirvo-lhes um código que tem por objetivo expor todos os objetos da sua aplicação MS Access.

São códigos que fazem 'loopings' na maioria das coleções que desejamos documentar dentro de um projeto. E é lógico, isso pode ser ampliado e melhorado.

GUARDEM ESSES CÓDIGOS NUM LUGAR QUE POSSAM ACESSAR FACILMENTE QUANDO PRECISAREM. POIS ACREDITEM, VOCÊS PRECISARÃO.

Boa diversão!

'Loop em todos os formulários:

Public Sub FormsLoopSkeleton()

    'Código para percorrer todo os Forms da coleção (formulários fechados).

    Dim myForm As AccessObject

    For Each myForm In CurrentProject.AllForms

        

        'Código visualizar os nomes

        Debug.Print myForm.Name

    

    Next

End Sub

'Loop em todos os relatório:

Public Sub LoopThroughAllReports()

    Dim myReport As AccessObject

    For Each myReport In CurrentProject.AllReports

        

        ''Código visualizar os nomes

        Debug.Print myReport.Name

        

    Next

End Sub

'Loop em todos os formulários abertos:

Public Sub LoopThroughOpenForms()

    Dim myForm As Form

    For Each myForm In Forms

        

        'Código visualizar os nomes

        Debug.Print myForm.Name

        

    Next

End Sub

'Loop em todos os relatórios abertos:

Public Sub LoopThroughOpenReports()

    Dim myReport As Report

    For Each myReport In Reports

        

        'Código visualizar os nomes

        Debug.Print myReport.Name

        

    Next

End Sub

'Loop em todas as queries:

Public Sub QueriesLoopSkeleton()

    Dim myObject As AccessObject

    For Each myObject In CurrentData.AllQueries

        

        'Código visualizar os nomes

        Debug.Print myObject.Name

    

    Next

End Sub

'Loop em todas as TABELAS:

Public Sub TablesLoopSkeleton()

    Dim myObject As AccessObject

    For Each myObject In CurrentData.AllTables

        

        'Código visualizar os nomes

        Debug.Print myObject.Name

    

    Next

End Sub

'PLUS: Extraindo todos os Labels.

Sub SkipLabels(ReportName As String, LabelsToSkip As Byte, Optional PassedFilter As String)

    'Declara algumas variáveis.

    Dim MySQL, RecSource, FldNames As String

    Dim MyCounter As Byte

    Dim myReport As Report

    'Desligas as mensagens de aviso.

    DoCmd.SetWarnings False

    

    ' Copia todos os LABELS originais do relatório 

    ' para o objeto LabelsTempReport

    DoCmd.CopyObject , "LabelsTempReport", acReport, ReportName

    ' Abre o objeto LabelsTempReport na visão de Design.

    DoCmd.OpenReport "LabelsTempReport", acViewDesign

    ' Obtém os nomes das queries e consultas sob os relatórios,

    ' e os guarda aqui na variável RecSource .

    Let RecSource = Reports!LabelsTempReport.RecordSource

    ' Fecha o objeto LabelsTempReport

    DoCmd.Close acReport, "LabelsTempReport", acSaveNo

  

    'Declara um Recordset ADODB chamado de MyRecordSet

    Dim cnn1 As ADODB.Connection

    Dim MyRecordSet As New ADODB.Recordset

    Set cnn1 = CurrentProject.Connection

    Let MyRecordSet.ActiveConnection = cnn1

   

    ' Lê os dados do objeto RecSource para o objeto MyRecordSet

    Let MySQL = "SELECT * FROM [" + RecSource + "]"

    MyRecordSet.Open MySQL, , adOpenDynamic, adLockOptimistic

    ' Extrai os nomes dos campos e os seus 

    ' respectivos tipos da coleção Fields collection.

    Dim MyField As ADODB.Field

    

    For Each MyField In MyRecordSet.Fields

        ' Converte o campo AutoNumber (Tipo=3) para Long

        ' para evitar problemas de inserção posterior.

        If MyField.Type = 3 Then

            Let FldNames = FldNames + "CLng([" + RecSource + _

                "].[" + MyField.Name + "]) As " + MyField.Name + ","

        Else

            Let FldNames = FldNames + _

                "[" + RecSource + "].[" + MyField.Name + "],"

        End If

    Next

    'Remove vírgula a direita.

    Let FldNames = Left(FldNames, Len(FldNames) - 1)

   

    'Cria uma tabela vazia com a mesma estrutura RecSource, 

    'sem quaisquer campos AutoNumeração.

    Let MySQL = "SELECT " + FldNames + _

        " INTO LabelsTempTable FROM [" + _

        RecSource + "] WHERE False"

    MyRecordSet.Close

    DoCmd.RunSQL MySQL

   

    ' A seguir adiciona registros em branco para 

    ' esvaziar no objeto LabelsTempTable.

    Let MySQL = "SELECT * FROM LabelsTempTable"

    MyRecordSet.Open MySQL, , adOpenStatic, adLockOptimistic

    For MyCounter = 1 To LabelsToSkip

        MyRecordSet.AddNew

        MyRecordSet.Update

    Next

    'Agora o objeto LabelsTempTable tem registros vazios suficientes nele.

    MyRecordSet.Close

    ' Construa uma cadeia de SQL para anexar todos os registros da fonte

    ' original (RecSource) no objeto LabelsTempTable.

    Let MySQL = "INSERT INTO LabelsTempTable"

    Let MySQL = MySQL + " SELECT [" + RecSource + _

        "].* FROM [" + RecSource + "]"

    ' Adere à condição PassedFilter, se existir.

    If Len(PassedFilter) > 1 Then

        MySQL = MySQL & " WHERE " & PassedFilter

    End If

    ' Acrescenta os registros

    DoCmd.RunSQL MySQL

    ' O objeto LabelsTempTable está pronto agora

    ' Em seguida nós fazemos LabelsTempTable o registro fonte

    ' para LabelsTempReport.

    DoCmd.OpenReport "LabelsTempReport", acViewDesign, , , acWindowNormal

    Set myReport = Reports![LabelsTempReport]

    Let MySQL = "SELECT * FROM LabelsTempTable"

    Let myReport.RecordSource = MySQL

    DoCmd.Close acReport, "LabelsTempReport", acSaveYes

    ' Agora podemos finalmente imprimir os labels.

    'DoCmd.OpenReport "LabelsTempReport", acViewPreview, , , acWindowNormal

    'Nota: As written, procedure just shows labels in Print Preview.

    'To get it to actually print, change acPreview to acViewNormal

    'in the statement above.

    ' Como escrito, o procedimento só mostra labels na prévia de impressão '

    ' para obtê-los realmente para imprimir, 

    ' altere acPreview para acViewNormal na declaração acima.

End Sub

ACESSE OUTRO CÓDIGO ATUALIZADO PARA TODAS AS VERSÕES AQUI.

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

brazilsalesforceeffectiveness@gmail.com

            

VBA Access - Usando o Sistema de Cores do Windows(R) nas suas aplicações.

| Blog Office VBA | Blog Excel | Blog Access |

Quando estamos desenvolvendo aplicações que serão utilizadas num departamento ou mesmo na empresa com o um todo, sempre nos deparamos com os 'gostos' personalizáveis dos usuários e, apesar de desejarmos ignorá-los, devemos tê-los em consideração.

Também pode ser possível que o nosso cliente utilize a nossa aplicação em diversos locais diferentes e nestes casos o gosto das inúmeras pessoas que utilizarão nossa aplicação serão multiplicados ao excesso.

Nos casos acima e ainda em outros pode ser interessante permitir que a interface da aplicação possa adequar-se ao conjunto de cores padrão do Windows® que estiver configurado na máquina do usuário que a rodará.

Esse aparente detalhe pode ser a diferença entre fazer sua aplicação ser melhor aceita pelos usuários ou ser prontamente rejeitada por ter uma cor que não se harmoniza com o gosto geral.

Abaixo transcrevo uma solução muito interessante de Peter´s Software, sei que gostará, pelo menos como fonte de estudos e inspiração.

Abaixo segue o sistema de cores:

ID da Cor        Descrição da Cor

---------------        ----------------------------

-2147483648 Scroll bar

-2147483647 Desktop

-2147483646 Active window title bar

-2147483645 Inactive window title bar

-2147483644 Menu bar

-2147483643 Window

-2147483642 Window frame

-2147483641 Menu Text

-2147483640 Window Text (*)

-2147483639 Title bar text

-2147483638 Active window border

-2147483637 Inactive window border

-2147483636 Application background

-2147483635 Highlight

-2147483634 Highlight Text

-2147483633 3-D face (**)

-2147483632 3-D shadow

-2147483631 Dimmed (disabled) text

-2147483630 Button Text

-2147483629 Inactive window title bar text

-2147483628 3-D highlight (***)

-2147483627 3-D dark shadow

-2147483626 3-D light

-2147483625 ToolTip Text

-2147483624 ToolTip background

-2147483621 Active window title bar color2

  * - Cor das fontes.

 ** - Detalhes no backcolor do FORM, desabilitando a caixa de texto.

*** - Texto do Label.

Ei, talvez queira a aplicação pronta. Para importar este FORM na sua aplicação e beneficiar-se da interface acima, baixe-a aqui.

Para manter as cores de todos os FORMs da sua aplicação identificados com a mesma cor do esquema de cores do Windows®, o usuário poderá ir ao Painel de Controle > Vídeo > Aparência.

Aplicável em: MS Access 97, MS Access 2000, MS Access 2002, MS Access XP, MS Access 2007, MS Access 2010

Fonte: Peter´s Software

Tags: Bernardes, VBA, Office, Access, Windows, automation, color, colors, background, text, bar, cor

VBA Access - Documentando os objetos da aplicação

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

ACESSE AO CÓDIGO ATUALIZADO PARA TODAS AS VERSÕES AQUI.

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

brazilsalesforceeffectiveness@gmail.com

            

VBA Access - Documentando os objetos da aplicação

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

ACESSE AO CÓDIGO ATUALIZADO PARA TODAS AS VERSÕES AQUI.

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

brazilsalesforceeffectiveness@gmail.com