text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
news:47fa5cab$0$17940$4faf...@reader1.news.tin.it...

Ovviamente se è gratuito, giusto per non prendere qualche virus .
Bruno


title: Parentesi tonde piccole da mettere in apice (**) concatenate ad altri campi in una casella di testo.

author: Bruno - S95

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:ftdn4l$jq3$1...@tdi.cu.mi.it...

---
Ok. Che fai leggi nel pensiero!!! Hai ragione sonostato poco attento.
Fra 1 ora circa (devo uscire da casa)  invierò un nuovo post riguardante (su
report) numerazione record con somma parziale in report con stampa righe
predefinite (Stampa Righe Vuote).
Guarda se mi puoi dare un aiuto.
Grazie, Bruno


text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:ftdn4l$jq3$1...@tdi.cu.mi.it...

--------------------
Scusa Carlo, ho provato a registrare con access RICHTX32.OCX e non
trovandolo per l'inserimento ho copiato RICHTX32.OCX in
c:\windows\system32.
Con quale nome lo trovo? Ci sono una marea di OCX ma nessuno con il nome
che mi faccia capire che si tratta di RICHTX32.OCX.
Grazie, Bruno


author: Carlo Costarella

text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
news:47fa871b$0$37199$4faf...@reader3.news.tin.it...
Cut
> Scusa Carlo, ho provato a registrare con access RICHTX32.OCX e non
> trovandolo per l'inserimento ho copiato RICHTX32.OCX in
> c:\windows\system32.
> Con quale nome lo trovo? Ci sono una marea di OCX ma nessuno con il nome
> che mi faccia capire che si tratta di RICHTX32.OCX.
> Grazie, Bruno
Microsoft Rich Textbox Control...
Una guida in linea, in inglese, la puoi scaricare da qui:
http://www.frantoiogestione.com/RTFctrlHelp.zip
Ciao, Carlo


title: Criterio data su Query

author: Beppe

text:
Salve dovrei creare una query che estrapoli l'ultimo record inserito a
parità di codice
mi spiego
se ho i seguenti record:
01 - pippo -  01/01/2005
01 - verdi  -  23/08/2005
01 - blu - 24/08/2005
02 - giallo - 22/08/2005
02 - arancio - 27/08/2005
03 - marrone - 22/07/2004
la query dovrebbe restituire
01 - blu - 24/08/2005   ( perché tra quelli con codice 01 è il più recente)
02 - arancio - 27/08/2005  ( perché tra quelli con codice 02 è il più
recente)
03 - marrone - 22/07/2004 ( perché tra quelli con codice 03 è il più
recente)
da notare che la data viene passata alla query tramite casella a discesa ed
il criterio utilizzato nel campo data è il seguente
<=[Forms]![Mask_Stampe2]![CasellaData1] And DMax("[Data primo
agg]";"Tab_DatiGenerali";"CodiceNIF = '" & [CodiceNIF] & "'")
in sostanza il criterio impone di prendere tra i record con data minore
quelli con data maggiore
in pratica in questo modo vado a beccare i record più recenti.
Il criterio funziona ma solo se non ci sono record con codici duplicati...
in caso contrario non viene restituito nulla!


title: Criterio data su Query

author: Roberto dalla campagna

text:
"Beppe" <
p...@pp.it
> ha scritto nel messaggio
news:QgWPe.86067$2U1.4...@news3.tin.it...

Ammesso e non concesso che io abbia capito cosa tu voglia fare, se il campo
CodiceNIF come sembra è di tipo Testo, visto che la funzione DMax ti
restituisce una variabile Stringa è necessario convertirla in una di tipo
Data/ora: prova a scrivere i criteri così:
<=[Forms]![Mask_Stampe2]![CasellaData1] And CDate(DMax("[Data primo agg]";
"Tab_DatiGenerali"; "CodiceNIF = '" & [CodiceNIF] & "'"))
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Criterio data su Query

text:
"Roberto dalla campagna" <
r.masso...@libero.it
> ha scritto nel
messaggio news:R_WPe.33073$F23.3...@twister2.libero.it...

ho provato ad impostare la conversione suggerita  pare che adesso funzioni a
dovere


title: Criterio data su Query

text:
"Beppe" <
p...@pp.it
> ha scritto nel messaggio
news:cbZPe.86742$2U1.4...@news3.tin.it...

Devo riamgiarmi quello che ho detto nel post precedente
continuando a provare ho riscontrato purtroppo un errore
in sostanza adesso la query funziona ma rispetto alla data odierna.. mi
spiego
avendo:
01 - pippo -  01/01/2005
01 - verdi  -  23/08/2005
01 - blu - 24/08/2005
02 - giallo - 22/08/2005
02 - arancio - 27/08/2005
03 - marrone - 22/07/2004
effetuando la query con data odierna mi viene correttamente restituito:
01 - blu - 24/08/2005
02 - arancio - 27/08/2005
03 - marrone - 22/07/2004
se invece faccio la ricerca con data 25/08/2005
ottengo
03 - marrone - 22/07/2004
mentre la query dovrebbe restituire
01 - blu - 24/08/2005
03 - marrone - 22/07/2004
e come se escludesse i record con dato codice che hanno data minore della
data massima


title: Criterio data su Query

text:
"Beppe" <
p...@pp.it
> ha scritto nel messaggio
news:4xZPe.86811$2U1.4...@news3.tin.it...

Come avevo ipotizzato non avevo ben compreso ciò che ti serviva e mi ero
limitato a rimuovere dai criteri l'errore di tipo formale, ma avevo lasciato
quello di tipo logico.
Con il valore della casella cambinata CasellaData1 devi condizionare la
funzione DMax e non filtrare la query, in quanto devi determinare la data
massima tra quelle inferiori o uguali alla data selezionata nella casella
combinata.
Però mi resta il dubbio di non avere ancora capito bene, in quanto a mio
avviso selezionando nella casella combinata la data 25/8/2005 la query
dovrebbe visualizzare i seguenti record:
01 - blu - 24/08/2005
02 - giallo - 22/08/2005
03 - marrone - 22/07/2004
Visto che anche il 22/8/2005 è inferiore a 25/8/2005.
Se così è, modifica i criteri della query nel seguente modo:
CDate(DMax("[Data primo agg]"; "Tab_DatiGenerali"; "CodiceNIF = '" &
[CodiceNIF] & "'  AND [Data primo agg] <= #" &
Format([Forms]![Mask_Stampe2]![CasellaData1]; "mm/gg/aaaa") & "#"))



title: Criterio data su Query

author: pippo

text:
"Roberto dalla campagna" <
r.masso...@libero.it
> ha scritto nel
messaggio news:1kfQe.34217$HM1.9...@twister1.libero.it...

Dalle prime prove che ho fatto pare che funziona... vedremo man mano che
sarano inseriti dati
ho notato una cosa .. se l'utente inavertitmente inserisce nella casella una
data non valida Access
segnala un errore e non consente poi ..anche inserendo una data corretta di
lanciare la query..
l'erorore segnalato dice: " Espressione troppo complessa per ..... "
in pratic occorre chiudere il db e riaprirlo affinche tutto torni alla
normalità


title: Criterio data su Query

text:
"pippo" <
pi...@pippo.it
> ha scritto nel messaggio
news:FSjQe.89547$2U1.4...@news3.tin.it...
[CUT]
>
>
>
> Dalle prime prove che ho fatto pare che funziona... vedremo man mano che
> sarano inseriti dati
>
> ho notato una cosa .. se l'utente inavertitmente inserisce nella casella
una
> data non valida Access
>
> segnala un errore e non consente poi ..anche inserendo una data corretta
di
> lanciare la query..
>
> l'erorore segnalato dice: " Espressione troppo complessa per ..... "
>
> in pratic occorre chiudere il db e riaprirlo affinche tutto torni alla
> normalità
Non so assolutamente in che contesto apri la query, resta il fatto che sta a
chi programma verificare la congruità dri dati immessi dall'utente prima che
questi vengano usati come parametri della query e richiedere all'utente di
correggerli, in caso contrario non mandare avanti l'elaborazione: non farlo
è una mancanza del programmatore.



title: Riga diritta

author: Amico

text:
Quando disegno una riga su un report mi viene sempre storta.
Esiste una combinazione di tasti per rendere le linee disegnate
perfettamente dritte ?
Grazie


title: Riga diritta

author: Elgratta

text:
"Amico" <
nard...@inwind.it
> ha scritto nel messaggio
news:jxYBd.12378$H%6.54...@twister1.libero.it...

Tieni premuto shift
Ciao
G&W


title: Riga diritta

text:
 Grazie.
Ciao
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: [parzialmente fuori tema] rivoglio la barra multifunzione

author: Ammammata

text:
rif.
https://www.hdblog.it/microsoft/articoli/n524194/microsoft-office-

design-funzioni-aggiornamento-ui/

https://is.gd/PaJ6xl
 è meglio

Non so se capita anche in Access, di sicuro in Outlook: la collega oggi,
dopo l'aggiornamento notturno, mi dice che il suo Outlook ha cambiato il
ribbon, tanto odiato all'inizio ma che poi alla fine uno ci si è abituato:
è scomparso in favore di questa "novità"

come faccio a riaverla indietro senza disinstallare l'ultimo aggiornamento?
sempre che sia possibile, ovvio.

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........


title: Gestione magazzino

author: Marco M.

text:
Ciao a tutti,
eccomi di ritorno dove una breve vacanzina in messico.
Chi mi ha seguito nelle mille domande fatte in passato forse si ricorda cosa
stavo sviluppando.
Comunque per chi non lo sapesse, ho sviluppato un db per la gestione delle
manutenzioni degli impianti per idraulici.
Ora qualche mio cliente mi ha chiesto se era possibile avere come modulo
aggiuntivo la gestione del magazzino.
Cio' significa che dal DB da me creato dovrei realizzare un sistema che
permetta di inserire tramite importazione da un elenco , tutti i prodotti
trattati (anche da diversi fornitori) e di poter gestire il proprio
magazzino.
Premetto che il mio DB non emette fatture ma solo ordini a cui seguono delle
fatture fatte probabilmente con altri programmi.
Tuttavia se potessi integrare la funzionalità fatturazione non sarebbe male,
anche se non è indispensabile.
Non so come gestire la cosa. Nel senso che dovrei dare la possibilità di
scalare dal magazzino precedentemente creato , i prodotti emessi negli
ordini oppure quelli fatturati, lasciando libera scelta all'utente di come
gestire lo scarico (o da fattura o da emissione ordini).
Se qualcuno ha già realizzato qualcosa di simile o mi sa indicare come fare
a realizzare o dove reperire informazioni in merito, sarei molto grato.
Premetto che uso Access 2000 su Windows XP.
Ho installato anche Visual Studio 6 Enterprise perchè la mia intenzione
sarebbe quella di interfacciarmi al DB da VS (usando VB 6).
Pareri e consigli sono ben accetti.
Un saluto affettuoso a tutti , in particolare a Roberto da casa e tutti
color che in precedenza mi hanno dato un grande aiuto.
Ciao con simpatia,
Marco.M.


title: Gestione magazzino

author: Sib

text:
"Marco M." <
mar...@libero.it
> ha scritto nel messaggio
cut
> Non so come gestire la cosa. Nel senso che dovrei dare la possibilità di
> scalare dal magazzino precedentemente creato , i prodotti emessi negli
> ordini oppure quelli fatturati, lasciando libera scelta all'utente di come
> gestire lo scarico (o da fattura o da emissione ordini).
Di solito e' preferibile evitare di fare conteggi di dati provenienti da
tabelle diverse.
Questo pone il problema di come conteggiare record provenienti dalle righe
ordini e dalle righe fatture immediate (perche' le fatture differite non
dovrebbero scaricare il magazzino).
Le soluzioni possono essere diverse, probabilemente conviene caricare tutti
i movimenti negli ordini e per le fatture creare solo le intestazioni che
facciano riferimento ad un ordine, in questo modo potrai conteggiare i soli
record delle righe ordine.
Esistono altri metodi per ottenere lo stesso risultato, ad esempio
denormalizzando le fatture, ma tutto dipende da come vuoi affrontare il
problema.
> Ho installato anche Visual Studio 6 Enterprise perchè la mia intenzione
> sarebbe quella di interfacciarmi al DB da VS (usando VB 6).
E' una questione di scelta, ma certo la rapidita' di sviluppo non e' la
stessa.
> Pareri e consigli sono ben accetti.
>
> Un saluto affettuoso a tutti , in particolare a Roberto da casa e tutti
> color che in precedenza mi hanno dato un grande aiuto.
>
> Ciao con simpatia,
>
> Marco.M.
Ciao
Sib


title: Re: modificare il risultato di un campo calcolato

text:
On 7 Set, 15:18, ugo conte <
ugo.cont...@gmail.com
> wrote:
> salve
>
> E' possibile predisporre un campo calcolato ad un'eventuale modifica?
> cioè:
> c=a*b Risultato (c)= 20; poter modificare (c) mettendo p.e. 22 al
> posto di "20"
>
> Grazie
Se il calcolo lo esegui in FORM no, se lo esegui in QUERY Si ma con un
Ma...
A cosa serva poi lo sai solo tu visto che la base del calcolo
restituirà sempre un risultato diverso... quindi un banale Recalc o
Requery dei dati annulla la tua editazione.
Concettualmente quello che hai detto è frutto di non consono utilizzo
del mezzo, ma .... tant'è...
@Alex


