title: [OT] Messaggi in ritardo

author: Mak

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:wt_J9.6416$Ou4.1...@twister2.libero.it...

Il problema è di powernwes di libero infatti ho settato le news di tiscali e
tutto funziona alla perfezione.
Saluti
Mak


title: [OT] Messaggi in ritardo

author: Xymox

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto
effettivamente prima ho detto una cavolata, io uso il server
news.cis.dfn.de
... ti consiglio di settare anche questo vai a :
http://news.cis.dfn.de/
--
Ciao Marco (x)
www.marcosanti.it


title: [OT] Messaggi in ritardo

author: Roberto da casa

text:
"Xymox" <
guarda...@ooo.it
> ha scritto nel messaggio
news:at9fhe$119fgn$1...@ID-122915.news.dfncis.de...
>
[CUT]
>
> Uso il tuo stesso server news (
uni-berlin.de
) ma per me è tutto ok ...
molto
> strano.
> --
> Ciao Marco S. (x)
Io non uso
uni-berlin.de
, ma
powernews.libero.it
 e continuo a vedere molto
in ritardo i messaggi: sto vedendo il tuo messaggio, cui sto rispondndo,
solamente ora.



title: [OT] Messaggi in ritardo

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto
> Io non uso
uni-berlin.de
, ma
powernews.libero.it
 e continuo a vedere molto
> in ritardo i messaggi: sto vedendo il tuo messaggio, cui sto rispondndo,
> solamente ora.
Ti ho già risposto in un altro post che leggerai :-))
-------------------------
effettivamente prima ho detto una cavolata, io uso il server
news.cis.dfn.de
... ti consiglio di settare anche questo vai a :
http://news.cis.dfn.de/
--------------------------



title: [OT] Messaggi in ritardo

author: Setec Astronomy

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message
news:wt_J9.6416$Ou4.1...@twister2.libero.it...
[cut]
> Scusate, ma continuo a ricevere i messaggi del NG in fortissimo ritardo.
> Per essere sicuro che dipenda dal server delle News che uso e non da
altro,
> chiedo se il mio problema capita ad altri frequentatori del NG che usano
> come server delle news
powernews.libero.it
?
Va a singhiozzo.
Comunque passano svariate ore prima di riuscire a vedere i propri posti.
Mi scuso anticipatamente per alcuni post multipli, li ho inviati perchè non
vedendoli arrivare sul server pensavo non fossero partiti.
Saluti.


title: [OT] Messaggi in ritardo

text:
"Mak" <
mak....@tiscalinet.it
> ha scritto nel messaggio
news:at9st9$fbr$1...@lacerta.tiscalinet.it...
[CUT]
> Il problema č di powernwes di libero infatti ho settato le news di tiscali
e
> tutto funziona alla perfezione.
>
> Saluti
> Mak
Come si chiama il server delle news di tiscali?



title: [OT] Messaggi in ritardo

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:at9p6h$h01$1...@canarie.caspur.it...
[CUT]
>
> Se io scarico i messaggi la mattina, i nuovi li vedo il giorno dopo...
Mah!
>
> Ciao.
>
> --
> Sergio MAZZA
Ciao,
e tu quale server delle news usi?



title: [OT] Messaggi in ritardo

text:
"Xymox" <
guarda...@ooo.it
> ha scritto nel messaggio
news:at9t4v$128fjn$1...@ID-122915.news.dfncis.de...
>
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto
>
> effettivamente prima ho detto una cavolata, io uso il server
news.cis.dfn.de
> ... ti consiglio di settare anche questo vai a :
>
http://news.cis.dfn.de/
>
Proverň, grazie!



title: [OT] Messaggi in ritardo

author: antonio v.

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:sD2K9.6845$TC5.2...@twister1.libero.it...
>
> "Xymox" <
guarda...@ooo.it
> ha scritto nel messaggio
> news:at9fhe$119fgn$1...@ID-122915.news.dfncis.de...
> >
> [CUT]
> >
> > Uso il tuo stesso server news (
uni-berlin.de
) ma per me è tutto ok ...
> molto
> > strano.
> > --
> > Ciao Marco S. (x)
>
> Io non uso
uni-berlin.de
, ma
powernews.libero.it
 e continuo a vedere molto
> in ritardo i messaggi: sto vedendo il tuo messaggio, cui sto rispondndo,
> solamente ora.
>
> --
> Roberto
Sto avendo lo stesso problema anch'io negli ultimi giorni.
Server delle news:
powernews.inwind.it
 (praticamente è lo stesso server).
Speriamo che sistemino presto il guasto.
Saluti


title: [OT] Messaggi in ritardo

text:
"Xymox" <
guarda...@ooo.it
> ha scritto nel messaggio
news:atadam$125qjr$1...@ID-122915.news.dfncis.de...

Ti ringrazio, ma nel frattempo
powernews.libero.it
 ha smesso di fare i
capricci



title: [OT] Messaggi in ritardo

author: Sergio MAZZA

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:qj4K9.7437$Ou4.2...@twister2.libero.it...
>
> Ciao,
>
> e tu quale server delle news usi?
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
News.Caspur.it...
Ciao.
--
Sergio MAZZA


title: [OT] Messaggi in ritardo

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:atch76$bbr$1...@canarie.caspur.it...

Grazie, ma nel frattempo
powernews.libero.it
 ha finito di fare i capricci.



title: Errore in lancio Stored Procedures

text:
Nel lanciare una Stored Procedure di SQL7 da una form (con Access97) mi da'
un errore sull'ODBC legato al timeout (Errore 1346 - ODBC Call Failed).
Il timeout di Access č impostato a 300 sec, ma in questo caso l'errore mi
appare molto prima. Come posso fare da codice VBA  a forzare un timeout piů
alto per l'operazione? Altre soluzioni (cambiare qcosa sull'ODBC)?.
P.S. La stessa Stored Procedure lanciata direttamente da SQL funziona
perfettamente e in Access lancio altre Stored simili che funzionano
perfettamente (perň durano meno).
Grazie anticipatamente per eventuali suggerimenti.
ciao, Roberto


title: Errore in lancio Stored Procedures

author: Nicola Ardito

text:
"gmb3" <
r_s...@hotmail.com
> ha scritto nel messaggio
news:UVrl6.98$PS4....@nreader2.kpnqwest.net...
> Nel lanciare una Stored Procedure di SQL7 da una form (con Access97) mi
da'
> un errore sull'ODBC legato al timeout (Errore 1346 - ODBC Call Failed).
> Il timeout di Access è impostato a 300 sec, ma in questo caso l'errore mi
> appare molto prima. Come posso fare da codice VBA  a forzare un timeout
più
> alto per l'operazione? Altre soluzioni (cambiare qcosa sull'ODBC)?.
>
Se usi una cosa tipo
Set qry = CurrentDb.CreateQueryDef("")
prova a modificare la proprietà qry.ODBCTimeout
Ciao Nicola
--
email:sostituire inwind a NOSPAM


title: info funzioni di raggruppamento

author: marcello

text:
Ho già letto l help (a mio parere scarno per quel che riguarda le funxìzioni
di raggruppamento, cmq..)
Ho una query che mi estrae da una tabella i seguenti campi:
colore
note
codicearticolo
quantità
prezzocromatura
totCromatura
gruppo
sottogrupp
descrizione
sono gli articoli da produrre con la relativa quantità
se clienti divrsi ordinano lo stesso articolo vorrei raggrupparli rispetto a
due campi e cioè qiuantità e tot cromatura
ho fatto la query con le funzioni di raggrupopamento ma ho dei dubbi
"amletici"
!) devo riportare tutti i campi su scritti, giusto?
2)devo mettere prima quelli che devono essere identici (colore,
codicearticolo, note) con la funzione impostata a "RAGGRUPPAMRNTO", poi
metto quelli dove si deve eseguire la somma e cioè quantità e totCromatura e
l'imosto a "SOMMA"
3) ci sono altre regole da seguire ho avete qualche esempio da indicarmi?
Grazie infinite MArcello


title: info funzioni di raggruppamento

author: Alessandro Cara

text:
marcello wrote:
>
> Ho giŕ letto l help (a mio parere scarno per quel che riguarda le funxězioni
> di raggruppamento, cmq..)
> Ho una query che mi estrae da una tabella i seguenti campi:
>
> colore
> note
> codicearticolo
> quantitŕ
> prezzocromatura
> totCromatura
> gruppo
> sottogrupp
> descrizione
>
> sono gli articoli da produrre con la relativa quantitŕ
> se clienti divrsi ordinano lo stesso articolo vorrei raggrupparli rispetto a
> due campi e cioč qiuantitŕ e tot cromatura
> ho fatto la query con le funzioni di raggrupopamento ma ho dei dubbi
> "amletici"
> !) devo riportare tutti i campi su scritti, giusto?
?) no devi riportare solo i campi che desideri raggruppare se vuoi anche gli
altri campi il raggruppamento te lo fa pure ma per ogni singiola riga e quindi
non ha senso
> 2)devo mettere prima quelli che devono essere identici (colore,
> codicearticolo, note) con la funzione impostata a "RAGGRUPPAMRNTO", poi
> metto quelli dove si deve eseguire la somma e cioč quantitŕ e totCromatura e
> l'imosto a "SOMMA"
devi mettere select cliente, codicearticolo, sum(quantita) as qta,
sum(totcromatura) as tcrom from tabella
gropup by cliente, codice articolo
> 3) ci sono altre regole da seguire ho avete qualche esempio da indicarmi?
--
a.cara
Togli qualcosa dall'email


title: VENDO-> Corsi Tutorial, Audio-Video su CD-ROM.

author: Michele

text:
LISTA CD XENIA EDIZ per PC e MAC.:
-Corso Dreamweaver Nightmare -1CD-
-Corso Flash Expolsion -1CD-
-Access Subito -2CD-
-Excel Subito Composto -4CD-
-Exel Professional -4CD-
-Power Point Subito Composto -2CD-
-Internet in 8 ore -4CD-
-Professione Grafico (Corso interattivo multimediale di grafica al computer
per PC e MAC prodotto dalla "XENIA Ediz.", dalla progettazione grafica
tradizionale alla realizzazione di cd-rom e pagine HTML )   -8CD-
-PhotoShop in 8 ore (Corso interattivo multimediale di grafica al computer
per PC e MAC prodotto dalla "XENIA Ediz." rivolto a chi già usa Photoshop
professionalmente o per chi desidera diventare un vero esperto nell'uso di
questo fantastico software).    -8CD-
-XPress in 8 ore (Corso interattivo multimediale di grafica al computer per
PC e MAC prodotto dalla "XENIA Ediz." rivolto a chi già usa Quark XPress
professionalmente o per chi desidera diventare un vero esperto nell'uso di
questo fantastico software).    -8CD-
LISTA CD CORSI ALTRI EDITORI:
-Corso "Arredamento Multimediale" della Jackson Libri ITA -12CD-
-Corso di visual basic 6 Corso completo di programmaz. ITA -1CD-
-Corso di Word 2000 Corso completo per Word 2000 ITA -1CD-
-Corso di Excel 2000 Corso completo per Excel 2000 ITA -1CD-
-Futuro - No Problem "Corso per Word 2000" ITA -2CD-
-Futuro - No Problem "Corso per Corso per Exel 2000" ITA -2CD-
-Futuro - No Problem "Corso per PowerPoint 2000" ITA -1CD-
-Corso Multimediale 3DMAX Ediz. EXA Multimedia  ITA  -1CD-
-Corso "HTML in 7 giorni" Ediz. Master ITA -1CD-
-Corso "Imparare linux in 24 ore" solo CDn°1 ENG -1CD-
-Corso Assemblaggio PC "Hardware No Problema" ITA -1CD-
-Corso Windows ME  ITA -1CD-
-"COURSEWARE 2000" per la patente europea del computer della Talento Libri.
Da tutti gli esperti del settore viene considerato il miglior corso
attualmente in commercio per conseguire l'ECDL. Per maggiori informazioni
potete collegarvi su:
http://www.talentoeducation.it/PAGE11A.htm
 -6CD-
Chi è interessato può contattarmi alla seguente email:
michele...@virgilio.it
Arrisentirci, Ciao...
Michele


title: Selezionare gruppo di record

author: SAPpatore

text:
Salve a tutti,
ho la necessità di selezionare via codice solamente un gruppo di
record di una tabella
La chiave primaria IDfattura, necessaria per la selezione, è di tipo
testo ed è ad esempio: "10/2009", 25/2008", ecc.
Posso generare un recordset selezionando tutti i record che ad esempio
contengono 2008?
Grazie.


title: Selezionare gruppo di record

author: Marco Pizzamiglio

text:
SAPpatore ha scritto:
> Salve a tutti,
> ho la necessit� di selezionare via codice solamente un gruppo di
> record di una tabella
> La chiave primaria IDfattura, necessaria per la selezione, � di tipo
> testo ed � ad esempio: "10/2009", 25/2008", ecc.
> Posso generare un recordset selezionando tutti i record che ad esempio
> contengono 2008?
> Grazie.
In una maschera si pu�.
In un report si pu�.
Generare un recordset si pu�.
Creare una query da codice si pu�.
Con un criterio tipo Like "*/2008".
Che operazione devi fare su quei record?
Ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Selezionare gruppo di record

text:
On 11 Gen, 13:28,
marco.pizzamig...@gmail.com
 (Marco Pizzamiglio)
