Erro em tempo de execução "424" - tblCliente.RecordCount

Erro em tempo de execução 424

Causado o erro na linha: If tblCliente.RecordCount > 0 Then

'Código completo:
Private Sub Form_Open(Cancel As Integer)

If tblCliente.RecordCount > 0 Then
Me.lblTitulo1.Caption = DLookup("titulo1", "tblCliente")
Me.lblTitulo2.Caption = DLookup("titulo2", "tblCliente")
Me.lblTitulo3.Caption = DLookup("titulo3", "tblCliente")

DoCmd.OpenForm "Frm_Menu"
DoCmd.Maximize

Else

MsgBox "Registro está vazio, favor preencher!", vbExclamation

DoCmd.OpenForm "FormInformacoes"

End If

End Sub

Tente

If tblCliente.Recordset.RecordCount > 0 Then

Olá Avelino bom dia,

O código foi corrigido com esta informação, mas existe algum pequeno detalhe que não captei, pois mesmo com as colunas da tabela preenchida passa para o Else.

Esta tabela, fornece apenas os títulos para o Frm_Menu. É apenas um registro.
Lembrando que esta tabela está na rede (vinculada).

Fiz como está abaixo e apresenta a tela com a informação: -1
Depois disso trava o Frm_Menu.
Testei com a tabela tanto preenchida como vazia e resultou na mesma informação: -1

'Evento do Frm_Menu
Private Sub Form_Open(Cancel As Integer)

   MsgBox CurrentDb.TableDefs("tblCliente").RecordCount
   If CurrentDb.TableDefs("tblCliente").RecordCount > 0 Then
   
       Me.lblTitulo1.Caption = DLookup("titulo1", "tblCliente")
       Me.lblTitulo2.Caption = DLookup("titulo2", "tblCliente")
       Me.lblTitulo3.Caption = DLookup("titulo3", "tblCliente")
       
       DoCmd.OpenForm "Frm_Menu"
       DoCmd.Maximize
       
   Else
       MsgBox "Registro está vazio, favor preencher!", vbExclamation
       DoCmd.OpenForm "FormInformacoes"

   End If
End Sub

Mais uma vez Avelino,

_ Com a tabela preenchida, funcionou blz...

_ Com a tabela vazia
Acontece do Frm_Menu ficar na frente do FormInformacoes.

Frm_Menu: pop-up e janela restrita
FormInformacoes: pop-up e janela restrita

Só lembrando que uso a tela de login, que ao logar e depois do Else, mostra a MsgBox "Registro está vazio...

Else
      MsgBox "Registro está vazio, favor preencher!", vbExclamation
      DoCmd.OpenForm "FormInformacoes"

Após a MsgBox vem os dois Forms, o Frm_Menu na frente.