title: esportare risultato di query parametrica

author: Laura Martufi

text:
Vorrei esportare il risultato di una query parametrica in un foglio di excel
alla pressione di un bottone quindi via codice vba. So farlo per una query
normale di selezione ma non so farlo se la query riceve uno o più parametri


author: Roberto da casa

text:
"Laura Martufi" <
lauram...@caltanet.it
> ha scritto nel messaggio
news:44053d62$0$5992$4faf...@reader2.news.tin.it...

Prova ad usare il Metodo TransferSpreadsheet (vedi help).
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Viste MySQL / MSAccess

author: marco

text:
Ciao a tutti,
ho un problema con il collegamento di MSAccess alle viste MySQL.
Praticamente Access non riesce a collegarsi dandomi un errore oppure si
collega ma non esegue il filtro cosi come dovrebbe.
Leggendo il forum di MySQL ho visto che anche altri hanno lo stesso problema
ma non ho trovato alcun suggerimento spero che qualcuno possa darmi una
mano.
Grazie


title: Utilizzo di una formula scritta in un campo testo

author: Tashunka

text:
Ciao a tutti,
sto facendo un programmino per il calcolo del computo metrico.
Poichè le formule sono tante ho pensato di gestirle da codice e per
semplificare il lavoro in futuro (se cambio formula non tocco più il codice)
ho pensato di archiviare le formule in un campo testo (in modo che le possa
poi cambiare all'occorrenza) e da codice leggere la formula interpretarla e
calcolarla.
Cioè in un campo avrò (2*X*(Y+Z)), la mia funzione leggerà la formule e i
campi di cui andare a recuperare i valori (X,Y e Z) e calcolerà il
risultato. Gli operatori che utilizzerò sono solo quelli algebrici: + - * /
e le parentesi tonde.
Qualcuno mi sa dare un suggerimento per cominciare questa impresa?
Grazie mille
Tk


author: Roberto dalla campagna

text:
"Tashunka" <
tashu...@hotmail.it
> ha scritto nel messaggio
news:fbgf6f$k05$1...@nnrp.ngi.it...

Usa la funzione Eval (vedi help)
>
> Grazie mille
Prego.
> Tk
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: intercettare chiusura maschera

author: Nicola

text:
ciao a tutti
ho il seguente problema:
dalla maschera CLIENTI, premendo un pulsante avvio l'apertura di un'altra
maschera AGENTI, in base alla scelta effettuata in quest'ultima mi
dovrebbe essere aggiornata una casella combinata (scelta) sulla maschera
CLIENTI per far questo dovrei intercettare però il momento in cui la
maschera AGENTI viene chiusa per poter richiamare un me.scelta.requery ed
aggiornare i valori in essa contenuta...
come risolvo? ci sono piu soluzioni?
grazie in anticipo per le risposte
Nicola


title: intercettare chiusura maschera

author: Sergio MAZZA

text:
"Nicola" <
nik...@tiscalinet.it
> ha scritto nel messaggio
news:pan.2005.03.04....@tiscalinet.it...

Gestisci l'evento "su chiusura" di Agenti inserendo il requery della
casella:
es.
Forms!Clienti!Scelta.Requery
Ciao.
--
Sergio MAZZA


title: intercettare chiusura maschera

author: Carlo Costarella

text:
"Nicola" <
nik...@tiscalinet.it
> ha scritto nel messaggio
news:pan.2005.03.04....@tiscalinet.it...

Usa l'evento su chiusura della maschera Agenti.
Ciao, Carlo


title: intercettare chiusura maschera

text:


ho risolto applicando il scelta.requery sull'evento su attivazione della
maschera visto che viene attivata nel momento in cui AGENTI viene chiusa...
grazie per le risposte
ora avrei un altro piccolo problemino ma per questo aprirò un altro 3d
visto che è molto piu complesso...
grazie ancora
Nicola


title: intercettare chiusura maschera

text:
"Nicola" <
nik...@tiscalinet.it
> ha scritto nel messaggio
news:pan.2005.03.04....@tiscalinet.it...
>
> ho risolto applicando il scelta.requery sull'evento su attivazione della
> maschera visto che viene attivata nel momento in cui AGENTI viene
> chiusa...
Praticamente il contrario; ogni volta che la form verrà selezionata si
effettuerà il requery, non mi sembra lineare.
> grazie per le risposte
>
> ora avrei un altro piccolo problemino ma per questo aprirò un altro 3d
> visto che è molto piu complesso...
>
> grazie ancora
>
> Nicola
Ciao.
--
Sergio MAZZA


title: Variabili globali

author: Sandrobi

text:
Nel mio FE mi servono delle variabili lette da una tabella del BE e che
devono rimanere memorizzate per tutte le maschere senza dover essere rilette
ogni volta.
Attualmente uso una funzione pubblica di modulo eseguita dalla maschera
impostata come maschera di avvio. Però quando apro il FE con il tasto Shift
premuto questa maschera non si avvia e le variabili non vengono assegnate.
C'è una soluzione che posso adottare?
Grazie, Sandro


title: Variabili globali

author: Emyr

text:
On Tue, 13 May 2003 22:41:19 GMT, "Sandrobi" <
sand...@libero.it
>
wrote:

avvia la maschera di avvio manualmente
Saluti.
Emanuele.


title: Variabili globali

text:
"Sandrobi" <
sand...@libero.it
> ha scritto nel messaggio
news:jwewa.117497$iy5.3...@twister2.libero.it...

Nelle funzione che imposta le variabili aggiungi un If..Then.
Oppure quando valuti la variabile (se numerica) se restituisce 0 vuol dire
che non è stata settata...allora...puoi provvedere.
If TuaVariabileNumerica = 0 then
TuaVariabileNumerica = Dlookup("TuoCAmpo","TuaTabella")
End If
Se la variabile è di tipo stringa, se vuota restituisce "".
Ciao, Carlo


title: Estarre records da 3 tabelle

author: radicale 004

text:
Scusate, come fareste voi, avendo 3 tabelle :
T1,T2,T3
con campi chiave :
T1.codage, T2.codage, T3.codage
ad estrarre un recordset fatto di tutti quei codage
che stanno in ALMENO una delle 3 tabelle date
ed in modo che compaiano una volta sola ?
Non vorrei usare subquery : le tabelle sono grossine
(decine di migliaia di records) e cio' rallenterebbe
molto l' esecuzione. ... Non saprei.
Se facessi
select ... from T1,T2,T3
where
(T1.codage = T2.codage) and
(T2.codage = T3.codage)
mi estrarrebbe solo i codici comuni.
D' altra parte il join fallisce lo stesso.
Ci vorrebbe un join "particolare", che
"acchiappi" un codice indipendentemente
da quale tabella si prenda come base.
Qualche suggerimento ?


title: Estarre records da 3 tabelle

author: Karl Donaubauer

text:
radicale 004 wrote:
> Scusate, come fareste voi, avendo 3 tabelle :
> T1,T2,T3
> con campi chiave :
> T1.codage, T2.codage, T3.codage
> ad estrarre un recordset fatto di tutti quei codage
> che stanno in ALMENO una delle 3 tabelle date
> ed in modo che compaiano una volta sola ?
>
> Non vorrei usare subquery : le tabelle sono grossine
> (decine di migliaia di records) e cio' rallenterebbe
> molto l' esecuzione. ... Non saprei.
> ...
SELECT codage FROM T1
UNION
SELECT codage FROM T2
UNION
SELECT codage FROM T3
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: Ordinare i record in una sottomaschera!

author: MaX

text:
Esiste un cmd o macro per ordinare i record in una sottomaschera? Questa
sottomaschera e' gia' il risultato di una query di selezione.
Grazie


title: Ordinare i record in una sottomaschera!

author: Sergio MAZZA (Ufficio Stampa)

text:
"MaX" <
m.aug...@tin.it
> ha scritto nel messaggio
news:9dg7li$gso$1...@lacerta.tiscalinet.it...
> Esiste un cmd o macro per ordinare i record in una sottomaschera? Questa
> sottomaschera e' gia' il risultato di una query di selezione.
>
> Grazie
Se la maschera poggia su una query prende l'ordinamento di questa. Prova ad
impostarlo li l'ordinamento che vuoi. Altrimenti nelle proprietà della
maschera c'é "Ordina per" (OrderBy)...
Ciao.


title: Ordinare i record in una sottomaschera!

author: Federico Albertini

text:
Puoi risolvere nell'evento "su apertura" della sottomaschera utilizzando:
me.orderby = "campo1_da_ordinare, campo2_da_ordinare DESC"
me.orderbyon = true
in modo da ordinare i dati per campo1 crescente (ASC o default) e campo2
decrescente (DESC)
"MaX" <
m.aug...@tin.it
> ha scritto nel messaggio
news:9dg7li$gso$1...@lacerta.tiscalinet.it...



title: Ordinare i record in una sottomaschera!

text:
"Federico Albertini" <
fede...@telvia.it
> ha scritto nel messaggio
news:9dgvc1$diu$1...@fe2.cs.interbusiness.it...
> Puoi risolvere nell'evento "su apertura" della sottomaschera utilizzando:
>
> me.orderby = "campo1_da_ordinare, campo2_da_ordinare DESC"
> me.orderbyon = true
>
> in modo da ordinare i dati per campo1 crescente (ASC o default) e campo2
> decrescente (DESC)
>
In Access 97 OrderBy e OrderByOn hanno effetto solo per le maschere
principali ma non per le sottomaschere.
Per ordinare i record di una sottomaschera occorre basarla su una query,
nella quale imposti i criteri di ordinamento che ti servono.
Per A2000 non lo so.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Visual Basic e Access

author: Nicole

text:
Sapreste consigliarmi dei libri, abbastanza semplici per utilizzare Access
con Visual basic ?
Io uso Visual Basic da autodidatta.
Grazie
--
Nicole


title: Visual Basic e Access

author: stwe

text:
"Nicole" <
n.i...@inwind.it
> ha scritto nel messaggio
news:9mrd3h$gga$1...@nreadb.inwind.it...

access visual basic passo per passo
Mondadori Informatica
io o iniziato da lě e poco dopo sono passato a Access 2000 Manuale di
programmazione (Jackson Libri) che tutti reputano la "bibbia" e che č
veramente indispensabile...
by
stwe


title: Visual Basic e Access

author: Sib dal portatile

text:
"Nicole" <
n.i...@inwind.it
> ha scritto nel messaggio
news:9mrd3h$gga$1...@nreadb.inwind.it...
> Sapreste consigliarmi dei libri, abbastanza semplici per utilizzare Access
> con Visual basic ?
> Io uso Visual Basic da autodidatta.
Sul sito comune trovi alcune recensioni di libri
Sib


title: Creare un Bottone SFOGLIA in una maschera

author: Pisinho

text:
Sicuramente e' possibile ma non so' come si fa'.
Vorrei metere su di una maschera un bottone con il classico comando sfoglia
che navighi all'interno delle risorse del computer alla ricerca del file.
Dopo averlo selezionato il nome completo di percorso attribuirlo ad una
casella di testo. Come posso fare?
Grazie mille.


author: Roberto da casa

text:
"Pisinho" <
li...@fol.it
> ha scritto nel messaggio
news:apo8v6$ui$1...@newsreader.mailgate.org...

Vai sul Sito Comune (link qui sotto), ci trovi un paio di soluzioni al tuo
problema: una soluzione la trovi leggendo nella Sezione General la FAQ di
Stefano Bettini intitolata "Richiamare la finestra di dialogo per la
selezione di un file", l'altra la trovi nella FAQ delle API della Sezione
Modules.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Fatture senza dettagli

author: cidi

text:
Salve a tutti
In una maschera per evitare di avere Fatture senza dettagli ho dovuto
togliere i pulsanti di spostamento (vedi il mio precedente post: "Pulsante
nuovo record disabilitato") però non mi sembra una buona soluzione in quanto
costringe l'utente a chiudere e riaprire la maschera. Rispiego il problema.
maschera fattura e smdettagli: inserisco cliente da una combo con una
routine, su "prima di aggiornare", della form mi salvo il record e passo
alla sottomaschera dettagli. A questo punto se clicco sul pulsante
"disabilitato" di nuovo record mi aggiorna la maschera con un "solo" nuovo
numero di fattura, a questo punto il pulsante non inserisce più fino ad un
nuovo aggiornamento dalla combo del cliente. Naturalmente le due tabelle
hanno relazioni uno a molti con integrità referenziale, aggiorna ed elimina
record correlati
Grazie anticipate a chi volesse aiutarmi a capire.
Saluti Daniele


title: Fatture senza dettagli

author: Sib

text:
"cidi" <
dadonzin...@tin.it
> ha scritto nel messaggio

Anche tu devi aiutarci a capire.
Io non ho capito molto di cosa vuoi dire.
Sib


title: Fatture senza dettagli

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:XC1ya.198594$K35.4...@news2.tin.it...

Grazie Sib per la risposta, forse non era molto chiaro il mio post
....possiamo chiarirci :-)
vorrei fare in modo che l'utente abbia la possibilità di fare più fatture
senza chiudere e riaprire la maschera. Capire, anche, il perchè un pulsante
(di spostamento) disabilitato aggiunge un nuovo record. Ho anche provato a
rifare maschera e sottomaschera ....ma sempre con lo stesso errore.
saluti Daniele


title: collegamento ipertesto?

author: Angelo e Irene

text:
Ho la necessita' di creare preventivi per assicurazione che ha mandato per
diverse compagnie; e' un casino creare tabelle che comprendato i diversi
tipi di campi e per di piu' alcuni campi si dovrebbero attivare in base a
nome compagni e altri no, per non parlare delle percentuali per calcolo dei
premi......cosi0' ho pensato se si potesse urilizzare i file in excel che
sono gia' impostati e una volta fatto il preventivo salvare il file con nome
ed "allegarlo al cliente dell' archivio anagrafiche?.....come si puo'
fare?...grazie.


title: SQL in Access

text:
Esiste una funzione per importare in Access un file *.sql.
Grazie
Kirk
-------------------------
http://www.giocatori.org
Free Server LineageII
-------------------------
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: SQL in Access

author: Gabriele Bertolucci

text:
> Esiste una funzione per importare in Access un file *.sql.
I file con estensione SQL di solito sono degli script T-SQL di SQL Server,
quindi non vedo come sia possibile importarli in Access.
Tu cosa vorresti ottenere?
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


title: SQL in Access

text:
Gabriele Bertolucci ha scritto:
> I file con estensione SQL di solito sono degli script T-SQL di SQL Server,
> quindi non vedo come sia possibile importarli in Access.
Ci ho provato.
> Tu cosa vorresti ottenere?
Ho dei file sql crati per mysql che vorrei importare in un pgm access.
Ho provato con le tabelle collegate e ODBC direttamente su Mysql ma in
certi campi con determinati valori mi presenta "#errore"
Quindi ho utilizzato un tool come Navicat ed usanto l'export in questo
modo tutto e' andato correttamente.
Volevo solo capire se esisteva il modo per baypassarlo e farlo
direttamente.



title: passare a record successivo in form

author: Francis

text:
Salve a tutti,
ho bisogno di un aiuto per risolvere questo problema.
In una form con visualizzazione maschere continue, vengono visualizzati in
successione alcuni record filtrati da una tabella esistente; in ogni record
devo inserire un valore in un campo e poi passare ad un altro record.
Io voglio che l'utente debba cominciare ad inserire questo valore partendo
sempre e solo dal primo record visualizzato (il secondo e tutti gli altri
non possono essere neanche selezionati); dopo che il primo record č stato
aggiornato con il valore, devo passare al secondo record (col terzo e gli
altri successivi sempre disabilitati) e cosě via per tutti i record
successivi; aggiornato il terzo si abilita il quarto (col quinto e gli altri
successivi disabilitati) e cosě via.
Chiaramente sarebbe tutto piů semplice se usassi una visualizzazione a
maschera singola, ma il cliente (esigente) vuole che debba fare esattamente
come ho descritto.
Qualcuno fra un tuffo e l'altro puň aiutarmi?
Grazie


title: Access e Outlook

author: tambu

text:
E' possibile fare un Database con Access che in una casella, in un campo, in
una maschera, insomma, da qualche parte abbia un link al un contatto di
Outlook o - meglio - che possa visualizzarne i dati in copia?
Tipo le tabelle pivot di Excel: qualche comando per cui io possa inserire la
copia di una cartella (contatti) di outlook e, quando lo richiedo od in modo
automatico, access aggiorni i dati.
Mi servirebbe perché così posso tenere monitorato un certo gruppo di clienti
con altri campi, se no mi tocca fare tutto da Outlook.


title: Access e Outlook

author: Aulisio Paolo

text:
tambu wrote:
> E' possibile fare un Database con Access che in una casella, in un campo, in
> una maschera, insomma, da qualche parte abbia un link al un contatto di
> Outlook o - meglio - che possa visualizzarne i dati in copia?
>
> Tipo le tabelle pivot di Excel: qualche comando per cui io possa inserire la
> copia di una cartella (contatti) di outlook e, quando lo richiedo od in modo
> automatico, access aggiorni i dati.
>
> Mi servirebbe perché cosě posso tenere monitorato un certo gruppo di clienti
> con altri campi, se no mi tocca fare tutto da Outlook.
se sei con access2000 puoi collegarti qualsiasi cartella Outlook come fosse una
tabella collegata.
con Access97 č un pň piů complicato.
ciao
Paolo


title: Access e Outlook

text:
Io volevo collegarmi ad un elemento, non alla cartella. Cioč al contatto,
non alla cartella contatti. Access 2000.


title: Riga superiore...

author: Davide

text:
Ringrazio namor per la risposta al mio del 10/5. Ho guardato sul Sito comune
ma non sono riuscito ad adattare al mio problema il modulo per il calcolo
del totale progressivo in una query (non sono un esperto!).
Io ho semplicemente bisogno di una funzione che mi riporti, in una query, il
valore del Campo1 del record precedente nello stesso campo del record
corrente. Poi dovrei aggiungere la condizione. Es:
Campo1:
IIf(Campo2=Determinato_valore;Campo2;Valore_del_Campo1_al_record_precedente)
Qualcuno sa darmi la funzione da inserire in un modulo (oppure dirmi quale
funzione usare se esiste) per richiamare
Valore_del_Campo1_al_record_precedente?
Ciao, Davide
ps: dopo due invii finiti sotto il messaggio originale ho capito: si deve
cambiare l'oggetto!


title: Riga superiore...

author: fabrizio

text:
Il 12 Mag 2004, 16:11, "Davide" <
davidelli-N...@tiscali.it
> ha
scritto:

Non credo si possa fare in una query, ti consiglio di scrivere una funzione
in vb che cicli il la tabella e faccia le operazioni di cui hai bisogno.
Ciao.
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Riga superiore...

author: namor

text:
Davide ha scritto:

> Campo1:
> IIf(Campo2=Determinato_valore;Campo2;Valore_del_Campo1_al_record_precedente)


Crea un nuovo modulo, mettici una funzione cosě:
public function riga_precedente(Valore as variant)
Static Valore_precedente as variant
  riga_precedente=Valore_precedente
  Valore_precedente=Valore
end function
e nella query per riferirti al valore del campo1 nel record precedente usi
l'espressione
  riga_precedente(campo1)
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: sitocomune.com

author: Giuseppe

text:
scusate se magari violo qualche regola del NG inserendo questa domanda
, ma essendo io Nuovo desideravo chiedere come mai il sitocomune nn
viene aggiornato ? Grazie per l'eventuale risposta
mi auguro di poter essere utile a tanti cosi come tanti da quando sono
iscritto lo sono con me :-)


