mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: malfunzionamenti di access

Sto utilizzando access 2003, costretto ad abbondare access97, e mi capita 
frequentemente che codice che ha sempre funzionato correttamente ad un 
tratto comincia a dare degli errori. il caso più frequente e quando cerco di 
aprire un recordset dopo averlo definito e mi risponde operazione non 
valida!!!
Esempio:
 Dim rsTable As DAO.Recordset
 Set rsTable = CurrentDb.OpenRecordset("LinkedTables", dbOpenTable)
dove linkedtables è il nome di una tabella, la libreria microsoft DAO 
2.5/3.5 è caricata
ringrazio anticipatamente 

 wrote in message 
news:y7mDh.3547$zG1....@twister2.libero.it...

Hai qualche motivo particolare per usare "dbOpenTable" in
luogo di "dbOpenDynaset"?.
Bruno 

 ha scritto nel messaggio 
news:y7mDh.3547$zG1....@twister2.libero.it...

Mi vengono due osservazioni:
1) Perchè non DAO 3.6 che è il riferimento che si genera automaticamente 
quando si avvia una nuova applicazione con Access 2003 ? C'è forse un motivo 
per preferire una versione più datata di questa libreria ?
2) Leggo nel'help a proposito del metodo openrecordset...
"In un'area di lavoro di Microsoft Jet, se oggetto si riferisce a un oggetto 
QueryDef o a un oggetto Recordset di tipo dynaset o di tipo snapshot oppure 
se origine si riferisce a un'istruzione SQL o a un oggetto TableDef che 
rappresenta una tabella collegata, non è possibile utilizzare la costante 
dbOpenTable per l'argomento tipo. In caso contrario si verificherà un errore 
di run-time."
Non sarà il caso tuo ? Io comunque sono abituato ad aprire sempre la tabella 
utilizzando la costante dbOpenDynaset
Ciao
Antonio

 ha scritto nel messaggio 
news:45dea02e$0$20824$5fc...@news.tiscali.it...


 Pippo
Ma hai provato ad aprire il recordset con dbOpenDynaset
in luogo di dbOpenTable?
Stesso comportamento?
Bruno 

Ciao Bruno,
Io avevo risolto non specificando nulla il che vuol dire, se non ricordo 
male, che il recordset č di tipo table.
Ho provato a specificare dbopendynaset e funziona, ma la cosa piů bella č 
che adesso ho riprovato a specificare dbOpenTable ed č tornato a 
funzionare!!!
In tutto questo prova e riprova io ho ricompattato il db puň essere che il 
problema sia quello?

 problema sia quello?
Con Access tutto puň essere, anche un uomo gravido!
Bruno
Newsgroup: it.comp.appl.access
Titolo: [it.comp.appl.access] benvenuto su Usenet!

Ciao!
Questo newsgroup (it.comp.appl.access) non è moderato: puoi
trovare informazioni su di esso nel suo manifesto, che trovi qui in fondo.
Tutto questo è arabo per te? leggi
http://www.news.nic.it/news-it/docs/glossario.html
 .
Tieni presente che esistono anche questi gruppi:
it.test        - per fare tutte le prove con le news
it.aiuto       - per domande generiche di aiuto
it.news.aiuto  - per tutti i problemi riguardanti le news
Se hai fretta, probabilmente la soluzione al tuo problema connesso alle
news la trovi già qui: 
http://www.news.nic.it/news-it/oth/aiuto-20.txt
 .
Alcuni gruppi sono moderati, e funzionano in modo diverso: scopri
come a 
http://www.news.nic.it/news-it/docs/moderaz1.html
 .
Ricorda che SCRIVERE MAIUSCOLO equivale a gridare, e che la cosa
può infastidire molti di coloro che ti leggeranno. E già che ci sei,
ricordati di quotare poco, e di lasciare il testo citato *prima* del tuo.
Infine, questo newsgroup fa parte della gerarchia it.*: se non sai cos'è
un newsgroup, una gerarchia, oppure it.*, lo puoi scoprire a
http://www.news.nic.it/news-it/
 .
Questo gruppo dovrebbe trattare dell'ammbiente Microsoft-Access, di
specifiche tecniche, aggiornamenti, discussioni, scambi di codice
sorgente e routines, chiarimenti su eventuali bug, discussioni tra
utenti e in particolar modo tra sviluppatori.
Sarebbe inoltre utile per lo scambio di URL per link interessanti
riguardanti il pacchetto.

 Questo gruppo dovrebbe trattare dell'ammbiente Microsoft-Access, di
Ehm; Triade c'è un erorio, troppe emme in questo ambiente...
Ciao.
--
- - - - - - - - - - - - - - -
Sergio MAZZA
- - - - - - - - - - - - - - -

Ehm; Triade c'č un erorio, troppe emme in questo ambiente...
Triade? Dillo al GCN, quella e' roba loro!!! :-)
Che poi credo che loro si limitino a postare i manifesti di costituzione dei
gruppi che ricevono. Chi ha scritto il nostro? IL fondatore di ICDA poi
divenuto ICAA. Ergo...Paolo Holz!!!!:-)))
Pero' dai....glie la perdoniamo....:-))
Saluti.
Luciano



 Luciano


Newsgroup: it.comp.appl.access
Titolo: Tabelle - Numero con formato Euro o Standard

 
Salve,
mi succede questa cosa (Access 2000).
 
Tabella con 2 campi Numerici, Precisione singola.
Il primo campo ha il formato Euro, il secondo Standard con 2 cifre
decimali
 
Inserisco in entrambi i campi il numero 123,45 (ma vale con qualsiasi
decimale), mi appare nel primo campo il numero 123,45 preceduto dal
simbolo dell'Euro, nell'altro il numero 123,45.
 
Tuttavia se clicco col mouse sul primo campo il numero (Euro) mi
appare: 123,449996, l'altro continua ad apparirmi 123,45.
La cosa è curiosa perché 123,449996 NON E' il valore che ho inserito.
 
Come si spiega la stranezza?
 
Grazie e buone ferie.
Filippo
 
 
 
 
 

 Come si spiega la stranezza?
 
