Newsgroup: it.comp.appl.access
Titolo: Risultato DCount in MsgBox

Ciao a tutti,
effettuo un DCount in questo modo:
If DCount("[NroRiparaz]", "[OrdiniCl]", "[NroRiparaz]") > 1 Then
MsgBox ("Numeri Riparazione multipli."), vbCritical
Else
... Ok etc...
End If
Funziona, ma nel caso in cui il NroRiparaz fosse >1, come posso
evidenziarmi questi NroRiparaz nel MsgBox "Numeri Riparazione
multipli"?
Ringrazio anticipatamente!
Paolo

 ha scritto nel messaggio news:1120741374.5...@g49g2000cwa.googlegroups.com...

Io mi butto:
dim numeroRiparazione as integer
numeroRiparazione = DCount("[NroRiparaz]", "[OrdiniCl]", "[NroRiparaz]")
If numeriRiparazione > 1 Then
    MsgBox "Numeri: " & numeroRiparazione & " Riparazione multipli."), vbCritical
Else
 ... Ok etc...
End If
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:1120741374.5...@g49g2000cwa.googlegroups.com...

Ciao Paolo,
forse non ho ben capito cosa ti serve provo ad interpretare:
Dim NR as integer
NR = DCount("[NroRiparaz]", "[OrdiniCl]", "[NroRiparaz]")
If NR > 1 Then
     MsgBox ("Numeri Riparazione multipli: " & NR ), vbCritical
 Else
 ... Ok etc...
End If
Ciao
Cinzia

Concettualmente si te Cinza che Sergio avete inteso che volessi il
numero totale delle riparazioni, mentre a me servirebbero restituiti i
numeri veri e prorpri delle riparazioni ( Es. "Numeri Riparazione
multipli: 1502, 1506, 1057").
Grazie
Paolo

 ha scritto nel messaggio news:1120746070.6...@f14g2000cwb.googlegroups.com...

Concettualmente è quello che hai tentato di spiegare; probabilmente non bene.
Ora; non te la cavi certo con una riga di istruzione per risolvere il tuo problema, quindi olio di gomito, inserisci i riferimenti 
della libreria DAO e:
'-----------
Dim rst as DAO.Recordset, strSQL as string, numeriRiparazione as string
numeriRiparazione = ""
strSQL = "SELECT [numeri riparazione], Sum([numeri riparazione]) AS SommaDi[numeri riparazione] " & _
"FROM OrdiniCl " & _
"GROUP BY [numeri riparazione] " & _
"HAVING Sum([numeri riparazione])>1;"
set rst = currentdb.openrecordset(strSQL)
do while not rst.eof
    numeriRiparazione = numeriRiparazione & ", " & rst![numeri Riparazione]
    rst.movenext
loop
if numeriRiparazione<>"" then
    numeriRiparazione = mid(numeriRiparazione, 2)
    msgbox "Questi i numeri riparazione >1: " & numeriRiparazione
else
    msgbox "nulla da vedere"
end if
set rst = nothing
'-----------
l'ho scritta di getto quindi è da controllare...
Ciao.
-- 
Sergio MAZZA 

l'ho scritta di getto quindi è da controllare...
Mi da un msg sull'istruzione SELECT, che ha qualcosa di non esatto
nella formulazione. A me sembra corretta, non mi da nessuna
segnalazione nella compilazione e i campi sono giusti... non so.
Puoi dara ancora un'occhiata?
Ti ringrazio
Paolo


Ce li hai i riferimenti dao?
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

>Ce li hai i riferimenti dao?
Si: "Microsoft DAO 3.6 Object Library" ...intendi questi?

 ha scritto nel messaggio news:1120749973....@f14g2000cwb.googlegroups.com...
Mi da un msg sull'istruzione SELECT, che ha qualcosa di non esatto
nella formulazione. A me sembra corretta, non mi da nessuna
segnalazione nella compilazione e i campi sono giusti... non so.
Puoi dara ancora un'occhiata?
Ti ringrazio
Paolo
[risposta]
Prova a cambiare nome a: SommaDi[numeri riparazione] in: SommaDinumeriRiparazione
Comunque rifare la query con il querybuilder, visualizzare il codice sql e incollarlo nel codice VBA...
Ciao.
-- 
Sergio MAZZA 

>Prova a cambiare nome a: SommaDi[numeri riparazione] in: SommaDinumeriRiparazione
Ok adesso va avanti, ma mi restituisce i "numeri riparazione" anche per
quelli che in tabella ne risulta solo uno...?!?

 quelli che in tabella ne risulta solo uno...?!?
Perché il pirlone (io) ha colpito ancora!
Non è una Sum che devi fare ma una Count; quindi:
..."HAVING Count([numeri riparazione])>1;"
Ciao.
-- 
Sergio MAZZA 

 ha colpito ancora!
Se continui a dirlo va a finire che ci credo.


 Info:  
www.donkarl.com/it
Ecchevvoifà, sarà l'orario...
Ciao.
-- 
Sergio MAZZA 

..."HAVING Count([numeri riparazione])>1;"
Ora si, ti ringrazio infinitamente...
Ciao
Paolo

 ...tranquillo, non lo sei proprio...
Dici?
va beh,  mi fido...