title: sitocomune.com

author: PBsoft

text:
> scusate se magari violo qualche regola del NG inserendo questa domanda
> , ma essendo io Nuovo desideravo chiedere come mai il sitocomune nn
> viene aggiornato ? Grazie per l'eventuale risposta
Non violi nessuna regola.
Ecco alcuni motivi:
1) chi mantiene il sito lo fa gratis;
2) chi mantiene il sito lo fa nel tempo libero;
3) probabilmente il sito è talmente ricco che non ci sono cose da aggiungere
(questa è pretenziosa :-) )
> mi auguro di poter essere utile a tanti cosi come tanti da quando sono
> iscritto lo sono con me :-)
Ecco un buon motivo per risolvere almeno il punto 3 :-)
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


title: sitocomune.com

author: Alessandro Baraldi

text:
Giuseppe ha scritto:

Come non viene aggiornato....?
Diciamo che l'ultimo aggiornamento risale a Marzo...!
Come però credo tu possa intuire, l'aggiornamento avviene se gli
utenti forniscono materiale utile, e se questo raggiunge una quantità
tale per cui valga la pena effettuare un'aggiornamento.
Pertanto puoi contribuire con tuoi spunti al fine di fornire una
collaborazione attiva e non solo passiva....!!!
@Alex


title: re posting

author: Riccardo Casadei

text:
Ciao a tutti,
alcune volte posto dei messaggi sul NG, vedi che qualcuno risponde, ma poi
se tento di rispondere a mia volta i messaggi non partono mai.
Stessa cosa se cerco di rispondere a qualcuno.
Sapete dirmi cosa posso controllare o da cosa può dipendere l'errore ?
Ric


title: re posting

text:
"Riccardo Casadei" <
riccardo...@apraromagna.it
> ha scritto nel
messaggio news:a922uh$nlj$1...@fe1.cs.interbusiness.it...

Se come newsreader usi Outlook Express, probabilmente non hai inserito il
tuo indirizzo di posta elettronica nell'Indirizzo per risposte della scheda
Generale delle Proprietà delle News nel tuo account di posta elettronica
(Strumenti-> Account...-> News -> Proprietà-> Generale).
Verifica di aver inserito il tuo indirizzo di posta elettronica anche
nell'Indrizzo per risposte della scheda Generale delle proprietà della Posta
Eletrronica del tuo account di posta elettronica (Strumenti-> Account... ->
Posta Elettronica -> Proprietà -> Generale).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: specifiche di importazione

author: arirang

text:
Ciao a tutti....ecco il problema del giorno...
importo regolarmente file di testo in tabelle da codice utilizzando
transfertext e delle specifiche di importazione già predisposte
precedentemente.
Talora mi capita di dover effettuare una "manutenzione" - tanto per dire -
alle specifiche...nel senso che ho bisogno di aggiungere uno o piu' campi in
quanto si è venuto a modificare il tracciato record.
sinora non sono stato mai capace di modificare una specifica preesistente e
mi sono ritrovato ahime' a dover riscrivere le specifiche.
Alle volta, come oggi ad esempio, questa cosa è assai onerosa in quanto la
tabella in questione contiene oltre un centinaio di colonne.
'E possibile...modificare le specifiche e se si in quale modo.?
ringrazio tutti per la disponibilità e a presto
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: specifiche di importazione


title: specifiche di importazione

author: Sergio MAZZA

text:
"arirang" <
ari...@libero.it
> ha scritto nel messaggio
news:193Z203Z232Z5Y1...@usenet.libero.it...

Puoi utilizzare anche il file schema.ini e modificarlo come vuoi:
http://search.msdn.microsoft.com/search/default.aspx?__VIEWSTATE=&query=access+schema+ini&siteid=0&tab=1
Ciao.
--
Sergio MAZZA


title: specifiche di importazione

author: Bruno Campanini

text:
"arirang" <
ari...@libero.it
> wrote in message
news:193Z203Z232Z5Y1...@usenet.libero.it...

1 - imposta un'importazione cui si renda applicabile la specifica
2 - invoca la specifica
3 - modificala
4 - salvala
5 - annulla l'importazione
Non mi pare insorgano particolari difficoltà.
Bruno


title: specifiche di importazione

text:

a parole è come dici...
ma dopo aver modificato la specifica ed averla salvata ( e giuro non ottengo
alcuna segnalazione di errore) quando vado a riaprire quelle specifiche le
modifiche tanto desiderate non risultano salvate.
il problema ressta inalterato.
antonio



title: specifiche di importazione

author: Mario De Ghetto

text:
> > 1 - imposta un'importazione cui si renda applicabile la specifica
> > 2 - invoca la specifica
> > 3 - modificala
> > 4 - salvala
> > 5 - annulla l'importazione
> a parole è come dici...
> ma dopo aver modificato la specifica ed averla salvata ( e giuro non ottengo
> alcuna segnalazione di errore) quando vado a riaprire quelle specifiche le
> modifiche tanto desiderate non risultano salvate.
> il problema ressta inalterato.
Confermo. Lo stesso problema l'ho riscontrato anch'io da Access 2000 in
poi (non la 97 non succedeva).
Interessante la soluzione di Sergio Mazza con un file schema.ini...
Mario De Ghetto
www.deghetto.it


title: specifiche di importazione

author: MA

text:

E' successo anche a me.
Ho dovuto rifare ex novo le specifiche, dopodichè è filato tutto via liscio
--
--
Massimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: specifiche di importazione

text:
"arirang" <
ari...@libero.it
> wrote in message
news:193Z203Z232Z5Y1...@usenet.libero.it...
> a parole è come dici...
> ma dopo aver modificato la specifica ed averla salvata ( e giuro non
> ottengo
> alcuna segnalazione di errore) quando vado a riaprire quelle specifiche le
> modifiche tanto desiderate non risultano salvate.
No Antonio, non a parole, a fatti!
Qui da me (Access 2003 aggiornato, versione inglese)
modifico sia le specifiche d'importaziione, sia quelle d'esportazione.
E le modifiche risultano effettivamente apportate, talché al successivo
richiamo si presentano come le ho variate.
Ma non mi stupisco che altre versioni di Access si comportino
in modo diverso.
Fin dalla sua nascita (1992) Access me ne ha fatte vedere
di cotte e di crude.
Tu, e la domanda vale anche per MA e Mario, che versione
stai usando esattamente?
Bruno


title: [?] Da colonne a righe, con Access

author: -> Dave <-

text:
Ciao a tutti !
Volevo chiedere a qualcuno di voi esperti di Access, se é possibile
risolvere questo mio problema.
Ho una sorgente di dati che mi crea un database, e in pratica mi invia 5
dati (che sarebbero 5 campi). Solo che non me li invia su una riga sola
separata dai campi, ma mi mette i dati incolonnati in verticale, 5 alla
volta.
Quello che devo fare io é prendere questi dati 5 alla volta, e da li creare
una riga mettendo ogni dato nel relativo campo.
Sapete se é possibile farlo solo con Access ?  mi sapreste consigliare una
soluzione ?
Grazie mille e alla prossima !
DaVe