text:
..
> grazie Alex
> se ho per esempio
> nColli *Pallet= x
> Metti il caso che un pallet (per vari motivi) è con meno colli;
> volevo poter modificare il valore a mio piacere
Se modifichi il N° dei colli con il Reale il calcolo verrà corretto...
Quello che dici sarebbe fattibile se tu invece di calcolarlo come
ControlSource lo calcolassi da VBA e lo salvassi in un Campo, cosa che
però non è standard.
@Alex


text:
On 7 Set, 16:34, ugo conte <
ugo.cont...@gmail.com
> wrote:
> On 7 Set, 15:46, "@Alex" <
ik2...@libero.it
> wrote:
>
> > ..
>
> > > grazie Alex
> > > se ho per esempio
> > > nColli *Pallet= x
> > > Metti il caso che un pallet (per vari motivi) è con meno colli;
> > > volevo poter modificare il valore a mio piacere
>
> > Se modifichi il N° dei colli con il Reale il calcolo verrà corretto...
>
> Grazie Alex
> il problema è che non sempre riesco ad avere un risultato uguale
> p.e.
> 9pallet per 75 colli=675
> mettiamo che poi i colli sono 670
> 670/9=74,4periodico

Mai più avrai dei ROTTI....?
Dovrai prevedere un INTERO come risultato, vedi poi tu se Arrotondato
per Eccesso o Difetto... (devi usare una Funzione CUSTOM in quanto non
c'è in VBA).

> > Quello che dici sarebbe fattibile se tu invece di calcolarlo come
> > ControlSource lo calcolassi da VBA e lo salvassi in un Campo, cosa che
> > però non è standard.
>
> perchè dici che non è standard?

Tra le prime cose che si imparano quando si studia la Normalizzazione
ed Ingegenrizzazione di un DB è che i campi CALCOLABILI devono
rimanere tali... quindi non si salvano per evitare inutile ingombro.
Tranne le eccezioni come ad esempio dati Fiscali o Contabili affetti
da variazioni nel tempo su dati fondamentali... vedi ad esempio l'IVA
che tra poco andrà al 21%.
Se non ti salvi il dato completo del Calcolo quando vai a modificare
l'IVA se dovessi rivedere le Fatture precedenti alla modifica
avrebbero l'aggiornamento del calcolo con la NUOVA IVA... cosa
assurda.
Quindi o salvi i Contribuenti del calcolo(ma solo in quei casi) oppure
salvi il Risultato.

@Alex


author: MA

text:
"@Alex"  ha scritto nel messaggio
news:044638d6-5b6a-40d0...@d18g2000yqm.googlegroups.com...
On 7 Set, 16:34, ugo conte <
ugo.cont...@gmail.com
> wrote:
> On 7 Set, 15:46, "@Alex" <
ik2...@libero.it
> wrote:
>
> > ..
>
> > > grazie Alex
> > > se ho per esempio
> > > nColli *Pallet= x
> > > Metti il caso che un pallet (per vari motivi) � con meno colli;
> > > volevo poter modificare il valore a mio piacere
>
> > Se modifichi il N� dei colli con il Reale il calcolo verr� corretto...
>
> Grazie Alex
> il problema � che non sempre riesco ad avere un risultato uguale
> p.e.
> 9pallet per 75 colli=675
> mettiamo che poi i colli sono 670
> 670/9=74,4periodico
Mai pi� avrai dei ROTTI....?
Dovrai prevedere un INTERO come risultato, vedi poi tu se Arrotondato
per Eccesso o Difetto... (devi usare una Funzione CUSTOM in quanto non
c'� in VBA).
> > Quello che dici sarebbe fattibile se tu invece di calcolarlo come
> > ControlSource lo calcolassi da VBA e lo salvassi in un Campo, cosa che
> > per� non � standard.
>
> perch� dici che non � standard?
Tra le prime cose che si imparano quando si studia la Normalizzazione
ed Ingegenrizzazione di un DB � che i campi CALCOLABILI devono
rimanere tali... quindi non si salvano per evitare inutile ingombro.
Tranne le eccezioni come ad esempio dati Fiscali o Contabili affetti
da variazioni nel tempo su dati fondamentali... vedi ad esempio l'IVA
che tra poco andr� al 21%.
Se non ti salvi il dato completo del Calcolo quando vai a modificare
l'IVA se dovessi rivedere le Fatture precedenti alla modifica
avrebbero l'aggiornamento del calcolo con la NUOVA IVA... cosa
assurda.
Quindi o salvi i Contribuenti del calcolo(ma solo in quei casi) oppure
salvi il Risultato.
@Alex
________________Risposta:
Rimanendo nell'ambito delle pippe, potrebbe fare un campo calcolato
C=(a*b)-d dove d � un campo di correzione e cos� rimaniamo in forma normale
MA


text:
...
> ________________Risposta:
> Rimanendo nell'ambito delle pippe, potrebbe fare un campo calcolato
> C=(a*b)-d dove d un campo di correzione e cos rimaniamo in forma normale
> MA

Si si è un'idea... poi ovviamente se non memorizzi i dati... sai bene
che fine fa la correzione...
;-)

@Alex


text:
"ugo conte"  ha scritto nel messaggio
news:881d5bc2-9c82-45ea...@x11g2000yqc.googlegroups.com...

On 8 Set, 11:22, "@Alex" <
ik2...@libero.it
> wrote:
> ...
>
> > ________________Risposta:
> > Rimanendo nell'ambito delle pippe, potrebbe fare un campo calcolato
> > C=(a*b)-d dove d un campo di correzione e cos rimaniamo in forma normale
> > MA
>
> Si si � un'idea... poi ovviamente se non memorizzi i dati... sai bene
> che fine fa la correzione...
> ;-)
>
> @Alex

Grazie MA e Alex
e affiancare un nuovo controllo impostando
iif not isnull(me!mianuovacasella) then
ecc. ecc.

che mi escluda il primo se ho un valore nel secondo controllo?
Pu� andare bene?
Grazie
_______Risposta:
(a*b)+nz(d)
MA


text:
"ugo conte"  ha scritto nel messaggio
news:92f8c6d2-603e-4503...@w28g2000yqw.googlegroups.com...

On 8 Set, 11:52, "MA" <
mas...@massimilianoamendola.it
> wrote:
> "ugo conte"  ha scritto nel
> messaggionews:881d5bc2-9c82-45ea...@x11g2000yqc.googlegroups.com...

grazie MA
ma č come nel caso che mia giŕ spiegato,
con la differenza che se ho un valore maggiore devo inserire il "-"
__________________Risposta:
No, senza l'nz se non metti un valore, non calcola.
Per il resto, sě, quel campo č un campo di adeguamento quindi + o - li
gestisci tu
MA


title: Report: stampare più numeridi telefono

author: Giulio Severini

text:
Ciao, ho un report semplice semplice, del tipo:
Nome - Cognome - ............ - Telefono
Telefono era associato al campo Telefono della tabella tblUtenti, adesso
non piů. Adesso i numeri di telefono li metto in una tabella
tblTelefonifatta cosě:
idTelefono
idUtente
IdTipoTelefono
Telefono
messa in relazione uno-a-molti con tblUtenti tramite idUtente.
Se per un utente ci sono piů numeri di telefono, come posso stamparli a
questo punto?
Grazie :)
--
Non avere mai pura dei momenti bui perchč, facci caso, anche le stelle
hanno bisogno della notte per brillare.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Report: stampare più numeridi telefono

text:
Giulio Severini wrote:
> Ciao, ho un report semplice semplice, del tipo:
>
> Nome - Cognome - ............ - Telefono
>
> Telefono era associato al campo Telefono della tabella tblUtenti,
> adesso non piů. Adesso i numeri di telefono li metto in una tabella
> tblTelefonifatta cosě:
>
> idTelefono
> idUtente
> IdTipoTelefono
> Telefono
>
> messa in relazione uno-a-molti con tblUtenti tramite idUtente.
>
> Se per un utente ci sono piů numeri di telefono, come posso stamparli
> a questo punto?
>
> Grazie :)
Giulio, dai, un pň di iniziativa.
Report e sottoreport
O meglio report tabellare e raggrupato in testa e lě ci metti le info che
vuoi.
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Report: stampare più numeridi telefono

text:
> Giulio, dai, un pò di iniziativa.
> Report e sottoreport
> O meglio report tabellare e raggrupato in testa e lì ci metti le info che
> vuoi.
Ah ma devo ancora studiare i sottoreport...e sia! vediamo che succede :)
--
Non avere mai pura dei momenti bui perchè, facci caso, anche le stelle



title: Report: stampare più numeridi telefono

author: sv

text:
"Giulio Severini" <
giulio....@ministero.difesa.it
> ha scritto nel
messaggio news:d8s0hv$j5u$1...@news.newsland.it...

Utilizza l'autocomposizione report dando come origine le due tabelle che hai
messo in relazione e vedrai che fa tutto lui.
--
rgrds
SC


title: Help Access 97 importazione dati

author: Roger

text:
Salve ho un problema .  Nell'importazione dei dati nella maschera dove non
ci sono neanche le estensioni da una settimana sono passati da File di testo
a Text file. Ho provato a disisnstallare a cambiare directory ad andare sul
sito della microsoft ma anche avendo cancellato i file dll il risultato e'
sempre lo stesso. E' sicuramente un conflitto con un programma ma allora a
questo punto e' meglio formattare tutto ?
Grazie chi vorra aiutarmi ....
Mario
esempio :  File di testo (asc,txt, ) ora esiste Text file
nell'importazione dati  da Access 97


title: Maschere collegate, conservare il collegamento su nuovo record

author: giaconet

text:
Innanzitutto chiedo scusa perché ho già posto questa domanda 5-6 mesi fa
e come un caz..ne non ho conservato la risposta, così eccomi a chiedere
la stessa cosa.
Ho 2 tabelle:
tabPazienti
idPaziente
nome
cognome
...
tabRicoveri
idRicovero
idPaziente
dataRicovero
...
Ok. Ho 2 maschere (frmPazienti e frmRicoveri) associate rispettivamente
alle 2 tabelle.
Nella prima maschera c'è un pulsante che apre la seconda.
Se non ci sono ricoveri per quel paziente faccio così (uso una sintassi
abbreviata per non appensantire):
OpenForm "frmRicoveri",,,acFormAdd ' aprò in modalità Immissione dati
Form_frmRicoveri.idPaziente = Me.IdPaziente 'creo il collegamento
altrimenti faccio
OpenForm "frmRicoveri",,"idPaziente = " & Me.idPaziente 'filtro su
idPaziente
Le cose funzionano finché non si decide di andare oltre il record
corrente per inserirne uno nuovo, infatti in entrambi i casi si perde il
"collegamento" e il record inserito risulta "appeso" (non collegato cioè
al paziente dal quale si era partiti). La soluzione suggeritami mesi fa
era di una semplicità disarmante ma non ricordo assolutamente dove si
andava a giocare
Thanx infinite
giaconet


author: Daniele

text:
"giaconet" <
giac...@nospam.it
> ha scritto nel messaggio
news:XWRL8.13449$5i1.5...@news2.tin.it...

> E' forse questo?
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:Uxlj8.4322$1S3.1...@twister1.libero.it...
>
> "giaconet" <
giac...@nospam.it
> ha scritto nel messaggio
> news:QGaj8.57796$Ns4.2...@news2.tin.it...
> [CUT]
> >
> > 2)
> > DoCmd.OpenForm "frm2",,"id1 = " & id1
> > 'E' più corretto perché mi dà anche risultati precedentemente inseriti
> >
> > Ma anche qui appena vado sul nuovo record il filtro non ha più effetto
(del
> > resto è un nuovo record) e quindi questo valore inserito non ha nessun
id1 e
> > risulta "appeso".
>
> Nessuno ti vieta, a fronte dell'evento "Prima di inserire" di frm2 di
> generare una riga di codice VBA del tipo:
>
> Me!id1 = Forms!frm1!id1
>
> Giusto?
>
Eccezziunale!!!
Sei sempre il più grandissimo!!!!
Bye
giaconet
--
Saluti Daniele
---


text:
"Daniele" <
dad...@tin.it
> ha scritto nel messaggio
news:OMYL8.11588$TS.3...@news1.tin.it...
>
> "giaconet" <
giac...@nospam.it
> ha scritto nel messaggio
> news:XWRL8.13449$5i1.5...@news2.tin.it...
[CUT]
> >
> > E' forse questo?
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:Uxlj8.4322$1S3.1...@twister1.libero.it...
> >
> > "giaconet" <
giac...@nospam.it
> ha scritto nel messaggio
> > news:QGaj8.57796$Ns4.2...@news2.tin.it...
> > [CUT]
> > >
[CUT]
> --
> Saluti Daniele
Ma sei il più grandissimo! Chi conserva messaggi così vecchi? L'hai
trovato con Google? In ogni caso grazie...e grazie anche a Roberto
ovviamente.
Bye
giaconet


text:
"giaconet" <
giac...@nospam.it
> ha scritto nel messaggio
news:adq515$1bttu$1...@ID-71483.news.dfncis.de...

> Esatto.
L'ho letto in un thread di  Karl Donaubauer  quindi grazie anche
a lui. Credevo che lo sapessero tutti nel NG.
in caso possa servirti:
http://groups.google.com/advanced_group_search


title: R: Foglio di excel importato

author: Starpur

