mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Procedura guidata Pan. Cont. malfunzionante

Buon Maggio a tutti.
A seguito di una reinstallazione di Winxp dovuta ad una sostituzione
Hardware, il Pannello Comandi di un mio piccolo db ha smesso di funzionare,
restituendomi ad ogni pulsante la seguente finestra:
----------------------------------------------------------------------------
L'espressione su clic immessa come impostazione della proprietà di evento ha
provocato il seguente errore:Impossibile trovare il nome  di funzione
immesso nell'espressione.
*L'espressione non corrisponde al nome di una macro, di una fz definita
dall'utente oppure a [Routine Evento]
* si è verificato un errore durante la valutazione  di una funzione, di un
evento, di una macro.
----------------------------------------------------------------------------
-
Al che ho provato a ricreare il pannello, ricevendo questa risposta:
----------------------------------------------------
Impossibile trovare la procedura guidata, la procedura guidata non è stata
installata oppure è presente un errore di sintassi nella sezione
dichiarazioni di un modulo di VB.
E' possibile che la procedura guidata richiesta non sia inclusa nella chiave
Libraries della sezione di "MIopiccolodb" del reg. di sys di Win.
------------------------------------------------------
Il mio successivo tentativo è stato quello di ricontrollare la compilazione
del db disinstallare e reinstallare office e controllare che Access non
avesse componenti disattivati, ma tutto risulta inutile.
Sapreste darmi qualche indicazione? Grazie comunque dell'attenzione. cld

guarda i riferimenti di VBA e da' ad essi la giusta priorità...
ciauz
--
'gnurant come una cucuzza
Inviato da 
www.mynewsgate.net

 priorità... ciauz
già controllato e fatto, peraltro sino alla reinstallazione di winXP
funzionava correttamente

Newsgroup: it.comp.appl.access
Titolo: Selezione ed Elaborazione di Più Record in Maschere Continue

 Ho una Maschera Continua che visualizza i record di una tabella.
Vorrei poter selezionare alcuni dei record visualizzati e poi elaborarli
sequenzialmente.
Non riesco neanche a gestire la loro selezione !!!!!!
Qualcuni mi sa indicare come fare?
Ho letto anche nel newsgroup ed ho trovato il codice per il loop ma per la
selezione .... nisba.
Grazie.
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Grazie.
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

 ha
scritto:


Newsgroup: it.comp.appl.access
Titolo: progressivo da tabella

="" & "COM-" & Right(DLookUp("[Anno]";"Tabella_SYS");2) & "/" &
Format((DLookUp("Progressivo";"Tabella_SYS")+1);"00000")
questo codice va bene, mi crea un ID con anno (ultime 2 cifre) e numero
progressivo;
unico problema: vorrei che all'ģinizio di un nuovo anno il progressivo
ricominciasse da 1 a contare.
..e nella Tabella_SYS conviene alla fine dell'anno aggiornare il campo ANNO
con il nuovo anno oppure creare un nuovo record e quindi un record per anno?
cosa ne pensate ? mi date un consiglio?
Grazie!

 ricominciasse da 1 a contare.
Sito comune, sezione general "Numerazione crescente per fatture ed altro"
e non trascurare di tornare a controllare gli aggiornamenti nei prossimi
giorni.
Sib
Newsgroup: it.comp.appl.access
Titolo: db da condividere!

Devo condividere un db in una piccola rete aziendale, il db è protetto,
avrei intenzione di copiarlo sul server e poi consentire i vari accessi
multilivello. In questo caso mi toccherà copiare il file del gruppo di
lavoro su ogni PC e renderlo  gruppo di default per Access?
Ci sono sistemi migliori per condividere un db? Ho letto nella guida che se
occorre accedere contemporaneamente ai dati di una tabella occorrerebbe fare
delle
repliche del db (operazione soggetta a continui problemi, a detta della
guida), ma se si lavora su tabelle collegate non è possibile accedervi
contemporaneamente ed inserire dei dati? Insomma avrete capito che ho
bisogno di una dritta per capire come condividere un db  in rete. Spero in
un vostro aiuto. Per il momento grazie.

Newsgroup: it.comp.appl.access
Titolo: Spunta su stampa report

Avrei bisogno, quando viene stampato un report, di inserire in automatico
una spunta in un campo del database.
Il problema grosso (per me) è che non faccio la stampa direttamente da un
pulsante, ma apro l'anteprima e poi l'utente va a cliccare sull'icona di
stampa. Cercavo qualcosa tipo un evento "su stampa" ma evidentemente sono
fuori strada.
C'è modo di fare quello che vorrei?
Grazie
Fabio

 wrote in message
news:im9uc3-...@news.tin.it

Beh direi che tutto sommato agisci in un contesto normale...!
Quello che puoi fare è di sostituire il comando standard della
Barra Menù con un tuo che richiama una Funzione Publica, magari
nel tuo caso la puoi inserire nella Form stessa.
Quindi Riassumiamo:
Dalla Form apri il Report in Anteprima, quindi metti un Pulsante
personalizzato nella BarraMenù che richiama una Funzione in un Modulo.
Questa funzione leggerà il nome dell'ActiveReport(se serve discriminare
la Form che lo ha lanciato) altrimenti se la form è sempre quella
nella Funzione richiami una Funzione Publica di Maschera che
Setta=True il Controllo associato alla stampa, poi chiude l'anteprima
e lancia la stampa...!
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex
Grazie mille, ci provo.
Ho qualche dubbio su come dirgli di settare a True il campo del record 
che sto stampando. Se per esempio stampo il record 111 come faccio a 
dirgli che deve mettere a true il campo "StampaOk" del record 111?
Per la stampa uso una query e chiedo all'utente di inserire il numero 
id.
Ciao
Fabio
Newsgroup: it.comp.appl.access
Titolo: Casella combinata

Ciao a tutti, nuovo di questo gruppo e sto imparando ora access.
ho due tabelle e una query che le unisce ma per rende visualizzabile meglio 
la traccia del problema, imposta una tabella inserendola due volte sulla 
query (tblDepartments, tblEmployees, la seconda tabella che è stata 
rinominata per non confonderla in Manager)
Quindi ricapitolando abbiamo:
* un DepartmentId come chiave primaria di tblDepartments
* un EmployeeNumber per chiave  di tblEmployees
* da tblEmployees si aggancia a tblDepartments su un idDepartment
* da tblEmployees si aggancia a Managers su EmployeesNumber
fin qui tutto ok
avvio la maschera e mi dice di inserire la visualizzazione a Casella 
Combinata, il problema: contina a visualizzare sulla maschera il numero 
dell'id invece dal testo dice che dovrebbe uscire il nome del dipartimento 
di appartenenza
Saluti
Paolo

 ha scritto nel messaggio 
news:484edf3e$0$17934$5fc...@news.tiscali.it...

non è che ci ho capito molto dalla descrizione del problema ma
prova a controllare:
il numero e larghezza delle colonne
il numero della colonna associata
Ciao
Daniele 

 ha scritto nel messaggio 
news:484edf3e$0$17934$5fc...@news.tiscali.it...

Ciao, Paolo
vai in proprieta' della casella combinata
alla voce larghezza colonna setta a 0 cm; la prima voce
questo fa scomparire la colonna associata all'ID
se ho capito bene il tuo probema.
Ciao
Concetto 

 sulla query (tblDepartments, tblEmployees, la seconda tabella che č stata 


Newsgroup: it.comp.appl.access
Titolo: Libro su VBA

Potete consigliarmi un testo per apprendere il VBA ?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Vai sul Sito Comune (link qui sotto) e dai un'occhiata alla Sezione Libri.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: costo db

Salve a tutti,
quanto posso far pagare la creazione di un database di una tabella (600
record ca.) completa di query e report di stampa ? Grazie.
Motosofia
moto...@libero.it

 Bobbit
RoDAgo

 ha scritto nel messaggio
news:YXrk6.8993$qx.2...@news.infostrada.it...

Rotfl    :-)))
--
P.S. si scrive sufficiente
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
Newsgroup: it.comp.appl.access
Titolo: Come attivare controllo da gruppo di opzioni

Ciao a tutti,
Nella mia maschera, ho tre caselle combinate:
cmbSelezionaGiorno
cmbSelezionaMese
cmbSelezionaAnno
Vorrei capire come fare per rendere attivo
 un controllo dei tre controlli,
in base ad una delle opzioni che spunto
nel gruppo di opzioni grpPulisciDati con tre opzioni:
Giorno che mi restituisce valore 1
Mese che mi restituisce valore 2
Anno che mi restituisce valore 3
-----
Quindi a fronte dell'evento dopo aggiornamento del grpPulisciDati
Se seleziono l'opzione 1 then Me.cmbSelezionaGiorno.Visible=True
rendendo Visible=False cmbSelezionaMese e cmbSelezionaAnno.
Se seleziono l'opzione 2 then Me.cmbSelezionaMese.Visible=True
rendendo Visible=False cmbSelezionaGiorno e cmbSelezionaAnno.
Se seleziono l'opzione 1 then Me.cmbSelezionaAnno.Visible=True
rendendo Visible=False cmbSelezionaGiorno e cmbSelezionaMese.
---------
Spero di essere stato chiaro,
ringrazio in anticipo a chi mi verrą in aiuto.
Napoleone

 ha scritto nel messaggio
news:3LZpe.51714$795.1...@twister1.libero.it...

Faccio un tentativo...! ;-)
Su evento Dopo aggiornamento del gruppo Opzioni:
Me!cmbSelezionaGiorno.Visible=(Me!grpPulisciDati=1)
Me!cmbSelezionaMese.Visible=(Me!grpPulisciDati=2)
Me!cmbSelezionaAnno.Visible=(Me!grpPulisciDati=3)
Dai che questa volta funziona...!
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 @Alex (Alessandro Baraldi)
FINALMENTE!
Abbiamo rotto un tabù, tutto OK!
Grazie Alex
Napoleone
... ma non andare via, perche a presto seguirà un post che si collega a 
quanto abbiamo appena risolto ed un'altro quesito risolto datè, tempo fà. 

 ha scritto nel messaggio
news:Wv_pe.141763$IN.24...@twister2.libero.it...

Perchè tempo fà ti ho risolto qualche cosa...? ;-)
Ma allora la sfiga era temporanea...!!!
Ciao


 @Alex (Alessandro Baraldi)
Lo ricorderai certamente leggendo il mio nuovo post:
Pulire Tabelle.
Non mancare! Abbiamo rotto la maledizione temporanea.
Napoleone
Newsgroup: it.comp.appl.access
Titolo: Combobox di access e di VB6

Domandina....
Come mai le combobox di access non hanno la proprietà .Additem ?
E se dovessi aggiungere un item runtime In vbaccess . come devo fare ?
esampio
For each tbl in db.tabledefs
    combobox.AddItem = 
tbl.name
next tbl
etc.....


Scusa la domanda (dipende anche dal fatto che sono un po' stanco e non ho
presente la cosa)
Cosa fai con Additem?
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


La proprietà rowsourcetype deve essere ad elenco valori poi da codice puoi
cambiare la proprietà rowsource per inserire nuove righe. Ad esempio se
rowsource = "a;b"  avrai due righe rispettivamente con i valori a e b, per
aggiungere la riga c rowsource=rowsource & ";c"
Ciao Marco.

 etc.....
Vai a leggerti il msg di Lunedi 'AddItem non funziona su
ListBox e Combo...'!!!!!!
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------
Newsgroup: it.comp.appl.access
Titolo: ApriModulo non disponibile in access runtime

Ciao a tutti.
Ho un database in MDE nel quale compare una maschera, con vari campi e 
un bottone che avvia una macro collegata ad un modulo che contiene una 
funzione. lo stavo testando in ambiente access runtime, quando una volta 
schiacciato il bottone succitato mi appare una finestra "azione non 
riuscita" e clikkando interrompi mi da il seguente messaggio:
"Comando o azione 'ApriModulo' non disponibile.
La stessa cosa che se il file è in MDB.
Sul pc dove è installato Access, l'MDB funziona, l'MDE invece mi 
risponde con "Comando non disponibile in un database MDE/ADE".
Avete idea di come aggirere il problema? basterebbe associare tutto lo 
script contenuto nel modulo ad un evento nella maschera?
-- 
Sláinte, Eirinn
icq# 3346238 - 
http://eirinn.altervista.org/
"Per aspera ad astra"

 script contenuto nel modulo ad un evento nella maschera?
ma se non dici cosa fa la funzione come facciamo a saprelo
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 ma se non dici cosa fa la funzione come facciamo a saprelo
Pensavo fosse una questione di differenza tra access e runtime.
cmq, la funzione in pratica crea un recordset da 2 query (date_fasi e 
festivi), confronta i dati di queste due query, e va a scrivere in un 
campo fase 2 il risultato di tale confronto.
In pratica prende la fase1 (una data + tot giorni), la confronta con i 
giorni festivi, e se ci sono date concordanti, alla fase2 lo script 
inserisce il valore fase1 + totgiorni + festivi.
La funzione è richiamata in una maschera tramite un tasto.


 ha scritto nel messaggio 
news:dq3ct3$jtt$1...@area.cu.mi.it...

E' notorio che i file mde non contengono codice visibile. Ovvio che non puoi 
aprire un modulo.
Piuttosto controlla che la chiamata sia giusta o al limite sostituisci la 
macro con la chiamata diretta alla funzione.
Ciao, Carlo 


Porcaccia, mi era scappato l'azione ApriModulo...
io pensavo volesse creare oggetti perciò mi son fatto spiegare la funzione.
il vecchietto calabro è ancora sulla cresta dell'onda!!!


 MAssimiliano Amendola            
www.accessgroup.it
vorresti forse dire che il vecchietto campano č momentaneamente out?
Sů, sů non ti demoralizzare...avevo capito che si trattava di una svista; in 
caso contrario non saresti stato piů abilitato alla CISA2.
Ciao, Carlo 

 Ciao, Carlo
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it

Newsgroup: it.comp.appl.access
Titolo: vuoi incollare?

in apertura del db incollo una tabella in un altro db
mi chiede sempre "incollare n record ? si no", come faccio ad evitare questa 
domanda?

 questa domanda?
Collega la tabella...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:44769cb6$0$18293$4faf...@reader1.news.tin.it...

Come ti ha suggerito Sergio collega la tabella oppure importale con il
metodo TransferDatabase (vedi help).
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

la tabella da esportare sta in un db protetto a livello utente xp
la devo esportare in un db everyone ma protetto da password
sono riuscito a fare l'export in db protetto ma mi fa sempre la solita 
domanda
dunque non posso collegare la tabella
e non posso importarla ma solo esportarla
voglio solo che non mi faccia la domanda "incollare n. record? si no"
grazie a tutti 

 ha scritto nel messaggio news:44781963$0$29731$4faf...@reader2.news.tin.it...

Vedi help (attivabile con ALT-F11 poi F1) alla voce metodo SetWarnings...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Quale oggetto per lavorare con una tabella

Da codice quali oggetti posso utilizzare per lavorare con una tabella e
soprattutto quale mi conviente utilizzare

 soprattutto quale mi conviente utilizzare
Dipende da cosa devi farci.
Se devi accedere e/o modificare la struttura vedi sull'help Tabledef.
Se devi accedere ai dati vedi Recordset - Openrecordset.
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.appl.access
Titolo: helpissimo !!! modificare struttura

installato il runtime, consegnato il prg dal cliente, si accorge dopo 2
giorni che il campo descrizione del BE di 50 char e' troppo piccolo (poteva
dirlo prima)
mi e' sembrato di capire che non e' possibile via codice modificare la
struttura dell'MDB da codice
come faccio a modificare la lunghezza del campo avendo a disposizione solo
il runtime ?
Grazie infinite !!!
Gianni


wrote:

avevo visto l'istruzione SQL alter table girare su qualche post qui
sopra
Saluti.
Emanuele.

Newsgroup: it.comp.appl.access
Titolo: Verifica esistenza

Ho una maschera di scarico prodotti dal magazzino.
Quale istruzione posso dare in "After update" dell'inserimento codice in
modo che verifichi l'esistenza del codice immesso nella tabella proddotti
e in caso contrario mi appaia un  messaggio di errore che dando l'ok
annulli l'inserimento e apra la maschera "Inserimento nuovo prodotto"?
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 -- 
A mio avviso la verifica la devi fare a fronte dell'evento "Prima di
aggiornare" e non a fronte dell'evento "Dopo aggiornamento" della casella di
testo; per farla usa o la funzione DLookup o la funzione DCount (vedi help).
Se l'esito della verifica ti dà esito negativo puoi aprire la maschera per
inserire un nuovo record nella tabella prodotti e/o annullare la digitazione
del dato con Cancel = True.
Resta il fatto che normalmente un problema come il tuo si risove digitando o
selezinando il codice del prodotto tramite una casella combinata e non
tramite una casella di testo; in questo caso è sufficiente impostare a Si la
proprietà Solo in elenco della casella combinata che abbia come origine riga
la tabella prodotti: se ciò che hai digitato nella casella combinata non
esiste nella tabella prodotti Access, automaticamente, ti genera l'evento
"Su non in elenco" a fronte del quale farai l'aggiornamento della tabella
prodotti.
Se vai sul Sito Comune (link qui sotto), nella Sezione Forms ci troverai un
esempio di tale tecnica nella FAQ intitolata "Si può aggiungere un record
alla tabella che è origine riga di una casella combinata senza usare una
maschera?".
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: gestione storico

