title: Bloccare l'apertura di alcune tabelle in visualizzazione dati dalla finestra del database

author: lalli

text:
Cioa a tutti,
il mio quesito č il seguente: una volta mi č capitato di fare doppio
clic su una tabella di un database (nella finestra database) e mi č
apparso il seguente messaggio: "Non č possibile immettere i dati
direttamente in questa tabella. Per farlo č necessario utilizzare la
maschera omonima" (non testualmente, ovviamente)!
Questo mi č piaciuto moltissimo, perchč alcuni controlli e testo
immesso automaticamente da codice mediante le maschere, vengono
aggirati se l'utente puň mettere i dati direttamente nella tabella. Ma
come si ottiene ciň?
Ho pensato che fosse un problema di autorizzazioni, sebbene io non
possedessi alcuna particolare autorizzazione sul db in questione e,
inoltre, il messaggio mi appariva solo per quella tabella e non per
tutte le altre), ma, se cosě fosse, č possibile far apparire un
messaggio opportuno al doppio clic sull'oggetto protetto?
A me non sembra...potreste aiutarmi voi????
grazie
lalli


title: Query--->Variabile

author: Kinirepap

text:
E' possibile passqre il risultato di una query ad una variabile?
Non so neppure se è il modo migliore di agire.
Io voglio fare in modo che un bottone in una maschera sia abilitato solo
se il numero di records di una determinata tabella è maggiore di zero.
Magari voi avete una soluzione tecnicamente migliore di quella banale che
ho in mente io.
Grazie.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Query--->Variabile

author: Sandro Peruz

text:
"Kinirepap" <
megli...@pippo.it
> ha scritto nel messaggio
news:e4q3t7$15g$1...@news.newsland.it...
> E' possibile passqre il risultato di una query ad una variabile?
> Non so neppure se è il modo migliore di agire.
>
> Io voglio fare in modo che un bottone in una maschera sia abilitato solo
> se il numero di records di una determinata tabella è maggiore di zero.
> Magari voi avete una soluzione tecnicamente migliore di quella banale che
> ho in mente io.
>
> Grazie.
ciao Kinirepap,
potresti semplicemente provare con una cosa del genere :
Me.TuoCommandButton.Enabled = True = DCount("*", "TuaTabella") > 0
se la tabella è il recordsource alla tua form potresti appoggiarti alla
proprietà recordsetclone della form e recuperare il numero totale dei
records con recordcount, ma non lo hai specificato.
E' possibile ovviamente recuperare il numero totale dei records di una
tabella anche con una query come hai ipotizzato tu, ( utilizzando le
funzioni sui domini le prestazioni sono inferiori rispetto all'utilizzo
delle queries...) ma prova intanto a vedere se le indicazioni che ti ho dato
sono suffcienti.
Ciao, Sandro.


title: Query--->Variabile

author: Alessandro Baraldi

text:
Non hai specificato se la tabella è l'origine Records della Form...!!!
In caso affermativo:
Su Evento Load o Current(quì devi vedere tu)....
Me!NomeButton.Enabled=Me.RecordsetClone.RecordCount>0
Nel caso non lo fosse converrebbe una cosa del genere:
Su Evento Load o Current(quì devi vedere tu)....
Me!NomeButton.Enabled=Dcount("*","NomeTabella")>0
Ciao
@Alex


title: Query--->Variabile

text:
Ciao Sandro, ho visto solo ora che ho clonato la tua risposta...!
Ciao
@Alex


title: Query--->Variabile

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1148231038.0...@u72g2000cwu.googlegroups.com...
> Ciao Sandro, ho visto solo ora che ho clonato la tua risposta...!
>
> Ciao
> @Alex
ciao @Alex,
eh, si stavolta mi hai copiato ... :-))). Scherzo ! Abbiamo risposto
praticamente in contemporanea, il nosto amico Kinirepap, spero, apprezzerà
ugualmente !!
ciao!!!
Sandro.


title: Query--->Variabile

text:
Ti mando una mail se sei On_Line volevo un parere...!
Ciao
@Alex


title: Query--->Variabile

text:
Sandro Peruz ha scritto:

> ciao @Alex,

> ciao!!!
> Sandro.
 Ragazzi siete dei GRANDI ....



title: Somma vari campi stesso record

author: Mike

text:
Ciao a tutti.
Sto facendo un DB per una gestione di un magazzino (utilizzando Access2007).
Ho un piccolo problema con un campo che non riesco a capire come fare a
calcolare.
Ho una maschera (associata a una tabella con gli stessi identici campi) in
cui ho:
-------------------------------------
Azienda produttrice: XXX (chiave prim)
Codice Articolo: XXX (chiave prim)
misuraA: numerico
misuraB: numerico
misuraC: numerico
...
QuantitaTotale: numerico
--------------------------------------
Bene vorrei sapere se c'č una maniera per far si che dopo l'inserimento di
misuraA, misuraB, misuraC, si riempia automaticamente il campo
QuantitaTotale, che poi non č altro che la somma di vari campi, in questo
caso: "misuraA+misuraB+misuraC+...".
Spero in una vostra risposta.
Ciao.
Mike.


title: Somma vari campi stesso record

author: Karl Donaubauer

text:
Mike wrote:
> Sto facendo un DB per una gestione di un magazzino (utilizzando
> Access2007). Ho un piccolo problema con un campo che non riesco a
> capire come fare a calcolare.
> Ho una maschera (associata a una tabella con gli stessi identici
> campi) in cui ho:
> -------------------------------------
> Azienda produttrice: XXX (chiave prim)
> Codice Articolo: XXX (chiave prim)
> misuraA: numerico
> misuraB: numerico
> misuraC: numerico
> ...
> QuantitaTotale: numerico
> --------------------------------------
> Bene vorrei sapere se c'è una maniera per far si che dopo
> l'inserimento di misuraA, misuraB, misuraC, si riempia
> automaticamente il campo QuantitaTotale, che poi non è altro che la
> somma di vari campi, in questo caso: "misuraA+misuraB+misuraC+...".
> ...
Non salvare valori calcolati nella tabella! Invece nella maschera
puoi usare una casella di testo non legata con origine controllo:
=misuraA+misuraB+misuraC
Se ci possono essere campi vuoti:
=nz(misuraA)+nz(misuraB)+nz(misuraC)
Vedi anche:
Salvare valori calcolati
www.donkarl.com/it?FAQ4.11
Un campo vuoto impedisce il risultato della formula
www.donkarl.com/it?FAQ2.13
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Somma vari campi stesso record

text:
grazie mille. č perfetto.
ci avevo provato in maniera simile ma il fatto di avere valori di default 0
a misuraX dava degli errori.
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:6o5ggrF...@mid.individual.net...
> Mike wrote:
>> Sto facendo un DB per una gestione di un magazzino (utilizzando
>> Access2007). Ho un piccolo problema con un campo che non riesco a
>> capire come fare a calcolare.
>> Ho una maschera (associata a una tabella con gli stessi identici
>> campi) in cui ho:
>> -------------------------------------
>> Azienda produttrice: XXX (chiave prim)
>> Codice Articolo: XXX (chiave prim)
>> misuraA: numerico
>> misuraB: numerico
>> misuraC: numerico
>> ...
>> QuantitaTotale: numerico
>> --------------------------------------
>> Bene vorrei sapere se c'č una maniera per far si che dopo
>> l'inserimento di misuraA, misuraB, misuraC, si riempia
>> automaticamente il campo QuantitaTotale, che poi non č altro che la



title: criterio cambio mese su query Accodamento

text:
ho una tabella:(Tabella1)
ID Data       Ora_Inizio  TempoE
39 10/11/2003 19.30.47 0.08.05
40 11/11/2003 12.39.05 0.01.12
41 11/11/2003 19.03.38 0.00.47
42 11/11/2003 19.41.38 0.10.23
43 11/11/2003 22.43.37 0.03.08
44 11/11/2003 23.16.08 0.09.41
45 11/11/2003 23.44.45 0.13.32
46 12/11/2003 12.41.34 0.00.30
47 12/11/2003 19.05.55 0.00.40
48 12/11/2003 23.10.35 0.21.06
49      01/12/2003      19.15.00        0.19.00
dovrei fare una query di accodamento,tramite la quale ad ogni cambio mese mi
porti i dati in una tabella storico uguale alla tabella1 ed elimini quelli
trasportati.
ho fatto queste query,ma vorrei far divenire automatico il procedimento.
al posto del Between si potrebbe mettere un criterio che al cambiare del
mese faccia l'operazione?
INSERT INTO tStorico ( Data, Ora_Inizio, TempoE )
SELECT tABELLA1.Data, tABELLA1.Ora_Inizio, tABELLA1.TempoE
FROM tabella1
WHERE (((tabella1.Data) Between [dal giorno (gg/mm/aa):] And [al giorno
(gg/mm/aa):]));
DELETE tabella1.Data, tabella1.Ora_Inizio, tabella1.TempoE
FROM tabella1
WHERE (((tabella1.Data) Between [dal giorno (gg/mm/aa):] And [al giorno
(gg/mm/aa):]));
esempio:
tabella1
ID Data       Ora_Inizio  TempoE
49      01/12/2003      19.15.00        0.19.00
storico
ID Data       Ora_Inizio  TempoE
39 10/11/2003 19.30.47 0.08.05
40 11/11/2003 12.39.05 0.01.12
41 11/11/2003 19.03.38 0.00.47
42 11/11/2003 19.41.38 0.10.23
43 11/11/2003 22.43.37 0.03.08
44 11/11/2003 23.16.08 0.09.41
45 11/11/2003 23.44.45 0.13.32
46 12/11/2003 12.41.34 0.00.30
47 12/11/2003 19.05.55 0.00.40
48 12/11/2003 23.10.35 0.21.06


author: Salvatore

text:
"@Roberto" <
Tas...@aliceposta.it
> ha scritto nel messaggio
news:kJHEb.15749$wM.11...@news1.tin.it...

All'apertura del database puoi controllare se
month(date())>month(dmax("data";"Tabella1")) oppure se
year(date())>year(dmax("data";"Tabella1"))
Se cosě č fai partire la query di accodamento, accodando tutti i record che
hanno month(data) diverso da month(date()) e poi quella di eliminazione, con
gli stessi criteri.
Ciao
Salvatore


title: Per favore aiutatemi sui campi <NULL>...!

text:
Ciao a tutti,
ho un problema urgente da risolvere ammesso che si possa...
Faccio una SELECT su un LEFT JOIN di due tabelle, ed essendo LEFT avro' a
sinistra tutti i valori, e a destra diversi <NULL> dove non ho un valore
corrispondente:
Davide     1
Daniele    23
Dino        <NULL>
Dori        41
Duilio       <NULL>
Se questa SELECT e' seguita da un ORDER BY (campo numerico) ottengo:
Dino     <NULL>
Duilio    <NULL>
Davide    1
Daniele    23
Dori        41
Io NON vorrei quei campi con <NULL> in testa all'ordinamento, ma li vorrei
alla fine... qualcosa del tipo:
Davide    1
Daniele    23
Dori        41
Dino     <NULL>
Duilio    <NULL>
E' possibile mantendo piu' o meno la struttura della mia query (SELECT...
FROM... LEFT JOIN... ORDER BY...)?
Oppure come potrei fare?
Grazie.


author: giorgio rancati

text:
"@@@" <
spa...@never.it
> ha scritto nel messaggio
news:qV5yc.102997$Qc.39...@twister1.libero.it...

Ciao,
devi solo cambiare l'order by, ti scrivo solo quella perchè il resto della
query non ha importanza.
Ammettiamo che i tuoi campi da ordinare si chiamano [Nome] e [Numero]
------------------
ORDER BY IIF(IsNull([Numero]),1,0),Numero,Nome
------------------
(a stesso numero ordino per nome)
Ciao Giorgio


text:
> ------------------
> ORDER BY IIF(IsNull([Numero]),1,0),Numero,Nome
> ------------------
> (a stesso numero ordino per nome)
Non capisco bene questa espressione, a me non interessa Nome, ma solo
ordinare tutti i numeri in ordine crescente, con in fondo tutti i NULL,
ordinati o disordinati che siano, l'importante e' che siano in fondo!
Purtroppo io sto usando SQL Server, e mi dice che IsNull richiede due
argomenti...
Come dovrei modificare la cosa?
Grazie mille.


text:
"@@@" <
spa...@never.it
> ha scritto nel messaggio
news:Nd6yc.103017$Qc.39...@twister1.libero.it...

----------------------------
ORDER BY  CASE WHEN [Numero] IS NULL
                                 THEN 1 ELSE 0 END,
                                 [Numero]
----------------------------
Ciao Giorgio


text:
> ----------------------------
> ORDER BY  CASE WHEN [Numero] IS NULL
>                                  THEN 1 ELSE 0 END,
>                                  [Numero]
> ----------------------------
Ciao Giorgio,
non capisco bene cosa vuol dire 1 e 0, e mi piacerebbe comunque che me lo
spiegassi, anche se credo di aver trovato un metodo piu' semplice... proprio
guardando la documentazione di ISNULL:
SELECT TOP 100 Table.id AS id, ISNULL(Table.num1, 100) AS num1, ... FROM ...
LEFT JOIN ... ORDER BY num1;
Che ne dici? Puo' andare?
A me sembra di si!
Grazie...


text:
"@@@" <
spa...@never.it
> ha scritto nel messaggio
news:d8eyc.103309$Qc.39...@twister1.libero.it...