text:
Starpur <
in...@starwood.it
> wrote in message
W837a.322478$AA2.12...@news2.tin.it...
> Ho un foglio di excel impostato tipo una queery a campi incrociati (righe
> per colonne), dovrei importare questa query e creare una tabella con 3
> campi:
> Intestazione riga del foglio Excel
> Intestazione colonna del foglio Excel
> Valore incrociato delle due intestazioni
>
> ES
> Foglio excel :
>         A        B        C
> X     1         2          3
> Y      4        5          6
>
nel copia e incolla è mancato un pezzo sorry
Ho un foglio di excel impostato tipo una queery a campi incrociati (righe
per colonne), dovrei importare questa query e creare una tabella con 3
campi:
Intestazione riga del foglio Excel
Intestazione colonna del foglio Excel
Valore incrociato delle due intestazioni
ES
Foglio excel :
        A        B        C
X     1         2          3
Y      4        5          6
dovrebbe diventare:
A     X        1
A     Y        4
B      X        2
B      Y        5
C      X        3
C      Y        6
Grato a chiunque possa aiutarmi
Massimo


title: R: Foglio di excel importato

author: Maurizio Borrelli

text:
> "Starpur" <
in...@starwood.it
> ha scritto nel messaggio
> news:ta37a.322489$AA2.12...@news2.tin.it...
[...]
> Ho un foglio di excel impostato tipo una queery a campi incrociati
> (righe
> per colonne), dovrei importare questa query e creare una tabella con 3
> campi:
> Intestazione riga del foglio Excel
> Intestazione colonna del foglio Excel
> Valore incrociato delle due intestazioni
> ES
> Foglio excel :
>     A   B   C
> X   1   2   3
> Y   4   5   6
    Quella che segue e' una mia considerazione di scarso rilievo quindi,
se vuoi, non tenerne conto:
    Cosa intendi con "due intestazioni"? Usi Excel con le intestazioni
di riga in lettere (X, Y, ...) invece che numeri? In pratica, facci
sapere, per favore: il valore "1" del tuo esempio in che cella si trova?
"A1"? "A2"? "B2"? Io sarei per "B2", ma non ne sono convinto. Attendo
conferma.
> dovrebbe diventare:
> A   X   1
> A   Y   4
> B   X   2
> B   Y   5
> C   X   3
> C   Y   6
Option Compare Database
Option Explicit
Option Base 0
Public Function XL2AC_xy( _
) As Boolean
  On Error GoTo erh
  Const c_sWbk$ = "C:\Progetti\mso\09\XL2AC.xy.xls"
  Const c_sRng$ = "TabellaValori"
  Const c_sTbl$ = "XL2AC xy"
  Const c_sFldSerie$ = "Serie"
  Const c_sFldAsse$ = "Asse"
  Const c_sFldValore$ = "Valore"
  Dim oXlApp      As Excel.Application
  Dim oXlWbk      As Excel.Workbook
  Dim oXlRngVals  As Excel.Range
  Dim oXlRngIRow  As Excel.Range
  Dim oXlRngICol  As Excel.Range
  Dim oXlRng      As Excel.Range
  Dim lRow        As Long
  Dim lCol        As Long
  Dim oAcApp        As Access.Application
  Dim oDaoDbs       As DAO.Database
  Dim oDaoRst       As DAO.Recordset
  Dim oDaoFldSerie  As DAO.Field
  Dim oDaoFldAsse   As DAO.Field
  Dim oDaoFldValore As DAO.Field
  Set oXlApp = New Excel.Application
  Set oXlWbk = oXlApp.Workbooks.Open(c_sWbk)
  Set oXlRngVals = oXlWbk.Names(c_sRng).RefersToRange
  Set oAcApp = Access.Application
  Set oDaoDbs = oAcApp.CurrentDb
  Set oDaoRst _
    = oDaoDbs.OpenRecordset( _
          c_sTbl _
        , DAO.dbOpenTable _
        , DAO.dbFailOnError)
  With oDaoRst.Fields
    Set oDaoFldSerie = .Item(c_sFldSerie)
    Set oDaoFldAsse = .Item(c_sFldAsse)
    Set oDaoFldValore = .Item(c_sFldValore)
  End With
  With oXlRngVals
    For lRow = 2 To .Rows.Count
      Set oXlRngIRow = .Cells(lRow, 1)
      For lCol = 2 To .Columns.Count
        Set oXlRngICol = .Cells(1, lCol)
        Set oXlRng = .Cells(lRow, lCol)
        With oXlRng
          Debug.Print _
              oXlRngICol.Value & ";" _
            ; oXlRngIRow.Value & ";" _
            ; .Value
          oDaoRst.AddNew
          oDaoFldSerie.Value = oXlRngICol.Value
          oDaoFldAsse.Value = oXlRngIRow.Value
          oDaoFldValore.Value = oXlRng.Value
          oDaoRst.Update
        End With
      Next
    Next
  End With
  XL2AC_xy = True
ext:
  On Error Resume Next
  oDaoRst.Close
  oXlApp.DisplayAlerts = False
  oXlApp.Quit
  Set oDaoFldValore = Nothing
  Set oDaoFldAsse = Nothing
  Set oDaoFldSerie = Nothing
  Set oDaoRst = Nothing
  Set oDaoDbs = Nothing
  Set oAcApp = Nothing
  Set oXlRng = Nothing
  Set oXlRngICol = Nothing
  Set oXlRngIRow = Nothing
  Set oXlRngVals = Nothing
  Set oXlWbk = Nothing
  Set oXlApp = Nothing
  Exit Function
erh:
  XL2AC_xy = False
  With Err
    MsgBox .Description, vbCritical, "ERR#" & CStr(.Number)
  End With
  Resume ext
End Function
    (Facci sapere se ed eventualmente come hai risolto. Grazie.)
--
Ciao :o)
Maurizio
--------
?SPQR(C)
 X
--------


title: Query parametrica intelligente

author: RobertoAcc

text:
Ho creato una query di aggiornamento parametrica avviando la quale si apre
una maschera di inserimeento parametro
tipica di access, che mi chiede di inserire un parametro.
funziona tutto, e solo in un caso non fa quello che dovrebbe.
Cioe se io inserisco il parametro e faccio OK, o anche se non lo inserisco
faccio Annulla funziona correttamente.
Mentre io voglio che se per sbaglio non inserisco nulla e faccio OK, tale
mascherina mi si ripropone fino a che non inserisco un parametro oppure
pigio Annulla.
si può fare ?
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Query parametrica intelligente

author: Sergio MAZZA

text:
"RobertoAcc" <
salzi...@yahoo.it
> ha scritto nel messaggio
news:c6j0lg$m0o$1...@news.newsland.it...
> Ho creato una query di aggiornamento parametrica avviando la quale si apre
> una maschera di inserimeento parametro
>
> tipica di access, che mi chiede di inserire un parametro.
>
> funziona tutto, e solo in un caso non fa quello che dovrebbe.
>
> Cioe se io inserisco il parametro e faccio OK, o anche se non lo inserisco
> faccio Annulla funziona correttamente.
>
> Mentre io voglio che se per sbaglio non inserisco nulla e faccio OK, tale
> mascherina mi si ripropone fino a che non inserisco un parametro oppure
> pigio Annulla.
>
> si può fare ?
>
Se ha inserito un parametro nella query e dichiarato il tipo puoi utilizzare
questo codice di esempio:
'-------------
' il parametro dichiarato nella mia query è numerico
' quello restituito da inputbox è stringa
Dim parametro As String
Do
    parametro = InputBox("Inserisci un valore", "Parametro")
Loop Until parametro <> ""
Dim qDef As QueryDef
Set qDef = CurrentDb.QueryDefs("nomeQuery")
qDef.Parameters("idParametro") = CInt(parametro)
qDef.Execute
Set qDef = Nothing
'-------------
Ciao.
--
Sergio MAZZA


title: Moduli di classe (Newbie)

author: markann

text:
Ciao a tutto il NG
Sto cominciando adesso a programmare con i moduli di classe,ed ho bisogno
del vostro aiuto
                                                 Codide del modulo:
-------------------------------------------------------------------------------------------
Private WithEvents PrevFatt As ListBox
Private CreaTabella As ADODB.Command
Private ListaScielte As ADODB.Recordset
Private WithEvents inserire As CommandButton
------------------------------------------------------------------------------------------
Private Sub Class_Initialize()
Set CreaTabella = New ADODB.Command
With CreaTabella
.ActiveConnection = CurrentProject.Connection
.CommandType = adCmdText
.CommandText = "create table TabellaAppoggio (NumEl counter constraint NumEl
Primary Key," _
& "Articolo string,Quantità Long,Prezzo Currency )"
.Execute
End With
End Sub
-------------------------------------------------------------------------------------------------
Public Property Set ScielteCliente(acquisti As ListBox)
Set PrevFatt = acquisti
PrevFatt.AfterUpdate = "[Event Procedure]"
Call imposta2
End Property
-------------------------------------------------------------------------------------------------
Public Property Get ScielteCliente() As ListBox
Set ScielteCliente = PrevFatt
End Property
-----------------------------------------------------------------------------------------
Public Property Set scielta(transfer As CommandButton)
Set inserire = transfer
inserire.OnClick = "[Event Procedure]"
End Property
------------------------------------------------------------------------------------------------
Public Property Get scielta() As CommandButton
Set scielta = inserire
End Property
--------------------------------------------------------------------------------------------------
Private Sub imposta2()
Set ListaScielte = New ADODB.Recordset
With ListaScielte
Set .ActiveConnection = CurrentProject.Connection
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "TabellaAppoggio", Options:=adCmdTableDirect
PrevFatt.RowSource = ListaScielte.Source
End With
End Sub
------------------------------------------------------------------------------------------------------
Private Sub inserire_Click()
Dim yt As String
With ListaScielte
.AddNew
.Fields("Articolo") = mlst.Column(1)
yt = .Fields("Articolo")
Debug.Print yt
.Update
End With
PrevFatt.BackColor = vbYellow
PrevFatt.Requery
End Sub
--------------------------------------------------------------------------------------------------
Codice Maschera
Private xl as Classe1
Sull'evento Load della maschera istanzio il modulo di classe
set xl=New Classe1
with xl
Set .ScielteCliente = Elenco17
Set .scielta = Comando13
Il colore dello sfondo arriva ma dati nulla,niente di niente
come mai la listbox non si aggancia alla tabella?
--------------------------------
Inviato via
http://usenet.libero.it


title: Moduli di classe (Newbie)

author: Alessandro Cara

text:
markann wrote:
>
> Ciao a tutto il NG
> Sto cominciando adesso a programmare con i moduli di classe,ed ho bisogno
> del vostro aiuto
>                                                  Codide del modulo:
> -------------------------------------------------------------------------------------------
> Private WithEvents PrevFatt As ListBox
> Private CreaTabella As ADODB.Command
> Private ListaScielte As ADODB.Recordset
> Private WithEvents inserire As CommandButton
> ------------------------------------------------------------------------------------------
> Private Sub Class_Initialize()
> Set CreaTabella = New ADODB.Command
> With CreaTabella
> .ActiveConnection = CurrentProject.Connection
> .CommandType = adCmdText
> .CommandText = "create table TabellaAppoggio (NumEl counter constraint NumEl
> Primary Key," _
> & "Articolo string,Quantitą Long,Prezzo Currency )"

come newbie niente male direi.
Ad una prima occhiata il codice appare "formalmente" corretto
Intendi dire che
x1.ScielteCliente non contiene i dati
provenienti da elenco17?
Elenco17 e' agganciato ad una tabella? Elenco17 li contiene i dati?
Lo hai seguito con il debug?
--
a.cara


title: Moduli di classe (Newbie)

author: Claudio

text:
"markann" <
mar...@libero.it
> ha scritto nel messaggio
news:80Z116Z167Z167Y...@usenet.libero.it...
> Ciao a tutto il NG
> Sto cominciando adesso a programmare con i moduli di classe,ed ho bisogno
> del vostro aiuto
Perdona il consiglio non tecnico, ma la pelle d'oca ha fatto capolino. Scelta,
con le sue varianti, č senza 'i'.
Ciao. Claudio.


title: Moduli di classe (Newbie)

text:

> con le sue varianti, è senza 'i'.
>
> Ciao. Claudio.
sull'help non c'e'  e neanche sul dizionario napoletano
--
a.cara


title: Moduli di classe (Newbie)

text:
> Intendi dire che
> x1.ScielteCliente non contiene i dati
> provenienti da elenco17?
>
> Elenco17 e' agganciato ad una tabella? Elenco17 li contiene i dati?
>
> Lo hai seguito con il debug?
NO, è esattamente il contrario, elenco 17 deve contenere i dati che
provengono dalla listbox virtuale creata all'interno del modulo
.Il codice della maschera non fa altro che dare un interfaccia utente alla
listbox del modulo di classe.
Ciao e grazie a tutti



title: Moduli di classe (Newbie)

text:
markann wrote:
[cut]
> NO, č esattamente il contrario, elenco 17 deve contenere i dati che
> provengono dalla listbox virtuale creata all'interno del modulo
> .Il codice della maschera non fa altro che dare un interfaccia utente alla
> listbox del modulo di classe.
> Ciao e grazie a tutti
>
> --------------------------------
> Inviato via
http://usenet.libero.it
ma i dati in "tabella appoggio" quando li carichi?
Nel momento in cui carichi il rowsource non c'e' valore ("")
questo e' il motivo principale per cui non ottieni nulla
la initialize crea solo la tabella.
Inoltre "Tabella appoggio" quando la droppi?
--
a.cara


