[Resolvido]Aparecer o numero do registro

tenho um formulario no formato de tabela. quero saber se é possivel aparecer o numero do registro antes de cada registro, tipo no primeiro aparecer o numero 1, no segundo aparecer o 2, isso até mesmo quando eu filtrar o primeiro aparecer o numero 1 e o segundo o 2 e assim vai.

alguem pode me ajudar se é possivel e se for como eu faço.??? uso o access 2010.

Boas...

Se sua tabela tiver um Campo ID (Auto Numeração)

Basta colocar o campo no form.. e ele aparecerá como quer..

Cumprimentos.

Harysohn não é isso, tipo assim.

o que eu quero é que no formulario tabela tenho 5 registros, quando aparecer todos apareca 1, 2, 3 em cada resgitro, mas tipo se eu usar auto numeração quando eu filtrar nao vai iniciar do numero 01 e eu quero que toda vez que aparecer os registro comece do 1, depois 2, depois 3 assim vai. entendeu?????

Se puder post o form envolvido para que possamos ver.

Cumprimentos

A questão e que em um form no modo folha de dados, o objeto se repete...

Bem, se encontrar uma solução, volto aqui.

mas o formulario nao ta em folhas de dados ta no formato tabela...

tipo assim quando você usa o assistente do access para criar um formulario tem algumas opções como folhas de dados, justificado, tabela... o formato que está é tabela.

entendeu???

Ola só... em sua tabela crie um Campo e o Nomeei de cpValor, coloque como valor padrão 1
Esse campo não será utilizado para inserir nenhum valor nele.

Toda vez que criar um registro nesta tabela este campo assumira o valor "1"

Crie uma consulta baseada nessa tabela e a nomeei de:
QrySaldos

Nesta consulta crie um campo não acoplado e coloque a seguinte instrução:

SaldoAcumulado: Format(DSoma("[cpValor]";"QrySaldos";"[IDdaSuaTabela] <=" & [IDdaSuaTabela]))


Assim ao filtrar a consulta, este campo sempre mostrará a soma do cpValor acumulado

1
2
3
4 etc...


Cumprimentos.

que mau pergunte, mas e no formulario faço o que????

Utilize esta consulta no form... simples...

Cumprimentos.

desculpe, mas to burrando, ta dando erro de sintaxe.

tem como vc fazer um modelo e postar?????

ficarei grato.

Ei-lo:

http://dl.dropbox.com/u/26441349/Washington_25_05.rar

Cumprimentos.

Observe que coloquei um campo chamado filtro.
Este campo coloquei apenas para poder filtrar alguns campos da consulta para poder ver o resultado.
No exemplo que te mandei esta mostranso os registros cujo campo filtro tem a letra "a"

Cumprimentos.

é tudo o que eu queria, mas desculpas é que nao sei

Numero do do Registro: Format(DSoma("[cpValor]";"QrySaldos";"[Lançamento] <=" & [Lançamento]))

esses nome lançamento é o nome da tabela ou é o do campo????

opa... Harysohn... obrigado por tudo, deu certo o que eu queria, valeu...

esse forum é tudo de bom...

obrigado Harysohn....

Eu tentei uma solução assim em um campo não acoplado no proprio form, tentei utilizar um For indo para o proximo registro aumentando a variável X em 1... mas não resultou...

Realmente no relatório creio dar certo.

Valeu.

Washytonn, não se esqueça de clicar no joinha da mensagem que o auxiliou.

Cumprimentos.

do jeito que o Harysohn fez deu certo, mas estava observando o meu formulario coloquei o botão para filtrar, criei uma macro no botão com filtro ([filtro] como [Digite o nome]&"*") mas quando filtra ao inver de aparecer 1,2,3,4 na ordem aparece 1, 3, 6... o que faço?????

Envie parte do BD para que possamos ver]

Eu acredito que abrir dessa forma diretamente da consulta nao resultara...

Deves utilizar num form ou uma listBox, tendo como criterio uma caixa texto no form.

Cumprimentos.