Una delle regole pi� vecchie nel mondo di Access:
Non usare mai il tipo Single perch� � impreciso nei decimali.
Esistono mille discussioni su questo soggetto.
 
Per la moneta usa il tipo Valuta e secondo me senza simbolo
perch� solo da fastidio.
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: utilizzo di CopyFile con ftp..

utilizzando il metodo CopyFile è possibile trasferire un file su un sito ftp
in una cartella specifica?
ho fatto un po di tentativi ma senza successo...
(riposto questo problema xkè mi hanno fatto notare che nel post precendete
non ho rispettato le regole del ng...
chiedo scusa...:-P )
ciao
davide

 ha scritto nel messaggio
news:w97jc.146628$Kc3.4...@twister2.libero.it...

Il metodo che hai indicato è proprio di quale oggetto e versione di access?
Ciao.
-- 
Sergio MAZZA

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

Scusate il disturbo. Ho una lan con 4 pc  su un router atlantis A02-RA3+.
Ho fatto una conessione vpn da casa per condividere delle risorse e tutto va
bene se copio i file, pero' non mi permette di collegare le tabelle di
access che sono in una cartella condivisa nella lan per poter aggiornare in
tempo reale da casa i dati.
Mi da un messaggio che dice che i file sono in una posizione esterna alla
rete.
Se potete aiutarmi grazie paolo.

 ha scritto nel messaggio
news:cp2bb4$p24$1...@news.ngi.it...

Generalmente in questo ng non si risponde ai messaggi con un oggetto poco
significativo come il tuo : aiuto!
Chi in futuro cercherà informazioni riguardo allo stesso problema cosa
cercherà ? aiuto? help?
Prova a ripostare con un oggetto che illustri sinteticamente il tuo
problema, qualcuno sicuramente ti aiuterà.
www.sitocomune.com
 per tutte le info riguardanti la netiquette del ng.

Newsgroup: it.comp.appl.access
Titolo: Maschera Con Group By

Ho una maschera che contiene doppioni, voglio attraverso un pulsante
fare in modo di attivare un group by secondo un mio criterio...quale
strategia adottare?
Grazie mille...


me.tuamaschera.form.recordsource
Occhio che dovrai gestire i nomi diversi dei campi raggruppati
a tal proposito io useri anche nella maschera esplosa un alias
Invece di 
SELECT Numeropere, numerocartoni ...
usi già
Select Numeropere as Pere, numerocartoni as cartoni
in modo che non avrai problemi anche anche con
SELECT SUM(numeropere) as Pere
 
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


Ok, grazie questo lo faccio, ma perchè non riesco a fare un singolo
group by come in sql ...del tipo SELECT id,anno,stato,pizza FROM Mondo
GROUP BY id.... perchè devo mettere tutti i campi in select anche in
group? Sbaglio io qualcosa?
Grazie mille


Sì sbagli a non metterli
In sql e anche quello usato da access
devi specificare come gestire i campi interessati in una select se la raggruppi
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it



Non capisco il perchè...io voglio i campi raggruppati in base ad una
colonna ...perchè devo raggruppare anche gli altri?


Non capisco il perchè...io voglio i campi raggruppati in base ad una



Non capisco il perchè...io voglio i campi raggruppati in base ad una

Newsgroup: it.comp.appl.access
Titolo: Etichette su Stampanti ad Aghi da Access'97

Ho un programma in access'97 che mi stampa delle etichette su una stampante
ad aghi.. hanno cambiato il pc.. e messo XP nel driver della stampante ad
aghi.. non si possono mettere più le misure dell'etichetta predefinita
dall'utente.. come posso fare.. si possono mettere in qulche modo dentro
l'access ?
Grazie.



su xp creati la tua definizione dell'etichetta vai su stampanti e fax 
file
server proprietà di stampa
e ti crei il modulo che ti serve....
Saluti.
Emanuele.

Newsgroup: it.comp.appl.access
Titolo: Come cambiare nome ad un oggetto su tutti i riferimenti dentro un mdb ???

Allura, il mio bel programma nuovo fiammante
Desidero cambiare il nome del campo CODICE nella tabella ARTICOLI e 
chiamarlo CODICE_ARTICOLO
C'e' modo di cambiare tale riferimento in un colpo solo su Form, Query, 
Report, Moduli, Macro ???
Il 'sostituisci' non va bene perche' sostituirebbe anche la scritta CODICE 
dentro un testo qualsiasi
Stessa cosa ovviamente per tutti gli altri 'oggetti' di un db Access, 
l'esempio del nome campo era appunto un esempio
Ciao e grazie
RobertoA

 ha scritto nel messaggio 
news:462d0283$1...@newsgate.x-privat.org...

Io sfrutterei, dove possibile (nel codice) l'eventuale nome "Codice" racchiuso tra parentesi 
quadre..... Perchè lo hai racchiuso vero?
In caso contrario, a manina!
A parte gli scherzi, ti conviene farlo a mano sul serio finchè il db non diventa esagerato. Anzi, 
fai l'operazione una volta sola e per tutti i campi e tabelle con nomi bislacchi. Guadagnerai 
sicuramente in futuro il tempo che perdi.....
Michele 

Michele (Giò) ha scritto:

Io utilizzo Find & Replace  scaricabile  da 
http://www.rickworld.com/download.html
Funziona molto bene ed è selettivo

Newsgroup: it.comp.appl.access
Titolo: stampare più volte un dato di un re port

Non so esatamente come scrivere il soggetto, perchè la faccenda mi 
sembra abbastanza complessa.
ha un record con n campo quantità ed un campo con un codice a barre.
Nel mio report hopreparato usando un font adatto il codice stampabile.
Però mi servirebbe che nella pagina del report fosse ripetutto tante 
volte quante sono le quantità inserite nel campo quantità.
Pensavo di dover usare ovviamente un ciclo for next però come faccio ad 
inseire tutto nella stessa pagina?
Spero di essere stato abbastanza chiaro

 ha scritto nel messaggio
news:3DF86A48...@libero.it...

sul sito comune c'è un ottimo esempio di come stampare più volte la stessa
etichetta . E' un caso analogo al tuo....
Newsgroup: it.comp.appl.access
Titolo: MsgBopx "Testo" vbOnlyOKCancel, però OK e cancel fanno la stessa cosa ...

	salve a tutti.