title: Moduli di classe (Newbie)

text:
La tabella la elimino alla chiusura del modulo
Set CancellaTabella = New ADODB.Command
With CancellaTabella
.ActiveConnection = CurrentProject.Connection
.CommandType = adCmdText
.CommandText = "drop table TabellaAppoggio"
.Execute
End With
Set CancellaTabella = Nothing
------------------------------------------------------------------------------------------------------
Questo pulsante dovrebbe(almeno credo), inserire un dato e aggiornare la
listbox.
Private Sub inserire_Click()
Dim yt As String
With ListaScielte
.AddNew
.Fields("Articolo") = mlst.Column(1) '<--- Dato proveniente da un'altra
listbox virtuale,anch'essa con la sua corrispondente sulla maschera.
yt = .Fields("Articolo")
Debug.Print yt
.Update
End With
PrevFatt.BackColor = vbYellow
PrevFatt.Requery
End Sub



title: Moduli di classe (Newbie)

text:
markann wrote:
>
> La tabella la elimino alla chiusura del modulo
> Set CancellaTabella = New ADODB.Command
> With CancellaTabella
> .ActiveConnection = CurrentProject.Connection
> .CommandType = adCmdText
> .CommandText = "drop table TabellaAppoggio"
> .Execute
> End With
> Set CancellaTabella = Nothing
>
ok nel primo codice spedito mi sembra che non c'era. Da qui la domanda
il  problema mi sembra che sia su questa
Private Sub imposta2()
Set ListaScielte = New ADODB.Recordset
With ListaScielte
Set .ActiveConnection = CurrentProject.Connection
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "TabellaAppoggio", Options:=adCmdTableDirect
------------------------------------------
PrevFatt.RowSource = ListaScielte.Source
------------------------------------------
End With
End Sub
per quella evidenziata. In ListaScielte.Source non c'e' nulla ("")
ed inoltre in quel momento "TabellaAppoggio" e' vuota
quindi la ListBox che vedi risulta anch'essa vuota
(per il primo motivo. Ne sono  certo perche' l'ho provata,
infatti sostituendo con una select qualsiasi funziona)
--
a.cara


title: Moduli di classe (Newbie)

text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3DC312BA...@blunet.it...
> il  problema mi sembra che sia su questa
> Set ListaScielte = New ADODB.Recordset
> With ListaScielte
> PrevFatt.RowSource = ListaScielte.Source
Secondo me la pelle d'oca č venuta anche ad Access :-) Anche lui ha un'anima e
si rifiuta di eseguire il codice, sebbene corretto.
Ciao. Claudio.


title: Moduli di classe (Newbie)

text:
> ------------------------------------------
> PrevFatt.RowSource = ListaScielte.Source
> ------------------------------------------
> End With
> End Sub
>
> per quella evidenziata. In ListaScielte.Source non c'e' nulla ("")
> ed inoltre in quel momento "TabellaAppoggio" e' vuota
> quindi la ListBox che vedi risulta anch'essa vuota
> (per il primo motivo. Ne sono certo perche' l'ho provata,
> infatti sostituendo con una select qualsiasi funziona)
>
> --
> a.cara
Ma tu garda che s[biiiiiiiip]ta , se penso di aver capito bene mi devi dare
il tuo indirizzo che vengo a ringraziarti di persona.
Ciao, domani ti faccio sapere.



title: formattazione report

author: marco veronesi

text:
Ciao a tutti, vorrei giustificare ed aumentare leggermente
l'interlinea di un testo contenuto in una casella di testo di un
report.
La proprietà testo ripartito mi giustifica il testo con l'inconveniete
che nell'ultima riga viene giustificata con il ripartimento non delle
singole parole, ma con quello delle singole lettere, del tipo:
"p  r  o v a " che in una  stampa ha un effetto bruttissimo.
L'altro inconveniente è che la distanza tra una riga è l'altra è
troppo ravvicinata.
Qualcuno sa dirmi se è possibile superare questo ostacolo? Grazie


title: formattazione report

text:

grazie ho risolto


title: Record orizzontali in un report

author: ant

text:
Ciao a tutti!
A qualcuno di voi è mai capitato di dover stampare dei record
in orizzontale in un foglio A4 e se si come avete fatto?! :-)
io dovrei stampare una cosa di questo tipo in un foglio A4 in orizzontale:
Data __ -- __ -- __
località 1          località 2       località 3
posti 3             posti 5          posti 1
Grazie a tutti!
ciao
Antonio


title: Record orizzontali in un report

text:
"ant" <
ant...@libero.it
> ha scritto nel messaggio
news:EYopc.191943$hc5.8...@news3.tin.it...

Hai provato ad impostare il report a 3 colonne (file - imposta pagina -
colonne)?
Ciao.
--
Sergio MAZZA


title: Record orizzontali in un report

text:
Grazie per avermi risposto Sergio!
Si, ho provato a fare come dici tu utilizzando le colonne però
così facendo mi ripete tutto il report su tre colonne.
Per dire la verità il mio problema l'ho risolto stampando in verticale
ma mi piacerebbe comunque sapere se secondo te o gli altri c'è un modo per
fare la seguente cosa
a meno che non sia concettualmente sbagliata :-)
 ho un repport con in intestazione un campo "nome"
 nel corpo c'è un campo "data" e un sottoreport (questo sottoreport stampa 4
o 5 righe)
 al piè di report c'è un cmpo note
ora io vorrei che il sottoreport si ripetesse per ogni set di record
collegato alla data del report principale ma in orizzontale anzichè in
verticale, senza ripetere nel il campo in piè pagina ne quello
in intestazione
secondo te è possibile?  ...o forse ha ragione chi ha detto che il 90% dei
problemi di un pc
stanno tra la tastiera e la sedia :-)
grazie mille
ciaoo
Antonio
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:v0wpc.264474$rM4.11...@news4.tin.it...



title: Record orizzontali in un report

text:
"ant" <
ant...@libero.it
> ha scritto nel messaggio
news:VIwpc.264622$rM4.11...@news4.tin.it...
> Grazie per avermi risposto Sergio!
>
> Si, ho provato a fare come dici tu utilizzando le colonne però
> così facendo mi ripete tutto il report su tre colonne.
> Per dire la verità il mio problema l'ho risolto stampando in verticale
> ma mi piacerebbe comunque sapere se secondo te o gli altri c'è un modo per
> fare la seguente cosa
> a meno che non sia concettualmente sbagliata :-)
>  ho un repport con in intestazione un campo "nome"
>  nel corpo c'è un campo "data" e un sottoreport (questo sottoreport stampa
4
> o 5 righe)
>  al piè di report c'è un cmpo note
>
> ora io vorrei che il sottoreport si ripetesse per ogni set di record
> collegato alla data del report principale ma in orizzontale anzichè in
> verticale, senza ripetere nel il campo in piè pagina ne quello
> in intestazione
>
> secondo te è possibile?  ...o forse ha ragione chi ha detto che il 90% dei
> problemi di un pc
> stanno tra la tastiera e la sedia :-)
>
> grazie mille
>
> ciaoo
> Antonio
>
(regole di questo NG) scrivi alla fine del messaggio, come faccio io;
grazie.
Così su due mani, direi di no; mi sembra complicato quello che vuoi
ottenere, ma potrei non aver capito bene le tue esigenze.
Non capisco quando dici "...ma in orizzontale anzichè in verticale, senza
ripetere nel il campo in piè pagina ne quello in intestazione.."; se il
gruppo di dati nel corpo fa parte del set di record da stampare, la pagina
rimane nei limiti fisici del foglio di carta e non hai impostato nessun
raggruppamento le int/piè di pagina non vengono ripetute.
Quello che potresti fare invece è prima del report prepararti una tabella
che servirà per contenere i dati disposti come vuoi tu; solo che dovrai
farlo con VBA. Sarebbe a dire che dovrai leggere tutti i record da stampare
e scriverli nella posizione descritta da te.
Ma per la cronaca a cosa ti serve un report siffatto?
Ciao.
--
Sergio MAZZA


title: Record orizzontali in un report

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:VUEpc.193992$hc5.8...@news3.tin.it...

Ciao Sergio!
A dire il vero la soluzione che mi prospetti è un po' laboriosa
ma sicuramente quella che più verosimilmente possa portare alla
realizzazione
di questo tipo di stampa.
Sai Sergio che a dire il vero è una pretesa del mio capo...
prima che automatizzassi (si può dire?!) alcune procedure dell'ufficio
lui realizzava una tabella con dei dati giornalieri utilizzando Excel :
c'è una data  un insieme di record correlati a quella data stampati in
gruppetti (4 o 5 colonne)
e sotto delle note, questo su foglio A4 in orizontale
Ora cmqe ho proposto la stampa verticale.... sempra vada bene ugualmente!
Ti ringrazio per avermi risposto sei stato molto gentile
Buona giornata, ciaooo


title: Record orizzontali in un report

text:
"ant" <
ant...@libero.it
> ha scritto nel messaggio
news:SV1qc.198374$hc5.8...@news3.tin.it...
>
> Ciao Sergio!
> A dire il vero la soluzione che mi prospetti è un po' laboriosa
> ma sicuramente quella che più verosimilmente possa portare alla
> realizzazione
> di questo tipo di stampa.
> Sai Sergio che a dire il vero è una pretesa del mio capo...
Ma và?? Eh! Eh!
> prima che automatizzassi (si può dire?!) alcune procedure dell'ufficio
> lui realizzava una tabella con dei dati giornalieri utilizzando Excel :
> c'è una data  un insieme di record correlati a quella data stampati in
> gruppetti (4 o 5 colonne)
> e sotto delle note, questo su foglio A4 in orizontale
>
> Ora cmqe ho proposto la stampa verticale.... sempra vada bene ugualmente!
Bene!
> Ti ringrazio per avermi risposto sei stato molto gentile
E di che?
> Buona giornata, ciaooo
Ciao.
--
Sergio MAZZA


title: aggiornamento automatico di tabella excel collegata

author: Scintilla

text:
Ho creato una tabella excel caricando i dati esterni di un database access.
Mi chiedevo se è possibile fare in modo che la tabella si aggiorni
automaticamente alla sua apertura, senza bisogno di premere il tasto
aggiorna della barra degli strumenti "dati esterni" (il punto esclamativo
rosso.
Grazie in anticipo


author: @Alex (Alessandro Baraldi)

text:
"Scintilla" <
ales...@hotmail.com
> ha scritto nel messaggio
news:NUCRa.47652$it4.1...@news1.tin.it...

C'è eseguendo una connessione tra i 2 Documenti.
Se vai sul Sito Comune
www.sitocomune.com
c'è un esempio sull'Automazione di Excel nella sezione General verso il
fondo.
@Alex.


text:
"Scintilla" <
ales...@hotmail.com
> ha scritto nel messaggio
news:NUCRa.47652$it4.1...@news1.tin.it...

Prova questo:
Dim objApp As Excel.Application
Set objApp = CreateObject("Excel.Application")
objApp.Workbooks.Open "C:\Documenti\cartel1.xls"
objApp.Visible = True
objApp.Selection.QueryTable.Refresh BackgroundQuery:=False
objApp.ActiveWorkbook.Save
objApp.Quit
Set objApp = Nothing
Ciao.
--
Sergio MAZZA


title: tempi esecuzione codice

author: mario rossi

text:
qualcuno sa ricordarmi quel comando per misurare la durata di esecuzione di un codice, ricordo che è da mettere all'inizio e alla fine del codice per salvare il tempo.

grazie.


title: tempi esecuzione codice

author: Andrea

text:
Il 23/03/2019 21:28, mario rossi ha scritto:
> qualcuno sa ricordarmi quel comando per misurare la durata di esecuzione di un codice, ricordo che è da mettere all'inizio e alla fine del codice per salvare il tempo.
>
> grazie.
>

Sub prova()
inizio = Timer

qui il codice della  tua macro

fine = Timer
MsgBox fine - inizio
End Sub


title: Accodare dbf

author: Luciano Raito

text:
Salvea tutti,
Come faccio ad accodare con una macro o da codice dei dati importati in
dbf?
Riesco a farlo se li trasformo in xls ma lasciandoli in dbf no.
Vi spiego meglio il problema. Ho creato un applicativo con access 97 che
deve importare dei dati presenti in File MAker Pro. Da quest'ultimo
posso esportarli in dbf poi li devo salvare in xls e poi posso
importarli accodandoli in access.
E' possibile saltare questo passaggio intermedio?
Grazie
Luciano
--
Posted from [195.62.170.250]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Accodare dbf

text:
"Luciano Raito" <
lucian...@nts.provincia.bologna.it
> ha scritto nel
messaggio news:3A87F78E...@nts.provincia.bologna.it...
> Salvea tutti,
> Come faccio ad accodare con una macro o da codice dei dati importati in
> dbf?
> Riesco a farlo se li trasformo in xls ma lasciandoli in dbf no.
> Vi spiego meglio il problema. Ho creato un applicativo con access 97 che
> deve importare dei dati presenti in File MAker Pro. Da quest'ultimo
> posso esportarli in dbf poi li devo salvare in xls e poi posso
> importarli accodandoli in access.
> E' possibile saltare questo passaggio intermedio?
>
> Grazie
>
> Luciano
>
Hai provato ad allegare il file dbf?
Menů: File - Carica dati esterni - Collega tabelle
Ciao.


title: OLE sparito... Come reinstallarlo?

author: Omar

text:
Ciao a tutti.
Un problema piuttosto urgente, nonchè stranissimo.
In un report, ho inserito un OLE.
L'oggetto in questione è un file.doc, in modo tale che mi mantenga la
formattazione decisa con word.
Fin qui niente di strano.
La cosa strana è che questo collegamento OLE funziona da circa un anno,
senza il minimo problema.
Oggi, sorpresa: nel report (in anteprima) al posto del testo formattato del
.doc, trovo spazio bianco!
Allora entro in visualizzazione struttura, e vado a vedere cos'è successo al
mio .doc OLE.
Lo trovo per intero, come lo avevo inserito l'anno scorso, ma facendogli
sopra un doppio click, anzichè aprirmi il documento con word , mi appare il
seguente msg:
----------------------------------------------------
Impossibile comunicare con il server OLE.
E' possibile che il serrver OLE non sia registrato.
Per registrarlo, rieseguirne l'installazione.
----------------------------------------------------
Qualcuno sa dirmi come registrare (dovrei dire: riregistrare) il server OLE
per Word?
regsvr32 e poi?
La domanda più interessante invece è questo: cosa può aver causato la
"perdita" della registrazione del server OLE in questione?
Può essere (cosa che ritengo probabile, anche perchè è l'unica cosa alla
quale posso imputarne la colpa), che installando un software, questo mi
disinstalli l'OLE per Word?
Grazie a chiunque mi tolga dall'impiccio.
Omar.
P.S. Uso A97, W98


title: OLE sparito... Come reinstallarlo?

author: Sergio MAZZA (Ufficio Stampa)

text:
"Omar" <
om...@spidernet.it
> ha scritto nel messaggio
news:faLT6.6570$Ft6.2...@news.infostrada.it...

E' molto probabile che la tua ultima ipotesi sia quella giusta; quale
applicazione hai installato?
Ciao.


title: Comando simile al LPAD di SQL

author: Old-Jack

text:
Salve, sto cercando in Access il comando simile LPAD di SQL.
Il mio problema è il seguente ho una tabella con quattro campi numerici.
Devo riempire l'ultimo campo con l'insieme dei primi tre e deve avere sempre
la stessa lunghezza, dunque dove necessario devo inserire degli zeri.
Spero di essere stato chiaro.
Grazie a tutti.
    Old-Jack!


title: Comando simile al LPAD di SQL

text:
Old-Jack <
spi...@libero.it
> wrote in message
c0Hs7.7242$aE.17...@news.infostrada.it...

Grazie lo stesso ragazzi, ma ho già risolto.
Perchì fosse interessato, ho adoperato la seguente stringa:
    Format([NomeCampo];"00")
Ciao
    Old-Jack!


title: compattare mdb protetto

author: Michele

text:
In un mesaggio precedente avevo esposto il problema di non poter far
eseguire il backup e la compressione, con file potetti da password, la
password ho provata ad inserirla  all'interno della seguente riga:
DBEngine.CompactDatabase backend, backend & ".new", , , "password"
ma inserendola ed eseguendo una funzione di backup mi da il seguente
errore
errore 3170 - impossibile trovare ISAM instabile
qualcuno di voi è in grado di risolvermi tale impiccio che purtroppo
non riesco a venirne fuori.
Vi ringrazio anticipatamente per l'interessamento..
Michele


title: compattare mdb protetto

author: Pablitomf

text:
Michele ha scritto:

Se cerchi in rete, troverai qualcuno che ha già discusso di questo
errore... c'è chi ti direbbe di formattare la macchina (non ci pensare
neanche), chi di reinstallare Windows perchè solo così sostituiresti le
librerie che ti creano tale problema (io non l'ho fatto)... io ho risolto
a suo tempo sia reinstallando il programma che creava il problema sia
reinstallando access.
--
Pablitomf
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: compattare mdb protetto

author: ArgoDimostraChiSei

text:
> > DBEngine.CompactDatabase backend, backend & ".new", , , "password"
> > ma inserendola ed eseguendo una funzione di backup mi da il seguente
> Se cerchi in rete, troverai qualcuno che ha già discusso di questo
> errore... c'è chi ti direbbe di formattare la macchina (non ci pensare
> neanche), chi di reinstallare Windows perchè solo così sostituiresti le
> librerie che ti creano tale problema (io non l'ho fatto)... io ho risolto
> a suo tempo sia reinstallando il programma che creava il problema sia
> reinstallando access.
oh!
addirittura!!
cmq l'errore è in questa riga:
DBEngine.CompactDatabase backend, backend & ".new", , , "password"
che invece è:
DBEngine.CompactDatabase backend, backend & ".new", , , ";pwd=password"


title: compattare mdb protetto

text:
pabl...@virgilio.it
 (Pablitomf) wrote in message news:<cbbcui$4k1$
1...@news.newsland.it
>...
> Michele ha scritto:
> > DBEngine.CompactDatabase backend, backend & ".new", , , "password"
>
> Se cerchi in rete, troverai qualcuno che ha già discusso di questo
> errore... c'è chi ti direbbe di formattare la macchina (non ci pensare
> neanche), chi di reinstallare Windows perchè solo così sostituiresti le
> librerie che ti creano tale problema (io non l'ho fatto)... io ho risolto
> a suo tempo sia reinstallando il programma che creava il problema sia
> reinstallando access.
>
> --
> Pablitomf
ma forse ti prendevano in giro, pablito...
cmq l'errore è nella riga:
DBEngine.CompactDatabase backend, backend & ".new", , , "password"
che effettivamente dà l'errore di michele.
la riga corretta è:
DBEngine.CompactDatabase backend, backend & ".new", , , ";pwd=password"


title: compattare mdb protetto

text:
ArgoDimostraChiSei ha scritto:
> ma forse ti prendevano in giro, pablito...
> cmq l'errore è nella riga:
> DBEngine.CompactDatabase backend, backend & ".new", , , "password"
> che effettivamente dà l'errore di michele.
> la riga corretta è:
> DBEngine.CompactDatabase backend, backend & ".new", , , ";pwd=password"
Purtroppo "avrei voluto" fosse uno scherzo, ma pur utilizzando il tuo
suggerimento di oggi, a suo tempo la cosa non ha funzionato... l'unico
metodo è stato quello che hai letto... spero che ArgoDimostraChiSei abbia
l'effetto desiderato in questo caso... ne sarei contento e mi chiederei
altri perchè...
Fatemi sapere, che "sfondo" il gestionale e lo "incendio" :-)



title: compattare mdb protetto

text:
pabl...@virgilio.it
 (Pablitomf) wrote in message news:<cbc33a$vdq$
1...@news.newsland.it
>...

grazie tanto, era la soluzione che stavo cercando è proprio vero che
la soluzione era sotto il naso.


title: compattare mdb protetto

text:
pabl...@virgilio.it
 (Pablitomf) wrote in message news:<cbc33a$vdq$
1...@news.newsland.it
>...

grazie tanto, era la soluzione che stavo cercando è proprio vero che
la soluzione era sotto il naso.
Michele


title: Modifica formato testo

author: Raffaele Trombini

text:
Ho una casella di testo in una maschera dove devo inserire un progressivo.
Esso deve però sempre avere 7 cifre.
Per esempio se digito 34, deve figurare 0000034.
Credo di dover usare il formato testo.
Tale valore mi servirà poi, assieme ad altri dati, per comporre un codice
ad alto livello del tipo XYZ_0000034_ABC.
Come posso procedere?
Grazie ancora per l'aiuto!!!
Ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Modifica formato testo

author: Marco Antonioli

text:
"Raffaele Trombini" <
trombini...@libero.it
> wrote in message
news:eqhnfa$l3l$
1...@news.newsland.it
> Ho una casella di testo in una maschera dove devo inserire un progressivo.
> Esso deve però sempre avere 7 cifre.
> Per esempio se digito 34, deve figurare 0000034.
> Credo di dover usare il formato testo.
> Tale valore mi servirà poi, assieme ad altri dati, per comporre un codice
> ad alto livello del tipo XYZ_0000034_ABC.
> Come posso procedere?
>
> Grazie ancora per l'aiuto!!!
>
> Ciao
Su evento dopo aggiornamento della casella di testo "Testo0" scrivi :
Me.Testo0 = Right(String(7, "0") & Me.Testo0, 7)
Ciao
MArco
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Modifica formato testo

author: MA

text:
Raffaele Trombini wrote:
> Ho una casella di testo in una maschera dove devo inserire un
> progressivo. Esso deve però sempre avere 7 cifre.
> Per esempio se digito 34, deve figurare 0000034.
> Credo di dover usare il formato testo.
> Tale valore mi servirà poi, assieme ad altri dati, per comporre un
> codice ad alto livello del tipo XYZ_0000034_ABC.
> Come posso procedere?
>
> Grazie ancora per l'aiuto!!!
>
> Ciao
Format(tuovalore,"0000000")
--
--
Massimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: selezionare i record di tabella A che rispettano un criterio di tabella B

author: tmtube

text:
mi spiego ho una tabella allievi e vorrei applicare un filtro alla form
allievi_listato e avere solo i record che hanno almeno un abbonamento attivo
nella tabella abbonamenti e aventi sede uguale a una mia variabile idsede

quindi tabella allievi
mario rossi
stefano bianchi

tabella abbonamenti
abbonamento 1 mario rossi idsede 1
abbonamento 2 stefano bianchi idsede 2

miavariabile=1

dovrei filtrare i record allievi ottenendo solo mario

qualcuno sa darmi una dritta?


author: pfmarro

text:

1 - creati una query con tutti gli abbonamenti attivi --> (es. qAbbAattivi)
2 - (se le relazioni sono giuste) una query: Allievi <-- qAbbAattivi


title: Aggiornamento record

text:
Ho creato database per tutti i pc  e stampanti della mia azienda,
inserendo  tutte le caratteristiche come:
operatore. tipo  pc, processore pc ,ram pc,stampante ecc.
Con una maschera vado ad aggiornare e ad inserire dati (per es. nuovi pc).
La maschera comprende anche una casella combinata, (collegata ad una tabella
dove ci sono tutti i nome dei personal computers ) dove vado ad selezionare
per es.un modello di personal computer diverso.
Quello che volevo chiedervi, con gentilezza,  è questo:
E' possibile che quando vado ad inserire un nuovo modello di pc anche gli
altri campi ,come processore, ram ecc., vengono aggiornati automaticamente
secondo le caratteristiche del personal computer?
Grazie
Ciao


title: Aggiornamento record

author: Sirio

text:
Si, si può. Dovresti però usare una chiave primaria nella tabella dei
personal computer (un contatore può andar bene, se non ne hai già una) e
memorizzarla nell'altra tabella (quella con i nomi degli operatori) al posto
del tipo PC.
Così sull'evento AfterUpdate della casella 'tipo PC' puoi scrivere alcune
righe di codice che compilino i campi processore, RAM, ecc...
per esempio:
Private Sub tipoPC_AfterUpdate()
    Me.processore=DLookup("processore", tblPC, "CodPC=" & Me.tipoPC)
    Me.RAM=DLookup("RAM", tblPC, "CodPC=" & Me.tipoPC)
End Sub
dove:
tblPC è il nome della tabella che contiene i dati dei PC
'processore' è il nome del campo che contiene il dato sul processore
'RAM' è il nome del campo che contiene il dato sulla RAM
Per i dettagli sulla funzione DLookup vedi la guida in linea.
Se i campi da aggiornare sono parecchi sarebbe meglio aprire un recordset
che restituisca la riga della tabella PC corrispondente al tipoPC
selezionato, e poi assegnare i valori alle varie caselle, invece di
richiamare troppe volte la DLookup.


title: Aggiornamento record

text:
Grazie x avermi risposto.
Ho provato ma non funziona.
Ti descrivo meglio il db.
Ho una tabella con nome censimento e campi con nome:
operatore; modello pc; process ;ram; cap_disco; sistoper; matr pc; gar pc.
Poi un'altra tabella con nome modellopc e un campo con nome Modello_pc,
(successivamente ho inserito anche il compo con nome: "process"e  "ram"),
dove ci sono solamente il nome dei PC, che mi serve solamente per la casella
di riepilogo nella maschera.
Ho provato ad inserire un campo contatore nella tabella,  però non ho capito
dove devo memorizzarla
tu mi dici sull'altra tabella ma quale?
Quella con nome "censimento"? E se è questa in che modo farlo?
Scusami per il disturbo c
ciao
"Sirio" <
si...@post.com
> ha scritto nel messaggio
news:RCz%4.139279$VM3.9...@news.infostrada.it...



title: Aggiornamento record

author: Di Francesco Nino

text:
Andrea <
and...@tiscalinet.it
> wrote in message
8hlriq$ev2$1...@news.flashnet.it...

Prova a dare come origine record della casella combinata, da cui selezioni
il computer, non solo il modello Pc ma anche tutti gli altri dati della
tabella.
Quando selezioni dalla casella combinata il PC voluto, nelle colonne
seguenti della casella combinata hai a disposizione tutti gli altri dettagli
(ram ecc.).
Potrai fare riferimento a loro con Me.NomeCasellaCombinata.Column(n) dove n
è il numero della colonna a cui vuoi riferirti (La numerazione delle colonne
parte da 0).
Quindi per settare ad esempio il campo della memoria potrai usare:
Me.Ram = Me.NomeCasellaCombinata.Column(1).
Ciao nino.


title: Aggiornamento record

