[ACCESS] Contatore su un report

[RunDLL]

Ciao a tutti e grazie per l'interesse alla mia problematica: avrei bisogno di mettere un numero in un report di Access (versione 97 per questioni di licenza) che si incrementi ad ogni stampa, tanto per farla breve mi servirebbe un contatore che ogni volta che stampo un dato report mi ci inserisca il numero (stampandolo anche) e che in automatico mi inserisca il numero ripartendo dall'ultimo creato. Spero di esseremi spiegato. Grazie ed un saluto.

[archimede]

Non l'ho mai fatto, ma dovrebbe essere possibile (scrivendo un po' di codice):

1) crei una tabella con un campo numerico (ed un unico record)
2) sull'evento Apertura del report leggi quel record, incrementi di uno il valore del campo e salvi il record
3) nel tuo report visualizzi il valore incrementato di cui sopra

Se tutto ciò possa funzionare in caso di utenti concorrenti che lanciano lo stesso report (o in caso di errore in fase di stampa) è in dubbio.

HTH.

Alessandro

[RunDLL]

Ciao e grazie per la risposta. Sono un po' in dubbio su come si faccia a realizzare il punto numero 2. Grazie ancora ed un saluto.

[archimede]

Puoi provare qualcosa di simile a questo (codice NON testato):

Codice: Seleziona tutto

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("NumeroReport", dbOpenDynaset)
rs.Edit
rs!NumRep = rs!NumRep + 1
rs.Update
Me.Contatore = rs!NumRep
rs.Close
Set rs = Nothing
Set db = Nothing

dove Contatore è il nome della casella sul report che contiene il progressivo.

HTH.

Alessandro