ho inserito 
MsgBox "Testo" vbOnlyOKCancel in una routine di apertura di una
machera pensando che se premo ok la maschera si apre e se premo cancel
non si apre.
e invece è la stessa cosa.
come si possono rendere più "incisive" le differenze tra i due
pulsanti?
ho letto l'help di access su MsgBox ma non dice molto ... 
grazie a tutti

 ha scritto nel messaggio
news:i8ejovgf44k7g9n79...@4ax.com...

Prova così:
Dim Pippo As Variant
Pippo = MsgBox("Vuoi aprire la maschera", vbOKCancel)
If Pippo = vbOK Then
    'apri la maschera
    DoCmd.OpenForm ........
End If
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

End If
Cosi se premo Ok viene aperta la maschera altrimenti, cioè se premo
cancel, verrebbe aperta lo stesso perché continua l'evento
ApriMaschera.
Così l'ho cambiata in 
If Pippo = vbOK Then
        DoCmd.OpenForm "Prodotti
        Else
        DoCmd.OpenForm "Prodotti"
        DoCmd.Close
    End If
Cioè l'ho fregato ...
Se però la cosa è da fare in chiusura sorge una complicazione
	Dim Pippo As Variant
            Pippo = MsgBox("chiudi?", vbOKCancel)
                    If Pippo = vbCancel Then
            	       DoCmd.Close
                      	       DoCmd.OpenForm "Prodotti", , , , acEdit
               End If
Mi doce che l'azione Close è stata annullata, se commeto la riga di
close, la maschera viene chiusa e basta. credo che il motivo sia che
DoCmd.OpenForm trova la maschera già aperta e quindi non fa niente ...
che ne pensate? potrebbe essere questa la ragione?

 ApriMaschera.
Non avevo ben capito che l'evento "Su apertura" era quello della maschera
che doveva o restare aperta o non si doveva aprire affatto.
Se le cose stanno così prova ad usare questo codice VBA:
Private Sub Form_Open(Cancel As Integer)
Dim Pippo As Variant
Pippo = MsgBox("Vuoi aprire la maschera", vbOKCancel)
If Pippo = vbCancel Then
    ' non far aprire la maschera
    Cancel = True
End If
End Sub


impostare Cancel= True č stato fondamentale
e cosě sono riuscito in tutti e due i miei casi.
il fatto di fare apri e poi chiudi chiaramente era solo un trucco da
quattro soldi ...
grazie
Newsgroup: it.comp.appl.access
Titolo: Uno-a-molti...

...in Access, è l'unico modo di relazionare attributi di tabelle diverse?
--
Narsil

 ...in Access, è l'unico modo di relazionare attributi di tabelle diverse?
        Uno -> Uno
        Uno -> Molti
        Molti - Molti:
        [Tabella1] 1 -> Molti [Tabella3] Molti <- 1 [Tabella2]
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

         Molti - Molti:
            Molti -> Uno

 ha scritto nel messaggio
news:XC7o9.16536$cS4.6...@news2.tin.it...


> "Massimiliano Amendola kksrl" news:aopeq7$5ro$
1...@fe1.cs.interbusiness.it
:
    Che succede?
    Stavi pulendo la mailbox quando ti e' partito un colpo?


  X
E' da tanto che volevo chiederti: che significa questo acronimo?
ciao MAssimiliano

 E' da tanto che volevo chiederti: che significa questo acronimo?
So' Proprio Qua de Roma!

 So' Proprio Qua de Roma!
    Nonzignore.
        BASIC:
            ?SQR(100)
             10
        BASICVS:
            ?SPQR(C)
             X
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.appl.access
Titolo: Filtro in base a maschera.