wrote:
> SAPpatore ha scritto:
>
> > Salve a tutti,
> > ho la necessit di selezionare via codice solamente un gruppo di
> > record di una tabella
> > La chiave primaria IDfattura, necessaria per la selezione, di tipo
> > testo ed ad esempio: "10/2009", 25/2008", ecc.
> > Posso generare un recordset selezionando tutti i record che ad esempio
> > contengono 2008?
> > Grazie.
>
> In una maschera si pu .
> In un report si pu .
> Generare un recordset si pu .
> Creare una query da codice si pu .
> Con un criterio tipo Like "*/2008".
> Che operazione devi fare su quei record?
> Ciao.
> -Marco-
Ciao Marco,
non conoscevo la possibilità di utilizzare "*/..." nella WHERE di una
SELECT.
L'ho provata e funziona, permettendomi di prelevare solamente quei
record che fanno riferimento all'anno che mi interessa.
Grazie.


title: Selezionare gruppo di record

text:
SAPpatore ha scritto:
> > > Salve a tutti,
> > > ho la necessit di selezionare via codice solamente un gruppo di
> > > record di una tabella
> > > La chiave primaria IDfattura, necessaria per la selezione, di tipo
> > > testo ed ad esempio: "10/2009", 25/2008", ecc.
> > > Posso generare un recordset selezionando tutti i record che ad esempio
> > > contengono 2008?
> > > Grazie.
> > In una maschera si pu�.
> > In un report si pu�.
> > Generare un recordset si pu�.
> > Creare una query da codice si pu�.
> > Con un criterio tipo Like "*/2008".
> > Che operazione devi fare su quei record?
> > Ciao.
> > -Marco-
> Ciao Marco,
> non conoscevo la possibilit� di utilizzare "*/..." nella WHERE di una
> SELECT.
> L'ho provata e funziona, permettendomi di prelevare solamente quei
> record che fanno riferimento all'anno che mi interessa.
> Grazie.
Se non lo conoscevi, gi� che ci sei cerca sull'help <F1> "operatore like"
cos� ti fai una panoramica completa sull'uso degli operatori e dei
caratteri jolly.



title: Esistenza di un file

author: Giannix

text:
Come posso verificare l'esistenza di un file?
So che esiste Fileexists ma non sono riuscito ad utilizzarlo. Mi potete dare
un esempio di
procedura?
Grazie
  Gianni


title: Esistenza di un file

author: GT

text:
"Giannix" <
gianni.s...@libero.it
> ha scritto nel messaggio
news:%B0t6.47249$6W.45...@news.infostrada.it...

Guarda l'help su DIR (access 2000)
oppure su
www.sitocomune.it


title: Esistenza di un file

text:
"GT" <
gianl...@libero.it
> ha scritto nel messaggio
news:tU0t6.47363$6W.45...@news.infostrada.it...

Facciamo
www.sitocomune.com
 che forse va meglio.


title: problema esportazione report in excel

author: giogio

text:
Ciao
se esporto un report in excel mi succede una cosa che non mi spiego:
i campi sono
JOB = 000-00 (es 231-02, 095-03...)
DATA = data (01/05/03...)
CLIENTE = testo (Pippo)
nel file excel fatto salvo per il CLIENTE ottengo valori strani
solo che modificando il formato celle della colonna DATA funziona e vedo la
data corretta
se invece modifico JOB non ottengo risultati e continuo a vedere valori
sbagliati
337-01 diventa -570872
197-02 diventa -621974
001-02 diventa 37653
non riesco nemmeno a capire se ci sia un "criterio" nell'esportazione...
il campo JOB nel db è un testo con dimensione 6
qualcuno ha qualche idea?
(ammesso che il problema sia a lato access e non a lato excel)
thanks!!!
bye


title: problema esportazione report in excel

text:
"giogio" <gio...@giogio.giogio> ha scritto nel messaggio
news:b9acfg$as8$1...@fata.cs.interbusiness.it...

Nell'esportare manualmente la tabella/query hai la possibilità di salvare le
specifiche per poi richiamarle per una seconda esportazione. Quando imposti
le specifiche devi indicare la tipologia dei campi (testo,numerico,data)
altrimenti excel cerca di interpretarli "a modo suo"...
Ciao.
--
Sergio MAZZA


title: problema esportazione report in excel

text:
Sergio MAZZA wrote:
[CUT]
>
> Nell'esportare manualmente la tabella/query hai la possibilità di
> salvare le specifiche per poi richiamarle per una seconda
> esportazione. Quando imposti le specifiche devi indicare la tipologia
> dei campi (testo,numerico,data) altrimenti excel cerca di
> interpretarli "a modo suo"...
chiedo scusa ma non ho capito
provo a spiegarmi meglio
sull'evento attivazione del report ho inserito questo codice
Private Sub Report_Activate()
On Error GoTo Err_Report_Open_Click
    Dim stDocName As String
    Dim i         As Long
    i = MsgBox("Vuoi esportare il report (No per avere solo l'anteprima di
stampa)?", vbYesNo)
    If i = vbYes Then
        stDocName = Me.Name
        DoCmd.OutputTo acReport, stDocName, , , True
    End If
Exit_Report_Open_Click:
    Exit Sub
Err_Report_Open_Click:
    MsgBox Err.Description
    Resume Exit_Report_Open_Click
End Sub
di conseguenza ogni volta che un report viene aperto il programma chiede in
che formato lo si vuole esportare
pensavo di dover specificare qualcosa per OutputTo ma nell'help non ho
trovato niente in merito a formattare l'esportazione...
grazie
bye


title: problema esportazione report in excel

text:
"giogio" <gio...@giogio.giogio> ha scritto nel messaggio
news:b9cvma$31q$1...@fata.cs.interbusiness.it...

Utilizza il metodo: TransferSpreadsheet (vedi help)...
Ciao.
--
Sergio MAZZA


title: Somma fatturato del mese

author: Arturo Casdei

text:
In una query ove vengono elencate le fatture emesse, con data, valore etc..,
vorrei aggiungere un record che descriva la somma del mese di rif. la data.
Quale funzione posso usare ? Riporto una rappresentazione di quanto voglio
ottenere
Cliente    Data            TotFatt.    SommaMensile
aaaa       16/04/03    2000            3000
bbb        15/04/03    1000            3000
aaa         01/03/03    3000            8000
ddd        20/03/03    5000            8000
Grazie
Simon


title: Somma fatturato del mese

text:
"Arturo Casdei" <
fanta...@virgilio.it
> ha scritto nel messaggio
news:RLcna.22278$LB6.5...@news1.tin.it...

Se la tabella che contiene i dati si chiama tblFatture, creati una query che
abbia il seguente codice SQL:
SELECT tblFatture.Cliente, tblFatture.Data, tblFatture.TotFatt,
CCur(DSum("TotFatt","tblFatture","Format(Data,'yyyymm')='" &
Format([Data],"yyyymm") & "'")) AS SommaMensile
FROM tblFatture;
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Application.FollowHyperlink

author: Anna

text:
Salve a tutti, con il metodo Application.FollowHyperlink apro un link
da codice VBA, ma come posso fare per aprire la pagina a tutto schermo?
Sapete?
Graziee


title: Occorrenze delle parentesi quadre...

author: Marina Pari