Ciao,
Se il tuo campo num1 non supera il valore 100 va bene anche la tua
soluzione, quella da me suggerita funziona in qualsiasi circostanza.
E' molto semplice, l'ordinamento viene effettuato su due campi, il primo che
è un campo calcolato assume il valore 0 se num1 non è Null e al contrario
assume 1 se num1 è NULL.
Sarebbe come avere questa tabella dove x è il campo calcolato
x   Nome      Num1
------------------------
0  Davide     1
0  Daniele    23
1  Dino        <NULL>
0  Dori        41
1  Duilio       <NULL>
------------------------
e ordinandola per x e Num1 .....
------------------------
0  Davide     1
0  Daniele    23
0  Dori        41
1  Dino        <NULL>
1  Duilio       <NULL>
------------------------
Ciao Giorgio


text:
> e ordinandola per x e Num1 .....
> ------------------------
> 0  Davide     1
> 0  Daniele    23
> 0  Dori        41
> 1  Dino        <NULL>
> 1  Duilio       <NULL>
> ------------------------
Si l'avevo capito appena letta un'altra risposta che mi consigliava la
stessa cosa... ti ringrazio perché la tua soluzione e' veramente generale,
ma come dici tu la mia puo' anche andare perche' essndo 100 elementi
selezionati quel numero non andra' mai sopra a 100!
Grazie ancora.


title: Finestra di dialogo dei colori.

author: Riccardo Baldinotti

text:
Il 19 agosto 2006, Alessandro Baraldi suggeriva un metodo per aprire
la finestra di dialogo dei colori:
http://groups.google.it/group/it.comp.appl.access/browse_thread/thread/f36d9e336d97593/fa35969254f820ab?hl=it&lnk=gst&q=finestra+colori#fa35969254f820ab
Quando apro una maschera in visualizzazione struttura, clicco alla
voce Colore Sfondo di una casella di testo, mi si apre una maschera
diversa con due linguette: in una i colori ordinati in esagoni,
nell'altra modificabili coi valori RGB.
Come devo modificare la funzione per ottenerla?
Grazie a tutti.
Riccardo Baldinotti


title: Opzioni acCmdImport

author: Adriana

text:
Salve a tutti.
Usando questo comando:
DoCmd.RunCommand acCmdImport
è possibile impostare un percorso prestabilito nella relativa finestra che
si apre?
p.e. vorrei che si apra in automatico la finestra di selezione dei file mdb
sulla seguente directory c:\programmi\contabilità\archivio
N.B. il cliente ha un file contabilità.mde in run time e quindi non può
usare il menù strumenti\opzioni\generale\cartella predefinita
Grazie


title: Cercare il valore piu' vicino a quello dato

author: Federico Luciani

text:
ho una tabella di questo tipo
ID   IDAnag  DataVis
1    2       08/01/2001
2    1       08/02/2001
3    2       08/03/2001
4    2       08/04/2001
dati un IDAnag e una DataVis, ho bisogno di conoscere l'ID del record
precedente in ordine di data,
cioe' dati:
IDAnag = 2
DataVis = 08/04/2001
devo ottenere ID=3
oppure
IDAnag = 2
DataVis = 08/03/2001
devo ottenere ID=1
vorrei evitare di scrivere una funzioncina, quindi sto provando con una
query e l'uso di First/Last, ma con scarsissimi risultati.
Qualche idea?
TIA
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


author: Roberto

text:
"Federico Luciani" <
fluc...@sitocomune.com
> ha scritto nel messaggio
news:3B700377...@sitocomune.com...

Fai una query  imposti la proprietą Primi Valori a 1, applichi un
ordinamento decrescente  su data vis, imposti i dovuti criteri su ID Anag e
su DataVis e la riga che ottieni č il risultato che cerchi.
I criteri sono IDAnag = all'IDAnag che cerchi
DataVis < della data che ti interessa.
Ciao fammi sapere Roberto


text:
Roberto wrote:
> "Federico Luciani" <
fluc...@sitocomune.com
> ha scritto nel messaggio
> > ho una tabella di questo tipo
> >
> > ID   IDAnag  DataVis
> > 1    2       08/01/2001
> > 2    1       08/02/2001
> > 3    2       08/03/2001
> > 4    2       08/04/2001
> >
> > dati un IDAnag e una DataVis, ho bisogno di conoscere l'ID del record
> > precedente in ordine di data,
> > cioe' dati:
> >
> > IDAnag = 2
> > DataVis = 08/04/2001
> > devo ottenere ID=3
> >
> > oppure
> >
> > IDAnag = 2
> > DataVis = 08/03/2001
> > devo ottenere ID=1
> >
> > vorrei evitare di scrivere una funzioncina, quindi sto provando con una
> > query e l'uso di First/Last, ma con scarsissimi risultati.
> > Qualche idea?
> > --
> > Federico
> Fai una query  imposti la proprietą Primi Valori a 1, applichi un
> ordinamento decrescente  su data vis, imposti i dovuti criteri su ID Anag e
> su DataVis e la riga che ottieni č il risultato che cerchi.
> I criteri sono IDAnag = all'IDAnag che cerchi
> DataVis < della data che ti interessa.
> Ciao fammi sapere Roberto
grazie, quello che dici funziona sicuramente, ma mi stavo perdendo in un
bicchiere d'acqua :-)
a me quel valore serve visualizzarlo in un controllo ed essendo ID un
campo contatore progressivo, ho risolto molto semplicemente con una
dmax:
=dmax("[ID]","Tabella1","[IDAnag]=2 AND [DataVis]<#08/04/2001#")
scusami e grazie per l'interessamento



author: Roberto dal portatile

text:
"Federico Luciani" <
fluc...@sitocomune.com
> ha scritto nel messaggio
news:3B700377...@sitocomune.com...
> ho una tabella di questo tipo
>
> ID   IDAnag  DataVis
> 1    2       08/01/2001
> 2    1       08/02/2001
> 3    2       08/03/2001
> 4    2       08/04/2001
>
> dati un IDAnag e una DataVis, ho bisogno di conoscere l'ID del record
> precedente in ordine di data,
> cioe' dati:
>
> IDAnag = 2
> DataVis = 08/04/2001
> devo ottenere ID=3
>
> oppure
>
> IDAnag = 2
> DataVis = 08/03/2001
> devo ottenere ID=1
>
> vorrei evitare di scrivere una funzioncina, quindi sto provando con una
> query e l'uso di First/Last, ma con scarsissimi risultati.
> Qualche idea?
>
> TIA
>
> --
> Federico
>
Ciao Federico.
Se la tabella si chiama Tabella1, la seguente query
SELECT Tabella1.ID, Tabella1.IDAnag, Tabella1.DataVis,
IIf(IsNull(DLookUp("ID","Tabella1","IDAnag =" & [IDAnag] & " And DataVis<#"
& Format([DataVis],"mm/dd/yyyy") &
"#")),[ID],DLookUp("[ID]","Tabella1","DataVis=#" &
Format(DMax("DataVis","Tabella1","IDAnag=" & [IDAnag] & " And DataVis<#" &
Format([DataVis],"mm/dd/yyyy") & "#"),"mm/dd/yyyy") & "#")) AS IDCercato
FROM Tabella1;
dovrebbe restituirti nel campo calcolato IDCercato l'ID del record della
visita precedente fatta allo stesso IDAnag; se NON esiste una visita
precedente, ti restituisce nel campo IDCercato l'ID corrente.
Ho provato con l'esempio da te postato e mi restiruisce i valori da te
voluti.
Ciao Roberto


text:
Roberto dal portatile wrote:
> "Federico Luciani" <
fluc...@sitocomune.com
> ha scritto nel messaggio

non e' proprio quello che cercavo (vedi riposta a Roberto), ma adesso
che l'ho vista mi e' venuta in mente un altra situazione in cui mi e'
molto utile la query che mi hai inviato ;-))
Grazie



text:
"Federico Luciani" <
fluc...@sitocomune.com
> ha scritto nel messaggio
news:3B70203D...@sitocomune.com...
> Roberto dal portatile wrote:
[CUT]
>
> non e' proprio quello che cercavo (vedi riposta a Roberto), ma adesso
> che l'ho vista mi e' venuta in mente un altra situazione in cui mi e'
> molto utile la query che mi hai inviato ;-))
>
> Grazie
>
>
> --
> Federico
>
Ho letto la risposta che hai dato a Roberto; nulla da ecceppire, se è sempre
vero che le visite con data maggiore hanno un ID maggiore.
Ma se ciò non fosse sempre vero (non sempre registrassi nella tabella le
visite nell'ordine in cui avvengono) e tu avessi una tabella contenente
questi dati:
ID        IDAnag    DataVis
1            2            07/04/2001
2            1            08/02/2001
3            2            08/03/2001
4            2            08/04/2001
5            2            09/03/2001
per
IDAnag = 2
DataVis = 08/04/2001
penso che con il tuo sistema ti restituirebbe 5 anziché 1, così come ti
restituirebbe giustamente 5 per
IDAnag = 2
DataVis = 07/04/2001
Forse sto prendendo una cantonata. ;-)
Però....
Ariciao, Roberto


text:
Roberto dal portatile wrote:
> "Federico Luciani" <
fluc...@sitocomune.com
> ha scritto nel messaggio
> > Roberto dal portatile wrote:
> [CUT]
> > non e' proprio quello che cercavo (vedi riposta a Roberto), ma adesso
> > che l'ho vista mi e' venuta in mente un altra situazione in cui mi e'
> > molto utile la query che mi hai inviato ;-))
> > Grazie
> > --
> > Federico
>
> Ho letto la risposta che hai dato a Roberto; nulla da ecceppire, se è sempre
> vero che le visite con data maggiore hanno un ID maggiore.
> Ma se ciò non fosse sempre vero (non sempre registrassi nella tabella le
> visite nell'ordine in cui avvengono) e tu avessi una tabella contenente
> questi dati:
> [cut]
> Forse sto prendendo una cantonata. ;-)
> Però....
> Ariciao, Roberto
no anzi, hai perfettamente ragione, pero' il caso di registrazione a
posteriori e' un caso che non si dovrebbe verificare in quanto dovrebbe
avvenire il tempo reale (cioe' durante la visita).
pero' conoscendo i medici, forse e' il caso che io lo prenda in
considerazione...
mo ce penso ;-))



author: Silvio Berruti

text:
"Federico Luciani" <
fluc...@sitocomune.com
> ha scritto nel messaggio
news:3B701AEB...@sitocomune.com...
>
> =dmax("[ID]","Tabella1","[IDAnag]=2 AND [DataVis]<#08/04/2001#")
>
=dmax("[ID]","Tabella1","[IDAnag]=2 AND [DataVis]<=#08/04/2001#")
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Tabelle ad albero

author: Marco Santilli

text:
E' possibile trasferire completamente il contenuto di una tabella con
struttura ad albero in un'altra tabella contenente la stessa struttura????
Io fino ad ora l'ho fatto trasferendo da una tabella semplice ad un'altra
tabella contenente la stessa struttura
Ciao e grazieeeeeeeeeee


title: Tabelle ad albero

author: Alessandro Cara

text:
Marco Santilli wrote:
>
> E' possibile trasferire completamente il contenuto di una tabella con
> struttura ad albero in un'altra tabella contenente la stessa struttura????
Perdona la mia ignoranza ma cosa vuol dire?
Cos'e' una tabella con struttura ad albero
--
a.cara
Togli qualcosa dall'email


title: Tabelle ad albero

author: cidi

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
> > E' possibile trasferire completamente il contenuto di una tabella con
> > struttura ad albero in un'altra tabella contenente la stessa
struttura????
> Perdona la mia ignoranza ma cosa vuol dire?
> Cos'e' una tabella con struttura ad albero
Perdona il mio ardire Alessandro. :-)
Potresti lasciare una riga vuota prima della tua risposta?
Grazie mille
saluti Daniele


title: Tabelle ad albero

text:
cidi wrote:
[cut]
> Perdona il mio ardire Alessandro. :-)
> Potresti lasciare una riga vuota prima della tua risposta?
ardisci, ardisci e come pare disse qualcuno un po di tempo fa
Obbedisco!
ma perche?



title: Tabelle ad albero

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3E3422DE...@blunet.it...

Apri il database che sta su C:\Programmi\Microsoft Office\Office10\Samples
Northwind
Se quardi qualche tabella noterai che a sinistra a inizio record c'è un "+",
cliccando su quel "+" ti si apre una sottocartella contenente altri record


title: Tabelle ad albero

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3E3422DE...@blunet.it...
> cidi wrote:
> [cut]
> > Perdona il mio ardire Alessandro. :-)
> > Potresti lasciare una riga vuota prima della tua risposta?
>
> ardisci, ardisci e come pare disse qualcuno un po di tempo fa
> Obbedisco!
> ma perche?
Perchč cosě trovo subito l'inizio della tua risposta. :-)))
saluti Daniele
---


title: Tabelle ad albero

text:
cidi wrote:
> Perchč cosě trovo subito l'inizio della tua risposta. :-)))
Capisco. E' colpa del mio NS che mi colora in modo diverso la risposta
e quindi non mi sono mai preoccupato della cosa ;<))))
La riga ce l'ho messa eh?! Niente cazziata stavolta?



title: Tabelle ad albero

text:
Marco Santilli wrote:
> Se quardi qualche tabella noterai che a sinistra a inizio record c'è un "+",
> cliccando su quel "+" ti si apre una sottocartella contenente altri record
Il Northwind non lo apro, ma temo che quello che tu dici riferisca a 2
tabelle
in relazione. Non si tratta di una tabella ma di 2 o piu' tabelle
relazionate



