Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Vitrine

+Views

Widgets Mundo Blogger

Pesquisando informações em base de dados MS Access, colando-os numa planilha MS Excel

Observe os 2 blocos de código disponíveis abaixo: - O primeiro inserirá dados na tabela do MS Access e a partir do MS Excel;
- O segundo lerá dados da tabela no MS Access e os colará na planilha do MS Excel.
ANDRÉ BERNARDES
Santos - SP - Brasil
SKYPE: inanyplace
TWITTER: bernardess

Controlando a Barra de Status no MS Access

Enquanto processos estão sendo executados na aplicação que você desenvolveu, uma ajuda quanto ao que está ocorrendo é sempre bem vinda para os usuários. Não são raros os momentos onde processamentos mais delongados denotam um aparente travamento, quando na verdade nada mais é do que o tempo necessário para se realizar um determinado processamento de dados. Para nos ajudar nisso, podemos utilizar a Barra de Status do MS Access, enviando mensagens, permitindo que o usuário tenha conhecimento das ações mais relevantes que estão sendo executadas no momento.Utilizando o VBA, podemos colocar tais mensagens na barra acinzentada inferior. Utilize uma idéia similar para notificar as ações mais importantes da sua aplicação. Abaixo está um modelo simples e prático. Sub StatusBar(Optional nMessage As Variant) Dim Efemero As Variant ' Caso o parâmetro nMessage seja omitido ou fique vazio o controlo sobre a Barra de Status volta para o MS Access. If Not IsMissing(nMessage) Then If Msg <> "" Then let Efemero = SysCmd(acSysCmdSetStatus, nMessage) Else let Efemero = SysCmd(acSysCmdClearStatus) End If Else Efemero = SysCmd(acSysCmdClearStatus) End If End Sub Tags: MS Access, VBA, StatusBar, message, notification, temporário Também disponível em: Ativo Access ANDRÉ BERNARDES Santos - SP - Brasil MSN: bernardess@gmail.com SKYPE: inanyplace TWITTER: bernardess My Profile: http://al-bernardes.sites.uol.com.br/ In LinkedIn: http://www.linkedin.com/in/andrebernardes In Plaxo: http://andrebernardes.myplaxo.com/ In Jobster: http://www.jobster.com/people/andrebernardes My experiences: http://andrelbernardes.sites.uol.com.br/MIS.html http://andrelbernardes.sites.uol.com.br/XLS.html Acesse meus Feeds: http://www.google.com/reader/shared/17429357110218427555 Acesse o portfólio: http://www.slideshare.net/bernardes/informaes-ao-invs-de-dados-presentation
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias