DCount su maschera tramite codice VBA

Question

Win 10

Access '13

Buongiorno,

vorrei rappresentare in una maschera il riepilogo di varie Query o Tabelle per dare subito una situazione dei dati contenuti nel DB.

fmrRiepilogo

Private Sub Form_Current()

Dim TOT As Integer

Dim INTERESSE As Integer

Dim PESCI As Integer

Dim FRUTTA As Integer

On Error GoTo Errore:

TOT = DCount("[IDArticoli]", "QryArchivioArticoli")

Me![txtTotaleArticoli] = TOT

INTERESSE = DCount("IDArticoli]", "QryInteresse")

Me![txtInteresse] = INTERESSE

PESCI = DCount("[IDPesce]", "tblPesci")

Me![txtPesci] = PESCI

FRUTTA = DCount("[IDFrutta]", "tblFrutta")

Me![txtFrutta] = FRUTTA

Errore:

Exit Sub

End Sub

quello che non capisco è che alcuni valori vengono rappresentati, se aggiungo ulteriori variabili da rappresentare non viene visualizzato più nulla se le tolgo continua a non apparire niente. se riavvio il DB forse riappaiono i valori... e così via!

come se in base a come si alza la mattina Access decide di far vedere o meno i valori richiesti.

che mondo difficile questo VBA :)

Ivan

Answer 1

La variabile Tot l'hai dichiarata integer prova a cambiarla in long

Answer 2

alla grande !!!!!!!!

grazie

Answer 3

ciao Mimmo :)

inizialmente avevo messo il Dcount direttamente nella casella di testo sulla maschera ma succede che ci mette del tempo a visualizzare il valore quando apro la maschera invece facendo direttamente da codice la visualizzazione era istantanea.

ho tolto il controllo errore e mi ha restituito runtime overflow

allora ho escluso il primo DIM TOT che doveva contare circa 150.000 record e adesso tutto il resto funziona :)

grazie mimmo sempre prezioso con i suggerimenti :)

ps ma come mai si inceppa nel contare cifre di questa grandezza? è normale? non c'è modo di raggirare la cosa?

Ivan

Answer 4

Ciao Ivan,

proviamo a commentare l'istruzione

On Error GoTo Errore

dove puoi togliere i due punti finali.

Infatti , in presenza di errori esci senza avere segnalazioni.

Perché imposti delle variabili di appoggio e non assegni direttamente il risultato ai controlli di maschera?

Mimmo