Ciao a tutti, premesso di:
- essere un novizio e
- aver letto dalla data odierna fino al 5 giugno,
Vorrei chiedere se qualcuno ricorda di aver letto o risposto a domande
in merito alla gestione dello storico (e quindi se può indicarmi come
recuperare le risposte) oppure se può darmi qualche dritta
su come potermi 'formare' in proposito (siti e/o libri).
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


mmmmm non credo possibile che tu non abbia letto 
www.sitocomune.it
 ...
eccotelo qua' comunque
by
stwe

beh veramente è 
www.sitocomune.com
 ...
;-)


embe'... ci stavo pensando...
by
stwe


wrote:
Scusate non mi sono spiegato a dovere. Intendevo dire che devo
implementare la gestione storica di un archivio per tracciare la
situazione nel tempo in modo da avere la cronologia dei cambiamenti
(nuovi record, eliminazioni, modifiche). 
Ciao e grazie



Newsgroup: it.comp.appl.access
Titolo: Domanda da neofita

Ho due tabelle distinte, non relazionate (esempio Distinta_AP e
Distinta_AC). In entrambe compare una campo progressivo (ID_AC e ID_AP).
Vorrei mostrare in una stessa maschera il massimo di entrambe.
Ho provato ma con scarso successo (maschere associate a query, campi
associati a query, ma niente di niente). E' possibile ? Chi mi aiuta?
Bye.
Forfello.

 ha scritto nel messaggio
news:bf918i$cj2aq$1...@ID-94650.news.uni-berlin.de...

Intanto un piccolo consiglio: scrivi subject più significativi. Questo
aiuterà non poco chi può e vuole aiutarti, nonchè chi potrebbe avere in
futuro esigenze simili alle tue.
Per visualizzare il valore più alto dei campi che ti interessano, devi
ricorrere a due controlli di testo non associati per i quali imposterai la
proprietà "Origine controllo" utilizzando la funzione Dmax (v. help).
Ciao
Galliano

 ha scritto nel messaggio
news:bf918i$cj2aq$1...@ID-94650.news.uni-berlin.de...

Se vuoi un qualsisi aiuto, la netiquette impone che se tu DEBBA scrivere un
subject
+ significativo, e spiegazioni +  chiare possibile.
Sicuramente non un subject "domanda da neofita", perchč cosě č molto
difficile che qlc ti risponda.
Giampaolo
N.B. Vedi il sito 
www.sitocomune.com
  ICAA

Messaggio ricevuto.
Grazie.
Bye
Newsgroup: it.comp.appl.access
Titolo: database in rete - ottimizzare apertura maschere

Salve a tutti, ho un quesito da porre:
per un applicazione suddivisa in fe e be, qual'è il modo migliore per
rendere fluida l'apertura di una maschera quando quest'ultima ha controlli
(ad es. caselle combinate) per i quali l'origine riga sono campi di una
tabella posta sul be?  In altre parole vorrei evitare che in fase di
apertura della maschera, come purtroppo avviene, si manifesti l'antiestetico
effetto visivo di apertura a scatti in quanto, vuoi anche per il traffico di
rete, il controllo impiega il suo tempo per recuperare i dati dall'origine
riga.
Esiste un modo per evitare ciò rendendo, in apertura, visibile la maschera
solo quando tutti i dati dei relativi controlli sono disponibili?
Grazie, max.

 ha scritto nel messaggio
news:wTywa.2274$Ny5....@twister2.libero.it...

Prova ad usare il comando echo
Antonio


Intanto grazie per il suggerimento.
Provato ma come pensavo non risolve il problema in quanto non č una
questione di aggiornamento dello schermo. Mi spiego, durante l'apertura
della maschera non ci sono istruzioni che comportano un aggiornamento dello
schermo. Il problema dell'effetto dell'apertura a scatti č legato al tempo
di reperimento dei dati per i controlli caselle combinate dal be che, fin
tanto non sono disponibili non rendono visibile il controllo sullo schermo.
Provando e riprovando ho per il momento ovviato cosě:
in visualizzazione struttura della maschera dai controlli caselle combinato
ho cancellato il riferimento "Tipo origine riga" e "Origine riga" per cui
all'apertura della maschera sono immediatamente visibili tutti i controlli
ma opportunamente inabilitati e bloccati;
sull'evento Su apertura della maschera ho impostato Me.TimerInterval = 1000
sull'evento Su timer imposto Me.TimerInterval = 0 e per i controlli caselle
combinate definisco RowSourceType e RowSource, abilito e sblocco i controlli
ed infine trasformo il puntatore da clessidra a freccia
Le prime prove danno esito positivo, devo verificare che per i pc posti in
rete ma distante dal server per cui piů sensibili al traffico di rete l'aver
impostato me.timerinterval = 1000 sia sufficiente o occorre aumentare il
tempo.
Cosa ne pensi?
Ciao, Max.
--------------------------------
Inviato via 
http://usenet.libero.it

 Cosa ne pensi?
E' una bella soluzione.
Non credo si possa ovviare altrimenti...
Antonio
Newsgroup: it.comp.appl.access
Titolo: Report con record raggruppati e altri no

Ciao a tutti.
Sto elaborando la stampa di DDT in uscita. Questi DDT contengono del materiale che deve fare riferimento al DDT di ingresso. Inoltre possono avere dei record che non devono fare riferimento ad alcun DDT di ingresso. Pertanto ho elaborato un sistema che in fase di inserimento vada a prendere l'ID del DDT in ingresso quando necessario, mentre in altri casi l'utente può inserire quello di cui ha bisogno. Ovviamente quell'ID non è la chiave primaria della tabella ma si collega a quella dei ddt in ingresso. La mia chiave primaria è l'IDDDTinUscita. Ora, la query che funge da sorgente per il report, elenca correttamente e nel giusto ordine i record. Il report non fa altro che raggruppare tutti quei record che fanno capo ad un determinato ddt in ingresso. Pertanto, il corpo del mio DDT in uscita dovrebbe essere:
- Rif. Vs. DDT n 1 del 01/01/01
Pane
pere
mele
-Rif. Vs. DDT n. 2 del 02/01/01
Banane
Lamponi
Ananas
... e così via.
Se io, successivamente, ho aggiunto dei record slegati dai DDT in ingresso, il report dovrebbe riportarli al termine di tutto:
 