title: [?] Da colonne a righe, con Access

author: Antonio Biso

text:
-> Dave <- ha scritto nel messaggio <8b53se$4r1$
1...@bw107zhb.bluewin.ch
>...
>Ciao a tutti !
>
>Volevo chiedere a qualcuno di voi esperti di Access, se é possibile
>risolvere questo mio problema.
>
>Ho una sorgente di dati che mi crea un database, e in pratica mi invia 5
>dati (che sarebbero 5 campi). Solo che non me li invia su una riga sola
>separata dai campi, ma mi mette i dati incolonnati in verticale, 5 alla
>volta.
>
>Quello che devo fare io é prendere questi dati 5 alla volta, e da li creare
>una riga mettendo ogni dato nel relativo campo.
Che roba è 'sta sorgente dati?
Antonio


title: Come trasferire toolbar da Access 2003 a 2013 ?

author: RobertoA

text:
Aprendo con Access 2013 una procedura realizzata con Access 2003, vedo
la toolbar personalizzata sotto il tab COMPONENTI PERSONALIZZATI
Ho girovagato tra i comandi della nuova versione ma non trovo come
importare la vecchia toolbar
La domanda e': usando Access 2013, come fare per importare dal vecchio
programma quella toolbar?
Ciao e grazie
RobertoA


author: Simone Calligaris

text:
"RobertoA" <

--------------------------------------------------------------------------

Te l'ha già importata: quello che vedi è il modo in cui Access >= 2007
tratta le vecchie toolbars.
Che io sappia  non è possibile escludere i Ribbons e visualizzare solo le
toolbars (ottenendo un look identico alle versioni precedenti).

Saluti.

---
Questa email e stata esaminata alla ricerca di virus da AVG.
http://www.avg.com


text:
Se la versione A2013 ha estensione ACCDB non vedrai MAI le CommandBars ad eccezione del type msoBarPopup.
La versione ACCDB utilizza i RIBBONS per la gioia di tutti... in realtà sono molto potenti e graficamente meglio... ma... meno intuitivi.

@Alex


text:
Il 13/10/2017 14:09, Simone Calligaris ha scritto:
> "RobertoA" <
> Aprendo con Access 2013 una procedura realizzata con Access 2003, vedo
> la toolbar personalizzata sotto il tab COMPONENTI PERSONALIZZATI
> Ho girovagato tra i comandi della nuova versione ma non trovo come
> importare la vecchia toolbar
> La domanda e': usando Access 2013, come fare per importare dal vecchio
> programma quella toolbar?
> Ciao e grazie
>
>
> --------------------------------------------------------------------------
>
> Te l'ha già importata: quello che vedi è il modo in cui Access >= 2007
> tratta le vecchie toolbars.
> Che io sappia  non è possibile escludere i Ribbons e visualizzare solo le
> toolbars (ottenendo un look identico alle versioni precedenti).
>
> Saluti.

Non mi sono spiegato bene
Se apro col 2013 un file 2000 con all'interno una toolbar
personalizzata, col 2013 la vedo sotto COMPONENTI PERSONALIZZATI, e fin
qua va bene
Stavo cercando come importare una toolbar nell'ipotesi di creare un
nuovo file usando il 2013, formato mdb
Finora mi sembra non sia possibile importarla su un file mdb creato col 2013
Non c'e' proprio il comando, o almeno non lo vedo io


author: Potone

text:

Ciao,
vai su "Dati Esterni", Access
Selezioni il file da cui importare e click su Ok
Vedrai l'elenco degli oggetti (tabelle, ecc) presenti nel file, cerca il pulsante "Opzioni >>", click sul pulsante.

Vedrai aprirsi (in basso) le opzioni aggiuntive tra cui:
Menu e barre degli strumenti

Non c'è la possibilità di importare in modo "selettivo", verranno importati tutti i menu e le barre contenute nel file di origine.

Ciao
Mat.

p.s. a me funziona anche con gli ACCDB


title: Recupero path ed altre storie

author: Emilia Lorenzi

text:
Ciao a tutti,
Ho fatto con A2000 una maschera che mi visualizza delle immagini.
L'immagine viene caricata tramite il classico metodo
Me![Immagine].Picture = Me![path]
In un precedente post avevo chiesto come eliminare la finestra di
caricamento della jpg tramite l'intervento sul regedit.exe ma non ho
ricevuto risposta..
Ma ora ho un dubbio .
Ho un path del tipo "C:\foto\Lucia\mare.jpg" e vorrei recuperare la stringa
"C:\foto\Lucia" cioč il path senza il nome del file.
In quale parte oscura dell'help devo andare a curiosare?
grazie anticipate
Emilia Lorenzi


title: Recupero path ed altre storie

text:
"Emilia Lorenzi" <
em...@virgilio.it
> ha scritto nel messaggio
news:vOsrc.311299$rM4.12...@news4.tin.it...
> Ciao a tutti,
> Ho fatto con A2000 una maschera che mi visualizza delle immagini.
> L'immagine viene caricata tramite il classico metodo
> Me![Immagine].Picture = Me![path]
> In un precedente post avevo chiesto come eliminare la finestra di
> caricamento della jpg tramite l'intervento sul regedit.exe ma non ho
> ricevuto risposta..
www.sitocomune.com
> Ma ora ho un dubbio .
> Ho un path del tipo "C:\foto\Lucia\mare.jpg" e vorrei recuperare la
stringa
> "C:\foto\Lucia" cioč il path senza il nome del file.
> In quale parte oscura dell'help devo andare a curiosare?
Help in linea alla voce: Restituzione di risultati di tipo String con le
funzioni
> grazie anticipate
>
> Emilia Lorenzi
Ciao.
--
Sergio MAZZA


title: Recupero path ed altre storie

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:NsDrc.227116$hc5.9...@news3.tin.it...
> "Emilia Lorenzi" <
em...@virgilio.it
> ha scritto nel messaggio
> news:vOsrc.311299$rM4.12...@news4.tin.it...
...... Ho un path del tipo "C:\foto\Lucia\mare.jpg" e vorrei recuperare la
> stringa
> > "C:\foto\Lucia" cioč il path senza il nome del file.
> > In quale parte oscura dell'help devo andare a curiosare?
>
> Help in linea alla voce: Restituzione di risultati di tipo String con le
> funzioni
>
> > grazie anticipate
> >
> > Emilia Lorenzi
>
> Ciao.
>
> --
> Sergio MAZZA
****************************************************************************
**************************
Grazie per la risposta ma, malgrado i tentativi l'help non mi ha
...restituito niente
Ciao
Emilia


title: Recupero path ed altre storie

text:
"Emilia Lorenzi" <
em...@virgilio.it
> ha scritto nel messaggio
news:m4Frc.227442$hc5.9...@news3.tin.it...

Strano; comunque con le funzioni che ti permettono di manipolare le stringhe
puoi crearti una funzione del genere:
Function recuperoPath(percorso As String) As String
Dim lS As Integer, cA As Integer, carattere As String, carDaTogliere As
Integer
lS = Len(percorso)
For cA = lS To 1 Step -1
    carattere = Mid(percorso, cA, 1)
    If carattere <> "\" Then
        carDaTogliere = carDaTogliere + 1
    Else
        cA = 0
        Exit For
    End If
Next
recuperoPath = Left(percorso, lS - carDaTogliere)
End Function
Ciao.
--
Sergio MAZZA


title: Recupero path ed altre storie

text:

****************************************************************************
********
Funziona : grazie per la risposta ma... ora il difficile č capire il perchč
:-)
ancora grazie
Emilia


title: Compressione Unicode

author: Sandrobi

text:
Nei campi testo delle tabelle la Compressione Unicode serve a qualcosa?
L'help fa un grande giro di parole ma se ho capito bene, per i normali
caratteri alfanumerici è esattamente la stessa cosa mettere Si o No.
Sbaglio?
--
Ciao, Sandrobi


title: Compressione Unicode

author: Carlo Costarella

text:
"Sandrobi" <
sand...@tiscali.it
> ha scritto nel messaggio
news:493844c2$0$1074$4faf...@reader2.news.tin.it...
> Nei campi testo delle tabelle la Compressione Unicode serve a qualcosa?
> L'help fa un grande giro di parole ma se ho capito bene, per i normali
> caratteri alfanumerici č esattamente la stessa cosa mettere Si o No.
> Sbaglio?
>
> --
> Ciao, Sandrobi
>
Sě serve perchč comprime i record...ma non tutti. Leggi qui:
http://office.microsoft.com/it-it/access/HP052604161040.aspx
Ciao, Carlo


title: Compressione Unicode

text:
"Carlo Costarella" <
carloantoni...@gmail.com
> ha scritto nel
messaggio news:gheec2$uld$1...@tdi.cu.mi.it...
>
> "Sandrobi" <
sand...@tiscali.it
> ha scritto nel messaggio
> news:493844c2$0$1074$4faf...@reader2.news.tin.it...
>> Nei campi testo delle tabelle la Compressione Unicode serve a qualcosa?
>> L'help fa un grande giro di parole ma se ho capito bene, per i normali
>> caratteri alfanumerici è esattamente la stessa cosa mettere Si o No.
>> Sbaglio?
>>
>> --
>> Ciao, Sandrobi
>>
>
> Sì serve perchè comprime i record...ma non tutti. Leggi qui:
>
http://office.microsoft.com/it-it/access/HP052604161040.aspx
Dimmi allora cosa vuol dire questa frase:
"Poiché il primo byte di un carattere latino (ovvero un carattere di una
lingua europea occidentale come l'inglese, l'italiano o il tedesco) è 0, la
rappresentazione dei caratteri Unicode non ha effetto sulla quantità di
spazio richiesta per la memorizzazione dei dati compressi che consistano
esclusivamente di caratteri latini."
Per i caratteri latini riduce lo spazio o no?
Sandrobi


title: Compressione Unicode

text:
"Sandrobi" <
sand...@tiscali.it
> ha scritto nel messaggio
news:493ae40a$0$40305$4faf...@reader5.news.tin.it...

(IMHO) è semplice ...ma per capirlo bisogna approfondire l'unicode. La
rappresentazione unicode anzichè usare un byte (otto bit) ne usa due e
questo gli permette
di supportare 65.536 caratteri anzichè 256.
Già solo questo aspetto ti fa ben capire che per scrivere "sandrobi" in
unicode occorrerebbero il doppio di byte.
E tanti ne occorerebbero senza la compressione unicode, la quale, nel caso
dei caratteri latini che hanno sempre lo zero davanti, "comprime" appunto i
due byte in uno, non considerando lo zero.
Insomma con la compressione unicode impostata a sì, benefici di 65.536
caratteri pur "consumando" un solo byte (otto bit) per carattere.
Chi usa la compressione unicode con altri alfabeti (per esempio il cirillico
o l'ebraico o l'arabo) non si avvantaggia molto di questa caratteristica
perchè, per esempio, il primo byte inizia con 110.
Pur tuttavia l'unicode ti permette di localizzare il tuo db in quasi tutte
le lingue potendo rappresentare (con due byte) praticamente tutti i
caratteri.
Dimmi che mi sono capito....
Ciao, Carlo


title: Compressione Unicode

text:
"Carlo Costarella" <
carloantoni...@gmail.com
> ha scritto nel
messaggio news:ghg288$btg$1...@tdi.cu.mi.it...

Ti ringrazio per la spiegazione che sicuramente mi arricchisce di qualche
elemento in più ... "purtuttavia" non è per essere pignoli ma leggere che
"...la rappresentazione dei caratteri Unicode non ha effetto sulla quantità
di  spazio richiesta per la memorizzazione dei dati compressi che consistano
esclusivamente di caratteri latini." che diavolo vuol dire? O è una cattiva
traduzione o una cattiva spiegazione! specie se l'autore voleva dire: "se
usi caratteri latini metti sempre SI che risparmi la meta di spazio di
memorizzazione". e poi doveva anche spiegare quale è l'utilità di prevedere
di impostare a NO la compressione: c'è forse un aspetto negativo non detto,
tipo un rallentamento dei processi? altrimenti perché prevedere un'opzione
per chiedermi se la benzina voglio pagarla per intero o a metà prezzo?
Scusa lo sfogo, ma leggere e rileggere una pagina di help senza poter alla
fine capire cosa è meglio fare, non è il massimo!
Ciao, Sandrobi


title: Compressione Unicode

text:
"Sandrobi" <
sand...@tiscali.it
> ha scritto nel messaggio
news:493ee09e$0$41664$4faf...@reader4.news.tin.it...