este é o db

https://dl.dropbox.com/u/26441349/Washynto_28_05.rar

Obs.. em propriedades a caixa texto esta como valor padrao a, mas podes deixar em branco


Cumprimentos.

uma pergunta Harysohn, no formulario não da para colocar como eu coloquei com o botão com filtro em macro???

Amigão... Eu detesto Macros... Se temos a ferramente poderosa do VBA, pra que macro?

No entanto de posse do exemplo, se pretender utilizar uma macro, poste esta duvida na sala respectiva, que alguem que gosta de macro responderá...

Nunca uilizei macros, exceto para AutoExec.

Cumprimentos.

Harysohn, foi mau, tava dando certo só que só dar certo até o três, 1,2,3 depois disso fica repetindo o três. será que pode me ajudar novamente.???

Manda O BD ai...

é esse mesmo que voce me mandou onde tem washytonn 25_05

tai o bd...

Amigao.. na caixa texto que digita letra, em propriedades na aba dados

No ítem Valor Padrão, está como "a"

Limpe isso.

e reinicie o form e veja.

Cumprimentos.

Amigao. na tabela lancamento o cpValor dever ter valor padrão 1

Cumprimentos.

cara, continua não dando certo quando se coloca so a letra "a" no registro ele conta normal, 1, 2 ,3, 4, mas se colocar no registro outra letra tipo b, ele repete, tipo se eu coloca no 1 registro "a" ele fica 1, no segundo registro "a" aparece 2, mas se no terceiro registro colocar "b" ele repete o dois de novo e se colocar "b" de novo ele repete mais uma vez... é o mesmo bd que eu postei...

Amigão... Eu não sei o que tu ta fazendo ai...

Observe que eu falei em uma mensagem acima que o cpValor tem que ter o valo padrão = 1, se um dos registros não tiver preenchido este campo com este valor padrão, fatalmente irá dar erro. E no exemplo que me reenviou havia tirado o valor Padrão..

Segue o bd, digite na caixa texto: a e click, b click, h e click, r e click.

Ta perfeito.

Link na Menssagem Número 33

Cumprimentos.

cara... como eu falei... eu sei que voce ja tinha falado que o valor padrão tem que ser igual a um... foi colocado mas nao dava dando certo... agora esse ultimo link que voce postou nao dar para baixar... da link não encontrado... pode me reenvia novamente?

Eis:

https://dl.dropbox.com/u/26441349/Washynton_30_05.rar

Cumprimenos;

Valeu, acho que agora vai dar certo...

O Fórum agradece o retorno.

Não se esqueça de clicar oo joinha da mensagem que o auxiliou.

Cumprimentos.

Boas... uma solução mais eficaz..


https://dl.dropbox.com/u/26441349/NumeraLinha.rar


Cole esta função no VBA do formulario;


Function NumeraLinhas() As LongOn Error Resume NextRecordsetClone.Bookmark = BookmarkIf Err = 0 Then NumeraLinhas = RecordsetClone.AbsolutePosition + 1End IfEnd Function

Na origem dessa caixa de texto, faça assim;

=NumeraLinhas()

value PILOTO


essa solução é realmente eficaz e muito mais facil...


obrigado!!!!!!!!!!!!!!!!

Créditos ao nosso Mestre João Paulo.


Cumprimentos.

Bom dia Pessoal,

Obrigado pela solução no formulário!

Qual seria o ajuste para ela funcionar em relatório? Obrigado.
Att,
Ricardo

Olá, por favor me ajudem. Não consigo ajustar para meu access, envio para analisarem.
Então, preciso que conte em consultas e em relatorios posteriores com mais registros (funcionarios)

Agradeço desde ja a compreensão dos colegas




https://www.dropbox.com/s/gcj84wy5u3znfv6/FUNCIONARIOS.accdb?dl=0

Galera, alguém pode me mandar o arquivo, não estou conseguindo aplicar no meu BD

Boa tarde,

Fica aqui o exemplo do mestre HARYSOHN

Cumprimentos