title: relazioni

text:
On 14 Gen, 12:32, "MA" <
mas...@massimilianoamendola.it
> wrote:
> ?"Ryc"  ha scritto nel messaggionews:0dc4b71d-0a0c-4f99...@l7g2000vbv.googlegroups.com...

> anzich avere il riepologo ho l'elenco delle fatture in base ai
> prodotti del dettaglio fatture
> es io vorrei:
> fatt. n. 1 del .......
> fatt. n. 2 del .......
> e cos via
>
> io invece ho
>
> fatt. n. 1 del .......
> fatt. n. 1 del .......
> fatt. n. 1 del .......
> fatt. n. 1 del .......
> fatt. n. 2 del .......
> fatt. n. 2 del .......
> ecc.
>
> Poi ho un problema nella maschera con origine record query a campi
> incrociati
> dove fino a che il campo categoria (della TbDescrizione) non risulta
> fatturato
> avr come risultato in tutte le celle: #Nome?
> Preciso che TbDescrizioni ha come nome campo :IdDescrizione,
> Descrizione, Categoria
>
> Grazie per l'aiuto
> ___
> Risposta:
> Il tuo non un problema di relazioni,
> ma non sai cosa chiedere alle query
>
> o raggruppi facendo le somme dove serve
>
> o ti crei le fatture e a quelle metti un JOIN con i dettagli delle fatture
> raggruppati
> Se metti il nome dei campi vediamo di spiegarti con esempi pratici
> MA
ciao Massimiliano e grazie:
queste sono le Query:
1-Query1: da tbtestata_Fattura:
idtestata fattura
idcliente
numero
data
idtipodocumento
idesenzioni
datapagamento
rit_Acconto (si/no)
IdIva
IdSconto
%Rit_Acconto: IIf([RIT_ACCONTO]=-1;11,5;0)
2-Query_RiepilogoFatture
Data da query1
numero da query1
datapagamento da query1
ragione_sociale da tbClienti
TipoDocumento da TbTipo_Documento
Imponibile: (CCur([TbDettaglio_Fattura]!
[QUANTITA]*[TbDettaglio_Fattura]![PREZZO]))
Sconto: (CCur([TbDettaglio_Fattura]![QUANTITA]*[TbDettaglio_Fattura]!
[PREZZO])*[Query1]![IdSconto])
Imponibile Netto: (CCur([TbDettaglio_Fattura]!
[QUANTITA]*[TbDettaglio_Fattura]![PREZZO])*(1-[Query1]![IdSconto]))
IVA: (CCur([TbDettaglio_Fattura]![QUANTITA]*[TbDettaglio_Fattura]!
[PREZZO])*(1-[Query1]![IdSconto])*([Query1]![IdIVA]))
Totale Fattura: (CCur([TbDettaglio_Fattura]!
[QUANTITA]*[TbDettaglio_Fattura]![PREZZO])*(1-[Query1]![IdSconto])*(1+
[Query1]![IdIVA]))
Rit_Acc: (CCur([TbDettaglio_Fattura]![QUANTITA]*[TbDettaglio_Fattura]!
[PREZZO])*(1-[Query1]![IdSconto])*([Query1]![%Rit_Acconto]/100))
Netto Fattura: (CCur([TbDettaglio_Fattura]!
[QUANTITA]*[TbDettaglio_Fattura]![PREZZO])*(1-[Query1]![IdSconto])*(1+
[Query1]![IdIVA])-CCur([TbDettaglio_Fattura]!
[QUANTITA]*[TbDettaglio_Fattura]![PREZZO])*(1-[Query1]!
[IdSconto])*([Query1]![%Rit_Acconto]/100))


title: relazioni

author: MA

text:
?"Ryc"  ha scritto nel messaggio
news:1c92124e-2ee9-460d...@l24g2000vby.googlegroups.com...



___
Risposta:
Allora
SELECT [idtestata fattura],
idcliente,
numero,
data,
Imponibile,
fctround(imponibile*(1-idSconto/100)) as ImponibileNetto,
fctround(imponibile*idSconto/100)) AS  Sconto,
fctround(imponibile*(1-idIVA/100)) AS  IVA,
fctround(ImponibileNetto+nz(IVA)) AS TotaleFattura
fctround(imponibileNetto*(nz(-11,5*RIT_Acconto)/100)) AS  Ritenuta,
FROM
TbTestata_Fattura AS F
RIGHT JOIN
(SELECT FK_idTestatafattura,
fctround(sum(Prezzo*Quantità)) AS Imponibile FROM tblDettaglioFattura) AS D
ON F.[idtestata fattura] = D.FK_idTestatafattura
Fermo restando le mostruosità che hai scritto... bbrrrrr....
Allora prendiamo tutte i record della tabella Testata fattura
Poi leghiamo il dettaglio della fattura e ci prendiamo l'importo totale
(così facendo tu hai la fattura con una sola indicazione di sconto e neghi
la possibilità di applicare no sconto alla singola voce o iva diversa)
Bene a questo punto possiamo fare tutti calcoli che vogliamo
ImponibileNetto cioè l'imponibile lordo ricavato meno lo sconto.
il calcolo dello sconto
l'iva
Il totale documento: ho l'imponibile, ho il calcolo dell'iva è solo una
somma o volendo moltiplicavi l'imponibile per (1+IdIva/100) [do per scontato
che l'id coincide con il valore dell'iva
infine la ritenuta: la calcolo sull'imponibile e la moltiplico per -11,5
questo perché se nz(rit_Acconto) è 0 il valore della moltiplicazione è
uguale a 0 se invece è -1, lui moltiplica imponibile*-1*-11,5
(meno_per_meno_uguale_a_più) il valore è positivo
PUFF PANT PUFF..
MA


title: relazioni

author: Ryc

text:
On 14 Gen, 15:48, "MA" <
mas...@massimilianoamendola.it
> wrote:
> ?"Ryc"  ha scritto nel messaggionews:1c92124e-2ee9-460d...@l24g2000vby.googlegroups.com...

> fctround(sum(Prezzo*Quantitï¿½)) AS Imponibile FROM tblDettaglioFattura) AS D
> ON F.[idtestata fattura] = D.FK_idTestatafattura
>
> Fermo restando le mostruositï¿½ che hai scritto... bbrrrrr....
> Allora prendiamo tutte i record della tabella Testata fattura
> Poi leghiamo il dettaglio della fattura e ci prendiamo l'importo totale
> (cosï¿½ facendo tu hai la fattura con una sola indicazione di sconto e neghi
> la possibilitï¿½ di applicare no sconto alla singola voce o iva diversa)
> Bene a questo punto possiamo fare tutti calcoli che vogliamo
> ImponibileNetto cioï¿½ l'imponibile lordo ricavato meno lo sconto.
> il calcolo dello sconto
> l'iva
> Il totale documento: ho l'imponibile, ho il calcolo dell'iva ï¿½ solo una
> somma o volendo moltiplicavi l'imponibile per (1+IdIva/100) [do per scontato
> che l'id coincide con il valore dell'iva
> infine la ritenuta: la calcolo sull'imponibile e la moltiplico per -11,5
> questo perchï¿½ se nz(rit_Acconto) ï¿½ 0 il valore della moltiplicazione ï¿½
> uguale a 0 se invece ï¿½ -1, lui moltiplica imponibile*-1*-11,5
> (meno_per_meno_uguale_a_piï¿½) il valore ï¿½ positivo
>
> PUFF PANT PUFF..
>
> MA
Ciao Massimiliano
Se per te non è un problema
partiamo da zero
Grazie


title: relazioni

text:

dove mi dicevi totale fattura intendevi anche -la rit_Acconto?
Grazie


title: relazioni

text:
?"Ryc"  ha scritto nel messaggio
news:e5feed75-4206-4ad4...@u3g2000vbj.googlegroups.com...

> > fctround(sum(Prezzo*Quantit�)) AS Imponibile FROM tblDettaglioFattura)
> > AS D
> > ON F.[idtestata fattura] = D.FK_idTestatafattura
>
> > Fermo restando le mostruosit� che hai scritto... bbrrrrr....
> > Allora prendiamo tutte i record della tabella Testata fattura
> > Poi leghiamo il dettaglio della fattura e ci prendiamo l'importo totale
> > (cos� facendo tu hai la fattura con una sola indicazione di sconto e
> > neghi
> > la possibilit� di applicare no sconto alla singola voce o iva diversa)
> > Bene a questo punto possiamo fare tutti calcoli che vogliamo
> > ImponibileNetto cio� l'imponibile lordo ricavato meno lo sconto.
> > il calcolo dello sconto
> > l'iva
> > Il totale documento: ho l'imponibile, ho il calcolo dell'iva � solo
> > una
> > somma o volendo moltiplicavi l'imponibile per (1+IdIva/100) [do per
> > scontato
> > che l'id coincide con il valore dell'iva
> > infine la ritenuta: la calcolo sull'imponibile e la moltiplico per -11,5
> > questo perch� se nz(rit_Acconto) � 0 il valore della moltiplicazione
> > �
> > uguale a 0 se invece � -1, lui moltiplica imponibile*-1*-11,5
> > (meno_per_meno_uguale_a_pi�) il valore � positivo
>
> > PUFF PANT PUFF..
>
> > MA
>
> Ciao Massimiliano
> Se per te non è un problema
> partiamo da zero
> Grazie
dove mi dicevi totale fattura intendevi anche -la rit_Acconto?
Grazie
__
Risposta
No, manca una virgola
MA


title: relazioni

text:
On 14 Gen, 17:17, "MA" <
mas...@massimilianoamendola.it
> wrote:
> ?"Ryc"  ha scritto nel messaggionews:e5feed75-4206-4ad4...@u3g2000vbj.googlegroups.com...

> > > fctround(sum(Prezzo*Quantitï¿½)) AS Imponibile FROM tblDettaglioFattura)
> > > AS D
> > > ON F.[idtestata fattura] = D.FK_idTestatafattura
>
> > > Fermo restando le mostruositï¿½ che hai scritto... bbrrrrr....
> > > Allora prendiamo tutte i record della tabella Testata fattura
> > > Poi leghiamo il dettaglio della fattura e ci prendiamo l'importo totale
> > > (cosï¿½ facendo tu hai la fattura con una sola indicazione di sconto e
> > > neghi
> > > la possibilitï¿½ di applicare no sconto alla singola voce o iva diversa)
> > > Bene a questo punto possiamo fare tutti calcoli che vogliamo
> > > ImponibileNetto cioï¿½ l'imponibile lordo ricavato meno lo sconto.
> > > il calcolo dello sconto
> > > l'iva
> > > Il totale documento: ho l'imponibile, ho il calcolo dell'iva ï¿½ solo
> > > una
> > > somma o volendo moltiplicavi l'imponibile per (1+IdIva/100) [do per
> > > scontato
> > > che l'id coincide con il valore dell'iva
> > > infine la ritenuta: la calcolo sull'imponibile e la moltiplico per -11,5
> > > questo perchï¿½ se nz(rit_Acconto) ï¿½ 0 il valore della moltiplicazione
> > > ï¿½
> > > uguale a 0 se invece ï¿½ -1, lui moltiplica imponibile*-1*-11,5
> > > (meno_per_meno_uguale_a_piï¿½) il valore ï¿½ positivo
>
> > > PUFF PANT PUFF..
>
> > > MA
>
> > Ciao Massimiliano
> > Se per te non ï¿½ un problema
> > partiamo da zero
> > Grazie
>
> dove mi dicevi totale fattura intendevi anche -la rit_Acconto?
> Grazie
> __
> Risposta
> No, manca una virgola
> MA
ok Massimiliano
ho fatto ed inserito:
Totale Fattura: (CCur([TbDettaglio_Fattura]!
[QUANTITA]*[TbDettaglio_Fattura]![PREZZO])*(1-[TbTestata_Fattura]!
[IdSconto])*(1+[TbTestata_Fattura]![IdIVA]))
ma qui però ho ancora più di un record per fattura
sql:
SELECT TbTestata_Fattura.IDTESTATAFATTURA,
TbTestata_Fattura.IDCLIENTE, TbTestata_Fattura.NUMERO,
TbTestata_Fattura.DATA, TbTestata_Fattura.IDTIPODOCUMENTO,
TbTestata_Fattura.IDESENZIONI, TbTestata_Fattura.DATAPAGAMENTO,
TbTestata_Fattura.RIT_ACCONTO, TbTestata_Fattura.IDIVA,
TbTestata_Fattura.IDSCONTO, (CCur([TbDettaglio_Fattura]!
[QUANTITA]*[TbDettaglio_Fattura]![PREZZO])*(1-[TbTestata_Fattura]!
[IdSconto])*(1+[TbTestata_Fattura]![IdIVA])) AS [Totale Fattura]
FROM TbTestata_Fattura INNER JOIN TbDettaglio_Fattura ON
TbTestata_Fattura.IDTESTATAFATTURA =
TbDettaglio_Fattura.IDTESTATAFATTURA;


title: relazioni

text:
?"Ryc"  ha scritto nel messaggio
news:0923c3f9-472b-4604...@v17g2000vbo.googlegroups.com...