title: Tabelle ad albero

author: Antonio Biso

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3E3470B1...@blunet.it...
> cidi wrote:
>
> > Perchč cosě trovo subito l'inizio della tua risposta. :-)))
>
> Capisco. E' colpa del mio NS che mi colora in modo diverso la risposta
> e quindi non mi sono mai preoccupato della cosa ;<))))
> La riga ce l'ho messa eh?! Niente cazziata stavolta?
Gli ho insegnato bene, eh?
Antonio


title: Tabelle ad albero

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3E3471A5...@blunet.it...

ESATTO. Si tratta di due tabelle relazionate.
Cmq ci sono riusccito a risolvere il problema. Ho creato altre 2 tabelle
dove, quando lui mi accoda i record mi va a mettere l'ID della prima tabella
in un campo NUMERICO, quindi facendo cosi ho risolto il problema
Ciao e grazieeeeeeeeeeee


title: Tabelle ad albero

author: oizirbaF

text:


Insercisci--> foglio dati secondario.
Tabella ad albero ....
Ciao. Fabrizio.
(Access XP (sp2), Win ME, P4 1Ghz, 320 RAM)


title: Completamento automatico maschera

author: Anakin

text:
Salve a tutti.
Ho poca esperienza di access e mi sto creando un archivio magazzino
personale.
Ho creato una Tabella chiamata [Tab_Articoli] così composta:
IDArticolo
CodArticolo
Descrizione
Prezzo
Sconto 1
Sconto 2
Fornitore
Aggiornato
Note
Volevo creare una maschera che mi permettesse mentre scrivo nel campo
"CodArticolo" di aggiornare gli altri campi in tempo reale, in modo da
vedere se l'articolo che sto scrivendo è già in magazzino ed
eventualmente modificare i vari campi "Prezzo", "Sconto 1", etc...
Ho cercato in giro ma non ho trovato niente...potete aiutarmi ?
Grazie a tutti in anticipo !


title: Completamento automatico maschera

text:

hai provato a cercare per  "casella combinata" su questo NG?
i.e
http://snipurl.com/28tur
    [groups_google_it]
--
ac
y-1=x


title: Completamento automatico maschera

text:
> hai provato a cercare per  "casella combinata" su questo NG?
> i.e
http://snipurl.com/28tur
>     [groups_google_it]
In realtà volevo usare una casella di testo a cui associare l'evento
change per aggiornare gli altri campi mentre scrivo il campo CodArticolo...
Non è fattibile una soluzione del genere ?


title: Completamento automatico maschera

text:

e' "quasi" tutto fattibile. Quello che non capisco e per quale motivo
avendo un oggetto gia pronto, i.e. il combobox, vorresti fare una cosa
(piu' pesante) che dovrebbe fare esattamente quello che fa il cbx
cmq qui forse e' piu' chiaro:
http://www.donkarl.com/it/
  da 4.12 a 4.16
--
ac
y-1=x


title: aiuto query

author: pinco pallo

text:
ho una query con un elenco di campi nome, cognome, tot contratto ecc...
il criterio di ricerca è [inserisci codice cliente] solo che se non trova
nulla la query mi risulta vuota,
come posso far si che se è nulla mi dia una riga in cui tutti i campi
risulti uno 0?
grazie


title: aiuto query

author: Fabio Civ

text:
"pinco pallo" <
Arc...@securitysolutions.it
> ha scritto nel messaggio

Posta la query.


title: Come si fa ad "interagire" con il web da vba access ? Nel senso :

text:
Io devo scrivere una applicazione vba access che deve :

- chiamare una pagina web

- scriverci  la password e scrivere altre info in altri
  campi

- inviare la pagina cosi' compilata

- attendere la pagina di risposta

- importare la tabella che questa pagina espone
  (tabella lunghissima, XML credo) in una tabella
   access.

Il tutto senza far apparire nulla all' utente.

So  che si puo' fare. E fino ad aprire una pagina web
c' arrivo (o meglio, c' arrivavo, devo rinfrescare la
memoria).

Dopodiche' mi perdo.

Se per favore qualcuno paziente (non sono molto perspicace)
volesse guidarmi gliene sarei molto grato.


author: BFS

text:

direi che dipende dalla pagina
la pagina web è tua?
asp? php? html?

BFS


author: Bruno Campanini

text:
radica...@gmail.com
 laid this down on his screen :

Comincia col precisare l'URL...

Bruno


text:

Si certo ecco qualche esempio :

http://www.consob.it/main/documenti/promotori/albo/abruzzo.xml?xsl=albopromotori.xsl

Oppure :

http://www.consob.it/main/documenti/promotori/albo/lazio.xml?xsl=albopromotori.xsl

Come vedi questi sono i link diretti alle tabelle. Per cui a
questo punto dovrei importarle. Come si deve fare ?

-----------------------------------------------------
P.S. seguono dubbi e ragionamenti vari :-)

1)
Che succede se la Consob cambia la struttura delle sue pagine ?
Semplice : il programma salta :-)

E non credo che senza un intervento manuale (andare a vedere il
nuovo indirizzo, praticamente) la cosa si possa aggiustare.
Sbaglio ?
Ma pazienza, sarebbe il minimo dei problemi.

2)
Poi  (spero anche BFS mi legga) leggo che BFS mi chiede che *tipo*
di  pagina  sia. Mentre  io  pensavo  (erroneamente, ovvio) che il
"trattamento" (diciamo) fatto col vba fosse uguale per ogni tipo.

Mi direte : ma a che ti serve inserire campi in una pagina se accedi
direttamente all' URL della pagina con la tabella ?

Il problema e' che a me serve interagire con qualsiasi pagina web.
E certe pagine web "rispondono" con le pagine giuste solo dietro
alcuni inputs da parte dell' utente.

Questa della Consob no, ok. Ma in generale occorre inserire una
password e qualche altro dato per ottenere risposta.

In questo momento preciso non ho a disposizione una pagina di
quel tipo da esibire, ma ... magari potreste spiegarmi come
riconoscere che tipo di pagina sia e quindi come scrivere diverse
proc in funzione del tipo.

Almeno credo che la via da seguire sia questa. Boh !

Attendo ansioso


text:

Che differenza fa?
Tu leggi l'output che a quanto mi consta e' html con un po di
javascript, anzi tu leggi il DOM (document object model)
php asp jsp e tutte le "sciocchezze" a corredo non sono lato server? E
se lo sono non le vedrai mai. Quello che vedi e' quello che vedi se si
fa "mostra sorgente" da qualsiasi browser

--
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)

---
Questa e-mail è priva di virus e malware perché è attiva la protezione avast! Antivirus.
http://www.avast.com


text:
Il 30/10/2014 21:50, Alessandro Cara ha scritto:

P.S.
Hai il vantaggio che le cose nel DOM sono organizzate e puoi "puntare" a
quello che vuoi (se conosci come e' fatto il DOM ma per questo c'e' il
"reference" )

Almeno questo fino al 2003 se poi le cose sono cambiate allora ritiro tutto.



text:

yes, puo' succedere

>
> E non credo che senza un intervento manuale (andare a vedere il
> nuovo indirizzo, praticamente) la cosa si possa aggiustare.
> Sbaglio ?
> Ma pazienza, sarebbe il minimo dei problemi.

Il cambio di indirizzo e' la cosa minore, in genere e' stabile e' piu'
frequente che cambi la "struttura" della pagina target

>
> 2)
> Poi  (spero anche BFS mi legga) leggo che BFS mi chiede che *tipo*
> di  pagina  sia. Mentre  io  pensavo  (erroneamente, ovvio) che il
> "trattamento" (diciamo) fatto col vba fosse uguale per ogni tipo.

vero. Secondo me BFS ha ecceduto
Oserei dire "fatto con qualsiasi linguaggio"

>
> Mi direte : ma a che ti serve inserire campi in una pagina se accedi
> direttamente all' URL della pagina con la tabella ?
>
> Il problema e' che a me serve interagire con qualsiasi pagina web.
> E certe pagine web "rispondono" con le pagine giuste solo dietro
> alcuni inputs da parte dell' utente.

yes, succede

>
> Questa della Consob no, ok. Ma in generale occorre inserire una
> password e qualche altro dato per ottenere risposta.

se po fa

>
> In questo momento preciso non ho a disposizione una pagina di
> quel tipo da esibire, ma ... magari potreste spiegarmi come
> riconoscere che tipo di pagina sia e quindi come scrivere diverse
> proc in funzione del tipo.

basta leggere i dati guida presenti in qualsiasi pagina o verificare
l'URL se e' quello aspettatato o meno

> Attendo ansioso

fatti uno xanax



text:
Alessandro Cara used his keyboard to write :

> Che differenza fa?
> Tu leggi l'output che a quanto mi consta e' html con un po di javascript,
> anzi tu leggi il DOM (document object model)
> php asp jsp e tutte le "sciocchezze" a corredo non sono lato server? E se lo
> sono non le vedrai mai. Quello che vedi e' quello che vedi se si fa "mostra
> sorgente" da qualsiasi browser
Io con Access 2013 leggo, importo e interagisco con gli
URL con estensione XML, HTM, HTML.
Non leggo i .XSL e quelli senza estensione, ancorché
risulti dal source della pagina trattarsi di HTML.

Qual è il segreto per accedervi senza limitazioni?

Bruno


text:

Ciao Bruno.
E' passato un po' di tempo da quando ho "giocato" l'ultima volta con
questa roba.
Se non ricordo male c'erano due modi di "gestire" il web uno era una
richiesta di lettura "diretta" di un file (se non ricordo male) dal
server, la seconda prevedeva che all'interno di Access fosse definito
l'oggetto explorer (connettere il relativo riferimento).
Se tu hai l'oggetto explorer di fatto hai explorer a tua disposizione
che puoi "pilotare" medianti comandi da vba e quindi quello  che dici mi
risulta oscuro. Dal browser explorer  puoi chiamare pagina senza
estensione (fallace, il server se non  trova estensione, in genere, va a
cercare l'estensione di default)?Certo che lo puoi fare ed il browser
risponde, la risposta la hai all'interno del tuo  oggetto explorer e li
la leggi.

Curiosita'. File xsl? a che ti servono? se non ricordo male non sono
altro che la "dichiarativa" della struttura dell'xml (o forse anche
excel ha questa estensione? Ma in questo caso non c'e' un plugin che si
occupa di interpretare l'oggetto (come per flash o puttanate simili?))



text:
Il giorno giovedì 30 ottobre 2014 22:19:45 UTC+1, Bruno Campanini ha scritto:

> Io con Access 2013 leggo, importo e interagisco con gli
> URL con estensione XML, HTM, HTML.

Ah ecco, il busillis e' l' estensione ... Ok

> Non leggo i .XSL e quelli senza estensione, ancorché
> risulti dal source della pagina trattarsi di HTML.
> Qual è il segreto per accedervi senza limitazioni?
>

Gia'. Qual' e' ?
Io so che da EXCEL riesce a leggere tutto. Puo' aiutare ?

P.S.

Che sfiga, leggi tutto tranne quello che serve a me :D


text:
Il giorno giovedì 30 ottobre 2014 19:41:46 UTC+1, Bruno Campanini ha scritto:

> Comincia col precisare l'URL...

Scusami, forse puoi aiutarmi per raggiungere questo obiettivo piu'
ridotto ma molto importante per la mia attivita'.

Osserva per favore questa pagina web :
https://www.albopf.it/web/area_pubblica/servizi/albostatico

Come vedi c'e' (circa in basso a destra) una serie di files zip.
Per esempio quello della toscana, il primo in alto, ha nome :

https://www.albopf.it/XXDomain/AlboStatico/html/TOSCANA.zip

Se "ci clicco" sopra questo file viene scaricato.

Potresti  per  cortesia spiegarmi, se possibile, come posso
"acchiappare" col vba quel file e scaricarmelo su una certa
directory del mio C: ?

Ti ringrazio


text:

Ah scusa ... scaricarlo "UNzippato", cioe' "espanso" ovviamente.
Altrimenti non potrei leggerlo.

Oppure "unzipparlo" dopo in qualche modo.


text:
Il giorno venerdì 31 ottobre 2014 11:45:22 UTC+1,
radica...@gmail.com
 ha scritto:
> Il giorno giovedì 30 ottobre 2014 19:41:46 UTC+1, Bruno Campanini ha scritto:
>
> > Comincia col precisare l'URL...
>
> Scusami, forse puoi aiutarmi per raggiungere questo obiettivo piu'
> ridotto ma molto importante per la mia attivita'.
>
> Osserva per favore questa pagina web :
>
https://www.albopf.it/web/area_pubblica/servizi/albostatico

>
> Come vedi c'e' (circa in basso a destra) una serie di files zip.
> Per esempio quello della toscana, il primo in alto, ha nome :
>
>
https://www.albopf.it/XXDomain/AlboStatico/html/TOSCANA.zip

Ho  risolto tutto, ma  grazie  lo  stesso  nel caso c' avessi
pensato perdendoci qualche tempo.


text:
radica...@gmail.com
 explained :

> Ho  risolto tutto, ma  grazie  lo  stesso  nel caso c' avessi
> pensato perdendoci qualche tempo.

Avevo solo pensato di convertire in tabella Access direttamente
https://www.albopf.it/XXDomain/AlboStatico/html/TOSCANA.html
,
anziché scaricare lo ZIP... etc.

Tu come hai risolto?
È buona norma (educazione) darne atto.

Bruno


text:
Il giorno venerdì 31 ottobre 2014 16:25:51 UTC+1, Bruno Campanini ha scritto:
>
radica...@gmail.com
 explained :
>
> > Ho  risolto tutto, ma  grazie  lo  stesso  nel caso c' avessi
> > pensato perdendoci qualche tempo.
>
> Avevo solo pensato di convertire in tabella Access direttamente
>
https://www.albopf.it/XXDomain/AlboStatico/html/TOSCANA.html
,
> anziché scaricare lo ZIP... etc.

sarebbe l' ideale

> Tu come hai risolto?
> È buona norma (educazione) darne atto.

Si certo, ci mancherebbe altro. Anzi, mi fa piacere.
E' che non sapevo fossi interessato.

Si utilizza una funzione API che prende qualsivoglia
file del web e te lo copia cosi' com' e' in locale.

Poi si unzippa. Funziona perfettamente. Qui sotto ti metto
il metto il codice :

' questa e' la funzione API :
Public Declare Function URLDownloadToFile Lib "urlmon" Alias _
                                           "URLDownloadToFileA" ( _
                                           ByVal pCaller As Long, _
                                           ByVal szURL As String, _
                                           ByVal szFileName As String, _
                                           ByVal dwReserved As Long, _
                                           ByVal lpfnCB As Long) As Long

' questa e' la procedura che la utilizza

Public Sub DownloadFileFromWeb()
On Error GoTo err_1
    Const strUrl As String = _
    "
https://www.albopf.it/XXDomain/AlboStatico/html/TOSCANA.zip
"
    Dim strSavePath As String
    Dim returnValue As Long
    strSavePath = "C:\prova.zip"
    returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0)

