[Resolvido]Instrução para verificar se tabela está vazia

Boa noite, Mestres.
Gostaria de saber se tenho como executar um ação no momento em que o BD é inicializado.
Por exemplo: Verificar se existe algum dado em uma determinada tabela, se a tabela estiver vazia é aberto um formulário para que seja inserido a informação e caso a mesma já esteja com informações, seria aberto o formulário de menu principal.

Desde já agradeço a atenção prestada de todos.

Boa noite amigo, seja bem vindo.. Vc pode usar este código no form login ou no form principal.. ao abrir

If DCount("seu código da tabela", "nome da tabela") = null Then

docmd.openform "seu formulário"

Obrigado, matheuspereira.
só não entendi o que seria esse "seu código da tabela"?.

Use assim. Seu código da tabela (chave primaria) , nome (qualquer campo da sua tabela para que o código verifique se esta vazio). Qualquer duvida poste o seu bd.. Se a tabela estiver vazia ele vai abrir o frm desejado em tempo de execução, mais ai pode ocorrer um problema ao abrir os dois forms ao mesmo tempo, para isso uso um form verificação.. teste ai e depois se quiser faço para vc.



If DCount("seu código da tabela", "nome da tabela") = 0 Then

docmd.openform "seu formulário"

Vocês do Forum são D+!!
Deu certo e ainda fiz um incremento com uma solução postada pelo JPaulo.
Vejam como fiz:

Ao executar o BD e ao abrir o menu principal é executado a seguinte instrução:

‘By matheuspereira – verifica se a tbl está vazia
Private Sub Form_Open(Cancel As Integer)
If DCount("Codigo_texto", "Esp_Ne") = 0 Then
DoCmd.Close
DoCmd.OpenForm "frm_EspNord", acNormal
End If
End Sub

No frm_EspNord o usuário terá que selecionar o Espaço Nordeste e em seguida clicar no botão OK, será roda a seguinte instrução:


Private Sub cbo_esp_AfterUpdate()
Me.txt_esp.Value = Me.cbo_esp.Column(1)
End Sub

‘By JPaulo – Transferir dados entre tabelas
Private Sub Ok_Click()
DoCmd.RunSQL "INSERT INTO [Esp Ne] ( UF, [Espaço Nordeste], Código_texto, Cod_EN )SELECT [Esp Ne_trans].UF, [Esp Ne_trans].[Espaço Nordeste], [Esp Ne_trans].Código_texto, [Esp Ne_trans].Cod_EN FROM [Esp Ne_trans] WHERE ((([Esp Ne_trans].[Espaço Nordeste])=[Formulários]![frm_EspNord]![txt_esp]))"
End Sub

Obrigado, Mestres!!

Boas amigo, qualquer duvida estamos ai. Sucesso