Vorrei filtrare una tabella con un filtro in base a maschera, ma ho bisogno
che uno stesso valore  venga confrontato su piů colonne della tabella da
filtrare.
In particolare ho una tabella libri con alcuni campi dedicati a parole
chiave, e vorrei che quando filtro la maschera il valore immesso in (x
esempio) "ParolaChiave1" sia un metodo di filtro sia per il campo
ParolaChiave1 che per gli altri. Questo perchč ogni libro puň avere piů
parole chiave, č impossibile pensare di riconrdare in quale campo č stata
inserita una parola chiave (dovrei ricordare l'ordine esatto), invece voglio
che ogni parola chiave inserita sia cercata in ogni campo dedicato alle
ParoleChiave.
Grazie Mille per il vostro aiuto
Lua

Il mio problema forse si potrebbe anche risolvere se riuscissi a far
filtrare la maschera non sul valore esatto di un campo, ma facendo
controllare se il campo della tabella da filtrare (stringa) contiene il
valore inserito (non esatto, magari solo una parola all'interno di una
frase).
Grazie ancora Luca

 wrote in message
MfXIa.110211$lK4.
3101780
@twister1.libero.it...

L'operatore Like (vedi help) utilizzando nel suo criterio il carattere jolly
* (asterisco).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 wrote in message
nMWIa.107365$Ny5.3...@twister2.libero.it...

Usa il metodo FindRecord impostando ad acAnywhere l'argomento corrispondenza
ed impostando ad acAll l'argomento soloincampocorrente (vedi help).


Grazie mille.
Luca

Newsgroup: it.comp.appl.access
Titolo: Parametri in ciclo Do......loop

come inserire se nel ciclo
idx = 0
do until rs.eof
 rs.edit
 rs.nomecampo = (idx mod 4) + 1
 rs.update
 rs.movenext
 idx = idx +1
 loop
uno o piu criteri
tipo :
me.categorie =  miaform!miocampo
me.categorie2 =  miaform!miocampo2
come procedere
Grazie
Genefer 

 Genefer
Cosa vuoi fare di preciso (non dire come, ma cosa)
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 wrote in message 
news:43d66085$0$30946$4faf...@reader2.news.tin.it...

Se ho ben capito:
If Me.categorie = miaform!miocampo AND _
       Me.categorie2 = miaform!miocampo2 THEN
       idx = 0
       Do Until rs.EOF
            .................
       Loop
End If
Sempre che tu voglia un AND e non un OR.
Sei sicuro di avere le idee chiare?
Bruno
Newsgroup: it.comp.appl.access
Titolo: Spostare files

Buongiorno a tutti,ormai sta diventando un'abitudine quotidiana chiedervi
aiuto..
La domanda del giorno č:
Esiste un comando o comunque una procedura che mi consenta di spostare un
file da un cartella ad un'altra?
Tipo Sposta(path origine,path destinazione)
Ciao Fra
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Ciao Fra
NAme pathorigine as pathdestinazione
MAssimiliano

MA ha scritto:


Grazie MAx ma questo comando lo copia o lo sposta proprio?


 Grazie MAx ma questo comando lo copia o lo sposta proprio?
provalo
MAssimiliano

Ciao Fra
Recentemente mi serviva fare la stessa cosa (un pň piů sofisticata) ed
ho scoperto il FileSystemObject.
Devi inserire come riferimenti il "Microsoft Scripting Runtime".
Ti mando gli esempi tirati giů da non ricordo dove (nel caso cerca con
Google).
'Copy a file if it exists
Sub CopyFile()
Dim fso
Dim file As String, sfol As String, dfol As String
file = "test.xls" ' change to match the file name
sfol = "C:\" ' change to match the source folder path
dfol = "E:\" ' change to match the destination folder path
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(sfol & file) Then
    MsgBox sfol & file & " does not exist!", vbExclamation, "Source
File Missing"
ElseIf Not fso.FileExists(dfol & file) Then
    fso.CopyFile (sfol & file), dfol, True
Else
    MsgBox dfol & file & " already exists!", vbExclamation,
"Destination File Exists"
End If
End Sub
'Move a file if it exists
Sub MoveFile()
Dim fso
Dim file As String, sfol As String, dfol As String
file = "test.xls" ' change to match the file name
sfol = "C:\" ' change to match the source folder path
dfol = "E:\" ' change to match the destination folder path
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(sfol & file) Then
    MsgBox sfol & file & " does not exist!", vbExclamation, "Source
File Missing"
ElseIf Not fso.FileExists(dfol & file) Then
    fso.MoveFile (sfol & file), dfol
Else
    MsgBox dfol & file & " already exists!", vbExclamation,
"Destination File Exists"
End If
End Sub
Ciao
Fabio

 Fabio
Grazie a tutti e due..appena l'ho provato vi facio sapere!


 ha scritto nel messaggio
news:LQf3c.16348$HO2....@news.edisontel.com...

Esaggerato.... č fatica, se lo fai tu per lui non č meglio.....!
;-)
@Alex.


Secondo me l'ha provato e si č talamente stremato che non ha piů energie per
ringraziare.
Piccolino, peccato che non ci ha detto da dove digita, potevamo mandargli il
118
MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: Pulsante per impostazione campo flag

Il mio problema è quello di creare un pulsante in una maschera che 
premuto cambi il valore di un campo flag ad esempio da 1 a 2, solo nel 
record visualizzato nella maschera. Ho bisogno di un codice in VBA? di 
una query di aggiornamento?
Grazie x l'aiuto.

 ha scritto nel messaggio
news:MPG.1626a972...@news.tin.it...

Volendo puoi utilizzare anche una macro la macro è Imposta Valore,
con il codice VBA devi scrivere:
if Me.NomeDelFlag = 1 then
    Me.NomeDelFlag = 2
end if
Ciao Roberto - Syd

 
Vale anche nel caso in cui il flag sia una stringa di testo?

 ha scritto nel messaggio
news:MPG.162784dac...@news.tin.it...

Si
if Me.NomeDelFlag = "Testo" then
     Me.NomeDelFlag = "CambiaTesto"
end if
Newsgroup: it.comp.appl.access
Titolo: Filtrare una maschera

Salve a tutti,
ho una maschera con diversi record. Mi occorrerebbe filtrare tutti i record
che hanno un campo uguale a quello individuato in una casella combinata.
Per esempio:
rossi     27
bianchi 25
beri      34
bianchi 31
e selezionando in una casella combinata "bianchi", la maschera mi mostri
soltanto:
bianchi  25
bianchi  31
Grazie in anticipo e
buon weekend!!!
Rovena

 bianchi  31
Nel codice del evento "Dopo Aggiornamento" del combo:
Me.Filter = "TuoCampo=" & Chr(34) & Me!TuoCombo & Chr(34)
Me.FilterOn = True
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)


ho provato ma non funziona... devo sbagliare qualcosa...
la maschera iniziale è una lista di record di una tabella "soldi incassati".
In questa tabella ci sono i clienti e le somme incassate. La tabella "soldi
incassati" ha una relazione con la tabella "clienti". Lo stesso cliente può
fare ovviamente più pagamenti.
Dunque dalla maschera dei "soldi incassati" faccio un combo
(CasellaCombinata20) che va a pescare tra i clienti della tabella "clienti",
su questa stessa combo dopo l'aggiornamento ho scritto:
Private Sub CasellaCombinata20_AfterUpdate()
Me.Filter = "[soldiincassati]![cliente]=" & Chr(34) & Me!CasellaCombinata20
& Chr(34)
Me.FilterOn = True
End Sub
Spero di essere stata chiara,
Grazie ancora!
Rovena


 Spero di essere stata chiara,
Cosa vuol dire "non funziona"?
Non succede niente o un risultato falso o un errore (quale)?
Quale tipo di dato ha il tuo campo "cliente"?
La colonna associata del combo fornisce il risultato aspettato?
Prova con: Msgbox Me!CasellaCombinata20
e se non costa troppo regala un nome significativo al povero combo. ;-)



Non devi indicare il nome della tabella nel filtro, solo il nome del campo:
Me.Filter = "[cliente]=" & Chr(34) & Me!CasellaCombinata20 & Chr(34)
Me.FilterOn = True
Poi se la casella combinata ha come "colonna associata" un campo diverso da [cliente] o uno co un altro nome ma comunque con lo
stesso contenuto, non potrai mai utilizzarla come filtro.
E sopratutto non farmi inquietare Karl, cerca di dare dei nomi ai controlli che siano significativi; sicuramente ne trarrai
vantaggio in seguito...
Ciao.
-- 
Sergio MAZZA

 e se non costa troppo regala un nome significativo al povero combo. ;-)
