Access - Passar critério para uma consulta via VBA

Isto é um quebra-galho mas funciona.
Cria-se uma variável global e uma função (que é o critério da consulta) recebe o valor.
Melhor visualizar o exemplo que fica mais fácil de entender.

;-)

O formato de arquivo XLSB do Excel

Os tradicionais arquivos com extensão XLSX do Excel 2007 e superiores, são arquivos compostos, ou seja, possuem vários XML dentro dele.
A forma mais fácil de visualizar isso, é abrindo um XLSX num compactador qualquer como o Winzip ou WinRar (veja abaixo um exemplo aberto com o WinRar).
Ao salvar o mesmo arquivo em formato XLSB ("B" de binário), os arquivos XML deixam de ser gravados e o resultado disso é um ganho substancial no tamanho final.
Na instituição onde trabalho atualmente, vejo muita gente utilizar o Excel como um repositório de dados, gerando arquivos imensos e ocupando muito espaço em rede.
Como esses arquivos não necessitam de recursos (macros por exemplo), ou seja, servem apenas para armazenar dados, a utilização do formato binário só traz vantagens: tamanho de arquivo menor e consequentemente, maior agilidade nas operações de abertura e salvamento.

;-)

Serviços Freelance

Procurando um profissional para um projeto rápido?
Ou procurando alguma forma de divulgar suas habilidades e assumir um trabalho temporário para ter uma renda extra?
Este site une esses dois tipos de perfis: http://www.freelance.com

;-)

VBA no Office 64 bits

Nunca tive a oportunidade de testar por não usar o Office 64 bits.
Segue o texto com o link para o site original, vou deixar aqui porque no site da Microsoft, os artigos costumam sumir....

https://msdn.microsoft.com/PT-BR/library/office/gg264421.aspx

Visão geral do Visual Basic for Applications de 64 bits

Office 2013 and later

O Microsoft Visual Basic for Applications (VBA) é a versão do Visual Basic fornecida com o Microsoft Office. O VBA do Microsoft Office 2010 inclui recursos de linguagem que permitem que o código do VBA funcione corretamente em ambientes de 32 bits e 64 bits.

Observação
Por padrão, o Office 2010 instala a versão de 32 bits. Você deve escolher explicitamente instalar a versão de 64 bits durante a instalação.

Erros

Observação
Você precisa modificar o código VBA somente se ele for executado na versão de 64 bits do Microsoft Office.

O problema com a execução do código herdado do VBA no Office de 64 bits ocorre porque a tentativa de carregar 64 bits em um tipo de dados de 32 bits trunca a quantidade de 64 bits. Isso pode resultar em saturações de memória, resultados inesperados no seu código e possíveis falhas no aplicativo.

Para resolver esse problema e ativar o código do VBA para que ele funcione corretamente em ambientes de 32 e 64 bits, foram adicionados vários recursos de linguagem ao VBA. A tabela na parte inferior deste documento resume os novos recursos de linguagem do VBA. Três adições importantes são o alias do tipo LongPtr, o tipo de dados LongLong e a palavra-chave PtrSafe.

• LongPtr - o VBA agora inclui um alias de tipo variável: LongPtr. O tipo de dados real que LongPtr resolve depende da versão do Office que está sendo executada no: o LongPtr resolve o Long em versões do Office de 32 bits e LongPtr resolve o LongLong na versão de 64 bits do Office. Use LongPtr para ponteiros e identificadores.
• LongLong – o tipo de dados LongLong é um inteiro de 64 bits com sinal disponível somente em versões de 64 bits do Office. Use LongLong para integrais de 64 bits. Funções de conversão devem ser usadas para atribuir o LongLong explicitamente (incluindo LongPtr em plataformas de 64 bits) para tipos de integral menores. As conversões implícitas de LongLong em integrais menores não é permitido.
• PtrSafe – a palavra-chave PtrSafe assegura que uma instrução Declare possa ser executada com segurança na versão de 64 bits do Office.

Todas as Instruções Declare agora devem incluir a palavra-chave PtrSafe para executar versões de 64 bits do Office. É importante esclarecer que a simples adição da palavra-chave PtrSafe a uma instrução Declare significa apenas que a instrução Declare é destinada explicitamente à versão de 64 bits, todos os tipos de dados dentro da declaração que precisam armazenar 64-bits (incluindo parâmetros e valores de retorno) ainda devem ser modificados para armazenar quantidades de 64 bits.

Observação
As instruções Declare com a palavra-chave PtrSafe é a sintaxe recomendada. As instruções Declare que incluem PtrSafe funcionam corretamente no ambiente de desenvolvimento do VBA7 em ambas as plataformas, de 32 e 64 bits. Para garantir a compatibilidade com versões anteriores no VBA7, use o construto a seguir:

VBA

#If Vba7 Then 
Declare PtrSafe Sub... 
#Else 
Declare Sub... 
#EndIf