text:
"Di Francesco Nino" <
ino...@tin.it
> ha scritto nel messaggio
news:8hp9o3$321$1...@nslave2.tin.it...

> Ciao grazie x avermi risposto.
Ho provato come tu dici ma mi inserisce nel campo ram
il nome del modello del pc.
Ho provato ha fare alcune prova senza nessun fine.
Tu cosa ne pensi?
Ciao grazie
>


title: Aggiornamento record

author: Roberto

text:
Andrea <
and...@tiscalinet.it
> wrote in message
8hnrjv$746$1...@news.flashnet.it...
[CUT].
>
> Ti descrivo meglio il db.
> Ho una tabella con nome censimento e campi con nome:
> operatore; modello pc; process ;ram; cap_disco; sistoper; matr pc; gar pc.
>
> Poi un'altra tabella con nome modellopc e un campo con nome Modello_pc,
> (successivamente ho inserito anche il compo con nome: "process"e  "ram"),
> dove ci sono solamente il nome dei PC, che mi serve solamente per la
casella
> di riepilogo nella maschera.
>
Innanzi tutto le soluzioni che ti hanno dato Sirio e Nino sono più che
valide, ma mi sembra che sei in difficoltà ad attuarle; fra l'altro, come ti
è
stato detto, nell'architettura del DB c'è una ridondanza di dati (i campi
"process" e " ram" li hai in ambedue le tabelle). Comunque cerchiamo una
soluzione che sia più vicina possibile alla tua impostazione.
Comunque è necessario fissare la struttura delle due tabelle rispettando
almeno due necessità imprescindibili: il fatto che va localizzata per ognuna
delle due tabelle una chiave primaria (che contraddistinguerà in maniera
univoca le righe di ogni tabella) e determinare un campo in base al quale
mettere in relazione le due tabelle e che pertanto deve essere contenuto in
ambedue le tabelle.
Cominciamo con la tabella ModelloPC. Nel modo in cui l'hai descritta, come
ti ha fatto notare Sirio, manca di una chiave primaria: dichiara la tabella
come te la
ha proposta Sirio, ovvero:
Nome Campo            Tipo Dati
IDModPC                   Contatore
Modello_pc                Testo
Process_pc               Testo
Ram_pc                     Testo
Prima di registrare la struttura di questa tabella dichiarati il controllo
CodPC come chiave primaria.
Anche la tabella Censimento, così come l'hai descritta non ha una chiave
primaria e pertanto dichiaratela così:
Nome Campo            Tipo Dati
IDpc                            Contatore
Operatore                   Testo
IDModPC                    Numerico
Process                      Testo
Ram                            Testo
Cap_disco                 Testo
SistOper                     Testo
MatrPC                       Testo
GarPC                        Data       (immagino che ci vuoi memorizzare la
data di scadenza della garanzia)
Prima di chiudere la struttura di questa tabella dichiarati il controllo
IDpc come chiave primaria, e devi anche dichiararti IDModPC come casella
combinata. Per fare questo clicca con il mouse nella colonna Tipo Dati di
questo controllo (dove hai scritto "Numerico"), ti si apre un menu  a
tendina dal quale seleziona "Autocomposizione Ricerca.."; nella finestra che
ti compare seleziona il bottone "Tabella o Query" e premi il pulsante
Avanti; nella seconda schermata seleziona dalla lista la tabella "ModelloPC"
e premi il pulsante Avanti; nella terza schermata premi il tasto ">>" per
spostare tutti i campi dalla lista "Campi disponibili:" alla lista "Campi
selezionati:" e premi il pulsante Avanti; nella quarta schermata premi il
pulsante Avanti; nella quinta schermata premi il pulsante Fine. Così
facendo, oltre a dichiararti IDModPC come casella combinata, hai messo in
relazionela le due tabelle tramite questo controllo, che come vedi è
contenuto in ambedue.
Ora riempi la Tabella ModelloPC con i dati che gli competono.
Dichiarati (magari con l'autocomposizione) una maschera (MASCHERA1) che
abbia come "Origine record" la tabella Censimento. Apri MASCHERA1 in
modalità Struttura, evidenzia la casella combinata IDModPC e a fronte della
proprietà Evento "Dopo aggiornamento" di questo controllo genera il seguente
codice VBA:
Private Sub IDModPC_AfterUpdate()
Me![Process] = Me![IDModPC].Column(2)
Me![Ram] = Me![IDModPC].Column(3)
End Sub
Il gioco è fatto: apri MASCHERA1, prova ad inserire i dati, dovrebbe
succedere quello che volevi.
Almeno spero :-))))
Ciao Roberto


title: Aggiornamento record

text:
Grazie ora funziona
Sei molto gentile
"Roberto" <
r.ma...@libero.it
> ha scritto nel messaggio
news:q0e05.152502$VM3.1...@news.infostrada.it...



title: Aggiornare record in base ad altri di stessa tabella.

author: Riccardo Baldinotti

text:
Devo aggiornare alcuni campi di tOperatori nei record in cui
[BandoN]='539' (alfanumerico), cio� quelli che estrarrei con:

A) select * from tOperatori where (((tOperatori.[BandoN])='539'))

mettendo i valori presenti nei record di tOperatori in cui
[BandoN]<>'539', cio�

B) select * from tOperatori where (((tOperatori.[BandoN])<>'539'))

A causa di pastrocchi ereditati e che la fretta non mi ha permesso di
correggere, i record in B) sono pi� di uno per [Codice operatore], che �
la chiave primaria (ovviamente) duplicabile.

Una query cos�:

UPDATE DISTINCTROW tOperatori INNER JOIN (SELECT * FROM tOperatori
WHERE (((tOperatori.[BandoN])<>'539'))) AS B ON tOperatori.[Codice
operatore] = B.[Codice operatore]
SET tOperatori.codBen = B.codBen,  <E ALTRI AGGIORNAMENTI>
WHERE (((tOperatori.[BandoN])='539'));

mi mostra, con Home, Visualizzazione foglio dati, 27 record, che sono
quelli di A), ma quando do Esegui mi annuncia la modifica di 750 record,
corrispondenti al numero di record in:

SELECT tOperatori.[Codice operatore], A.[Codice operatore]
FROM tOperatori INNER JOIN (select * from tOperatori where
(((tOperatori.[BandoN])='539'))) AS A ON tOperatori.[Codice operatore] =
A.[Codice operatore]
WHERE (((tOperatori.[BandoN])<>'539'));

cio� l'incrocio dei record con [BandoN]<>'539' e quelli con [BandoN]='539'.

Se nei record di B) mi riscrive i valori gi� presenti, non � un problema;
lo � per me il fatto di non riuscire a risolvere l'arzigogolo, cio� come
selezionare i soli 27 record che sono effettivamente da aggionare.

Ho provato a creare una tabella che contenga i record di B), cos�:

SELECT DISTINCT tOperatori.[Codice operatore], <ECCETERA> INTO b
FROM tOperatori
WHERE (((tOperatori.[BandoN])<>'539'));

e fare l'aggiornamento su quella, e i record aggiornati sono
effettivamente 27. Io per� mi domandavo se ci fosse modo di evitare la
creazione di una tabella intermedia.

Chiedo scusa per la prolissit� e ringrazio tutti

--
Riccardo Baldinotti

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


title: Inviare report via email

author: Odla

text:
Vorrei inviare un report Access via email.
Come faccio per non perdere la formattazzione ed eventuali immagini
contenute?
Grazie a tutti
Aldo


title: Inviare report via email

author: ciroteo

text:
"Odla" <
ab6...@tiscali.it
> ha scritto nel messaggio
news:Q28Lg.94231$zy5.1...@twister1.libero.it...

generalmente si esporta in pdf o formato snapshot.
su sitocomune e sui 3d precedenti c'è un sacco di informazioni a proposito.
prova a fare un controllo se poi non riesci torna pure a chiedere maggiori
chiarimenti.
M


title: Problema con PWD in un progetto ADP

author: sabrina

text:
Salve a tutti,
    avrei il seguente problema:
non riesco più ad effettuare un collegamento tra tabelle in db diversi
dal progetto ADP in Access2003 vorrei collegare una tabella presente su un
db be di Access2003, ma quando provo mi chiede una pwd che non so dove ho
settato
Nel progetto ADP utilizzo per l'accesso l'utente sa
nel db Access non ho utente e pwd
Ciao e grazie per l'aiuto
Sabrina


title: Problema con modulo/macro/excel

author: Simone Lucesoli

text:
Ho finalmente trovato l'errore (anche se non me lo spiego!).
utilizzo il seguente modulo:
Dim excApp As Object
Dim ExcDoc As Object
VDoc = "C:\ritardo eurostar\es-lp.xls"
Set excApp = CreateObject("Excel.Application")
Set ExcDoc = excApp.Workbooks.Open(VDoc)
...........................................................................
savechanges = True
excApp.Application.Quit
Set ExcDoc = Nothing
Set excApp = Nothing
che funziona benissimo, l'istruzione che segue č:
DoCmd.RunMacro "trasferisci foglio xls"
(macro che, con il comando trasferiscifogliocalcolo, trasferisce il foglio
elaborato nella tabella)
ma questo comando lascia l'applicazione Excel aperta! (non riesco infatti a
cancellare il dile.xls perchč ancora in uso!!)
Non mi spiego l'errore in quanto se utilizzo il modulo e la macro
separatamente tutto va benone!
Sapete dirmi qualcosa in proposito??


title: Problema con modulo/macro/excel

author: Emyr

text:


e tu importa da codice e non con macro con trasferdatasheet
Saluti.
Emanuele.


title: Oggetto Schede - Ciusura Maschera

author: Michele

text:
Grazie al NG per le precedenti "attenzioni".
Se possibile,
vorrei imparare 2 procedure (se ...fattibili!!!)
1) Da codice,
e possibile modificare l'etichetta es: Page1
della "Page" di una scheda?
...nello specifico:
In una Maschera c'� l'oggetto schede formato da 3 Pages.
In ogni Page vi � una sottomaschera che restituisce dei dati.
Poich� pu� verificarsi che i dati siano nella Page2 e che la 1 e la 3 siano
prive di dati,
oltra aposizionarmi sulla prima scheda utile (in questo caso la 2)
...che ho risolto,
mi piacerebbe che nella scheda dove sono presenti dei dati,
ci sia un qualche effetto visivo (es: Nome pagina scritto in grassetto e di
colore diverso).
2) Da codice � possibile chiudere 2 maschere? (quella in uso e un'eventuale
maschera rimasta aperta - o tramite pulsante o, ...all'apertura di una nuova
maschera).
...Credo che mi "odierete", comunque vi ringrazio se potete
darmi qualche "dritta" (sempre che siano operazioni fattibili).
Ciao
Michele


title: Oggetto Schede - Ciusura Maschera

text:
"Michele" <
miche...@email.it
> ha scritto nel messaggio
news:_n53n.84100$813....@tornado.fastwebnet.it...
> Grazie al NG per le precedenti "attenzioni".
>
Chiudere Maschere dopo aver aperto una Maschera
Risolto (fonte: Sito Comune)
inserire in un modulo la seguente sub:
Public Sub CloseAllExcept(ParamArray DontClose())
    Dim intCount As Integer
    Dim intX As Integer
    Dim intLBound As Integer
    Dim intUBound As Integer
    Dim strTest As String
    intLBound = LBound(DontClose)
    intUBound = UBound(DontClose)
    If intUBound >= intLBound Then
        strTest = " IN ("
        For intX = intLBound To intUBound
            strTest = strTest & "'" & DontClose(intX) & "', "
        Next
        strTest = Left(strTest, Len(strTest) - 2) & ")"
        intCount = Forms.Count - 1
        For intX = intCount To 0 Step -1
            If Eval("'" & Forms(intX).Name & "'" & strTest) <> True Then
                DoCmd.Close acForm, Forms(intX).Name
            End If
        Next
    End If
End Sub
Inserire nel codice che apre la nuova maschera la riga seguente:
Call CloseAllExcept("NomeMascheraAperta")
Sempre da Sito Comune,
per quanto attiene le modifiche su TabCt (Schede),
in particolare sulle Pages, viene ribadito che non sono possibili
modifiche particolari.
Un grazie comunque per chi stava comunque prestando
attenzione al post!!!!!!
Ciao, Michele


title: ordinamento tabella

author: Concetto

text:
Buon Giorno a tutti,
devo ordinare i record del campo, di tipo testo,  di una tabella a
partire da un dato carattere,
mi spieo meglio,
normalmente l'ordinamento alfabetico dei record si basa a partire dal
primo carattere , ora a me serve di scandire ogni re trovare il
carattere asterisco e utilizzare il carattere successivo come base
dell'ordinamento.
Spero di essere stato chiaro,
avete qualche idea per risolvere il problema?
Grazie  Concetto.


title: ordinamento tabella

author: Roberto da casa

text:
"Concetto" <
cga...@unict.it
> ha scritto nel messaggio
news:d3d9kh$b8g$1...@newsfeed.cineca.it...

Se devi ordinare solo in base al carattere che segue l'asterisco in un campo
di tipo Testo.
Se tale campo di tipo Testo si chiama MioCampo.
Se la tabella si chiama Tabella1.
creati la seguente query:
SELECT Tabella1.*
FROM Tabella1
ORDER BY Mid([MioCampo],InStr([MioCampo],"*")+1,1);
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: ordinamento tabella

