Contatore

di il
4 risposte

Contatore

Ciao raggazzi, ho un problema: Come posso fare a inserire in un campo il numero progressivo del record. Mi spiego meglio:
supponiamo di avere questi record:

Pippo
Pluto
Paperino
Paperoga

Vorrei far apparire in una maschera:
1 Pippo
2 Pluto
3 Paperino
4 Paperoga

se in futuro elimino uno dei record supponiamo pluto avro':

1 Pippo
2 Paperino
3 Paperoga

A Dimenticavo : Il database e' costruito con Access.

Aiutooooooooo.
Aspettando una vostra risposta, Ciao


Stefano

4 Risposte

  • Re: Contatore

    Se devi numerare i record che visioni tramite un report, la risoluzione del problema è molto più semplice:
    in struttura report devi mettere una nuova casella di testo ( davanti a tutti i campi che formano il report), vai nelle sue proprietà e nella sezione "dati" alla riga origine controllo scrivi: =+1
    e alla riga somma parziale scegli: su tutto

    vedrai che i record saranno tutti numerati sempre in sequenza anche se ne cancelli qualcuno durante l'utilizzo.

    fammi sapere se qualcosa non funziona

    ciao mila


    milaion
  • Re: Contatore

    Correzione:
    ---------------------------------
    se devi numerare i record che visioni tramite un report, la risoluzione del problema è molto più semplice:
    in struttura report devi mettere una nuova casella di testo ( davanti a tutti i campi che formano il record), vai nelle sue proprietà e nella sezione "dati" alla riga origine controllo scrivi: =+1
    e alla riga somma parziale scegli: su tutto

    vedrai che i record saranno tutti numerati sempre in sequenza anche se ne cancelli qualcuno durante l'utilizzo.

    fammi sapere se qualcosa non funziona

    ciao mila



    milaion
  • Re: Contatore

    Ok valle, eccoti il codice per la maschera

    devi aumentare in tabella un campo che chiamerai numero, (che avrà un formato numerico),

    fai una query semplice che sarà della tabella che contiene il campo numerico.

    dopo in struttura maschera vai nelle sue proprietà, nella sezione evento, riga caricamento e incolla questo codice:
    Dim dbs As Database, rst As Recordset
    Dim strSQL As String
    Dim pippo As Long
    pippo = 0
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("NOME TUA QUERY")
    If rst.RecordCount <> 0 Then
    rst.MoveFirst
    Do While Not rst.EOF
    rst.Edit

    rst!numero = pippo + 1
    pippo = rst!numero
    rst.Update
    rst.MoveNext
    Loop
    rst.Close
    Set dbs = Nothing
    End If
    Me.Refresh


    ricordati di mettere il campo numero nella maschera prima di tutti i campi del record.

    ogni qual volta aprirai la maschera il codice si attiverà numerando tutti i record da 1 a ...

    ciao
    mila


    milaion
  • Re: Contatore

    Grande!!!!!!!!
    Funziona TUTTO!

    Avevo perso le speranze grazie mila!


    Stefano
Devi accedere o registrarti per scrivere nel forum
4 risposte