A volte le parole scritte sono difficili da comprendere...ma (imho) non in
questo caso.
Le parole chiave da sottolineare sono due: "rappresentazione" e
"memorizzazione dei dati COMPRESSI".
La memorizzazione dei dati COMPRESSI (compressione = vero) non ha effetto
sulla quantità di spazio richiesto se i dati sono esclusivamente in
caratteri latini e sono "rappresentati" in unicode. Tutto ciò è possibile,
uno, perchè si usa l'unicode per la rappresentazione dei caratteri e due,
perchè si usa la compressione.
Lo spazio richiesto non varia perchè la compressione (impostata a sì) viene
attivata al momento della memorizzazione e "scompattata" al momento della
visualizzazione. I dati memorizzati sono già compressi...quello è lo spazio
occupato.
Un db dalla versione 2000 in poi occupa lo stesso spazio di un db 97, se
scritto in caratteri latini, e non il doppio come ci si aspetterebbe a causa
dell'unicode (due byte per carattere), ma grazie alla compressione.
Per capirlo ci si potrebbe porre una domanda come questa:
se il db è scritto in cirillico ci si avvantaggia ad usare la compressione
unicode?
La risposta è evidentemente NO.
Perchè non conviene?
Perchè la compressione agisce solo sul primo byte = a zero e i caratteri
cirillici hano il primo byte impostato a 110.
A meno di sospettare serie patologie mentali, un motivo per aggiungere la
possbibilità di impostare la compressione unicode, i tecnici microsoft
avranno avuto un motivo abbastanza valido. O no?
La nota esplicativa è necessaria perchè con Access e unicode non si
ottengono benefici ad usare la compressione se i caratteri non sono latini.
Siccome Access è un db non solo multilingue ma che può accettare qualsiasi
tipo di carattere e in qualsiasi lingua.
Ben lo sanno quei partecipanti al NG che localizzano i loro db in lingua
THAY o in cinese...ricordi i post di qualche anno fa?
Anzi, a questo proposito, posso aggiungere che ci sono grossi problemi con
il pur magnifico unicode, per esempio con il cinese che possiede più di
50.000 "segni".
Già si pensa ad una nuova rappresentazione dei caratteri.
Ciao, Carlo


title: numerazione fattura formato testo

author: Giuseppe