text:
Roberto da casa wrote:
> "Concetto" <
cga...@unict.it
> ha scritto nel messaggio
> news:d3d9kh$b8g$1...@newsfeed.cineca.it...
>
>>Buon Giorno a tutti,
>>devo ordinare i record del campo, di tipo testo,  di una tabella a
>>partire da un dato carattere,
>>mi spieo meglio,
>>normalmente l'ordinamento alfabetico dei record si basa a partire dal
>>primo carattere , ora a me serve di scandire ogni re trovare il
>>carattere asterisco e utilizzare il carattere successivo come base
>>dell'ordinamento.
>>Spero di essere stato chiaro,
>>avete qualche idea per risolvere il problema?
>>Grazie  Concetto.
>
>
> Se devi ordinare solo in base al carattere che segue l'asterisco in un campo
> di tipo Testo.
> Se tale campo di tipo Testo si chiama MioCampo.
> Se la tabella si chiama Tabella1.
>
> creati la seguente query:
>
> SELECT Tabella1.*
> FROM Tabella1
> ORDER BY Mid([MioCampo],InStr([MioCampo],"*")+1,1);
>
Perfetto, era proprio quello che cercavo, grazie infiniti,
in futuro per evitare domande del genere dove posso documentarmi,
per questi tipi di comandi SQL?,
che tipo di manuale mi consigli?
sul sito comune non ho trovato nienet su libri SQL,
Grazie di nuovo, Ciao
Concetto


title: ordinamento tabella

text:
"Concetto" <
cga...@unict.it
> ha scritto nel messaggio
news:d3dhqh$f6n$1...@newsfeed.cineca.it...

Il problema è stato risolto tramite le funzioni intrinseche di Access Mid e
InStr (vedi help) che non hanno nulla a che spartire con il linguaggio SQL,
ma eventualmente con il linguaggio VBA.
> che tipo di manuale mi consigli?
> sul sito comune non ho trovato nienet su libri SQL,
Nella Sezione Libri del Sito Comune, se non ricordo male, ci sono delle
recensioni sui manuali VBA.
>
> Grazie di nuovo, Ciao
> Concetto
--



title: ordinamento tabella

text:
Roberto da casa wrote:
>>>Se devi ordinare solo in base al carattere che segue l'asterisco in un
>
> campo
>
>>>di tipo Testo.
>>>Se tale campo di tipo Testo si chiama MioCampo.
>>>Se la tabella si chiama Tabella1.
>>>
>>>creati la seguente query:
>>>
>>>SELECT Tabella1.*
>>>FROM Tabella1
>>>ORDER BY Mid([MioCampo],InStr([MioCampo],"*")+1,1);
>>>
>>
>>Perfetto, era proprio quello che cercavo, grazie infiniti,
>>in futuro per evitare domande del genere dove posso documentarmi,
>>per questi tipi di comandi SQL?,
>
>
> Il problema è stato risolto tramite le funzioni intrinseche di Access Mid e
> InStr (vedi help) che non hanno nulla a che spartire con il linguaggio SQL,
> ma eventualmente con il linguaggio VBA.
Scusami, siccome la query che mi hai indicata l'ho inserita come comando
SQL ho creduto che fosse cosi'
>
>
>>che tipo di manuale mi consigli?
>>sul sito comune non ho trovato nienet su libri SQL,
>
>
> Nella Sezione Libri del Sito Comune, se non ricordo male, ci sono delle
> recensioni sui manuali VBA.
e' vero come VBA sono presenti diverse recensioni
>
di nuovo mille grazie,
Concetto


title: ordinamento tabella

text:
> >>>
> >>>SELECT Tabella1.*
> >>>FROM Tabella1
> >>>ORDER BY Mid([MioCampo],InStr([MioCampo],"*")+1,1);
> >>>
> >>
> >>Perfetto, era proprio quello che cercavo, grazie infiniti,
> >>in futuro per evitare domande del genere dove posso documentarmi,
> >>per questi tipi di comandi SQL?,
> >
> >
> > Il problema è stato risolto tramite le funzioni intrinseche di Access Mid e
> > InStr (vedi help) che non hanno nulla a che spartire con il linguaggio SQL,
> > ma eventualmente con il linguaggio VBA.
>
> Scusami, siccome la query che mi hai indicata l'ho inserita come comando
> SQL ho creduto che fosse cosi'
> >
> >
> >>che tipo di manuale mi consigli?
> >>sul sito comune non ho trovato nienet su libri SQL,
> >
> >
> > Nella Sezione Libri del Sito Comune, se non ricordo male, ci sono delle
> > recensioni sui manuali VBA.
>
> e' vero come VBA sono presenti diverse recensioni
> >
>
> di nuovo mille grazie,
> Concetto
Ciao.
Ovviamente se hai più record con la stessa lettera dopo l'asterisco
l'ordinamento avrà un significato generale: come ordinare quei record
tra di loro? Non è forse meglio ordinare prendendo tutto quello che
segue l'asterisco?
Ad es. con
ORDER BY Mid([MioCampo],InStr([MioCampo],"*")+1,Len([MioCampo])-InStr([MioCampo],"*"));
Scusa l'intromissione, forse ho presupposto troppo dalle poche righe.
Saluti a tutti.
Bingo


title: ordinamento tabella

text:
"a.simov" <
si...@libero.it
> ha scritto nel messaggio
news:76679509.05041...@posting.google.com...
[CUT]
>
> Ciao.
> Ovviamente se hai più record con la stessa lettera dopo l'asterisco
> l'ordinamento avrà un significato generale: come ordinare quei record
> tra di loro? Non è forse meglio ordinare prendendo tutto quello che
> segue l'asterisco?
>
> Ad es. con
>
> ORDER BY
Mid([MioCampo],InStr([MioCampo],"*")+1,Len([MioCampo])-InStr([MioCampo],"*")
);
Sarebbe stato sufficiente non indicare la lunghezza della funzione Mid,
ovvero:
ORDER BY Mid([MioCampo],InStr([MioCampo],"*")+1);
>
> Scusa l'intromissione, forse ho presupposto troppo dalle poche righe.
> Saluti a tutti.
> Bingo
--



title: Divisione BE FE

author: eb

text:
Mi pare di aver capito che il BE abbia la possibilitŕ di essere salvato su
un server remoto ed i Fe possano essere distribuiti ai vari utenti che si
collegano allo stesso BE.
La mia domanda č:
E' necessario che il server remoto (per intenderci quelli disponibili per la
pubblicazione di pagine Internet HTML) abbia per forza il servizio FTP
attivato od č possibile salvarlo nel servizio HTTP come se fosse una pagina
WEB.
Ciao e grazie.
Enzo


title: Divisione BE FE

author: Luciano (DOC)

text:
"eb" <
e...@libero.it
> wrote in message
news:98i7t2$gaq$1...@fe1.cs.interbusiness.it...
> La mia domanda č:
> E' necessario che il server remoto (per intenderci quelli disponibili per
la
> pubblicazione di pagine Internet HTML) abbia per forza il servizio FTP
> attivato od č possibile salvarlo nel servizio HTTP come se fosse una
pagina
> WEB.
Ne' l'uno ne' l'altro...il fatto che il server dove risiede il BE sia un
server FTP non significa di per se nulla. Un FE Access non e'
automaticamente un client di rete TCP. Se vuoi accedere ad un BE posto su un
server HTTP (FTP non serve proprio) devi usare ASP, ovvero devi riscrivere
il tuo FE con VBscript. Tanto per fare un po' di pubblicita,  vai sul sito
comune (
www.sitocomume.com
) e guarda l'archivio storico dei messaggi del NG:
altro non e' che un BE MDB.
Saluti.
Luciano
(DOC)


title: Divisione BE FE

text:
Volevo semplicemente evitare di riscrivere il Database visto che è
abbastanza complesso e sinceramente riprodurlo in ASP diventa quasi
impossibile (maschera con sottomaschere nidificate,...) nonostante scriva
pagine ASP quotidianamente.
Ciao
Enzo
Luciano (DOC) <
lucia...@sitocomune.com
> wrote in message
yoqr6.53546$lj4.1...@news6.giganews.com...
>


title: Divisione BE FE


title: Query e numero di record

author: Filippo Vinciguerra

text:
Ciao a tutti
Domanda facile: in una query c'è un modo per rilevare il numero progressivo
di record selezionati?
Intendo non i record della tabella di origine ma soltanto quelli 'presi'
dalla query.
Esiste in altre parole un contatore che possa essere inserito nella query,
qualcosa come Contatore AS Espr1, in un campo della query?
Grazie
Filippo


title: Query e numero di record

author: Alessandro Romeo

text:
"Filippo Vinciguerra" <
ma...@studiovinciguerra.it
> ha scritto nel messaggio
news:a23oa6$ke3$1...@news.panservice.it...

Puoi provare ad utilizzare la funzione count(nomecampo) in modo che ti
ritorni il numero di record selezionati.
Select count(primaryKey) as contarecord from nometabella
Ciao Alessandro


title: Query e numero di record

text:
"Alessandro Romeo" <
alessand...@hotmail.com
> ha scritto nel messaggio
news:LCd18.33708$aD.12...@twister2.libero.it...

Grazie ma non è quello che mi serve.
Non ho bisogno di sapere quanti record ho selezionato ma mi serve un campo
della query con i numeri progressivi da 1 (per il primo record) al totale
dei record
Come si fa?
Filippo


title: Query e numero di record

author: Antonio Biso

text:
Filippo Vinciguerra <
ma...@studiovinciguerra.it
> wrote in message
a23oa6$ke3$1...@news.panservice.it...

A dicembre scrissi una soluzione per questo problema...
Antonio


title: Query e numero di record

text:
>>cut<
> > Puoi provare ad utilizzare la funzione count(nomecampo) in modo che ti
> > ritorni il numero di record selezionati.
> > Select count(primaryKey) as contarecord from nometabella
> >
> > Ciao Alessandro
> >
> Grazie ma non è quello che mi serve.
> Non ho bisogno di sapere quanti record ho selezionato ma mi serve un campo
> della query con i numeri progressivi da 1 (per il primo record) al totale
> dei record
> Come si fa?
> Filippo
>
>
Se mi dici se devono comparire in maschera od in tabella cerco di capire se
c'e' qualche possibilita' (al momento non mi viene in mente nulla).
Ciao Alessandro


title: Query e numero di record

author: Karl Donaubauer

text:
Filippo Vinciguerra ha scritto:

Puoi usare SQL per farti un campo contatore nella query. p.e.
Contatore: (Select Count (*) FROM [Tabella] as Temp WHERE [Temp].[ID]
< [Tabella].[ID])+1
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Query e numero di record

text:
>>CUT<
> > Puoi provare ad utilizzare la funzione count(nomecampo) in modo che ti
> > ritorni il numero di record selezionati.
> > Select count(primaryKey) as contarecord from nometabella
> >
> > Ciao Alessandro
> >
> Grazie ma non è quello che mi serve.
> Non ho bisogno di sapere quanti record ho selezionato ma mi serve un campo
> della query con i numeri progressivi da 1 (per il primo record) al totale
> dei record
> Come si fa?
> Filippo
>
>
Una soluzione appena testata puo' essere qs.
1.Crei una tabella TEMP la cui struttura e' identica ai campi che estrai
dalla query piu' un campo IdSel contatore.
2.La tua query la fai passare da query di selezione a query di accodamento
sulla tabella TEMP.
3.Avrai cosi' una tabella con il risultato della query e con un contatore
per ogni record.
Ricorda pero' di pulire la tabella ogni volta prima dell'utilizzo altrimenti
ti accoda tutte le volte nuovi record.
Qs. metodo funziona non so quanto sia "pulito" ma riesci ad avere cio' che
ti serve


title: Query e numero di record

text:
Filippo Vinciguerra ha scritto:

No. Non esiste. Ma puoi usare SQL per farti un contatore. p.e.



title: Query e numero di record

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:M8e18.33828$aD.12...@twister2.libero.it...

E come si fa a ritrovare quello che scrivesti a dicembre?


title: Query e numero di record

text:
"Alessandro Romeo" <
alessand...@hotmail.com
> ha scritto nel messaggio
news:7uf18.34153$aD.12...@twister2.libero.it...
> >>CUT<
> > > Puoi provare ad utilizzare la funzione count(nomecampo) in modo che ti
> > > ritorni il numero di record selezionati.
> > > Select count(primaryKey) as contarecord from nometabella
> > >
> > > Ciao Alessandro
> > >
> > Grazie ma non č quello che mi serve.
> > Non ho bisogno di sapere quanti record ho selezionato ma mi serve un
campo
> > della query con i numeri progressivi da 1 (per il primo record) al
totale
> > dei record
> > Come si fa?
> > Filippo
> >
> >
> Una soluzione appena testata puo' essere qs.
> 1.Crei una tabella TEMP la cui struttura e' identica ai campi che estrai
> dalla query piu' un campo IdSel contatore.
> 2.La tua query la fai passare da query di selezione a query di accodamento
> sulla tabella TEMP.
> 3.Avrai cosi' una tabella con il risultato della query e con un contatore
> per ogni record.
> Ricorda pero' di pulire la tabella ogni volta prima dell'utilizzo
altrimenti
> ti accoda tutte le volte nuovi record.
> Qs. metodo funziona non so quanto sia "pulito" ma riesci ad avere cio' che
> ti serve
Per funzionare funziona, perň con queste controindicazioni:
- due messaggi che chiedono l'OK per proseguire (e io preferirei di no)
- la necessitŕ di ripulire la tabella temporanea (e come si fa?)
- il fatto che la volta successiva il contatore non riparte da 1 ma dal
numero successivo all'ultimo contatore della volta precedente (e questo non
so proprio come si fa ad evitarlo)
Comunque grazie e speriamo di trovare qualcosa di meglio
Ciao Filippo