ok!! avevo pensato a CasellaCombinata348... che ne pensi???
ciao
Rovena


 ok!! avevo pensato a CasellaCombinata348... che ne pensi???
Perfetto!
-- 
HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: 
http://www.donkarl.com
+ Access-Entwickler-Konferenz (AEK8) 1./2.10.+8./9.10.2005 

 Perfetto!
Buon weekend!!!
Rovena

Newsgroup: it.comp.appl.access
Titolo: sincronizzare combo

Ciao a tutti. In un progetto access (ADP) ho la necessità di
sincronizzare runtime due caselle combinate.
In un mdb avrei usato come origini dati della seconda query una query
dinamica che sarebbe stata filtrata utilizzando il valore della prima
casella come parametro. Ad es:
combo Anni -> Combo fatture
avrei utilizzato come origine dati per combo fatture una query simile:
SELECT idFattura, nFattura FROM Fatture
WHERE anno=forms!formCorrente!cmbAnno
Purtroppo non ho trovato un equivalente in un progetto ADP.
Come posso aggirare l'ostacolo?
Grazie


ciao piocanet,
molto semplicemente sull'evento change della prima combobox cambi il 
recordsource della seconda ad esempio:
Private Sub CasellaCombinata1_Change()
    Me.CasellaCombinata2.RowSource = "SELECT NumFattura FROM Fatture 
WHERE Anno=" & Me.CasellaCombinata1 & " ORDER BY [NumFattura]; "
End Sub
-- 
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
----------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Combo Particolare

Buon Giorno Access 97
Ho una maschera [Preventivo]...
con sottomaschera collegata [Righe_Preventivo]
In  [Righe_Preventivo] ho una casella combinata con 6 voci presenti in
elenco....
bene io vorrei che nell'ambito del set di righe collegate alla maschera
master sia possibile
scegliere una sola volta uno dei valori presenti nella casella combinata....
e' possibile....
Grazie
Ciao

 ha scritto nel messaggio
news:NkxRb.153470$VW.62...@news3.tin.it...

Sposta quella combo sulla form, quindi quando aggiungi i record nella
sottomaschera ci metti tu quel valore.
Inoltre dopo la prima aggiunta la combo sarą bloccata
Antonio
Newsgroup: it.comp.appl.access
Titolo: copie di sicurezza

supponendo di avere nella directory PROGRAMMI\WINZIP il programma winzip.exe
é possibile associare ad un pulsante di comando l'esecuzione del programma,
ma in modo che sia sufficiente inserire il/i floppy di destinazione senza
dover compiere altre operazioni. In pratica un tempo da DOS si digitava
pkzip a:xxx.zip c:\miadirectory\mioarchivio /o e automaticamente avevo sul
floppy una copia.
grazie

 ha scritto nel messaggio
news:8mm83j$jfs$1...@fe2.cs.interbusiness.it...



Ho trovato nella sezione Tips... effettuare la copia di un file, ma poiché
il file é molto grosso, come posso zipparlo automaticamente da codice?
ciao
matteo

 wrote in message
8mmen3$e0d$1...@fe1.cs.interbusiness.it...

Prova a visitare
http://www.winzip.com/wzcline.htm
Ciao, Davide

 matteo
Sito Comune - FAQ: 'Come posso usare winzip o pkzip da vba per zippare files'
-- 
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
--------------------------------------

 floppy una copia.
###
Perdona,
ma scrivere tutto questo popo' di percorsi da riga di comando ti pare piu'
facile ("Automatico!!?") di usare Winzip?
A me decisamente no.
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


ho provato il codice per winzip e funziona perfettamente. purtroppo il file
zippato é 1,6 mega e servono 2 floppy. Ho trovato WInrar che compatta
maggiormente, sai la sintassi equivalente a quelle postate nel sito per
sovrasrcivere (forse +o) sul file esistente e compattare al massimo.
Ciao

 sovrasrcivere (forse +o) sul file esistente e compattare al massimo.
non conosco bene winrar, mi spiace.
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access


 Ciao
Utilizzando lo stesso stile della Faq di Federico Luciani nel SC :
Private Sub cmdWinRar_Click()
    Dim retVal As Variant, strCmd As String
    strCmd="C:\programmi\winrar\winrar.exe a -v -o+ c:\temp.zip c:\*.*"
    retVal = Shell(strCmd, vbHide)
End Sub
Cià RoDAgo
Newsgroup: it.comp.appl.access
Titolo: Creare una tabella, parametrica, con SQL

Ho la necessità di creare una NUOVA_TABELLA che sia copia di una tabella
PRODOTTI. Vorrei usare codice VBA con SQL perchè ho la necessità di poter
dedidere di volta in volta il nome da dare alla tabella copiata.
Per fare questo ho creato la query opportuna poi l'ho tradotta in SQL (che
non conosco) adesso quale comando (istruzione) devo dare, vedi esempio
allegato per eseguire questo comando SQL.
Grazie per l'attenzione
Simone
Function CREA_TABELLA(NUOVA_TABELLA)
 Dim dbs As Database, rst As Recordset
 Set dbs = CurrentDb
  Dim strSQl As String
  strSQl = "SELECT PRODOTTI.* INTO NUOVA_TABELLA" & vbCrLf
  strSQl = strSQl & "        FROM PRODOTTI;"
  Set rst = dbs.OpenRecordset(strSQl)
    rst.Close
    Set dbs = Nothing
End Function

 ha scritto nel messaggio
news:hC9z9.5856$5a.3...@tornado.fastwebnet.it...

Prova con
Function CREA_TABELLA(NUOVA_TABELLA)
  Dim strSQl As String
  strSQl = "SELECT PRODOTTI.* INTO NUOVA_TABELLA"
  strSQl = strSQl & "        FROM PRODOTTI;"
  DoCmd.RunSQL strSQL
End Function
Ma perché per copiare una tabella non usi il metodo CopyObject (vedi Help)?
Insomma una cosa simile a questa:
DoCmd.CopyObject, "NUOVA_TABELLA", acTable, "PRODOTTI"
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:Zcbz9.10721$8E3.2...@twister2.libero.it...