text:
Ripropongo il problema sperando di esporlo meglio e che qualche
esperto mi aiuti.
Ho un database multiaziendale.
Tabelle: tblAziende campi IdAzienda ecc.. , tblFatture campi
IdAzienda, NFattura.
Per la numerazione ho applicato l'esempio del sito comune. Nel valore
predefinito ho:
="" & Format(IIf(IsNull(DMax("[NFattura]";"[tblFatture]";"[NFattura]
like '???/" & Format(Date();"aa") & "'"));
1;Mid(DMax("[NFattura]";"[tblFatture]";"[NFattura] like '???/" &
Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa")
Quindi la numerazione è 001/08 e così via.
A me serve che la numerazione sia progressiva in base all'IdAzienda
scelta.
Quindi ho messo sul campo Nfattura sugli eventi "clic" o "su attivato"
la funzione che mi assegna la numerazione progressiva tenendo conto
dell'IdAzienda scelto.
Ho provato così ma non funziona
NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1], "[NFattura] like
'???/" & Format(Date();"aa") & "'"));
1;Mid(DMax("[NFattura]";"[tblFatture]";"[IDAzienda]= " & Forms!
[frmFatture]![IDAzienda1],"[NFattura] like '???/" &
Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa").
Mi date una dritta per favore?


title: numerazione fattura formato testo

author: VT @ home

text:
Il Thu, 10 Apr 2008 08:57:18 -0700 (PDT), Giuseppe <
gcard...@tin.it
> ha scritto:
>(.....)
>A me serve che la numerazione sia progressiva in base all'IdAzienda
>scelta.
>Quindi ho messo sul campo Nfattura sugli eventi "clic" o "su attivato"
>la funzione che mi assegna la numerazione progressiva tenendo conto
>dell'IdAzienda scelto.
>Ho provato cosě ma non funziona
>NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
>"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1], "[NFattura] like
>'???/" & Format(Date();"aa") & "'"));
>1;Mid(DMax("[NFattura]";"[tblFatture]";"[IDAzienda]= " & Forms!
>[frmFatture]![IDAzienda1],"[NFattura] like '???/" &
>Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa").
>Mi date una dritta per favore?
NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura] like
'???/" & Format(Date();"aa") & "'"));
1;Mid(DMax("[NFattura]";"[tblFatture]";"[IDAzienda]= " & Forms!
[frmFatture]![IDAzienda1] & " AND [NFattura] like '???/" &
Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa").
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------


title: numerazione fattura formato testo

author: CIDI

text:
"Giuseppe" <
gcard...@tin.it
> ha scritto nel messaggio
news:84911f94-5e4f-48ef...@z38g2000hsc.googlegroups.com...
Ripropongo il problema sperando di esporlo meglio e che qualche
esperto mi aiuti.
Ho un database multiaziendale.
Tabelle: tblAziende campi IdAzienda ecc.. , tblFatture campi
IdAzienda, NFattura.
Per la numerazione ho applicato l'esempio del sito comune. Nel valore
predefinito ho:
="" & Format(IIf(IsNull(DMax("[NFattura]";"[tblFatture]";"[NFattura]
like '???/" & Format(Date();"aa") & "'"));
1;Mid(DMax("[NFattura]";"[tblFatture]";"[NFattura] like '???/" &
Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa")
Quindi la numerazione č 001/08 e cosě via.
A me serve che la numerazione sia progressiva in base all'IdAzienda
scelta.
Quindi ho messo sul campo Nfattura sugli eventi "clic" o "su attivato"
la funzione che mi assegna la numerazione progressiva tenendo conto
dell'IdAzienda scelto.
Ho provato cosě ma non funziona
NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1], "[NFattura] like
'???/" & Format(Date();"aa") & "'"));
1;Mid(DMax("[NFattura]";"[tblFatture]";"[IDAzienda]= " & Forms!
[frmFatture]![IDAzienda1],"[NFattura] like '???/" &
Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa").
Mi date una dritta per favore?
Ciao Giuseppe
vedi se puň aiutarti:
http://tinyurl.com/432hy5
Daniele


title: numerazione fattura formato testo

text:
On 10 Apr, 21:07, "VT @ home" <
V...@home.it
> wrote:
> Il Thu, 10 Apr 2008 08:57:18 -0700 (PDT), Giuseppe <
gcardas...@tin.it
> ha scritto:
>
> >(.....)
> >A me serve che la numerazione sia progressiva in base all'IdAzienda
> >scelta.
> >Quindi ho messo sul campo Nfattura sugli eventi "clic" o "su attivato"
> >la funzione che mi assegna la numerazione progressiva tenendo conto
> >dell'IdAzienda scelto.
> >Ho provato così ma non funziona
> >NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
> >"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1], "[NFattura] like
> >'???/" & Format(Date();"aa") & "'"));
> >1;Mid(DMax("[NFattura]";"[tblFatture]";"[IDAzienda]= " & Forms!
> >[frmFatture]![IDAzienda1],"[NFattura] like '???/" &
> >Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa").
> >Mi date una dritta per favore?
>
> NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
> "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura] like
> '???/" & Format(Date();"aa") & "'"));
> 1;Mid(DMax("[NFattura]";"[tblFatture]";"[IDAzienda]= " & Forms!
> [frmFatture]![IDAzienda1] & " AND [NFattura] like '???/" &
> Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa").
>
> Vincenzo Turturro
>
> Certificato Eucip Core Level
> ITA 0000-002299 del 14/05/2007
> ---------------------------------------------
> il sito comune di it.comp.appl.access:
http://www.sitocomune.com
> ---------------------------------------------
> risorse Access:
http://www.accessgroup.it
> ---------------------------------------------
> Il sito comune di it.comp.as400
http://www.faq400.com
> ---------------------------------------------
Grazie per la risposta. Incollando la funzione in vba ho dovuto unire
le righe tirando su con canc.
Il codice me lo mette in rosso dicendo "errore di compilazione:
Previsto:separatore di elenco oppure )   evidenziandomi il punto e
virgola dopo
Format(Date() e prima di "aa"). Un errore di punteggiatura? A dopo.


title: numerazione fattura formato testo

text:
On 10 Apr, 21:35, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Giuseppe" <
gcardas...@tin.it
> ha scritto nel messaggionews:84911f94-5e4f-48ef...@z38g2000hsc.googlegroups.com...
> Ripropongo il problema sperando di esporlo meglio e che qualche
> esperto mi aiuti.
> Ho un database multiaziendale.
> Tabelle: tblAziende campi IdAzienda ecc.. , tblFatture campi
> IdAzienda, NFattura.
> Per la numerazione ho applicato l'esempio del sito comune. Nel valore
> predefinito ho:
> ="" & Format(IIf(IsNull(DMax("[NFattura]";"[tblFatture]";"[NFattura]
> like '???/" & Format(Date();"aa") & "'"));
> 1;Mid(DMax("[NFattura]";"[tblFatture]";"[NFattura] like '???/" &
> Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa")
> Quindi la numerazione è 001/08 e così via.
> A me serve che la numerazione sia progressiva in base all'IdAzienda
> scelta.
> Quindi ho messo sul campo Nfattura sugli eventi "clic" o "su attivato"
> la funzione che mi assegna la numerazione progressiva tenendo conto
> dell'IdAzienda scelto.
> Ho provato così ma non funziona
> NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
> "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1], "[NFattura] like
> '???/" & Format(Date();"aa") & "'"));
> 1;Mid(DMax("[NFattura]";"[tblFatture]";"[IDAzienda]= " & Forms!
> [frmFatture]![IDAzienda1],"[NFattura] like '???/" &
> Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa").
> Mi date una dritta per favore?
>
> Ciao Giuseppe
> vedi se può aiutarti:
http://tinyurl.com/432hy5
>
> Daniele
Grazie Daniele per la risposta. Ho guardato quel post e anche se molto
simile al mio  la differenza è che il mio numero è composto da numero/
aa e quindi la formula è diversa e  più complessa.
Grazie comunque, credo che il codice nel primo posto opportunamente
modificato da Vincenzo Turturro con qualche piccola correzione sulla
punteggiatura funzioni.


title: numerazione fattura formato testo

text:

Allora ho provato a sostituire i vari punti e virgola che mi segnalava
come errore mettendo le virgole.
Il risultato è che dopo aver scelto l'azienda e cliccando o attivando
il campo NFattura mi restituisce 001/aa anzichè il numero progressivo
e /08.
La formula adesso è:
NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura]
like '???/" & Format(Date, "aa") & "'")), 1, Mid(DMax("[NFattura]",
"[tblFatture]", "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & "
AND [NFattura] like '???/" & Format(Date, "aa") & "'"), 1, 3) + 1),
"000") & "/" & Format(Date, "aa")
Continuo a provarci e resto in attesa di un tuo intervento.
Grazie VT.


title: numerazione fattura formato testo

author: VT @ Work

text:
On Fri, 11 Apr 2008 00:13:33 -0700 (PDT), Giuseppe <
gcard...@tin.it
>
wrote:
 (...)
>On 10 Apr, 21:07, "VT @ home" <
V...@home.it
> wrote:
>> Il Thu, 10 Apr 2008 08:57:18 -0700 (PDT), Giuseppe <
gcardas...@tin.it
> ha scritto:
>>
>> >(.....)
>> >A me serve che la numerazione sia progressiva in base all'IdAzienda
>> >scelta.
>> >Quindi ho messo sul campo Nfattura sugli eventi "clic" o "su attivato"
>> >la funzione che mi assegna la numerazione progressiva tenendo conto
>> >dell'IdAzienda scelto.
>> >Ho provato cosě ma non funziona
>> >Mi date una dritta per favore?
>>
>> NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
>> "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura] like
>> '???/" & Format(Date();"aa") & "'"));
>> 1;Mid(DMax("[NFattura]";"[tblFatture]";"[IDAzienda]= " & Forms!
>> [frmFatture]![IDAzienda1] & " AND [NFattura] like '???/" &
>> Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa").
>>
>> Vincenzo Turturro
>>
>> Certificato Eucip Core Level
>> ITA 0000-002299 del 14/05/2007
>> ---------------------------------------------
>> il sito comune di it.comp.appl.access:
http://www.sitocomune.com
>> ---------------------------------------------
>> risorse Access:
http://www.accessgroup.it
>> ---------------------------------------------
>> Il sito comune di it.comp.as400
http://www.faq400.com
>> ---------------------------------------------
>
>Grazie per la risposta. Incollando la funzione in vba ho dovuto unire
>le righe tirando su con canc.
>Il codice me lo mette in rosso dicendo "errore di compilazione:
>Previsto:separatore di elenco oppure )   evidenziandomi il punto e
>virgola dopo
>Format(Date() e prima di "aa"). Un errore di punteggiatura? A dopo.
Fermi tutti !
In VBA devi sostituire i ; con , (non ci avevo fatto caso, nella prima
risposta ...)
Quindi l'espressione diventa:
NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1], "[NFattura] like
'???/" & Format(Date, "aa") & "'")), 1, Mid(DMax("[NFattura]",
"[tblFatture]", "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1],
"[NFattura] like '???/" & Format(Date, "aa") & "'"), 1, 3) + 1),
"000") & "/" & Format(Date, "aa")



title: numerazione fattura formato testo

text:
On 11 Apr, 09:58, "VT @ Work" <V...@Work.it> wrote:
> On Fri, 11 Apr 2008 00:13:33 -0700 (PDT), Giuseppe <
gcardas...@tin.it
>
> wrote:
>  (...)
>
>
>
> >On 10 Apr, 21:07, "VT @ home" <
V...@home.it
> wrote:
> >> Il Thu, 10 Apr 2008 08:57:18 -0700 (PDT), Giuseppe <
gcardas...@tin.it
> ha scritto:
>
> >> >(.....)
> >> >A me serve che la numerazione sia progressiva in base all'IdAzienda
> >> >scelta.
> >> >Quindi ho messo sul campo Nfattura sugli eventi "clic" o "su attivato"
> >> >la funzione che mi assegna la numerazione progressiva tenendo conto
> >> >dell'IdAzienda scelto.
> >> >Ho provato così ma non funziona

Scusa Vincenzo ma ora quando attivo la casella NFattura mi apre Vba e
dice Errore di compilazione, numero errato di argomenti o assegnazione
di proprietà non valida  evidenziano DSum.
Ciao.


title: numerazione fattura formato testo

text:
On Fri, 11 Apr 2008 01:39:18 -0700 (PDT), Giuseppe <
gcard...@tin.it
>
wrote:
 (...)
>
>Scusa Vincenzo ma ora quando attivo la casella NFattura mi apre Vba e
>dice Errore di compilazione, numero errato di argomenti o assegnazione
>di proprietą non valida  evidenziano DSum.
>Ciao.
!?!?!?!
DSum ?
Non nella formula di cui stiamo parlando, suppongo ...



title: numerazione fattura formato testo

text:
On 11 Apr, 11:00, "VT @ Work" <V...@Work.it> wrote:
> On Fri, 11 Apr 2008 01:39:18 -0700 (PDT), Giuseppe <
gcardas...@tin.it
>
> wrote:
>  (...)
>
>
>
> >Scusa Vincenzo ma ora quando attivo la casella NFattura mi apre Vba e
> >dice Errore di compilazione, numero errato di argomenti o assegnazione
> >di proprietà non valida  evidenziano DSum.
> >Ciao.
>
> !?!?!?!
> DSum ?
> Non nella formula di cui stiamo parlando, suppongo ...
>
> Vincenzo Turturro
>
> Certificato Eucip Core Level
> ITA 0000-002299 del 14/05/2007
> ---------------------------------------------
> il sito comune di it.comp.appl.access:
http://www.sitocomune.com
> ---------------------------------------------
> risorse Access:
http://www.accessgroup.it
> ---------------------------------------------
> Il sito comune di it.comp.as400
http://www.faq400.com
> ---------------------------------------------
Scusa mi correggo è DMax.
Giuseppe.


title: numerazione fattura formato testo

text:
On Fri, 11 Apr 2008 09:58:35 +0200, "VT @ Work" <V...@Work.it> wrote:
 (...)
Scusa: nel msg di risposta ho copiato la formula sbagliata invece di
quella corretta !
Fattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura]
like '???/" & Format(Date, "aa") & "'")), 1, Mid(DMax("[NFattura]",
"[tblFatture]", "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & "
AND [NFattura] like '???/" & Format(Date, "aa") & "'"), 1, 3) + 1),



title: numerazione fattura formato testo

text:

Allora Vincenzo, quest'ultima formula non mi dà nessun errore, però
quando attivo o clicco la casella NFattura non succede nulla.
Scusami l'insistenza, ma sono tanti mesi che ci sto dietro e ora con
te mi sembra di essere sul punto di risolvere. Grazie ancora.
Giuseppe.


title: numerazione fattura formato testo

text:
Il Fri, 11 Apr 2008 04:51:54 -0700 (PDT), Giuseppe <
gcard...@tin.it
> ha scritto:
>(.....)
>On 11 Apr, 13:21, "VT @ Work" <V...@Work.it> wrote:

Il codice che (finalmente) funziona a quale evento di quale controllo l'hai associato ?



title: numerazione fattura formato testo

text:
On 11 Apr, 16:04, "VT @ home" <
V...@home.it
> wrote:

L'ho associato alla casella con origine NFattura sia su evento
attivato che su click.
In entrambi non dà nè segnalazione di errore, nè restituisce qualsiasi
valore.
Giuseppe.


title: numerazione fattura formato testo

text:
Il Fri, 11 Apr 2008 07:18:34 -0700 (PDT), Giuseppe <
gcard...@tin.it
> ha scritto:
>(.....)
>>
>> >Allora Vincenzo, quest'ultima formula non mi dà nessun errore, però
>> >quando attivo o clicco la casella NFattura non succede nulla.
>> >Scusami l'insistenza, ma sono tanti mesi che ci sto dietro e ora con
>> >te mi sembra di essere sul punto di risolvere. Grazie ancora.
>> >Giuseppe.
>>
>> Il codice che (finalmente) funziona a quale evento di quale controllo l'hai associato ?
>>
>> Vincenzo Turturro
>>
>> Certificato Eucip Core Level
>> ITA 0000-002299 del 14/05/2007
>> ---------------------------------------------
>> il sito comune di it.comp.appl.access:
http://www.sitocomune.com
>> ---------------------------------------------
>> risorse Access:
http://www.accessgroup.it
>> ---------------------------------------------
>> Il sito comune di it.comp.as400
http://www.faq400.com
>> ---------------------------------------------
>
>L'ho associato alla casella con origine NFattura sia su evento
>attivato che su click.
>In entrambi non dà nè segnalazione di errore, nè restituisce qualsiasi
>valore.
>Giuseppe.
Servono più dettagli:
posta entrambe le sub associate ai due eventi.



title: numerazione fattura formato testo

text:
On 11 Apr, 16:35, "VT @ home" <
V...@home.it
> wrote:

Il codice è uguale per tutte e due  gli eventi ed è quella del tuo
post
On Fri, 11 Apr 2008 09:58:35 +0200, "VT @ Work" <V...@Work.it> wrote:
 (...)
Scusa: nel msg di risposta ho copiato la formula sbagliata invece di
quella corretta !
Private Sub NFattura_GotFocus()
Fattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura]
like '???/" & Format(Date, "aa") & "'")), 1, Mid(DMax("[NFattura]",
"[tblFatture]", "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & "
AND [NFattura] like '???/" & Format(Date, "aa") & "'"), 1, 3) + 1),
"000") & "/" & Format(Date, "aa")
End Sub
Private Sub NFattura_Click()
Fattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura]
like '???/" & Format(Date, "aa") & "'")), 1, Mid(DMax("[NFattura]",
"[tblFatture]", "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & "
AND [NFattura] like '???/" & Format(Date, "aa") & "'"), 1, 3) + 1),
"000") & "/" & Format(Date, "aa")
End Sub
Ciao. Giuseppe.


title: numerazione fattura formato testo

text:
Il Fri, 11 Apr 2008 07:51:33 -0700 (PDT), Giuseppe <
gcard...@tin.it
> ha scritto:
>(.....)
>
>Il codice è uguale per tutte e due  gli eventi ed è quella del tuo
>post
>On Fri, 11 Apr 2008 09:58:35 +0200, "VT @ Work" <V...@Work.it> wrote:
> (...)
>
>Private Sub NFattura_GotFocus()
>Fattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
>"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura]
>like '???/" & Format(Date, "aa") & "'")), 1, Mid(DMax("[NFattura]",
>"[tblFatture]", "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & "
>AND [NFattura] like '???/" & Format(Date, "aa") & "'"), 1, 3) + 1),
>"000") & "/" & Format(Date, "aa")
>End Sub
>
>
>Private Sub NFattura_Click()
>Fattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
>"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura]
>like '???/" & Format(Date, "aa") & "'")), 1, Mid(DMax("[NFattura]",
>"[tblFatture]", "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & "
>AND [NFattura] like '???/" & Format(Date, "aa") & "'"), 1, 3) + 1),
>"000") & "/" & Format(Date, "aa")
>End Sub
>
>Ciao. Giuseppe.
Private Sub NFattura_GotFocus()
Me.NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura]
like '???/" & Format(Date, "aa") & "'")), 1, Mid(DMax("[NFattura]",
"[tblFatture]", "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & "
AND [NFattura] like '???/" & Format(Date, "aa") & "'"), 1, 3) + 1),
"000") & "/" & Format(Date, "aa")
me.refresh
End Sub



title: numerazione fattura formato testo

text:
On 11 Apr, 17:00, "VT @ home" <
V...@home.it
> wrote:

Scusa Vincenzo, ma non ne riusciamo a venire a capo.
Il codice funziona ma la numerazione inizia da 001 e per l'anno mi
mette /aa anzichè /08. Quindi mi ha restituito 001/aa.
Le due formule di prima non davano alcun risultato perchè a inizio
codice c'era
Private Sub NFattura_Click()
Fattura =
anzichè
Private Sub NFattura_Click()
NFattura =
Giuseppe.


title: numerazione fattura formato testo

text:
"Giuseppe" <
gcard...@tin.it
> ha scritto nel messaggio
news:8741f85a-bb7f-4992...@a70g2000hsh.googlegroups.com...
Scusa Vincenzo, ma non ne riusciamo a venire a capo.
Il codice funziona ma la numerazione inizia da 001 e per l'anno mi
mette /aa anzichè /08. Quindi mi ha restituito 001/aa.
Le due formule di prima non davano alcun risultato perchè a inizio
codice c'era
Private Sub NFattura_Click()
Fattura =
anzichè
Private Sub NFattura_Click()
NFattura =
Giuseppe.
[risposta]
Prova a sostituire le aa con yy:
...Format(Date, "aa")...
...Format(Date, "yy")...
Ciao.
--
Sergio MAZZA


title: numerazione fattura formato testo

text:
On 13 Apr, 10:22, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
> "Giuseppe" <
gcardas...@tin.it
> ha scritto nel messaggionews:8741f85a-bb7f-4992...@a70g2000hsh.googlegroups.com...

Tutto a posto. Con questa modifica ora va alla grande. Non so come
ringraziarvi. Erano mesi che ci sbattevo la testa.
Siete grandi. Grazie Vincenzo e Grazie Sergio.
Giuseppe.


title: Access e Oracle

author: bizio

text:
Buongiorno a tutti,
ho bisogno del vostro aiuto.
Devo realizzare un applicativo per la gestione di un servizio creando
una Lan per un ufficio di 2-3 postazioni.
Le mie conoscenze si limitano all'utilizzo di Access 2003/2007, ho già
fatto alcuni db suddivisi in Be e FE con un pc della rete che lo
utilizzavo come Server.
La mia difficoltà ora sta nel dover "utilizzare" la tabella anagrafica
di un db fatto in Oracle/SQL in una rete aziendale in modo che possano
"comunicare" tra di loro.
Navigando sul Forum e su internet mi sembra di aver capito che si
possa fare via ODBC ma, nel pratico, non so in che modo...!!
Ringrazio chiunque possa darmi informazioni utili


title: Access e Oracle

text:
"bizio" <
fabriz...@libero.it
> ha scritto nel messaggio
news:8845bd07-6063-4020...@a32g2000yqm.googlegroups.com...
Buongiorno a tutti,
ho bisogno del vostro aiuto.
Devo realizzare un applicativo per la gestione di un servizio creando
una Lan per un ufficio di 2-3 postazioni.
Le mie conoscenze si limitano all'utilizzo di Access 2003/2007, ho gi�
fatto alcuni db suddivisi in Be e FE con un pc della rete che lo
utilizzavo come Server.
La mia difficolt� ora sta nel dover "utilizzare" la tabella anagrafica
di un db fatto in Oracle/SQL in una rete aziendale in modo che possano
"comunicare" tra di loro.
Navigando sul Forum e su internet mi sembra di aver capito che si
possa fare via ODBC ma, nel pratico, non so in che modo...!!
Ringrazio chiunque possa darmi informazioni utili
Risposta:
A2003: File - carica dagli esterni - tipo di database: ODBC
A2007: tab dati esterni - Gruppo: importa dati - Pulsante: Altro - ODBC
Ti compare un pannellino e l� scegli Oracle (do per scontato che il pc abbia
i driver ODBC Oracle)
A questo punti punti al db e all'istanza del db TUOSERVER\ISTANZADB  (occhio
� key sentitive)
scegli tra autenticazione integrata e mista (co� con user e psw) e hai
l'elenco delle tabelle.
a quel punto salvo pochi accorgimenti � del tutto simile a Access


title: Access e Oracle

text:
> Risposta:
> A2003: File - carica dagli esterni - tipo di database: ODBC
> A2007: tab dati esterni - Gruppo: importa dati - Pulsante: Altro - ODBC
>
> Ti compare un pannellino e lì scegli Oracle (do per scontato che il pc abbia
> i driver ODBC Oracle)
Li scarico da qui in base alla versione di Oracle giusto?
http://www.oracle.com/technology/software/tech/windows/odbc/index.html
e devo installarli su tutti i pc ovviamente
> A questo punti punti al db e all'istanza del db TUOSERVER\ISTANZADB  (occhio
> è key sentitive)
Per puntare al Server dove risiede il db Oracle se il server è di una
azienda esterna è complicato? Devo richiedere autorizzazioni?
Inoltre, riuscendo a collegare la tabella anagrafica, i dati potranno
essere modificabili (ne dubito!!) o solo gestiti semplicemente con
query come fossero incorporate nell'applicativo Access?
> scegli tra autenticazione integrata e mista (coè con user e psw) e hai
> l'elenco delle tabelle.
> a quel punto salvo pochi accorgimenti è del tutto simile a Access
Scusate le molte domande ma ho bisogno di più chiarimenti possibili
Grazie dell'aiuto


title: Access e Oracle

text:
"bizio" <
fabriz...@libero.it
> ha scritto nel messaggio
news:ca6e142f-72a8-416b...@j24g2000yqa.googlegroups.com...
> Risposta:
> A2003: File - carica dagli esterni - tipo di database: ODBC
> A2007: tab dati esterni - Gruppo: importa dati - Pulsante: Altro - ODBC
>
> Ti compare un pannellino e l� scegli Oracle (do per scontato che il pc
> abbia
> i driver ODBC Oracle)
Li scarico da qui in base alla versione di Oracle giusto?
http://www.oracle.com/technology/software/tech/windows/odbc/index.html
e devo installarli su tutti i pc ovviamente
Risposta:
Yes
> A questo punti punti al db e all'istanza del db TUOSERVER\ISTANZADB
> (occhio
> � key sentitive)
Per puntare al Server dove risiede il db Oracle se il server � di una
azienda esterna � complicato? Devo richiedere autorizzazioni?
Inoltre, riuscendo a collegare la tabella anagrafica, i dati potranno
essere modificabili (ne dubito!!) o solo gestiti semplicemente con
query come fossero incorporate nell'applicativo Access?
Risposta:
l'indirizzo deve essere pubblico e chiedere sicramente le credenziali di
accesso.
Ovvio ch eli avrai come in locale
> scegli tra autenticazione integrata e mista (co� con user e psw) e hai
> l'elenco delle tabelle.
> a quel punto salvo pochi accorgimenti � del tutto simile a Access
Scusate le molte domande ma ho bisogno di pi� chiarimenti possibili
Grazie dell'aiuto


title: Esportare dati in Excel

text:
Salve,
Avendo una tabella contenente dati suddivisi per province ho la necessità, tramite un codice VBA, di esportarli in un file excel raggruppati per regione.
Più precisamente vorrei fare in modo che creando un file denominato ad esempio Regione_Basilicata questa dovrebbe contenere due cartelline una Potenza l'altra Matera con i relativi dati.
Qualche suggeerimento?
Grazie


title: Esportare dati in Excel

text:

Hai riassunto parecchie cose in pochissime parole....
Innanzi tutto creati una query e filtra i dati in base alla regione
che ti interessa e poi con il vba che ti posto trametti i dati sul tuo
file di excel:

Dim ApplExcel As Excel.Application
Dim IstanzaXls  As Excel.Workbook
Dim FileXls As String

FileXls = "tuo file di excel"

Set ApplExcel = CreateObject("Excel.Application")

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tua
query filtrata per regione", FileXls, True

    Set IstanzaXls = ApplExcel.Workbooks.Open(FileXls)
            ApplExcel.Visible = True
        IstanzaXls.Save

    Set IstanzaXls = Nothing
    Set ApplExcel = Nothing

Ora dentro il file di excel per separare i dati della regione filtrata
ti consiglio di usare per esempio la formula: DB.CONTA.VALORI (vedi
guida in linea F1)

Saluti
M7a1x


title: Esportare dati in Excel

text:


Hai riassunto parecchie cose in pochissime parole....
Innanzi tutto creati una query e filtra i dati in base alla regione
che ti interessa e poi con il vba che ti posto trametti i dati sul tuo
file di excel:

Dim ApplExcel As Excel.Application
Dim IstanzaXls  As Excel.Workbook
Dim FileXls As String

FileXls = "tuo file di excel"

Set ApplExcel = CreateObject("Excel.Application")

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tua
query filtrata per regione", FileXls, True

    Set IstanzaXls = ApplExcel.Workbooks.Open(FileXls)
            ApplExcel.Visible = True
        IstanzaXls.Save

    Set IstanzaXls = Nothing
    Set ApplExcel = Nothing

Ora dentro il file di excel per separare i dati della regione filtrata
ti consiglio di usare per esempio la formula: DB.CONTA.VALORI (vedi
guida in linea F1)

Saluti
M7a1x

Ho utilizzato il tuo codice nel modo seguente:

Private Sub Cmd2_Click()
Dim ApplExcel As Excel.Application
Dim IstanzaXls As Excel.Workbook
Dim FileXls As String
Dim Response As String, c As Double, CodX As String, RegX As String, ProX As String
'La quey QAdr raggruppa tutte le regioni e le relative provincie presenti nella tabella AppPartite
' vuota il contenuto della colonna Flgs della tabella AppPartite
    DoCmd.RunSQL "UPDATE AppPartite SET AppPartite.FlgS = Null;"

    For c = DCount("*", "QAdr") To 1 Step -1 ' conta le regioni/provincie
    RegX = DFirst("Regi", "QAdr") ' prima regione
    CodX = DFirst("CODC", "QAdr") ' codice provincia
    ProX = DFirst("DAdr", "QAdr") ' nome provincia
    Forms!Mfile!CodX = CodX

    FileXls = [Application].[CurrentProject].[Path] & "\" & "Partite_" & RegX & ".xls" ' definisce il percorso ed il nome del file excel

    Set ApplExcel = CreateObject("Excel.Application")

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Qdati", FileXls, True

    Set IstanzaXls = ApplExcel.Workbooks.Open(FileXls)
    ApplExcel.Visible = True
    IstanzaXls.Save

    Set IstanzaXls = Nothing
    Set ApplExcel = Nothing

' inserisce nella colonna Flgs detta tabella il carattere S in modo che la query QAdr, avendo impostato il criterio della colonna FlgS in is null, non estragga più la provincia (CodX) appena elaborata dal ciclo for.
    DoCmd.RunSQL "UPDATE AppPartite SET AppPartite.FlgS = 'S' WHERE (((AppPartite.CODC)= '" & CodX & "'));"
    Next c

End Sub

Il risultato è che vengono generati i vari file excel a livello regione ma continuano a contenere un singolo foglio (denominato Qdati e non con il nome della provincia) con i dati dell'ultima provincia collegata alla regione.

Immagino di essermi spiegato come un libro stracciato
grazie


title: Esportare dati in Excel

text:
On 5 Nov, 09:52,
mic...@inwind.it
 wrote:

Per l'esportazione in Excel:

Function EXP2XLS(SQL    as string, _
                 Optional ByRef NomeFile As String = vbNullString, _
                 Optional OpenDialog As Boolean = False, _
                 Optional CloseExcel As Boolean = True) As Boolean
    On Error GoTo Handle_err
    Dim xlApp   As Object   ' Oggetto EXCEL
    Dim oWkb    As Object   ' Oggetto WORKBOOK

    Dim x       As Integer
    Dim rs      As DAO.Recordset

    EXP2XLS= False

    ' APRE SE ESISTE GIA' UN'OGGETTO EXCEL
    Set xlApp = CreateObject("Excel.Application")

    Set oWkb = xlApp.Workbooks.Add()

    If OpenDialog = True Then

        Do Until NomeFile <> ""
            NomeFile = xlApp.GetSaveAsFilename(InitialFilename:="C:
\TestExport.xls", _
                                               fileFilter:="Excel
Files (*.xls), *.xls", _
                                               Title:="SELEZIONA NOME
FILE")

            DoEvents
        Loop

    End If

    If Len(NomeFile) = 0 Then NomeFile = "C:\TestExport.xls"

    If EsisteFile(NomeFile) Then Kill NomeFile

    '--------------------------------------------------------------
    ' Per O2003 usare il valore 43  (VERSION 11.0)
    ' Per O2007 usare il valore 50  (VERSION 12.0)
    ' Per O2010 usare il valore 50  (VERSION 14.0)
    '--------------------------------------------------------------
    If Val(xlApp.Version) > 11 Then
        oWkb.SaveAs NomeFile, 50
    Else
        oWkb.SaveAs NomeFile, 43
    End If

    ' Elimino i Fogli che Excel crea di DEFAULT
    For x = oWkb.Sheets.Count To 2 Step -1
        oWkb.Sheets(x).Delete
    Next

    ' Assegno un nome al Foglio(Sheet) rimasto.
    oWkb.Sheets(1).Name = "MANUTENZIONI"

    Set rs = CurrentDb.OpenRecordset(SQL,dbOpenDynaset,dbReadOnly)

    ' Scrivo nella Cella A1
    oWkb.Sheets(1).Range("A1").CopyFromRecordset rs

    rs.Close
    Set rs = Nothing

    EXP2XLS= True

Exit_Here:
    oWkb.Save
    If CloseExcel Then
        oWkb.Close True
        xlApp.Quit
    Else
        xlApp.Visible = True
    End If
    Set oWkb = Nothing
    Set xlApp = Nothing
    Exit Function

Handle_err:
    MsgBox Err.Number & " " & Err.Description
    Resume Exit_Here
End Function

Public Function EsisteFile(ByVal str As String) As Boolean
    On Error Resume Next
    EsisteFile = (GetAttr(str) And vbDirectory) = 0
End Function

Se vuoi anche definire i Campi in modo più Visuale, vedi questo
esempio:
http://www.accessgroup.it/forms/definire-i-campi-da-esportare-in-excel-e-sequenza-di-esportazione.html

Saluti
@Alex


title: Esportare dati in Excel

text:
mic...@inwind.it
 laid this down on his screen :

Il suggerimento sarebbe quello di spiegarsi meglio con un esempio.

Ci provo io.

1 - Hai una tabella Access con record composti dai campi Provincia,
    Regione e quali (o quanti) altri?
2 - Vuoi creare tanti file Excel quante sone le regioni indicate
    nella tabella di cui sopra, denominati Regione_Lombardia,
    Regione_Emilia-Romagna, etc.
3 - Il file Excel Regione_Emilia-Romagna conterrà i fogli
    denominati Ravenna (RA), Rimini (RN), Forlì-Cesena (FC)
    essendo queste le province indicate nella tabella di Access
    per la regione Emilia-Romagna.
4 - Ognuno dei tre fogli esemplificati al punto 3 conterrà
    una sola riga di dati.
5 - I punti 3 e 4 a valere per ogni Regione|Provincia indicate
    nella tabella Access.

È questo che vuoi?

Bruno


title: Esportare dati in Excel

text:
@Alex was thinking very hard :

Il problema è sempre quello di chiudere il processo
EXCEL.EXE che bene spesso e volentieri non sparisce
dal Task Manager nemmeno dopo il Set... = Nothing.

Non ho provato il tuo codice... dimmelo tu se scompare
dal Task Manager.
Io le ho provate tutte ma non ci riesco.
Di solito non è importante, salvo si debba ripetere il codice
in successione.

Bruno


title: Esportare dati in Excel

author: IvanDaBologna

text:
Il giorno giovedì 8 novembre 2012 00:28:45 UTC+1, Bruno Campanini ha scritto:
[...]
> Il problema è sempre quello di chiudere il processo
>
> EXCEL.EXE che bene spesso e volentieri non sparisce
>
> dal Task Manager nemmeno dopo il Set... = Nothing.
>
[...]
> Bruno

confermo :
portatile con WIN XP e OFFICE2007, Excel non si chiude ( a meno di non uscire da Access e attendere 'qualche' minuto), il processo resta in Task Manager.

desktop con WIN 7  e OFFICE 2007 , Excel si chiude immediatamente dopo un DoEvents ....

La cosa è spiazzante, mah !

Ivan


title: Caricamento dati speciale

text:
Ciao a tutto il NG,
devo risolvere un rompicapo (almeno per me)
Ho un magazzino e ricevo in una sola volta i dati (le referenze) da caricare
in due o tre bolle diverse dello stesso cliente, ma che vengono ritirate in
contemporanea da diversi autisti. In pratica devo riuscire a gestire una
cosa del genere:
1° autista   2° autista
 1 mele           1 mele
 1 albicocche  1 pere
e ottenere due (o più) bolle del tipo
Ditta Pinco Pallino
Bolla 123
1° autista
1 mele
1 albicocche
------------------
Ditta Pinco Pallino
Bolla 124
2° autista
1 mele
1 pere
so che sembra assurdo, ma devo poter caricare in qualche modo le mele le
pere ecc tutte assieme e poterle dividere "in diretta" con gli autisti che
arrivano insieme e partono insieme e vanno bollati insieme.
Si tratterebbe secondo me di una maschera con sottomaschera, ma questo va
bene se devo fare una bolla per volta, come posso gestire piu' bolle
partendo da una sola lista?
Grazie a chiunque abbia voglia di aiutarmi.
Giuseppe


title: Caricamento dati speciale

author: Emyr

text:


non vedo il problema maschera principale con campi
ausitsta prodotto quantità
alla fine dell'inserimento tasto crea ddt che in automatico scorre e
svuota la tabella creando le bolle a seconda dell'autista e poi le
stampa o propone per il completamento dell'insrimento
Saluti.
Emanuele.


title: Query campi Incrociati

text:
Un saluto a tutti
Provo ad esporre il mio problema.
In una tabella ho questa situazione:
Reparto articolo dettaglio
AA	  P2	     202
AA	  P2	     210
AA	  P2	     215
AA	  P2	     218
BB	  P4	     180
BB	  P4	     190
BB	  P4	     195

Con una query a campi incrociati vorrei ottenere:
Reparto / articolo / valori dettaglio (uno per ogni colonna)
AA	P2	202	210	215	218
BB	P4	180	190	195

I nomi delle colonne non sono importanti oppure si potrebbero nominare: A; B; C ecc. e possono arrivare a 15.
Dovrebbe essere una cosa banale. Ho fatto innumerevoli tentativi ma non ci sono riuscito.
Ringrazio in anticipo chiunque vorrà aiutarmi.
Gabriele


title: Rerport

author: Pino

text:
Buongiorno a tutti,
Ho una maschera con inserito una sottomaschera alimentata da una query, da
dove faccio le mie ricerche, filtraggi ecc.
Domanda, c'è la possibilità con un bottone di aprire un report e dirgli
stampa quello che ho filtrato.
Mille grazie
Pino


title: Rerport

text:
"Pino" <
gv...@dplanet.ch
> ha scritto nel messaggio
news:4232e209$0$1159$5402...@news.sunrise.ch...

si all'apertura del report devi passare il filtro della maschera o
sottomaschera


title: ADP:vedere indici

author: ringo

text:
Salve a tutti,
è possibile tramite un .adp vedere e creare indici
su msde?
grazie!
ringo


title: ADP:vedere indici

author: Giorgio Prx

text:
"ringo" <
ri...@tiscali.it
> ha scritto nel messaggio
news:btgoud$6ba$1...@newsread.albacom.net...
> Salve a tutti,
>
> è possibile tramite un .adp vedere e creare indici
> su msde?
>
Per vederli ti crei una piccola Sp e la esegui
-------------------------
CREATE PROCEDURE usp_ListaIndici (@NomeTb varchar(50))
AS
exec sp_helpindex @NomeTb
------------------------
Per Crearli
-----------------------
CREATE UNIQUE INDEX NomeIndice ON NomeTabella (Campo1,Campo2 ecc...)
------------------------
Per indici non univoci togli UNIQUE.
L'argomento è molto vasto cerca sul manuale CREATE INDEX.
Ciao Giorgio


title: Raffinatezza cercasi

author: Giuseppe Ranoia

text:
Per poter evidenziare delle cifre negative del campo Saldo di una maschera
ho inserito il seguente codice:
Private Sub Form_Current()
    txtSaldo.SetFocus
If txtSaldo.Text <= 0 Then
        txtSaldo.ForeColor = 13209
        etSaldo.ForeColor = 13209
        etSaldo.BorderColor = 13209
        etSaldo.BorderStyle = 1
        etSaldo.BorderWidth = 1
    Else:   txtSaldo.ForeColor = 0
            etSaldo.ForeColor = 0
            etSaldo.BorderColor = 0
            etSaldo.BorderStyle = 0
            etSaldo.BorderWidth = 0
 End If
 txtIdContatore.SetFocus     'lo stato attivo torna al primo
controllo
End Sub
E' corretta la forma o c'è un'altra via più comoda e più "elegante"?
Inoltre, potrei avere dei problemi di memoria scrollando velocemente per i
vari record (dato che il codice gestisce la grafica)?


title: Raffinatezza cercasi

author: Sib dal portatile

text:
"Giuseppe Ranoia" <
giusepp...@tiscalinet.it
> ha scritto nel messaggio
news:9ppmi4$opf$1...@lacerta.tiscalinet.it...
> Per poter evidenziare delle cifre negative del campo Saldo di una maschera
> ho inserito il seguente codice:
CUT
> E' corretta la forma o c'è un'altra via più comoda e più "elegante"?
Si, molto piu' comoda ed elegante. Basta andare nella proprieta' Formato e
premere F1, lo troverai molto interesante.
> Inoltre, potrei avere dei problemi di memoria scrollando velocemente per i
> vari record (dato che il codice gestisce la grafica)?
Non credo proprio
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Raffinatezza cercasi

text:
"Sib dal portatile" <
sibN...@iol.it
> ha scritto nel messaggio
news:Xe%v7.43261$0Y2.3...@news.infostrada.it...

Caro Sib grazie per le dritte (sono riuscito persino a mettere una L.
davanti alla cifra) e vorrei sapere se è possibile cambiare colore
all'etichetta associata alla textbox o devo farlo tramite codice.
Se inoltre fosse corretta la seconda ipotesi, per ottenere il colore giusto
devo fare come indicato nel codice sopra indicato? (Togliendo naturalmente i
vari txtSaldo.text)
Grazie!


title: Raffinatezza cercasi

author: Sib dall'ufficio

text:
"Giuseppe Ranoia" <
giusepp...@tiscalinet.it
> ha scritto nel messaggio
> "Sib dal portatile" <
sibN...@iol.it
> ha scritto nel messaggio
> > "Giuseppe Ranoia" <
giusepp...@tiscalinet.it
> ha scritto nel
messaggio
> > > Per poter evidenziare delle cifre negative del campo Saldo di una
maschera
> > > ho inserito il seguente codice:
> > CUT
> > > E' corretta la forma o c'č un'altra via piů comoda e piů "elegante"?
> > Si, molto piu' comoda ed elegante. Basta andare nella proprieta' Formato
e
> > premere F1, lo troverai molto interesante.
CUT
> Caro Sib grazie per le dritte (sono riuscito persino a mettere una L.
> davanti alla cifra) e vorrei sapere se č possibile cambiare colore
> all'etichetta associata alla textbox o devo farlo tramite codice.
Quello credo proprio che richieda l'uso di un po' di codice.
> Se inoltre fosse corretta la seconda ipotesi, per ottenere il colore
giusto
> devo fare come indicato nel codice sopra indicato?
Diciamo in modo simile.
Ciao
Sib


title: Accesso a ORACLE da ACCESS: è possibile senza digitare la PSW?

author: Red Wolf

text:
Ciao
il problema è questo:
ho più applicazioni VBA che, tramite ODBC, accedono ad archivi ORACLE.
Ho la necessità di NON far richiedere la PSW o di impostarla (criptata)
"in automatico".
Se po' ffà?
grazie
Red Wolf
xpost
it.comp.appl.access
microsoft.public.it.office.access
--
Io so tutti questi nomi e so tutti i fatti  di cui si sono resi colpevoli.
Io so.
Ma non ho le prove. Non ho nemmeno indizi
sono un intellettuale che cerca di seguire tutto ciò che succede, che
coordina fatti anche lontani, che mette insieme i pezzi disorganizzati
e frammentari di un intero coerente quadro politico, che ristabilisce la
logica là dove sembrano regnare l’arbitrarietà, la follia,  il mistero
P.P.P.


author: Nicoletta

text:
Red Wolf ha scritto:
> Ciao
> il problema ï¿œ questo:
> ho piï¿œ applicazioni VBA che, tramite ODBC, accedono ad archivi ORACLE.
> Ho la necessitï¿œ di NON far richiedere la PSW o di impostarla
> (criptata) "in automatico".
>
> Se po' ffï¿œ?
>
> grazie
>
> Red Wolf
>
>
>
>
> xpost
> it.comp.appl.access
> microsoft.public.it.office.access
>
>
Io creo una stringa di connessione odbc da codice leggendo da un file di
configurazione una stringa criptata da apposito programmino
crypt/decrypt e riallego le tabelle che in fase di sviluppo ho allegato
ceccando 'salva password'
Nicoletta


text:
CUT
>>
>>
> Io creo una stringa di connessione odbc da codice leggendo da un file di
> configurazione una stringa criptata da apposito programmino
> crypt/decrypt e riallego le tabelle che in fase di sviluppo ho allegato
> ceccando 'salva password'
>
> Nicoletta
anzitutto grazie per la risposta.
tu dici di usare una stringa tipo questa:
gblStrConnection = "Provider=msdaora;Data
Source=\\SERVER_NAME\DB_NAME;User Id=user;Password=psw;"
metterla sul file PIPPO.TXT criptato con PGP (per fare un esempio)
ma non ho capito come faresti a leggerlo da VB senza dare la psw di PGP
(il che equivalrebbe a mettere in chiaro le psw di ORACLE)
mi spighi?
Grazie mille
Red Wolf



text:
Red Wolf ha scritto:
> CUT
>>>
>>>
>> Io creo una stringa di connessione odbc da codice leggendo da un file di
>> configurazione una stringa criptata da apposito programmino
>> crypt/decrypt e riallego le tabelle che in fase di sviluppo ho allegato
>> ceccando 'salva password'
>>
>> Nicoletta
>
> anzitutto grazie per la risposta.
>
> tu dici di usare una stringa tipo questa:
> gblStrConnection = "Provider=msdaora;Data
> Source=\\SERVER_NAME\DB_NAME;User Id=user;Password=psw;"
>
> metterla sul file PIPPO.TXT criptato con PGP (per fare un esempio)
> ma non ho capito come faresti a leggerlo da VB senza dare la psw di
> PGP (il che equivalrebbe a mettere in chiaro le psw di ORACLE)
>
> mi spighi?
>
> Grazie mille
>
>
> Red Wolf
>
>
Sul sito comune
www.sitocomune.com
 cerca criptare e troverai due
funzioni, una per criptare l'altra per decriptare una stringa.
Io ho scritto un programmino che a fronte di un input di una pwd genera
la stringa cryptata (usando la prima funzione) che poi puoi scrivere da
codice nel file ini o più semplicemente fare incollare all'utente nel
file stesso.
In tutti i tuoi software, leggi da tale file ini la stringa cryptata,
usi la seconda funzione del sito comune per decriptarla e per accodarla
alla stringa di connessione odbc.
La password_key che userai puoi per maggiore sicurezza crearla parte
come stringa es "asdnfkn23423" parte aggiungendoci chr(n) & chr(n1) ,
replicate o quant'altro, che sono difficilmente visibili aprendo il tuo
mde con editor esadecimali.
Nicky


title: Caselle combinate e variabili

author: Thrama

text:
Salve,
	ho un problema relativo all'utilizzo delle caselle combinate.
La stringa SQL associata ad una casella combinata (quindi inserita
nell'origine dati) dovrebbe essere parametrica, cioè dovrei utilizzare
una variabile che viene valorizzata all'interno del codice vba
associato alla maschera.
	E' possibile farlo? Se si come?
	Grazie per l'aiuto.
	Thrama


title: Caselle combinate e variabili

author: Antonio Biso

text:
Thrama <
llomba...@libero.it
> wrote in message
gean8ushqffbomnqs...@4ax.com...
> Salve,
> ho un problema relativo all'utilizzo delle caselle combinate.
> La stringa SQL associata ad una casella combinata (quindi inserita
> nell'origine dati) dovrebbe essere parametrica, cioč dovrei utilizzare
> una variabile che viene valorizzata all'interno del codice vba
> associato alla maschera.
> E' possibile farlo? Se si come?
Riscrivi la stringa SQL da codice e la riassegni dinamicamente all'origine
dati della tua combo!
Antonio


title: Caselle combinate e variabili

author: Gino Paoli

text:
> Riscrivi la stringa SQL da codice e la riassegni dinamicamente
> all'origine dati della tua combo!
   Ti ringrazio, grazie anche all'aiuto del manuale ho scoperto che
posso utilizzare la proprietà ControlSource per assegnare la stringa
SQL. Ma c'è un problema... adesso mi da errore in su un'istruzione
che prima non mi provocava errori:
   listParam001.Value = rs![ID_VALPAR]
dove rs è un recorset che restituisce un valore valido. C'è qualche
controindicazione ad usare un istruzione ControlSurce?
   Grazie per l'aiuto.
   Gino
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Caselle combinate e variabili

text:
Gino Paoli <
thr...@hotmail.com
> wrote in message
4cca9b74e60179b0cd4...@mygate.mailgate.org...
> > Riscrivi la stringa SQL da codice e la riassegni dinamicamente
> > all'origine dati della tua combo!
>
>    Ti ringrazio, grazie anche all'aiuto del manuale ho scoperto che
> posso utilizzare la proprietà ControlSource per assegnare la stringa
> SQL. Ma c'è un problema... adesso mi da errore in su un'istruzione
> che prima non mi provocava errori:
>
>    listParam001.Value = rs![ID_VALPAR]
Che tipo di errore?
>
> dove rs è un recorset che restituisce un valore valido. C'è qualche
> controindicazione ad usare un istruzione ControlSurce?
Assolutamente no, chiaramente a meno di non sbagliare a creare la stringa.
Prova a debuggare la stringa finale, magari copiaincollandola dentro una
query e vedendo se ti da errore...
Antonio


title: Ancora sulla casella combinata

author: Roberto dal portatile

text:
"lujx" <
pis...@monrif.net
> ha scritto nel messaggio
news:95q1nj$jts$1...@nread1.inwind.it...
> ho 2 tabelle
> 1)Righe -> (mi deve simulare la costruzione di righe in un foglio di
> fatture) composta da:
> a) Quantità
> b) misura
> c) ID Prodotti
> d) ID Fattura
>
> 2) Prodotti composta da:
> a)codice art
> b)descrizione
> c) note
>
> ora vorrei creare una mashera dove mettere insieme le 2 tabelle e
associare
> al campo codice art una casella combinata che mi dia in elenco tutti i
> codici presenti,
> e soltone 1 mi faccia comparire nella casella di testo la descrizione del
> campo medesimo e le note
>
> come posso fare sono 4 gg che provo e riprovo
> grazie
>
Penso che le tabelle in gioco siano tre (esiste anche una tabella Fatture,
giusto?) e che la tua maschera di fatto è una sottomaschera di una maschera
pricipale che ha come origine record la tabella Fatture.
Comunque, la maschera che devi crearti deve avere come origine record la
tabella Righe; deve contenere una casella combinata che chiamerai MiaCombo,
che deve avere tre colonne (di cui visibile solo la seconda), come origine
controllo il campo IDProdotti e come origine riga una query avente il
seguente codice SQL:
SELECT Prodotti.CodiceArt, Prodotti.Descrizione, Prodotti.Note
FROM Prodotti;
Nella tua maschera, per visualizzare le note, inserisci anche una casella di
testo non associata nella cui origine controllo scrivi:
=MiaCombo.Column(2)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: numeri in lettere

author: bcla

text:
Ciao a tutti,
sapete se esiste la possibilità come in excel di fare in modo che un
numero mi venga trasformato automaticamente in lettere.
Mi spiego meglio, ho una txtbox [dato1] nella quale inserisco un
numero "5"  vorrei che su aggiornamento mi compilasse la texbox
[dato2] in lettere "cinque".
Grazie per l'aiuto
BCla


title: numeri in lettere

author: CIDI

text:
"bcla" <
brot...@gmail.com
> ha scritto nel messaggio
news:c1b40e16-4288-4c83...@t13g2000yqn.googlegroups.com...
Ciao a tutti,
sapete se esiste la possibilit� come in excel di fare in modo che un
numero mi venga trasformato automaticamente in lettere.
Mi spiego meglio, ho una txtbox [dato1] nella quale inserisco un
numero "5"  vorrei che su aggiornamento mi compilasse la texbox
[dato2] in lettere "cinque".
Grazie per l'aiuto
BCla
cerca sul sito comune
www.sitocomune.com
alla sezione report la faq 4.10
all'interno ci trovi una funzione di conversione.
ciao
Daniele


title: numeri in lettere

author: sv

text:
bcla ha scritto:
> Ciao a tutti,
> sapete se esiste la possibilit� come in excel di fare in modo che un
> numero mi venga trasformato automaticamente in lettere.
> Mi spiego meglio, ho una txtbox [dato1] nella quale inserisco un
> numero "5"  vorrei che su aggiornamento mi compilasse la texbox
> [dato2] in lettere "cinque".
> Grazie per l'aiuto
> BCla
Vedi:
http://support.microsoft.com/kb/635601/it
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: numeri in lettere

author: Carlo Costarella

text:
"sv" <
salvi...@accessgroup.it
> ha scritto nel messaggio
news:h7tf98$v2s$1...@news.newsland.it...
> bcla ha scritto:
>
>> Ciao a tutti,
>> sapete se esiste la possibilit� come in excel di fare in modo che un
>> numero mi venga trasformato automaticamente in lettere.
>> Mi spiego meglio, ho una txtbox [dato1] nella quale inserisco un
>> numero "5"  vorrei che su aggiornamento mi compilasse la texbox
>> [dato2] in lettere "cinque".
>
>> Grazie per l'aiuto
>> BCla
>
> Vedi:
>
>
http://support.microsoft.com/kb/635601/it
>
Se non vado errato bisogna cambiare una riga,
questa, nella funzione NumToCar:
Decimale = Milioni_e_Migliaia(Val(Mid$(Str$(Numero), Virgola + 1, 1)))
diventa
Decimale = Milioni_e_Migliaia(Val(Mid$(Str$(Numero), Virgola + 1,
Len(Numero))))
altrimenti prende una sola cifra dopo il punto decimale.
Ciao, Carlo


title: Trovare record da codice

author: Giorgiom

text:
Salve
Sono alle prime armi con la programmazione
Dietro vostro aiuto sono riuscito con il codice ad aggiungere nuovi record
e modificare record esistenti.
il problema adesso e come trovare il record che mi serve modificare
uso questo codice:
Dim DBS As Database, rst As dao.Recordset
Set DBS = CurrentDb
Set rst = DBS.OpenRecordset("tabella", dbOpenDynaset)
rst.MoveFirst
INIZIO_RICERCA:
if [mio_campo_tabella] = "TROVATO"
THEN
With rst
Edit
![mio_campo_tabella] = "IL CAMPO E' MODIFICATO"
Update
End With
ELSE
rst.MoveNext
GoTo INIZIO_RICERCA
end if
rst.Close
End Sub
Pero'non funziona...
Cosa c'è di sbagliato ??
Grazie per il suggerimento
Ciao
Giorgio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Trovare record da codice

author: Bruno Campanini

text:
"Giorgiom" <
giorg...@tiscalinet.it
> wrote in message
news:dglvu9$9f4$1...@news.newsland.it...

Precisa il nome e il tipo del campo di "tabella" che
vuoi cercare e il criterio di ricerca.
Es.
nome campo della tabella  [Campo1]
tipo    Stringa
valore di ricerca contenuto nel controllo [Verdure] della Scheda
Allora:
Dim DBS As Database, rst As dao.Recordset
Set DBS = CurrentDb
Set rst = DBS.OpenRecordset("tabella", dbOpenDynaset)
rst.FindFirst "[Campo1]= ' " & ![Verdure] & " ' "
(ho inserito spazi fra le virgolette per evidenziarne il
tipo: vanno eiliminati)
Se [Campo1] è Numerico:
rst.FindFirst "[Campo1]=" & ![Verdure]
Quindi:
If rst.NoMatch Then  '  se non trova il record
        ...........
Else                '  se lo trova
        With rst
                .Edit
                ![Campo1] = Me![ControlloSchedaCheContieneModifica]
                .Update
        End With
End If
Ciao
Bruno


title: Trovare record da codice

text:




> Ciao
> Bruno
Ciao Bruno
Ho provato ad inserire il tuo codice ma mi evidenzia in giallo la riga:
rst.FindFirst "[Campo1]='" & ![Verdure] & "'"
(ho usato questa perche' il mio campo della scheda è un valore testo)
Non so come mai...



title: Trovare record da codice

author: Alessandro Baraldi

text:
"Giorgiom" <
giorg...@tiscalinet.it
> wrote in message
news:dgmd23$gn3$
1...@news.newsland.it
[CUT]
> Ciao Bruno
> Ho provato ad inserire il tuo codice ma mi evidenzia in giallo la riga:
>
> rst.FindFirst "[Campo1]='" & ![Verdure] & "'"
>
> (ho usato questa perche' il mio campo della scheda è un valore testo)
>
> Non so come mai...
> Ciao
> Giorgio
Ovviamente, devi esplicitare la provenienza del Controllo
avendo messo il "!".
rst.FindFirst "[Campo1]='" & Me![Verdure] & "'"
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: A2K - Form con Ciclo For...Next

author: Paolo Cereda

text:
Ciao a tutti,
ho un problema in una form che ha un centinaio di campi Non Associati.
All'entrata assegno ad ogni singolo campo un valore che prendo da
un recordset creato appositamente.
Set MioSet = MioDatabase.OpenRecordset("Riepilogo", dbOpenDynaset)
MioSet.MoveFirst
MiaForm![01Campo001] = MioSet!CampoA
MiaForm![01Campo002] = MioSet!CampoB
MiaForm![01Campo003] = MioSet!CampoC
etc.
MioSet.MoveNext
MiaForm![02Campo001] = MioSet!CampoA
MiaForm![02Campo002] = MioSet!CampoB
MiaForm![02Campo003] = MioSet!CampoC
etc.
E' possibile fare un ciclo For ...Next per assegnare i valori ai campi
dando ai campi di volta in volta il nome corretto tramite variabile?
In questo modo riuscirei ad abbreviare le righe di codice che altrimenti
sarebbero centinaia.
Ad esempio
For X = 1 to 2
MiaForm![Variabile]=MioSet!CampoA dove Variabile = "0" & X & "Campo001"
MiaForm![Variabile]=MioSet!CampoB dove Variabile = "0" & X & "Campo002"
MiaForm![Variabile]=MioSet!CampoC dove Variabile = "0" & X & "Campo003"
Next X
Non riesco a venirne a capo. Qualcuno sa dirmi dove sbaglio?
Grazie Paolo
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: A2K - Form con Ciclo For...Next

author: ALESSANDRO Baraldi

text:
"Paolo Cereda" <
paol...@tiscalinet.it
> ha scritto nel messaggio
news:12ded4a346d6104d073...@mygate.mailgate.org...

Si ma dovresti ottimizzare il nome dei Controlli Non Associati.
In pratica se crei la Form con Controlli Associati ed attribuisci loro
lo stesso nome del Campo della Tabella faresti molto prima.
Supponiamo di avere Controlli e Campi "OMONIMI"
Dim fld as DAO.Field
Dim rs as DAO.Recordset
Set rs = MioDatabase.OpenRecordset("Riepilogo", dbOpenDynaset)
Do until rs.Eof
    for each fld in rs.Fields
        me.Controls(fld.Name)=fld.Value
    Next
    rs.MoveNext
Loop
Non ti sembra semplice e veloce...!!!
Ciao.
@Alex.


title: A2K - Form con Ciclo For...Next

author: giorgio rancati

text:
"Paolo Cereda" <
paol...@tiscalinet.it
> ha scritto nel messaggio
news:12ded4a346d6104d073...@mygate.mailgate.org...

Ciao,
prova cosě
---------------------
 Dim i as integer
 Set MioSet = MioDatabase.OpenRecordset("Riepilogo", dbOpenDynaset)
 Ii=1
 MioSet.MoveFirst
 DO
     If  MioSet.EOF Then exit do
     Me(Format(I,"00") & "Campo001") = MioSet!CampoA
     Me(Format(I,"00") & "Campo002") = MioSet!CampoB
     Me(Format(I,"00") & "Campo003") = MioSet!CampoC
     i=i+1
     MioSet.MoveNext
  LOOP
ecc ecc
...........
.........
---------------------
Ciao Giorgio


title: A2K - Form con Ciclo For...Next

text:
Una vera figata.
Grazie a entrambi.



title: ordinare schede..

author: Daniele Crescimbeni

text:
Salve a tutti..
Avrei una cosa da chiedervi..
io su Excel ho fatto delle schede.. sono semplici una per ogni operaio della
società in cui lavoro..
il problema è che se un'operaio va via.. io devo cancellere quella scheda e
le devi risistemare tutte una per ogni pagina (poiche in una pagina ce ne
sono 4) non vorrei fare un programma (io programmi in Delphi) ma vorrei
restare su Excel..
potrei ordeinare le schede.. perchè contenute in un archivio separato dal
modulo.. some potrei fare???
ciao e grazie..
Daniele
--
Posted from
mail-3.tiscalinet.it
 [195.130.225.149]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Casella di Riepilogo

author: Andrea

text:
Salve.
ho un problema e non mi riesce venirne a capo:
ho una casella di riepilogo a selezione multipla da cui seleziono dei dati,
li memorizzo in una casella di testo la quale praticamente è il criterio di
selezione della mia query.
Il problema è che la query non mi restituisce assolutamente niente, anche se
nella mia casella di testo i dati arrivano correttamente. Di seguito invio
il codice.
Dim strWhere As String, varItem As Variant
If Me!Elenco0.ItemsSelected.Count = 0 Then Exit Sub
For Each varItem In Me!Elenco0.ItemsSelected
    strWhere = strWhere & Chr$(34) & Me!Elenco0.Column(0, varItem) &
Chr$(34) & " Or "
Next varItem
strWhere = Left$(strWhere, Len(strWhere) - 4)
Testo5 = strWhere
DoCmd.OpenQuery "Query1"
La Query1 nella riga criteri ha questo: [Forms]![Maschera1]![Testo5]
Vi prego aiutatemi.
Grazie
Andrea


title: Casella di Riepilogo

author: Karl Donaubauer

text:
Andrea ha scritto:
> ho una casella di riepilogo a selezione multipla da cui seleziono dei dati,
> li memorizzo in una casella di testo la quale praticamente è il criterio di
> selezione della mia query.
> Il problema è che la query non mi restituisce assolutamente niente, anche se
> nella mia casella di testo i dati arrivano correttamente. Di seguito invio
> il codice.
>
> Dim strWhere As String, varItem As Variant
> If Me!Elenco0.ItemsSelected.Count = 0 Then Exit Sub
> For Each varItem In Me!Elenco0.ItemsSelected
>     strWhere = strWhere & Chr$(34) & Me!Elenco0.Column(0, varItem) &
> Chr$(34) & " Or "
> Next varItem
> strWhere = Left$(strWhere, Len(strWhere) - 4)
> Testo5 = strWhere
> DoCmd.OpenQuery "Query1"
>
> La Query1 nella riga criteri ha questo: [Forms]![Maschera1]![Testo5]
Cosí la query non capisce l'operatore (Or).
Non é possibile di inviare un operatore perché tutto l'espressione nel
campo Testo5 del criterio é interpretato come testo = un singolo string.
Debbi construire il statement SQL del query completamente con VBA.
--
HTH
Karl
*********
Scusate il mio malissimo Italiano. Faccio solo esercizi qui.
Access-FAQ (Tedesco):
http://www.donkarl.com
APP:
http://www.AccessProfiPool.com