text:
Mi spiego meglio.
Il mio mdb contiene un campo di tipo testo che contiene una parola.
Alcuni record contengono, all'interno di questa parola, delle parentesi
quadre. Io vorreio selezionare solo questi record, ma quando nel filtro in
base a maschera inserisco la riga:
Like "*[*"
ottengo solo un errore (access 2000).
Il comando invece funziona correttamente se si tratta di un carattere
normale anziché [.
Come posso fare?
Grazie
Marina P.


title: Occorrenze delle parentesi quadre...

author: Silvio Berruti

text:
"Marina Pari" <
non...@nonspam.it
> ha scritto nel messaggio
news:9mcsuk$rp4$1...@pegasus.tiscalinet.it...

Mi pare che debbano essere raddoppiate:
Like "*[[*"
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Occorrenze delle parentesi quadre...

text:
Ho provato ma da errore e si chiude access....  perché????
"Silvio Berruti" <s...@LEVAlibero.it> ha scritto nel messaggio
news:9uoi7.16573$%a4.6...@news.infostrada.it...



title: Occorrenze delle parentesi quadre...

text:
"Marina Pari" <
non...@nonspam.it
> ha scritto nel messaggio
news:9md4o4$u9q$1...@pegasus.tiscalinet.it...
> "Silvio Berruti" <s...@LEVAlibero.it> ha scritto nel messaggio
> news:9uoi7.16573$%a4.6...@news.infostrada.it...
> >
> > "Marina Pari" <
non...@nonspam.it
> ha scritto nel messaggio
> > news:9mcsuk$rp4$1...@pegasus.tiscalinet.it...
> > > Mi spiego meglio.
> > > Il mio mdb contiene un campo di tipo testo che contiene una parola.
> > > Alcuni record contengono, all'interno di questa parola, delle
parentesi
> > > quadre. Io vorreio selezionare solo questi record, ma quando nel
filtro
> in
> > > base a maschera inserisco la riga:
> > > Like "*[*"
> > > ottengo solo un errore (access 2000).
> > > Il comando invece funziona correttamente se si tratta di un carattere
> > > normale anziché [.
> > > Come posso fare?
> >
> > Mi pare che debbano essere raddoppiate:
> > Like "*[[*"
> >
> Ho provato ma da errore e si chiude access....  perché????
Innanzi tutto rispondi dopo i messaggi precedenti, e non prima.
Il modo corretto (sono andato a provare) è il seguente:
Like "*" & "[[]" & "*"
cioè 2 volte [ e 1 volta ].
Access non dovrebbe chiudersi in caso di errore: il consiglio è quello di
crearti un nuovo .mdb e importare tutti gli oggetti del tuo DB.



title: Occorrenze delle parentesi quadre...

text:
"Silvio Berruti" <s...@LEVAlibero.it> ha scritto nel messaggio
news:cToi7.16676$%a4.6...@news.infostrada.it...
>
> "Marina Pari" <
non...@nonspam.it
> ha scritto nel messaggio
> news:9md4o4$u9q$1...@pegasus.tiscalinet.it...
> > "Silvio Berruti" <s...@LEVAlibero.it> ha scritto nel messaggio
> > news:9uoi7.16573$%a4.6...@news.infostrada.it...
> > >
> > > "Marina Pari" <
non...@nonspam.it
> ha scritto nel messaggio
> > > news:9mcsuk$rp4$1...@pegasus.tiscalinet.it...
> > > > Mi spiego meglio.
> > > > Il mio mdb contiene un campo di tipo testo che contiene una parola.
> > > > Alcuni record contengono, all'interno di questa parola, delle
> parentesi
> > > > quadre. Io vorreio selezionare solo questi record, ma quando nel
> filtro
> > in
> > > > base a maschera inserisco la riga:
> > > > Like "*[*"
> > > > ottengo solo un errore (access 2000).
> > > > Il comando invece funziona correttamente se si tratta di un
carattere
> > > > normale anziché [.
> > > > Come posso fare?
> > >
> > > Mi pare che debbano essere raddoppiate:
> > > Like "*[[*"
> > >
> > Ho provato ma da errore e si chiude access....  perché????
>
> Innanzi tutto rispondi dopo i messaggi precedenti, e non prima.
Ok, scusa
> Il modo corretto (sono andato a provare) è il seguente:
> Like "*" & "[[]" & "*"
> cioè 2 volte [ e 1 volta ].
>
> Access non dovrebbe chiudersi in caso di errore: il consiglio è quello di
> crearti un nuovo .mdb e importare tutti gli oggetti del tuo DB.
Perfetto, con questo ritrovo tutte le parole che hanno all'interno le
parentesi quadre aperta e chiusa.
Però mi salta quelle che hanno dentro solo aperta o solo chiusa.
Se chiedo troppo non esitare a dirmelo. :)
Grazie
Marina P



title: Occorrenze delle parentesi quadre...

text:
"Marina Pari" <
non...@nonspam.it
> ha scritto nel messaggio
news:9mdq0h$85o$1...@lacerta.tiscalinet.it...
>
> "Silvio Berruti" <s...@LEVAlibero.it> ha scritto nel messaggio
> news:cToi7.16676$%a4.6...@news.infostrada.it...
>
> > Il modo corretto (sono andato a provare) è il seguente:
> > Like "*" & "[[]" & "*"
> > cioè 2 volte [ e 1 volta ].
> >
> > Access non dovrebbe chiudersi in caso di errore: il consiglio è quello
di
> > crearti un nuovo .mdb e importare tutti gli oggetti del tuo DB.
>
> Perfetto, con questo ritrovo tutte le parole che hanno all'interno le
> parentesi quadre aperta e chiusa.
> Però mi salta quelle che hanno dentro solo aperta o solo chiusa.
> Se chiedo troppo non esitare a dirmelo. :)
Non so se hai provato, ma quanto sopra trova solo tutte le occorrenze con
almeno una parentesi quadra aperta e non controlla quelle chiuse.
Se vuoi controllare anche queste ultime, aggiungi un criterio in 'oppure'
del tipo
Like "*" & "[]]" & "*"
(1 aperta e 2 chiuse)
Se vai sulla guida all'operatore Like capirai il perché.



title: nascondere controlli in report

author: ciroteo

text:
Avrei necessità di eliminare o nascondere un controllo dal report nel caso
in cui  il campo a cui si riferisce il controllo fosse nullo.
Ciò mi consentirebbe di risparmiare spazio e migliorare l'impaginazione.
Ho già settato riducibile ed espandibile, ma il problema resta xè cmq il
controllo è presente seppur ridotto al minimo.
thanks


title: nascondere controlli in report

author: Tashunka

text:
"ciroteo" <
cir...@libero.it
> ha scritto nel messaggio
news:ch440h$kpg$1...@hulme.interac.it...

Prova a gestirlo da codice. Nell'evento su formattazione del corpo o della
sezione dove hai il campo:
If IsNull(Me.miocampo) then
    Me.miocampo.Visible = False
Else
    Me.miocampo.Visible = True
End If
A me funzionava.
Ciao
Tk


title: nascondere controlli in report

text:
"Tashunka" <
tashunka...@hotmail.com
> ha scritto nel messaggio
news:ch44cn$nvh$1...@lacerta.tiscalinet.it...

grazie, infatti stavo provando una soluzione simile ...
Private Sub Report_Open(Cancel As Integer)
If IsNull(Me.nota) Then
Me.nota.Visible = False
End If
End Sub
ma non sapevo su quale evento metterla ... qui l'ho messo in apertura ...


title: nascondere controlli in report

text:
>> CUT
> >
> grazie, infatti stavo provando una soluzione simile ...
> Private Sub Report_Open(Cancel As Integer)
> If IsNull(Me.nota) Then
> Me.nota.Visible = False
> End If
> End Sub
> ma non sapevo su quale evento metterla ... qui l'ho messo in apertura ...
>
E' meglio sulla formattazione, se lo metti sull'apertura il controllo viene
reso visibile o invisibile in base all'ultimo valore del tuo controllo,
mentre sulla formattazione esegue questa operazione di visibile/invisibile
per ciascun record.
Ciao
Tk


title: nascondere controlli in report

author: Marco Antonioli

text:

Con Access >=2000 puoi usare anche la formattazione condizionale.
Ciao+
MArco
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: nascondere controlli in report

text:
"Tashunka" <
tashunka...@hotmail.com
> ha scritto nel messaggio
news:ch457i$okl$1...@lacerta.tiscalinet.it...

hai capito ... ok grazie!


title: da tabella /query a file di testo

author: Roni Net

text:
Salve a tutti, forse non ho cercato abbastanza.. ma non hne trovato e
neanche capito come esportare i dati una tabella o query ( quali delle 2
questo non ha importanza ) in un file di testo separato la virgolette e
virgole.
Ho la necessita di esportare questi dati in un file di testo dove la prima
riga è l'intestazione delle colonne e sotto i dati.
es
"Ciao","Pippo","Paperino"
Chiedo dove devo cercare o quale sia l'argomento , questa sera non riesco a
trovare nulla .
ho trovato questa funzione   DoCmd.OutputTo acOutputTable, "tabella1",
acFormatTXT, "Impiegat.txt", True ma non mi va bene in quanto non separa con
virgolette  e punti o virgola ma una cosa tipo
----------------------
|ciao|Pippo|Paperino
---------------------
Grazie tutti
Max


title: da tabella /query a file di testo

author: Antonio

text:
"Roni Net" <
roni...@hotmail.com
> ha scritto nel messaggio
news:45c7b0be$0$7734$5fc...@news.tiscali.it...
> Salve a tutti, forse non ho cercato abbastanza.. ma non hne trovato e
> neanche capito come esportare i dati una tabella o query ( quali delle 2
> questo non ha importanza ) in un file di testo separato la virgolette e
> virgole.
> Ho la necessita di esportare questi dati in un file di testo dove la prima
> riga è l'intestazione delle colonne e sotto i dati.
> es
> "Ciao","Pippo","Paperino"
> Chiedo dove devo cercare o quale sia l'argomento , questa sera non riesco
> a trovare nulla .
DoCmd.TransferText acExportDelim, "Nome - specifica di importazione",
"test", "c:\prova.txt", True, ""
Ciao devi creare una specifica che vuoi, per farlo lo fai dal menu file,
carica dati esterni, poi avanzate, metti 4 opzioni e poi salvi la specifica
e poi la metti nel comando docmd TransferText.


title: da tabella /query a file di testo

author: IgnazioC

text:
> DoCmd.TransferText acExportDelim, "Nome - specifica di importazione", "test",
> "c:\prova.txt", True, ""
>
> Ciao devi creare una specifica che vuoi, per farlo lo fai dal menu file,
> carica dati esterni, poi avanzate, metti 4 opzioni e poi salvi la specifica e
> poi la metti nel comando docmd TransferText.
mi accodo alla richiesta..ma non ho trovato la voce "avanzate" che dici
tu. di quale versione di access stiamo parlando? sulla 2k3 io ho solo
"importa" e "collega". puoi spiegarti meglio per favore?
grazie.
--
IgnazioC


title: da tabella /query a file di testo

text:
"IgnazioC" <
igna...@gmail.com.com
> ha scritto nel messaggio
news:mn.31eb7d721...@gmail.com.com...

ciao fatti un file formattato come lo vuoi tipo con tab , o le virgole, lo
salvi come c:\prova.txt.
Premi F11, menu file "carica dati esterni", im0orta, ti si apre la finestra
"importazione guidata testo", e da li premi su avanzate. poi premi salva con
nome e dai il nome alla specifica.
uso 2003 office.
Ciao


title: da tabella /query a file di testo

text:
Il 06/02/2007, Antonio ha detto :

ok, grazie, non conoscevo questa possibilità.
ciao.
--
IgnazioC


title: problema

author: Maxio (mepcave)

text:
Salve,
mi occorre gestire una maschera in questo modo:
maschera principale ha come recordsource tabella MAIN
maschera secondaria ha come recordsource tabella DETAILS
se faccio modifiche e premo annulla mi si devono ripristinare i valori dei
vechci recordset sia in MAIN che in DETAILS
ho provato con workspace e transazioni solo che come passo in un altro
record succede il patatrac.
qualcuno ha un metodo molto rapido da spiegare?
Ciao e grazie


title: problema

author: Roberto dal portatile

text:
"Maxio (mepcave)" <
xma...@libero.it
> ha scritto nel messaggio
news:9h2e6t$841$1...@fe2.cs.interbusiness.it...

Proprio rapido non direi.
Visto che hai deciso di usare la tecnica maschera/sottomaschera usando
maschere che hanno una origine record, non riesco a capire a cosa ti servano
le transazioni per annullare le variazioni effettuate su record che, almeno
per la tabella MAIN, sono ormai stati registrati su disco.
Per fare ciò che ti serve devi prima studiare benino (almeno sull'help) gli
eventi "Prima di aggiornare" delle maschere, la proprietà Dirty delle
maschere e la proprietà OldValue dei controlli delle maschere.
In effetti, se devi contemplare la possibilità di annullare le variazioni
effettuate su record che dopo la loro variazione sono stati registrati, a
fronte dell'evento "Prima di aggiornare" della maschera devi memorizzarti in
alcune variabili il valore contenuto nella proprietà OldValue di tutti i
controlli della maschera e in caso di "ripensamenti" dopo la registrazione
del record corrente (cosa che succede, ad esempio, quando sposti il fuoco
dalla maschera principale su un controllo della sottomaschera) devi
ripristinare i valori dei controlli con quelli memorizzati nelle variabili,
quindi salvare nuovamente il record.
Se invece i "ripensamenti" avvengono prima della registrazione del record
modificato, a fronte dell'evento "Prima di aggiornare" chiedi conferma
dell'aggiornamento e se la conferma è negativa annulla l'evento con un
Cancel = True seguito da un Me.Undo; oppure a fronte dell'evento "Su clic"
di un pulsante di comando genera il seguente codice VBA:
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: copiare una parte di campo del record successivo

author: Marco dell'Oste

text:
Ciao NG
Come da oggetto, possiedo una maschera a maschere continue, e taluni campi
dei record li devo aggiornare quotidianamente.
Come posso fare in modo che premendo un dato tasto (per esempio >) nel campo
adiacente (e quindi dello stesso record che stò editando) mi riporti il
valore contenuto nel record successivo e premendo un altro tasto (per es. <)
mi riporti il valore contenuto in quello precedente?
Grazie
Marco


author: Roberto da casa

text:
"Marco dell'Oste" <
c...@cl.cl
> ha scritto nel messaggio
news:HMFZd.15316$zZ1.3...@twister1.libero.it...

Apri il RecordsetClone della maschera; posizionati in base alla chiave
primaria e con il metodo FindFirst sul record corrente; quindi con i metodi
MovePrevious o MoveNext (vedi help) spostati sul record precedento o
seguente; preleva i dati che ti servono dal record su cui ti sei posizionato
e fanne quello che vuoi (nel tuo caso aggiorna il valore di un campo del
record corrente della maschera con una query di aggiornamento e poi fai il
Requery della maschera).
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


text:
> Apri il RecordsetClone della maschera; posizionati in base alla chiave
> primaria e con il metodo FindFirst sul record corrente; quindi con i
> metodi
> MovePrevious o MoveNext (vedi help) spostati sul record precedento o
> seguente; preleva i dati che ti servono dal record su cui ti sei
> posizionato
> e fanne quello che vuoi (nel tuo caso aggiorna il valore di un campo del
> record corrente della maschera con una query di aggiornamento e poi fai il
> Requery della maschera).
Grazie,
please,
puoi buttarmi due righe di codice? non so, ma mi sto perdendo nelle caxxate
madornali..  :(
Tanks
Marco


text:
Io avrei buttato giu questo in fretta:
    Dim dbs As Database, rst As Recordset
    Dim strRecord As String
    Set dbs = CurrentDb
    strRecord = Articolo
    Set rst = dbs.OpenRecordset("tabellaclone", dbOpenDynaset)
    rst.FindFirst strRecord
ma giunto all'ultima linea mi da "errore di sintassi (operatore mancante)
nell'espressione."
ho verificato e strRecord contiene effettivamente il dato da cercare (in
questo caso "20600 0010 C   ") ma nulla funzica...
Marco


text:
> ho verificato e strRecord contiene effettivamente il dato da cercare (in
> questo caso "20600 0010 C   ") ma nulla funzica...
>
> Marco
come non detto, risolto. Ho la testa nel pallone.
Marco


text:
> Apri il RecordsetClone della maschera; posizionati in base alla chiave
> primaria e con il metodo FindFirst sul record corrente; quindi con i
> metodi
> MovePrevious o MoveNext (vedi help) spostati sul record precedento o
> seguente; preleva i dati che ti servono dal record su cui ti sei
> posizionato
> e fanne quello che vuoi (nel tuo caso aggiorna il valore di un campo del
> record corrente della maschera con una query di aggiornamento e poi fai il
> Requery della maschera).
E se volessi assegnare al record che sto editando il valore del campo del
record in cui clicco con il mouse?? questo mi sembra alquanto piu
complicato..
Si puň fare?
Ancora grazie
Marco


text:
"Marco dell'Oste" <
c...@cl.cl
> ha scritto nel messaggio
news:lpIZd.14486$Tm5.2...@twister2.libero.it...

> Si può fare?
Mi dispiace, ma per quanto mi stia sforzando, non riesco proprio a capire
cosa tu voglia dire.
>
> Ancora grazie
>
> Marco



text:
>> E se volessi assegnare al record che sto editando il valore del campo del
>> record in cui clicco con il mouse?? questo mi sembra alquanto piu
>> complicato..
>> Si può fare?
>
> Mi dispiace, ma per quanto mi stia sforzando, non riesco proprio a capire
> cosa tu voglia dire.
>
hai ragione..
allora,
form a maschere continue
ogni record contiene 5 campi (ARTICOLO, n.pezzi, altezza, ABBINAMENTO,
prodotto)
ARTICOLO    n.pezzi  altezza  ABBINAMENTO  prodotto
        10                3         200
60
        20                4         250
60
        30                2         260
60
        40                1         320
60
        50                5         240
60
        60                7         800
60
supponiamo che mi trovo sul record 1
nel campo ABBINAMENTO devo inserire il dato contenuto nel campo ARTICOLO del
record 5 (per esempio, o del record 7 o quello che ritengo opportuno)
senza dover digitare manualmente quello che vedo a video nel campo ARTICOLO
del record 5 vorrei che automaticamente cliccando col mouse su tale campo,
mi riportasse il valore nel record che AVEVA il focus.
il risultato dovrebbe essere questo:
ARTICOLO    n.pezzi  altezza  ABBINAMENTO  prodotto
        10                3         200                 50
60
        20                4         250
60
        30                2         260
60
        40                1         320
60
        50                5         240
60
        60                7         800
60
Me sarò spiega mejo??
ciao e grazie
Marco


text:
"Marco dell'Oste" <
c...@cl.cl
> ha scritto nel messaggio
news:CVVZd.16488$zZ1.4...@twister1.libero.it...

Quello che chiedi di fare non ha significato, in quanto, quando cliccherai
dul record 5, il primo record (quello da modificare) perde il fuoco e sarà
il  record 5 a diventare quello corrente e così non si saprà più quale sia
il record per il quale devi modificare l'abbinamento.
Giusto?
>
>
> ciao e grazie



text:
>> il risultato dovrebbe essere questo:
>>
>> ARTICOLO    n.pezzi  altezza  ABBINAMENTO  prodotto
>>         10                3         200                 50
>> 60
>>         20                4         250
>> 60
>>         30                2         260
>> 60
>>         40                1         320
>> 60
>>         50                5         240
>> 60
>>         60                7         800
>> 60
>>
>>
>> Me sarò spiega mejo??
>
> Quello che chiedi di fare non ha significato, in quanto, quando cliccherai
> dul record 5, il primo record (quello da modificare) perde il fuoco e sarà
> il  record 5 a diventare quello corrente e così non si saprà più quale sia
> il record per il quale devi modificare l'abbinamento.
> Giusto?
Forse non è cosi complicato, ho buttato li due righe:
una variabile 'public' (MemoArticolo) mi memorizza il record che ha il focus
(il focus lo prendo dal campo n.pezzi)
cliccando su un qualsiasi record nel campo ABBINAMENTO vado a memmorizzare
il dato contenuto in MemoArticolo.
quindi posso cliccare su piu record nel campo ABBINAMENTO ed in questi mi
viene 'buttato' il valore MemoArticolo.
Finche poi non cambio focus al record cliccando nel campo n.pezzi.
Ora il mio piu grosso problema, che non mi è mai capitato di affrontare, è
questo:
Quando ho cliccato sul campo ABBINAMENTO ovviamente il record dello stesso
prende il focus, considerando che MemoArticolo contiene il valore univoco
del record precedente, come posso fare a riportare il focus a tale record?
Grazie
Marco


text:
"Marco dell'Oste" <
c...@cl.cl
> ha scritto nel messaggio
news:%9%Zd.17084$zZ1.4...@twister1.libero.it...

Penso che la cosa migliore sia di avere due pulsanti di comando; uno servirà
a memorizzare in una variabile pubblica il valore dell'articolo del record
che è corrente al momento che pigi tale pulsante; il secondo pulsante lo
pigerai sul record in cui vuoi riportare il valore memorizzato nella
variabile pubblica di cui sopra: a fronte del clic di tale pulsante
eseguirai la query di aggiornamento e la requery della maschera.



title: OT: Creare un file kml - Kmz da visualizzare in google Earth. Codice nel post.

author: Bruno - S95

text:
Access 2003 / 2010

Ciao, ho inviato già un post senza avere un riscontro; probabilmente non ho
posto il quesito nel modo corretto.

Ho trovato un DB creato da una persona Malese, quindi l'ho spulciato, ma ho
solo cambiato i nomi alle etichette perchè del codice non ho capito molto,
anzi direi nulla.

inserendo le coordinate geografiche in formato decimale, usando il punto e
non la virgola come divisore decimale, creando un gruppo, ecc., si riesce a
creare un file Kml da leggere con google Eart, esiste un campo per inserire
l'immagine da visualizzare in google Earth (penso) ma se inserita, nella
conversione del file Kml da errore. Da quello che ho letto il file Kml non
dovrebbe supportare le foto, strano però che il Malese abbia messo il campo
per la conversione, mentre il file Kmz, fratello maggiore del file Kml,
essendo un archivio supporta anche le immagini. Il codice sotto è quello
estratto dal Db, comunque se qualcuno si vuol prendere la briga di vederlo e
darmi una mano, se mi comunica dove inviarlo, appena rientro da lavoro invio
subito il Db che pesa 548 Kb.
Purtroppo, ancora oggi con il codice non so lavorare, probabilmente perchè
mi mancano le basie non ho mai fatto un corso.

Mille grazie, Bruno

^^^^^^^^^^^^^^^^^^^

FORM  (evento su pulsanti)
------------------------------------------

Option Compare Database

Private Sub Wujudkan_Fail_KML_Click()
' GenerateKML Macro
' Macro recorded 26/09/2006 by simon_a
' Adapted and imported to Access by SAA
' Updated by riofiza (26/5/2008)
' 03 aug 2007 - v3.0 - 2007 08 06 19 24
'

    ' DECLARE VARIABLES
    Dim filename As String
    Dim docname As String

    Dim altitude As String
    Dim range As String
    Dim tilt As String
    Dim heading As String
    Dim description As String
    Dim visibility As Boolean

    Dim grouping As Boolean
    Dim grpfield As String
    Dim grpfilter As String

    Dim cfieldName As String
    Dim cfieldLat As String
    Dim cfieldLong As String
    Dim cfieldAlt As String
    Dim cfieldPict As String
    Dim cfieldDesc As String
    Dim cfieldCoun As String
    Dim cfieldRange As String
    Dim cfieldTilt As String

    Dim identa As Integer
    identa = 0

    ' GROUPING CONFIGURATION
    ' CREATE A SEPARTE SUBFOLDER TO EACH GROUP
    grouping = True ' GROUPING TROU OR FALSE
    grpfield = "Kumpulan" ' FIELD NAME TO BE GROUPED ON
    difffiles = False     ' DIFERENT FILES TO EACH GROUP
    visibility = False    ' AUTOMATIC SHOWING OR NOT

    ' GENERAL CONFIGURATION
    filepath = DLookup("[lokasi]", "Lokasi Fail") ' SAME PATH AS THE MDB
    filename = DLookup("[Nama Fail]", "Nama Fail") ' OUTPUT FILE NAME
    docname = "lriobfiz"  ' KML TITLE AND FOLDER NAME"
    databasename = "Maklumat" ' SOURCE TABLE OR QUERY

    ' RESPECTIVE COLLUM NAMES RELATIVE TO EACH FILTER
    ' REMEMBER THAT LAT AND LONG MUST BE IN DEC OF DEGREE
    ' AND NOT IN MINUTS
    cfieldName = "Nama Tempat" ' NAME OF THE SITE
    cfieldLat = "lat (latitude)" ' LATITUDE
    cfieldLong = "long (longitude)" ' LONGITUDE
    cfieldAlt = ""           ' ALTITUDE
    cfieldPict = "Gambar" ' PICTURE
    cfieldDesc = "Maklumat Tambahan" ' DESCRIPTION
    cfieldCoun = "Nama Kes"   ' COUNTRY
    cfieldRange = ""         ' RANGE
    cfieldTilt = ""          ' TILT

    ' VALUES IF NOT DEFINED IN THE TABLE
    ' IF FIND IN THE TABLE THE DEFAULT VALUE
    ' WILL BE ERASED
    altitude = "0"
    range = "68424.
19526792552
"
    tilt = "2.022197391423853e-010"
    heading = "-0.02880169675294712"
    ' OPEN DATABASE

    Dim outputtext As Collection
    Set outputtext = New Collection

    ' OPEN DATABASE
    Dim rs As DAO.Recordset

    ' GROUPING
    If grouping Then
        ' CREATES A KEY LIST
        Dim keys As DAO.Recordset
        groupcmd = "SELECT [" & databasename & "].[" & grpfield & "] FROM ["
& databasename & "] GROUP BY [" & databasename & "].[" & grpfield & "]"
        identa = 1
        Set keys = CurrentDb.OpenRecordset(groupcmd, dbOpenSnapshot)

        If Not (difffiles) Then
            ' OPEN FILE
            Close #1
            File = filepath & "\" & filename & ".kml"
            Open File For Output As #1

            ' WRITING KML HEADER
            Set outputtext = kmlheader(filename, docname, visibility)
        End If

        If Not (keys.BOF And keys.EOF) Then ' There is data
            keys.MoveFirst
            Do Until keys.EOF = True
                grpfilter = keys.Fields(0).Value
                'IS DEFFINED TO SEPARATE IN DIFFERENT FOLDERS, CREATE A
FOLDER LIST
                If (difffiles) Then
                    ' OPEN FILE
                    Close #1
                    Dim tmpfilename As String
                    Dim tmpdocname As String

                    tmpfilename = filename & "_" & grpfilter & ".kml"
                    tmpdocname = docname & "_" & grpfilter
                    File = filepath & "\" & tmpfilename
                    Open File For Output As #1

                    ' WRITING KML HEADER
                    Set outputtext = kmlheader(tmpfilename, tmpdocname,
visibility)
                End If

                ident1 = ident(identa + 1)
                ident2 = ident(identa + 2)

                outputtext.Add Item:=ident1 & "<Folder>"
                outputtext.Add Item:=ident2 & "<name>" & grpfilter &
"</name>"
                outputtext.Add Item:=ident2 & "<open>0</open>"
                If visibility Then strvisible = "1" Else strvisible = "0"
                outputtext.Add Item:=ident2 & "<visibility>" & strvisible &
"</visibility>"

                Set outputtext = printerpart(outputtext)

                record2open = "SELECT * FROM " & databasename & " WHERE [" &
grpfield & "] = """ & grpfilter & """"
                Set rs = CurrentDb.OpenRecordset(record2open,
dbOpenSnapshot)
                Set outputtext = gatherData(rs, cfieldName, cfieldLat,
cfieldLong, cfieldAlt, cfieldPict, cfieldDesc, cfieldCoun, cfieldRange,
cfieldTilt, altitude, range, tilt, heading, description, identa)

                outputtext.Add Item:=ident1 & "</Folder>"
                Set outputtext = printerpart(outputtext)

                keys.MoveNext
                rs.Close
            Loop
        End If
        keys.Close
    Else
        Set rs = CurrentDb.OpenRecordset(databasename)
        identa = 0

        ' OPEN FILE
        Close #1
        Open filepath & "\" & filename & ".kml" For Output As #1

        ' WRITING KML HEADER
        Set outputtext = kmlheader(filename, docname, visibility)

        ' GATHERING DATA AND PRITING PLACEMARK WITHOUT FILTER
        Set outputtext = gatherData(rs, cfieldName, cfieldLat, cfieldLong,
cfieldAlt, cfieldPict, cfieldDesc, cfieldCoun, cfieldRange, cfieldTilt,
altitude, range, tilt, heading, description, identa)
        rs.Close
    End If

    ' WRITING FOOTER OF KML
    Set outputtext = footer()
    Close #1
End Sub

Function ident(identa As Integer) As String
    Dim identation As String
    identation = String(identa, vbTab)
    ident = identation
End Function

Function printerpart(outputtext As Collection) As Collection
    TotalRecords = outputtext.Count
    For i = 1 To TotalRecords
        outputext = outputtext(i)
        outputext = Replace(outputext, "&", "and")
        Print #1, outputext
    Next i
    Set printerpart = New Collection
End Function

Function gatherData(rs As Recordset, cfieldName As String, cfieldLat As
String, cfieldLong As String, cfieldAlt, cfieldPict As String, cfieldDesc As
String, cfieldCoun As String, cfieldRange As String, cfieldTilt As String,
altitude As String, range As String, tilt As String, heading As String,
description As String, identa As Integer) As Collection
    Dim outputtext As Collection
    Set outputtext = New Collection
    Dim locationname As String
    Dim Longitude As String
    Dim latitude As String

    ' GATHERING THE ACTUAL DATA
    If Not (rs.BOF And rs.EOF) Then ' There is data
        rs.MoveFirst
        Do Until rs.EOF = True
            For i = 0 To rs.Fields.Count - 1
                If (rs.Fields(i).Name = cfieldName) Then locationname =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldLat) Then latitude =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldLong) Then Longitude =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldAlt) Then altitude =
rs.Fields(i).Value
                'If (rs.Fields(i).Name = cfieldPict) Then Picture =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldDesc) Then description =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldCoun) Then Country =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldRange) Then range =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldTilt) Then tilt =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldhead) Then heading =
rs.Fields(i).Value
            Next i

        ' WRITING THE PLACEMARK PART OF THE KML
        Set outputtext = placemark(locationname, Longitude, latitude,
altitude, range, tilt, heading, Picture, description, identa)
        rs.MoveNext
        Loop
    End If

    Set gatherData = printerpart(outputtext)
End Function

Function footer() As Collection
    Dim outputtext As Collection
    Set outputtext = New Collection
    identa = 0

    outputtext.Add Item:=ident(identa + 1) & "</Folder>"
    outputtext.Add Item:="</Document>"
    outputtext.Add Item:="</kml>"
    Set footer = printerpart(outputtext)
End Function

Function placemark(locationname As String, Longitude As String, latitude As
String, altitude As String, range As String, tilt As String, heading As
String, Picture As String, description As String, identa As Integer) As
Collection
    Dim outputtext As Collection
    Set outputtext = New Collection
    ' WRITE PLACEMARK TO EACH SITE

    ' IDENTATION
    ident2 = ident(identa + 2)
    ident3 = ident(identa + 3)
    ident4 = ident(identa + 4)

    outputtext.Add Item:=ident2 & "<Placemark>"
    outputtext.Add Item:=ident3 & "<name>" & locationname & "</name>"
    outputtext.Add Item:=ident3 & "<LookAt>"
    outputtext.Add Item:=ident4 & "<longitude>" & Longitude & "</longitude>"
    outputtext.Add Item:=ident4 & "<latitude>" & latitude & "</latitude>"
    outputtext.Add Item:=ident4 & "<altitude>" & altitude & "</altitude>"
    outputtext.Add Item:=ident4 & "<range>" & range & "</range>"
    outputtext.Add Item:=ident4 & "<tilt>" & tilt & "</tilt>"
    outputtext.Add Item:=ident4 & "<heading>" & heading & "</heading>"
    outputtext.Add Item:=ident4 &
"<altitudeMode>relativeToGround</altitudeMode>"
    outputtext.Add Item:=ident3 & "</LookAt>"
    outputtext.Add Item:=ident3 & ""
    outputtext.Add Item:=ident3 & "<Point>"
    outputtext.Add Item:=ident4 & "<coordinates>" & Longitude & "," &
latitude & ",0</coordinates>"
    outputtext.Add Item:=ident3 & "</Point>"
    outputtext.Add Item:=ident3 & "<description><![CDATA[

" & description & "]]></description>"
    outputtext.Add Item:=ident2 & "</Placemark>"

    Set placemark = printerpart(outputtext)
End Function

Function kmlheader(filename As String, docname As String, visibility As
Boolean) As Collection
    Dim outputtext As Collection
    Set outputtext = New Collection
    identa = 0
    ' WRITING KML HEADER

    ' INDENTATION
    ident1 = ident(identa + 1)
    ident2 = ident(identa + 2)
    ident3 = ident(identa + 3)
    ident4 = ident(identa + 4)

    ' TEXT ITSELF
    outputtext.Add "<?xml version=""1.0"" encoding=""UTF-8""?>"
    outputtext.Add Item:="<kml xmlns=""
http://earth.google.com/kml/2.0
"">"
    outputtext.Add Item:="<Document>"

    outputtext.Add Item:=ident1 & "<name>" & filename & "</name>"

    outputtext.Add Item:=ident1 & ""

    outputtext.Add Item:=ident1 & ""

    outputtext.Add Item:=ident1 & ""
    outputtext.Add Item:=ident2 & "</Pair>"
    outputtext.Add Item:=ident2 & "<Pair>"
    outputtext.Add Item:=ident3 & "<key>highlight</key>"
    outputtext.Add Item:=ident3 & ""
    outputtext.Add Item:=ident2 & "</Pair>"
    outputtext.Add Item:=ident1 & "</StyleMap>"

    outputtext.Add Item:=ident1 & "<Folder>"
    outputtext.Add Item:=ident2 & "<name>" & docname & "</name>"

    outputtext.Add Item:=ident2 & "<open>0</open>"

    If visibility Then strvisible = "1" Else strvisible = "0"
    outputtext.Add Item:=ident2 & "<visibility>" & strvisible &
"</visibility>"

    Set kmlheader = printerpart(outputtext)
End Function

Private Sub Buka_Fail_KML_Click()

filepath = DLookup("[lokasi]", "Lokasi Fail") ' SAME PATH AS THE MDB
filename = DLookup("[Nama Fail]", "Nama Fail") ' OUTPUT FILE NAME
LokasiNamaFail = DLookup("[LokasiFail]", "LokasiFail")

stName = "C:\Program Files\Google\Google Earth pro\googleearth.exe"
FollowHyperlink filepath & "\" & filename & ".kml"

End Sub

Private Sub Command39_Click()
On Error GoTo Err_Command39_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "LONG & LAT CONVERTER"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command39_Click:
    Exit Sub

Err_Command39_Click:
    MsgBox Err.description
    Resume Exit_Command39_Click

End Sub

---------------------------------

MODULI
-------------- basGeneratekml --------

Option Compare Database

Public Sub basGeneratekml()
' GenerateKML Macro
' Macro recorded 26/09/2006 by simon_a
' Adapted and imported to Access by SAA
' Updated by riofiza (26/5/2008)
' 03 aug 2007 - v3.0 - 2007 08 06 19 24
'

    ' DECLARE VARIABLES
    Dim filename As String
    Dim docname As String

    Dim altitude As String
    Dim range As String
    Dim tilt As String
    Dim heading As String
    Dim description As String
    Dim visibility As Boolean

    Dim grouping As Boolean
    Dim grpfield As String
    Dim grpfilter As String

    Dim cfieldName As String
    Dim cfieldLat As String
    Dim cfieldLong As String
    Dim cfieldAlt As String
    Dim cfieldDesc As String
    Dim cfieldCoun As String
    Dim cfieldRange As String
    Dim cfieldTilt As String

    Dim identa As Integer
    identa = 0

    ' GROUPING CONFIGURATION
    ' CREATE A SEPARTE SUBFOLDER TO EACH GROUP
    grouping = True ' GROUPING TROU OR FALSE
    grpfield = "Nama Kes" ' FIELD NAME TO BE GROUPED ON
    difffiles = False     ' DIFERENT FILES TO EACH GROUP
    visibility = False    ' AUTOMATIC SHOWING OR NOT

    ' GENERAL CONFIGURATION
    filepath = "C:\Documents and Settings\GISPER\Desktop\aku" ' SAME PATH AS
THE MDB
    filename = "latihan ACCESS2KML" ' OUTPUT FILE NAME
    docname = "latihan" ' KML TITLE AND FOLDER NAME
    databasename = "Data" ' SOURCE TABLE OR QUERY

    ' RESPECTIVE COLLUM NAMES RELATIVE TO EACH FILTER
    ' REMEMBER THAT LAT AND LONG MUST BE IN DEC OF DEGREE
    ' AND NOT IN MINUTS
    cfieldName = "Nama Tempat" ' NAME OF THE SITE
    cfieldLat = "lat (latitude)" ' LATITUDE
    cfieldLong = "long (longitude)" ' LONGITUDE
    cfieldAlt = ""           ' ALTITUDE
    cfieldDesc = "Maklumat Tambahan" ' DESCRIPTION
    cfieldCoun = "Nama Kes"   ' COUNTRY
    cfieldRange = ""         ' RANGE
    cfieldTilt = ""          ' TILT

    ' VALUES IF NOT DEFINED IN THE TABLE
    ' IF FIND IN THE TABLE THE DEFAULT VALUE
    ' WILL BE ERASED
    altitude = "0"
    range = "68424.
19526792552
"
    tilt = "2.022197391423853e-010"
    heading = "-0.02880169675294712"

    ' OPEN DATABASE
    Dim outputtext As Collection
    Set outputtext = New Collection

    ' OPEN DATABASE
    Dim rs As DAO.Recordset

    ' GROUPING
    If grouping Then
        ' CREATES A KEY LIST
        Dim keys As DAO.Recordset
        groupcmd = "SELECT [" & databasename & "].[" & grpfield & "] FROM ["
& databasename & "] GROUP BY [" & databasename & "].[" & grpfield & "]"
        identa = 1
        Set keys = CurrentDb.OpenRecordset(groupcmd, dbOpenSnapshot)

        If Not (difffiles) Then
            ' OPEN FILE
            Close #1
            File = filepath & "\" & filename & ".kml"
            Open File For Output As #1

            ' WRITING KML HEADER
            Set outputtext = kmlheader(filename, docname, visibility)
        End If

        If Not (keys.BOF And keys.EOF) Then ' There is data
            keys.MoveFirst
            Do Until keys.EOF = True
                grpfilter = keys.Fields(0).Value
                'IS DEFFINED TO SEPARATE IN DIFFERENT FOLDERS, CREATE A
FOLDER LIST
                If (difffiles) Then
                    ' OPEN FILE
                    Close #1
                    Dim tmpfilename As String
                    Dim tmpdocname As String

                    tmpfilename = filename & "_" & grpfilter & ".kml"
                    tmpdocname = docname & "_" & grpfilter
                    File = filepath & "\" & tmpfilename
                    Open File For Output As #1

                    ' WRITING KML HEADER
                    Set outputtext = kmlheader(tmpfilename, tmpdocname,
visibility)
                End If

                ident1 = ident(identa + 1)
                ident2 = ident(identa + 2)

                outputtext.Add Item:=ident1 & "<Folder>"
                outputtext.Add Item:=ident2 & "<name>" & grpfilter &
"</name>"
                outputtext.Add Item:=ident2 & "<open>0</open>"
                If visibility Then strvisible = "1" Else strvisible = "0"
                outputtext.Add Item:=ident2 & "<visibility>" & strvisible &
"</visibility>"

                Set outputtext = printerpart(outputtext)

                record2open = "SELECT * FROM " & databasename & " WHERE [" &
grpfield & "] = """ & grpfilter & """"
                Set rs = CurrentDb.OpenRecordset(record2open,
dbOpenSnapshot)
                Set outputtext = gatherData(rs, cfieldName, cfieldLat,
cfieldLong, cfieldAlt, cfieldDesc, cfieldCoun, cfieldRange, cfieldTilt,
altitude, range, tilt, heading, description, identa)

                outputtext.Add Item:=ident1 & "</Folder>"
                Set outputtext = printerpart(outputtext)

                keys.MoveNext
                rs.Close
            Loop
        End If
        keys.Close
    Else
        Set rs = CurrentDb.OpenRecordset(databasename)
        identa = 0

        ' OPEN FILE
        Close #1
        Open filepath & "\" & filename & ".kml" For Output As #1

        ' WRITING KML HEADER
        Set outputtext = kmlheader(filename, docname, visibility)

        ' GATHERING DATA AND PRITING PLACEMARK WITHOUT FILTER
        Set outputtext = gatherData(rs, cfieldName, cfieldLat, cfieldLong,
cfieldAlt, cfieldDesc, cfieldCoun, cfieldRange, cfieldTilt, altitude, range,
tilt, heading, description, identa)
        rs.Close
    End If

    ' WRITING FOOTER OF KML
    Set outputtext = footer()
    Close #1
End Sub

Function ident(identa As Integer) As String
    Dim identation As String
    identation = String(identa, vbTab)
    ident = identation
End Function

Function printerpart(outputtext As Collection) As Collection
    TotalRecords = outputtext.Count
    For i = 1 To TotalRecords
        outputext = outputtext(i)
        outputext = Replace(outputext, "&", "and")
        Print #1, outputext
    Next i
    Set printerpart = New Collection
End Function

Function gatherData(rs As Recordset, cfieldName As String, cfieldLat As
String, cfieldLong As String, cfieldAlt, cfieldDesc As String, cfieldCoun As
String, cfieldRange As String, cfieldTilt As String, altitude As String,
range As String, tilt As String, heading As String, description As String,
identa As Integer) As Collection
    Dim outputtext As Collection
    Set outputtext = New Collection
    Dim locationname As String
    Dim Longitude As String
    Dim latitude As String

    ' GATHERING THE ACTUAL DATA
    If Not (rs.BOF And rs.EOF) Then ' There is data
        rs.MoveFirst
        Do Until rs.EOF = True
            For i = 0 To rs.Fields.Count - 1
                If (rs.Fields(i).Name = cfieldName) Then locationname =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldLat) Then latitude =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldLong) Then Longitude =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldAlt) Then altitude =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldDesc) Then description =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldCoun) Then Country =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldRange) Then range =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldTilt) Then tilt =
rs.Fields(i).Value
                If (rs.Fields(i).Name = cfieldhead) Then heading =
rs.Fields(i).Value
            Next i

        ' WRITING THE PLACEMARK PART OF THE KML
        Set outputtext = placemark(locationname, Longitude, latitude,
altitude, range, tilt, heading, description, identa)
        rs.MoveNext
        Loop
    End If

    Set gatherData = printerpart(outputtext)
End Function

Function footer() As Collection
    Dim outputtext As Collection
    Set outputtext = New Collection
    identa = 0

    outputtext.Add Item:=ident(identa + 1) & "</Folder>"
    outputtext.Add Item:="</Document>"
    outputtext.Add Item:="</kml>"
    Set footer = printerpart(outputtext)
End Function

Function placemark(locationname As String, Longitude As String, latitude As
String, altitude As String, range As String, tilt As String, heading As
String, description As String, identa As Integer) As Collection
    Dim outputtext As Collection
    Set outputtext = New Collection
    ' WRITE PLACEMARK TO EACH SITE

    ' IDENTATION
    ident2 = ident(identa + 2)
    ident3 = ident(identa + 3)
    ident4 = ident(identa + 4)

    outputtext.Add Item:=ident2 & "<Placemark>"
    outputtext.Add Item:=ident3 & "<name>" & locationname & "</name>"
    outputtext.Add Item:=ident3 & "<LookAt>"
    outputtext.Add Item:=ident4 & "<longitude>" & Longitude & "</longitude>"
    outputtext.Add Item:=ident4 & "<latitude>" & latitude & "</latitude>"
    outputtext.Add Item:=ident4 & "<altitude>" & altitude & "</altitude>"
    outputtext.Add Item:=ident4 & "<range>" & range & "</range>"
    outputtext.Add Item:=ident4 & "<tilt>" & tilt & "</tilt>"
    outputtext.Add Item:=ident4 & "<heading>" & heading & "</heading>"
    outputtext.Add Item:=ident4 &
"<altitudeMode>relativeToGround</altitudeMode>"
    outputtext.Add Item:=ident3 & "</LookAt>"
    outputtext.Add Item:=ident3 & ""
    outputtext.Add Item:=ident3 & "<Point>"
    outputtext.Add Item:=ident4 & "<coordinates>" & Longitude & "," &
latitude & ",0</coordinates>"
    outputtext.Add Item:=ident3 & "</Point>"
    outputtext.Add Item:=ident3 & "<description><![CDATA[" & description &
"]]></description>"
    outputtext.Add Item:=ident2 & "</Placemark>"

    Set placemark = printerpart(outputtext)
End Function

Function kmlheader(filename As String, docname As String, visibility As
Boolean) As Collection
    Dim outputtext As Collection
    Set outputtext = New Collection
    identa = 0
    ' WRITING KML HEADER

    ' INDENTATION
    ident1 = ident(identa + 1)
    ident2 = ident(identa + 2)
    ident3 = ident(identa + 3)
    ident4 = ident(identa + 4)

    ' TEXT ITSELF
    outputtext.Add "<?xml version=""1.0"" encoding=""UTF-8""?>"
    outputtext.Add Item:="<kml xmlns=""
http://earth.google.com/kml/2.0
"">"
    outputtext.Add Item:="<Document>"

    outputtext.Add Item:=ident1 & "<name>" & filename & "</name>"

    outputtext.Add Item:=ident1 & ""

    outputtext.Add Item:=ident1 & ""

    outputtext.Add Item:=ident1 & ""
    outputtext.Add Item:=ident2 & "</Pair>"
    outputtext.Add Item:=ident2 & "<Pair>"
    outputtext.Add Item:=ident3 & "<key>highlight</key>"
    outputtext.Add Item:=ident3 & ""
    outputtext.Add Item:=ident2 & "</Pair>"
    outputtext.Add Item:=ident1 & "</StyleMap>"

    outputtext.Add Item:=ident1 & "<Folder>"
    outputtext.Add Item:=ident2 & "<name>" & docname & "</name>"

    outputtext.Add Item:=ident2 & "<open>0</open>"

    If visibility Then strvisible = "1" Else strvisible = "0"
    outputtext.Add Item:=ident2 & "<visibility>" & strvisible &
"</visibility>"

    Set kmlheader = printerpart(outputtext)
End Function

---------- basBrowseFiles -------

Option Compare Database
Option Explicit

'.=========================================================================
'.Browse Files Module
'.Copyright 1999 Tribble Software.  All rights reserved.
'.Phone        :
(616) 455-2055

'.E-mail       :
carlt...@earthlink.net

'.=========================================================================
' DO NOT DELETE THE COMMENTS ABOVE.  All other comments in this module
' may be deleted from production code, but lines above must remain.
'--------------------------------------------------------------------------
'.Description  : This module calls directly into comdlg32.dll to allow user
'.               to select a filename using the Windows Common Dialog.  The
'.               user may browse for a file, or enter a file name directly.
'.Written By   : Carl Tribble
'.Date Created : 04/05/1999 09:56:31 AM
'.Rev. History :
' Comments     : Normally, to use the Common Dialog you need to physically
'                place the ActiveX control onto a form and then use code
'                behind the form to implement its functionality.  This
'                module allows you to incorporate the functionality of the
'                File Open/Save part of the Common Dialog without the
'                ActiveX control itself. This module is completely self-
'                contained.  Simply copy it into your database to use it.
'.-------------------------------------------------------------------------
'.
' ADDITIONAL NOTES:
'
'  This module only provides the Open/Save file dialog, not the other
'  CommonDialog interfaces (ColorChooser, Help, PrintDialog, etc.)
'
'  If you want your user to browse for folder names (paths) you must use
'  the module basBrowseFolders instead.
'
'  TO STREAMLINE this module for production programs, you should remove:
'     1) Unnecessary comments
'     2) Flag Constants which you do not intend to use.
'     3) The test procedure tsGetFileFromUserTest
'
'--------------------------------------------------------------------------
'
' INSTRUCTIONS:
'
'         ( For a working example, open the Debug window  )
'         ( and enter tsGetFileFromUserTest.              )
'
'.All the arguments for the function are optional.  You may call it with no
'.arguments whatsoever and simply assign its return value to a variable of
'.the Variant type.  For example:
'.
'.   varFileName = tsGetFileFromUser()
'.
'.The function will return:
'.   the full path and filename selected or entered by the user, or
'.   Null if an error occurs or if the user presses Cancel.
'.
'.Optional arguments may include any of the following:
'. rlngFlags      : one or more of the tscFN* constants (declared below)
'.                  Combine multiple constants like this:
'.                   tscFNHideReadOnly Or tscFNFileMustExist
'. strInitialDir : the directory to display when dialog opens
'. strFilter     : a string containing any filters you want to use. Each
'.                 part must be separated by the vbNullChar. -example below
'. lngFilterIndex: a 1-based index indicating which filter to start with.
'. strDefaultExt : Extension to use if user does not enter one.
'. strFileName   : Default File to display in the File Name text box.
'. strDialogTitle: Caption to display in the dialog's title bar.
'. fOpenFile     : Boolean-True for the Open dialog, False for Save dialog.
'
' FILTER EXAMPLE: The filter must be a string containing two parts for each
'  filter.  The first part is the Description, it is what the user will see
'  in the Files of Type box, e.g. "Text Files (*.txt)".  The second part is
'  the actual filter, e.g. "*.txt".  Each part and each filter must be
'  separated by the vbNullChar.  For example, to provide two filters, one
for
'  *.mdb files, and one for all files, use a statement like this:
'
'  strFilter = "Access (*.mdb)" & vbNullChar & "*.mdb" _
'   & vbNullChar & "All Files (*.*)" & vbNullChar & "*.*"
'
'  Then pass your strFilter variable as the strFilter argument for the call
'  to tsGetFileFromUser()
'
'.--------------------------------------------------------------------------
'.

Private Declare Function ts_apiGetOpenFileName Lib "comdlg32.dll" _
 Alias "GetOpenFileNameA" (tsFN As tsFileName) As Boolean

Private Declare Function ts_apiGetSaveFileName Lib "comdlg32.dll" _
 Alias "GetSaveFileNameA" (tsFN As tsFileName) As Boolean

Private Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long

Private Type tsFileName
   lStructSize As Long
   hwndOwner As Long
   hInstance As Long
   strFilter As String
   strCustomFilter As String
   nMaxCustFilter As Long
   nFilterIndex As Long
   strFile As String
   nMaxFile As Long
   strFileTitle As String
   nMaxFileTitle As Long
   strInitialDir As String
   strTitle As String
   flags As Long
   nFileOffset As Integer
   nFileExtension As Integer
   strDefExt As String
   lCustData As Long
   lpfnHook As Long
   lpTemplateName As String
End Type

' Flag Constants
Public Const tscFNAllowMultiSelect = &H200
Public Const tscFNCreatePrompt = &H2000
Public Const tscFNExplorer = &H80000
Public Const tscFNExtensionDifferent = &H400
Public Const tscFNFileMustExist = &H1000
Public Const tscFNPathMustExist = &H800
Public Const tscFNNoValidate = &H100
Public Const tscFNHelpButton = &H10
Public Const tscFNHideReadOnly = &H4
Public Const tscFNLongNames = &H200000
Public Const tscFNNoLongNames = &H40000
Public Const tscFNNoChangeDir = &H8
Public Const tscFNReadOnly = &H1
Public Const tscFNOverwritePrompt = &H2
Public Const tscFNShareAware = &H4000
Public Const tscFNNoReadOnlyReturn = &H8000
Public Const tscFNNoDereferenceLinks = &H100000

Public Function tsGetFileFromUser( _
 Optional ByRef rlngflags As Long = 0&, _
 Optional ByVal strInitialDir As String = "", _
 Optional ByVal strFilter As String = "All Files (*.*)" & vbNullChar &
"*.*", _
 Optional ByVal lngFilterIndex As Long = 1, _
 Optional ByVal strDefaultExt As String = "", _
 Optional ByVal strFileName As String = "", _
 Optional ByVal strDialogTitle As String = "", _
 Optional ByVal fOpenFile As Boolean = True) As Variant

   On Error GoTo tsGetFileFromUser_Err
   Dim tsFN As tsFileName
   Dim strFileTitle As String
   Dim fResult As Boolean

   ' Allocate string space for the returned strings.
   strFileName = Left(strFileName & String(256, 0), 256)
   strFileTitle = String(256, 0)

   ' Set up the data structure before you call the function
   With tsFN
      .lStructSize = Len(tsFN)
      .hwndOwner = Application.hWndAccessApp
      .strFilter = strFilter
      .nFilterIndex = lngFilterIndex
      .strFile = strFileName
      .nMaxFile = Len(strFileName)
      .strFileTitle = strFileTitle
      .nMaxFileTitle = Len(strFileTitle)
      .strTitle = strDialogTitle
      .flags = rlngflags
      .strDefExt = strDefaultExt
      .strInitialDir = strInitialDir
      .hInstance = 0
      .strCustomFilter = String(255, 0)
      .nMaxCustFilter = 255
      .lpfnHook = 0
   End With

   ' Call the function in the windows API
   If fOpenFile Then
      fResult = ts_apiGetOpenFileName(tsFN)
   Else
      fResult = ts_apiGetSaveFileName(tsFN)
   End If

   ' If the function call was successful, return the FileName chosen
   ' by the user.  Otherwise return null.  Note, the CancelError property
   ' used by the ActiveX Common Dialog control is not needed.  If the
   ' user presses Cancel, this function will return Null.
   If fResult Then
      rlngflags = tsFN.flags
      tsGetFileFromUser = tsTrimNull(tsFN.strFile)
   Else
      tsGetFileFromUser = Null
   End If

tsGetFileFromUser_End:
   On Error GoTo 0
   Exit Function

tsGetFileFromUser_Err:
   Beep
   MsgBox Err.description, , "Error: " & Err.Number _
    & " in function basBrowseFiles.tsGetFileFromUser"
   Resume tsGetFileFromUser_End

End Function

' Trim Nulls from a string returned by an API call.

Private Function tsTrimNull(ByVal strItem As String) As String

   On Error GoTo tsTrimNull_Err
   Dim i As Integer

   i = InStr(strItem, vbNullChar)
   If i > 0 Then
       tsTrimNull = Left(strItem, i - 1)
   Else
       tsTrimNull = strItem
   End If

tsTrimNull_End:
   On Error GoTo 0
   Exit Function

tsTrimNull_Err:
   Beep
   MsgBox Err.description, , "Error: " & Err.Number _
    & " in function basBrowseFiles.tsTrimNull"
   Resume tsTrimNull_End

End Function

-----------


title: calcoli sul corpo fattura

author: David

text:
Dovrei calcolare in fase di stampa, e quindi su un report, e sulla maschera
inserimeto dati il totale imponibile di una fattura.
Unico problemino...alcuni prodotti hanno l'iva al 20% altri potrebbero
essere non imponibili e quindi con iva allo 0%.
Avrei pensato ad una queri che raggruppa le righe della stessa fattura in
base al codice iva....ma (e qui si ferma la mia competenza....) come faccio
a recuperare il valore ed asseganrlo ad un campo nel codice e soprattutto
mentre inserisco le varie righe??
O mi conviene andare a programmare in Vb?? e che ci scrivo???
Grazie a tutti e ciao
________________________________________
Davide Cielo
d.c...@tin.it


title: calcoli sul corpo fattura

text:
"David" <
davi...@yahoo.it
> ha scritto nel messaggio
news:NaeDn7f...@newsmst.mcis.galactica.it...
> Dovrei calcolare in fase di stampa, e quindi su un report, e sulla
maschera
> inserimeto dati il totale imponibile di una fattura.
> Unico problemino...alcuni prodotti hanno l'iva al 20% altri potrebbero
> essere non imponibili e quindi con iva allo 0%.
>
> Avrei pensato ad una queri che raggruppa le righe della stessa fattura in
> base al codice iva....ma (e qui si ferma la mia competenza....) come
faccio
> a recuperare il valore ed asseganrlo ad un campo nel codice e soprattutto
> mentre inserisco le varie righe??
>
> O mi conviene andare a programmare in Vb?? e che ci scrivo???
>
> Grazie a tutti e ciao
>
Raggruppa per codice iva una query di selezione (selezione su numero
fattura).
Visualizzala con una sottomaschera nel piè di pagina maschera o con un
sottoreport nel piè di pagina fattura.
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: calcoli sul corpo fattura

author: Frankkk

text:
"David" <
davi...@yahoo.it
> ha scritto nel messaggio
news:NaeDn7f...@newsmst.mcis.galactica.it...
> Dovrei calcolare in fase di stampa, e quindi su un report, e sulla
maschera
> inserimeto dati il totale imponibile di una fattura.
> Unico problemino...alcuni prodotti hanno l'iva al 20% altri potrebbero
> essere non imponibili e quindi con iva allo 0%.
>
Se i casi dell'aliquota iva in questione sono solamente 2 ovvero 0% o 20%
allora potresti creare anche direttamente una casella che calcola l'importo
ivato con una funzione IIF, poichč la sintassi del comando č:
iif(espressione; parteveradellacondizione; partefalsadellacondizione) senza
creare alcuna query, in questa maniera č sufficiente che nell'evento dopo
aggiornamento o dopo inserimento del campo "importo" eseguire o un requery
della casella "totaleivato" oppure direttamente da codice impostare il
valore del campo in questione.
Casomai...postami pure i nomi dei campi che te li scrivo senza esempi...
frank...@libero.it
frankkk


title: calcoli sul corpo fattura

text:
"Frankkk" <
frank...@libero.it
> ha scritto nel messaggio
news:PLtJ5.14128$3K3.4...@news.infostrada.it...

Visto che mi sembra di capire che stiamo parlando anche di un report, e
quindi l'evento dopo aggiornamento mi sembra un pochino problematico ;-)), e
quanto alla funzione IIF non riesco a capire come la scriveresti, sarei piů
propenso ad adoperare la funzione DSum (sempre che i codici iva siano solo
due).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: calcoli sul corpo fattura

text:
..non proprio...o forse si....nel senso che i codici iva sono molti di piu'
ma per fortuna l'iva o e' al 20% o cmq in tutti gli altri casi e' 0%.
cmq grazie
ciao
davide
--
________________________________________
Davide Cielo
d.c...@tin.it
Frankkk <
frank...@libero.it
> wrote in message
PLtJ5.14128$3K3.4...@news.infostrada.it...



title: calcoli sul corpo fattura

text:
"David" <
davi...@yahoo.it
> ha scritto nel messaggio
news:97Ek4C5...@newsmst.mcis.galactica.it...
> ..non proprio...o forse si....nel senso che i codici iva sono molti di
piu'
> ma per fortuna l'iva o e' al 20% o cmq in tutti gli altri casi e' 0%.
>
> cmq grazie
> ciao
...se i codici iva sono + di due allora casca il palco di quello che avevo
inteso, nel senso che un IF ed un Dsum non fanno al caso tuo...essendo più
di due va considerato che la tabella che contiene le tue fatture deve
contenere e "fotografare" tutti i dati del momento, in quel caso allora
procederei sempre con una aggregazione di dominio ma con un dlookup per
inserire nel campo anche l'idaliquota ed il relativo valore e poi fare i
dovuti conteggi a livello di record, mi spiego meglio : (questi sono i dati
che mi hai passato tu)...
totaleriga (dato ovviamente dal prezzounitario * quantita)
Idcodiceiva =codice iva da 1 a .....x
perciva = la percentuale dell'iva da usare per i calcoli, puo' essere 0
oppure 20
mettiamo il caso
Tabella iva, campi : idcodiceiva e perciva (che è il valore che ci
interessa..), quindi nel form avrai a seguito dell'inserimento del campo
IDCODICEIVA:
perciva=dlookup("perciva","iva","([iva]![idcodiceiva]=[idcodiceiva])")
in questo modo hai un campo che contenga la percentuale di iva da
moltiplicare in seguito....giusto ?
Ora puoi eseguire i tuoi conteggi a livello di riga.
Spero di aver compreso tutto in maniera conforme alle tue esigenze !
frankkk


title: calcoli sul corpo fattura

author: Carlo Ve

text:
David ha scritto nel messaggio ...
>Dovrei calcolare in fase di stampa, e quindi su un report, e sulla maschera
>inserimeto dati il totale imponibile di una fattura.
>Unico problemino...alcuni prodotti hanno l'iva al 20% altri potrebbero
>essere non imponibili e quindi con iva allo 0%.
>
>Avrei pensato ad una queri che raggruppa le righe della stessa fattura in
>base al codice iva....ma (e qui si ferma la mia competenza....) come faccio
>a recuperare il valore ed asseganrlo ad un campo nel codice e soprattutto
>mentre inserisco le varie righe??
>
>O mi conviene andare a programmare in Vb?? e che ci scrivo???
>
>Grazie a tutti e ciao
Tabellare, tabellare, e' la soluzione migliore che ti mette al sicuro da
eventuali variazioni
meglio una tabella codici_iva  con cod , aliquota,  eventuale descrizione
(ci sono anche le esenzioni)
nella maschera puoi inserire una sottomaschera "castelletto iva" con sotto
una qry che riepiloga
i totali imponibili e imposte per aliquota
Poi fare un totale generale e' un'attivo
Carlo Ve
>
>________________________________________
>Davide Cielo
d.c...@tin.it
>
>


title: calcoli sul corpo fattura

text:
Carlo Ve ha scritto nel messaggio ...

volevo dire un'attimo
Carlo Ve


title: calcoli sul corpo fattura

text:
oddio...forse si forse no.....
io so gia' se la riga ha il 20% oppure ha lo 0% quello che mi interessa e'
che alla fine ...cioe' nel totale fattura ci sia il totale imponibile (somma
dell'imponibile 20% + imponibile 0%), il totale iva e il totale generale....
IO avevo pensato di creare 2 variabili.(IMPO20 IMPO0),  incrementare il loro
valore aggiungendo a loro stesse i valori delle righe che andavo a digitare
di volta in volta....ma ci sono 2 problemi:
1. come faccio per fare cio'?
2. e sei io cancello o modifico una riga, come posso fare per decrementare
le variabili??
ciao
grazie ancora per l'aiuto e scusa per il disturbo!
--
________________________________________
Davide Cielo
d.c...@tin.it
Frankkk <
frank...@libero.it
> wrote in message
ve8K5.33523$3K3.8...@news.infostrada.it...



title: attn: sarena - extremely trustable postings -  jug gekno - (1/1)

author: blane

text:
I love the newsgroups
Take a look, I know you'll love it as much as I do.
They offer some of the best premium newsgroup access anywhere.
You can find almost anything you are looking for.
Images, video, mp3 music, the real news from around the world... it's all inside waiting for you.
One thing I love about them, they don't keep log files of the news I read or files I download.
They give you access to some of the best groups others may not carry.
Great prices and support await you as you travel into the beautiful world of premium nntp access.
Take a look at all the great features below and imagine! You'll LOVE it.
Convenient thumbnail indexes
Keyword searchable
Blazing fast downloads
800 GIGS of new multimedia content each day
Very long retention
Posting allowed!
Just go to
newsdude.net
 - they're amazing.
Bi
wettomobmic ceryizabgop pi dakcajazfej, war ci wajnopakyap dadmofitsed ...


title: Access 2010 Visualizzare oggetti nascosti

author: Francesco Salvagnini

text:
Domanda semplice semplice: come si fanno a visualizzare le tabelle
nascoste in Access 2010?
Tra parentesi: ma la Microsoft non poteva lasciare così com'erano le
cose che andavano bene?


text:
On 7 Apr, 14:27, Francesco Salvagnini <
animeincamm...@gmail.com
>
wrote:

Mi auto-rispondo:
Scegliere Tabelle.
Mouse destro su titolo "Tabelle"
Opzioni di Spostamento
Spuntare mostra oggetti nascosti
Alla prossima!   ; )


author: Karl Donaubauer

text:
Francesco Salvagnini wrote:
> Domanda semplice semplice: come si fanno a visualizzare le tabelle
> nascoste in Access 2010?
http://office.microsoft.com/it-it/access-help/utilizzare-e-organizzare-oggetti-di-database-nel-riquadro-di-spostamento-HA010342108.aspx?CTT=1#BM9
> Tra parentesi: ma la Microsoft non poteva lasciare così com'erano le
> cose che andavano bene?
Se una volta posso identificare l'impiegato a Redmond chi ha suggerito
il maledetto riquadro di spostamento... Non è per niente che lo
tengono nascosto. ;-)
--
Ciao
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
On 7 Apr, 14:43, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> Francesco Salvagnini wrote:
> > Domanda semplice semplice: come si fanno a visualizzare le tabelle
> > nascoste in Access 2010?
>
>
http://office.microsoft.com/it-it/access-help/utilizzare-e-organizzar.
..
>
> > Tra parentesi: ma la Microsoft non poteva lasciare così com'erano le
> > cose che andavano bene?
>
> Se una volta posso identificare l'impiegato a Redmond chi ha suggerito
> il maledetto riquadro di spostamento... Non è per niente che lo
> tengono nascosto. ;-)
>
> --
> Ciao
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Grande Karl, hai anticipato la seconda domanda: come si fa a
NASCONDERE il riquadro di spostamento? (infatti a ridurlo è semplice,
ma resta sempre la barra verticale che mi porta via spazio orizzontale
per le maschere)


text:
Francesco Salvagnini wrote:
> ...
>  come si fa a
> NASCONDERE il riquadro di spostamento? (infatti a ridurlo č semplice,
> ma resta sempre la barra verticale che mi porta via spazio orizzontale
> per le maschere)
http://www.donkarl.com/it?FAQ6.2
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


text:
On 7 Apr, 16:47, Francesco Salvagnini <
animeincamm...@gmail.com
>
wrote:

> per le maschere)- Nascondi testo citato
>
> - Mostra testo citato -
Risposta:
Scheda File
Opzioni
Database corrente
Visualizza Riquadro Spostamento (spuntare Sì/No)
Della serie: COME COMPLICARE LA VITA (ai poveri sviluppatori)
Consigli per Bill Gates:
1) Torna al vecchio buon Access 2003.
2) Togli solo gli stupidi avvisi di protezione.
3) Licenzia tutti i nuovi assunti dal 2007 in poi.
4) Assumi gente tosta e ascolta solo il consiglio dei grandi (Giorgio
Rancati, Karl, Alessandro Baraldi, Massimiliano Amendola ecc. ecc)


text:
On 7 Apr, 17:40, Francesco Salvagnini <
animeincamm...@gmail.com
>

> Rancati, Karl, Alessandro Baraldi, Massimiliano Amendola ecc. ecc)- Nascondi testo citato
>
> - Mostra testo citato -
Grazie Karl.
Se potessi rimarrei con Access 2003.
Ma i Clienti non vogliono vedere gli avvisi di protezione, neanche
alla PRIMA apertura del programma.
Mi confermi anche tu che con Access 2010 gli avvisi si possono
eliminare?
Come si fa?
Si modifica il Registro di sistema in fase di installazione (quindi si
lavora nel Developer Extensions), oppure
si inserisce qualche comando nella macro Autoexec?
Danke! ; )


text:
Francesco Salvagnini ha scritto:
>On 7 Apr, 17:40, Francesco Salvagnini <
animeincamm...@gmail.com
>
>wrote:
>> On 7 Apr, 16:47, Francesco Salvagnini <
animeincamm...@gmail.com
>
>> wrote:
>>
>>
>>
>>
>>
>> > On 7 Apr, 14:43, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
>>
>> > > Francesco Salvagnini wrote:
>> > > > Domanda semplice semplice: come si fanno a visualizzare le tabelle
>> > > > nascoste in Access 2010?
>>
>> > >
http://office.microsoft.com/it-it/access-help/utilizzare-e-organizzar.=
>..
>>
>> > > > Tra parentesi: ma la Microsoft non poteva lasciare cos=EC com'erano=
> le
>> > > > cose che andavano bene?
>>
>> > > Se una volta posso identificare l'impiegato a Redmond chi ha suggerit=
>o
>> > > il maledetto riquadro di spostamento... Non =E8 per niente che lo
>> > > tengono nascosto. ;-)
>>
>> > > --
>> > > Ciao
>> > > Karl
>> > > *********
>> > > Access FAQ:
www.donkarl.com/it
>>
>> > Grande Karl, hai anticipato la seconda domanda: come si fa a
>> > NASCONDERE il riquadro di spostamento? (infatti a ridurlo =E8 semplice,
>> > ma resta sempre la barra verticale che mi porta via spazio orizzontale
>> > per le maschere)- Nascondi testo citato
>>
>> > - Mostra testo citato -
>>
>> Risposta:
>>
>> Scheda File
>> Opzioni
>> Database corrente
>> Visualizza Riquadro Spostamento (spuntare S=EC/No)
>>
>> Della serie: COME COMPLICARE LA VITA (ai poveri sviluppatori)
>> Consigli per Bill Gates:
>>
>> 1) Torna al vecchio buon Access 2003.
>> 2) Togli solo gli stupidi avvisi di protezione.
>> 3) Licenzia tutti i nuovi assunti dal 2007 in poi.
>> 4) Assumi gente tosta e ascolta solo il consiglio dei grandi (Giorgio
>> Rancati, Karl, Alessandro Baraldi, Massimiliano Amendola ecc. ecc)- Nasco=
>ndi testo citato
>>
>> - Mostra testo citato -
>
>Grazie Karl.
>
>Se potessi rimarrei con Access 2003.
>Ma i Clienti non vogliono vedere gli avvisi di protezione, neanche
>alla PRIMA apertura del programma.
>Mi confermi anche tu che con Access 2010 gli avvisi si possono
>eliminare?
>Come si fa?
>Si modifica il Registro di sistema in fase di installazione (quindi si
>lavora nel Developer Extensions), oppure
>si inserisce qualche comando nella macro Autoexec?
>
>Danke! ; )
>
Il problema della protezione macro si risolve. 2007 con la trusted location
(v. Cinzia Pagani, si puň fare anche da codice), 2003 pure, oppure abbassi la
protezione macro (menu strumenti-macro) dell'ambiente access o ti scarichi la
patch di MS per far andare il vba anche con protezione elevata
--


text:

> (v. Cinzia Pagani, si pu fare anche da codice), 2003 pure, oppure abbassi la
> protezione macro (menu strumenti-macro) dell'ambiente access o ti scarichi la
> patch di MS per far andare il vba anche con protezione elevata
>
> --- Nascondi testo citato
>
> - Mostra testo citato -
Mi dispiace contraddirti Fair, ma con Access 2003 non è possibile
togliere gli avvisi da vba. Almeno con il codice che ho trovato e che
ti scrivo sotto. Cioè: è possibile toglierli, ma non alla PRIMA
apertura del programma. Naturalmente non succede a noi che lavoriamo
con Access da mattina a sera, ma succede con i clienti che hanno un
computer vergine: la prima volta che aprono un programma Access,
vengono assaliti dagli avvisi terrorizzanti. E' una situazione che
puoi simulare anche nel tuo computer, basta che risetti il registro di
sistema a com'era prima di mettere la protezione bassa. Ti scrivo le
due righe di codice, che ho scovato con l'aiuto di Cinzia, ma che
purtroppo non risolvono il problema alla radice:
Dim wsh As WshShell
Set wsh = New WshShell
'  PER EVITARE MSG SULLE ESPRESSIONI POTENZIALMENTE PERICOLOSE CON
MODALITA' RUNTIME
wsh.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Office\11.0\Access
\Security\Level", 1, "REG_DWORD"  ' ( default 2 )
wsh.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\Engines
\SandboxMode", 2, "REG_DWORD"  ' ( default 2, ma è meglio rimetterlo )
Set wsh = Nothing '
Se hai un codice che funziona anche alla PRIMA apertura fammelo
sapere, mi raccomando!!!


text:
On 7 Apr, 17:50, Francesco Salvagnini <
animeincamm...@gmail.com
>

> Danke! ; )- Nascondi testo citato
>
> - Mostra testo citato -
Karl, ho usato il codice che c'è nel tuo sito
DoCmd.SelectObject acTable, , True
RunCommand acCmdWindowHide
ma non nasconde il riquadro di Access 2010 Trial.
Invece con la procedura descritta sopra (scheda File, Opzioni,
Database Corrente, Togli la spunta su "Visualizza Riquadro" funziona a
giorni alterni: nel senso che ieri funzionava, oggi no. Come è
possibile?


text:
Francesco Salvagnini wrote:
> ...
> Karl, ho usato il codice che c'è nel tuo sito
> DoCmd.SelectObject acTable, , True
> RunCommand acCmdWindowHide
> ...
Qui con la versione normale di A10 funziona.



text:
[cut]
>Karl, ho usato il codice che c'=E8 nel tuo sito
>DoCmd.SelectObject acTable, , True
>RunCommand acCmdWindowHide
>
>ma non nasconde il riquadro di Access 2010 Trial.
>Invece con la procedura descritta sopra (scheda File, Opzioni,
>Database Corrente, Togli la spunta su "Visualizza Riquadro" funziona a
>giorni alterni: nel senso che ieri funzionava, oggi no. Come =E8
>possibile?
C'è un po' di confusione. Come dice Karl il Navigatio Panel si nasconde A MENO
CHE tu non faccia uso di tranfertDatabase, o text, o cmq del metodo transfert.
In quel caso (come ha rilevato il buon Baraldi) il riquadro riappare. Poco
male: udi tableDef e il problema è risolto
Per la protezione macro, puoi aprire access nudo e crudo e variare la
protazione. Ma son sicuro di avere visto un componente aggiuntivo che faceva
girare il vba anche a protazione macro elevata...ma nn me lo ritrovo.....
--


text:
On 8 Apr, 17:16, Fair87<
roby....@gmail.com
> wrote:
> [cut]
>
> >Karl, ho usato il codice che c'=E8 nel tuo sito
> >DoCmd.SelectObject acTable, , True
> >RunCommand acCmdWindowHide
>
> >ma non nasconde il riquadro di Access 2010 Trial.
> >Invece con la procedura descritta sopra (scheda File, Opzioni,
> >Database Corrente, Togli la spunta su "Visualizza Riquadro" funziona a
> >giorni alterni: nel senso che ieri funzionava, oggi no. Come =E8
> >possibile?
>
> C' un po' di confusione. Come dice Karl il Navigatio Panel si nasconde A MENO
> CHE tu non faccia uso di tranfertDatabase, o text, o cmq del metodo transfert.
> In quel caso (come ha rilevato il buon Baraldi) il riquadro riappare. Poco
> male: udi tableDef e il problema risolto
> Per la protezione macro, puoi aprire access nudo e crudo e variare la
> protazione. Ma son sicuro di avere visto un componente aggiuntivo che faceva
> girare il vba anche a protazione macro elevata...ma nn me lo ritrovo.....
>
> --
Un componente aggiuntivo... cioè... cosa vuol dire? E' una cosa che si
può inserire nel pacchetto di installazione e il cliente a cui
distribuisco il software non deve far niente, o è una cosa che deve
installarsi a parte il cliente? Com'è fatto sto componente? È un
codice in vba, un exe... cos'è? Se lo trovi fai la felicità di molti,
me per primo! Anzi, ti do la mia super mail personale per
recapitarmelo:
francesc...@libero.it
 Shalom! ; )


text:
On 9 Apr, 09:07, Francesco Salvagnini <
animeincamm...@gmail.com
>
wrote:

> recapitarmelo:
francescodiass...@libero.it
 Shalom! ; )- Nascondi testo citato
>
> - Mostra testo citato -
La parte di mail prima della chiocciola è francescodiassisi. Ma
torniamo al riquadro: verissimo, prima di aprire la prima maschera uso
transfertdatabase. Mi dici di usare TableDef. Grazie, ma il codice
completo qual'è? Dim, Set, Pim Pum Pam...


text:
[CUT]
Ma torniamo al riquadro: verissimo, prima di aprire la prima maschera uso
>transfertdatabase. Mi dici di usare TableDef. Grazie, ma il codice
>completo qual'=E8? Dim, Set, Pim Pum Pam...
ti posto lo stralcio di codice. Presuppone una tabella con l'elenco delle
tabelle remote
Dim Tdf As dao.TableDef
Dim rs As dao.Recordset
Dim S As String
Dim StrSql As String
Dim Dbs As Database
Dim cCnnString As String
StrSql = "SELECT NomeTabella FROM LinkedTables"

Set rs = CurrentDb.OpenRecordset(StrSql, dbOpenSnapshot)
rs.movefirst
do until rs.eof
S = rs.Fields(0).Value
If Esiste_Oggetto(S, fTabella) Then _
Dbs.TableDefs.Delete S
Set Tdf = Dbs.CreateTableDef(S)
Tdf.Connect = cCnnString
Tdf.SourceTableName = S
Dbs.TableDefs.Append Tdf
Set Tdf = Nothing
rs.MoveNext
loop
Esiste oggetto per prevenire l'errore di un pezzo mancante
--


text:

Cavoli, pensavo fosse 'na robetta del tipo:
    Application.SetOption "Show Status Bar", False
invece è addirittura un ciclo! Ma cosa si son bevuti i ragazzi di
Redmond?
Per questo ti dico: se trovi quel COMPONENTE AGGIUNTIVO ... torno al
2003, chiaro, sicuro, intuitivo, ordinato!


text:
On 9 Apr, 15:39, Francesco Salvagnini <
animeincamm...@gmail.com
>
wrote:

> 2003, chiaro, sicuro, intuitivo, ordinato!- Nascondi testo citato
>
> - Mostra testo citato -
Il comando suggerito da Karl funziona ANCHE in presenza di
Transferdatabase (almeno oggi..!!)
RunCommand acCmdWindowHide


title: Combo e combo....

author: Franco CM

text:
Grazie in anticipo,
vorrei creare una form per l'inserimento delle scadenze.
Oltre ai soliti dati relativi alla data, al documento, condiz.pagamento,
importo, ecc,
in questa form voglio inserire una combo per la selezione delle 'categorie
delle scadenze'.
Da un'altra combo vorrei selezionare solamente i valori relativi alla
categoria selezionata precedentemente nella combo 1 e pescati da 2 tabelle
diverse (es. Fornitori e Causali scadenze).
Premetto: ho creato una tab Cat_Scadenze, una tab Causali_Scadenze e una tab
Fornitori.
Ho creato una tbl_temp per copiare temporaneamente i dati delle tre tbl su
evento open form della maschera Scadenze, dopo magari averla vuotata ....ma
ho qualche problemino nel farlo!
Vorrei poi prelevare dalla combo i dati dalla tbl_tmp con DlookUp
Su evento on change filtrare i dati in base al parametro scelto e
riaggiornare il campo
Penso sia la soluzione migliore e forse + semplice!!
Chi mi aiuta gentilmente nel farlo?


title: Combo e combo....

text:
"Franco CM" <
ecort...@tiscalinet.it
> ha scritto nel messaggio
news:b5vfoo$iah$1...@lacerta.tiscalinet.it...
[cut]
> Ho creato una tbl_temp per copiare temporaneamente i dati delle tre tbl su
> evento open form della maschera Scadenze, dopo magari averla vuotata
....ma
> ho qualche problemino nel farlo!
> Vorrei poi prelevare dalla combo i dati dalla tbl_tmp con DlookUp
> Su evento on change filtrare i dati in base al parametro scelto e
> riaggiornare il campo
> Penso sia la soluzione migliore e forse + semplice!!
1° cosa.. perchè non fai una tabella sola per i tipi di scadenza?
2° potresti usare RunSQL "CREATE TABLE..." per creare la tabella temporanea
e successive instruzioni RunSQL "INSERT INTO..." per accodare i valori in
tabella..
3° per eliminare la tabella (perchè tanto la rigeneri ogni volta che apri la
maschera).. usi docmd.delete... con relativo controllo di errori su  tabella
assente (io preferisco fare una query sulla tabella di sistema MSSysObject e
vedere se compare in elenco)
ciao


title: ri-proposta query...(tutti, iif)

author: Guido

text:
ri-posto il problema a distanza di qche giorno: penso che possa comunque
essere utile a molti...
Il problema:
ho una maschera FiltriMultipli,  nella quale ci sono diverse
CaselleCombinate per fare in modo che
l'utente possa settare il filtro come più gli aggrada.
Mi spiego: nella MascheraFiltriMultipli c'è:
- una CasellaCombinata1 (quella dei dipendenti) in cui uno dovrebbe
scegliere di vedere quelli che hanno dipendenti (numero >0), oppure quelli
che non li hanno (numero = 0) oppure tutti (che abbiano dipendenti o meno)
- una CasellaCombinata2 (impresa famigliare) in cui uno dovrebbe scegliere
di vedere quelli che hanno impresa famigliare(vero), oppure quelli che non
l'hanno (falso) oppure tutti (che abbiano impresa famigliare o meno)
- una CasellaCombinata3 (figli) in cui uno dovrebbe scegliere di vedere
quelli che hanno diritto a riduzioni (vero), oppure quelli che non l'hanno
(falso) oppure tutti (che abbiano diritto o meno)
(in questo modo uno può settare il filtro in questo modo, per esempio:
"quelli che non hanno figli, hanno impresa famigliare e hanno dipendenti"
piuttosto che "quelli che non hanno dipendenti, non hanno impresa
famigliare, non importa se con figli o meno" e via di questo passo).
Il tutto, prima dell'inserimento della casella per i dipendenti (espressi in
numero) tutto era svolto da un'unica query che riportava, nei diversi
criteri:
Like
IIf([Forms]![Maschera1]![CasellaCombinataX]="TUTTI";"*";IIf([Forms]![Maschera1]![CasellaCombinataX]="SI";Vero;Falso))
Volevo adattare la query in questo senso:
La combobox1 (qulle dei dipendenti) contiene solo TUTTI, NO, SI.
Se scelgo TUTTI, mi dovrebbe mostrare tutti i clienti che hanno o non hanno
dipendenti
Se scelgo NO, mi dovrebbe mostrare tutti i clienti che hanno  0 dipendenti
Se scelgo SI, mi dovrebbe mostrare tutti i clienti che hanno >0 dipendenti
(ovviamente tenendo conto dei  settaggi delle altre combobox)
Si intende che la query è basata su una Tabella1 che ha un campo Dipendenti,
il campo è Byte.
Chiedo ancora venia e aiuto.
Saluti
Guido
--
in moto:
sfortunà tanti
fortunà pochi
bravi gnanca uno


title: ri-proposta query...(tutti, iif)

text:
"Guido" <
giroatlNO...@tin.it
> ha scritto nel messaggio
news:kbnde.1318903$35.49...@news4.tin.it...

Se la tabella che contiene i dati su chiama Tabella!.
Se il campo Dipendenti è di tipo Numerico e contiene il numero dipendenti
dell'azienda.
Se la maschera non associata si chiama Maschera1 e contiene una casella
combinata chiamata CasellaCombinataX.
Se la casella combinata ha una sola colonna che può contenere i valori
"TUTTI", "SI", "NO".
Nella query cherati un campo calcolato così fatto:
IIf([Forms]![Maschera1]![CasellaCombinataX]="TUTTI";1;IIf([Forms]![Maschera1
]![CasellaCombinataX]="SI" And
[Dipendenti]<>0;1;IIf([Forms]![Maschera1]![CasellaCombinataX]="No" And
[Dipendenti]=0;1;0)))
e nei critaeri di tale campo calcolato scrivi 1.
Insomma la query dovrà avere il seguente codice SQL:
SELECT Tabella1.*
FROM Tabella1
WHERE
(((IIf([Forms]![Maschera1]![CasellaCombinataX]="TUTTI",1,IIf([Forms]![Masche
ra1]![CasellaCombinataX]="SI" And
[Dipendenti]<>0,1,IIf([Forms]![Maschera1]![CasellaCombinataX]="NO" And
[Dipendenti]=0,1,0))))=1));
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: qualche dritta per fare un database......

author: Loico

text:
Se potete indirizzarmi sugli oggetti necessari per fare sto db abbastanza
elementare vi sarò grato:
--
      L'organizzazione del data base dovrebbe essere così:
1) Il reparto produzione sul proprio pc  compila la prima parte della Form
sottoriportata.
2) compilata la prima parte la scheda viene stampata in manutenzione, che ne
prende atto e in base all'urgenza dichiarata prende visione del guasto.
3) risolto il guasto la manutenzione compila la seconda parte della scheda e
archivia l' intervento.
4) sarebbe necessario potere richiamare i guasti, per tipo (elettrico
meccanico), su una determinata macchina, eseguiti dal....a....
ed ancora tutti i precedenti più i guasti che hanno fermato la squadra di
produzione( in
pratica quelli urgenti)
5) Occorrerebbe che in ufficio, su un altro terminale si potesse compilare
sia la prima parte che la seconda in maniera tale da registrare gli
interventi a cura di eventuali esterni, oppuregli interventi in manutenzione
straordinaria.( è condivisibile in rete cioè un database di access 2000
???? )
6) Porre eventuali limitazioni nel senso di non compromenttere il data base
stesso, capire cioè che chi lo utilizzerebbe non è una persona che utilizza
PC!
ECCO LA FORM:
I parte.
- Rapporto di intervento N°
- Tipo di Macchina
-Matricola
- tipo di guasto elettrico/meccanico
- caratteristiche del guasto urgente o no
- data del guasto
- ora del guasto
II parte.
- data di risoluzione del guasto
- diagnosi risolutiva, (chiusura dl guasto)
- tempo impiegato (a cura della manutenzione)
- se è stato necessario l'intervento di manutenzione esterna, o attrezzatura
esterna.
Grazie a tutti!