Err_Exit:
    Exit Sub

err_1:
    MsgBox Err.Description
    Resume Err_Exit
End Sub

' e questa la procedura che unzippa (l' ho messa per provarla
' sotto l' evento click di un tasto in una form access :

Private Sub Comando0_Click()
 Dim oApp As Object 'Shell32.Folder

 Set oApp = CreateObject("Shell.Application")
 oApp.Namespace("c:\unzippato\").CopyHere oApp.Namespace("c:\prova.zip").items

End Sub

Fammi sapere


text:
It happens that
radica...@gmail.com
 formulated :
> Il giorno venerdì 31 ottobre 2014 16:25:51 UTC+1, Bruno Campanini ha scritto:
>>
radica...@gmail.com
 explained :
>>
>>> Ho  risolto tutto, ma  grazie  lo  stesso  nel caso c' avessi
>>> pensato perdendoci qualche tempo.
>>
>> Avevo solo pensato di convertire in tabella Access direttamente
>>
https://www.albopf.it/XXDomain/AlboStatico/html/TOSCANA.html
,
>> anziché scaricare lo ZIP... etc.
>
> sarebbe l' ideale

(Access 2013/64)
La tabella "Toscana" ha i seguenti campi:
Cognome, Luogo di nascita, Data di nascita, Indirizzo,
Delibera d'iscrizione, Stato, Intermediario, Regione.
Tutti Short Text (255).
===============================================
Private Sub Command65_Click()
Dim dHTML As HTMLDocument, nHTML As New HTMLDocument
Dim tbl As HTMLTable, row As HTMLTableRow, cell As HTMLTableCell
Dim col As HTMLTableCol, k As Long, n As Long, m As Long
Dim RS As Recordset, NumRow As Long, NumCol As Long, tblArray()

CurrentDb.Execute "DELETE Toscana.* FROM Toscana;"
Set RS = CurrentDb.OpenRecordset("Toscana", dbOpenDynaset)

Set dHTML =
nHTML.createDocumentFromUrl("
https://www.albopf.it/XXDomain/AlboStatico/html/TOSCANA.html
",
vbNullString)
Do While dHTML.ReadyState <> "complete"
    DoEvents
Loop

m = 1
For Each tbl In dHTML.getElementsByTagName("table")
NumRow = tbl.Rows.Length
NumCol = tbl.Rows(0).Cells.Length
ReDim tblArray(1 To Int(NumRow / 9), 0 To 8)
    For Each row In tbl.Rows
        For Each cell In row.Cells
            k = k + 1
            If k > 11 And k Mod 2 Then
                'Debug.Print k, n, m, cell.innerText
                tblArray(m, n) = cell.innerText
                n = n + 1
            End If
            If n = 9 Then
                n = 0: m = m + 1
            End If
Next: Next: Next

For NumRow = 1 To UBound(tblArray)
    RS.AddNew
    For NumCol = 0 To 7
        RS.Fields(NumCol) = tblArray(NumRow, NumCol)
    Next
    RS.Update
Next

End Sub
====================================

Bruno


text:
Il giorno sabato 1 novembre 2014 00:06:17 UTC+1, Bruno Campanini ha scritto:
(omissis)

Ok, ho capito come hai fatto e acquisito. Grazie mille !


text:
radica...@gmail.com
 presented the following explanation :
> Il giorno sabato 1 novembre 2014 00:06:17 UTC+1, Bruno Campanini ha scritto:
> (omissis)
>
> Ok, ho capito come hai fatto e acquisito. Grazie mille !

Ho anche eseguito in un sol colpo il download di tutte
le 20 regioni, in unica tabella.
Se t'interessa...

Bruno


author: Simone Calligaris

text:
"Bruno Campanini" <

> (Access 2013/64)
> La tabella "Toscana" ha i seguenti campi:
> Cognome, Luogo di nascita, Data di nascita, Indirizzo,
> Delibera d'iscrizione, Stato, Intermediario, Regione.
> Tutti Short Text (255).
> ===============================================

(cut)

Sei in gran forma Bruno: complimenti   ;-)


text:

Certo, vorrei capire. Attendo.


text:
radica...@gmail.com
 expressed precisely :

La tabella ora è LT_Regioni: stessi campi di Toscana.
=====================================================
Private Sub Command65_Click()
Dim MyHTML As HTMLDocument, tHTML As New HTMLDocument
Dim tbl As htmlTable, row As HTMLTableRow, cell As HTMLTableCell
Dim col As HTMLTableCol, k As Long, n As Long, m As Long
Dim RS As Recordset, j As Long, NumRow As Long, NumCol As Long
Dim Regioni(1 To 20) As String, T As Double, TOT As Long, i

DoCmd.Hourglass True
T = Timer

Regioni(1) = "TOSCANA":         Regioni(2) = "UMBRIA"
Regioni(3) = "LAZIO":           Regioni(4) = "SARDEGNA"
Regioni(5) = "CAMPANIA":        Regioni(6) = "MOLISE"
Regioni(7) = "MARCHE":          Regioni(8) = "ABRUZZO"
Regioni(9) = "PUGLIA":          Regioni(10) = "BASILICATA"
Regioni(11) = "CALABRIA":       Regioni(12) = "SICILIA"
Regioni(13) = "LOMBARDIA":      Regioni(14) = "PIEMONTE"
Regioni(15) = "LIGURIA":        Regioni(16) = "VALLE_D'AOSTA"
Regioni(17) = "VENETO":         Regioni(18) = "FRIULI_VENEZIA_GIULIA"
Regioni(19) = "EMILIA_ROMAGNA": Regioni(20) = "TRENTINO_ALTO_ADIGE"

CurrentDb.Execute "DELETE LT_Regioni.* FROM LT_Regioni;"
Set RS = CurrentDb.OpenRecordset("LT_Regioni", dbOpenDynaset)

For Each i In Regioni
    Dim tblArray()
    Set MyHTML =
tHTML.createDocumentFromUrl("
https://www.albopf.it/XXDomain/AlboStatico/html/
"
& i & ".html", vbNullString)
    Do While MyHTML.ReadyState <> "complete"
        DoEvents
    Loop

    k = 0: m = 1: n = 0
    For Each tbl In MyHTML.getElementsByTagName("table")
        NumRow = tbl.Rows.Length
        NumCol = tbl.Rows(0).Cells.Length
        ReDim tblArray(1 To Int(NumRow / 9), 0 To 8)
        For Each row In tbl.Rows
            For Each cell In row.Cells
                k = k + 1
                If k > 11 And k Mod 2 Then
                    'Debug.Print k, n, m, cell.innerText
                    tblArray(m, n) = cell.innerText
                    n = n + 1
                End If
                If n = 9 Then
                    n = 0
                    m = m + 1
                End If
    Next: Next: Next
    Set MyHTML = Nothing

    TOT = TOT + UBound(tblArray)
    For k = 1 To UBound(tblArray)
        RS.AddNew
        For j = 0 To 7
            RS.Fields(j) = tblArray(k, j)
        Next
        RS.Update
    Next
Next
DoCmd.Hourglass False
MsgBox Timer - T & "  sec." & vbCrLf & _
       Format(TOT, "# ###") & "  Records downloaded"

End Sub
==============================================

Bruno


text:
Simone Calligaris explained :

Sarà il canto del cigno.
(scritto con la sinistra sui coglions...)

Bruno


text:
Il giorno lunedì 3 novembre 2014 15:11:30 UTC+1, Bruno Campanini ha scritto:

(omissis)

Letto tutto e salvato. Notevole, davvero. Non sapevo si potesse "fare"
cosi'.

Grazie, e alla prossima.


text:
radica...@gmail.com
 has brought this to us :
> Il giorno lunedì 3 novembre 2014 15:11:30 UTC+1, Bruno Campanini ha scritto:
>
> (omissis)
>
> Letto tutto e salvato. Notevole, davvero. Non sapevo si potesse "fare"
> cosi'.

Non lo sapevo nemmeno io.

Bruno


text:

:-)

Dove hai trovato ? Ricerca su google ? Io la ho trovato quell' ipotesi
che t' ho mostrato. E che penso non sia da buttare : ha il vantaggio di
essere molto veloce e "brutale" (beve tutto)  e  quindi  minimizza  il
tempo minimo necessario di connessione al web. La miglior cosa (forse)
e' conoscere i vari metodi per  sceglierne di  volta in  volta il piu'
adatto.


text:
Il giorno sabato 1 novembre 2014 00:06:17 UTC+1, Bruno Campanini ha scritto:

Pero' scusa c'e' una cosa che proprio mi sfugge. Hai scritto :

> m = 1
> For Each tbl In dHTML.getElementsByTagName("table")

Ecc ecc

Ora, in quella pagina non c'e' UNA sola tabella, quella cioe'
coi dati anagrafici. Ma ce ne sono almeno altre due piccoline
in fondo (<table> ... bla bla ... </table>) le vedi ?

Allora come fai a non caricare anche quelle visto che (almeno
cosi' mi pare di capire) il tuo codice dice *per ogni* tabella
della pagina fai questo e quest' altro ?

Mi puoi spiegare per favore ?


text:
radica...@gmail.com
 formulated the question :

La precedente sezione di codice:
For Each i In Regioni
    Dim tblArray()
    Set MyHTML =
tHTML.createDocumentFromUrl("
https://www.albopf.it/XXDomain/AlboStatico/html/
"
& i & ".html", vbNullString)
    Do While MyHTML.ReadyState <> "complete"
        DoEvents
    Loop
........
seleziona di volta in volta le 20 regioni, per cui MyHTML contiene
un solo file di regione, diciamo TOSCANA.html

La successiva sezione di codice:
For Each tbl In MyHTML.getElementsByTagName("table")
quella che ti crea perplessità, va a prelevare da dentro
TOSCANA.html, una alla volta, tutte le tabelle ivi esistenti.
Ma dentro TOSCANA.html c'è UNA SOLA TABELLA: quella che ci serve.

Sarebbe più logico riferirsi a detta unica tabella in modo diretto
anziché usare un For Each... Next.
Ma per quanto ci abbia studiato sopra non ho trovato altra via
per farlo.
Ci sarà? io credo di no. Comunque studiati anche tu quella
guida che ti ho segnalato e correggimi se sbaglio.

Bruno

PS
Quell'unica tabella non ha nome, non ha id, ha un'intestazione
centrale composta di diverse righe anche blank e fa corpo unico,
come oggetto tabella, con la tabella vera e propria contenente
i dati che preleviamo.
A completare l'oscenità del tutto ha una sola colonna e quelle
che dovrebbero essere le intestazioni dei campi in una tabella
convenzionale, si ripetono con riferimento a ciascun dato.
Per cui i 53873 record logici si sono trasformati in più del
doppio di record fisici.
Verrei essere chiaro con un esempio, un record formato da:

Nome     Indirizzo            Città
Piero    Via del Desiderio    Livorno

si trasforma in:
Nome
Piero
Indirizzo
Via del Desiderio
Città
Livorno

e così per 53873 volte,


text:
Bruno Campanini pretended :

cosicché si ha una tabella monocampo di 3-400000 record da cui
estrarre,
con una serie infinita di moccoli, i 53873 record utili, in un formato
che può chiamarsi database.

Buenas noches, sono las dos de la mañana.

Bruno


text:

E fin qui ok

> La successiva sezione di codice:
> For Each tbl In MyHTML.getElementsByTagName("table")
> quella che ti crea perplessità, va a prelevare da dentro
> TOSCANA.html, una alla volta, tutte le tabelle ivi esistenti.
> Ma dentro TOSCANA.html c'è UNA SOLA TABELLA: quella che ci serve.

Scusa se insisto ma a me pare che non ce ne sia una sola. Per es.
per l' Abruzzo (l' ho scelto perche' piu' piccolo) in fondo si
legge :
----------------------------------------------------