- Rif. Vs. DDT n 1 del 01/01/01
Pane
pere
mele
-Rif. Vs. DDT n. 2 del 02/01/01
Banane
Lamponi
Ananas
.
.
Cassetta da rendere n. 1
Sacco molto prezioso da rendere pure quello n. 1
è così via
Invece il report mi riporta prima i record che non possono essere raggruppati e poi quelli raggruppati.
Ho provato ad aggiungere altri ordinamenti ma non c'è verso. Al massimo sono riuscito a mettere tutto in ordine ma saltano i raggruppamenti. 
E' possibile fare in modo che dia la precedenza ai raggruppamenti e poi ad altro?
Grazie, spero di essermi spiegato...

 Grazie, spero di essermi spiegato...
 
Ciao,
all'interno del report proverei a usare per il primo raggruppamento l'espressione: Not IsNull(IdDdtIngresso)
a seguire vanno tutti gli altri ordinamenti o raggruppamenti che ti servono.
 
IsNull restituisce True (-1) se il ddt in ingresso non esiste, in caso contrario restituisce False (0), Not "inverte" il tutto quindi le righe con ddt in ingresso saranno messe per prima e quelle senza appariranno dopo.
 
Ciao
Mat.
Newsgroup: it.comp.appl.access
Titolo: Verifica numero relativo di record in tabella

Salve, come da oggetto non riesco a capire come fare ad aprire una tabella
contenuta nel mio DB e tirare fuori il numero relativo di record,
all'interno di una form che punta ad un'altra tabella.


Ciao Gra,
Dovresti usare la funzione DCount (Vedi Help)
mettendola come Origine Controllo di una casella di testo
=DCount(espressione;"Tabella"; Criterio)
Saluti
Cinzia

 all'interno di una form che punta ad un'altra tabella.
[RISPOSTA]
Dovresti chiarire meglio il concetto di "relativo" č poco chiaro.
Per contare il Numero di Records in una tabella ti consiglio
di usare questa funzione:
Function RecCount(strTable as string, optional DbName as
string=vbNullstring) as Long
   Dim dbs As DAO.Database
   Dim tdf As DAO.TableDef
   Dim rs As DAO.Recordset
   Dim x, num_ogg As Integer
   If IsMissing(Nome_Dbs) Or Nome_Dbs = vbNullString Then
      Set dbs = CurrentDb
   Else
      Set dbs = OpenDatabase(Nome_Dbs)
   End If
   Set rs = dbs.Openrecordset("SELECT COUNT(*) FROM " & strTable)
   rs.Movelast
   RecCount= rs.recordcount
   rs.close
   Set rs = Nothing
End Function
All'apparenza sembra una complicazione, ma su Tabelle corpose ha un
risparmio di circa il 40% nel tempo di elaborazione nei confronti di alti
metodi.
Ovviamente se il concetto di Relativo al quale alludevi implicava una
Condizionale
nell'estrazione Records allora ti basterebbe aggiungere la CLAUSOLA WHERE
nella SELECT e passarla come parametro (Stringa) alla Function in modo da
renderla
Flessibile.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: icona barra applicazioni

Salve a tutti,
è possibile con access 2003 creare delle icone
nella barra delle applicazioni?
grazie!
ringo

 ringo
Menů Strumenti----> Avvio ----> Icona Applicazione
Il livello della domanda č quello delle altre, ti invito
a leggere il Manuale e l'Help prima di inviare domande
alle quali conun pň di impegno riusciresti a risolvere
essendo Fondamenti del prodotto.
Saluti
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


ALT-STOP
io intendo un'altra cosa...scusami della poca
chiarezza del mio post...
con del codice pubblicato (mi sembra da Karl)
nascondo la finestra di access e tutto funziona
bene, PERO' ho un problema se riduci ad icona
l'applicazione (dove ho nascosto la finestra di access)
nella barra delle applicazioni non SI VEDE PIU'
L'ICONA DELL'APPLICAZIONE.
Mi chiedevo quindi se via codice riesco a gestire
un'icona manualmente sulla barra delle applicazioni.
grazie
ringo

 ringo
Dai un'occhiata al modello ad Oggetti sulle
proprietà dell'Oggetto CurrentDb in particolare:
CurrentDb.Properties("AppIcon") = strIconPath
Non sono convinto che in seguito all'uso dell'Hide di AccessMDI
si riesca ad esporre l'icona, ma facci sapere come lavora.
Ciao

Newsgroup: it.comp.appl.access
Titolo: AIUTO: come variare in base a parametro il nome del file JPG da visualizzare?

Qulcuno puo' spiegarmi come fare a modificare di volta in volta il
file .jpg che viene visualizzato in un report generato da una query?
Mi spiego meglio: lancio uan query parametrica che mi filtra i campi e
mi genera un report; in questo report vorrei visualizzare un'immagine
(non presente nel database ma prelevata da una cartella presente su
C:) che deve variare in base al parametro in questione.
Es: con questo comando " [Forms]![m_sceltanominativo]![nomescelto]"
filtro la query in base alla varibile [nomescelto] e vorrei che mi si
visualizzasse nel report generato un il file c:\nomescelto.jpg.
quindi se [nomescelto]= mario ....allora vorrei venisse visualizzato
il file mario.jpg; se [nomescelto]= pino ... vorrei che venisse
visualizzato il file pino.jpg etc etc....
S'e' capito qualcosa di cosa mi serve? :-)))
Grazie mille per ogni eventuale aiuto

 ha scritto nel messaggio 
news:907se25gfs6v8mrin...@4ax.com...