Ho provato funziona grazie. L'istruzione: DoCmd.CopyObject, "NUOVA_TABELLA",
acTable, "PRODOTTI" non la conoscevo ma non funziona quando la tabella
target (PRODOTTI) non esiste. Grazie

 ha scritto nel messaggio
news:Zcbz9.10721$8E3.2...@twister2.libero.it...

C'è un piccolo problema che non riesco a risolvere. La funzione che mi va
bene deve prevedere un nome di tabella "parametrico" invece la tabella
creata ha sempre il nome di NUOVA_TABELLA invece vorrei decidere io di volta
in volta il nome. Grazie
Simone
  Function CREA_TABELLA(NUOVA_TABELLA)
  Dim strSQl As String
  strSQl = "SELECT PRODOTTI.* INTO NUOVA_TABELLA"
  strSQl = strSQl & "        FROM PRODOTTI;"
  DoCmd.RunSQL strSQl
End Function

 ha scritto nel messaggio
news:KTbz9.5946$5a.3...@tornado.fastwebnet.it...

Prova con una funzione fatta così:
Function CopiaTabella(NuovaTabella As String)
  Dim strSQl As String
  strSQl = "SELECT PRODOTTI.* INTO " & NuovaTabella
  strSQl = strSQl & "        FROM PRODOTTI;"
  DoCmd.RunSQL strSQl
End Function
Che richiamerai così:
CopiaTabella ("NomeNuovaTabella")


 Roberto
Applicando il tuo esempio si ottiene sempre una tabella dal nome :
NomeNuovaTabella.
Se tolgo i doppi apici " mi da il seguente errore:Errore runtime 3067-
L'input per la query deve contenere almeno una tabella o una query.
Grazie
Simone

Ho riprovato e funziona, forse l'errore era dovuto al fatto che volevo
creare un nome di tabella del tipo PRODOTTI-2001 e probabilmente il trattino
non gli va bene invece con PRODOTTI2001 funziona. Grazie ancora
Simone
Newsgroup: it.comp.appl.access
Titolo: Inserire una riga in mezzo a una matrice

Esiste una procedura automatica per inserire una riga ad una certa posizione
di una matrice esistente? Naturalmente mantenendo tutti i dati della matrice
originale.
Grazie.
Silvio

 wrote in message
news:fXeP8.665$
KR2....@news.edisontel.com

SCORDATELO....!!
Devi scrivere una Routine, che trasla tutto il contenuto
della Matrice in avanti di 1 dal punto d'inserimento...!
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.appl.access
Titolo: runtime access2002

Salve a tutti,
esiste il runtime per access2002?
se io ho il runtime 2000 posso acquistare
l'upgrade?
grazie!
ringo

 l'upgrade?
Puoi, ma non č detto che il pacchetto 2002 sia ancora in commercio...
Saluti.

 ha scritto nel messaggio
news:0q1ld.29867$Es2.6...@twister2.libero.it...

? why?
che versione esiste adesso?
grazie
ringo

 che versione esiste adesso?
http://www.microsoft.com/italy/msdn/prodotti/vstudio/officetools/tool.mspx
http://www.microsoft.com/italy/msdn/prodotti/vstudio/officetools/sviluppo.ms
px
Newsgroup: it.comp.appl.access
Titolo: la funzione now() non funge in tempo reale ?

per monitorare i tempi di esecuzione di una serie di query, che ultimamente 
mi rallentano, ho aggiunto a una mia applicazione A97 una tabella di audit, 
contenente due sole colonne, "timestamp" e "descrizone operazione".
Nel codice che lancia le query, dopo ogni  passo lancio un Currentdb.execute 
"[codice sql]" che inserisce nella mia tabella audit  l'ora corrente 
(funzione now()) e una stringa di descrizione.
Andando a vedere cosa succede, noto che i tempi inseriti dalla funzione 
now() non rispecchiamo cio' che succede, ad esempio una query che impiega 
dai 25 ai 35 secondi,  mi viene registrata nell'audit come completata a soli 
4 secondi dalla precedente.
il sospetto e' che l'istruzione, che scrive now() in tabella audit,  venga 
chiamata non _al termine_ della query precedente, ma gia' subito dopo che 
tale query e' stata interpretata e inviata al motore del database, cioe' 
mentre detta query ai fini dell'utente e' ancora in corso e non ha ancora 
prodotto il recorset di risultati.
Come posso forzare la funzione now() a scrivere l'ora effettiva in cui la 
query mi restituisce i risultati?
Grazie per ogni commento
A.Vincenzoni


prova a farti restituire numero record e time.
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 ha scritto nel messaggio
news:3Ogse.30684$75.17...@news4.tin.it...

Sul sito di Alessandro Baraldi c'è una classe da lui scritta che fa al caso
tuo.
Si chiama clsPerformanceTime.Io l'ho usata con successo.
http://www.mantuanet.it/alessandro.baraldi/
SunRex

 SunRex
Eventualmente c'è anche un Demo già fatto per capire meglio
come si deve usare la Classe:
Sezione API
FAQ:
1.18 Timer preciso al millisecondo
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Ad ogni cambiamento del valore di un campo

Vorrei inserire in una query un campo flag che venga impostato a 1 ogni
volta che il campo Cmp1 cambia di valore: esempio
Cmp1  Flag
1487  1
1487  0
1487  0
1488  1
1488  0
1489  1
Grazie infinite a chi mi sa aiutare.
Rossana

 Rossana
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Report riepilogativi