title: Query e numero di record

text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:a2401o$uipd0$1...@ID-46617.news.dfncis.de...

La soluzione di Karl prevede l'uso di ANSI SQL e non di JET SQL.
A me pare che access non accetti la variabile Contatore seguita dai due
punti
Come si fa?
Grazie
Filippo


title: Query e numero di record

text:
Filippo Vinciguerra ha scritto:
> Karl Donaubauer ha scritto:...
> > Puoi usare SQL per farti un campo contatore nella query. p.e.
> >
> > Contatore: (Select Count (*) FROM [Tabella] as Temp WHERE [Temp].[ID]
> > < [Tabella].[ID])+1
> >
> La soluzione di Karl prevede l'uso di ANSI SQL e non di JET SQL.
No. Va bene con Jet.
> A me pare che access non accetti la variabile Contatore seguita dai due
> punti
> Come si fa?
Non č una variabile ma puoi inserire tutta l'espressione come campo
calcolato in una query. Vuol dire "Contatore" č l'Alias per una sottoquery.
L'espressione SQL completo di una semplice query č p.e.
SELECT ID, Pippo, Foo, (Select Count (*) FROM Tabella AS Temp
WHERE Temp.ID<Tabella.ID)+1 AS Contatore
FROM Tabella



title: Query e numero di record

author: ZAIM

text:
> Per funzionare funziona, però con queste controindicazioni:
> - due messaggi che chiedono l'OK per proseguire (e io preferirei di no)
basta settare warning su false
> - la necessità di ripulire la tabella temporanea (e come si fa?)
su chiusura attivi una query di eliminazione
> - il fatto che la volta successiva il contatore non riparte da 1 ma dal
> numero successivo all'ultimo contatore della volta precedente (e questo
non
> so proprio come si fa ad evitarlo)
devi procedere con un bel compatta e ripristina database dopo aver
cancellato tutti i record.



title: Query e numero di record

text:
Filippo Vinciguerra <
ma...@studiovinciguerra.it
> wrote in message
a2473f$nt0$1...@news.panservice.it...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:M8e18.33828$aD.12...@twister2.libero.it...
> > Filippo Vinciguerra <
ma...@studiovinciguerra.it
> wrote in message
> > a23oa6$ke3$1...@news.panservice.it...
> > > Ciao a tutti
> > > Domanda facile: in una query c'č un modo per rilevare il numero
> > progressivo
> > > di record selezionati?
> > > Intendo non i record della tabella di origine ma soltanto quelli
'presi'
> > > dalla query.
> > > Esiste in altre parole un contatore che possa essere inserito nella
> query,
> > > qualcosa come Contatore AS Espr1, in un campo della query?
> >
> > A dicembre scrissi una soluzione per questo problema...
> >
> > Antonio
> >
> >
> E come si fa a ritrovare quello che scrivesti a dicembre?
Sul sito comune dovrebbero esserci i messaggi arretrati. Oppure con
www.deja.com
Comunque, tieni...
Tabella di appoggio "Tab", con un campo long "Num" .
Funzione Cont (x as variant) as long
dim rst as recordset
dim app as long
set rst = currentdb.openrecordset("tab")
rst.movefirst
app = rst.fields("Num")
rst.edit
rst.fields("Num") = rst.fields("Num") + 1
rst.update
set rst = nothing
Cont = app
End function
Nella query metterai un campo calcolato fatto cosě
Contatore: Cont([campoqualunque])
dove campoqualunque č un qualunque campo della tabella dati.
Prima di lanciare la query devi riportare il valore del campo Num a 1
Antonio
Antonio


title: Query e numero di record

text:
----- Original Message -----
From: Karl Donaubauer
Newsgroups: it.comp.appl.access
Sent: Wednesday, January 16, 2002 5:49 PM
Subject: Re: Query e numero di record
Filippo Vinciguerra ha scritto:
> Karl Donaubauer ha scritto:...
> > Puoi usare SQL per farti un campo contatore nella query. p.e.
> >
> > Contatore: (Select Count (*) FROM [Tabella] as Temp WHERE [Temp].[ID]
> > < [Tabella].[ID])+1
> >
> La soluzione di Karl prevede l'uso di ANSI SQL e non di JET SQL.
No. Va bene con Jet.
> A me pare che access non accetti la variabile Contatore seguita dai due
> punti
> Come si fa?
Non è una variabile ma puoi inserire tutta l'espressione come campo
calcolato in una query. Vuol dire "Contatore" è l'Alias per una sottoquery.
L'espressione SQL completo di una semplice query è p.e.
SELECT ID, Pippo, Foo, (Select Count (*) FROM Tabella AS Temp
WHERE Temp.ID<Tabella.ID)+1 AS Contatore
FROM Tabella
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com
Con questo sistema funziona ma non come serve a me.
Mi spiego: Contatore contiene il valore di Tabella.ID reinizializzato a 1
Il mio problema è invece quello di avere in una query di ordinamento un
contatore che parte da 1 DOPO che i record sono stati ordinati
Io avevo usato una sottoquery per ordinare e poi l'espressione SQL
Però il Contatore ripete l'ID della tabella originale prima
dell'ordinamento.
In pratica devo riuscire a:
ordinare i record di una tabella con una query
avere un campo della query con numerazione progressiva da 1 a partire la
primo record ordinato
come si fa e quante query ci vogliono?
Grazie, Filippo


title: Query e numero di record

text:
"Filippo Vinciguerra" <
ma...@studiovinciguerra.it
> ha scritto nel messaggio
news:a26ptp$chu$1...@news.panservice.it...

Provando ad aggiungere alla query
>SELECT ID, Pippo, Foo, (Select Count (*) FROM Tabella AS Temp
> WHERE Temp.ID<Tabella.ID)+1 AS Contatore
> FROM Tabella
ORDER BY Pippo non funziona come serve a te?
Non so se e' corretto ma e' una idea
Ciao Alessandro


title: Query e numero di record

author: Alessandro

text:
"Filippo Vinciguerra" <
ma...@studiovinciguerra.it
> wrote in message
news:a23oa6$ke3$1...@news.panservice.it...

Il sistema c'è, bisogna vedere come lo vuoi utilizzare.
Se è solo per la visualizzazione in Form utilizza la tecnica
che viene abitualmente usata per la realizzazione della formattazione
condizionale di cui trovi traccia sul SC per il conteggio del
numero di RECORD e l'assegnazione del Progressivo.
Oppure sul sito MVPS.Org c'è un indicazione di come ricrearsi un
campo autoincrementante nelle QRY....!!
Alessandro. (@ALex)
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Query e numero di record

text:
Filippo Vinciguerra ha scritto:
> > Karl Donaubauer ha scritto:...
> SELECT ID, Pippo, Foo, (Select Count (*) FROM Tabella AS Temp
> WHERE Temp.ID<Tabella.ID)+1 AS Contatore
> FROM Tabella
> ...
> Con questo sistema funziona ma non come serve a me.
> Mi spiego: Contatore contiene il valore di Tabella.ID reinizializzato a 1
> Il mio problema è invece quello di avere in una query di ordinamento un
> contatore che parte da 1 DOPO che i record sono stati ordinati
> Io avevo usato una sottoquery per ordinare e poi l'espressione SQL
> Però il Contatore ripete l'ID della tabella originale prima
> dell'ordinamento.
> In pratica devo riuscire a:
> ordinare i record di una tabella con una query
> avere un campo della query con numerazione progressiva da 1 a partire la
> primo record ordinato
> come si fa e quante query ci vogliono?
Non hai scritto con quale campo vuoi fare l'ordinamento.
Se p.e. non è ID ma Pippo lo statement per la sottoquery è
(Select Count (*) FROM [Tabella] AS Temp
WHERE [Temp].[Pippo] < [Tabella].[Pippo])+1
L'anno scorso ho scritto un articolo per il KB di MS Germania sul tema:
http://www.microsoft.com/IntlKB/Germany/Support/kb/D45/D45183.htm
Certo è tedesco ;-) ma ci sono anche esempi in SQL e per di più
nel articolo ce un link a
http://www.microsoft.com/downloads/release.asp?releaseid=29437
Su questo sito trovi un download "D41757.exe - 40 Kb" che è un
piccolo mdb di A97 con vari esempi.
Esempi in inglese di Steve Arbaugh trovo sul sito attac:
http://ourworld.compuserve.com/homepages/attac-cg/AQryTip.htm
Esempi in italiano... beh, forse una volta scrivo un articolo per
il sito commune se sia interessante per più gente.



title: Query e numero di record

text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:a26va3$va8oa$1...@ID-46617.news.dfncis.de...
> Filippo Vinciguerra ha scritto:
> > > Karl Donaubauer ha scritto:...
> > SELECT ID, Pippo, Foo, (Select Count (*) FROM Tabella AS Temp
> > WHERE Temp.ID<Tabella.ID)+1 AS Contatore
> > FROM Tabella
> > ...
> > Con questo sistema funziona ma non come serve a me.
> > Mi spiego: Contatore contiene il valore di Tabella.ID reinizializzato a
1
> > Il mio problema è invece quello di avere in una query di ordinamento un
> > contatore che parte da 1 DOPO che i record sono stati ordinati
> > Io avevo usato una sottoquery per ordinare e poi l'espressione SQL
> > Però il Contatore ripete l'ID della tabella originale prima
> > dell'ordinamento.
> > In pratica devo riuscire a:
> > ordinare i record di una tabella con una query
> > avere un campo della query con numerazione progressiva da 1 a partire la
> > primo record ordinato
> > come si fa e quante query ci vogliono?
>
> Non hai scritto con quale campo vuoi fare l'ordinamento.
> Se p.e. non è ID ma Pippo lo statement per la sottoquery è
> (Select Count (*) FROM [Tabella] AS Temp
> WHERE [Temp].[Pippo] < [Tabella].[Pippo])+1
Perfetto, FUNZIONA, grazie
Così ho con una sola query, i record ordinati e numerati. Grazie ancora
Ciao Filippo


title: auguri ed info funzione datediff personalizzata

author: nwrr

text:
innanzitutto auguri a tutti
era da moltissimo (1,5 anni) che non sbirciavo il news ed anche il sito
comune
e noto con piacere la costante presenza costante di molte persone che
anche in passato e tutt'oggi
offrono il proprio aiuto (i cosidetti pilastri del news)
anche il sito comune mi sembra in prima battuta ottimo (tra l'altro
interessante il cerca)
ma gli ho dato solo una sbirciatina
ringrazio tutti per l'impegno e la costanza dimostrata
approfittando del ritorno a casa porgo in modo volante 2 questions
(mi auguro che oggi non mi risponda nessuno, altrimenti siete prorpio
drogati da access :-))
1) Volevo realizzare una funzione DateDiff con del mio codice, quindi
totalmente
svincolata da funzioni interne del Pc, ma una procedura di calcolo che
ottenesse lo stesso risultato
2) Idem per DateAdd


text:
innanzitutto auguri a tutti
era da moltissimo (1,5 anni) che non sbirciavo il news ed anche il sito
comune e noto con piacere la  presenza costante di molte persone che
anche in passato e tutt'oggi offrono il proprio aiuto (i cosidetti
pilastri del news)
anche il sito comune mi sembra in prima battuta ottimo (tra l'altro
interessante il cerca) ma gli ho dato solo una sbirciatina, quindi
ipotizzo che č ancora meglio.
ringrazio tutti per l'impegno e la costanza dimostrata nel mantenimento
e sviluppo del sito e del news.
approfittando del ritorno a casa porgo in modo volante 2 questions
(mi auguro che oggi non mi risponda nessuno, altrimenti siete prorpio
drogati da access :-))
1) Volevo realizzare una funzione DateDiff con del mio codice, quindi
totalmente
svincolata da funzioni interne del Pc, ma una procedura di calcolo che
ottenesse lo stesso risultato
2) Idem per DateAdd
(access 97)


text:
nwrr <
nwrrAN...@lycos.it
> wrote in message 3C285A74...@lycos.it...
> approfittando del ritorno a casa porgo in modo volante 2 questions
> (mi auguro che oggi non mi risponda nessuno, altrimenti siete prorpio
> drogati da access :-))
>
> 1) Volevo realizzare una funzione DateDiff con del mio codice, quindi
> totalmente
> svincolata da funzioni interne del Pc, ma una procedura di calcolo che
> ottenesse lo stesso risultato
> 2) Idem per DateAdd
Che intendi per svincolarsi dalle funzioni del pc?
Intendi di access?
Antonio


text:
> Che intendi per svincolarsi dalle funzioni del pc?
> Intendi di access?
Probabilmente dall'orologio interno del PC


text:
> Che intendi per svincolarsi dalle funzioni del pc?
> Intendi di access?
>
> Antonio
esatto quelle di access.
cioè con datediff e dateadd io basta che uso le 2 funzioni ed ho il risultato
mentre con del codice mio dovrei elaborare ipotizzo un ciclo che mi va a
contare tutti
i giorni mese per mese tenendo conto degli anni bisestili, insomma abbastanza
complicato.
ma si può vedere qual'è il codice che sta dietro a tale funzioni predefinite di
access?
 ciao
a proposito come è andata a finire la storia del clone?
fatto salvo che sei il doc.