----------------------------------------------------
come vedi c'e' un
 e un
 che dovrebbero indicare
un' altra tabella. No ?

> Sarebbe più logico riferirsi a detta unica tabella in modo diretto
> anziché usare un For Each... Next.
> Ma per quanto ci abbia studiato sopra non ho trovato altra via
> per farlo.
> Ci sarà? io credo di no. Comunque studiati anche tu quella
> guida che ti ho segnalato e correggimi se sbaglio.

La sto studiando da parecchio e anche a me pare che nn ci sia modo,
perche' le tabelle (almeno in quel file) non hanno ID (unico)
>
> PS
> Quell'unica tabella non ha nome, non ha id,

Appunto

> ha un'intestazione centrale composta di diverse righe anche blank
> e fa corpo unico, come oggetto tabella, con la tabella vera e propria
> contenente i dati che preleviamo.
> A completare l'oscenità del tutto ha una sola colonna e quelle
> che dovrebbero essere le intestazioni dei campi in una tabella
> convenzionale, si ripetono con riferimento a ciascun dato.
> Per cui i 53873 record logici si sono trasformati in più del
> doppio di record fisici.
> Verrei essere chiaro con un esempio, un record formato da:
>
> Nome     Indirizzo            Città
> Piero    Via del Desiderio    Livorno
>
> si trasforma in:
> Nome
> Piero
> Indirizzo
> Via del Desiderio
> Città
> Livorno
>
> e così per 53873 volte,

Si si ho visto. Evidentemente alla Consob non hanno chiaro il
concetto di db "relazionale" :D
(scherzo)


text:
It happens that
radica...@gmail.com
 formulated :

Non conosco il codice ma credo che inizio e fine di una
tabella siano definiti da <table> e </table>, mentre la
prima riga del codice che qui esponi:
>   <table width="151" border="0" cellspacing="0" cellpadding="0">
rappresenta forse le proprietà di quell'unica tabella.

Mi sto arrampicando sugli specchi nel cercar di comprendere
il "nuovo" che mi si para innanzi.

[...]
>> e così per 53873 volte,
>
> Si si ho visto. Evidentemente alla Consob non hanno chiaro il
> concetto di db "relazionale" :D
> (scherzo)
Programmatori frettolosi, direi che proprio non hanno
chiaro il concetto di database.
(non scherzo)
E chissà quanto li paga la Consob...

Bruno


text:
Il giorno venerdì 7 novembre 2014 11:24:16 UTC+1, Bruno Campanini ha scritto:
(omissis)

... mi sa che c' hai ragione

> Mi sto arrampicando sugli specchi nel cercar di comprendere
> il "nuovo" che mi si para innanzi.

Se ti va :
entra nel frame della tabella abruzzo e dagli una botta di tasto
destro di mouse e vedi l' html che descrive la frame. In fondo.

> [...]
> >> e così per 53873 volte,
> >
> > Si si ho visto. Evidentemente alla Consob non hanno chiaro il
> > concetto di db "relazionale" :D
> > (scherzo)
> Programmatori frettolosi, direi che proprio non hanno
> chiaro il concetto di database.
> (non scherzo)

> E chissà quanto li paga la Consob...

La Consob ? Niente. Li paghiamo **noi** dal momento che la Consob
e' un ente dello  Stato. E vai col butta butta di denaro pubblico,
tanto a loro che gliene frega ?

...  non  mi  ci  far pensare che mi vengono istinti omicidi. E
adesso nemmeno io scherzo.


title: Dlookup, dove sbaglio?

author: Lucia Naddeo

text:
Ho un problema con dlookup:
dalla maschera INSERIMENTO (maschera singola), apro la maschera CAP2
(maschere continue)
che mi elenca indirizzi e cap.
In ogni riga c'è un pulsante che sull'evento click, dovrebbe copiarmi
indirizzo e cap nella maschera principale INSERIMENTO
e poi chiudere la maschera CAP2
Il problema è che copia solo i dati dal primo record della lista.
Dim varX As Variant
varX = DLookup("indirizzo", "[Stradario Roma]", "[IDstrade] = " &
Forms!cap2!idstrade)
Forms!inserimento.indirizzo = varX
varX = DLookup("cap", "[Stradario Roma]", "[IDstrade] = " &
Forms!cap2!idstrade)
Forms!inserimento.cap = varX
DoCmd.Close acForm, "cap2", acSaveYes
Dove sbaglio?
Graazie in anticipo
Luciana


title: Dlookup, dove sbaglio?

author: Michele (Giò)

text:
"Lucia Naddeo" <
lucia...@tiscali.it
> ha scritto nel messaggio
news:4554cb89$0$7628$4faf...@reader1.news.tin.it...
> Ho un problema con dlookup:
> Il problema è che copia solo i dati dal primo record della lista.
> Dove sbaglio?
Prova a vedere se, creando un evento di sottomaschera Form_Current e posizionando un punto di
interruzione su questa, se cliccando il pulsante si attiva l'evento. Se non si attiva vuol dire che
il cursore resta fermo sempre al primo record, ed è per questo che ti copia solo la prima riga.
In alternativa potresti utilizzare un campo si no da spuntare e su evento AfterUpdate di questo
campo lanciare la tua funzione di copia.
Michele


title: Dlookup, dove sbaglio?

author: VT @ home

text:
Il Fri, 10 Nov 2006 19:57:26 +0100, "Lucia Naddeo" <
lucia...@tiscali.it
> ha scritto:
>(.....)

