Tenho um banco de dados para registro de processos internos no setor onde trabalho. Pra cada pessoa tenho vários processos em andamento. Preciso que aparece para mim no formulário qual o número sequencial do processo. Por exemplo, Maria Soraia tem 5 processos, quando digito o código dela, paparecerá no meu subformulário o primeiro deles, já consegui com a função Contar que aparecesse a quantidade de processos, mas queria um ponteiro para me dizeer se é o primeiro, o segundo. Alguém me ajuda?
3 participantes
[Resolvido]Contagem de registros
neiltond- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 16
Registrado : 23/01/2014
- Mensagem nº1
[Resolvido]Contagem de registros
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
- Mensagem nº2
Re: [Resolvido]Contagem de registros
Bom dia, seja bem vindo ao nosso fórum...
talvez, possa ser o usado o seguinte comando, que irá abri no último registro da pessoa em questão:
DoCmd.GoToRecord , , acLast
Insira esse comando, no evento que esta a utilizar para abrir o formulário em questão.
Sucesso a ti.
talvez, possa ser o usado o seguinte comando, que irá abri no último registro da pessoa em questão:
DoCmd.GoToRecord , , acLast
Insira esse comando, no evento que esta a utilizar para abrir o formulário em questão.
Sucesso a ti.
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010
- Mensagem nº3
Re: [Resolvido]Contagem de registros
Silvio,
acho que ele está querendo mostrar a posição do registro em relação ao total. Tipo 1 de 7, 5 de 7
Se for isso e estiver usando o formulário acoplado a consulta(tabela), use o evento "No atual" do formulário para preencher o campo da posição atual.
E para o campo que apresenta o total, coloque:
=count(*)
Sucesso!
acho que ele está querendo mostrar a posição do registro em relação ao total. Tipo 1 de 7, 5 de 7
Se for isso e estiver usando o formulário acoplado a consulta(tabela), use o evento "No atual" do formulário para preencher o campo da posição atual.
Private Sub Form_Current()
Me!NomeDocampo = Me.Recordset.AbsolutePosition + 1
End Sub
E para o campo que apresenta o total, coloque:
=count(*)
Sucesso!
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
- Mensagem nº4
Re: [Resolvido]Contagem de registros
Boa Tarde Avelino...
Lendo o enunciado da questão com calma........te dou toda a razão.
Sucesso.
Lendo o enunciado da questão com calma........te dou toda a razão.
Sucesso.
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
neiltond- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 16
Registrado : 23/01/2014
- Mensagem nº5
Ainda não foi
Implementei o código do Avelino, mas não consegui ainda que funcionasse, vou tentar de novo. Já o código do Silvio, estava praocurando, ainda não funiocnaou, mas tento implementar. Uma pergunta, Silvio, tenho uma caixa de combinação que procura os registros, é nela que o coloco?
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
- Mensagem nº6
Re: [Resolvido]Contagem de registros
Neilton, boa tarde.
Bom, nos estamos no campo da " especulação ", pois não temos um exemplo em mãos para fazermos testes. Fica complicado, pois estamos apenas supondo...
Mas tente, pode ser que de certo.
Bom, nos estamos no campo da " especulação ", pois não temos um exemplo em mãos para fazermos testes. Fica complicado, pois estamos apenas supondo...
Mas tente, pode ser que de certo.
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
Convidado- Convidado
- Mensagem nº7
Re: [Resolvido]Contagem de registros
Um pitaco, pelo que entendi, quando tens uma pessoa no formulário aparecessem somente os registros pertinente a essa pessoa, correto? Sendo afirmativo, no formulário coloca:
Function ExibeRec(frmReg As Form)
On Error Resume Next
Dim rs As DAO.Recordset
Set rs = frmReg.RecordsetClone
' Vai para o último registro
' para forçar o RecordCount.
rs.MoveLast
' Retorna o ponteiro p/ o registro atual.
rs.Bookmark = frmReg.Bookmark
If (Err <> 0) Then
ExibeRec = rs.RecordCount + 1 & " de " & rs.RecordCount + 1
Else
ExibeRec = rs.AbsolutePosition + 1 & " de " & rs.RecordCount
End If
End Function
Criar uma caixaxdesacoplada e na origem controle:
=ExibeRec([Formulários]![NomeTeuFormulário])
Function ExibeRec(frmReg As Form)
On Error Resume Next
Dim rs As DAO.Recordset
Set rs = frmReg.RecordsetClone
' Vai para o último registro
' para forçar o RecordCount.
rs.MoveLast
' Retorna o ponteiro p/ o registro atual.
rs.Bookmark = frmReg.Bookmark
If (Err <> 0) Then
ExibeRec = rs.RecordCount + 1 & " de " & rs.RecordCount + 1
Else
ExibeRec = rs.AbsolutePosition + 1 & " de " & rs.RecordCount
End If
End Function
Criar uma caixaxdesacoplada e na origem controle:
=ExibeRec([Formulários]![NomeTeuFormulário])
neiltond- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 16
Registrado : 23/01/2014
- Mensagem nº8
Fechando
Depois de anos, vi que ainda estava aberto o tópico. Valeu.
» [Resolvido]Contagem de registros com critério
» [Resolvido]Contagem de registros no subformulario
» [Resolvido]contagem de registros na caixa de listagem
» [Resolvido]Dúvida como criar txtbox com número do registro atual e a contagem dos registros
» [Resolvido]Contagem De Horas de um Serviço Especifico e Contagem de Serviços por Socorrista
» [Resolvido]Contagem de registros no subformulario
» [Resolvido]contagem de registros na caixa de listagem
» [Resolvido]Dúvida como criar txtbox com número do registro atual e a contagem dos registros
» [Resolvido]Contagem De Horas de um Serviço Especifico e Contagem de Serviços por Socorrista