> > > fctround(sum(Prezzo*Quantitďż˝)) AS Imponibile FROM
> > > tblDettaglioFattura)
> > > AS D
> > > ON F.[idtestata fattura] = D.FK_idTestatafattura
>
> > > Fermo restando le mostruositďż˝ che hai scritto... bbrrrrr....
> > > Allora prendiamo tutte i record della tabella Testata fattura
> > > Poi leghiamo il dettaglio della fattura e ci prendiamo l'importo
> > > totale
> > > (cosďż˝ facendo tu hai la fattura con una sola indicazione di sconto e
> > > neghi
> > > la possibilitďż˝ di applicare no sconto alla singola voce o iva
> > > diversa)
> > > Bene a questo punto possiamo fare tutti calcoli che vogliamo
> > > ImponibileNetto cioďż˝ l'imponibile lordo ricavato meno lo sconto.
> > > il calcolo dello sconto
> > > l'iva
> > > Il totale documento: ho l'imponibile, ho il calcolo dell'iva ďż˝ solo
> > > una
> > > somma o volendo moltiplicavi l'imponibile per (1+IdIva/100) [do per
> > > scontato
> > > che l'id coincide con il valore dell'iva
> > > infine la ritenuta: la calcolo sull'imponibile e la moltiplico
> > > per -11,5
> > > questo perchďż˝ se nz(rit_Acconto) ďż˝ 0 il valore della
> > > moltiplicazione
> > > ďż˝
> > > uguale a 0 se invece ďż˝ -1, lui moltiplica imponibile*-1*-11,5
> > > (meno_per_meno_uguale_a_piďż˝) il valore ďż˝ positivo
>
> > > PUFF PANT PUFF..
>
> > > MA
>
> > Ciao Massimiliano
> > Se per te non ďż˝ un problema
> > partiamo da zero
> > Grazie
>
> dove mi dicevi totale fattura intendevi anche -la rit_Acconto?
> Grazie
> __
> Risposta
> No, manca una virgola
> MA
ok Massimiliano
ho fatto ed inserito:
Totale Fattura: (CCur([TbDettaglio_Fattura]!
[QUANTITA]*[TbDettaglio_Fattura]![PREZZO])*(1-[TbTestata_Fattura]!
[IdSconto])*(1+[TbTestata_Fattura]![IdIVA]))
ma qui perň ho ancora piů di un record per fattura
sql:
SELECT TbTestata_Fattura.IDTESTATAFATTURA,
TbTestata_Fattura.IDCLIENTE, TbTestata_Fattura.NUMERO,
TbTestata_Fattura.DATA, TbTestata_Fattura.IDTIPODOCUMENTO,
TbTestata_Fattura.IDESENZIONI, TbTestata_Fattura.DATAPAGAMENTO,
TbTestata_Fattura.RIT_ACCONTO, TbTestata_Fattura.IDIVA,
TbTestata_Fattura.IDSCONTO, (CCur([TbDettaglio_Fattura]!
[QUANTITA]*[TbDettaglio_Fattura]![PREZZO])*(1-[TbTestata_Fattura]!
[IdSconto])*(1+[TbTestata_Fattura]![IdIVA])) AS [Totale Fattura]
FROM TbTestata_Fattura INNER JOIN TbDettaglio_Fattura ON
TbTestata_Fattura.IDTESTATAFATTURA =
TbDettaglio_Fattura.IDTESTATAFATTURA;
___
Risposta:
Scusa ma scherzi?
Perchč non hai fatto quello che ti ho detto???
io non ho inserito i record del dettaglio, PROPRIO PER EVITARE CHE RIPETESSE
PER OGNI RECORD DEL DETTAGLIO IL RECORD DELLA TESTATA.
io ho messo in join il totale del dettaglio
MA


title: relazioni

text:
On 14 Gen, 18:16, "MA" <
mas...@massimilianoamendola.it
> wrote:
> ?"Ryc"  ha scritto nel messaggionews:0923c3f9-472b-4604...@v17g2000vbo.googlegroups.com...

> > > > fctround(sum(Prezzo*Quantitï¿½)) AS Imponibile FROM
> > > > tblDettaglioFattura)
> > > > AS D
> > > > ON F.[idtestata fattura] = D.FK_idTestatafattura
>
> > > > Fermo restando le mostruositï¿½ che hai scritto... bbrrrrr....
> > > > Allora prendiamo tutte i record della tabella Testata fattura
> > > > Poi leghiamo il dettaglio della fattura e ci prendiamo l'importo
> > > > totale
> > > > (cosï¿½ facendo tu hai la fattura con una sola indicazione di sconto e
> > > > neghi
> > > > la possibilitï¿½ di applicare no sconto alla singola voce o iva
> > > > diversa)
> > > > Bene a questo punto possiamo fare tutti calcoli che vogliamo
> > > > ImponibileNetto cioï¿½ l'imponibile lordo ricavato meno lo sconto.
> > > > il calcolo dello sconto
> > > > l'iva
> > > > Il totale documento: ho l'imponibile, ho il calcolo dell'iva ï¿½ solo
> > > > una
> > > > somma o volendo moltiplicavi l'imponibile per (1+IdIva/100) [do per
> > > > scontato
> > > > che l'id coincide con il valore dell'iva
> > > > infine la ritenuta: la calcolo sull'imponibile e la moltiplico
> > > > per -11,5
> > > > questo perchï¿½ se nz(rit_Acconto) ï¿½ 0 il valore della
> > > > moltiplicazione
> > > > ï¿½
> > > > uguale a 0 se invece ï¿½ -1, lui moltiplica imponibile*-1*-11,5
> > > > (meno_per_meno_uguale_a_piï¿½) il valore ï¿½ positivo
>
> > > > PUFF PANT PUFF..
>
> > > > MA
>
> > > Ciao Massimiliano
> > > Se per te non ï¿½ un problema
> > > partiamo da zero
> > > Grazie
>
> > dove mi dicevi totale fattura intendevi anche -la rit_Acconto?
> > Grazie
> > __
> > Risposta
> > No, manca una virgola
> > MA
>
> ok Massimiliano
> ho fatto ed inserito:
> Totale Fattura: (CCur([TbDettaglio_Fattura]!
> [QUANTITA]*[TbDettaglio_Fattura]![PREZZO])*(1-[TbTestata_Fattura]!
> [IdSconto])*(1+[TbTestata_Fattura]![IdIVA]))
> ma qui perï¿½ ho ancora piï¿½ di un record per fattura
> sql:
> SELECT TbTestata_Fattura.IDTESTATAFATTURA,
> TbTestata_Fattura.IDCLIENTE, TbTestata_Fattura.NUMERO,
> TbTestata_Fattura.DATA, TbTestata_Fattura.IDTIPODOCUMENTO,
> TbTestata_Fattura.IDESENZIONI, TbTestata_Fattura.DATAPAGAMENTO,
> TbTestata_Fattura.RIT_ACCONTO, TbTestata_Fattura.IDIVA,
> TbTestata_Fattura.IDSCONTO, (CCur([TbDettaglio_Fattura]!
> [QUANTITA]*[TbDettaglio_Fattura]![PREZZO])*(1-[TbTestata_Fattura]!
> [IdSconto])*(1+[TbTestata_Fattura]![IdIVA])) AS [Totale Fattura]
> FROM TbTestata_Fattura INNER JOIN TbDettaglio_Fattura ON
> TbTestata_Fattura.IDTESTATAFATTURA =
> TbDettaglio_Fattura.IDTESTATAFATTURA;
> ___
> Risposta:
> Scusa ma scherzi?
> Perchï¿½ non hai fatto quello che ti ho detto???
> io non ho inserito i record del dettaglio, PROPRIO PER EVITARE CHE RIPETESSE
> PER OGNI RECORD DEL DETTAGLIO IL RECORD DELLA TESTATA.
> io ho messo in join il totale del dettaglio
> MA
scusami Massimiliano
ho imterpretato male le tur istruzioni.
Ho ho aperto un'istruzione query di selezione
ed ho inserito la TbTestata_Fattura poi ho trascinato sulla griglia
tutti i record. Con poi leghiamo il dettaglio della fattura......
allora devo fare un'altra query?
qui ho bisogno di aiuto
Grazie


title: relazioni

text:

ciao Massimiliano
Forse così?:
1-Query_TbTestata_Fattura:
SELECT TbTestata_Fattura.IDTESTATAFATTURA,
TbTestata_Fattura.IDCLIENTE, TbTestata_Fattura.NUMERO,
TbTestata_Fattura.DATA, TbTestata_Fattura.IDTIPODOCUMENTO,
TbTestata_Fattura.IDESENZIONI, TbTestata_Fattura.DATAPAGAMENTO,
TbTestata_Fattura.RIT_ACCONTO, TbTestata_Fattura.IDIVA,
TbTestata_Fattura.IDSCONTO
FROM TbTestata_Fattura;
2-Query_totaleFatture:
SELECT (CCur([TbDettaglio_Fattura]![QUANTITA]*[TbDettaglio_Fattura]!
[PREZZO])*(1-[TbTestata_Fattura]![IdSconto])*(1+[TbTestata_Fattura]!
[IdIVA])) AS [Totale Fattura]
FROM TbDettaglio_Fattura INNER JOIN Query_TbTestata_Fattura ON
TbDettaglio_Fattura.IDDETTAGLIOFATTURA =
Query_TbTestata_Fattura.IDTESTATAFATTURA;
cosi dovrebbe andar bene.


title: relazioni

text:
On 14 Gen, 15:48, "MA" <
mas...@massimilianoamendola.it
> wrote:
> ?"Ryc"  ha scritto nel messaggionews:1c92124e-2ee9-460d...@l24g2000vby.googlegroups.com...

