MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Contador de Registros Salvos no Formulário

    avatar
    alexleite
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 11/02/2016

    [Resolvido]Contador de Registros Salvos no Formulário Empty [Resolvido]Contador de Registros Salvos no Formulário

    Mensagem  alexleite 11/3/2016, 15:02

    Pessoal, preciso de algo muito simples, que não localizei no Fórum, que é mostar a Quantidade de Registros que o Usuário salvou num Formulário, que tem um textbox chamado txtQtdeDigitada, enquanto ele não o fechar.

    Fiz o seguinte, para criar o contador:

    Private Sub Form_Load()
    Dim QtdeRG As Integer
    QtdeRG = 0
    End Sub

    Para somar ao contador:
    Private Sub Comando_Salvar_Registro_Click()
    Dim RstControl As DAO.Recordset
    Set RstControl = CurrentDb.OpenRecordset("SELECT * FROM Tab_RG")
    With RstControl
    .AddNew
    !Campo1 = Me.Var1
    !Campo2 = Me.Var2
    !Campo3 = Me.Var3
    !Campo4 = Me.Var4
    .Update
    End With
    RstControl.Close
    Set RstControl = Nothing
    Me.txtUltimoRG = Me.txtRgRg
    QtdeRG = QtdeRG + 1
    txtQtdeDigitada = Str(QtdeRG) '<<<==== AQUI ELE DEVERIA MOSTRAR NA TEXTBOX !!!!

    End Sub

    E se eu quisesse mostrar o último registro inserido, ou mesmo os últimos, tipo uma folha de dados como um subformulário, também é possível, certo?
    Abraço
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 638
    Registrado : 02/10/2011

    [Resolvido]Contador de Registros Salvos no Formulário Empty Re: [Resolvido]Contador de Registros Salvos no Formulário

    Mensagem  rubenscouto 11/3/2016, 16:11

    Tente assim:

    Private Sub Comando_Salvar_Registro_Click()
    Dim RstControl As DAO.Recordset
    Set RstControl = CurrentDb.OpenRecordset("SELECT * FROM Tab_RG")
    With RstControl
    .AddNew
    !Campo1 = Me.Var1
    !Campo2 = Me.Var2
    !Campo3 = Me.Var3
    !Campo4 = Me.Var4
    .Update
    QtdeRG = QtdeRG + 1
    txtQtdeDigitada = Str(QtdeRG)
    End With
    RstControl.Close
    Set RstControl = Nothing


    Me.txtUltimoRG = Me.txtRgRg

    '<<<==== AQUI ELE DEVERIA MOSTRAR NA TEXTBOX !!!!

    End Sub
    avatar
    alexleite
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 11/02/2016

    [Resolvido]Contador de Registros Salvos no Formulário Empty Re: [Resolvido]Contador de Registros Salvos no Formulário

    Mensagem  alexleite 11/3/2016, 20:21

    Obrigado pelo retorno Rubens, mas não funcionou!!

    Continua trazendo apenas 1, ou seja, inicializa com 0 (Zero) no Form_Load e soma 1 vez.

    É como se ele Zerasse a variável, mas é só no Form_Load que ele faz isso.

    Será que alguém pode me ajudar?
    avatar
    alexleite
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 11/02/2016

    [Resolvido]Contador de Registros Salvos no Formulário Empty Re: [Resolvido]Contador de Registros Salvos no Formulário

    Mensagem  alexleite 14/3/2016, 16:07

    Ainda tentando resolver o problema do contador, se eu tiver uma consulta que me traga os totais de um Campo e por Data, como faço para utilizar esse campo calculado em um Formulário?

    Consulta: Cons_do_Atendente_por_Data

    Campos: Data                                                                     Cod_Atendente                                              Contar de Tab_RG:Contar(*)
    Tabela:   Tab_RG                                                                  Tab_RG
    Total:     Agrupar por                                                            Agrupar por                                                 Expressão
    Critério: [Formulários]![For_Tab_RG]![txtDataAtendimento]           [Formulários]![For_Tab_RG]![txtAtendente]

    Tendo em meu Formulário (For_Tab_RG) a Caixa de Texto txtQtdeDigitada, como faço para que tenha o valor que está no campo Expressão [Contar de Tab_RG], considerando que eu tenha os campos txtDataAtendimento e txtAtendente para, respectivamente, [Data] e [Cod_Atendente] da Consulta acima?

    O que pretendo é Mostrar o último RG digitado (ok) e a Qtde de RGs que o usuário digitou (Erro)
    O ideal seria, ao iniciar a aplicação, verificar se existem registros na mesma data para o atendente, o que a consulta já traz, senão começa com Zero.
    A partir de então, enquanto o atendente estiver digitando, deve-se somar 1 à Qtde Digitada toda vez que Salvar o Registro, evitando fazer sempre consultas ao BD, o que deixaria o sistema lento, já que utilizo em rede e vários usuários o utilizam ao mesmo tempo (até 7).

    Segue o BD

    Agradeço a atenção!
    Anexos
    [Resolvido]Contador de Registros Salvos no Formulário AttachmentVendas_3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (144 Kb) Baixado 4 vez(es)
    avatar
    alexleite
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 11/02/2016

    [Resolvido]Contador de Registros Salvos no Formulário Empty Re: [Resolvido]Contador de Registros Salvos no Formulário

    Mensagem  alexleite 17/3/2016, 21:06

    Consegui, pessoal!

    Utilizei a função Dlookup e deu certo!

    No primeiro Formulário: For_TelaInicial0:
    Public QtdeRG As Integer
    Public UltimoRG As String

    Private Sub CmdTelaInicialContinua_Click()
    QtdeRG = DLookup("[Contar De Tab_RG]", "Cons_RGs_do_Atendente_por_Data", "[Data] = #" & Forms![For_Tab_RG].txtDataAtendimento & "#" & _
    " AND [Cod_Atendente] = " & Forms![For_Tab_RG].txtAtendente)
    Forms![For_Tab_RG].txtQtdeDigitada = Str(QtdeRG)
    end sub

    Obrigado a todos.

      Data/hora atual: 11/4/2021, 13:21