Nel report:
- inserisci un controllo immagine (es. Immagine) con proprietà: Tipo 
immagine - collegata;
- gestisci l'evento "su formattazione" ed inserisci:
es.
Me!Immagine.Picture = "C:\" & Me![nomeScelto] & ".jpg"
Comunque sarebbe meglio che ti creassi un campo calcolato, nella query, che 
verifica la presenza del file prima di passarlo al report; magari impostando 
una immagine in b/n con scritto "file non trovato" o "immagine non 
disponibile".
es.(campo calcolato)
nomeFile: iif(dir("c:\" & [nomeScelto] & ".jpg");"c:\" & [nomeScelto] & 
".jpg","c:\immNonDisp.jpg")
Nel report, come spiegato sopra, il codice punterà direttamente al campo 
calcolato:
Me!Immagine.Picture = Me![nomeFile]
Ciao.
-- 
Sergio MAZZA 

Ciao.
OK grazie, per quanto riguarda il file da visualizzare ci siamo. non
capisco pero' come fare a verificare l'esistenza o meno dell'imagine
richiesta.  Mi spiego meglio, non riesco ad applicare la formula con
IIF che mi hai suggerito nella query che passa il parametro al report,
in quano la funzione DIR non mi vine riconosciuta.
Dove sbaglio?

 Dove sbaglio?
Mi sembra strano; che errore ti da?
Riporta il codice che hai scritto...
Ciao.
-- 
Sergio MAZZA 

 Dove sbaglio?
Per la cronaca (tua); quando decidi di inviare lo stesso messaggio a più NG 
che trattano lo stesso argomento, sarebbe carino indicarlo...
Grazie.
Ciao.
-- 
Sergio MAZZA 



Scusami, ma non pensavo di contravvenire ad alcuna regola di
netiquette. Come ci si comporta in questi casi?
Per quanto riguarda l'errore che compare quando provo a lanciare la
query eccolo: Funzione 'dir' non definita nell'espressione.
ed ecco il l'espressione che ho usato nel campo calcolato NOMEFILE:
IIf(Dir("c:\" & [nomescelto] & ".jpg");"c:\" & [nomescelto] &
".jpg";"c:\immnondisp.jpg")
Ciao e grazie

 Ciao e grazie
Incolla il codice che hai scritto...
Ciao.
-- 
Sergio MAZZA 



OK ho risolto inserendo il controllo nel report.
Grazie mille per il suggerimento
Newsgroup: it.comp.appl.access
Titolo: Chiedo AIUTO!!!!


Ammettendo che la tua tabella si chiami Tabella1, che  il tuo campo "SI/NO"
si chiami CampoSiNo e che vuoi sapere quante vetture sono efficienti, creati
una query il cui codice SQL sia il seguente:
SELECT Count(Tabella1.CampoSiNo) AS ConteggioDiCampoSiNo
FROM Tabella1
WHERE ((((Tabella1.CampoSiNo))=True));
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------



 WHERE ((((Tabella1.CampoSiNo))=True));
O, qualora ti serva il risultato da codice o come espressione da passare ad
un controllo calcolato, usa la Dcount in questo modo:
Dcount("*","Tabella1","[CampoSiNo]=true")
Antonio



Newsgroup: it.comp.appl.access
Titolo: Automazione Word in Access

La mia routine:
[Cut]
Set appW = New Word.Application
Set Doc = New Word.Document
'Fase di apertura documento tramite modello
PercorsoDot = CurrentProject.Path & "\Riepilogo.dot"
Set Doc = appW.Documents.Add(PercorsoDot, False)
'Scrittura dei dati
[Cut]
Doc.Bookmarks("Data").Select
Selection.TypeText "Elaborato il: " & Data
AppW.Visible = True
Exit_Err:
    Set Doc = Nothing
    Set appW = Nothing
    Exit Sub
Gest_Err:
    MsgBox Err.Description, vbCritical, Titolo
    Resume Exit_Err
Exit Sub
La prima volta funziona ma Word rimane nei task. La seconda volta se 
rilancio la routine e Access mi indica Computer o server remoto assente!
Qualcuno sa come risolvere il problema o quantomeno indicarmi cosa sbaglio?
Grazie in anticipo
Luca
HTH

 ha scritto nel messaggio
news:skMBe.250$B6....@twister1.libero.it...

E' ovvio...!
Hai solamente chiuso l'Istanza all'Oggetto, ma non l'Oggetto pertanto....!
Oltre che Killare le variabili Oggetto Killa pure il DOC, salvandolo se lo
riteieni
opportuno.
Ora dai un'occhiata a questo codice che ti ho estratto da una Routine un pò
complessa.
Innanzitutto sfrutta il LateBinding che ti svincola dall'inserimento dei
Riferimenti di
Word cosa sempre apprezzabile, secondo gestisce corettamente le istanze e
l'eventuale errore tra il GetObject e CreateObject, quindi ne Chiude
l'Oggeto
e le ISTANZE in modo corretto:
' PS se c'è qualche mancata dichiarazione o buco è dovuto al TAGLIA/INCOLLA
   Dim   wordApp As Object
   Dim   wordDoc As Object
   Dim RepSel
   On Error GoTo gestErrori
   ' APRE SE ESISTE GIA' UN'OGGETTO WORD
   Set wordApp = GetObject(, "Word.Application")
   ' NEL CASO NON ESISTA VERRA' GESTITO L'ERRORE
   ' E VERRA' CREATO UN NUOVO OGGETTO WORD
   With wordApp
      ' MEMORIZZA LO STATO DI [RIMPIAZZA SELEZIONE] PER
      ' RIPRISTINARLO ALL'USCITA IN QUANTO ORA LO FORZIAMO=TRUE
      ReplSel = .Options.ReplaceSelection
      .Options.ReplaceSelection = True
      Set wordDoc = .Documents.Add(strDOT)
      wordApp.Visible = True
      wordDoc.Activate
      .Selection.TypeText Text:= "Elaborato il: " & Data
   End With
   wordDoc.SaveAs ..............................
   wordApp.Quit
Esci:
  If Not wordDoc Is Nothing Then Set wordDoc = Nothing
  If Not wordApp Is Nothing Then Set wordApp = Nothing
  Exit Function
gestErrori:
   If err.Number = 429 Then
       'se c'è stato un errore è perchè Word non era già aperto:
       'aprilo adesso
       Set wordApp = CreateObject("Word.Application")
       Resume Next
   Else
      GoTo Esci
   End If
End Function
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: somma in report sbagliata con filtro in maschera

ho una form a cui applico un report con la proprietą me.filter
solo che se apro il report e faccio la somma parziale di una certa categoria 
mi somma tutto e non solo i record visualizzati
esempio
ho i seguenti form nella tabella
data         categoria    prezzo
01/01/04  carne          10
01/01/04  pesce          25
25/12/04  carne          12
filtrando la form con data fino al 31/01/04 ottengo a video questi record
01/01/04  carne          10
01/01/04  pesce          25
se apro il report e dico di farmi la somma della categoria carne ottengo 22 
anzichč 10 che mi aspetterei
come applico il filtro della form al report in vba?
Grazie a tutti 

 ha scritto nel messaggio
news:clto8a$5tv$1...@lacerta.tiscalinet.it...

Ciao Simba883,
Alla OpenReport nel PArametro filterString passi il filtro della maschera
DoCmd.Openreport ,.., me.filter
ciao
Cinzia


si già lo faccio ma poi nel campo categoria faccio la somma in questo modo
bilanciocorrente è una tabella
Me.totcat = DSum("importo", "bilanciocorrente", 
"[categoria]=reports![bilancio]![categoria]")
come gli dico di fare questa somma dei soli record che ho a video nella 
form?
Grazie. 

 wrote in message
clto8a$5tv$1...@lacerta.tiscalinet.it...

Per filtrare il report nello stesso modo in cui hai filtrato la maschera, se
la maschera si chiama MiaMaschera, a fronte dell'evento "Su apertura" del
report scrivi:
Me.Filter = Forms!MiaMaschera.Filter
Me.FilterOn = True
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 wrote in message
cltqg7$8nr$1...@lacerta.tiscalinet.it...

Dopo aver filtrato il report come indicato nell'altro mio messaggio, se il
campo Categoria è Numerico prova a scrivere la DSum così:
Me!totcat = DSum("importo", "bilanciocorrente",  _
Me.Filter & " And Categoria=" & Me!Categoria)
se invece il campo Categoria è di tipo Testo prova così:
Me!totcat = DSum("importo", "bilanciocorrente",  _
Me.Filter & " And Categoria='" & Me!Categoria & "'")


 
http://www.sitocomune.com
funziona grazie mille!

Newsgroup: it.comp.appl.access
Titolo: numero di records nella maschera corrente

ciao a tutti
 
Come conto tutti i records nella maschera corrente?
Grazie 
 
 


=(Recordset.RecordCount) 
 
 


Lo fa già Access. In basso a sinistra nelle form (proprietà Navigation Buttons nella scheda formattazione della form)

After serious thinking Franco wrote :

Che in Access 2010/64 non funziona più!
Funziona invece:
=Count(*)
 
Bruno
 
 

 ha scritto nel messaggio 
news:4fb76f26$0$1385$4faf...@reader2.news.tin.it...

ciao Bruno
io ho 2003
e funziona
cmq grazie
Newsgroup: it.comp.appl.access
Titolo: problema con carattere chr(10) in textbox

se uso un testo con chr(10) in una textbox vedo una lineetta verticale
anzichč vedere il testo andare a capo mentre la stessa stringa usata con
sendobject e poi guardando la email in outlook express si comporta
correttamente e cioč vedo il testo andato a capo.
voi sapete il motivo?
textbox = "ciao" & chr(10)  & "mare" ottengo ciao|mare
mentre in outlook con sendobject ottengo
ciao
mare
perchč? grazie.

 ha scritto nel messaggio
news:b6n7ap$cre$2...@lacerta.tiscalinet.it...

prova cosě:
textbox = "ciao" & chr(10)  & chr(13) & "mare"
oppure
textbox = "ciao" & vbnewline & "mare"
Ciao, omnitow

 Ciao, omnitow
funziona il vbnewline grazie mille

 ha scritto nel messaggio
news:j%Fja.9970$DT4.3...@twister1.libero.it...

Attenzione che il vbnewline non č sempre usabile, per esempio nell'origine
riga di un  controllo calcolato.
Inoltre la sintassi č sbagliata:
č chr(13) & chr(10)
Antonio

Newsgroup: it.comp.appl.access
Titolo: Non stampare un campo vuoto

Ho  un report con il quale vengono stampati prodotti e loro movimenti
(ordinati per prodotti).
Durante la fase di imputazione sono stati inseriti dei "prodotti vuoti". La
stampa del report quindi parte con alcune righe bianche.
Come posso fare per evitare la stampa dei prodotti che non sono compilati:
Pensavo di inserire la funzione IIF tipo:
IFF ("campodelprodotto"<>"0";"campodelprodotto";???
Come vedete non riesco a darne fuori.
Grazie in anticipo per ogni aiuto.
NDB

DBN ha scritto:



Setta la proprietą del controllo "CampoDelProdotto" a Riducibile=Sģ.
rgrds
SC
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

DBN ha scritto:

Usa una query come origine dati, e sul campo che può essere vuoto imposta
il criterio Is not null.
Namor
-- 
------------------------------
Siamo tutti nella stessa barca (alcuni incatenati ai remi, altri con la
frusta in mano)!


Newsgroup: it.comp.appl.access
Titolo: Richiesta di aiuto

Ho bisogno di programmare in access una query che vada a pescare in un campo
"Titoli" i record relativi ad una serie di volumi.
Vorrei che la query andasse a trovare tutti i titoli  cercati digitandone
soltanto le tre lettere iniziali della prima e della seconda parola.
Digitando, per esempio, "letlat" per trovare tutti i records che hanno come
titolo "letteratura italiana" oppure "cormat" per "Corso matematica" e cosě
via.
Devo agire col comando sql? Devo impostare i criteri o cosa?
Non penso che si tratti di una cosa particolarmente difficile ma per una
persona come me che di Access ignora praticamente tutto si tratta di un
lavoro impossibile da realizzare senza un aiuto.
Ringrazio anticipatamente tutti coloro che risponderanno.


Non č proprio semplice ma potrebbe essere cosě:
SELECT MiaTabella.Titolo
FROM MiaTabella
WHERE (((Left([Titolo],3))=Left([MiaStringa],3)) AND
((Left(Right([Titolo],Len([Titolo])-InStr(1,[Titolo],"
")),3))=Right([MiaStringa],3)));
copia l'sql e adattalo (MiaTabella e MiaStringa devono essere sostituite con
i veri nomi).
Ciao
--
Togli il tappo per rispondermi
Newsgroup: it.comp.appl.access
Titolo: [VBA] Nome macchina

Ciao a tutti!
Come posso ottenere il nome della macchina in VBA? (anche da funzioni dll)
Grazie!

 Grazie!
 prova questa
Function fOSMachineName() As String
Dim lngLen As Long, lngX As Long
Dim strCompName As String
    lngLen = 16
    strCompName = String$(lngLen, 0)
    lngX = apiGetComputerName(strCompName, lngLen)
    If lngX <> 0 Then
        fOSMachineName = Left$(strCompName, lngLen)
    Else
        fOSMachineName = ""
    End If
End Function
Fabio Dalla Villa

...
premettendo questo:
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 Fabio Dalla Villa

 ha scritto
nel messaggio
news:cibls8$o2p$1...@grillo.cs.interbusiness.it...

Environ("GetComputerName")
Massimiliano

Newsgroup: it.comp.appl.access
Titolo: Il miglior programmatore Access italiano

Oggi ho telefonato prima a Federico Luciani e poi a Lorenzo Coronati senza
dire chi fossi, ma semplicemente chiedendo:
"Pronto? Parlo con li miglior programmatore Access italiano?"
Entrambi non hanno battuto ciglio ma hanno prontamente risposto:
"Si, pronto..."
Ah, la modestia!!!:-)))
Saluti.
Luciano
(DOC)
Meno male che non ho telefonato pure a Biso.....

Meno male che non ho telefonato pure a Biso.....
e io chi sono, l'ultimo dei fessi?
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

Non vorrai mica farci credere che tu alla stessa domanda avresti
risposto in maniera diversa ? :-))
Vincenzo Turturro
---------------------------------------------------------
Se no diventiamo tutti **** dai portatili o peggio ancora 
provetti poeti fiorentini come vturturro.
(Cosě disse 
ivan....@tiscalinet.it
 Ven 25 Aug 2000 09:34:52 +0200)

Domenica Telocompilo
-- 
Alessandro Cara

 Meno male che non ho telefonato pure a Biso.....
A me non hai telefonato, perché ti saresti preso come risposta "Come... solo
italiano?" :-))
Ben tornato su questo NG!
Dov'eri di bello?  ;-P
--
Silvio



Ma allora ci sei............
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: problema query ultimo cliente

ho il seguente problema:
dovrei generare una query, la quale mi da le ultime due vendite di ogni
cliente.
per esempio: (questo è il risultato che dovrei ottenere)
data vendita        cliente        articolo        quantita
20.02.00            alfa            alfa                10
18.02.00            alfa            beta               12
20.02.00            beta           test                5
01.01.00            beta           alfa                  2
queste sarebbero le ultime due vendite per ciascun cliente
qualcuno riesce ad aiutarmi ???

Semplice o quasi!
Il concetto è che generi una tabella (es.: Ultime2Vendite) dove metterai i
risultati di una query di "accodamento" reiterata per ogni cliente.
Questa query darà il risultato in base alla impostazione sul campo cliente
dove imporrai che [cliente]=alfa poi beta e via di seguito. La query sarà
ordinata per date decrescenti e da "Proprietà query" imposti il valore della
proprietà PrimiValori a per esempio 5. Da lì guardando la query in
"visualizzazione query" troverai Top n, dove n è il numero dei primi record
da prendere (nell'esempio n=5). Normalmente puoi mettere solo i valori che
ti propone il controllo di PrimiValori (Non è possibile impostare tale
proprietà direttamente nel codice) e quindi puoi provare a cambiare n di Top
n al valore desiderato, cioè 2 in questo caso.
Se Top n non è modificabile (non l'ho verificato), allora devi prendere i
primi due records dalla tabella della query con una piccola routine. Il
risultato infine lo metterai nella tabella Ultime2Vendite.
Questa tabella Ultime2Vendite sarà nella voce "Origine riga" del tuo casella
di controllo.
Ovviamente per evitare che a l'avviamento della maschera o del database ti
dica che non esiste questa tabella Ultime2Vendite, devi crearla in fin dei
conti in modo definitivo, e svuotarla ogni tanto con dei criteri che solo tu
puoi decidere.
Spero che non ti sembri difficile. Se leggi bene le istruzioni il concetto è
semplice, la scrittura del codice forse un pò laboriosa, ma neanche tanto!
Buona fortuna e fammi sapere.
Thierry Rega

 schrieb in im Newsbeitrag:
89pkhc$ba2$1...@pegasus.tiscalinet.it...


Dovrebbe funzionare la funzione For Each...Next.
Dove Each sarebbe per ogni valore del campo [clienti] che metti in una
variabile da utilizzare per la query. Leggi bene l'help che vedrai che
questa istruzione è molto comoda :-)
Adesso che ci penso attenzione ai casi in cui il cliente ha solo 0 o 1
vendita. Devi verificare se con Top 2 lo accetta lo stesso o se dà un
messaggio di errore. In qual caso dovrai fare la stessa query dove nella
proprietà PrimiValori rimmetti Tutti (ricordati che PrimiValori non è
modificabile tramite codice). Quindi faresti un test all'interno di For
Each...Next che verifica il numero di records risultanti.
Forse adesso funzionerà
Ciao
Thierry Rega