Observe os seguintes exemplos de instrução Declare. Executar uma instrução Declare em versões doe 64 bits do Office resultará em um erro indicando que a instrução Declare não inclui o qualificador PtrSafe. O exemplo do VBA modificado contém um qualificador PtrSafe, mas observe que o valor retornado (um ponteiro para a janela ativa) retorna um tipo de dados Long. Na versão de 64 bits do Office, esse cenário está incorreto porque o ponteiro precisa ser de 64 bits. O qualificador PtrSafe informa ao compilador que a instrução Declare está direcionando a versão de 64 bits para que a instrução seja executada sem erro. Entretanto, como o valor retornado não foi atualizado para um tipo de dados de 64 bits, este será truncado, resultando em um valor retornado incorreto.

Exemplo de instrução Declare de VBA herdado não modificada:

VBA

Declare Function GetActiveWindow Lib "user32" () As Long

Exemplo de instrução Declare do VBA modificada para incluir o qualificador PtrSafe ainda usando o valor retornado de 32 bits:

VBA

Declare PtrSafe Function GetActiveWindow Lib "user32" () As Long

Relembrando: a instrução Declare deve ser modificada para incluir o qualificador PtrSafe e quaisquer variáveis dentro da instrução que precisem armazenar quantidades de 64 bits devem ser atualizadas para que as variáveis usem tipos de dados de 64 bits.

Exemplo d instrução Declaredo VBA modificada para incluir a palavra-chave PtrSafe e atualizada para usar o tipo de dado de 64 bits (LongPtr) adequado:

VBA

Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr

Em resumo, para que o código funcione em versões de 64 bits do Office, é necessário localizar e modificar todas as instruções Declare existentes para que elas usem o qualificador PtrSafe. Também é necessário localizar e modificar todos os tipos de dados dentro dessas instruções Declare que referenciam ponteiros e identificadores para que elas usem novos alias de tipo LongPtr compatíveis com a versão de 64 bits e tipos que precisam armazenar integrais de 64 bits com o novo tipo de dados LongLong. Além disso, é preciso atualizar todos os tipos definidos pelo usuário (UDTs) que contenham ponteiros ou identificadores e integrais de 64 bits para que eles usem tipos de dados de 64 bits e verifiquem todas as atribuições de variável corretas para evitar a ocorrência de erros de incompatibilidade de tipo.

Escrevendo o código que funciona no Office de 32 bits e de 64 bits

Para escrever um código que possa portar as versões de 32 e 64 bits do Office, você só precisa usar o novo alias de tipo LongPtr em vez de Long ou LongLong para todos os ponteiros e valores de identificador. O alias de tipo LongPtr resolverá o tipo de dados Long ou LongLong correto de acordo com a versão do Office que está sendo executada. Observe que, se você precisar de uma lógica diferente para a execução, por exemplo, para manipular valores de 64 bits em grandes projetos do Microsoft Excel, você pode usar a constante de compilação condicional Win64 conforme mostrado na seção a seguir.

Escrevendo o código que funciona no Microsoft Office 2010 (32-bit ou 64-bit) e versões anteriores do Office

Para escrever um código que funcione em versões novas e antigas do Office, você pode usar uma combinação das novas Constantes de Compilação condicional do VBA7 e Win64. A constante de compilação condicional do VBA7 é usada para determinar se o código está sendo executado na versão 7 do Editor do VB (versão do VBA fornecida com o Office 2010). A constante de compilação condicional do Win64 é usada para determinar que versão do Office (de 32 ou 64 bits) está sendo executada.

VBA

#if Vba7 then 
'  Code is running in the new VBA7 editor 
     #if Win64 then 
     '  Code is running in 64-bit version of Microsoft Office 
     #else 
     '  Code is running in 32-bit version of Microsoft Office 
     #end if 
#else 
' Code is running in VBA version 6 or earlier 
#end if 
 
#If Vba7 Then 
Declare PtrSafe Sub... 
#Else 
Declare Sub... 
#EndIf 

Resumo das atualizações de linguagem do VBA7

A tabela a seguir resume as novas adições de linguagem do VBA e fornece uma explicação sobre cada uma delas:

Nome	Tipo	Descrição
PtrSafe	Palavra-chave	Garante que a instrução Declare seja direcionada para sistemas de 64 bits. Necessário para versões de 64 bits.
LongPtr	Tipo de dados	Alias de tipo que mapeia o Long em sistemas de 32 bits, ou o LongLong em sistemas de 64 bits.
LongLong	Tipo de dados	Tipo de dados de 8 bytes que está disponível somente em sistemas de 64 bits. Tipo numérico. Números inteiros no intervalo de -9.223.372.036.854.775.808 a 9.223.372.036.854.775.807. O LongLong é um tipo declarado válido somente em plataformas de 64 bits. Além disso, o LongLong não pode ser convertido implicitamente em um tipo menor (por exemplo, não é possível atribuir um tipo de dados LongLong a um do tipo Long.). Isso é feito para evitar que haja truncamento de ponteiro inadvertidamente. Coerções explícitas são permitidas, portanto, no exemplo acima, é possível aplicar um CLng a um LongLong e atribuir o resultado a um Long. (Válido somente em plataformas de 64 bits.)
^	Caractere de declaração de tipo LongLong	Declara um valor literal explicitamente como um LongLong. Necessário para declarar um literal de LongLong maior que o valor de Long máximo (do contrário, ele será convertido implicitamente em double).
CLngPtr	função de conversão de tipo	Converte uma expressão simples em um LongPtr.
CLngLng	função de conversão de tipo	Converte uma expressão simples em um tipo de dados LongLong. (Válido somente em plataformas de 64 bits.)
vbLongLong	constante VarType	constante VarType
DefLngPtr	instrução DefType	Define o tipo de dados padrão para uma gama de variáveis como LongPtr.
DefLngLng	instrução DefType	Define o tipo de dados padrão para uma gama de variáveis como LongLong.

