Criei um formulário frmDelegacia de uma tabela tblDelegacia, no qual insiro os dados da delegacia que serão utilizados nos relatórios. Para que este formulário seja preenchido logo na primeira vez que o programa seja acessado, inseri o seginte código:
Como forma de exibir o formulario dos dados da delegacia para inserção dos dados loga na primeira vez que se acessa o programa, inseri o código:
Private Sub Form_Open(Cancel As Integer)
DadosDaTabela = DCount("*", "tblDados")
If DadosDaTabela = 0 Then
DoCmd.OpenForm "frmDelegacia", acNormal
Else
DoCmd.OpenForm "frmPesquisa", acNormal
End If
Porém, quando não há nenhum tipo de registro, o frmPesquisa, responsável por listar os registros inseridos no frmDados, aprece sem nenhum campo, ou seja, só a janela do formulário. Com o frmDados também ocorre.
O frmDelegacia também agia assim e só consegui parar depois que inseria o registro e apagava campo a campo, sem excluir através do comando, deixando apenas o campo "Código" com o dado.
Como forma de exibir o formulario dos dados da delegacia para inserção dos dados loga na primeira vez que se acessa o programa, inseri o código:
Private Sub Form_Open(Cancel As Integer)
DadosDaTabela = DCount("*", "tblDados")
If DadosDaTabela = 0 Then
DoCmd.OpenForm "frmDelegacia", acNormal
Else
DoCmd.OpenForm "frmPesquisa", acNormal
End If
Porém, quando não há nenhum tipo de registro, o frmPesquisa, responsável por listar os registros inseridos no frmDados, aprece sem nenhum campo, ou seja, só a janela do formulário. Com o frmDados também ocorre.
O frmDelegacia também agia assim e só consegui parar depois que inseria o registro e apagava campo a campo, sem excluir através do comando, deixando apenas o campo "Código" com o dado.