Salve a tutti,
sto elaborando una "modesta" applicazione che dovrebbe semplicemente creare
statistiche sull'utilizzo della nostra biblioteca (es. numero di fotocopie
effettuate, ingressi utenti, ecc.).
Ho creato un'unica tabella con diversi campi (es. utenti, riviste, ecc.) e
delle queries che mi contano i records in cui i diversi campi hanno un
valore.
Si tratta ora di creare un report riepilogativo che automaticamente mi
stampi i risultati delle queries in un intervallo di date. Pensavo per
questo di utilizzare una istruzione GROUP BY (mi serve ad es. per calcolare
quante fotocopie da ciascuna rivista sono state fatte).
Il problema: come associare ad un singolo report piu' queries, dal momento
che mi viene chiesto di specificare un'unica tabella o query come fonte?
Sono solo riuscito a creare un unica query che mi conti le occorrenze di
ciascun campo, ma non ad impostare la funzione di raggruppamento (mi dice
che la funzione e' troppo complessa). E' probabile che abbia sbagliato ad
impostare il db con un'unica tabella: comunque qualunque suggerimento sarà
gradito.
Scusate se non sono stato molto chiaro
Saluti a tutti
Francesco Giacanelli
md1...@mclink.it

...

Riprova da capo: struttura dei dati e tipologie di report
Antonio

valore.
nooo... ad occhio e croce ci dovrebbe volere: una tabella utenti, una
tabella riviste (banali), una tabella fotocopie_effettuate che abbia
tra i campi l'id utente, l'id rivista (cioe' quale utente ha
fotocopiato quale rivista), il numero di fcopie effettuate e la data.
se un utente porta a fotocopiare tre riviste, si inseriscono tre
record diversi.  se un utente prende una rivista e a fcopiarla ci
mette due giorni, due record diversi.
con una solta tabella non credo proprio che sia possibile ottenere
quello che vuoi, soprattutto se prima la scomponi in piu' query, le
raggruppi e cerchi di riunirle.
-------------------------------------------------------
concorsi pubblici truccati.  questo è solo un esempio:
http://www.fortunecity.com/business/koch/947/index.htm

 wrote in message
38904ff2....@news.interbusiness.it...

Newsgroup: it.comp.appl.access
Titolo: E-Mail e modello

con access è possibile spedire un record via E-mail utilizzando Outlook, ok
e questo è fatto, ma ora vorrei utilizzare un modello html, manon so cosa
fare.
Pensavo di crearne uno in Frontpage ma con che estenzione devo salvarlo? e
come posso farlo utilizzare da access?
grazie+

 ha scritto nel messaggio
news:S%vh8.13640$uN5.3...@twister1.libero.it...

Hai almeno due possibilità per mandare un e-mail:
1) utilizzare l'oggetto VBA di Outlook MailItem con tutti i suoi metodi e
proprietà. In MailItem.HTMBody puoi inserire l'intero codice HTML nel
messaggio di tipo HTML con tutte le formattazzioni e così via.
2) se hai la necessità di avere un modello .htm per altre ragioni puoi usare
il metodo DoCmd.SendObject dove puoi specificare il percorso e il file
modello.
A te la scelta.
One.Emmedi

Newsgroup: it.comp.appl.access
Titolo: Re: Connessione tabelle in un progetto Eseguibile


Una marea di post precedenti trattano di questo argomento.
Anche in 
www.sitocomune.com
www.donkarl.com/it
http://www.mantuanet.it/alessandro.baraldi/
Oppure in Google gruppi "Access Riallegare Tabelle"
Ciao, Carlo 

 Rosa
Il Link delle tabelle si deve eseguire via Codice ciclando
l'insieme Tabledes e modificando la proprietà Connect del singolo
oggetto.
Ovviamente dovrai prevedere l'apertura del CommonDialog.
Tutte queste cose sono esposte sul SitoComune, ocorre fare
un minimo di collage, ma nulla di esasperante.
http://www.sitocomune.com/
Sezione TABLES
Ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ho un'applicazione access con separati gli archivi (sempre access). Nel
progetto posso collegare le tabelle dal "gestore tabelle collegate". Quando
lo vado ad installare su un PC dove non sia presente Access e quindi lo
installo con il runtime la funzione di gestione tabelle collegate non č piů
disponibile, avevo provato col seguente codice:
DoCmd.RunCommand (acCmdLinkedTableManager)
ma mi dice che questa funzione non č installata.
Esiste un'istruzione con la quale io possa cambiare la connessione delle
tabelle?
Il problema fondamentale per me č installare uno stesso progetto su 2 PC e

Newsgroup: it.comp.appl.access
Titolo: Parametri query da riportare su Report

Salve a tutti,
ho creato una query "MiaQuery" a cui č collegato un report "MioReport".
Nella query c'č un campo chiamato "DataFattura" 
nel campo dei criteri ho messo la possibilitŕ di filtrare la data per
parametro inserito cioč:
"Between [DAL:] And [AL:]"
Domanda:
E' possibile fare in modo che l'intervallo di data mi viene riportato sul
Report?
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Report?
Puoi aggiungiere due campi nella query:
DataDal: [DAL:]
DataAl: [AL:]
Nel report puoi usare questi due campi come tutti altri della query,
come origine controllo, in espressioni ecc.
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 DataAl: [AL:]

*********************
Potresti spiegarti meglio perche se aggiungo quei due campi che dici non
mi vengono filtrati i record per DataFattura


 mi vengono filtrati i record per DataFattura
?
Non ti ha scritto di eliminare il tuo criterio ma solo di aggiungere
due campi alla query. Se non funziona posta l'enunciato SQL
della query come era prima (funzionante) e come č adesso.


Karl Donaubauer ha scritto:


**********
Ho aggiunto i due campi alla queri come tu mi hai detto senza cancellare
il criterio sotto il campo "DataFattura".
Questo č quello che succede:
quando avvio la query:
mi chiede nella sequenza:
[DAL:]   ---> che appartiene al campo aggiuntivo della query
[AL:]    ---> che appartiene al campo aggiuntivo della query
[DAL:]   ---> che appartiene al campo DataFattura della query, come
criterio
[AL:]    ---> che appartiene al campo DataFattura della query, come
criterio
e perň comunque non funziona perche mi fa vedere tutti i record senza
filtrarli.


Karl Donaubauer ha scritto:


******************************************
Ho trovato !!!!!!!!
bastava semplicemente mettere nel report 2 textbox con scritto:
=[Dal:]
=[Al:]
e funziona ALLLA GRANDEEEEEEEEEEEEEEEEEEEEEEEE!!!!!!
Grazie per l'aiuto sei stato gentile
Ciao


Newsgroup: it.comp.appl.access
Titolo: Orientamento carta nei report

Salve e tutti, volevo sapere se c'e il modo per salvare un'impostazione
della pagina di stampa per i report, mi interessa soprattutto
l'orientamento della carta...
 grazie
  Emiliano
