MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


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

    avatar
    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 274
    Registrado : 11/01/2012

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

    Mensagem  flecha em 17/1/2019, 13:07

    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.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em 17/1/2019, 13:26

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Mostrar total de registro no formulário de abertura Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Mostrar total de registro no formulário de abertura Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Mostrar total de registro no formulário de abertura Folder_announce_new Instruções SQL como utilizar...
    avatar
    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 274
    Registrado : 11/01/2012

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

    Mensagem  flecha em 17/1/2019, 14:11

    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:
    [Resolvido]Mostrar total de registro no formulário de abertura Tela10

    Banco sem dividir:
    [Resolvido]Mostrar total de registro no formulário de abertura Tela_b10
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em 17/1/2019, 19:19

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Mostrar total de registro no formulário de abertura Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Mostrar total de registro no formulário de abertura Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Mostrar total de registro no formulário de abertura Folder_announce_new Instruções SQL como utilizar...
    avatar
    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 274
    Registrado : 11/01/2012

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

    Mensagem  flecha em 17/1/2019, 21:07

    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.
    avatar
    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 274
    Registrado : 11/01/2012

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

    Mensagem  flecha em 17/1/2019, 21:25

    Resolvido.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em 17/1/2019, 21:31

    Fico feliz
    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Mostrar total de registro no formulário de abertura Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Mostrar total de registro no formulário de abertura Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Mostrar total de registro no formulário de abertura Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/1/2020, 07:36