A muito tempo utilizei este módulo em um projeto, ele utiliza a comdlg32.dll para abrir a caixa de diálogo de procura e seleção de arquivos, com a principal vantagem de não precisar referenciar a comondlg em seu projeto.

Avisos de macros.

Vamos resolver esse problema que confunde o usuário ao abrir o aplicativo, fazendo parecer que ele está contaminado com vírus ou coisa assim, o que na maioria das vezes não é verdade.

'Função para abrir outro mdb via ADO

Dim db As Database
Dim rs As Recordset

Set db = DBEngine.Workspaces(0).OpenDatabase(Application.CurrentProject.path & "\mdb_externo.mdb")
Set rs = db.OpenRecordset("nome_da_tabela", dbOpenTable)

MsgBox rs!nome_da_coluna

Set rs = Nothing
Set db = Nothing

'Função para pegar número do HD

Public Function Verificar_NPJ(NRCNPJ_ADQ As String)
Dim X, X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13, X14 As Integer
Dim B1, B2, B3, B4, B5, B6, B7, V, DV As Integer

'Seleção de números
X = Left(NRCNPJ_ADQ, 1) 'Primeiro caractere
X1 = Left(NRCNPJ_ADQ, 2) 'Dois caracteres
X2 = Left(NRCNPJ_ADQ, 3) 'Três caracteres
X3 = Left(NRCNPJ_ADQ, 4)
X4 = Left(NRCNPJ_ADQ, 5)
X5 = Left(NRCNPJ_ADQ, 6)
X6 = Left(NRCNPJ_ADQ, 7)
X7 = Left(NRCNPJ_ADQ, 8)
X8 = Left(NRCNPJ_ADQ, 9)
X9 = Left(NRCNPJ_ADQ, 10)

Aqui temos algumas das funções básicas em formulários, isso nos ajuda ao programar a relembrar ações simples que nos falta a memória, exemplo:

Public Function Excluir()

DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
End Function

Informações sobre o Microsoft Access, uma ferramente marginalizada mas extremamente útil para analistas no mundo corporativo.