Secondo me ti stai complicando la vita inutilmente.
Quando una form a maschere continue è posizionata su un determinato record (alias c'è la frecceta nera nella casella di
selezione record alla sinistra del medesimo) sono disponibili i valori di tutti i controlli della riga stessa (compresi
quelli invisibili) tramita la sintassi Me.Nomecontrollo.
Mi sembra di capire che la tua form cap2 abbia due controlli associati rispettivamente al campo indirizzo ed al campo
cap della tabella "Stradario Roma".
Se è così, nella routine associata all'evento click del pulsante della form cap2 credo si possa tranquillamente
sostituire il tuo codice con:
Forms!inserimento.indirizzo =me.NomeControlloAssociatoAlCampoIndirizzo
Forms!inserimento.cap = me!NomeControlloAssociatoAlCampoCap
Se non dovesse funzionare, potrebbe dipendere dal fatto che l'evento click sul pulsante non rende corrente il record
corrispondente alla riga (o che questo si verifica dopo l'evento click).
In tal caso, potresti cambiare la modalità di selezione della riga sfruttando l'evento DoubleClick della form cap2.
In questo modo potresti togliere il pulsante dalla form cap2 (che magari diventa anche più leggibile) e mettere il
codice associato al suo evento click nel codice associato all'evento DoubleClick del form cap2.
Così basterebbe fare doppio click su una riga per valorizzare i controlli della form Inserimento.
HTH
>
>
>Graazie in anticipo
>Luciana
>
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400
http://www.faq400.com/
---------------------------------------------


title: Valore corrente su casella combinata

author: AMR-Giuseppe

text:
Ciao a tutti
In una maschera ho un pulsante AggiuntaRecord
la cui routine è qui descritta
 On Error GoTo Err_CmdAggiungi_Click
    DoCmd.GoToRecord , , acNewRec
    CodiceProdotto.SetFocus
Exit_CmdAggiungi_Click:
    Exit Sub
Err_CmdAggiungi_Click:
    MsgBox Err.Description
    Resume Exit_CmdAggiungi_Click
Questa routine mi azzera tutti i controlli e posiziona il cursore
sul controllo CodiceProdotto , fino qui bene
a me interessa che in un altro controllo della maschera
di nome Modello rimanga visualizzato l'ultimo valore ,
in modo che io possa aggiungere valori solo su CodiceProdotto
perchè il valore del controllo Modello è già inserito
Come posso fare ?
Ciao Giuseppe


title: Valore corrente su casella combinata

author: Roberto da casa

text:
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:7HG8a.267015$0v.73...@news1.tin.it...

Non sono sicuro di aver capito il tuo problema, ma se vuoi che si imposti
automaticamente in un controllo il valore che aveva per il record inserito
precedentemente, vai sul Sito Comune (link qui sotto) e nella Sezione Forms
leggi la FAQ di Federico Luciani intitolata "Ripetere un valore del record
precedente in una form".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Valore corrente su casella combinata

author: Emyr

text:
On Mon, 03 Mar 2003 11:06:43 GMT, "AMR-Giuseppe" <
amrma...@tin.it
>
wrote:

vedi defaultvalue e lostfocus
Saluti.
Emanuele.


title: 24 ore

author: ronaldino

text:
stavo creando un prospetto ore per l'ufficio, ma mi sono bloccato quando ho
visto che non è possibile inserire le ore 24.00
Access accetta solo valori compresi tra le 0.00 e le 23.59 e per un minuto
mi sballano tutti i calcoli.
Qualcuno mi sa dire se è un bug di access e se c'è qualche modo per ovviare
al problema.
grazie in aticipo


title: 24 ore

author: Roberto dal portabile

text:
"ronaldino" <
rona...@libero.it
> ha scritto nel messaggio
news:%c7d7.5939$2L.1...@news.infostrada.it...

Non è una bug, mi sembra normale.
Non esistono le ore 24:00 (le ore ono 24: la prima è contrassegnata da 00 e
la ventiquattresima da 23)  ; dopo le ore 23:59 di un giorno ci sono le ore
0:00 del giorno successivo.
Un campo Data/ora ha come rappresentazione interna un numero razionale che
ha la data nella parte intera e l'ora nella parte decimale.
Nei tuoi calcoli, per ottenere quelle che tu chiami le ore 24:00, devi
sommare l'intero 1 al controllo che conterrà come ore e minuti 0:00; così
facendo ti sposti di un giorno e non dovresti avere alcun problema nei
calcoli.
Che calcoli devi fare?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: 24 ore

text:
Devo calcolare le ore effettuate nella giornata
io ho ovviato al problema creando campi in formato numerico e poi
ritrasformandoli in orario ma è un lavorone
In excel la possibilità delle 24.00 è accettata e quindi se io faccio 18.00
/ 24.00 il risultato è 6 ore, mentre in acces è -18.00 ore.
"Roberto dal portabile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:S18d7.6165$2L.1...@news.infostrada.it...



title: 24 ore

text:
"ronaldino" <
rona...@libero.it
> ha scritto nel messaggio
news:Quwd7.11708$2L.4...@news.infostrada.it...
> Devo calcolare le ore effettuate nella giornata
> io ho ovviato al problema creando campi in formato numerico e poi
> ritrasformandoli in orario ma è un lavorone
> In excel la possibilità delle 24.00 è accettata e quindi se io faccio
18.00
> / 24.00 il risultato è 6 ore, mentre in acces è -18.00 ore.
>
Se il risultato lo vuoi nel controllo Durata che ha il formato hh:mm.
Se i controlli che contengono gli orari si chiamano OraInizio e OraFine e
contengono valori di tipo Data/ora con il formato hh:mm:
If Me!OraInizio > Me!OraFine Then
    Me!Durata = (Me!OraFine + 1) - Me!OraInizio
Else
    Me!Durata = Me!OraFine - Me!OraInizio
End If
Se OraInizio è 18:00 e OraFine = 0:00 il risultato è 6:00.



title: 24 ore

text:
grazie a buon rendere
"Roberto dal portabile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:QKyd7.12374$2L.4...@news.infostrada.it...



title: lavorare su db access con pwd

text:
apro un database
copio una tabella
poi mi connetto ad altro protetto da pwd cancello una tabella e incollo
quella copiata prima
ritorno sul db di prima
come si fa?


title: lavorare su db access con pwd

text:
"Bastian70" <
crlu...@tin.it
> ha scritto nel messaggio
news:4432e222$0$29731$4faf...@reader2.news.tin.it...

dimenticavo: da 6 tabelle aventi la stessa struttura ricavarne una sola con
comando unione senza realizzare tante query. si puo?


title: lavorare su db access con pwd

author: Sib

text:
"Bastian70" <
crlu...@tin.it
> ha scritto nel messaggio

C'è un motivo particolare per cui vuoi fare tutte questi giri? o il tuo
scopo è copiare i dati?
Sib


title: lavorare su db access con pwd

text:
solo una copia su un database protetto
cmq avrei risolto con una query di creazione tabella du db esterno
mi resta solo un problema: se la tabella esiste già?
come faccio a sovrascrivere?


title: lavorare su db access con pwd

text:
"Bastian70" <
crlu...@tin.it
> ha scritto nel messaggio

Con una query di eliminazione tabella.
Solo una domanda, ma che motivo c'è di eliminare una tabella e ricrearla
uguale?
Limitati a svuotarla e a inserire i nuovi record.
Ciao
Sib
--
http://www.gestionedati.com


title: lavorare su db access con pwd

text:
grazie sib
mi spiego meglio:
6 database strutturati alla stessa maniera lavorano su gruppi di persone
diverse con protezione utente a livello condivisione
1 database protetto da password strutturato per copia di 6 tabelle riunite
con query unione
se svuoto una delle 6 tabelle e la riempio (come si fa?) ci sono problemi
con il blocco dei record per gli utenti connessi sulla query unione???


title: lavorare su db access con pwd

text:
"Bastian70" <
crlu...@tin.it
> ha scritto nel messaggio

Hai gli stessi identici blocchi anche con l'eliminazione della tabella,
quindi da quel punto di vista non cambia niente.
Comunque, forse perchè a quest'ora non sono "pienamente operativo" non ho
mica capito che struttura di database hai creato...



title: query di ricerca 2 (nn ci salto fuori)

author: francesco

text:
sono ancora io, non sono ankora riuscito a collegare la casella combinata
alla query.
vi spiego tutto quelo che ho fatto cosě potete dirmi se mi sono sbagliato o
no...
allora ho costruito una tabella di dati.
ho costuito una maschera e ho inserito una casella combinata e ho detto di
inserire nella casella i dati della tabella. poi ho costruito la query che
mi deve ricercare in base al dato che seleziono quando clicco nella casella
combinata ma nel momento in cui inserisco nei criteri
[forms]![nomemaschera]![casellacombinata] tutte le volte mi chiede di
inserire il dato manualemente.
non so se puň interessare ma ho collegato la maschera alla query attravero
una macro che prima mi chiude la maschera e poi mi apre la query.
se non avete capito tutto chiedete io devo farl il prima possibile vi
ringrazio anticipatamente francesco


title: query di ricerca 2 (nn ci salto fuori)

author: Mik Mark

text:
"francesco" <
francesc...@libero.it
> ha scritto nel messaggio
news:EER97.3536$_07.1...@news.infostrada.it...

Allora, se ho capito ben tu hai messo
[forms]![nomemaschera]![casellacombinata] nei criteri di quale campo?
Stai attento che la casella combinata restituisce un numero, precisamente
l'ID del valore scelto.
Quindi non puoi fare il confronto con il testo (es: nome) ma con IDNome.
Se vai a vedere nell'origine riga della casella combinata lo potrai vedere,
poi vai a vedere il numero di colonne e la colonna  associata. Vedi subito
se il confronto che fai č valido.


title: query di ricerca 2 (nn ci salto fuori)

author: Roberto dal portatile

text:
"francesco" <
francesc...@libero.it
> ha scritto nel messaggio
news:EER97.3536$_07.1...@news.infostrada.it...

E' giusto che ti succeda questo.
Affinchč tutto ti funzioni occorre che quando viene eseguita la query anche
la maschera deve risultare aperta; non devi chiuderla come fai tu.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: query di ricerca 2 (nn ci salto fuori)

text:
GRAZIE MILLE ORA FUNZIONA!!!!!
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9k999a$4s2a$1...@stargate1.inet.it...



title: più istanze della stessa form

author: ciroteo

text:
Mi ritrovo a correggere un lavoro fatto tempo fa relativo alla
caratteristica in oggetto.
L'esempio è quello indicato da karl 4...
alla prima apertura tutto bene, si apre la stessa maschera con valori
filtrati.
al secondo click e fino alla chiusura della maschera iniziale mi si presenta
errore che dice che la maschera è stata chiusa o non esiste.
in corrispondenza di with formagain
In sostanza è come se non sentisse più la variabile new form dichiarata
all'inizio del modulo.
come è possibile che alla pressione del click venga rieseguita la routine
dall'inizio?
o meglio quali possono essere le cause di questo malfunzionamento?
posto codice:
questa all'inizio del modulo:
Dim FormAgain As New Form_sottopresenze
questo sotto pulsante
On Error GoTo Err_sostituzion_Click
Dim filtrino
If IsNull(Me.sostituto) Then
MsgBox ("Non c'è sostituzione!")
Else
filtrino = "[idincarico]=" & Forms![sottopresenze]!sostituto.Column(0)
Me.Repaint
Exit Sub
End If
If Me.sostituzione.Column(0) <> "si" Then
MsgBox "Attenzione non è una sostituzione"
Exit Sub
End If
If Me.sostituto = Me.IDincarico Or IsNull(Me.sostituto) Or
Len(Me.sostituito) = 0 Then
MsgBox "Non si può attribuire una sostituzione allo stesso operatore o a
nessuno"
Exit Sub
Else
DoEvents
With FormAgain
    .Visible = True
    .Filter = filtrino
    .FilterOn = True
    .Caption = ":: Sostituto ::"
    .Section(1).BackColor = 11790052
    .Section(2).BackColor = 11790052
    .sostituito.Visible = True
    DoCmd.MoveSize , 1500, , 8000
End With
'FormAgain.SetFocus
End If
Exit_sostituzion_Click:
    Exit Sub
Err_sostituzion_Click:
    MsgBox Err.Description
    Resume Exit_sostituzion_Click
End Sub


title: più istanze della stessa form

author: Alessandro Baraldi

text:
L'error esecondo me è nel modi di dichiarazione usato:
Dim FormAgain As New Form_sottopresenze
Se avessi dichiarato così:
Dim FormAgain As Form_sottopresenze
poi all'interno del Modulo avessi effettuato una nuova
istanza non avresti avuto problemi:
Set FormAgain = New Form_sottopresenze
Fossi in te userei anche una Collection per tener traccia.
Eventualmente dai un'occhiata al DEMO che ho appena inserito
nel mio sito alla Sezione FORMS relativo all'archiviazione Immagini.
Nella versione Evoluta ho usato una Maschera aperta in MultiIstanza
proprio come servirebbe a te, e forse puoi attingere qualche cosa
di utile.
Ciao
@Alex


title: più istanze della stessa form

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1140531431.4...@o13g2000cwo.googlegroups.com...
L'error esecondo me č nel modi di dichiarazione usato:
Dim FormAgain As New Form_sottopresenze
Se avessi dichiarato cosě:
Dim FormAgain As Form_sottopresenze
poi all'interno del Modulo avessi effettuato una nuova
istanza non avresti avuto problemi:
Set FormAgain = New Form_sottopresenze
Fossi in te userei anche una Collection per tener traccia.
Eventualmente dai un'occhiata al DEMO che ho appena inserito
nel mio sito alla Sezione FORMS relativo all'archiviazione Immagini.
Nella versione Evoluta ho usato una Maschera aperta in MultiIstanza
proprio come servirebbe a te, e forse puoi attingere qualche cosa
di utile.
Ciao
@Alex
funziona grazie. cerco il demo e me lo studio!


title: Access 2010 - Maschera - Casella "CERCA" in riquadro pulsanti di spostamento

text:
Sto cercando di creare una casella che funzioni nello stesso analogo modo di quella indicata in oggetto e che possa quindi filtrare i dati visualizzati immediatamente quanto si digita cercando il testo in ogni campo.

Ho già realizzato qualcosa di simile utilizzando ME.FILTER:

""""" Me.Filter = "[LastName] Like '*" & [ControlName] & "*'"
      Me.FilterOn = True   """""

Ma realizzarlo con analoga procedura su una maschera che contiene centinaia di campi è un vero problema.

E' possibile variare il codice suddetto e sostituire a [LastName] un qualcosa che indica "Qualunque Campo"?

Oppure: altre idee?

Grazie!!!

Tony dalla Sardegna!


author: Riccardo Baldinotti

text:
ancu...@gmail.com
 ha scritto:

> Sto cercando di creare una casella che funzioni nello stesso analogo modo di
quella indicata in oggetto e che possa quindi filtrare i dati visualizzati
immediatamente quanto si digita cercando il testo in ogni campo.

> Ho gi� realizzato qualcosa di simile utilizzando ME.FILTER:

> """"" Me.Filter = "[LastName] Like '*" & [ControlName] & "*'"
>       Me.FilterOn = True   """""

> Ma realizzarlo con analoga procedura su una maschera che contiene centinaia
di campi � un vero problema.

> E' possibile variare il codice suddetto e sostituire a [LastName] un
qualcosa che indica "Qualunque Campo"?

Perch� non provi con FindRecord?
RB

--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
Mi pare tu abbia già avuto risposta sul NG di MS.... o sbaglio...?

@Alex


title: Stampa fronte/retro

author: Stefano Schifano

text:
Buongiorno,  ho un report su 2 pagine e devo stamparlo in fronte/retro su una stampante canon c256I.
Se stampo in pdf e poi da pdf lo stampo sulla stampante, viene stampato in fronte/retro ma se lo stampo tramite DoCmd.OpenReport "prenotazione", acViewNormal, , "[id_prenotazione] = " & Me.ID_Prenotazione
me lo stampa su 2 pagine.
Nella stampante, ho impostato la stampa fronte/retro quindi tutte le stampe, vengono eseguite così. Soltanto il report da access viene stampato su 2 fogli.
C'è un parametro da passare per fare stampare in fronte retro?
Grazie mille


title: Stampa fronte/retro

author: BFS

text:

puoi da codice settare tutte le impostazioni di stampa, fronte retro
comprese

vedi qui

https://learn.microsoft.com/en-us/office/vba/api/access.printer.duplex

BFS


title: Stampa fronte/retro

text:

Grazie mille.
Domani provo.


title: Aggiornamento sottomaschera

author: Santoni

text:
Ciao a tutti.... ho una maschera che contiene 2 sottomaschere quando
modifico un dato nella prima sottomaschera vorrei che venga aggiornata
in tempo reale l'altra come faccio....( ho provato con con una macro
aggiorna pagina
e anche solo aggiorna ma non viene aggiornato niente.... Premetto però
che se chiudo e riapro la maschera l'aggiornamento viene eseguito anche
senza nessuna macro...).
Spero di essermi spiegato bene...
Ciao a tutti e grazie


title: Aggiornamento sottomaschera

author: MA

text:
> Ciao a tutti.... ho una maschera che contiene 2 sottomaschere quando
> modifico un dato nella prima sottomaschera vorrei che venga aggiornata
> in tempo reale l'altra come faccio....
su afterupdate del tuo controllo
tuaform!tuasottomaschera.requery
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Aggiornamento sottomaschera

text:
"Santoni" <
santo...@tiscali.it
> ha scritto nel messaggio
news:eFMF9.11330$qF1.5...@news2.tin.it...

Non è che sia molto chiaro cosa hai scritto.
Se però tutto si risolve chiudendo e riaprendo la maschera. fai un requery
del controllo sottomaschera della maschera principale che contiene la
seconda sottomaschera.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Aggiornamento sottomaschera

author: sala davide

text:
"Santoni" <
santo...@tiscali.it
> ha scritto nel messaggio
news:eFMF9.11330$qF1.5...@news2.tin.it...
> Ciao a tutti.... ho una maschera che contiene 2 sottomaschere quando
> modifico un dato nella prima sottomaschera vorrei che venga aggiornata
> in tempo reale l'altra come faccio....( ho provato con con una macro
> aggiorna pagina
> e anche solo aggiorna ma non viene aggiornato niente.... Premetto perň
> che se chiudo e riapro la maschera l'aggiornamento viene eseguito anche
> senza nessuna macro...).
>
> Spero di essermi spiegato bene...
>
> Ciao a tutti e grazie
>
>
devi passare al record successivo/precedente della prima maschera, poi
tornare al record con cui stavi lavorando e vedrai la sottomoschera
aggiornata


title: Aggiornamento sottomaschera

text:
"sala davide" <
elsa...@libero.it
> ha scritto nel messaggio
news:k0QF9.8975$fa.3...@news1.tin.it...
>
> "Santoni" <
santo...@tiscali.it
> ha scritto nel messaggio
> news:eFMF9.11330$qF1.5...@news2.tin.it...
> > Ciao a tutti.... ho una maschera che contiene 2 sottomaschere quando
> > modifico un dato nella prima sottomaschera vorrei che venga aggiornata
> > in tempo reale l'altra come faccio....( ho provato con con una macro
> > aggiorna pagina
> > e anche solo aggiorna ma non viene aggiornato niente.... Premetto però
> > che se chiudo e riapro la maschera l'aggiornamento viene eseguito anche
> > senza nessuna macro...).
> >
> > Spero di essermi spiegato bene...
> >
> > Ciao a tutti e grazie
> >
> >
> devi passare al record successivo/precedente della prima maschera, poi
> tornare al record con cui stavi lavorando e vedrai la sottomoschera
> aggiornata
>
>
Bravo...lo sapevo anche io


title: Aggiornamento sottomaschera

author: Damia

text:
prova con docmd.requery "nome_sottomaschera"
--
-----------------------------------------------------
Click here for Free Video!!
http://www.gohip.com/free_video/
"Santoni" <
santo...@tiscali.it
> ha scritto nel messaggio
news:lLGH9.42075$qF1.1...@news2.tin.it...



title: Access > Word........

author: Mark

text:
Salve a tutti!
eccomi col solito "tormentone"...........
da una maschera inserisco dei nominativi dalla tabella "Nomi" e, all'evento
clic di un pulsante, ho creato questa routine:
    Dim oapp As Object
    DoCmd.RunCommand acCmdSaveRecord
    Set oapp = CreateObject("Word.Application")
    With oapp
    .documents.Open "c:\documenti\LAVORO\opfs.doc"
    .Visible = True
    .PrintOut
    .Quit
    End With
    Set oapp = Nothing
Questa tabella "Nomi", è inserita nel documento "opfs.doc" ma, purtroppo,
Word non aggiorna il campo "Nomi". Sono costretto ad aprire direttamente, da
Word, il documento, selezionare la tabella e premere l'icona di
aggiornamento sulla barra delle applicazioni database (e a dire che mi
funzionava tutto bene soprattutto con Word 2000).
Qualche autorevole suggerimento?
Grazie anticipatamente.
Marco.
P.S. - Uso Access '97 e Word 2003


title: Access > Word........

text:
Mark ha scritto:

Prova così:
oapp.Selection.WholeStory
oapp.Selection.Fields.Update