--------------------------------
Inviato via 
http://usenet.iol.it

 ha scritto nel messaggio
news:212Z171Z42Z246Y...@usenet.iol.it...


Arturo
Tnx


Newsgroup: it.comp.appl.access
Titolo: Scrittura su file di test

con questo codice appendo in fondo al file di testo la stringa "ciao";
Private Sub Command1_Click()
Open "c:\temp\1.txt" For Append As #1
Write #1, "ciao"
Close #1
End Sub
come faccio a portarmi all'inizio del file e scrivere qualcosa che deve
essere quindi la prima riga di questo file di testo?
grazie

 ha postato:

Non credo ci sia un modo per inserire una riga di testo in un file da
codice come se fosse un Word Processor.
Il metodo č memorizzare  il file, scrivere la riga che interessa e poi
accodare quello che si č memorizzato.
Il codice piů comodo č quello che abbiamo postato appresso
Ciao
Filippo da studio
Newsgroup: it.comp.appl.access
Titolo: HELP ME!

Ciao a tutti, mi sono perso, sono in brain flipping.
Volevo costruire qualcosa che gestisse simultaneamente 1) un calendario,
magari da impostare a piacimento da una data iniziale a una finale, e che
poi restasse fisso, ed 2) un elenco variabile di alunni. Per ogni data del
calendario il qualcosa avrebbe dovuto registrare le ore di presenza degli
alunni. Volevo costruire, poi ho iniziato a rinunciarci, fino ad ora.
A tutti ciao, 1000 grazia a tutti anche senza risposta

 Ciao a tutti, mi sono perso, sono in brain flipping.
Messaggio con subject poco significativo!
Skipped!
Prova a flippare nuovamente con un altro subject!!!
Antonio

Newsgroup: it.comp.appl.access
Titolo: Problemi con query. Condom box + Media

Salve.
ho creato una tabella con una decina di campi, tra cui alcuni con
una selezione condom. 
Vorrei utilizzare una query per far sě di prendere in considerazione
solo una determinata scelta di una di queste condom. 
Perň mi sono accorto che nella query il condom box non scompare,rimane
lě. E possibile far si che una volta in query, il condom box scompaia?
Inoltre non riesco a far visualizzare gli altri campi nella query.
Ho inserito tutti i campi, con il "mostra" attivato. E poi in quella
che m'interessava, nei criteri, ho messo ="nome" 
Perň mi visualizza SOLO quest'ultimo campo, invece gli altri sono vuoti.
Dove ho sbagliato? :o
Altro problemino e poi vi lasscio. (Scusate la mia ignoranza ma sono
nuovo di access. Ho cercato prima su google, ma non ho trovato nulla in
merito :( )
Vorrei calcolare la media di 18campi di una tabella e poi inserire il
risultato in un campo che sta nella stessa tabella.
So che si calcola con una query, ma non ho capito come :(
grazie a tutti per la pazienza :)
ciccio
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Dove ho sbagliato? :o
A chiamare preservativo una scasella combianata!
Cmq evidenzia la acsella
Formato
cambia in
casella di testo
MAssimiliano
Un problema alla volta

 casella di testo
grazie..
scusa ma ho sbagliato a scrivere -_-


 Un problema alla volta
Questo però è uno di quei problemi tipo : "prima l'uovo o la gallina?"
Ciao
-- 
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley 
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: filtro da selezione casella di riepilogo

ciao a tutti
 
da un ciclo For Next
vorrei ricavare da una casella di riepilogo,
un filtro composto da uno o piu' "IdFornitore"
da passare alla strsql
 
Dim ctl As Control
Dim varItm As Variant
Dim opz_multi As Variant
 
Set ctl = LstSollDist
 
For Each varItm In ctl.ItemsSelected    
  opz_multi = opz_multi & " Or " _
    & ctl.Column(0, varItm)  
Next
 
ma il risultato non va bene.
Dove sbaglio?
 
Grazie per l'aiuto 

Devi costruire un predicato che includa la Clausola IN(Valore1, Valore2...ValoreN).
 
Sicchè sarà
strWH="NomeCampo IN (Val1,Val2,ValN)"
 
In questo modo cicli la Collection ItemsSelected e concateni i Valori solo aggiungendo la VIRGOLA.(Attenzione al FieldType, se Testo anche gli Apicetti, se data.....)
 
@Alex
 


Te sei fatto un /fijo/   ;-)
 
-- 
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)


;-)


grazie Alex


questo è il risultato.....
 
Dim ctl As Control
Dim varItm As Variant
Dim opz_multi As String    
 
For Each varItm In ctl.ItemsSelected
  opz_multi = opz_multi & _
    ctl.Column(0, varItm) & ","
 
Next
 
opz_multi = Left$(opz_multi, Len(opz_multi) - 1)
 
strSql = "SELECT" _
  & " UnisciValoriFornitore_CaricoA(IdFornitore) AS InvioA," _
  & " UnisciValoriFornitore_CaricoCC(IdFornitore) AS InvioCC" _
  & " FROM Qry_TbFornitori" _
  & " WHERE IdFornitore IN (" & opz_multi & ")"

Newsgroup: it.comp.appl.access
Titolo: scrittura sequenziale record

Salve a tutti, ho un nuovo quesito da porvi...
Ho una tabella, con i seguenti campi: ID, NOME, Descrizione, Tempi, CODICE, 
Incremento, DATA_DAL, DATA_AL, CODICE_CAT, ProssimaDATA
Questi dati mi vengono scritti da una maschera di inserimento. E fin qua 
tutto bene.
Mi servirebbe un codice VBA da associare al pulsante di caricamento che 
faccia le seguenti operazioni:
Crei un nuovo record sotto a quello in uso;
Copi pari pari i primi 9 campi della lista sopraccitata ;
Che calcoli il campo ProssimaDATA come ProssimaDATA (del record superiore) + 
Incremento;
Che continui a copiare sequenzialmente nuovi record uno sotto l'altro come 
sopra descritto, fino a quando la data presente in ProssimaDATA non sia >= a 
DATA_AL
Come si puň fare?
Grazie a tutti 

 Grazie a tutti
Proprio nessuno?