Excel VBA - Consolidar planilhas

O código abaixo é uma simplificação de um outro escrito pelo meu amigo Edson Luiz Branco, mais ou menos no ano 2000, não lembro exatamente o ano.
Na ocasião, eu precisava copiar e colar os dados de aproximadamente 200 planilhas para uma única e este código me salvou da árdua tarefa manual.

;-)

Sub ConsolidaNovo()

    Dim i               As Integer
    Dim NomeArquivo     As String
    Dim Origem          As Workbook
    Dim Caminho         As String
    
    Caminho = InputBox("Informe o caminho da pasta que contém as planilhas" & vbCrLf & "Exemplo: C:\Pastas\")
    If Caminho = "" Then Exit Sub
    
    If Right(Caminho, 1) <> "\" Then Caminho = Caminho & "\"
    
    NomeArquivo = Dir(Caminho)
    
    i = ActiveWorkbook.Sheets.Count

    Application.ScreenUpdating = False
    Do Until NomeArquivo = ""
        
        Set Origem = Workbooks.Open(Filename:=Caminho & NomeArquivo)
        
        Origem.ActiveSheet.Copy After:=Workbooks("Consolidar.xls").Sheets(i)

        Origem.Close SaveChanges:=False
        
        ActiveSheet.Name = NomeArquivo
        i = i + 1

        NomeArquivo = Dir
        Application.ScreenUpdating = True

    Loop

    Set Origem = Nothing
    
    Sheets(1).Select

End Sub

Transferir as regras do Outlook para outro computador

Criar regras dá trabalho mas o resultado é sempre ganho de produtividade.
Imagine o trabalho de ter de criar várias regras novamente quando se muda de computador.
Para evitar isso, o próprio Outlook tem o assistente para exportação e importação de regras.
Na versão 2010 siga estes passos:
Clique em Regras
Gerenciar Regras e Alertas
Opções
Logo você visualizará os botões de exportação e importação.

;-)

Post It

Mais uma dica simples e muito útil que acaba caindo no esquecimento: as notas autoadesivas.
Clique no menu Todos os programas > Acessórios > Notas adesivas.
O legal é que, ao desligar o computador, elas não se perdem, ou seja, quando o computador for ligado novamente, elas estarão lá novamente.

;-)

Dica do calendário do Windows 7

Um recurso tão simples que a maioria das pessoas nem sabe que existe.
Ao abrir o calendário do Windows (um clique no relógio que está no canto direito da barra de tarefas), clique uma vez sobre o mês conforme indicado nas figuras abaixo.
Depois clique no ano.
A navegação para períodos muito longos, principalmente em anos, fica muito fácil.
Esta dica sem imagens ficaria muito abstrata.

;-)

Excel e HTML

No momento não vejo utilidade para esta descoberta que aconteceu por acaso, mas acredito que em algum momento, será muito bom conhecer este comportamento do Excel:
Se você digitar o código HTML abaixo e colar numa célula do Excel, somente o texto será exibido.
É como se o Excel interpretasse o código HTML.

;-)

Problemas com conexão via ADO com SQL Server

Um caso curioso que vou deixar registrado aqui, talvez ajude alguém que passe pela mesma situação.
Outro dia, num dos computadores da empresa onde trabalho, um banco de dados Access 2013 que acessa um servidor SQL Server 2008 somente para obter dados de uma View simplesmente começou a exibir linhas duplicadas, por exemplo, se a consulta tivesse 10 registros, era exibido 1 registro repetido 10 vezes.
Depois de muitas tentativas de solucionar o problema, inclusive reparando a instalação do Office 2013 e sem obter sucesso, troquei o provider na string de conexão e .... funcionou!

De: Provider=SQLOleDB
Para: Provider=SQLNCLI

O interessante é que o problema ocorreu em apenas um dos computadores, os outros 3 continuam funcionando com o provider anterior.

;-)

Etapas rápidas no Outlook

Olá amigos!

Para quem utiliza o Outlook no dia a dia como ferramenta de produtividade, segue uma dica muito legal: as etapas rápidas.

Na guia Página Inicial, clique em Criar no grupo Etapas Rápidas e veja as opções disponíveis.

Utilizo muito para mover e-mails para pastas específicas no arquivo *.pst, evitando assim sobrecarregar minha cota no servidor Exchange.

O ganho em agilidade é muito grande e diminui muito a possibilidade de se mover um e-mail para uma pasta errada.

Como sempre, as imagens falam mais do que as palavras, então seguem os prints das telas.

:-)