> fctround(sum(Prezzo*Quantitï¿½)) AS Imponibile FROM tblDettaglioFattura) AS D
> ON F.[idtestata fattura] = D.FK_idTestatafattura
>
> Fermo restando le mostruositï¿½ che hai scritto... bbrrrrr....
> Allora prendiamo tutte i record della tabella Testata fattura
> Poi leghiamo il dettaglio della fattura e ci prendiamo l'importo totale
> (cosï¿½ facendo tu hai la fattura con una sola indicazione di sconto e neghi
> la possibilitï¿½ di applicare no sconto alla singola voce o iva diversa)
> Bene a questo punto possiamo fare tutti calcoli che vogliamo
> ImponibileNetto cioï¿½ l'imponibile lordo ricavato meno lo sconto.
> il calcolo dello sconto
> l'iva
> Il totale documento: ho l'imponibile, ho il calcolo dell'iva ï¿½ solo una
> somma o volendo moltiplicavi l'imponibile per (1+IdIva/100) [do per scontato
> che l'id coincide con il valore dell'iva
> infine la ritenuta: la calcolo sull'imponibile e la moltiplico per -11,5
> questo perchï¿½ se nz(rit_Acconto) ï¿½ 0 il valore della moltiplicazione ï¿½
> uguale a 0 se invece ï¿½ -1, lui moltiplica imponibile*-1*-11,5
> (meno_per_meno_uguale_a_piï¿½) il valore ï¿½ positivo
>
> PUFF PANT PUFF..
>
> MA
ciao Massimiliano
Scusami ma avevo saltato un pezzo.
ho inserito nella sql il tuo codice, ma mi da errore di sinatssi:
SELECT [idtestata fattura],
idcliente,
numero,
data,
Imponibile,
fctround(imponibile*(1-idSconto/100)) as ImponibileNetto,
fctround(imponibile*idSconto/100) AS  Sconto,
fctround(imponibile*(1-idIVA/100)) AS  IVA,
fctround(ImponibileNetto+nz(IVA) AS TotaleFattura
fctround(imponibileNetto*(nz(-11,5*RIT_Acconto)/100)) AS  Ritenuta,
FROM
TbTestata_Fattura AS F
RIGHT JOIN
(SELECT FK_idTestatafattura,
fctround(sum(Prezzo*Quantitï¿½)) AS Imponibile FROM



title: relazioni

text:

ciao Massimiliano
come vede ho fatto molte prove sperando di aver fatto quello che mi
suggerito,
in questo modo ho un'inco totale per fattura; così va bene?:
SELECT Sum((CCur([TbDettaglio_Fattura]!
[QUANTITA]*[TbDettaglio_Fattura]![PREZZO]))) AS [Totale Fattura],
TbDettaglio_Fattura.IDTESTATAFATTURA
FROM TbDettaglio_Fattura INNER JOIN Query2 ON
TbDettaglio_Fattura.IDTESTATAFATTURA = Query2.IDTESTATAFATTURA
GROUP BY TbDettaglio_Fattura.IDTESTATAFATTURA;


title: relazioni

text:

chiedo aiuto, non mi riece questo passaggio:
 TbTestata_Fattura AS F
RIGHT JOIN
(SELECT FK_idTestatafattura,
fctround(sum(Prezzo*Quantitïa)) AS Imponibile FROM
tblDettaglioFattura) AS D
ON F.[idtestata fattura] = D.FK_idTestatafattura;
in più anche se ho copiato nel modulo sotto gli oggetti
il codice,  il comando fctround non mi funziona.
Grazie


title: relazioni

author: Antonio Biso

text:
"Ryc" <
ars...@yahoo.it
> ha scritto nel messaggio
news:c45969e7-d7cb-41fd...@g26g2000vba.googlegroups.com...
chiedo aiuto, non mi riece questo passaggio:
 TbTestata_Fattura AS F
RIGHT JOIN
(SELECT FK_idTestatafattura,
fctround(sum(Prezzo*Quantit�a)) AS Imponibile FROM
tblDettaglioFattura) AS D
ON F.[idtestata fattura] = D.FK_idTestatafattura;
in pi� anche se ho copiato nel modulo sotto gli oggetti
il codice,  il comando fctround non mi funziona.
Grazie
il comando fctround non � un comando, � una funzione che devi mettere in un
modulo pubblico
quello che c'� scritto dentro lo puoi cercare in rete
Antonio


title: relazioni

text:
On 20 Gen, 01:06, "Antonio Biso" <
ab...@libero.it
> wrote:
> "Ryc" <
ars...@yahoo.it
> ha scritto nel messaggionews:c45969e7-d7cb-41fd...@g26g2000vba.googlegroups.com...

ciao Antonio e grazie
questo va bene?
Function fctRound(varNr As Variant, Optional varPl As Integer = 2) As
Double
 'by Konrad Marfurt + ("" by) Luke Chung + Karl Donaubauer
    'esce se valore non numerico
    If Not IsNumeric(varNr) Then Exit Function
    fctRound = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) / (10
^ varPl)
End Function
va inserito nella voce moduli sotto gli oggetti del db?


title: relazioni

text:

> va inserito nella voce moduli sotto gli oggetti del db?- Nascondi testo citato
>
> - Mostra testo citato -
ciao Antonio
Puoi aiutarmi con un esempio pratico  come legare il
dettaglio della fattura?
Per come faccio mi ritrovo sempre tanti numeri di fattura
 x n volte i record della sub_maschera.
ecco un esempio:
SELECT TbDettaglio_Fattura.IDDETTAGLIOFATTURA,
TbDettaglio_Fattura.QUANTITA, TbDettaglio_Fattura.PREZZO,
([Quantita]*[Prezzo]) AS ImponibileLordo,
Sum(CCur([Prezzo]*[Quantita]*(1-[idSconto])*(1+[idiva]))) AS Totale,
F.NUMERO, F.DATA, F.IDCLIENTE
FROM TbDettaglio_Fattura INNER JOIN F ON
TbDettaglio_Fattura.IDTESTATAFATTURA = F.IDTESTATAFATTURA
GROUP BY TbDettaglio_Fattura.IDDETTAGLIOFATTURA,
TbDettaglio_Fattura.QUANTITA, TbDettaglio_Fattura.PREZZO, F.NUMERO,
F.DATA, F.IDCLIENTE;
Grazie


title: relazioni

text:
"Ryc" <
ars...@yahoo.it
> ha scritto nel messaggio
news:0932e4f0-28ac-4d08...@p7g2000prb.googlegroups.com...




End Function

E' lui e la function deve essere pubblica
Antonio


title: relazioni

text:
On 20 Gen, 22:53, "Antonio Biso" <
ab...@libero.it
> wrote:
> "Ryc" <
ars...@yahoo.it
> ha scritto nel messaggionews:0932e4f0-28ac-4d08...@p7g2000prb.googlegroups.com...

> Antonio- Nascondi testo citato
>
> - Mostra testo citato -
___________________
Ciao Antonio, sperando in una tua risposta,
ho necessità di mostrarti le seguenti relazioni,
in quanto qualcosa non va.
per es:
ho tre tb:
1-TbTestata_Fattura:
idcliente
idtipodocumento
idesenzioni
numero
data
datapagamento
rit_Acconto
idiva
idsconto
2-TbIva
idiva (relazione 1 a molti con TbTestata_Fattura ma non mi fa
spuntatare la casella dell'integrità referenziale)
iva
3-TbSconto
idsconto(relazione 1 a molti con TbTestata_Fattura ma non mi fa
spuntatare la casella dell'integrità referenziale)
sconto
Ora se creo una query con le seguenti Tb:
Tbestata_Fattura
TbIVA e TbSconto
se faccio lo join tra gli ID
la query non mi mostra nulla
mentre senza si.
Perchè?


title: relazioni

text:

> Perchè?- Nascondi testo citato
>
> - Mostra testo citato -
ciao Antonio e grazie.
Ci sono riuscito, l'unica cosa e che nel campo DATAPAGAMENTO non mi fa
scrivere.
Come posso risolvere?
ti allego il codice SQL:
SELECT TbTestata_Fattura.IDTESTATAFATTURA,
TbTestata_Fattura.IDCLIENTE, TbTestata_Fattura.NUMERO,
TbTestata_Fattura.DATA, TbTestata_Fattura.IDTIPODOCUMENTO,
TbTestata_Fattura.DATAPAGAMENTO, fctround([imponibileLordo]*(1-
[idsconto])) AS ImponibileNetto,
fctround([imponibileLordo]*[idsconto]) AS Sconto,
fctround([imponibileNetto]*([IdIVA])) AS IVA,
fctround([ImponibileLordo]*(nz(11,5*[rit_Acconto])/100)) AS Ritenuta,
fctround([imponibileNetto]+nz([IVA])) AS TotaleFattura,
Q_Tot_Imponibile.ImponibileLordo
FROM TbTestata_Fattura INNER JOIN Q_Tot_Imponibile ON
TbTestata_Fattura.IDTESTATAFATTURA =
Q_Tot_Imponibile.IDTESTATAFATTURA;


title: relazioni

text:

ciao a tutti
Ho finalmente creato la maschera riepilogativa delle fatture,
ma nella campo dataPagamento non mi fa inserire la data.
Come posso risolvere? Grazie
Allego il codice SQL della query F che è l'origine della Maschera in
questione:
SELECT TbTestata_Fattura.IDTESTATAFATTURA,
TbTestata_Fattura.IDCLIENTE, TbTestata_Fattura.NUMERO,
TbTestata_Fattura.DATA, TbTestata_Fattura.IDTIPODOCUMENTO,
TbTestata_Fattura.DATAPAGAMENTO, fctround([imponibileLordo]*(1-
[idsconto])) AS ImponibileNetto,
fctround([imponibileLordo]*[idsconto]) AS Sconto,
fctround([imponibileNetto]*([IdIVA])) AS IVA,
fctround([ImponibileLordo]*(nz(11,5*[rit_Acconto])/100)) AS Ritenuta,
fctround([imponibileNetto]+nz([IVA])) AS TotaleFattura,
D.ImponibileLordo
FROM TbTestata_Fattura RIGHT JOIN D ON
TbTestata_Fattura.IDTESTATAFATTURA = D.IDTESTATAFATTURA;


title: File help per ADO

author: gisco

text:
Salve a tutto il NG
Ringrazio anticipatamente chiunque possa aiutarmi a risolvere il seguente
problema:
Ho installato (e reinstallato) Access 2002 ma nella guida non ci sono i file
relativi alle librerie ADO, così non dispongo di alcuna documentazione per i
vari metodi e proprietà degli oggetti di questa libreria.
Nel visualizzatore oggetti, se evidenzio un metodo o una proprietà relativa
ad un oggetto ADODB e successivamente chiedo la guida contestuale col
pulsante destro, si apre la maschera della guida, ma rimane in bianco.
Come posso risolvere il problema??
Cordiali saluti e buon lavoro a tutti
Giovanni Scotto


title: File help per ADO

author: Steve

text:
"gisco" <
gios...@tiscalinet.it
> ha scritto nel messaggio
news:9p5b9l$tuo$1...@lacerta.tiscalinet.it...
> Salve a tutto il NG
> Ringrazio anticipatamente chiunque possa aiutarmi a risolvere il seguente
> problema:
>
> Ho installato (e reinstallato) Access 2002 ma nella guida non ci sono i
file
> relativi alle librerie ADO, cosģ non dispongo di alcuna documentazione per
i
> vari metodi e proprietą degli oggetti di questa libreria.
> Nel visualizzatore oggetti, se evidenzio un metodo o una proprietą
relativa
> ad un oggetto ADODB e successivamente chiedo la guida contestuale col
> pulsante destro, si apre la maschera della guida, ma rimane in bianco.
>
> Come posso risolvere il problema??
>
>
> Cordiali saluti e buon lavoro a tutti
> Giovanni Scotto
>
ma l'help lo stai chiamando da vba? o da access? l'help ado c'č solo in vba
e devi averlo installato al momento dell'istallazione del pacchetto
altrimenti vai in pannello di controllo > istalla applicazioni e poi office
e aggiungi l'help per vba che non trovi in access ma nei file condivisi di
office e tutto dovrebbe andare a posto
Ciao
Steve


title: PAGINE DI ACCESSO AI DATI 2

author: mikkkela

text:
Vorrei capire una volta per tutte perchč l'argomento in oggetto č coperto
da cosě tanto mistero!!!! perchč nessuno parla/usa le pagine di accesso ai
dati? Sono veramente ultra comode per poter pubblicare all'interno di
INTRANET aziendali un sacco di informazioni...
Vi chiedo lumi, esempi concreti sul web ecc...
help me!
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Aiuto!!!!!!

author: Er Pirata

text:
Ho creato un database con una tabella dove c'è i dati della persona e i
campi si/no!Vorrei sapere come si fa a fare tramite una maschera una ricerca
di quei campi(esempio solo quelli che seleziono e quindi mi dicano si)che mi
dia subito in uscita un report con le persone che abbiano abilitati quei
determinati campi!GRAZIE!!!!


title: Aiuto!!!!!!

author: Giuseppe

text:
"Er Pirata" <
france...@supereva.com
> ha scritto nel messaggio
news:8uq25k$7f9$1...@lacerta.tiscalinet.it...

Nella maschera inserisci una Casella di controllo (chkScelta) , e un
pulsante
Nell'evento Su clic del pulsante :
Dim stDocName As String
    stDocName = "rptReport"
    DoCmd.OpenReport stDocName, acPreview, ,
"ControlloReport=forms!nomeMaschera!chkScelta"
giuseppe


title: Errore di run-time '3326': This Recordset is not updatable

author: vulcanbrain

text:
Vi prego... ditemi perchè compare questo messaggio all'apertura di un mdb da
un PC 'A' avente collegamento al mdb residente sul PC 'B'....
Sono nelle vostre mani, io non so più cosa fare!


author: Emyr

text:
On Thu, 03 Jan 2002 11:35:54 GMT, "vulcanbrain"
<
NO_SPAM_v...@wappi.com
> wrote:
>Vi prego... ditemi perchč compare questo messaggio all'apertura di un mdb da
>un PC 'A' avente collegamento al mdb residente sul PC 'B'....
>Sono nelle vostre mani, io non so piů cosa fare!
>
potrebberň esserci parecchi motivi, prova a vedere se hai i permessi
di lettura scrittura e se il file su B č in sola lettura o no.
Saluti.
Emanuele.


text:
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:84j83u81tf30fb77d...@4ax.com...
> On Thu, 03 Jan 2002 11:35:54 GMT, "vulcanbrain"
> <
NO_SPAM_v...@wappi.com
> wrote:
>
> >Vi prego... ditemi perchè compare questo messaggio all'apertura di un mdb
da
> >un PC 'A' avente collegamento al mdb residente sul PC 'B'....
> >Sono nelle vostre mani, io non so più cosa fare!
> >
> potrebberò esserci parecchi motivi, prova a vedere se hai i permessi
> di lettura scrittura e se il file su B è in sola lettura o no.
>
> Saluti.
> Emanuele.
Sono su WinME, ho tutti i diritti e non è di sola lettura...
HELP!!!!!!!!!!!!


author: ramblers

text:
"vulcanbrain" <
NO_SPAM_v...@wappi.com
> ha scritto nel messaggio
news:kEYY7.9476$%B.36...@twister2.libero.it...

puoi provare a verifica se da B funziona, oppure a fare l'operazione a mano
sulla tabella e verificare che non si sia 'sputtanata'.
ciao


text:
"ramblers" <
clint...@yahoo.it
> ha scritto nel messaggio
news:a11lbe$ni19q$1...@ID-57322.news.dfncis.de...

Misteri della vita...
non cambiando NULL ho riprovato... e ora funge.
Grazie per l'attenzione a te, al NG ma soprattutto a Bill Gates!


title: Lettura dati da Clipboard

author: Daniele

text:
Qualche tempo fa quando scrivevo in Visual Basci ho creato una rouitne per
la lettura di alcuni dati  da Clipboard, ora ho la necessitą di ripetre la
stessaoperazione da MSAccess, in pratica devo leggere la memoria degli
appunti, formato testo ed estrarre determinate informazioni in
corrispondenza di alcune parole che so gią ch sono presenti. Ho provato con
"Clipaboard" ma il VB di Access non lo riconosce, c'č qualche anima pia che
mi puņ aiutare? Grazie


title: Lettura dati da Clipboard

author: André le Pčtomane

text:
"Daniele" <
daniel...@inwind.it
> ha scritto nel messaggio
news:qfxr8.128475$1S3.4...@twister1.libero.it...
> Qualche tempo fa quando scrivevo in Visual Basci ho creato una rouitne per
> la lettura di alcuni dati  da Clipboard, ora ho la necessità di ripetre la
> stessaoperazione da MSAccess, in pratica devo leggere la memoria degli
> appunti, formato testo ed estrarre determinate informazioni in
> corrispondenza di alcune parole che so già ch sono presenti. Ho provato
con
> "Clipaboard" ma il VB di Access non lo riconosce, c'è qualche anima pia
che
> mi può aiutare? Grazie
>
qualcosa si puo' fare con object.action = acolepaste / acolecopy  o con
qualche ocx ad hoc che supporta la funzione copia/incolla ma dipende molto
dal formato dei dati nella clip.
Ciao.
Ale.


title: Lettura dati da Clipboard

author: Karl Donaubauer

text:
Daniele <
daniel...@inwind.it
> ha scritto:
> Qualche tempo fa quando scrivevo in Visual Basci ho creato una rouitne per
> la lettura di alcuni dati  da Clipboard, ora ho la necessità di ripetre la
> stessaoperazione da MSAccess, in pratica devo leggere la memoria degli
> appunti, formato testo ed estrarre determinate informazioni in
> corrispondenza di alcune parole che so già ch sono presenti. Ho provato
con
> "Clipaboard" ma il VB di Access non lo riconosce, c'è qualche anima pia
che
> mi può aiutare?
http://support.microsoft.com/support/kb/articles/Q210/2/13.asp
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Lettura dati da Clipboard

text:
mille grazie ora analizzo se riesco a risolvere il problema
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:a8mk41$ss5es$3...@ID-46617.news.dfncis.de...



title: Tabelle collegate

author: gino galdi

text:
Ho db access su una macchnia con SO W98 che contiene le tabelle clienti,
prodotti, ordini e dovrebbe essere un server dati
Se creo una rete di PC con SO W98/95 (protocolli TCP/IP a 100Mbs), vorrei
sapere quante postazioni client dati (quanti PC) potrei avere se su ognuna
di esse creo un db con delle tabelle collegate a quelle residenti sul
server?
Tutto questo senza avere dei problemi di qualsiasi tipo con ACCESS
n.b.Dalle postazioni client (bisogna solo inserire dei nuovi record in una
stessa tabella, per cui non saranno previste ne operazioni di cancellazione
ne di edit
grazie


title: Tabelle collegate

author: Dario Martello

text:
Al lavoro ho implementato una soluzione del genere mettendo il DB su un
server NT 4 e sui client l'applicazione (MDE) con le tabelle collegate.
Siamo arrivati finora a 7 utenti e non ci sono grossi problemi a livello di
prestazioni a patto di aver usato bene indici e relazioni.
Ovviamente le applicazioni non sono veloci come se usate da un singolo
utente.
Se il server č W95-W98 dovrebbe essere addirittura piů veloce (un giorno
abbiamo avuto il server KO e ho ripristinato il backup del DB sul mio
computer, l'ho condiviso e ho ricollegato le tabelle dei client).
Era un missile.
Ciao
gino galdi <
l.g...@serin.it
> wrote in message
8d797p$gmc$1...@serv1.iunet.it...



title: Tabelle collegate

author: Warp

text:
Dario Martello ha scritto nel messaggio <8d9bte$d7p$
3...@nslave1.tin.it
>...
>Al lavoro ho implementato una soluzione del genere mettendo il DB su un
>server NT 4 e sui client l'applicazione (MDE) con le tabelle collegate.
>Siamo arrivati finora a 7 utenti e non ci sono grossi problemi a livello di
>prestazioni a patto di aver usato bene indici e relazioni.
>Ovviamente le applicazioni non sono veloci come se usate da un singolo
>utente.
>Se il server č W95-W98 dovrebbe essere addirittura piů veloce (un giorno
>abbiamo avuto il server KO e ho ripristinato il backup del DB sul mio
>computer, l'ho condiviso e ho ricollegato le tabelle dei client).
>Era un missile.
>
Confermo al 100%: se la base dati condivisa si trova su un PC con win 95/98  l'accesso ai dati č
molto piů veloce.
Conosco piuttosto poco NT Server e non riesco (di conseguenza?) a dare una giustificazione a questo
"fenomeno".
Ne vogliamo parlare?
CIAO


title: interfaccia database

author: marco

text:
ho fatto un'interfaccia web per un db utilizzando l'autocomposizione di
frontpage. tutto a posto, volevo però sapere come fare alcuni cambiamenti.
per esempio:
- nella parte di invio, una volta inseriti i dati mi compare la schermata
con quello che ho inserito e la possibilità di tornare indietro. a questo
punto però i dati sono già stati inseriti..... sarebbe possibile aggiungere
2 tasti a questa schermata? uno "conferma invio" che va effettivamente ad
aggiungere un record in db, ed un "modifica" che mi fa tornare alla maschera
di inserimento con i dati appena scritti già nei vari campi per poterli
modificare. chiaramente lascerei il tasto "torna indietro".
dove si modifica questa pagina? in che modo posso farlo?
- vorrei fare due schermate di inserimento dati, in una inserisco dei dati
anagrafici e una username e password (univoci chiaramente quindi potrebbero
anche essere la chiave primaria, ma va bene anche il numero crescente così
come è impostato) ed un'altra pagina di invio in cui inserisco username,
password, ed altri dati relativi alla persona (ogni persona ne può avere più
di uno, vorrei fare così per poter inserire i dati anagrafici una sola
volta).
in pratica questo secondo invio deve andarmi a creare un record con tutti i
dati (anagrafici e non, tranne username e password) in un db che ho già
impostato.
quindi ho 2 db, uno "di appoggio" con username, password e dati anagrafici,
e quello completo con tutti i dati.
è possibile realizzare qualcosa del genere?
potete darmi consigli su come procedere?
grazie mille!!!!


title: Inserimento obbligatorio su controllo

author: AMR-Giuseppe

text:
Ciao a tutti
Ho un piccolo problema da risolvere ,
vorrei che in una maschera con più controlli  si rendesse
obbligatorio l'inserimento di un valore , quindi ho creato
questa routine per l'evento su uscita del controllo.
Private Sub CodiceFornitore_Exit(Cancel As Integer)
 If IsNull(Me.CodiceFornitore.Value) Then
     StrMsg = "ATTENZIONE  Codice Fornitore Obbligatorio "
                strTitolo = "  Avvertenza      "
                intStile = vbOKOnly + vbQuestion
                MsgBox StrMsg, intStile, strTitolo
                Response = acDataErrAdded
                Response = acDataErrContinue
                Me![CodiceFornitore].Undo
   End If
la routine funziona solo in parte , cioè  se io non inserisco alcun dato
nel controllo ,il messaggio mi compare, però una volta dato ok il messaggio
si chiude
e il cursore passa al controllo successivo, mentre  vorrei che rimanesse
bloccato su
quel controllo fino a quando non viene inserito un dato.
spero di essere stato chiaro
Grazie anticipato
Ciao Giuseppe


title: Inserimento obbligatorio su controllo

author: MM

text:
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:XZwC9.40131$Yw.18...@news2.tin.it...

Da poco esperto posso dirti che probabilmente devi effettuare un controllo
di questo tipo :
Private Sub CodiceFornitore_Exit(Cancel As Integer)
Select Case (me.codicefornitore.value)
controlla :
case isnull
              StrMsg = "ATTENZIONE  Codice Fornitore Obbligatorio "
              strTitolo = "  Avvertenza      "
              intStile = vbOKOnly + vbQuestion
              MsgBox StrMsg, intStile, strTitolo
              Response = acDataErrAdded
              Response = acDataErrContinue
              Me![CodiceFornitore].Undo
              me.codicefornitore = inputbox ("inserisci codice fornitore :
")
             goto controlla
case isnotnull
            vai al passaggio successivo
End Select
End Sub
Seguendo una logica poco pulita usando una label e un goto potresti a MAL
ESTREMI usare questa soluzione, dando una controllata alla sintassi, perchè
non so se proprio corretta.
Sperando di aver dato un aiutino,
saluto com simpatia,
Marco.


title: Inserimento obbligatorio su controllo

author: Alessandro Cara

text:
MM ha scritto:

e se salta il controllo posizionadosi con il mouse?
Questi controlli andrebbero fatti (o ripetuti) su eventi fi form
--
a.cara
togli qualcosa dall'email


title: Inserimento obbligatorio su controllo

text:
AMR-Giuseppe ha scritto:
>
[cut]
> e il cursore passa al controllo successivo, mentre  vorrei che rimanesse
> bloccato su
> quel controllo fino a quando non viene inserito un dato.
devi mettre cancel = true nella routine di evento



title: somma su gruppo report

author: sabrina

text:
salve a tutto il ng.
ho un problema con un report. questo si appoggia ad una qeury che ha i
seguenti campi: NumeroScheda, DRG, CodiceIstituto, SommaDiImportoDegenza.
Raggruppo i dati nel report secondo CodiceIstituto e metto nel piè di
pagina della sezione del gruppo relativo a CodiceIstituto un campo Somma
che dovrebbe sommare il valoredi SommaImportoDegenza per tutto il gruppo
(ovvero l'importo per l'inetro istituto. Il campo Somma ha come origine
dati SommadiImportoIStituto e come impostazione SommaSuGruppo. però
visualizzo sempre e solo il valore del primo campo. Nel piè di pagina non
è presente il campo SommaDiImporto degenza ma anche se lo metto (nascosto)
non funge.
Che potrei provare? grazie Sabrina
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: somma su gruppo report

author: ESSA

text:
"sabrina" <
sabrin...@regione.abruzzo.it
> ha scritto nel messaggio
news:bp0472$tds$1...@news.newsland.it...

nel piè di pagina della sezione devi mettere nell'origine controllo:
=Somma([SommaImportoDegenza])
un saluto
Giorgio
>
>


title: somma su gruppo report

text:
> nel piè di pagina della sezione devi mettere nell'origine controllo:
> =Somma([SommaImportoDegenza])
> un saluto
> Giorgio
> >
> >
Ma io nel controllo ho messo a Somma Parziale il valore su gruppo. Se
faccio mattendo somma parziale = No e sommando come mi dici comunque mi
restituisce il valore del primo campo piuttosto che la somma
he fare?
ciao Sabrina



title: somma su gruppo report

text:
"sabrina" <
sabrin...@regione.abruzzo.it
> ha scritto nel messaggio
news:bp0a87$ke3$1...@news.newsland.it...
>
> > nel piè di pagina della sezione devi mettere nell'origine controllo:
> > =Somma([SommaImportoDegenza])
> > un saluto
> > Giorgio
> > >
> > >
>
>
> Ma io nel controllo ho messo a Somma Parziale il valore su gruppo. Se
> faccio mattendo somma parziale = No e sommando come mi dici comunque mi
> restituisce il valore del primo campo piuttosto che la somma
> he fare?
> ciao Sabrina
>
Allora se ho capito bene hai un report con una sezione gruppo : Intestazione
CodiceIstituto
nel corpo ci metti il controllo SommaDiImportoDegenza
nel piè di pagina  CodiceIstituto ci metterai un controllo:
Nome elemento: TotaleImportoDegenza
Origine controllo: = Somma([SommaDiImportoDegenza])
Somma parziale: NO
deve funzionare
ciao Giorgio


title: Sapere se un file di excel nel quale esporto è aperto o no

author: Nao+

text:
Ciao ng, ho fatto un piccolo database, nel database diverse persone
inseriscono i dati. I dati vengono esportati tramite bottone in un file di
excel che ha sempre stessa locazione e nome che uso solo io. Il problema �
che il file � abbastanza complesso con diverse pivot grafici etc. Se esporto
i dati con il file chiuso tutto funziona perfettamente ma quando per errore
premo il bottone esporta ed il file � aperto si imballa tutto.
Esiste un modo via codice per controllare se il file D:\pippo.xls � aperto?
in modo da bloccre l'export ed evitare che tutto si blocchi?
per favore aiutatemi invianomi il codice da mettere nell'evento, purtroppo
non sono esperto come voi.
grazie Nao
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: miciomao

text:
Puoi controllare se Excel è in esecuzione, non saprei dirti se
controllare uno specifico file sia possibile e cmq non generi errori
metti questa funzione prima di eseguire i tuoi processi
'==================
Dim MyXL As Object
Dim ExcelWasNotRunning As Boolean ' Flag per il rilascio finale.
On Error Resume Next  ' Rimanda l'intercettazione degli errori.
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then ExcelWasNotRunning = True
Err.Clear  ' Cancella l'oggetto Err in presenza di errori.
If ExcelWasNotRunning = True Then
MsgBox "Excel non in esecuzione, qui esegui quello che devi",
vbInformation
Else
MsgBox "Excel in esecuzione, qui te fermi e chiudi prima Excel",
vbCritical
End If
'==================
Ciao
Alex


author: Nao

text:
Il 29 Set 2009, 19:42, miciomao <
audi...@tiscali.it
> ha scritto:
> Puoi controllare se Excel � in esecuzione, non saprei dirti se

Ciao Alex,
grazie mille per la tua risposta, ho provato e funziona correttamente
intercettando se excel � aperto, ma purtroppo non � quello che mi serve.
Forse mi sono spiegato male nella descrizione del mio problema, il problema
succede non se excel � aperto ma se � aperto il file dove esporto i dati. Se
excel � aperto su un altro file tutto funziona correttamente.
per favore mi puoi dire come inserire nel tuo codice questa cosa?
se � aperto excel con il file pippo.xls (nome del file dove esporto) ferma
l'export
altrimenti procedi
grazie nadir



author: Sergio MAZZA

text:
"Nao" <
na...@libero.it
> ha scritto nel messaggio
news:195Z33Z137Z29Y1...@usenet.libero.it...
> Ciao Alex,
> grazie mille per la tua risposta, ho provato e funziona correttamente
> intercettando se excel ï¿½ aperto, ma purtroppo non ï¿½ quello che mi serve.
> Forse mi sono spiegato male nella descrizione del mio problema, il
> problema
> succede non se excel ï¿½ aperto ma se ï¿½ aperto il file dove esporto i dati.
> Se
> excel ï¿½ aperto su un altro file tutto funziona correttamente.
>
> per favore mi puoi dire come inserire nel tuo codice questa cosa?
> se ï¿½ aperto excel con il file pippo.xls (nome del file dove esporto) ferma
> l'export
> altrimenti procedi
>
>
> grazie nadir
Funzione GetObject
http://office.microsoft.com/it-it/access/HA012288481040.aspx
Ciao.
--
Sergio MAZZA


title: valore automatico query

author: Gioconda ed Emanuele

text:
Salve a tutti, dunque alla fine sono riuscito a creare in una maschera
un'etichetta che a secondo del pulsante che viene cliccato per aprire la
maschera mi esce scritto il numero del pulsante.
Ora ho una tabella con dei dati. Nella maschera che contiene l'etichetta che
vi ho citato ho creato un tasto visualizza, tramite una query cliccandolo mi
chiede di inserire il numero del pulsante. Inserendo mi da tutti i record
che contengono il valore del campo inserito.
La mia domanda � questa:
� possibile dare in automatico il numero del pulsante cliccato alla query
senza far uscire la domanda che mi chiede che numero di pulsante inserire?
Grazie in anticipo, in caso non sia stato molto chiaro fatemi sapere.


title: valore automatico query

author: Pablitomf

text:

nei parametri del campo della query :
Forms![TuaForm]![TuoPulsante].Caption


title: valore automatico query

text:
"Pablitomf" <
pabl...@hotmail.it
> schrieb im Newsbeitrag
news:sKDym.74827$1s6....@twister2.libero.it...

Scusa ma non ho capito dove devo mettere la formula!!
Forse nei criteri della query? Grazie.


title: valore automatico query

text:

si


title: valore automatico query

text:
"Pablitomf" <
pabl...@hotmail.it
> schrieb im Newsbeitrag
news:bLGym.74962$1s6....@twister2.libero.it...

Purtroppo non funziona! Mette in automatico tra parentesi quadre. :(


title: valore automatico query

text:

mette tra parentesi quadre in automatico cosa?


title: valore automatico query

author: valerio

text:
In automatico la stringa diventa questa:
[Forms]![TuaForm]![TuoPulsante].[Caption]
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:qGIym.75049$1s6....@twister2.libero.it...



title: valore automatico query

text:
valerio wrote:
> In automatico la stringa diventa questa:
> [Forms]![TuaForm]![TuoPulsante].[Caption]
e va bene.... l'SQL si trasforma in questo?
SELECT *
FROM TuaTabella
WHERE TuoCampo=[Forms]![TuaMaschera]![TuoPulsante].[Caption];
e dovrebbe essere ok.


title: valore automatico query

text:
Non funziona, esce sempre la maschera per l'immissione del parametro.
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:%xLym.76519$9f6....@twister1.libero.it...



title: valore automatico query

text:

scrivimi il messaggio preciso di richiesta paramentro pls


title: valore automatico query

text:
Immettere valore parametro:
Maschere!MiaMaschera!MioPulsante.Caption
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:EaOym.76617$9f6....@twister1.libero.it...



title: valore automatico query

text:
valerio wrote:
> Immettere valore parametro:
> Maschere!MiaMaschera!MioPulsante.Caption
Scrivi sempre dopo il messaggio per favore, come sto facendo io adesso...
cmq...
anteponi a : Maschere!MiaMaschera!MioPulsante.Caption
il suffisso Like
quindi
Like Maschere!MiaMaschera!MioPulsante.Caption


title: valore automatico query

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:bSOym.75322$1s6....@twister2.libero.it...

Non funziona nemmeno.


title: valore automatico query

author: Geppo

text:
Ciao "valerio" <
sfa...@live.it
> ha scritto nel messaggio
news:hagdgo$ckm$1...@aioe.org...
> Immettere valore parametro:
> Maschere!MiaMaschera!MioPulsante.Caption
ma la tua form non si chiama "MiaMaschera" vero? Quindi:
Forms!Qui Metti il Nome Della tua Form!Qui quello del Tuo Pulsante.Caption
--
Ciao
Geppo


title: valore automatico query

text:

Valerio, ma che vers di Access hai?
e poi se fai una semplice "NUOVA" query del tipo:
Select * From TuaTabella where TuoID = 1 (ad esempio)
funziona?


title: valore automatico query

text:

no dai non posso credere a sta cosa! :D


title: valore automatico query

text:
Ciao "Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:awPym.75348$1s6....@twister2.libero.it...

il dubbio mi � venuto quando gli hai chiesto:
>scrivimi il messaggio preciso di richiesta paramentro pls
e lui ti ha risposto:
>Immettere valore parametro:
>Maschere!MiaMaschera!MioPulsante.Caption
--
Ciao
Geppo


title: valore automatico query

text:

no mi rifiuto! :D


title: valore automatico query

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:zzPym.75349$1s6....@twister2.libero.it...

Uso access 2007. Naturalmente non ho scritto MiaMaschera e MioPulsante, ma i
nomi effettivi di entrambi. O_o ... Cmq credo proprio che non avete capito
la mia domanda. Riepilogando:
Diciamo che ho 10 bottoni. Cliccando sul settimo bottone mi apre un'altra
maschera e scrive in un'etichetta Pulsante 7. Quindi a secondo di quale
bottone clicco nell'etichetta comparir� il numero del pulsante cliccato.
Ora in questa maschera c'� un bottone "Visualizza" collegato ad una query.
Mi esce la box dove � rischiesto "Inserire numero pulsante". Dato che il
numero del pulsante sarebbe anche un campo della tabella, inserendo per es.
7, mi da determinati record che nel campo contengono 7. La mia domanda �
questa:
dato che quando si clicca sul pulsante ti crea un'etichetta con il numero
del pulsante cliccato, per evitare che quando si clicca su "Visualizza"
bisogna inserire il numero del pulsante (risulta antipatico), devo fare in
modo che la query prende in automatico come parametro il pulsante cliccato
in questo caso il valore 7.
Se ci sono dubbi fatemi sapere.


title: valore automatico query

text:
> Uso access 2007. Naturalmente non ho scritto MiaMaschera e
> MioPulsante, ma i nomi effettivi di entrambi. O_o ...
come credevo... era assurdo pensare il contrario ;)
> Cmq credo
> proprio che non avete capito la mia domanda.
Azz... noi non avremmo capito? :D questa � una sfida? :D
> Riepilogando:
> Diciamo che ho 10 bottoni. Cliccando sul settimo bottone mi apre
> un'altra maschera e scrive in un'etichetta Pulsante 7.
Probabilmente questo non lo avevi detto... io pensavo che la caption del
pulsate fosse "7" e non "Pulsante 7"... cmq nulla di male, basta estrapolare
il numero dalla stringa... non � cosa complessa.
> Quindi a
> secondo di quale bottone clicco nell'etichetta comparir� il numero
> del pulsante cliccato. Ora in questa maschera c'� un bottone
> "Visualizza" collegato ad una query. Mi esce la box dove � rischiesto
> "Inserire numero pulsante".
------------------------------------------
RISPONDERE A QUESTO PREGO:
------------------------------------------
e sto "Inserire numero pulsante" da dove
lo prende?... lo hai scritto tu a manina nei
criteri del campo della query? o lo hai
posto come "Parametro" della stessa?
------------------------------------------
> Dato che il numero del pulsante sarebbe
> anche un campo della tabella,
il "VALORE" di un campo della tabella forse vorrai dire...
> inserendo per es. 7, mi da determinati
> record che nel campo contengono 7.
quindi si, il valore... non il nome del campo.
> La mia domanda � questa:
> dato che quando si clicca sul pulsante ti crea un'etichetta con il
> numero del pulsante cliccato, per evitare che quando si clicca su
> "Visualizza" bisogna inserire il numero del pulsante (risulta
> antipatico), devo fare in modo che la query prende in automatico come
> parametro il pulsante cliccato in questo caso il valore 7.
> Se ci sono dubbi fatemi sapere.
perfetto... la risposta � quella che ti ho gi� dato... solo che se c'�
scritto "Pulsante 7" devi estrapolare con un apposita routine il num. 7
dalla stringa... (nel tuo caso potresti pure dire :
Int(Right(Me.TuoPulsante.Caption, 1)) in maniera tale che ti restituisca
solo 7....
ti � chiaro?


title: valore automatico query

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:hFZym.76810$9f6....@twister1.libero.it...

Per quanto riguarda il non capire deriva dal fatto che questa cosa �
complicata da spiegare, probabilmente sono io a non spiegarla in modo
chiaro. Comunque la caption del pulsante � "7", "Pulsante" nell'etichetta lo
faccio scrivere io da codice. "Inserire numero pulsante" l'ho scritto io nei
criteri. Poi, esatto intendevo il valore del campo.
Ancora non mi � chiaro, per risposta che mi hai dato intendi questa: Like
Maschere!MiaMaschera!MioPulsante.Caption  ??
Perch� scrivere il nome della maschera va bene ma quello del pulsante no, lo
deve prendere in automatico. Nel senso se scrivo per es.: Like
Maschere!Maschera1!7.Caption , la query prende sempre il valore 7 o no?
Invece dovrebbe essere per es.: Like Maschere!Maschera1!"Pulsante
cliccato".Caption.


title: valore automatico query

text:
> Per quanto riguarda il non capire deriva dal fatto che questa cosa �
> complicata da spiegare, probabilmente sono io a non spiegarla in modo
> chiaro.
Scherzavo non temere... ;)
> Comunque la caption del pulsante � "7", "Pulsante"
cio� sul pulsante insomma ci trovi scritto solo 7?
> nell'etichetta lo faccio scrivere io da codice.
e qu� ti sei rimangiato quanto appena detto... ma ti vuoi spiegare bene una
volta per tutte???????? c'� 7 o Pulsante 7???? e  con "nell'etichetta lo
faccio scrivere io da codice" che intendi dire ?
> "Inserire numero
> pulsante" l'ho scritto io nei criteri.
scrivendolo tra parentesi quadre?
> Poi, esatto intendevo il
> valore del campo.
wow 1 l'ho "azzeccata"
> Ancora non mi � chiaro, per risposta che mi hai dato intendi questa:
> Like Maschere!MiaMaschera!MioPulsante.Caption  ??
allora Valerio, se tu metti il criterio [Inserire numero pulsante] nella
query, il sistema, all'apertura della stessa riconosce che per quel campo ci
deve essere un filtro e ti ripopone il filtro stesso cos� come lo traduce...
visto che [Inserire numero pulsante] non � n� un campo, n� un riferimento
esterno, il sistema ti ripropone il testo pari pari cos� come lo hai
scritto, dandoti la possibilit� nel box di immettere il parametro a tuo
piacimento (a mano)... se tu al posto di questo cavolo di [Inserisci numero
pulsante] ci metti Forms!MiaMaschera!MioPulsante.Caption, il criterio
riconoscendo che c'� una Form aperta di nome "MiaMaschera" che contiene un
pulsante di nome "MioPulsante", ne recuperer� la Caption (ovvero il 7) e lo
passer� in automatico come parametro...
> Perch� scrivere il nome della maschera va bene
che significa...
> ma quello del pulsante
> no,
che significa...
> lo deve prendere in automatico.
e in quel modo lo prende!!!
>Nel senso se scrivo per es.: Like
> Maschere!Maschera1!7.Caption
NOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOoooooo
il pulsante non si chiama 7!!!!! tu confondi l'etichetta (Caption) del
pulsante, con il Nome del pulsante stesso!!!
Vai nella struttura della Form, e vai sul pulsante, tasto destro
propriet�...vedrai che ci sono tra le varie voci, "Etichetta" che conterr�
il tuo "7", e "Nome elemento", che sar� quello da mettere nella stringa che
ti ho dato al posto di TuoPulsante!!!!
>, la query prende sempre il valore 7 o
> no? Invece dovrebbe essere per es.: Like Maschere!Maschera1!"Pulsante
> cliccato".Caption.
Ti uccido! :D guarda sopra!!!!


title: valore automatico query

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:0y_ym.75525$1s6....@twister2.libero.it...

Non ci siamo. Mettiamola cos�, io dichiaro una variabile pubblica: Public
Pulsante as Integer. Questa variabile in ogni pulsante che creo assume un
valore diverso.
Quindi diciamo che ho 2 pulsanti, e li chiamo 1 e 2. Al clic di uno dei
pulsanti genero un codice. Il primo pulsante avr� questo codice:
Private Sub ctl1_Click()
Pulsante=1
End sub
Il secondo pulsante avr� questo codice:
Private Sub ctl2_Click()
Pulsante=2
End sub
Ora nei criteri della query devo fare in modo che a secondo del pulsante che
clicco mi prende come parametro il valore della variabile Pulsante. Per es.
cliccando sul secondo pulsante � come se nei criteri della query scrivo
direttamente 2.


title: valore automatico query

text:
> Non ci siamo. Mettiamola cos�, io dichiaro una variabile pubblica:
> Public Pulsante as Integer. Questa variabile in ogni pulsante che
> creo assume un valore diverso.
> Quindi diciamo che ho 2 pulsanti, e li chiamo 1 e 2. Al clic di uno
> dei pulsanti genero un codice. Il primo pulsante avr� questo codice:
> Private Sub ctl1_Click()
> Pulsante=1
> End sub
> Il secondo pulsante avr� questo codice:
> Private Sub ctl2_Click()
> Pulsante=2
> End sub
>
> Ora nei criteri della query devo fare in modo che a secondo del
> pulsante che clicco mi prende come parametro il valore della
> variabile Pulsante. Per es. cliccando sul secondo pulsante � come se
> nei criteri della query scrivo direttamente 2.
Ancora pi� semplice....
visto che � una variabile pubblica, ce l'hai a disposizione sempre e
pubblicamente, quindi la puoi usare come criterio...
creati un modulo esterno
e ci scrivi
Public Function passavariabile()
    passavariabile = TuaVariabilePubblica
End Function
salvi il tutto
e poi nei criteri della query al posto di [Inserisci ecc ecc....] ci metti
=passavariabile()


title: valore automatico query

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:31%ym.76883$9f6....@twister1.libero.it...

Ecco fatto, ottimo. Grazie 1000 per la tua disponibilit�. :)


title: Lentezza Access in rete

author: All Eyez On me

text:
Alcuni giorni fa avevo segnalato il problema che da un mio cliente con 6
client quasi mai aperti contemporaneamente l'applicazione fosse lentissima.
Staccando il router, ho visto che l'applicazione è più veloce del 70-80 %
Non me ne intendo di router ma che nesso c'è?
Grazie, AEOM


title: Lentezza Access in rete

author: Potone

text:
"All Eyez On me" <
bf-si...@libero.it
> ha scritto nel messaggio news:anh3m8$d35$1...@lacerta.tiscalinet.it...

Ciao,
potrebbe essere un problema di configurazione degli indirizzi dei DNS sulla rete, nel caso peggiore potrebbe succedere che le
macchine, per risolvere i nomi, escano all'esterno della rete stessa (tramite il router) rallentando così il traffico.
Per appurare se è così potresti far intervenire chi ha configurato le macchine per la rete e chi ha installato il router.
Ciao,
Matteo


title: Lentezza Access in rete

author: David Berardi

text:
"All Eyez On me" <

Gli indirizzi di rete sono stati immessi manualmente o viene utilizzato
DHCP?


title: Lentezza Access in rete

text:
"David Berardi" <
david....@libero.it
> ha scritto nel messaggio
news:OrVm9.43631$e31.9...@twister2.libero.it...

non ne ho idea... cosa dovrei controllare?
AEOM


title: Lentezza Access in rete

text:
"All Eyez On me"
> > Gli indirizzi di rete sono stati immessi manualmente o viene utilizzato
> > DHCP?
> non ne ho idea... cosa dovrei controllare?
Proprietà di rete/scheda Protocollo TCP/IP.
Se l'indirizzo di rete non è specificato esplicitamente, ma è flaggato
"ottieni automaticamente indirizzo IP" ti devi preoccupare.
Saluti.


title: problema di sinatssi

author: Franco dellavalle

text:
ciao a tutti

ho problema di sinatssi

Dim X As String, Y As Long
vEmail = Eval("UnisciValEmail" & (X) & "('" & Me.Name & IIf(Me.OpenArgs = 3, "1')" & "," & Y & ")")

grazie


title: problema di sinatssi

text:

Perche' non /spezzi/ la istruzione quando le cose diventano nebbiose?

Dim Z as string
Z=IIf(Me.OpenArgs = 3, "1","")
vEmail = Eval("UnisciValEmail" & (X) & "('" & Me.Name & Z "'," & Y & ")")
--
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)


title: problema di sinatssi

text:
Il 20/12/2016 12:52, Alessandro Cara ha scritto:
> Il 20/12/2016 09:07, Franco dellavalle ha scritto:
>> ciao a tutti
>>
>> ho problema di sinatssi
>>
>> Dim X As String, Y As Long
>> vEmail = Eval("UnisciValEmail" & (X) & "('" & Me.Name &
>> IIf(Me.OpenArgs = 3, "1')" & "," & Y & ")")
>>
>
> Perche' non /spezzi/ la istruzione quando le cose diventano nebbiose?
>
> Dim Z as string
> Z=IIf(Me.OpenArgs = 3, "1","")
> vEmail = Eval("UnisciValEmail" & (X) & "('" & Me.Name & Z "'," & Y & ")")

Manaccia!
vEmail = Eval("UnisciValEmail" & (X) & "('" & Me.Name & Z & "'," & Y & ")")



title: problema di sinatssi

text:

grazie Alessandro


title: problema di sinatssi

text:

è qui la sinatssi....
anche perche' cosi non funziona

  Dim X As String

  Select Case Me.Controls("Cornice1").Value
    Case Is = 1
      X = "Cliente"
    Case Is = 2
      X = "Fornitore"
    Case Is = 3
      X = "Trasportatore"
    Case Is = 4
      X = "Agen"

  End Select

  Eval "Etichetta" & (X)
  Eval "EmailEtich" & (X) & (ottenere qui, dinamicamente il nome subform)
  Eval "Cbo" & (X).Visible = True
  Eval "Cbo" & (X).SetFocus


title: problema di sinatssi

text:

Questa roba /non/ si fa con la Eval
Me o quello che e' :
obj(nomevariabilechecontieneilnomecontrollo).proprieta'ometodo
Sul sito di Karl dovrebbe esserci spiegazione ed esempi.

i.e
var="Cbo" & X
me(var).Visible = True
oppure
Me("Cbo"&X).Visible=true



title: problema di sinatssi

text:

questa come va fatta?

Eval ("EmailEtich" & (X) & "('" & SM_Etichetta & "')") <--qui non va bene
in piu' vorrei ricavare il
subform.name
 senza doverlo scrivere


title: problema di sinatssi

text:

Avevo preparato un post a suo tempo. Vediamo se lo trovo
Eccolo: Era per il 3D come trovo il subform
----------------------------------------
Una subform e' una /Form/

Spero di farti un esempio chiarificatore.
Ipotizziamo che tu hai un form con 150 subform /nidificate/ .
Cioe' ogni form ne contiene un' altra (subform).
Ammettiamo che hai il focus sulla 75'.
Quella e' il Me del momento.
Per andare /su/ c'e' la parolina Parent
Me.Parent.Parent.Parent.Name
 significa che vuoi salire di tre livelli
Andare quindi alla 72' e prelevare la proprieta' .Name

Viceversa, se vuoi andare /giu/
Me!Sub76!Sub77!Sub78.Name
Dove Subxx e' il nome che hai assegnato al controllo SubForm nel Form
contenitore (cioe' a partire dal Form/subform attivo (quindi  Me))
....SE non funziona
Me!Sub76.Form!Sub77.Form!
Sub78.Form.Name

Se....
Indovina cosa fa questa
Me.Parent.Parent!
Subboh.Form.Name

Che struttura rappresenta?
----------------------------------------------------------
Un subform lo trovi nella collezione Forms oppure come
descritto nel pezzo soprariportato.
L'importante e' che tu sappia quale e' il /Me/ corrente a da li
muoverti su/giu nel modo che ho descritto

Ritornando a:
Eval ("EmailEtich" & (X) & "('" & SM_Etichetta & "')")
Non ho ben capito quale sia la tua esigenza.
Torno a ripetere forse /non ti serve/ la chiamata /dinamica/
(l'Eval tanto per intenderci)

La cosa da te scritta dovrebbe chiamare una funzione
EmailEtichBoh("Nomediunalabel")
dove sta SM_Etichetta?
Sul form corrente[Me]?O da qualche altra parte?
Cosa vuoi prendere il Name o la Caption?
(se non ricordo male le Label non hanno la .Value bensi' la .Caption)
e dovresti specificare la proprieta' che ti interessa.

Una roba del tipo:
Eval ("EmailEtich" & (X) & "('" & Me!SM_Etichetta.caption & "')")
Dove X lo hai impostato con la Case e cio'significa che devi avre
le quattro funzioni /dichiarate e pubbliche/



title: problema di sinatssi

text:

grazie Alessandro

prima di spiegare la form "M_Etichette" volevo
mostrarti questo codice che all'apertura
della form, mi si blocca
_________
su apertura della form
Dim X As String

Me.Controls("Inter" & Me.Cornice1).ForeColor = vbRed

Select Case Me.Controls("Cornice1").Value <- si blocca su questo punto
  Case Is = 1
    X = "Cliente"
  Case Is = 2
    X = "Fornitore"
  Case Is = 3
    X = "Agen"

End Select

Call miaSub(X)
Me("Cbo" & X).Visible = True
Me("Cbo" & X).SetFocus


title: problema di sinatssi

text:
Il 20/12/2016 19:32, Franco dellavalle ha scritto:
> Il giorno martedì 20 dicembre 2016 17:41:13 UTC+1, Alessandro Cara ha scritto:
>> Il 20/12/2016 17:07, Franco dellavalle ha scritto:
>>> Il giorno martedì 20 dicembre 2016 16:04:36 UTC+1, Alessandro Cara ha scritto:
>>>> Il 20/12/2016 15:42, Franco dellavalle ha scritto:
>>>>> Il giorno martedì 20 dicembre 2016 13:56:15 UTC+1, Franco dellavalle ha scritto:
>>>>>> Il giorno martedì 20 dicembre 2016 12:52:30 UTC+1, Alessandro Cara ha scritto:
>>>>>>> Il 20/12/2016 09:07, Franco dellavalle ha scritto:
>>>>>>>> ciao a tutti
>>>>>>>>
>>>>>>>> ho problema di sinatssi
>>>>>>>>
>>>>>>>> Dim X As String, Y As Long
>>>>>>>> vEmail = Eval("UnisciValEmail" & (X) & "('" & Me.Name & IIf(Me.OpenArgs = 3, "1')" & "," & Y & ")")
>>>>>>>>
>>>>>>>
>>>>>>> Perche' non /spezzi/ la istruzione quando le cose diventano nebbiose?
>>>>>>>
>>>>>>> Dim Z as string
>>>>>>> Z=IIf(Me.OpenArgs = 3, "1","")
>>>>>>> vEmail = Eval("UnisciValEmail" & (X) & "('" & Me.Name & Z "'," & Y & ")")


> grazie Alessandro
>
> prima di spiegare la form "M_Etichette" volevo
> mostrarti questo codice che all'apertura
> della form, mi si blocca
> _________
> su apertura della form
> Dim X As String
>
> Me.Controls("Inter" & Me.Cornice1).ForeColor = vbRed
>
> Select Case Me.Controls("Cornice1").Value <- si blocca su questo punto
>   Case Is = 1
>     X = "Cliente"
>   Case Is = 2
>     X = "Fornitore"
>   Case Is = 3
>     X = "Agen"
>
> End Select
>
> Call miaSub(X)
> Me("Cbo" & X).Visible = True
> Me("Cbo" & X).SetFocus
>

Che vuol dire /si blocca/ ? Cornice1 che tipo di Control e'?



title: problema di sinatssi

text:
cut
> > grazie Alessandro
> >
> > prima di spiegare la form "M_Etichette" volevo
> > mostrarti questo codice che all'apertura
> > della form, mi si blocca
> > _________
> > su apertura della form
> > Dim X As String
> >
> > Me.Controls("Inter" & Me.Cornice1).ForeColor = vbRed
> >
> > Select Case Me.Controls("Cornice1").Value <- si blocca su questo punto
> >   Case Is = 1
> >     X = "Cliente"
> >   Case Is = 2
> >     X = "Fornitore"
> >   Case Is = 3
> >     X = "Agen"
> >
> > End Select
> >
> > Call miaSub(X)
> > Me("Cbo" & X).Visible = True
> > Me("Cbo" & X).SetFocus
> >
>
> Che vuol dire /si blocca/ ? Cornice1 che tipo di Control e'?
>

è un gruppo di opzioni
e quando apro la maschera
mi si apre sul codice



title: problema di sinatssi

text:

mentre questo è il codice che avevo prima

  Me.Controls("Inter" & Me.Cornice1).ForeColor = vbRed

  If Me.Controls("Cornice1").Value = 1 Then
    Call miaSub("Cliente")
    CboCliente.Visible = True
    CboCliente.SetFocus
  ElseIf Me.Controls("Cornice1").Value = 2 Then
    Call miaSub("Fornitore")
    CboFornitore.Visible = True
    CboFornitore.SetFocus
  Else
    Call miaSub("Agen")
    CboAgen.Visible = True
    CboAgen.SetFocus

  End If


title: problema di sinatssi

text:

E tu mettila in una variabile e vedi che succede
Dim i as long
i=Me.Controls("Cornice1").Value
Select case i

Ti fa vedere il codice? E tu mandalo in Run.
Un qualsiasi errore deve pur  tirarlo fuori.



title: problema di sinatssi

text:
Ciao,
c'è la possibilità che tu abbia posto, in precedenti sessioni di debug, un breakpoint sulla riga in cui il codice si blocca?
Se la risposta è sì il breakpoint potrebbe essere ancora attivo anche se non si vede più: prova a copiare il blocco Case, incollalo alcune righe più sotto rispetto a dove è ora, poi elimina il blocco originale.
Compila, salva, compatta.
Vedi se si è risolto.
Ciao
Mat.


title: problema di sinatssi

text:

;-)

In genere era sufficiente la Run (dopo un metti breakpoint / leva
breakpoint)



title: problema di sinatssi

text:

e leggere la caption del gruppo di opzioni?
come?
grazie


title: problema di sinatssi

text:
Il 21/12/2016 08:31, Franco dellavalle ha scritto:

>
> e leggere la caption del gruppo di opzioni?
> come?

https://msdn.microsoft.com/en-us/library/office/ff821461.aspx

Non mi sembra che OptionGroup abbia la proprieta' .Caption

https://msdn.microsoft.com/en-us/library/office/ff193237.aspx

Da qualche parte  c'e' una Label che contiene il valore che a te credo
interessa



title: problema di sinatssi

text:

ciao Alessandro
esatto
ma com è il codice per recuperare il nome nella Label?


title: problema di sinatssi

text:
[Cut]
> ciao Alessandro
> esatto
> ma com è il codice per recuperare il nome nella Label?

La sintassi è questa:
Me.Cornice.Controls(0).Caption

per funzionare la label deve essere parte dei controls della cornice.

Mi permetto:
1 all'interno di un 3d non si passa da un argomento all'altro altrimenti non si capisce più niente, se si ha una domanda nuova si apre un nuovo 3d (magari dopo aver speso 2 minuti su Google a cercare l'informazione che ci serve);
2 quando un problema è risolto (o non risolto) due righe per dire se la soluzione ha funzionato aiuta chi arriva dopo;

Grazie, ciao
Mat.


title: problema di sinatssi

text:

grazie Potone
hai ragione.


title: problema di sinatssi

text:

la form per cui abbiamo iniziato il thread è così
strutturata;

Form "M_Etichette"
SubForm "SM_Etichetta"

sulla Form ho un gruppo di Opzioni "Cornice1"
con 4 pulsanti
nome: Inter1, Inter2, ecc.
etichetta: Cliente, Fornitore, ecc
con 4 combo
CboCliente, CboFornitore, ecc.

su dopo aggiornamento delle combo ho:
Call ShowAllClienti(Me) 'mostra tutti i record dopo averli filtrati su modifica
PremCbo
Call EmailEtichCliente(0)

dove "PremCbo" è
  Dim ctl As Control
  Dim Cont As Integer

  For Each ctl In SM_Etichetta.Form ' questa toglie le spunte
    If ctl.Tag = "CC" Then ctl = 0
  Next

  Set ctl = SM_Etichetta.Form!LstEmail

  If ctl.ItemsSelected.Count <> 0 Then
    For Cont = 0 To ctl.ListCount - 1
      ctl.Selected(Cont) = False
    Next Cont

  End If

  SM_Etichetta.Requery
  ctl.Requery

  SM_Etichetta.Form!CboAltraNota.Value = Null
  SM_Etichetta.Form!CboAltraNota.Requery
  SM_Etichetta.Form!MiaNota = Null

____________
su apertura della Form:
  Dim X As String, Y As String

la form per cui abbiamo iniziato il thread è così
strutturata;

Form "M_Etichette"
SubForm "SM_Etichetta"

sulla Form ho un gruppo di Opzioni "Cornice1"
con 4 pulsanti
nome: Inter1, Inter2, ecc.
etichetta: Cliente, Fornitore, ecc
con 4 combo
CboCliente, CboFornitore, ecc.

su dopo aggiornamento delle combo ho:
Call ShowAllClienti(Me) 'mostra tutti i record dopo averli filtrati su modifica
PremCbo
Call EmailEtichCliente(0)

dove "PremCbo" è
  Dim ctl As Control
  Dim Cont As Integer

' toglie le spunte da caselle di controllo
  For Each ctl In SM_Etichetta.Form
    If ctl.Tag = "CC" Then ctl = 0
  Next

  Set ctl = SM_Etichetta.Form!LstEmail

' deseleziona tutte le email per non farle visualizzare sul report
  If ctl.ItemsSelected.Count <> 0 Then
    For Cont = 0 To ctl.ListCount - 1
      ctl.Selected(Cont) = False
    Next Cont

  End If

  SM_Etichetta.Requery
  ctl.Requery

  SM_Etichetta.Form!CboAltraNota.Value = Null
  SM_Etichetta.Form!CboAltraNota.Requery
  SM_Etichetta.Form!MiaNota = Null

____________
su apertura della Form:
  Dim X As String, Y As String

  Select Case Me.Controls("Cornice1").Value
    Case Is = 1
      X = "Cliente"
    Case Is = 2
      X = "Fornitore"
    Case Is = 3
      X = "Trasportatore"
    Case Is = 4
      X = "Agen"

  End Select

  Eval ("Etichetta" & X & "()")
  Eval ("EmailEtich" & X & "('SM_Etichetta')")
  Me("Cbo" & X).Visible = True
  Me("Cbo" & X).SetFocus

  SM_Etichetta.Form.RecordSource = SM_Etichetta.Form.RecordSource
  SM_Etichetta.Form!LstEmail.RowSource = SM_Etichetta.Form!LstEmail.RowSource
__________________

SubForm
con diversi controlli, tra cui una casella di riepilogo
"LstEmail" con selezione multipla semplice e con origine da "Qry_EmailEtichetta"
__________________

ho poi modificato queste sub in function
per poter utilizzare Eval

1-_____questa è una delle quattro

Public Function EtichettaCliente()

  Dim strSql As String

  strSql = vbNullString
  strSql = strSql & "SELECT "
  strSql = strSql & "IdCliente As Id, "
  strSql = strSql & "NomeCliente As Nome, "
  strSql = strSql & "IndirizzoCliente As Indirizzo, "
  strSql = strSql & "CAPCliente As CAP, "
  strSql = strSql & "CittàCliente As Città, "
  strSql = strSql & "NazioneCliente As Nazione, "
  strSql = strSql & "IndirizzoPostale, "
  strSql = strSql & "LocalitàIndirizzoPostale, "
  strSql = strSql & "PIVACliente As PIVA, "
  strSql = strSql & "TelefonoCliente As Telefono, "
  strSql = strSql & "FaxCliente As Fax, "
  strSql = strSql & "CellulareCliente As Cellulare "
  strSql = strSql & "FROM TbClienti "
  strSql = strSql & "WHERE IdCliente = Forms!M_Etichette!CboCliente.Value"

  DBEngine(0)(0).QueryDefs("Qry_Etichetta").SQL = strSql

End Function

2-_____questa è una delle quattro

Public Function EmailEtichCliente(strSFrm As String)

  Dim strSql As String

  strSql = vbNullString
  strSql = strSql & "SELECT "
  strSql = strSql & "IdEmailCliente As IdEmail, "
  strSql = strSql & "EmailCliente As Email "
  strSql = strSql & "FROM TbEmailClienti "
  Select Case strSFrm
    Case Is = "SM_Etichetta"
    strSql = strSql & "WHERE IdCliente = Forms!M_Etichette!CboCliente.Value "
    strSql = strSql & "ORDER BY EmailCliente"
    GoTo Fine

  End Select
  strSql = strSql & "WHERE IdEmailCliente IN(0)"
Fine:
  DBEngine(0)(0).QueryDefs("Qry_EmailEtichetta").SQL = strSql

End Function


title: problema di sinatssi

text:
Il giorno mercoledì 21 dicembre 2016 11:02:51 UTC+1, Potone ha scritto:

Il suggerimento è RELATIVAMENTE corretto... nel senso che va bene se creato il controllo non lo si tocca...
Ma se Cancelli(o tagli ed incolli) la label e po la rimetti... gli ITEMS della collection Controls sono giustamente shiftati, ed l'ITEM(0) diventa la prima OPTION...

A mio avviso, sarebbe meglio scrivere codice più ROBUSTO...

Esempio buttato li...

    Dim ctl As Access.Control
    For Each ctl In MainControl.Controls
        If TypeOf ctl Is Label Then
            If
ctl.Parent.Name
 = MainControl.Name Then MsgBox ctl.Name
        End If
    Next

Dove MainControl è il Riferimento all'OptionButton

Saluti
@Alex


title: problema di sinatssi

text:

grazie Alex
ora lo provo


title: problema di sinatssi

text:
Il 21/12/2016 11:18, Franco dellavalle ha scritto:

Potone di ha appena dato il /sano/ consiglio di aprire un altro 3D con
oggetto appropriato.

Un altro consiglio.
Non mettere chilometrate di codice non lo legge nessuno!
Spiega la tua richiesta se, poi, e' necessario il codice
(ma /pezzetti/ ) lo si chiede.



title: problema di sinatssi

text:

ok
grazie


title: problema di sinatssi

text:
[Cut]
> Il suggerimento è RELATIVAMENTE corretto... nel senso che va bene se creato il controllo non lo si tocca...
> Ma se Cancelli(o tagli ed incolli) la label e po la rimetti... gli ITEMS della collection Controls sono giustamente shiftati, ed l'ITEM(0) diventa la prima OPTION...
>
> A mio avviso, sarebbe meglio scrivere codice più ROBUSTO...
>
> Esempio buttato li...
>
>
>     Dim ctl As Access.Control
>     For Each ctl In MainControl.Controls
>         If TypeOf ctl Is Label Then
>             If
ctl.Parent.Name
 = MainControl.Name Then MsgBox ctl.Name
>         End If
>     Next
>
> Dove MainControl è il Riferimento all'OptionButton
>
> Saluti
> @Alex

Grazie @Alex per la precisazione,
in questo caso la collection controls dell'OptionGroup può ospitare solo un contollo (solo di tipo Label, altri tipi non sono consentiti), quindi per amor di robustezza del codice effettuare un ciclo su una collection che conterrà al massimo un elemento e fare il test sul tipo quando non può che contenere un solo tipo forse è eccesso di zelo.
Nel mio post iniziale avevo anche indicato che "per funzionare la label deve essere parte dei controls della cornice", certo senza specificare in quale caso e perchè avrebbe potuto non funzionare.
Comunque non posso che essere d'accordo sulla necessità di scrivere codice quanto più robusto possibile, ma trovare il giusto compromesso trà robustezza del codice e praticità nel codificare penso sia anch'essa qualità positiva.
Ciao
Mat.


title: problema di sinatssi

text:
...
> Grazie @Alex per la precisazione,
> in questo caso la collection controls dell'OptionGroup può ospitare solo un contollo (solo di tipo Label, altri tipi non sono consentiti), quindi per amor di robustezza del codice effettuare un ciclo su una collection che conterrà al massimo un elemento e fare il test sul tipo quando non può che contenere un solo tipo forse è eccesso di zelo.

Probabilmente mi sfugge qualche cosa... come fa un GruppoOpzioni a contenere nella collection Controls SOLO 1 etichetta...?

Un Controllo di tipo OPTIONGROUP di norma ha [n] radioButton(o ChekBox) di conseguenza [n+1] Etichette..., oppure [n] Interruttori di conseguenza solo 1 Etichetta.
In quest'ultimo caso, forse quello a cui ti riferisci, la collection controls è composta da [n Interruttori + 1 Etichetta]

Negli altri 2 casi (radio/check) finiscono nella collection Controls del controllo OptionGroup o della Cornice per chi la chiama così... anche tutte le LABEL dei Check/RadioButton.

Se ho frainteso scenario, prendi tranquillamente per buona la tua ipotesi, che però fatico ad inquadrare e vorrei capire meglio.

> Nel mio post iniziale avevo anche indicato che "per funzionare la label deve essere parte dei controls della cornice", certo senza specificare in quale caso e perchè avrebbe potuto non funzionare.

Ma questo è ovvio, la label anche nel caso che ti ho fatto io fa parte della collection controls dell'OptionGroup(o cornice)... solo che dopo un Taglia, incolla esternamente, taglia e reincolla sull'OptionGroup cambia di Indice.

> Comunque non posso che essere d'accordo sulla necessità di scrivere codice quanto più robusto possibile, ma trovare il giusto compromesso trà robustezza del codice e praticità nel codificare penso sia anch'essa qualità positiva.
> Ciao
> Mat.

Questo vale sempre, da fare molta attenzione sono proprio le convinzioni che quel codice possa funzionare sempre, poi con azioni BANALI come appunto il Taglia/Incolla di una LABEL, questo fa cadere i miti... e credimi che capire che il problema è quello poi non è per tutti semplicissimo...

Saluti
@Alex


title: problema di sinatssi

text:
Il giorno mercoledì 21 dicembre 2016 14:30:44 UTC+1, @Alex ha scritto:
[Cut]
> Probabilmente mi sfugge qualche cosa... come fa un GruppoOpzioni a contenere nella collection Controls SOLO 1 etichetta...?
>
> Un Controllo di tipo OPTIONGROUP di norma ha [n] radioButton(o ChekBox) di conseguenza [n+1] Etichette..., oppure [n] Interruttori di conseguenza solo 1 Etichetta.
> In quest'ultimo caso, forse quello a cui ti riferisci, la collection controls è composta da [n Interruttori + 1 Etichetta]
>
> Negli altri 2 casi (radio/check) finiscono nella collection Controls del controllo OptionGroup o della Cornice per chi la chiama così... anche tutte le LABEL dei Check/RadioButton.
>
> Se ho frainteso scenario, prendi tranquillamente per buona la tua ipotesi, che però fatico ad inquadrare e vorrei capire meglio.
>
> > Nel mio post iniziale avevo anche indicato che "per funzionare la label deve essere parte dei controls della cornice", certo senza specificare in quale caso e perchè avrebbe potuto non funzionare.
>
> Ma questo è ovvio, la label anche nel caso che ti ho fatto io fa parte della collection controls dell'OptionGroup(o cornice)... solo che dopo un Taglia, incolla esternamente, taglia e reincolla sull'OptionGroup cambia di Indice.
>
> > Comunque non posso che essere d'accordo sulla necessità di scrivere codice quanto più robusto possibile, ma trovare il giusto compromesso trà robustezza del codice e praticità nel codificare penso sia anch'essa qualità positiva.
> > Ciao
> > Mat.
>
> Questo vale sempre, da fare molta attenzione sono proprio le convinzioni che quel codice possa funzionare sempre, poi con azioni BANALI come appunto il Taglia/Incolla di una LABEL, questo fa cadere i miti... e credimi che capire che il problema è quello poi non è per tutti semplicissimo...
>
> Saluti
> @Alex

Ciao @Alex,
mi sono fatto forviare dalla domanda originale:
"leggere la caption del gruppo di opzioni"

ho risposto come se stessimo parlando di una textbox che può contenere una singola label nella propria collection controls, errore mio.

Come dici tu, giustamente, una optiongroup può contenere diversi controlli tra cui la propria caption che è in posizione 0 quando si inserisce il controllo optiongroup in un form e li rimane a meno di taglia e incolla successivi, anche in questo caso dici bene.

Perfettamente d'accordo sul fatto che trovare errori di esecuzione causati da operazioni a cui non si da peso, come spostare un controllo nell'interfaccia, possa essere un'impresa difficile.

Grazie ancora per le precisazioni.

Mat.


title: problema di sinatssi

text:
....
> Ciao @Alex,
> mi sono fatto forviare dalla domanda originale:
> "leggere la caption del gruppo di opzioni"
>
> ho risposto come se stessimo parlando di una textbox che può contenere una singola label nella propria collection controls, errore mio.
>
> Come dici tu, giustamente, una optiongroup può contenere diversi controlli tra cui la propria caption che è in posizione 0 quando si inserisce il controllo optiongroup in un form e li rimane a meno di taglia e incolla successivi, anche in questo caso dici bene.
>
> Perfettamente d'accordo sul fatto che trovare errori di esecuzione causati da operazioni a cui non si da peso, come spostare un controllo nell'interfaccia, possa essere un'impresa difficile.
>
> Grazie ancora per le precisazioni.
>
> Mat.

Bene, mi pare quindi di non essere stato eccessivo nel mio zelo...

Saluti
@Alex


title: problema di sinatssi

text:

ciao Alex
se per l interuttore (gruppo di opzioni)
in questo modo trovo la caption
  Dim X As Long, Y As String

  X = Me.Controls("Cornice1").Value
  Y = Me.Cornice1.Controls(X - 1).Caption

nel pulsante (gruppo di opzioni)
come devo fare per trovare la caption?
Perchè in questo modo
Y = Me.Cornice1.Controls(X - 1).Caption
anzichè darmi il nome dei singoli
pulsanti, mi da il nome dell etichetta
del gruppo


title: problema di sinatssi

text:
Il giorno mercoledì 21 dicembre 2016 16:24:37 UTC+1, @Alex ha scritto:
[Cut]
> Bene, mi pare quindi di non essere stato eccessivo nel mio zelo...
>
> Saluti
> @Alex
Sei stato zelante al punto giusto.
Ciao
Mat.


title: problema di sinatssi

text:
Quello che hai scritto è ASSOLUTAMENTE SENZA ALCUN SENSO.
Di conseguenza io non ho capito nulla.

@ALEX


title: problema di sinatssi

text:
Il 21/12/2016 17:00, Franco dellavalle ha scritto:

> se per l interuttore (gruppo di opzioni)
> in questo modo trovo la caption
>   Dim X As Long, Y As String
>
>   X = Me.Controls("Cornice1").Value
>   Y = Me.Cornice1.Controls(X - 1).Caption
>
> nel pulsante (gruppo di opzioni)
> come devo fare per trovare la caption?
> Perchè in questo modo
> Y = Me.Cornice1.Controls(X - 1).Caption
> anzichè darmi il nome dei singoli
> pulsanti, mi da il nome dell etichetta
> del gruppo
>

Stai facendo un po di confusione.
Per favore apri un /nuovo/ 3D con oggetto appropriato e ne riparliamo.



title: problema di sinatssi

text:
Il 21/12/2016 19:44, @Alex ha scritto:
> Quello che hai scritto è ASSOLUTAMENTE SENZA ALCUN SENSO.
> Di conseguenza io non ho capito nulla.
>

Non e' vero.
La tua e' solo una "ritirata strategica" (stai scappando ;-) )



title: problema di sinatssi

text:
Guarda che è Natale non Carnevale... sono piu buono(e si vede), ma non ci credo agli scherzi...

@ALEX


title: valore cella derivato/ calcolato da celle di altre tabelle (versione semplice)

text:
ho visto che ci sono molti post sull'argomento ma sono un pò troppo
complicati per me ( capite quindi in che pezze sono..)
io ho una database con più tabelle in relazione tra loro con relazioni
uno a molti
nella tabella madre ho, diciamo, un campo con il codice "provincia"
poi in un'altra tabella ho il codice "comune" e nella stessa tabella
devo riempire ogni volta anche il campo composto da "codice provincia"
+ "codice comune" + il contatore della mia riga..
in modo semplice potete spiegarmi come fare a riempire automaticamente
quest'ultimo campo?
grazie!


title: Stampa Verticale - orizzontale

author: Jim

text:
Non riesco ad impostare tramite codice la stampa di una maschera in
orizzontale oppure in verticale.
In excel riesco senza nessun problema, ma in Access no. Mi si sarà chiuso il
cervello. Mha !!
Grazie 1000 a chi mi aiuta.
-----------------------------------------------------------
Anno 1969 e' bastata la potenza di due Commodore-64 per lanciare con
successo una nave spaziale sulla Luna.
Anno 2001 ci vuole la potenza di un Pentium-III a 800 per far correre
Windows'98.
Qualcosa deve essere andato storto.
------------------------------------------
http://digilander.iol.it/zagare


title: Stampa Verticale - orizzontale

text:
"Jim" <
sal...@libero.it
> ha scritto nel messaggio
news:7LzL6.17473$RX4.1...@news.infostrada.it...
> Non riesco ad impostare tramite codice la stampa di una maschera in
> orizzontale oppure in verticale.
> In excel riesco senza nessun problema, ma in Access no. Mi si sarà chiuso
il
> cervello. Mha !!
> Grazie 1000 a chi mi aiuta.
Nell'help alla voce Proprietà PrtDevMode c'è un esempio che potrebbe
aiutarti...
Ciao.


title: Popolare una maschera visualizzazione foglio dati

author: Luca

text:
Salve a tutti,
Ho realizzato una procedura per l'inserimento di un budget di vendita.
I dati sono in un unica tabella 'budget' con i seguenti campi:
nazione
regione
....
categoria
prodotto
gen
feb
....
Vi sono due form non collegate tra loro.
Nella form  principale (vi sono diversi campi combo, ne elenco solo alcuni):
nazione: IT   [combo]
regione: Lombardia   [combo]
....
categoria: 11        [combo]
nella subform:
prodotto|totale|gen|feb| ...
A1        1000   250 210  ...
A3         760   100 120 ...
Attualmente nelle righe della form (in visualizzazione Foglio dati)
occorre selezionare da una combo i prodotti filtrati in base ad una
precedente combo (categoria prodotto) ed inserire un valore totale che
viene poi spalmato sui vari mesi con degli indici.
Il problema è che vorrei riuscire a 'popolare' le righe della form in
modo automatico, inserendo tutti i prodotti della categoria selezionata
nella precedente combo, completare la modifica dei dati e salvare il
tutto nella tabella 'budget'.
L'unica possibilità che vedo di fare ciò è di utilizzare una tabella
d'appoggio temporanea e poi trasferire tutto sulla tabella 'budget'.
Volevo sapere se avete qualche suggerimento od alternativa a questo metodo.
Grazie a tutti
Luca
Access 2007


author: "Roccia" Max

text:
On 30 Ott, 15:02, Luca <
lucach...@hotmail.com
> wrote:
> L'unica possibilità che vedo di fare ciò è di utilizzare una tabella
> d'appoggio temporanea e poi trasferire tutto sulla tabella 'budget'.
Non ho capito se hai gia' i record con i campi "mese" vouoti e devi
solo compilare i campi gennaio/febbraio/marzo ecc. o se devi proprio
creare il record da zero.
cia'
Max


author: Luca da casa

text:
"Roccia" Max ha scritto:



> cia'
> Max
No devo proprio creare i record (nel caso non ci fossero) o recuperarli
nel caso siano già presenti in tabella.
Ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: 'Roccia' Max

text:
On 30 Ott, 21:47,
lucach...@hotmail.com
 (Luca da casa) wrote:
> No devo proprio creare i record (nel caso non ci fossero) o recuperarli
> nel caso siano già presenti in tabella.
E c'e' un motivo particolare per cui usi le form in modalità foglio
dati?
Perche' io farei la form a maschere continue con intestazione: combo
non associata, contiene l'elenco delle categorie prodotto, su "dopo
aggiornamento" applica alla form un filtro tipo "[categoria]=" &
me.ComboCategorie
Corpo della maschera: gli altri campi, il campo categoria nascosto, su
"prima di inserimento" fai riempire automaticamente la categoria con
il contenuto della combo.
Se cosi' non va bene, non ho capito cosa intendi fare :P
cia'
Max


text:
'Roccia' Max ha scritto:




> cia'
> Max
No, aspetta un attimo, nella subform vi è su ogni record una combo che
presenta già i prodotti filtrati dalla combo precedente (categoria).
Ma devo essere io ad indicare in ogni riga della form quale prodotto
inserire (attualmente il programma funziona in questo modo).
Io vorrei invece che selezionando la categoria nella combo in intestazione
mi creasse n record con inseriti tutti i prodotti della categoria.
I prodotti sono al max una decina per categoria.
La visualizzazione foglio dati era una scelta puramente di comodo.
Ciao
Luca



title: Pubblicazione su Internet...

author: Rick

text:
Qualcuno sa come si fa a pubblicare un db access su internet, avendo un
server nt con iis, (quindi anche in pagine asp), ma dando anche la
possibilità di immettere i dati da form..
GRazie
--
____________________________________________________________________________
_____
Riccardo Triunfo
System Administrator - CNS Area
CRS4 - Center for Advanced Studies, Research and Development in Sardinia
Email:
ri...@crs4.it
Tel. :
+39 070 2796342
Sesta Strada Ovest
Z.I. Macchiareddu
C.P. 94 - 09010 Uta (CA), Italy
____________________________________________________________________________
_____


title: Pubblicazione su Internet...

author: Frankkk

text:
"Rick" <
ri...@tiscalinet.it
> ha scritto nel messaggio
news:8se4r6$bdk$1...@pietro.crs4.it...
> Qualcuno sa come si fa a pubblicare un db access su internet, avendo un
> server nt con iis, (quindi anche in pagine asp), ma dando anche la
> possibilità di immettere i dati da form..
>
> GRazie
...per farlo devi farti ospitare in un server che supporti asp !
il database deve necessariamente risiedere nel server remoto, per
interrogarlo, inserire, eliminare dati DEVI conoscere necessariamente ASP.
ma questo già lo sapevi...con iis e pws fai solo in locale i test alle tue
pagine asp.
Da quello che so io, a meno che tu non ne abbia bisogno per una intranet,
testare in locale le pagine è solo una perdita di tempo...mentre per quanto
riguarda l'esportazione da a2000 di query, forms e report in pagine asp è
ancor di più una perdita di tempo....non ti serviranno mai !
Se hai bisogno posta pure ancora...
Frankkk


title: Pubblicazione su Internet...

author: Kappa

text:
"Rick" <
ri...@tiscalinet.it
> ha scritto nel messaggio
news:8se4r6$bdk$1...@pietro.crs4.it...
> Qualcuno sa come si fa a pubblicare un db access su internet, avendo un
> server nt con iis, (quindi anche in pagine asp), ma dando anche la
> possibilità di immettere i dati da form..
>
> GRazie
vedi su
http://www.soft-land.org/articoli/aspdb.html
 e su
http://www.aspitalia.com/articoli/keywords.asp?ID=1&argomento=ASP%3BMail+e+d
atabase
ciao
--
Kappa
kappa**nospam**@
webngo.net
www.webngo.net


title: Pubblicazione su Internet...

author: Lbo da casa

text:
>Qualcuno sa come si fa a pubblicare un db access su internet, avendo un
>server nt con iis, (quindi anche in pagine asp), ma dando anche la
>possibilità di immettere i dati da form..
vedi qui:
www.html.it
www.aspitalia.com
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: Pubblicazione su Internet...

text:
Quindi mi sconsigliate tutti di usare le funzioni automatiche di
esportazione dati web di access, e di buttarmi a imparare il codice asp? Non
ci si può aspettare niente dalla pubblicazione automatica?
Grazie mille
--
____________________________________________________________________________
_____
Riccardo Triunfo
System Administrator - CNS Area
CRS4 - Center for Advanced Studies, Research and Development in Sardinia
Email:
ri...@crs4.it
Tel. :
+39 070 2796342
Sesta Strada Ovest
Z.I. Macchiareddu
C.P. 94 - 09010 Uta (CA), Italy
____________________________________________________________________________
_____
"Rick" <
ri...@tiscalinet.it
> ha scritto nel messaggio
news:8se4r6$bdk$1...@pietro.crs4.it...



title: Pubblicazione su Internet...

text:
>Quindi mi sconsigliate tutti di usare le funzioni automatiche di
personalmente sconsiglio alla grande.  nel migliore migliore migliore
dei casi ottieni degli activex, cioč qualcosa che puň essere
utilizzato solo con explorer.
>esportazione dati web di access, e di buttarmi a imparare il codice asp? Non
sě, fai proprio prima anche in termini di tempo, tanto ti ricicli
tutto o quasi quello che sai di vba.
>ci si puň aspettare niente dalla pubblicazione automatica?
c'č un thread piů avanti di cui non ricordo il titolo, magari come
parola chiave puoi cercare stefy che č l'autore, nel quale se ne
accenna.
quello che funziona č la generazione di html statico, ma insomma, con
asp fai quasi prima ed č piů divertente...



title: Pubblicazione su Internet...

text:
E frontpage serve a qualcosa???? Può aiutare nella pubblicazione del db
access?
P.s. Grazie a tutti per le risposte!!!
--
____________________________________________________________________________
_____
Riccardo Triunfo
System Administrator - CNS Area
CRS4 - Center for Advanced Studies, Research and Development in Sardinia
Email:
ri...@crs4.it
Tel. :
+39 070 2796342
Sesta Strada Ovest
Z.I. Macchiareddu
C.P. 94 - 09010 Uta (CA), Italy
____________________________________________________________________________
_____
"Rick" <
ri...@tiscalinet.it
> ha scritto nel messaggio
news:8se4r6$bdk$1...@pietro.crs4.it...



title: Pubblicazione su Internet...

text:
>E frontpage serve a qualcosa???? Può aiutare nella pubblicazione del db
>access?
sì e no.  in teoria automatizza certe operazioni, ma di nuovo, crea
file che funzionano solo su explorer.  di brutto ha che ti isola
pressoché completamente dal codice e ti fa perdere il controllo su
quello che fai.
dai retta, meglio imparare un po' di vbs...



title: Password per maschere.

author: Piccolo Bush

text:
Ciao a tutti. Ho letto sul sito comune la trattazione sulla sicurezza nei
database Access, perň oltre al fatto che č un pň troppo per le mie esigenze
ha anche lo svantaggio che trasferendo il database su un'altra macchina,
bisogna ripetere tutto. A me servirebbe qualcosa di piů semplice ed
immediato, il database accessibile da tutti, ma alcune maschere protette con
una password. E' possibile? Grazie.


title: Password per maschere.

author: Lorenzo Coronati

text:
Scrisse "Piccolo Bush" <
gianni.s...@tin.it
>:
>Ciao a tutti. Ho letto sul sito comune la trattazione sulla sicurezza nei
>database Access, però oltre al fatto che è un pò troppo per le mie esigenze
>ha anche lo svantaggio che trasferendo il database su un'altra macchina,
>bisogna ripetere tutto. A me servirebbe qualcosa di più semplice ed
>immediato, il database accessibile da tutti, ma alcune maschere protette con
>una password. E' possibile? Grazie.
semplice semplice e senza troppe pretese:
sub form_open(cancel as integer)
if inputbox("password")<>"pippo" then cancel=true
end sub
--
Lorenzo Coronati
--
<<Si perché forse Ilbo (ed altri come lui) sono
convinti che noi poveri principianti (nel senso
ironico) scrivano le domande senza pensare.>>
(Ivan Lelli, 25/08/2000)
--
<<se il lavoro non me lo dai tu, me lo da
un'altro stronzo che non capisce una sega
di access e di informatica in generale>>
(Ivan dal lavoro, 30/09/2000)
--


title: Password per maschere.

text:
"Lorenzo Coronati" <lorenzo.coronati@liberopuntoit> ha scritto nel messaggio
news:3cac7f8c...@news.edisontel.com...

Scusa, abbi pazienza ma sono paragonabile allo stronzo di cui sopra,
potresti essere un pò più esplicito per cortesia? Grazie.


title: Password per maschere.

text:
Scrisse "Piccolo Bush" <
gianni.s...@tin.it
>:
>> semplice semplice e senza troppe pretese:
>> sub form_open(cancel as integer)
>> if inputbox("password")<>"pippo" then cancel=true
>> end sub
>Scusa, abbi pazienza ma sono paragonabile allo stronzo di cui sopra,
>potresti essere un pò più esplicito per cortesia? Grazie.
basta che copi pari pari da sub a end sub nel modulo di
classe della form che vuoi "proteggere"
ancora meglio: vai in struttura della form, vedi le
proprieta' evento? ce n'e' una che si chiama su apertura
scegli [routine evento] dalla lista e clicca sui tre puntini
a destra
si apre una finestra con scritta la stessa cosa di sopra,
senza la riga centrale: copiala, salva, prova
--
Lorenzo Coronati
--
"Se la tua risposta non ci sarebbe stata sarebbe stato meglio x tutti,
o se la risposta sarebbe stata : "
(RENDERMAN®)
--
"NON SI ACCETANO PERDI TEMPO."
(Nicola Berardino)
---


title: Password per maschere.

text:
"Lorenzo Coronati" <lorenzo.coronati@liberopuntoit> ha scritto nel messaggio
news:3cad6051...@news.edisontel.com...
> basta che copi pari pari da sub a end sub nel modulo di
> classe della form che vuoi "proteggere"
> ancora meglio: vai in struttura della form, vedi le
> proprieta' evento? ce n'e' una che si chiama su apertura
> scegli [routine evento] dalla lista e clicca sui tre puntini
> a destra
> si apre una finestra con scritta la stessa cosa di sopra,
> senza la riga centrale: copiala, salva, prova
>
O.k., adesso ci siamo. Grazie.



title: TransferText e profili di esportazione

author: Marco Pompei

text:
Salve,
sto cercando di usare la funzione DoCmd.TransferText per esportare una
tabella o query in un file di testo con campi a lunghezza fissa.
L'help di access dice che si deve usare un profilo di esportazione per
stabilire la lunghezza di ogni campo da esportare, profilo salvato nel
DB o in un file schema.ini, ma non riesco a farlo funzionare in
nessuno dei due modi, perchè nel primo caso mi accetta il profilo ma
poi dice "impossibile accedere al file - la risorsa è di sola
lettura", nel secondo caso non sono riuscito a creare un file
schema.ini su disco.
Qualcuno ha idea di come risolvere almeno uno dei due problemi, cioè
come creare un file schema.ini e/o perchè mi dà quell'errore di
esportazione, visto che il file non è di sola lettura?
Grazie per qualsiasi aiuto potrete darmi.
--
Marco


title: TransferText e profili di esportazione

author: FABIO

text:
Marco Pompei wrote:
> Salve,



> --
> Marco
Sei sicoro che effettivamente il file non sia di solo lettura?
Prova ad esportare il file con il comando di access File/Esporta e vedi in
che fase si blocca l'esportazione. Da qui puoi anche salvare il file di
profilo (vedi Avanzate) che ti serve per l'esportazione con il
DoCmd.TransferText
Ciao
Fabio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: TransferText e profili di esportazione

text:
"FABIO" <
blue...@libero.it
> ha scritto nel messaggio
news:aqo6en$41r$1...@news.newsland.it...
>
> Sei sicoro che effettivamente il file non sia di solo lettura?
:-) Ovviamente, è la prima cosa che ho controllato...
> Prova ad esportare il file con il comando di access File/Esporta e
vedi in
> che fase si blocca l'esportazione. Da qui puoi anche salvare il file
di
> profilo (vedi Avanzate) che ti serve per l'esportazione con il
> DoCmd.TransferText
Già provato, con l'esportazione da menù funziona tutto.
Il profilo lo salva solo internamente al DB, non in un file esterno, o
per lo meno non sono riuscito a farlo, sai come si fa? Ho provato a
scrivere un nome di file o un path, ma mi dà errore...
Qualche idea?
Grazie, ciao!
--
Marco


title: TransferText e profili di esportazione

author: Sergio MAZZA

text:
"Marco Pompei" <
m.po...@tiscali.it
> ha scritto nel messaggio
news:ZFWz9.19059$Bs5.6...@news1.tin.it...
>
> Già provato, con l'esportazione da menù funziona tutto.
> Il profilo lo salva solo internamente al DB, non in un file esterno, o
> per lo meno non sono riuscito a farlo, sai come si fa? Ho provato a
> scrivere un nome di file o un path, ma mi dà errore...
>
> Qualche idea?
>
> Grazie, ciao!
>
> --
> Marco
>
Le specifiche di importazione/esportazione sono scritte in tabelle di
sistema (MSysIMEXColumns e MSysIMEXSpecs in acc'97); con strumenti - opzioni
riesci a visualizzarle e esportarle o importarle in altri mdb...
Ciao.
--
Sergio MAZZA