title: Access > Word........

text:
"BR1" <
bona...@gmail.com
> ha scritto nel messaggio
news:1155192452.8...@p79g2000cwp.googlegroups.com...
Mark ha scritto:

Prova così:
oapp.Selection.WholeStory
oapp.Selection.Fields.Update
Grazie per la cortese collaborazione.
Il suggerimento funziona (tranne per due piccoli particolari) alla grande
ma.......... per colpa mia ho dimenticato di scrivere qualcos'altro:
il documento di Word, in questione, oltre ad essere associato ad una tabella
del database di Access '97, è anche associato con una origine dati dalla
barra di applicazioni "Stampa Unione".
I due "piccoli" problemini sono:
quando invio la stampa, si apre il documento con evidenziato tutto e
chiedendomi di salvare il file. Stampa perfetta ma..........i campi della
stampa unione sono in modalità "struttura" e, ovviamente, non contengono i
dati ma solo i riferimenti.
Siamo vicini alla perfetta soluzione e, cioè, stampare in tutta
tranquillità, in background, il documento in questione.
Resto in fiduciosa attesa per la risoluzione di quanto sopra.
Grazie ancora.
Marco.


title: Access > Word........

text:
Mark ha scritto:

    OAPP.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
In linea di massima per eseguire via codice VBA operazioni in WORD, non
fai altroche registrare una macro in word e copiare il codice che ne
risulta in ACCESS aggiungendo all'inizio di ogni riga OAPP.


title: Access > Word........

text:
"BR1" <
bona...@gmail.com
> ha scritto nel messaggio
news:1155218600.4...@m73g2000cwd.googlegroups.com...
Mark ha scritto:

    OAPP.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle

Allora:
wdToggle non viene riconosciuta - "variabile sconosciuta";
dove trovo tutte le istruzioni disponibili tipo .printout - .visible= true -
.quit - con With oapp ?
Grazie ancora.
Marco.


title: Access > Word........

author: Sergio MAZZA

text:
"Mark" <
SPAM_NISBA...@yahoo.it
> ha scritto nel messaggio news:44db6167$0$35078$4faf...@reader4.news.tin.it...
>
> Allora:
> wdToggle non viene riconosciuta - "variabile sconosciuta";
> dove trovo tutte le istruzioni disponibili tipo .printout - .visible= true -
> .quit - con With oapp ?
>
> Grazie ancora.
> Marco.
Nell'help in linea del VBA di word (attivabile con ALT-F11 poi F1); altrimenti qui:
http://msdn.microsoft.com/office/reference/vba/
Ciao.
--
Sergio MAZZA


title: Access > Word........

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:ebhb6v$dge$1...@area.cu.mi.it...

Bentrovato, Egregio Sergio,
ricapitolando, sembra che il codice aggiunto da BR1 funge ma mi da l'errore
"Variabile non definita" su WdToggle.
==============================================
Private Sub Comando26_Click()
    Dim oapp As Object
    DoCmd.RunCommand acCmdSaveRecord
    Set oapp = CreateObject("Word.Application")
    With oapp
    .documents.Open "c:\documenti\LAVORO\opfs.doc"
    oapp.Selection.WholeStory
    oapp.Selection.Fields.Update
    oapp.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdtoggle
    .Visible = True
    .PrintOut
    .Quit
    End With
    Set oapp = Nothing
End Sub
=============================================
Ho cercato di "dimensionarla" con una Long, oppure Var oppure Obj ma,
niente!
Suggerimenti?
Grazie della cortese collaborazione.
Marco.


title: Access > Word........

text:
"Mark" <
SPAM_NISBA...@yahoo.it
> ha scritto nel messaggio news:44dc5447$0$35082$4faf...@reader4.news.tin.it...
> Bentrovato, Egregio Sergio,
Non mi ero accorto di essermi... Perso...
> ricapitolando, sembra che il codice aggiunto da BR1 funge ma mi da l'errore "Variabile non definita" su WdToggle.
>
> ==============================================
> Private Sub Comando26_Click()
>    Dim oapp As Object
>    DoCmd.RunCommand acCmdSaveRecord
>    Set oapp = CreateObject("Word.Application")
>    With oapp
>    .documents.Open "c:\documenti\LAVORO\opfs.doc"
>    oapp.Selection.WholeStory
>    oapp.Selection.Fields.Update
>    oapp.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdtoggle
>    .Visible = True
>    .PrintOut
>    .Quit
>    End With
>    Set oapp = Nothing
> End Sub
> =============================================
> Ho cercato di "dimensionarla" con una Long, oppure Var oppure Obj ma, niente!
> Suggerimenti?
Una volta che hai inserito i riferimenti alla libreria di Word (Strumenti - Riferimenti) puoi dichiarare la "vera natura" delle
variabili oggetto ed avere oltre all'intellissense la possibilità di utilizzare le costanti proprie di word.
WdToggle è una costante di word (prefisso "wd").
Quindi potresti cambiare il codice:
...
Dim oapp As word.application
Me.Refresh '<-- invece del  RunCommand
...
Se ancora non viene riconosciuta la costante, apri il visualizzatore di oggetti e cerchi la costante, la selezioni e vedi in basso
il suo valore; utilizza quello.
Tutto questo quando avrai inserito i riferimenti alla libreria (detto sopra) oppure apri word, premi alt-f11 e visualizzatore
oggetti e fai la stessa cosa detta...
> Grazie della cortese collaborazione.
> Marco.
Ciao.
--
Sergio MAZZA


title: Access > Word........

text:
Esimio Sergio,
da strumenti>riferimenti, o flaggato Microsoft Word Object 11.0;
ho inserito le 2 righe di codice, da te suggerite;
ho dichiarato wdtoggle come oggetto (non so se ho sbagliato o meno)
ma l'errore persiste sulla riga
---------------------------
oapp.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdtoggle
---------------------------
ho aperto il visualizzatore di oggetti, di MsAccess, ma non vedo l'oggetto
da me dichiarato (wdtoggle).
Questo č il nuovo codice:
Private Sub Comando26_Click()
    Dim oapp As Word.Application
    Dim wdtoggle As Object
     Me.Refresh
    Set oapp = CreateObject("Word.Application")
    With oapp
    .documents.Open "c:\documenti\LAVORO\opfs.doc"
    oapp.Selection.WholeStory
    oapp.Selection.Fields.Update
    oapp.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdtoggle
    .Visible = True
    .PrintOut
    .Quit
    End With
    Set oapp = Nothing
End Sub
Non so piů che fare. E a dire che molto tempo fa questo codice, senza
l'aiuto di BR1, funzionava alla grande con l'accoppiata Acess '97 e Word
2000. Perchč su nessun pc, adesso, non funge piů? quando mandavo in stampa,
oltre che aggiornare i campi automaticamente, non avevo neanche il fastidio
di vedermi, per un attimo, word aprirsi e richiudersi.
Mah........!? misteri Microsoft!!!!!!!!!!!!!
Grazie della cortese attenzione e resto in attesa di un autorevole aiuto.
Marco.


title: Access > Word........

text:
Cari "smanettoni",
finalmente ho capito perchè non funge più questo codice:
Private Sub Comando26_Click()
    Dim oapp As Object
    DoCmd.RunCommand acCmdSaveRecord
    Set oapp = CreateObject("Word.Application")
    With oapp
    .documents.Open "c:\documenti\LAVORO\opfs.doc"
    .Visible = True
    .PrintOut
    .Quit
    End With
    Set oapp = Nothing
End Sub
il problema sta nel fatto che questo codice va bene SOLO se si apre il
documento con Word 2002. Purtroppo con le versioni successive, non aggiorna
i campi automaticamente.
Ho cercato anche con Word 2003 e, nelle impostazioni, mettere compatibilità
con Word 2002, ma..........NISBA!
Ho cercato di convertire l'.mdb di Access '97 in Access 2003, con Word 2003
e il documento con compatibilità 2002, ma ........ NISBA!
Ho cercato di caricare, in Access '97, il riferimento Microsoft Word 10.0
Objects Library, ma.........NISBA!
Purtroppo sembra inevitabile, per il funzionamento "ad hoc" del codice
suesposto, installare Word 2002 ed aprirlo con quest'ultimo!
Attendo autorevoli smentite/suggerimenti!
Grazie per la cortese collaborazione.
Marco.


title: Access > Word........

author: Carlo Costarella

text:
"Mark" <
SPAM_NISBA...@yahoo.it
> ha scritto nel messaggio
news:44df25e7$0$15878$4faf...@reader2.news.tin.it...
> Cari "smanettoni",
> finalmente ho capito perchè non funge più questo codice:
>
> Private Sub Comando26_Click()
>    Dim oapp As Object
>    DoCmd.RunCommand acCmdSaveRecord
>    Set oapp = CreateObject("Word.Application")
>    With oapp
>    .documents.Open "c:\documenti\LAVORO\opfs.doc"
>    .Visible = True
>    .PrintOut
>    .Quit
>    End With
>    Set oapp = Nothing
> End Sub
>
>
> il problema sta nel fatto che questo codice va bene SOLO se si apre il
> documento con Word 2002. Purtroppo con le versioni successive, non
> aggiorna i campi automaticamente.
cut
Questo funziona con Word 2003:
Dim oapp As Object
    DoCmd.RunCommand acCmdSaveRecord
    Set oapp = CreateObject("Word.Application")
    With oapp
    .Documents.Open FileName:="c:\documenti\LAVORO\opfs.doc"
    .Visible = True
    .PrintOut FileName:=""
    .Quit
    End With
    Set oapp = Nothing
Ciao, Carlo


title: Access > Word........

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:ebnbqf$cl2$1...@area.cu.mi.it...

