Você que quer saber como colocar aquela barra de status, que aparece carregando antes de abrir os programas no access, esta é uma otima oportunidade de aprender.
É muito facil, vou colocar abaixo o link do you tube do meu video explicando como cria-la e também colocarei o codigo VBA para vocês poderem copia-lo.
Video demonstrativo
Codigo Visual Basic Access Barra de Status
Option Compare Database
'Este comando iniciara a função
Dim intLarguraTotalDaBarraDeProgresso As Integer
Private Sub Form_Load()
'Este comando vai ser utilizado quando carregar o comando
intLarguraTotalDaBarraDeProgresso = Me.shpProgressBar.Width
Me.shpProgressBar.Width = 0
Me.TimerInterval = 10 'este valor define a velocidade do cursor
End Sub
Private Sub Form_Timer()
'Esta funçao é o termino do comando
If Me.shpProgressBar.Width >= intLarguraTotalDaBarraDeProgresso Then
'Aqui o código que será disparado quando a barra de progresso
'atingir a largura total.
Dim stDocName As String 'Esta função descrita abaixo vai ser utilizada para que quando a barra
'de status for totalmente carregada, abrira o formulario desejado
Dim stLinkCriteria As String
stDocName = "XXXXXXX" 'Substitua os XXXXXX pelo nome do Formulário que voce deseja abrir
DoCmd.OpenForm stDocName, , , stLinkCriteria
Me.shpProgressBar.Width = intLarguraTotalDaBarraDeProgresso
Me.TimerInterval = 0
Else
Me.shpProgressBar.Width = Me.shpProgressBar.Width + 30
'Para ficar legal crie um botão no formulario
'fechar formulario
'Na propriedades do botao,ao clique em ... e clique em construir macro
'Crie uma macro para fechar os dois formulario ao mesmo tempo
End If
End Sub
