[Resolvido] Numerar registros identicos

[aml 0]

Olá galera. preciso da ajuda de vcs.

Preciso efetuar uma consulta que incremente + 1 quando o campo for identico

Por exemplo:

campo_autor campo_numeracao

asdf 1

asdf 2

asdf 3

fdsa 1

fdsa 2

fdsa 3

 

é possivel?

 

Grato pela atenção.

[roberto182 0]

Bom dia,

 

Acredito que não tenha como fazer isto por sql... acho que você teria que desenvolver meio que uma aplicação para isto.

Para que você precisa desta sql? Se for para saber uma estatística você pode fazer algo como um select com e outro sem a cláusula distinct e depois tirar a diferença. Algo como:

SELECT DISTINCT count(item) FROM Pedidos;

SELECT count(item) FROM Pedidos;

Abraço!

[Mário Monteiro 179]

Nao ficou muito clara a sua necessiadade sobre este incremento ser em uma mesmo registro ou na crtiação de outro registro

[aml 0]

Olá galera. preciso da ajuda de vcs.

Preciso efetuar uma consulta que incremente + 1 quando o campo for identico

Por exemplo:

campo_autor campo_numeracao

asdf 1

asdf 2

asdf 3

fdsa 1

fdsa 2

fdsa 3

 

é possivel?

 

Grato pela atenção.

 

 

Muito obrigado Mario, valeu mesmo... abs...

[Mário Monteiro 179]

Mas obrigado pelo que?

 

Voce conseguiu obter solução?

 

O que deseja que aconteça?

[aml 0]

Olá galera. preciso da ajuda de vcs.

Preciso efetuar uma consulta que incremente + 1 quando o campo for identico

Por exemplo:

campo_autor campo_numeracao

asdf 1

asdf 2

asdf 3

fdsa 1

fdsa 2

fdsa 3

 

é possivel?

 

Grato pela atenção.

 

 

Muito obrigado Mario, valeu mesmo... abs...

 

Desenvolvi o código em botão(era preciso o formulário)

segue o código.

Private Sub Comando4_Click()

On Error GoTo Err_Comando4_Click

Dim valor As String

Dim valor2 As String

Dim valor3 As String

Dim varx As String

 

 

DoCmd.GoToRecord , , acNext

Do While Not numero.Value

DoCmd.GoToRecord , , acPrevious

valor = numero.Value

valor3 = indice.Value

DoCmd.GoToRecord , , acNext

valor2 = numero.Value

valor3 = valor3

 

If valor2 = valor Then

varx = DLookup("[numero]", "tabela1", [numero] = valor2)

valor2 = numero.Value

valor3 = valor3

indice.Value = valor3 + 1

DoCmd.GoToRecord , , acNext

Else

indice.Value = 1

valor2 = numero.Value

valor3 = valor3

indice.Value = 1

DoCmd.GoToRecord , , acNext

End If

Loop

 

 

Exit_Comando4_Click:

Exit Sub

 

Err_Comando4_Click:

MsgBox Err.Description

Resume Exit_Comando4_Click

 

End Sub

 

esta rotina é apenas para numerar a quantidade de vezes que um número se repete, para que a partir daí eu tenha um histórico relacionado a um número especifico.

 

Mais uma vez obrigado.

 

[Mário Monteiro 179]

Parabnes pela solução

 

Abraços