É simples, mas pode salvá-lo quando estiver rodando sua aplicação num
ambiente com várias versões do MS Access...
- Você poderá restrigir o accesso a sua base de dados caso o usuário final tenha uma versão incompatível do Access.
- Poderá adicionar ou excluir certas funcionalidades da sua aplicação de acordo com a versão do MS Access presente.
1 2 3 4 5 6 | Function GetAccessVersion() As Long ' returns application version Let GetVersion = Application.SysCmd(acSysCmdAccessVer) End Function |
Para que retorne a versão do Access na sua aplicação, apenas evoque GetAccessVersion(). abaixo estão os números correspondentes às versões mais recentes:
- MS Access 97 — Versão 8
- MS Access 2000 — Versão 9
- MS Access 2002 — Versão 10
- MS Access 2003 — Versão 11
- MS Access 2007 — Versão 12
André Luiz Bernardes
Nenhum comentário:
Postar um comentário