Newsgroup: it.comp.appl.access
Titolo: Domanda: Nr. Record in una query

Saluti al NG.
Pensavo che per "Bypassare" il problema di visualizzare il n° Pagine da
stampare su un User_form (visto che non è possibile), si possa optare per
una soluzione ...diciamo "alternativa".
Poniamo il caso che la query restituisca 100 record.
Ora, sapendo che il report stampa 20 record a pagina, dovrebbe essere
sufficiente creare un'espressione che restituisca il risultato della
divisione arrotondato per eccesso e farlo quindi visualizzare sull'
User_Form.
Potreste aiutarmi ad ottenere questo "risultato" indicandomi il possibile
Codice VBA ?
Spero di non ...scocciarvi troppo! Finora mi siete stati comunque di grande
aiuto!
Ciao
Michele

 ha scritto nel messaggio
news:39T6c.93880$O31.3...@news4.tin.it...

Non credo nella bontà di questa alternativa perché se aumenti la grandezza
del carattere sballi il conto; comunque per contare i record che ti
restituisce una query puoi fare così:
DCount("*","nomeQuery/tabella","eventualeCondizioneWhere") / 20...
Ciao.
-- 
Sergio MAZZA

 ha scritto nel messaggio
news:8sT6c.93947$O31.3...@news4.tin.it...

    Ok, Grazie Sergio.
    Non dovrei avere problemi in quanto il Report è preimpostato e va in
stampa automatica senza possibili anteprime!
    Prove e aggiorno il Post.
    Ciao
    Michele

 ha scritto nel messaggio
news:EvT6c.93959$O31.3...@news4.tin.it...

    Funziona ma vorrei "rubarti" qualche consiglio se lo consenti.
    ho usato questo codice:
    Private Sub lblNpagine_Click()
    Dim pg As Variant
    pg = DCount("*", "Telefoni query1") / 20
    lblNpagine.Caption = pg
    End Sub
    Si capisce che ottengo il risultato se eseguo un Click sulla Label.
    Ma se voglio che il risultato si visualizzi automaticamente nella label
all'apertura del User_Form come dovrei operare ?
    E, ancora, dopo il     DCount("*", "Telefoni query1") / 20
    cosa dovrei aggiungere per far sì che il risultato mi sia arrotondato
per eccesso ?
    Scusami per il "fastidio" e per la mia "scarsa conoscenza" in merito.
    Michele

 ha scritto nel messaggio
news:HvU6c.76359$z23.3...@news3.tin.it...

Scusa Sergio, volevo avvisarti che ho sistemato il Problema relativo alla
visualizzazione automatica con:
Private Sub UserForm_Initialize()
 Dim pg As Variant
    pg = DCount("*", "Telefoni query1") / 20
    lblNpagine.Caption = pg
End Sub
Mi ero ...concentrato sulla Label.
Mi resta però sempre il problema dell'arrotondamento.
Un Grazie Gigante.
Michele

 ha scritto nel messaggio
news:39T6c.93880$O31.3...@news4.tin.it...

Se la query si chiama Query1, nella maschera inserisci una casella di testo
non associata e nella sua origine controllo scrivi:
= Int((DCount("*"; "Query1")/20) + 0,9999)
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:oWU6c.82613$FJ6.2...@twister1.libero.it...

PERFETTO !!!
Grazie Roberto, ora tutto OK solo penso che si deve usare il punto e non la
virgola fra lo 0 e i 9 in quanto a me dava l' errore.
Ciao
Siete  GGGrandi !!!
Michele


 Michele
-- 
Roberto


 Scusa Roberto !!!
    Tu hai scritto bene ! (anche perchè 0,xxx è logiko che dovevi scriverlo
con la virgola).
    Ero io che dovevo capire o meglio ricordarmi di usare il punto quando
inserivo il codice!
    Ciao e grazie ancora !
