Newsgroup: it.comp.appl.access
Titolo: Messaggio su apertura maschera db Access 2003

Buoansera Amici,
ho un db con origine dati la query "qryOrdini" i cui campi sono Id,
Data, Codice, Colli;
mi occorrerebbe che all'apertura della maschera un Msgbox mi avvisi
quanti ordini e quali Codici ci sono, tipo "Per la data odierna ci
sono Nr...ordini dei Codici ...".
Inoltre, se è possibile, essendo che i Codici sono in totale 6 e sono
predefiniti, vorrei poter avere sullo stesso messaggio quali sono i
Codici mancanti sempre nella giornata odierna.
Grazie moltissimo per l'aiuto e per il tempo dedicatomi.
Leo

 ha scritto nel messaggio 
news:33bfa40b-dd60-4f23...@v37g2000vbb.googlegroups.com...
Buoansera Amici,
ho un db con origine dati la query "qryOrdini" i cui campi sono Id,
Data, Codice, Colli;
mi occorrerebbe che all'apertura della maschera un Msgbox mi avvisi
quanti ordini e quali Codici ci sono, tipo "Per la data odierna ci
sono Nr...ordini dei Codici ...".
Inoltre, se � possibile, essendo che i Codici sono in totale 6 e sono
predefiniti, vorrei poter avere sullo stesso messaggio quali sono i
Codici mancanti sempre nella giornata odierna.
Grazie moltissimo per l'aiuto e per il tempo dedicatomi.
Leo
Risposta:
dim i as byte
dim strMsg as string
dim rs as dao.recordset
strMsg = "SELECT * FROM qryOrdini WHERE clng(data) = " & clng(date)
set rs = currentdb.openrecordset(strMsg,2,512)
with rs
if not .eof then
strmsg = ""
do
i = i +1
strMsg = strMsgb & vbNewLine & !Codice
.movenext
loop until .eof
strmsg = "Ci sono " & i & " ordini in data odierna " & vbnewline & "per i 
seguenti codici:" & vbnewline &  strMsg
else
    msgbox = "non ci sono ordini per oggi"
end if
.close
end with 

 Inoltre, se è possibile, essendo che i Codici sono in totale 6 e sono

Ciao,
mi da questo messaggio all'apertura: Errore di compilazione - La
chiamata di funzione a sinistra dell'assegnazione deve restituire
Variant o Object.
Grazie dell'aiuto

 Inoltre, se � possibile, essendo che i Codici sono in totale 6 e sono


Grazie dell'aiuto
Risposta
Ovvio che questo codice lo devi mettere su evento che sceglierai tu tipo
Private sub Form_load

 - Mostra testo citato -
l'ho fatto,
ma non ottengo il risultato sperato..
grazie comunque.

 > Inoltre, se � possibile, essendo che i Codici sono in totale 6 e sono


e cosa ottieni?

[cut]
Su AccessGroup trovi il demo.
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 sv
La risposta era per una altro post :-((


 - Mostra testo citato -
Ciao,
il messaggio che mi da è quello del post precedente:
Errore di compilazione - La
chiamata di funzione a sinistra dell'assegnazione deve restituire
Variant o Object.
grazie

 - Mostra testo citato -
Ciao,
il messaggio che mi da � quello del post precedente:


 - Mostra testo citato -
Ora non dà più messaggi di errore,
ma non mi esce il messaggio degli ordini inseriti e dei codici!!!
Esce solo il messaggio nel caso in cui non ci sono ordini.
ciao e grazie


Magari hai gia risolto ma sotto a
strmsg = "Ci sono " & i & " ordini in data odierna " & vbnewline &
"per i
seguenti codici:" & vbnewline &  strMsg
magari ci va messo un
msgbox strmsg
ciao
mau

 - Mostra testo citato -
grazie Maurizio
ora funziona!
CIAO

 - Mostra testo citato -
Non è finita...
adesso mi esce il messaggio indicandomi che ci sono 7 ordini inseriti
ma mi indica solo il nome dell'ultimo Codice inserito e non di tutti!!
saluti e grazie