[Resolvido]Mostrar total de registro no formulário de abertura

Ola,

Tenho um BD com duas tabelas principais tabela11 e tabela2

Ao abrir meu form inicial tenho a seguinte instrução para preencher as caixas de texto Desacopladas
nesse form com o total de registros para tabela11 (txtot) e total para tabela2 (Txtotm).

Private Sub Form_Load()
On Error GoTo fim
Dim db As Database 'declara variavel db como banco de dados
Dim Dbm As Database

Dim rs As Recordset 'declara variavel rs como tabela
Dim rsm As Recordset
Set Dbm = CurrentDb

Set db = CurrentDb 'inicia variavel db como banco de dados atual
Set Dbm = CurrentDb
Set rs = db.OpenRecordset("tabela11") 'inicia variavel rs como tabela
Set rsm = db.OpenRecordset("tabela2")
rs.MoveLast
txtot = (rs.RecordCount) 'caixa txtot assume contagem dos registros
txtotm = (rsm.RecordCount)
fim:
Exit Sub
End Sub


Estava funcionando perfeitamente até dividir o BD em Front end e Back end
Depois de dividido só conta o tabela11, 570 registros e a tabela2 fica só em 1 , sendo que tem 1060 registros.


Podem me ajudar a voltar a contar nos dois casos?
Obrigado.

Olá;

Funcionava mas a modelagem não está correta.

Código:

Private Sub Form_Load()
'use sempre o DAO
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rsm As DAO.Recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("SELECT COUNT(*) FROM tabela11")
Set rsm = db.OpenRecordset("SELECT COUNT(*) FROM tabela2")

    If rs.RecordCount = 0 Then
      'não faz nada
      Else
    Me.txtot.Value = rs(0)
    End If
   
    If rsm.RecordCount = 0 Then
      'não faz nada
      Else
    Me.txtotm.Value = rsm(0)
    End If

rs.Close: Set rs = Nothing
rsm.Close: Set rsm = Nothing
Set db = Nothing
Exit Sub
End Sub

JPaulo,

Troquei a instrução pela sua mas ficou o mesmo resultado.

Esta contando os dois , mas o valor do txtotm não vai para a caixa de texto fica valor 1
o Txtot esta certo.


Banco dividido:


Banco sem dividir:

O recordset faz um count á tabela, se devolve 1 é porque só deve existir 1.

JPaulo,

Eu coloque ponto de verificação e ela esta contando certo, mas não transfere para a caixa de texto do form
o total contado.

Deletei a caixa de texto que recebe esse valor e criei outra para receber o mesmo valor e funcionou.

Obrigado.

Resolvido.

Fico feliz
Obrigado pelo retorno o fórum agradece.