Newsgroup: it.comp.appl.access
Titolo: numerazione record query

3 a
spero di eseere stato sufficientemente chiaro
ho trovato qualcosa che funziona con le maschere ma con le query nulla
cia e per o ra grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 cia e per o ra grazie
Guarda sul sito comune. Attenzione: funziona solo se la navighi con un
recordset altrimenti in visualizzazione foglio dati, i numeri continuano ad
incrementarsi.
Ciao, Antonio.

 ho trovato qualcosa che funziona con le maschere ma con le query nulla
http://groups.google.com/groups?as_q=Query%20numero%20record&as_uauthors=Donau
bauer
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 ha scritto nel messaggio
news:aq87hk$f1q$1...@news.newsland.it...

Leggi qualche post indietro, c'č un'ottima soluzione nuova proposta
da M.Borrelli.............!
@Alex

 bauer

mi va in crash il database.
questa è l' sql:
SELECT [R banca italia erogazioni].cbabi, (Select Count (*) FROM [R banca
italia erogazioni] as Temp WHERE [Temp].[cbabi]< [R banca italia
erogazioni].[cbabi])+1 AS Contatore
FROM [R banca italia erogazioni];
non riesco a capire come mai.
fammi sapere se riesci a capire dove sia il problema.
per chiarezza uso access 97
ciao e grazie per ora


 per chiarezza uso access 97
Lo statement SQL sembra ok. Quanti record ha la tabella?
Normalmente se hai un crash a causa di una query di selezione
è un altro problema del db, Access o del sistema.
Prova a compattare il db o di importare tutti oggetti in un nuovo db.



Se vuoi aggiungere in una query un numero progressivo che ti numera sempre i
record da 1 in avanti, a prescindere di come sono ordinati.
In un modulo del tuo database memorizza questa funzione:
Function GetNumProgr(KeyName As String, KeyValue, NomeQuery As String) As
Long
Dim RS As DAO.Recordset
Dim NumProgr As Long
On Error GoTo Err_GetNumProgr
NumProgr = 0
Set RS = CurrentDb().OpenRecordset(NomeQuery, dbOpenDynaset)
' Trova il record corrente
Select Case RS.Fields(KeyName).Type
    ' La chiave è Numerica?
    Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _
        DB_DOUBLE, DB_BYTE
        RS.FindFirst "[" & KeyName & "] = " & KeyValue
    ' La chiave è di tipo Data/ora?
    Case DB_DATE
        RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#"
    ' La chiave è di tipo Testo?
    Case DB_TEXT
        RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'"
    Case Else
        MsgBox "ERRORE: Tipo dati della chiave non valido!"
        Exit Function
   End Select
Do Until RS.BOF
    NumProgr = NumProgr + 1
    RS.MovePrevious
Loop
GetNumProgr = NumProgr
Set RS = Nothing
Bye_GetNumProgr:
    Exit Function
Err_GetNumProgr:
    Resume Bye_GetNumProgr
End Function
Nella query aggiungi un campo calcolato in questa maniera:
NumProg: GetNumProgr("ID";[ID];"Query1")
dove ID è il nome del campo che è la chiave primaria della tabella su cui è
basata la query e Query1 è il nome della query.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


era la query principale che dava problemi non so per quale motivo.
sei stato come al solito gentillissimo e molto competente.
ciao e grazie
--------------------------------
Inviato via 
http://usenet.libero.it