Ciao Carlo,
ma mi dispiace........ il tuo codice/suggerimento con Access '97 e Word
2003, anche specificando il documento con compatibilità sia 2003 che 2002,
non funge :-(
e, per di iù, ogni volta che si apre il documento, mi chiede sempre se
voglio salvare.
Grazie per la cortese attenzione.
Marco.


title: Access > Word........

text:
"Mark" <
SPAM_NISBA...@yahoo.it
> ha scritto nel messaggio
news:44df4f11$0$35079$4faf...@reader4.news.tin.it...
cut
> Ciao Carlo,
> ma mi dispiace........ il tuo codice/suggerimento con Access '97 e Word
> 2003, anche specificando il documento con compatibilità sia 2003 che 2002,
> non funge :-(
> e, per di iù, ogni volta che si apre il documento, mi chiede sempre se
> voglio salvare.
>
> Grazie per la cortese attenzione.
> Marco.
>
Mi spiace Marco, a me funziona benissimo con qualsiasi associazione e in
particolare con A97 e Word2003.
Prova il solo codice secco, secco, e magari usando un file salvato in c:\.
Controlla nelle opzioni di word, alla voce "Salva", se hai tolto la spunta a
"crea sempre copia di backup" o altre opzioni che possono in qualche modo
richiedere o forzare il salvataggio. Elimina eventuali file temporanei con
lo stesso nome e fammi sapere.
Ciao, Carlo


title: Access > Word........

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:ebnos1$qo6$1...@area.cu.mi.it...

Grazie per la tempestività.
Forse, sicuramente, non ho bene esposto il problema:
questo documento, contiene una origine dati tipo, data, luogo ora ecc.ecc.,
poi una tabella che contiene dei nominativi inserita, nel documento, con
"inserisci database" della barra degli strumenti di Word.
Il problema è che quando dalla maschera di Access '97, inserisco i dati e
mando in esecuzione il codice, tramite un pulsante di comando, non aggiorna
i campi. Se il documento, invece, si apre con Word 2002, il tutto funziona
alla meraviglia e non vedi nemmeno word aprirsi e chiederti di salvare il
file.
Mi sembra molto strano che funzioni solo a te :-)
>Prova il solo codice secco, secco, e magari usando un file salvato in c:\.
                                        ?????????
>Controlla nelle opzioni di word, alla voce "Salva", se hai tolto la spunta
>a "crea sempre copia di backup" o altre opzioni che possono in qualche modo
>richiedere o forzare il salvataggio. Elimina eventuali file temporanei con
>lo stesso nome e fammi sapere
                      ho controllato tutto e non c'è nulla da
flaggare/deflaggare in merito.
Resto in attesa di ulteriori smentite.
Marco.


title: Access > Word........

text:
"Mark" <
SPAM_NISBA...@yahoo.it
> ha scritto nel messaggio news:44df25e7$0$15878$4faf...@reader2.news.tin.it...
> Cari "smanettoni",
> finalmente ho capito perchè non funge più questo codice:
>
> Private Sub Comando26_Click()
>    Dim oapp As Object
>    DoCmd.RunCommand acCmdSaveRecord
>    Set oapp = CreateObject("Word.Application")
>    With oapp
>    .documents.Open "c:\documenti\LAVORO\opfs.doc"
>    .Visible = True
>    .PrintOut
>    .Quit
>    End With
>    Set oapp = Nothing
> End Sub
>
>
> il problema sta nel fatto che questo codice va bene SOLO se si apre il documento con Word 2002. Purtroppo con le versioni
> successive, non aggiorna i campi automaticamente.
- Per aggiornare un campo su un documento devi per forza aprire word;
- per aggiornare un campo word puoi:
-- (manualmente) selezionare il campo forzare l'aggiornamento (F9);
-- impostare nelle opzioni di stampa (Strumenti - Opzioni - Stampa) l'aggiornamento dei campi (tutti);
-- (da codice VBA) selezionare tutti i campi (o quello voluto) e utilizzare il metodo Update:
es. (tratto dall'help)
In questo esempio vengono aggiornati tutti i campi del documento attivo. Un risultato 0 (zero) indica che i campi sono stati
aggiornati senza errori.
If ActiveDocument.Fields.Update = 0 Then
    MsgBox "Update Successful"
Else
    MsgBox "Field " & ActiveDocument.Fields.Update & _
        " has an error"
End If
Quello che non vedo nel tuo codice; ora che sia '97 o 200x non c'è l'operazione che ti ho descritto.
> Ho cercato anche con Word 2003 e, nelle impostazioni, mettere compatibilità con Word 2002, ma..........NISBA!
> Ho cercato di convertire l'.mdb di Access '97 in Access 2003, con Word 2003 e il documento con compatibilità 2002, ma ........
> NISBA!
> Ho cercato di caricare, in Access '97, il riferimento Microsoft Word 10.0 Objects Library, ma.........NISBA!
>
> Purtroppo sembra inevitabile, per il funzionamento "ad hoc" del codice suesposto, installare Word 2002 ed aprirlo con
> quest'ultimo!
>
> Attendo autorevoli smentite/suggerimenti!
> Grazie per la cortese collaborazione.
> Marco.
Prima di trarre conclusioni affrettate controlla tutte le opzioni e nell'help in linea (di qualsiasi versione word) come aggiornare
un campo...
Ciao.
--
Sergio MAZZA


title: Access > Word........

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:ebpc5f$18j$1...@area.cu.mi.it...

Purtroppo prima di giungere a queste, seppur personali, conclusioni, ho
installato "ex-novo" Office XP e Access '97 su due miei portatili.
Ho potuto "studiare", a fondo, le diverse versioni di Word 2002 e Word 2003
(per questo problema). Tutte le opzioni, da te suggerite, sono state
"aggiornate" anche avendo consultato l'help in linea ma, dico ancora
purtroppo, non c'è soluzione oltre all'accoppiata Access '97 e Word 2002 per
il codice in argomento.
Sono onorato della pazienza che mi offrite e resto, ancora una volta, in
attesa di ulteriori consigli.
Marco.


title: Access > Word........

text:
"Mark" <
SPAM_NISBA...@yahoo.it
> ha scritto nel messaggio news:44e03976$0$15870$4faf...@reader2.news.tin.it...
> Purtroppo prima di giungere a queste, seppur personali, conclusioni, ho installato "ex-novo" Office XP e Access '97 su due miei
> portatili.
> Ho potuto "studiare", a fondo, le diverse versioni di Word 2002 e Word 2003 (per questo problema). Tutte le opzioni, da te
> suggerite, sono state "aggiornate" anche avendo consultato l'help in linea ma, dico ancora purtroppo, non c'è soluzione oltre
> all'accoppiata Access '97 e Word 2002 per il codice in argomento.
>
> Sono onorato della pazienza che mi offrite e resto, ancora una volta, in attesa di ulteriori consigli.
> Marco.
Farò delle prove anch'io...
Ciao.
--
Sergio MAZZA


title: Access > Word........

text:
"Mark" <
SPAM_NISBA...@yahoo.it
> ha scritto nel messaggio
news:44e03976$0$15870$4faf...@reader2.news.tin.it...
>
> Purtroppo prima di giungere a queste, seppur personali, conclusioni, ho
> installato "ex-novo" Office XP e Access '97 su due miei portatili.
> Ho potuto "studiare", a fondo, le diverse versioni di Word 2002 e Word
> 2003 (per questo problema). Tutte le opzioni, da te suggerite, sono state
> "aggiornate" anche avendo consultato l'help in linea ma, dico ancora
> purtroppo, non c'è soluzione oltre all'accoppiata Access '97 e Word 2002
> per il codice in argomento.
>
> Sono onorato della pazienza che mi offrite e resto, ancora una volta, in
> attesa di ulteriori consigli.
> Marco.
Ho installato (solo)Acc'97 e (solo)Word2002(XP) e con questo codice
seleziono un campo DATABASE e lo aggiorno visualizzando il risultato:
'---
Dim oApp As Word.Application
Set oApp = CreateObject("Word.Application")
oApp.Documents.Open "C:\Documenti\nomeFile.doc"
oApp.Visible = True
With oApp.Selection
    .Goto What:=wdGoToTable, Which:=wdGoToFirst, Count:=1, Name:=""
    .Find.ClearFormatting
    With .Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    .Fields.Update
End With
'---
Ho inserito i riferimenti alla libreria Microsoft Word 10.0...
Ciao.
--
Sergio MAZZA


title: Access > Word........

text:
Allora, caro Sergio,
a differenza del precedente codice, funzionante perfettamente con Word 2002
e con pochissime istruzioni, il tuo codice funziona "egregiamente" sia con
Word 2002 che con Word 2003, con i rispettivi riferimenti, ma, entrambe le
versioni, per chiudere il documento, richiedono il salvataggio del file (ho
anche visto nelle opzioni di entrambe le versioni ma non visto nulla per
evitare ciň).
Mi sono permesso di aggiungere alcune righe:
Private Sub Comando1_Click()
DoCmd.RunCommand acCmdSaveRecord
Dim oApp As Word.Application
Set oApp = CreateObject("Word.Application")
oApp.Documents.Open "C:\Documenti\provacodice.doc"
oApp.Visible = False
With oApp.Selection
    .Goto What:=wdGoToTable, Which:=wdGoToFirst, Count:=1, Name:=""
    .Find.ClearFormatting
    With .Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    .Fields.Update
    oApp.PrintOut
    End With
End Sub
======================================================
Se ci fosse un modo per saltare la richiesta di salvataggio, sarebbe
PERFETTO!
Ah......dimenticavo:
il tuo codice, evitando di visualizzare il documento, in background,
purtroppo, lascia il file di Word come se fosse aperto. Infatti, per un
successivo comando di stampa, non apre il documento perchč giŕ utilizzato e
chiede di aprirne una copia. Effettivamente noto che il file rimane come
temporaneo.
A te la "supervisione" per le dovute aggiunte/correzioni.
Un profondo ringraziamento.
Marco.


title: Access > Word........

text:
"Mark" <
SPAM_NISBA...@yahoo.it
> ha scritto nel messaggio
news:44e37172$0$30235$4faf...@reader1.news.tin.it...
> Allora, caro Sergio,
>
> a differenza del precedente codice, funzionante perfettamente con Word
> 2002 e con pochissime istruzioni, il tuo codice funziona "egregiamente"
> sia con Word 2002 che con Word 2003, con i rispettivi riferimenti, ma,
> entrambe le versioni, per chiudere il documento, richiedono il salvataggio
> del file (ho anche visto nelle opzioni di entrambe le versioni ma non
> visto nulla per evitare ciò).
La differenza tra il codice da te proposto e quello indicato da me è sempre
l'istruzione: (oggettoSelection).Fields.Update
> Mi sono permesso di aggiungere alcune righe:
>
> Private Sub Comando1_Click()
Sarebbe il caso che inserissi la gestione degli errori per evitare che
l'applicazione rimanga aperta.
Quindi:
On error goto Comando1_err
> DoCmd.RunCommand acCmdSaveRecord
Questa sopra puoi sostituirla con M.Refresh
> Dim oApp As Word.Application
> Set oApp = CreateObject("Word.Application")
> oApp.Documents.Open "C:\Documenti\provacodice.doc"
> oApp.Visible = False
>
> With oApp.Selection
>    .Goto What:=wdGoToTable, Which:=wdGoToFirst, Count:=1, Name:=""
>    .Find.ClearFormatting
>
>    With .Find
>        .Text = ""
>        .Replacement.Text = ""
>        .Forward = True
>        .Wrap = wdFindContinue
>        .Format = False
>        .MatchCase = False
>        .MatchWholeWord = False
>        .MatchWildcards = False
>        .MatchSoundsLike = False
>        .MatchAllWordForms = False
>    End With
>    .Fields.Update
>    oApp.PrintOut
>
>    End With
    exit sub
Comando1_err:
    set oApp = nothing
    msgbox err.number & " " & application.accesserror(err.number)
> End Sub
> ======================================================
>
> Se ci fosse un modo per saltare la richiesta di salvataggio, sarebbe
> PERFETTO!
(possibili soluzioni)
'--> imposta a "già salvato" il documento
'--> se chiuso non chiede il salvataggio
oApp.ActiveDocument.Saved = False
'--> chiude il documento attivo senza salvare le modifiche
oApp.ActiveDocument.Close False
'--> chiude l'applicazione senza salvare le modifiche
oApp.Quit False
Scegli tu.
> Ah......dimenticavo:
> il tuo codice, evitando di visualizzare il documento, in background,
> purtroppo, lascia il file di Word come se fosse aperto. Infatti, per un
> successivo comando di stampa, non apre il documento perchè già utilizzato
> e > chiede di aprirne una copia. Effettivamente noto che il file rimane
> come temporaneo.
L'esempio è proprio un esempio; tu dovevi riadattarlo, tutto qui.
Sopra ti ho indicato cosa devi fare se:
- vuoi salvare (o no) il documento al momento della chiusura;
- impostare il documento a "già salvato" anche se così non è;
- chiudere l'applicazione e tutti i documenti aperti senza salvarne nessuno;
> A te la "supervisione" per le dovute aggiunte/correzioni.
Sì ma l'olio di gomito lo dovresti mettere tu, io ti do solo la traccia;
altrimenti facciamo fifty-fifty...
> Un profondo ringraziamento.



title: Access > Word........

text:
In questi casi Magda direbbe:
"Non ce la fauccio piùùùùùù" !!! :-))
Scherzi a parte, ti ringrazio per la gentile attenzione ma, per dovere "di
cronaca" devo segnalarti che:
con Word 2003, nel documento, i riferimenti provenienti dall'origine dati,
non vengono visualizzati. Infatti restano in formato "struttura" (non so
come spiegarmi) e anche salvando il documento al contrario, cioè con la
visualizzazione dei "campi" di riferimento, non succede nulla. Niente da
dire sulla tabella (inserisci database) che egregiamente aggiorna i campi.
Con Word 2002 funziona TUTTO a meraviglia.
Per me va bene anche così ma, visto il professionale "smanettamento" e anche
per soddisfazione personale, non penso che tu sia daccordo :-))
============================================
Private Sub Comando26_Click()
    Me.Refresh
Dim oApp As Word.Application
Set oApp = CreateObject("Word.Application")
oApp.Documents.Open "C:\Documenti\lavoro\opfs.doc"
oApp.Visible = False
With oApp.Selection
    .Goto What:=wdGoToTable, Which:=wdGoToFirst, Count:=1, Name:=""
    .Find.ClearFormatting
    With .Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    .Fields.Update
End With
oApp.PrintOut
oApp.ActiveDocument.Close False
oApp.Quit
Set oApp = Nothing
End Sub
================================================
Sono sicuro che ci "ribeccheremo". :-))
Marco.


title: Access > Word........

text:
"Mark" <
SPAM_NISBA...@yahoo.it
> ha scritto nel messaggio
news:44e454ba$0$15869$4faf...@reader2.news.tin.it...
> In questi casi Magda direbbe:
> "Non ce la fauccio piùùùùùù" !!! :-))
>
> Scherzi a parte, ti ringrazio per la gentile attenzione ma, per dovere "di
> cronaca" devo segnalarti che:
> con Word 2003, nel documento, i riferimenti provenienti dall'origine dati,
> non vengono visualizzati. Infatti restano in formato "struttura" (non so
> come spiegarmi) e anche salvando il documento al contrario, cioè con la
> visualizzazione dei "campi" di riferimento, non succede nulla. Niente da
> dire sulla tabella (inserisci database) che egregiamente aggiorna i campi.
>
> Con Word 2002 funziona TUTTO a meraviglia.
> Per me va bene anche così ma, visto il professionale "smanettamento" e
> anche per soddisfazione personale, non penso che tu sia daccordo :-))
>
> ============================================
---omissis---
> ================================================
> Sono sicuro che ci "ribeccheremo". :-))
> Marco.
Ho installato anche Word2003 e il funzionamento è lo stesso (inserendo i
riferimenti alla libreria giusta); se vedi la "struttura" dei campi apri il
documento e premi ALT-F9 fino a quando vedi la tabella o il risultato dei
campi. Poi salvi il documento...
Ciao.
--
Sergio MAZZA


title: Access > Word........

text:
> Ho installato anche Word2003 e il funzionamento č lo stesso (inserendo i
> riferimenti alla libreria giusta); se vedi la "struttura" dei campi apri
> il documento e premi ALT-F9 fino a quando vedi la tabella o il risultato
> dei campi. Poi salvi il documento...
>
> Ciao.
> --
> Sergio MAZZA
Caro Sergio,
purtroppo non ci siamo.
Se il documento viene aperto in visualizzazione, funziona perfettamente -
stampi, salvi ed esci. Ma qui il problema č che tutto debba avvenire in
"background", apri il documento, aggiorna tutto, chiude il documento ed esce
da Word. Cosě facendo e seguendo "alla lettera" i tuoi consigli, il
documento viene stampato: tabella nominativi aggiornata; riferimenti campi
stampa unione NISBA! viene stampato solo <<data>> <<luogo>> <<orario>>
ecc.ecc.
PROVARE PER CREDERE.
Forse non hai provato a mandare in stampa, in background, il risultato.
Attendo fiducioso.
Marco.