title: Stampa diretta.......

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:tTI59.199589$Jj7.4...@news1.tin.it...

Non ho parole.........sei stato "squisito".
Grazie.
Marco.


title: Combobox non associato

author: VedoTondo

text:
Forse chiedo troppo però...... come si fà per gestire i dati in una combobox
senza associarlo?
Immagino con DAO ma non ho capito bene quale sia la strada migliore, nella
mia immaginazione ci sono due possibilità:
1° creare una query sul FE, registrarla e richiamarla appunto tramite DAO.
2° Gestire una query direttamente da DAO (la vedo dura per le mie scarse
conoscenze SQL).
3° Suggerito da voi.......
C'è qualche esempio da visionare?
--
Saluti @ndrea


title: Combobox non associato

author: Marco Pizzamiglio

text:
VedoTondo ha scritto:

Non associata vuol dire che non salva dati in nessuna tabella.
Puoi benissimo avere una combobox non associata ad alcun campo ma il cui
elenco proviene comunque da una tabella del database. Basta che nelle
proprietà cancelli l'"Origine controllo".
Se inveci per non associato ti riferisci all'elenco dei dati devi
impostare "Tipo origine riga" a "Elenco valori" e riempire "Origine riga"
da codice con un ciclo su un recordset. In questo modo l'elenco valori non
cambierà anche se vai a modificare i dati nella tabella da cui provengono.
In questo secondo caso credo ci sia un limite massimo al numero di
caratteri che puoi scrivere nella proprietà "Origine riga", prova a
verificare.
Ciao.
-Marco-
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Combobox non associato

text:
"Marco Pizzamiglio" <
marco.pi...@gmail.com
> ha scritto nel messaggio
news:epso8m$3p3$1...@news.newsland.it...
> VedoTondo ha scritto:
>
>> Forse chiedo troppo però...... come si fà per gestire i dati in una
>> combobox
>> senza associarlo?
>> Immagino con DAO ma non ho capito bene quale sia la strada migliore,
>> nella
>> mia immaginazione ci sono due possibilità:
>> 1° creare una query sul FE, registrarla e richiamarla appunto tramite
>> DAO.
>> 2° Gestire una query direttamente da DAO (la vedo dura per le mie scarse
>> conoscenze SQL).
>> 3° Suggerito da voi.......
>> C'è qualche esempio da visionare?
>
>
> Non associata vuol dire che non salva dati in nessuna tabella.
> Puoi benissimo avere una combobox non associata ad alcun campo ma il cui
> elenco proviene comunque da una tabella del database. Basta che nelle
> proprietà cancelli l'"Origine controllo".
Si, questa la conosco ma non intendevo questo.
> Se inveci per non associato ti riferisci all'elenco dei dati devi
> impostare "Tipo origine riga" a "Elenco valori" e riempire "Origine riga"
> da codice con un ciclo su un recordset.
Eccolo, questo è ciò che cerco, mi potresti fare un piccolo esempio per
riempire "origine riga" da VBA con il recordset che pesca su una tabella non
collegata?
--
Saluti @ndrea
Access 2003 - Windows XP - Server 2003


title: Combobox non associato

text:
VedoTondo ha scritto:
> >> Forse chiedo troppo però...... come si fà per gestire i dati in una
> >> combobox
> >> senza associarlo?
> >> Immagino con DAO ma non ho capito bene quale sia la strada migliore,
> >> nella
> >> mia immaginazione ci sono due possibilità:
> >> 1° creare una query sul FE, registrarla e richiamarla appunto tramite
> >> DAO.
> >> 2° Gestire una query direttamente da DAO (la vedo dura per le mie scarse
> >> conoscenze SQL).
> >> 3° Suggerito da voi.......
> >> C'è qualche esempio da visionare?
> > Non associata vuol dire che non salva dati in nessuna tabella.
> > Puoi benissimo avere una combobox non associata ad alcun campo ma il cui
> > elenco proviene comunque da una tabella del database. Basta che nelle
> > proprietà cancelli l'"Origine controllo".
> Si, questa la conosco ma non intendevo questo.
> > Se inveci per non associato ti riferisci all'elenco dei dati devi
> > impostare "Tipo origine riga" a "Elenco valori" e riempire "Origine riga"
> > da codice con un ciclo su un recordset.
> Eccolo, questo è ciò che cerco, mi potresti fare un piccolo esempio per
> riempire "origine riga" da VBA con il recordset che pesca su una tabella non
> collegata?
Devi aprire un recordset, es: Set Rst=currentdb.openrecordset("SELECT ID,
nome FROM clienti ORDER BY nome")
e poi con un ciclo scorrere i record ed accodare i valori in una stringa,
separati da punto e virgola e mettendo i doppi apici alle stringhe.
Il risultato dovrà essere una cosa simile:
  1;"Primo cliente";2;"Secondo";3;"Terzo"
A fine ciclo metti un msgbox e verifica il valore ottenuto.
Cerca nei gruppi, troverai un sacco di esempi su come aprire e scorrere un
recordset DAO o ADO.



title: query e stampe periodiche

author: GM

text:
salve a tutti di questo NG...
mi servo di un Db anagrafico cone relazione 1>molti
per stampare ogni 3 mesi alle stesse persone dei prodotti, quindi ho una
qry_Scad ed una qryUpDate che ad ogni stampa periodica mi azzera la data
alla data di stampa e mi rende disponibile la stampa dopo 3 mesi,
fin qui spero di essermi spiegato...
inoltre esse mi calcolano in base alla data odierna immessa la data di
stampa dopo 80 giorni trascorsi, ebbene a me serve calcolarla dopo i 90
giorni...(ho provato a cambiare [MaxDidata_erogazione],80)) AS Scad) ma
non
funziona...
meglio ancora,volendo essere + pignoli mi servirebbero le stampe
periodiche
di tutto il mese dopo il primo dei 3 mesi....:-((
mi spiego meglio facendo un esempio:
anche se sul pc ho i soggetti inseriti supponiamo dal 1 settembre 2007
al 30
settembre 2007 devo poter stampare a Dicembre tutto il range di
settembre...
quindi facendo un calcolo, se non sbaglio >90 e <120 giusto ??
il problema però sarebbe di mesi che finiscono con 30 e quelli con 31...
come fare ???
ecco i rispettivi codici delle query
qry_Scad
SELECT Anagrafe.ID_Anagrafe, Anagrafe.TxTCognome, Anagrafe.TxTNome,
Anagrafe.TxTCodiceFiscale, Anagrafe.Indirizzo, Tabprodotti.ID,
Tabprodotti.Prodotto, Tabprodotti.CodASL, Tabprodotti.CodEsenzione,
Tabprodotti.data_scadenza, Tabprodotti.quantità, Max
(Tabprodotti.data_erogazione) AS MaxDidata_erogazione, Min(DateDiff("d",
[data_erogazione],Date())) AS gg, IIf(Min(DateDiff("d",
[data_erogazione],Date()))>60 And
Min(DateDiff("d",[data_erogazione],Date
()))<91,3,0) AS gg6090, (DateAdd("d",[MaxDidata_erogazione],80)) AS Scad
FROM Anagrafe INNER JOIN Tabprodotti ON Anagrafe.ID_Anagrafe =
Tabprodotti.IdAnagrafica
GROUP BY Anagrafe.ID_Anagrafe, Anagrafe.TxTCognome, Anagrafe.TxTNome,
Anagrafe.TxTCodiceFiscale, Anagrafe.Indirizzo, Tabprodotti.ID,
Tabprodotti.Prodotto, Tabprodotti.CodASL, Tabprodotti.CodEsenzione,
Tabprodotti.data_scadenza, Tabprodotti.quantità
ORDER BY Anagrafe.ID_Anagrafe, Max(Tabprodotti.data_erogazione);
-----------------------------------------------------------------------
qryUpDate
SELECT qry_Scad.ID_Anagrafe, qry_Scad.ID, qry_Scad.Scad
FROM qry_Scad
WHERE (((qry_Scad.gg6090)=3));
-----------------------------------------------------------------------
ringrazio anticipatamente per l'aiuto
GLuigi


title: query e stampe periodiche

author: Sergio MAZZA

text:
"GM" <
to...@invalid.it
> ha scritto nel messaggio
news:raO4j.189573$U01.1...@twister1.libero.it...
> salve a tutti di questo NG...
>
> mi servo di un Db anagrafico cone relazione 1>molti
> per stampare ogni 3 mesi alle stesse persone dei prodotti, quindi ho una
> qry_Scad ed una qryUpDate che ad ogni stampa periodica mi azzera la data
> alla data di stampa e mi rende disponibile la stampa dopo 3 mesi,
> fin qui spero di essermi spiegato...
>
> inoltre esse mi calcolano in base alla data odierna immessa la data di
> stampa dopo 80 giorni trascorsi, ebbene a me serve calcolarla dopo i 90
> giorni...(ho provato a cambiare [MaxDidata_erogazione],80)) AS Scad) ma
> non
> funziona...
>
> meglio ancora,volendo essere + pignoli mi servirebbero le stampe
> periodiche
> di tutto il mese dopo il primo dei 3 mesi....:-((
> mi spiego meglio facendo un esempio:
>
> anche se sul pc ho i soggetti inseriti supponiamo dal 1 settembre 2007
> al 30
> settembre 2007 devo poter stampare a Dicembre tutto il range di
> settembre...
> quindi facendo un calcolo, se non sbaglio >90 e <120 giusto ??
> il problema però sarebbe di mesi che finiscono con 30 e quelli con 31...
> come fare ???
Separa le informazioni: mese(es. nomeMese: month(data) ) e anno (es. Anno:
year(data)) dalla data e utilizza quelli come filtro.
---omissis---
>
> ringrazio anticipatamente per l'aiuto
>
> GLuigi
Ciao.
--
Sergio MAZZA


title: query e stampe periodiche

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:fj0u68
[[[   CUT  ]]]
>> meglio ancora,volendo essere + pignoli mi servirebbero le stampe
>> periodiche di tutto il mese dopo il primo dei 3 mesi....:-((
>> mi spiego meglio facendo un esempio:
>>
>> anche se sul pc ho i soggetti inseriti supponiamo dal 1 settembre
>> 2007
>> al 30
>> settembre 2007 devo poter stampare a Dicembre tutto il range di
>> settembre...
>> quindi facendo un calcolo, se non sbaglio >90 e <120 giusto ??
>> il problema però sarebbe di mesi che finiscono con 30 e quelli con
>> 31...
>> come fare ???
>
> Separa le informazioni: mese(es. nomeMese: month(data) ) e anno (es.
> Anno: year(data)) dalla data e utilizza quelli come filtro.
>
> Sergio MAZZA
--------------------
ciao Sergio... grazie per avermi risposto...
premetto che il Db non l'ho fatto io e d'altronde sono poco pratico di
Access....
quindi ho capito ben poco di quello che hai scritto... :-((
mi puoi fare un esempio "pratico" sull'Sql che ho mandato ???
grazie


title: query e stampe periodiche

text:
"GM" <
to...@invalid.it
> ha scritto nel messaggio
news:GBV4j.185361$%k.32...@twister2.libero.it...
> --------------------
> ciao Sergio... grazie per avermi risposto...
> premetto che il Db non l'ho fatto io e d'altronde sono poco pratico di
> Access....
> quindi ho capito ben poco di quello che hai scritto... :-((
> mi puoi fare un esempio "pratico" sull'Sql che ho mandato ???
> grazie
Select ...,year([data_erogazione]) as Anno, month([data_erogazione]) as
mese,...
From ...
Where anno=2007 and (mese between 1 and 5)
Ciao.
--
Sergio MAZZA


title: query e stampe periodiche

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio >
>
> Select ...,year([data_erogazione]) as Anno, month([data_erogazione])
> as mese,...
> From ...
> Where anno=2007 and (mese between 1 and 5)
---------------------->
Argghhh, xchè non ho studiato Access ;-((
ho tentato varie volte di modificare la query ma mi dà sempre un errore
diverso...
evidentemente non riesco a "collocare" nel punto giusto il tuo codice...
potresti aggiungerlo tu nella query....??
ps-- se non fattibile la soluzione potrei anche ovviare a stampe >90 e <
di 120
ma come modificare la query... ho anche tentato in questo senso ma non
funziona...
Ciao a grazie per l'aiuto
SELECT Anagrafe.ID_Anagrafe, Anagrafe.TxTCognome, Anagrafe.TxTNome,
Anagrafe.TxTCodiceFiscale, Anagrafe.Indirizzo, Tabprodotti.ID,
Tabprodotti.Prodotto, Tabprodotti.CodASL, Tabprodotti.CodEsenzione,
Tabprodotti.data_scadenza, Tabprodotti.quantità,
Max(Tabprodotti.data_erogazione) AS MaxDidata_erogazione,
Min(DateDiff("d",[data_erogazione],Date())) AS gg,
IIf(Min(DateDiff("d",[data_erogazione],Date()))>60 And
Min(DateDiff("d",[data_erogazione],Date()))<91,3,0) AS gg6090,



title: query e stampe periodiche

text:
"GM" <
to...@invalid.it
> ha scritto nel messaggio
news:a9t5j.186756$%k.32...@twister2.libero.it...
> ---------------------->
> Argghhh, xchè non ho studiato Access ;-((
> ho tentato varie volte di modificare la query ma mi dà sempre un errore
> diverso...
> evidentemente non riesco a "collocare" nel punto giusto il tuo codice...
> potresti aggiungerlo tu nella query....??
>
> ps-- se non fattibile la soluzione potrei anche ovviare a stampe >90 e <
> di 120
> ma come modificare la query... ho anche tentato in questo senso ma non
> funziona...
> Ciao a grazie per l'aiuto
In visualizzazione struttura della query, crei due campi calcolati; ti
posizioni in una colonna vuota, nella riga "Campo", inserisci il nome
(scelto da te, senza spazi o caratteri strani) del campo calcolato seguito
da carattere ":" e  poi l'espressione che ritorna il valore.
Es.
Anno: year([data_erogazione])
(in un'altra colonna)
Mese: month([data_erogazione])
Per inserire i criteri di selezione ti sposti nella riga "Criteri" (stessa
colonna "Anno") e inserisci: 2007; nella colonna "Mese" (stessa riga
"Criteri") inserisci: Between 1 and 5.
1 and 5 significa da Gennaio a Maggio...
Ciao.
--
Sergio MAZZA


title: query e stampe periodiche

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:fj5ql8$i86
>> ---------------------->
[[ cut ]]
>> ps-- se non fattibile la soluzione potrei anche ovviare a stampe >90
>> e < di 120
>> ma come modificare la query... ho anche tentato in questo senso ma
>> non funziona...
>> Ciao a grazie per l'aiuto
>
> In visualizzazione struttura della query, crei due campi calcolati; ti
> posizioni in una colonna vuota, nella riga "Campo", inserisci il nome
> (scelto da te, senza spazi o caratteri strani) del campo calcolato
> seguito da carattere ":" e  poi l'espressione che ritorna il valore.
> Es.
> Anno: year([data_erogazione])
>
> (in un'altra colonna)
> Mese: month([data_erogazione])
>
> Per inserire i criteri di selezione ti sposti nella riga "Criteri"
> (stessa colonna "Anno") e inserisci: 2007; nella colonna "Mese"
> (stessa riga "Criteri") inserisci: Between 1 and 5.
>
> 1 and 5 significa da Gennaio a Maggio...
-----------
ciao sergio... mi da errore, mi dice "impossibile eseguire una query che
non include l'espressione "Year([data_erogazione])" specificata come
parte di una funzione di aggregazione.
ho provato a cambiare Year in Anno e mi dice:
funzione 'Anno' non definita nell'espressione...
ecco il codice...
SELECT Anagrafe.ID_Anagrafe, Anagrafe.TxTCognome, Anagrafe.TxTNome,
Anagrafe.TxTCodiceFiscale, Anagrafe.Indirizzo, Tabprodotti.ID,
Tabprodotti.Prodotto, Tabprodotti.CodASL, Tabprodotti.CodEsenzione,
Tabprodotti.data_scadenza, Tabprodotti.quantità,
Max(Tabprodotti.data_erogazione) AS MaxDidata_erogazione,
Min(DateDiff("d",[data_erogazione],Date())) AS gg,
IIf(Min(DateDiff("d",[data_erogazione],Date()))>60 And
Min(DateDiff("d",[data_erogazione],Date()))<91,3,0) AS gg6090,
(DateAdd("d",[MaxDidata_erogazione],80)) AS Scad,
Year([data_erogazione]) AS Anno, Month([data_erogazione]) AS Mese
FROM Anagrafe INNER JOIN Tabprodotti ON Anagrafe.ID_Anagrafe =
Tabprodotti.IdAnagrafica
GROUP BY Anagrafe.ID_Anagrafe, Anagrafe.TxTCognome, Anagrafe.TxTNome,
Anagrafe.TxTCodiceFiscale, Anagrafe.Indirizzo, Tabprodotti.ID,
Tabprodotti.Prodotto, Tabprodotti.CodASL, Tabprodotti.CodEsenzione,
Tabprodotti.data_scadenza, Tabprodotti.quantità
HAVING (((Year([data_erogazione]))=2007) AND ((Month([data_erogazione]))
Between 1 And 5))
ORDER BY Anagrafe.ID_Anagrafe, Max(Tabprodotti.data_erogazione);
grazie Sergio


title: query e stampe periodiche

text:
"GM" <
to...@invalid.it
> ha scritto nel messaggio
news:fTw5j.186951$%k.32...@twister2.libero.it...
> -----------
> ciao sergio... mi da errore, mi dice "impossibile eseguire una query che
> non include l'espressione "Year([data_erogazione])" specificata come parte
> di una funzione di aggregazione.
>
> ho provato a cambiare Year in Anno e mi dice:
> funzione 'Anno' non definita nell'espressione...
Il messaggio che ti presenta è chiaro; o inserisci anche i campi nuovi
(Anno, e Mese) nel raggruppamento (riga: Formula).
Oppure, sempre nella riga "Formula", se non ti interessa vedere i dati
selezioni la voce "Dove"...
> ecco il codice...
---omissis---
>
> grazie Sergio
Ciao.
--
Sergio MAZZA


title: query e stampe periodiche

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
>
> Il messaggio che ti presenta è chiaro; o inserisci anche i campi nuovi
> (Anno, e Mese) nel raggruppamento (riga: Formula).
> Oppure, sempre nella riga "Formula", se non ti interessa vedere i dati
> selezioni la voce "Dove"...
---------------
purtroppo non posso inserire i campi nuovi...ed inserendo "Dove"
non mi fa vedere i campi...ed inoltre da una FrmScadenze che ho
modificando la query non visulalizzo + i vari filtraggi eseguiti dalla
query....;.((
sono finalmente riuscito a trovare la routine dove mi da la data di
scadenza dopo 80 giorni
dall'inserimento eccola:
=DMax("[data_erogazione]";"tabprodotti";"idanagrafica=" &
nz([idanagrafica];0))+90
però il mio problema sono le date... spiego se io inserisco un soggetto
il 01/11/2007
la data di stampa me la da il 30/11 ed anche se inserisco 02/11/2007 me
la da il 31/11...
mentre io vorrei che inserendo tutti quelli di Novembre poi possa
stamparli a febbraio ossia dopo 3 mesi, è possibile modificare la
stringa sopra ???
grazie...
ps--- IDEA... !! e se tralasciassi la FrmScadenze con i suoi filtraggi e
facessi una query che mi stampi da data a data ( esempio dal 01/11/2007
al 30/11/2007 ??) forse sarebbe una soluzione migliore ??? che dici ???
arigrazie


title: query e stampe periodiche

text:
GM wrote:
> "Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
>>
>> Il messaggio che ti presenta è chiaro; o inserisci anche i campi
>> nuovi (Anno, e Mese) nel raggruppamento (riga: Formula).
>> Oppure, sempre nella riga "Formula", se non ti interessa vedere i
>> dati selezioni la voce "Dove"...
> ---------------
> purtroppo non posso inserire i campi nuovi...ed inserendo "Dove"
> non mi fa vedere i campi...ed inoltre da una FrmScadenze che ho
> modificando la query non visulalizzo + i vari filtraggi eseguiti dalla
> query....;.((
> sono finalmente riuscito a trovare la routine dove mi da la data di
> scadenza dopo 80 giorni
> dall'inserimento eccola:
>
> =DMax("[data_erogazione]";"tabprodotti";"idanagrafica=" &
> nz([idanagrafica];0))+90
>
> però il mio problema sono le date... spiego se io inserisco un
> soggetto il 01/11/2007
> la data di stampa me la da il 30/11 ed anche se inserisco 02/11/2007
> me la da il 31/11...ù
31/11???
> mentre io vorrei che inserendo tutti quelli di Novembre poi possa
> stamparli a febbraio ossia dopo 3 mesi, è possibile modificare la
> stringa sopra ???
Vuoi sapere che data sarà tra qui(oggi) a tre mesi?
=dateadd("m";3;DMax("[data_erogazione]";"tabprodotti";"idanagrafica=" &
nz([idanagrafica];0)))
> grazie...
>
> ps--- IDEA... !! e se tralasciassi la FrmScadenze con i suoi
> filtraggi e facessi una query che mi stampi da data a data ( esempio
> dal 01/11/2007 al 30/11/2007 ??) forse sarebbe una soluzione migliore
> ??? che dici ??? arigrazie
Ciao.
--
Sergio MAZZA


title: query e stampe periodiche

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
> 31/11???
scusa avevo sbagliato a scrivere ;-))
>> mentre io vorrei che inserendo tutti quelli di Novembre poi possa
>> stamparli a febbraio ossia dopo 3 mesi, è possibile modificare la
>> stringa sopra ???
>
> Vuoi sapere che data sarà tra qui(oggi) a tre mesi?
> =dateadd("m";3;DMax("[data_erogazione]";"tabprodotti";"idanagrafica="
> & nz([idanagrafica];0)))
Ok...ottimo ho fatto delle prove e sembra essere moltro meglio di
prima...
però ho qualche problema con la FrmScadenze che mi deve filtrare i dati
pronti in scadenza ossia quelli dopo 3 mesi, per poi riazzerarli dopo la
data di stampa...
purtroppo non so dove intervenire... ma credo che sia interessato questo
codice inserito
nella FrmScadenze...cmq x me è molto difficile da spiegare...
se mi dai il permesso di farlo ti potrei inviare il Db che compattato è
di pochi Kb, in maniera da renderti conto del problema....naturalmente a
tempo perso...
fammi sapere... ciao... Giuseppe
Function AggiornaDate()
    Dim cSQL As String
    Dim cWhere As String
    Dim dbs As Database
    Dim rst As Recordset
    Dim rstProd As Recordset
    Dim rPro, rAna As Integer
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset("select * from qryUpdate")
  If Not rst.EOF() Then
    rst.MoveFirst
        While Not rst.EOF()
        rPro = rst!ID
        rAna = rst!ID_Anagrafe
            Set rstProd = dbs.OpenRecordset("select * from Tabprodotti
where Tabprodotti.ID = " & rPro & " AND Tabprodotti.iDAnagrafica=" &
rAna)
              rstProd.Edit
              rstProd.Fields![data_erogazione] = rst![scad]
              rstProd.Update
          rstProd.Close
      rst.MoveNext
    Wend
  End If
  rst.Close
  dbs.Close
  Forms!frmAnagrafe!frmProdotti.Requery
End Function


title: query e stampe periodiche

text:
"GM" <
to...@invalid.it
> ha scritto nel messaggio
news:HK66j.192937$U01.1...@twister1.libero.it...
>
> Ok...ottimo ho fatto delle prove e sembra essere moltro meglio di prima...
> perň ho qualche problema con la FrmScadenze che mi deve filtrare i dati
> pronti in scadenza ossia quelli dopo 3 mesi, per poi riazzerarli dopo la
> data di stampa...
> purtroppo non so dove intervenire... ma credo che sia interessato questo
> codice inserito
> nella FrmScadenze...cmq x me č molto difficile da spiegare...
Me ne sto' rendendo conto.
> se mi dai il permesso di farlo ti potrei inviare il Db che compattato č di
> pochi Kb, in maniera da renderti conto del problema....naturalmente a
> tempo perso...
Per ora sarebbe (parecchio)tempo perso per te perché non ho tempo.
Cerchiamo di risolvere qui, magari si aggiunge qualche altro amico alla
discussione.

Fondamentalmente non capisco quando dici: "... filtrare i dati pronti in
scadenza ossia quelli dopo 3 mesi, per poi riazzerarli dopo la data di
stampa..."
Io lo traduco in: "...filtrare i dati pronti in scadenza da oggi a 3 mesi
fa,..."; quindi:
..."Select * From Tabprodotti Where Tabprodotti.ID = " & rPro & " AND
Tabprodotti.iDAnagrafica=" & rAna & " And [data_erogazione] Between
DateAdd('m';-3;Date()) And Date())"
Ciao.
--
Sergio MAZZA


title: query e stampe periodiche

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
Ok... cmq sempre ti ringrazio per la tua gentilezza e disponibilità...
> Per ora sarebbe (parecchio)tempo perso per te perché non ho tempo.
> Cerchiamo di risolvere qui, magari si aggiunge qualche altro amico
> alla discussione.
OK.....

-------------
io penso sia doverosa una spiegazione sintetica e dettagliata di quello
che dovrebbe fare il database:
il db contiene grossomodo 3000 utenti sono sempre gli stessi,chiaramente
capiterà di aggiungerne anche altri nel corso degli anni....a questi
devono venir erogati dei prodotti (1 > Molti) a scadenza trimestrale ed
anche questi ultimi chiaramente possono subire variazioni nel corso
degli anni.
Con il filtrare i dati, intendo, dato che devo fare delle stampe
trimestrali, che poi in base alla scadenza, diventano stampe mensili,
però x l'utente sempre dopo tre mesi che ha preso la prima fornitura,
dopo la stampa delle ricette, agli utenti stampati deve azzerarsi la
data alla stampa odierna e renderli disponibili e stampabili dopo i
successivi 3 mesi... ;-((
spero sia chiara ma mia spiegazione....(ecco il xchè avrei voluto che
visionassi il db, in quanto ho già una FRMScadenze che mi filtra i dati
per la prossima stampa... ma inserendo delle date pregresse per vedere
se la stampa dopo 3 mesi è disponibile, noto che visualizzo alcuni
record altri no... e purtroppo non mi posso permettere questi
errori)....
ora sono al lavoro, e purtroppo non potrò risponderti da casa in quanto
ho il Pc down...
ci risentiamo lunedì....Ciao Sergio e buon weekend dell'Immacolata...
Ciao Giuseppe


title: query e stampe periodiche

text:
GM wrote:
> io penso sia doverosa una spiegazione sintetica e dettagliata di
> quello che dovrebbe fare il database:
>
> il db contiene grossomodo 3000 utenti sono sempre gli
> stessi,chiaramente capiterà di aggiungerne anche altri nel corso
> degli anni....a questi devono venir erogati dei prodotti (1 > Molti)
> a scadenza trimestrale ed anche questi ultimi chiaramente possono
> subire variazioni nel corso degli anni.
>
> Con il filtrare i dati, intendo, dato che devo fare delle stampe
> trimestrali, che poi in base alla scadenza, diventano stampe mensili,
> però x l'utente sempre dopo tre mesi che ha preso la prima fornitura,
> dopo la stampa delle ricette, agli utenti stampati deve azzerarsi la
> data alla stampa odierna e renderli disponibili e stampabili dopo i
> successivi 3 mesi... ;-((
>
> spero sia chiara ma mia spiegazione....(ecco il xchè avrei voluto che
> visionassi il db, in quanto ho già una FRMScadenze che mi filtra i
> dati per la prossima stampa... ma inserendo delle date pregresse per
> vedere se la stampa dopo 3 mesi è disponibile, noto che visualizzo
> alcuni record altri no... e purtroppo non mi posso permettere questi
> errori)....
> ora sono al lavoro, e purtroppo non potrò risponderti da casa in
> quanto ho il Pc down...
> ci risentiamo lunedì....Ciao Sergio e buon weekend dell'Immacolata...
>
> Ciao Giuseppe
Provo a riepilogare per vedere se ho capito.
Io ho bisogno di una fornitura di medicinali; vengo oggi 22/12/2007 e la
prossima volta sarà:
[data_erogazione]=22/12/2007+90gg
e scrivo la data nel campo.
(veniamo alla funzionalità dell'applicazione)Il mio programma, ogni giorno
(o a richiesta), mi verifica se oggi, nei record delle forniture ci sono dei
record che hanno:
[data_erogazione] = Date()
Le stampe, essendo a richiesta, le potrai fare giornalmente o quando vuoi;
se ci sarànno record con una [data_erogazione] che corrisponde alla data
odierna li troverai (es.) elencati nel report.
Nel momento che verrà erogata la fornitura, mi comporterò come al primo
paragrafo; aggiornerò la [data_erogazione] ad Date()+90gg.
Ciao.
--
Sergio MAZZA


title: FAQ

author: Piero 'Eydenet'

text:
Ciao raga, sono nuovo di questo ng: dove si trovano le FAQ (se ci
sono)?
Grazie!
Piero "Eydenet"


title: FAQ

author: Roberto da casa

text:
"Piero 'Eydenet'" <
eyd...@bl.freemail.it
> ha scritto nel messaggio
news:3abd9579...@news.inwind.it...

Nel Sito Comune, link qui sotto.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: listbox collegata a sottomaschera...II

author: BC

text:
Come si fa a collegare una casella di riepilogo ad una sottomaschera?
Cioč al cambiare rigo della casella di riepilogo, la sottomaschera deve
variare il record corrente. Nella casella di riepilogo sono mostrati dati
che sono in relazione id-->
id_rel con la sottomaschera.
ps a dire il vero questa č la seconda volta che pongo questo quesito, ma la
prima volta dopo pochi minuti Windows č spirato...
Ciao
Cesare


title: listbox collegata a sottomaschera...II

author: Morgan

text:
"BC" <
briglia...@tiscali.it
> ha scritto nel messaggio
news:44a3eb68$0$9624$5fc...@news.tiscali.it...

Io farei cosě.
Private Sub lstTuaListBox_Click()
Dim strSQL As String
Dim intID As Integer
On Error GoTo ErrHandle
'Se clicchi sul nulla....
If (l lstTuaListBox.ListIndex) = -1 Then Exit Sub
'La column 0 č quella dell'ID delle due tabelle
   intID = lstTuaListBox.Column(0)
    strSQL = "SELECT * FROM tblDellaSottoMaschera WHERE ID = " & intID & "
;"
    Me.frmSottomaschera.RecordSource = strSQL
    Me.frmSottomaschera.Requery
ErrHandle:
If Err.Number = 0 Then Exit Sub
End Sub
Morgan


title: listbox collegata a sottomaschera...II

text:
"BC" <
briglia...@tiscali.it
> ha scritto nel messaggio news:44a3eb68$0$9624$5fc...@news.tiscali.it...
> Come si fa a collegare una casella di riepilogo ad una sottomaschera?
> Cioè al cambiare rigo della casella di riepilogo, la sottomaschera deve
> variare il record corrente. Nella casella di riepilogo sono mostrati dati
> che sono in relazione id-->
> id_rel con la sottomaschera.
Inserisci il nome della casella di riepilogo nella proprietà collega campi master e in secondari il nome del campo della
sottomaschera che contiene l'id.
> ps a dire il vero questa è la seconda volta che pongo questo quesito, ma la
> prima volta dopo pochi minuti Windows è spirato...
Oh! Io non c'entro; diamo a Cesare quel che è di Cesare!
> Ciao
>
> Cesare
Appunto...
Ciao.
--
Sergio MAZZA


title: date con excel

author: claudio

text:
come faccio a calcolare la differenza tra la data odierna (28 marzo) e
quella della colonna data scad. ?
es:
forn.	data ord.	cdc	data scad.
diff.gg
.
anto	01/01/02	1064	31/03/03
anto	01/01/03	1008	26/02/03
carlo	01/01/02	5030	31/12/02
cri	04/04/02	3010	10/11/02
cri	30/01/02	5030	05/12/02
cri	30/01/02	5030	05/12/02
cri	03/03/03	3010	31/03/03
fabio	01/01/02	1008	31/12/02
fra	19/03/03	2540	01/05/03
fra	18/03/03	5030	01/04/03
luca	28/02/02	1064	01/02/03
luca	01/01/03	3010	31/01/03
luca	01/01/03	3010	31/01/03
luca	15/02/03	5030	30/03/03
marco	21/03/02	3010	15/01/03
-----------------------------------------------
nella riga 1 il forn.anto non è in ritardo, poiché la scadenza è
31/03/03 e quindi deve rimanere la casella vuota o con il segno +
nella colonna
diff.gg
.;
_nella riga 2 il forn.anto è in ritardo di 30 gg, (26 di febbraio e 28
di marzo) e nella casella della colonna
diff.gg
. dovrà comparire -30
come risolvete il problema ?
grazie
claudio


title: date con excel

author: Simone

text:
"claudio" <
claud...@katamail.com
> ha scritto nel messaggio
news:53fe2dba.03032...@posting.google.com...

Sia in Excel che in Accees sottraendo i due campi in formato data .
Ciao
Simone


title: Record nullo = #Errore

text:
Dove sbaglio?
=IIf(Not
IsNull([Forms]![mordinescarico]![sub]![gigi]);[descrgigi]=[Forms]![mordinesc
arico]![sub]![gigi];Null)
non funziona.
praticamente se non è nullo il controllo della sub, descrgigi deve essere
ugale al controllo della sub altrimenti deve essere null
questo perchè facendo origine controllo di descrgigi
=[Forms]![mordinescarico]![sub]![gigi]
quando non ci sono record mi viene fuori la scritta #Errore
grazie
ciao


title: Record nullo = #Errore

author: Karl Donaubauer

text:
T@Roberto <
tas...@libero.it
> ha scritto:

Se ti capisco bene puoi provare con:
=Iif(IsError([Forms]![mordinescarico]![sub]![gigi]);Null;
[Forms]![mordinescarico]![sub]![gigi])
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Record nullo = #Errore

text:
> Se ti capisco bene puoi provare con:
>
> =Iif(IsError([Forms]![mordinescarico]![sub]![gigi]);Null;
> [Forms]![mordinescarico]![sub]![gigi])
 Karl    hai capito benissimo
grazie mille


title: File LDB ... come riconoscere chi è loggato al DB?

author: Marco Fontana

text:
In relazione a quanto in oggetto mi trovo a dover più volte modificare una
applicazione access ... ma non è possibile in quanto utilizzato da un altro
utente...
In rete ho trovato  un routine ADO che permette di mostrare gli utenti
connessi  ma purtroppo non funziona...
Inoltre mi serve in DAO (tutto il db con circa 150 oggetti  funziona in DAO)
il mio SO è W XPSP2 e AC 2002
Grazie a tutti coloro vogliano aituarmi


author: Gaetano Di Zanni

text:
"Marco Fontana" <
marco...@tiscali.it
> ha scritto nel messaggio
news:ckec3q$a82$1...@lacerta.tiscalinet.it...

Con lo stesso sistema operativo e stessa ver di Access io vedo l'id utente
aprendo l'ldb con Wordpad.
A meno che tu voglia vedere qualche altra cosa, oltre all'utente connesso.
Ciao


author: Alessandro Baraldi

text:
"Marco Fontana" <
marco...@tiscali.it
> wrote in message
news:ckec3q$a82$
1...@lacerta.tiscalinet.it

Non usare il File LDB non è attendibile per questi scopi.
In caso di Crash di un Client non viene aggiornato finchè
l'Ultimo utente non esce....!
Usa una Tabella nel SERVER(BE) nella quale registri il LOGIN
ed il LOGOUT con una QUERY ACTION (INSERT/DELETE)
Ciao.
Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Vulcanbrain

text:
"Marco Fontana" <
marco...@tiscali.it
> ha scritto nel messaggio
news:ckec3q$a82$1...@lacerta.tiscalinet.it...

Quando apri la prima maschera del db, lancia un db.Execute che inserisca in
una tabella creata ad hoc data e ora corrente, il current user e
quant'altro, che dovrai cancellare alla chiusura del db.
Trovi cose interessanti su
www.sitocomune.com
Ciao!


title: Importare dati XML in access 2003

author: Gianni

text:
Buongiorno al newsgroup
ho un problema con un file XML molto grosso;
di questo file devo importare solo alcuni campi;
se uso
Application.ImportXML nomefile, acStructureAndData
mi cerca di importare tutto il file xml ma
mi d� errore di troppi campi definiti (infatti sono > 255):
La domanda �:
come faccio ad importare solo alcuni campi?
Grazie
Gianni
__________ Informazioni da ESET NOD32 Antivirus, versione del database delle firme digitali 5067 (20100428) __________
Il messaggio � stato controllato da ESET NOD32 Antivirus.
www.nod32.it
__________ Informazioni da ESET NOD32 Antivirus, versione del database delle firme digitali 5068 (20100428) __________
Il messaggio � stato controllato da ESET NOD32 Antivirus.
www.nod32.it


title: Importare dati XML in access 2003

author: Fabrizio Alessandri

text:
On 28 Apr, 12:23, "Gianni" <
fi...@finto.it
> wrote:
> Buongiorno al newsgroup
> ho un problema con un file XML molto grosso;
> di questo file devo importare solo alcuni campi;
> se uso
>
> Application.ImportXML nomefile, acStructureAndData
>
> mi cerca di importare tutto il file xml ma
> mi dà errore di troppi campi definiti (infatti sono > 255):
> La domanda è:
> come faccio ad importare solo alcuni campi?
>
> Grazie
>
> Gianni
>
> __________ Informazioni da ESET NOD32 Antivirus, versione del database delle firme digitali 5067 (20100428) __________
>
> Il messaggio è stato controllato da ESET NOD32 Antivirus.
>
>
www.nod32.it
>
> __________ Informazioni da ESET NOD32 Antivirus, versione del database delle firme digitali 5068 (20100428) __________
>
> Il messaggio è stato controllato da ESET NOD32 Antivirus.
>
>
www.nod32.it
Devi "trasformarlo" tramite un file ".XSLT" opportunamente predisposto
e poi importarlo.
Se non conosci la materia non è banale.


title: Importare dati XML in access 2003

text:
>"Fabrizio Alessandri" <
fabrizio.a...@gmail.com
> ha scritto nel
>messaggio
>news:6d84b9d9-b280-48f1-bb52->d6f081...@37g2000yqm.googlegroups.com...
>On 28 Apr, 12:23, "Gianni" <
fi...@finto.it
> wrote:
>> Buongiorno al newsgroup
>> ho un problema con un file XML molto grosso;
>> di questo file devo importare solo alcuni campi;
>> se uso
>>
>> Application.ImportXML nomefile, acStructureAndData
>>
>> mi cerca di importare tutto il file xml ma
>> mi d� errore di troppi campi definiti (infatti sono > 255):
>> La domanda �:
>> come faccio ad importare solo alcuni campi?
>>
>> Grazie
>>
>> Gianni
>>
>
>
>Devi "trasformarlo" tramite un file ".XSLT" opportunamente predisposto
>e poi importarlo.
>Se non conosci la materia non � banale.
Grazie Fabrizio
vorr� dire che comincer� a guardare la trasformazione tramite  file .XSLT
(sperando di capirci qualcosa...)
Bye
Gianni
__________ Informazioni da ESET NOD32 Antivirus, versione del database delle firme digitali 5083 (20100503) __________
Il messaggio � stato controllato da ESET NOD32 Antivirus.
www.nod32.it
__________ Informazioni da ESET NOD32 Antivirus, versione del database delle firme digitali 5085 (20100504) __________
Il messaggio � stato controllato da ESET NOD32 Antivirus.
www.nod32.it


title: variabili

author: Franco dellavalle

text:
ciao a tutti

se devo dichiarare
Dim miaArray(1 To 2) As String, X As Byte
oppure
Dim miaArray(1 To 2) As String, X As Integer

se
For X = 1 To 2

oppure è indifferente?

grazie


title: variabili

text:
Byte, come dice la guida va da 0-255 se tu arrivi fino a 2 Items... che dici...?
Poi facendo una verifica di performance... integer risulta offrire una velocità di esecuzione migliore su cicli importanti... Non è il tuo caso se sono 2.

@Alex


title: variabili

text:

grazie Alex


title: variabili

text:

ho trovato questo nel sito di Donkarl
Dim i As Integer <----
For i = 1 To 3
    Me("List" & i).Visible = False
Next


title: variabili

text:
...
> ho trovato questo nel sito di Donkarl
> Dim i As Integer <----
> For i = 1 To 3
>     Me("List" & i).Visible = False
> Next

Quindi...? La considerazione che ne deriva quale sarebbe..?

@Alex


title: variabili

text:

ciao Alex
mi chiedo perchè ha usato integer e non byte?


title: variabili

author: RobertoA

text:

Abbundantis abbundantium abbundacere
Tradotto dal greco "..meglio un long che un bit.."


title: variabili

text:
...
>
> Abbundantis abbundantium abbundacere
> Tradotto dal greco "..meglio un long che un bit.."

No assolutamente NO, questo è il modo peggiore per non RAGIONARE.
Le cose si fanno con un senso e non per abbondare.

Karl, ha usato Integer al posto di Byte, quasi certamente per 2 motivi...
1) Non era oggetto dell'articolo fare scuola sulla differenza del Type
2) Credo che come molti, si prediliga usare Integer come ti ho spiegato per motivi prestazionali, ovviamente su 2 numeri non ha senso, ma spesso diventa di DEFAULT.

Entrambe sono motivazioni che discriminano un concetto tecnico non a "bue"

@Alex


title: Transazioni

author: moskolowosky

text:
Questo il quesito:
Ho un db condiviso in rete con altre 2 macchine fornite di FE.
Lavorando sugli stessi archivi ho necessità di effettuare alcune
modifiche(tipo fatturazione) con una transazione da chiudere solo ad
esito positivo.
Essendo l'operazione costituita da 2 sotto operazioni distinte avevo
pensato di usare transazioni nidificate, ma la cosa non
riesce.Inoltre, cosa + importante) vorrei togliermi un dubbio:
se un utente che alvora su una postazione annulal un'operazione
(effettua una rollback) questa annullerà anche tutte le modifiche
fatte da un utente su un'altra macchina?
Sperando di avere una risposta saluto tutto i NG


title: Transazioni

author: Mattia

text:

Puoi usale la stessa connessione per tutte le operazioni. Se vanno a buon
fine effettui il Commit, altrimenti il RollBack. Un RollBack su una
postazione non annulla un'operazione iniziata da un'altra postazione.


title: Transazioni

text:


Ma xché non mi funziona?Sarà che i recordset su cui opero sono su
tabelle allegate?
Se faccio nu rollback non annulla nulla.
Ciao e grazie


title: anteprima su record corrente

author: Private Sub Comando54_Click()

text:
tabella: Anagrafe,  campi "CF" e "cittadino_italiano"
form: anagrafe,  controllo campo "CF" gruppo d'opzioone "cornice167" con
valori 0 o 1
Report: schedait
report: schedaeuropa
devo visualizzare il report schedait se cittadino_italiano è uguale a 0
devo visualizzare il report schedaeuropa se cittadino_italiano è uguale a 1
questo con il record corrente visualizzato sulla form
ho provato con
Private Sub Comando54_Click()
On Error GoTo Err_Comando54_Click
    Dim stDocName As String
if cornice167 = 0 then
    stDocName = "SCHEDAit"
    DoCmd.OpenReport stDocName, acPreview, , , "cf" & Me.CF
else
 cornice167 = 1 then
    stDocName = "SCHEDAeuropa"
    DoCmd.OpenReport stDocName, acPreview, , , "cf" & Me.CF
end if
Exit_Comando54_Click:
    Exit Sub
Err_Comando54_Click:
    MsgBox Err.Description
    Resume Exit_Comando54_Click

End Sub
il tutto NON MI FUNZIONA!
addò diavolo sbaglio?
grazie
luigi
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: anteprima su record corrente

text:


Exit_Comando54_Click:
Exit Sub

End Sub

ps scusate il doppio msg, ma a quello di prima mi è uscito un nikname a
capocchia! scoperto dopo aver postato



title: anteprima su record corrente

author: sv

text:
luigi.onofrio ha scritto:


> Exit_Comando54_Click:
> Exit Sub

> End Sub


Ma hai eseguito il debug su questa parte di codice?
Anzi è strano che tu possa scrivere questo codice senza che l'editor si
blocchi...
.
.
else
cornice167 = 1 then
.
.
diventa
.
.
.
elseif cornice167 = 1 then
.
.
Ciao
--
sv



title: anteprima su record corrente

text:
sv ha scritto:
> luigi.onofrio ha scritto:


> > Exit_Comando54_Click:
> > Exit Sub

> > End Sub




> Ciao
> --
> sv
scusa la battitura, ho mancato l'if dopo else
il debug non mi da errori, ma quando clicco sul pulsante, mi da il
messaggio "tipo non corrispondenti"
penso che l'errore non sia sull'if ma sulla riga
    DoCmd.OpenReport stDocName, acPreview, , , "cf" & Me.CF
imho, ma non so dove sbaglio.
luigi



title: anteprima su record corrente

text:
luigi.onofrio ha scritto:
> sv ha scritto:
> > luigi.onofrio ha scritto:


> > > Exit_Comando54_Click:
> > > Exit Sub

> > > End Sub




> > Ciao
> > --
> > sv


Se cf è il codice fiscale, e quindi è una stringa, mancano a parte il
segno =, le virgolette.
Pertanto:
DoCmd.OpenReport stDocName, acPreview, , , "cf=" & Chr(34) & Me.CF &
Chr(34)
--
sv



title: anteprima su record corrente

text:
> Se cf è il codice fiscale, e quindi è una stringa, mancano a parte il
> segno =, le virgolette.
> Pertanto:
> DoCmd.OpenReport stDocName, acPreview, , , "cf=" & Chr(34) & Me.CF &
> Chr(34)
> --
> sv
niente mi da sempre lo stesso errore "tipo non corrispondente"
ho ricontrollato il report, la maschera, la query e le relazioni ma non ne
vengo a capo!
Private Sub Comando55_Click()
On Error GoTo Err_Comando55_Click
    Dim stDocName As String
    stDocName = "SCHEDAit"
DoCmd.OpenReport stDocName, acPreview, , , "cf=" & Chr(34) & Me.CF &
Chr(34)
Exit_Comando55_Click:
    Exit Sub
Err_Comando55_Click:
    MsgBox Err.Description
    Resume Exit_Comando55_Click

End Sub
luigi



title: anteprima su record corrente

text:
luigi.onofrio ha scritto:
> > Se cf è il codice fiscale, e quindi è una stringa, mancano a parte il
> > segno =, le virgolette.
> > Pertanto:
> > DoCmd.OpenReport stDocName, acPreview, , , "cf=" & Chr(34) & Me.CF &
> > Chr(34)
> > --
> > sv
> niente mi da sempre lo stesso errore "tipo non corrispondente"
> ho ricontrollato il report, la maschera, la query e le relazioni ma non ne
> vengo a capo!
> Private Sub Comando55_Click()
> On Error GoTo Err_Comando55_Click
>     Dim stDocName As String
>     stDocName = "SCHEDAit"
> DoCmd.OpenReport stDocName, acPreview, , , "cf=" & Chr(34) & Me.CF &
> Chr(34)
> Exit_Comando55_Click:
>     Exit Sub
> Err_Comando55_Click:
>     MsgBox Err.Description
>     Resume Exit_Comando55_Click
> End Sub
> luigi
aggiungo che se lo faccio su stampa invece di anteprima
Private Sub Comando56_Click()
On Error GoTo Err_Comando56_Click
    Dim stDocName As String
 DoCmd.OpenReport "schedait", , , "CF=" & Chr(34) & Me.CF & Chr(34)

Exit_Comando56_Click:
    Exit Sub
Err_Comando56_Click:
    MsgBox Err.Description
    Resume Exit_Comando56_Click

End Sub
funziona perfettamente



title: anteprima su record corrente

text:
luigi.onofrio ha scritto:
> > Se cf è il codice fiscale, e quindi è una stringa, mancano a parte il
> > segno =, le virgolette.
> > Pertanto:
> > DoCmd.OpenReport stDocName, acPreview, , , "cf=" & Chr(34) & Me.CF &
> > Chr(34)
> > --
> > sv
> niente mi da sempre lo stesso errore "tipo non corrispondente"
> ho ricontrollato il report, la maschera, la query e le relazioni ma non ne
> vengo a capo!
> Private Sub Comando55_Click()
> On Error GoTo Err_Comando55_Click
>     Dim stDocName As String
>     stDocName = "SCHEDAit"
> DoCmd.OpenReport stDocName, acPreview, , , "cf=" & Chr(34) & Me.CF &
> Chr(34)
> Exit_Comando55_Click:
>     Exit Sub
> Err_Comando55_Click:
>     MsgBox Err.Description
>     Resume Exit_Comando55_Click
> End Sub
> luigi
Leggo un virgola in più...
DoCmd.OpenReport stDocName, acPreview, , "cf=" & Chr(34) & Me.CF & Chr(34)
L'Help.. questo sconosciuto.... Lo sai al CISA che si è detto: "Un buon
programmatore deve avere il tasto F1 della propria tastiera tanto
consumato che non si possa leggere.."
:-)))
--
sv



title: anteprima su record corrente

text:
luigi.onofrio ha scritto:
> luigi.onofrio ha scritto:

> > > Pertanto:

> > > --
> > > sv


> >     Dim stDocName As String

> > Exit_Comando55_Click:
> >     Exit Sub

> > End Sub
> > luigi

> On Error GoTo Err_Comando56_Click

> Exit_Comando56_Click:
>     Exit Sub

> End Sub
> funziona perfettamente
> luigi
E certo... vedi la risposta che ti ho già data..
--
sv



title: anteprima su record corrente

text:
cut
> Leggo un virgola in più...
> DoCmd.OpenReport stDocName, acPreview, , "cf=" & Chr(34) & Me.CF & Chr(34)
azz!  e chi ci andava a pensare alla virgola!
mò funziona!
> L'Help.. questo sconosciuto.... Lo sai al CISA che si è detto: "Un buon
> programmatore deve avere il tasto F1 della propria tastiera tanto
> consumato che non si possa leggere.."
peccato che al cisa non ci sono venuto! mi sono perso parecchio sia di
detti che di argomenti e di conoscenze!
spero che al prossimo posso partecipare (incominciate a tremare voi mostri
del VBA! che io sparo domande a raffica )   :-)))))))
> :-)))
:-((()))))
> --
> sv
luigi
Grazie sv , di cuore!



title: Chiave composta Access 2007

author: Napi

text:
Ho una tabella composta da due soli campi: Tessera (numero in formato
testo di 3 chr) e AnnoPag (numero in formato testo di 4 chr).
I due campi insieme formano una chiave primaria composta, delegando in
questo modo ad Access l'onere di evitare i doppioni.
Se il campo Tessera inizia con 0 (zero) l'inserimento dei valori in
tabella non avviene e appare l'errore "impossibile accodare tutti i
record... a causa violazioni di chiave: 1".
L'inserimento dei valori in tabella avviene con un'istruzione INSERT
INTO .... VALUES ....
Il fatto strano � che l'errore si verifica solo quando Tessera inizia
con zero, mentre l'inserimento avviene regolarmente se il primo
carattere di Tessera � diverso da zero, e tutto ci� usando una
maschera non associata.
Se inserisco direttamente i valori in tabella � tutto ok!
Devo pensare a un bug di access o a un bug del mio cervello?
Grazie a chi ha la sfera di cristallo a portata di mano.
Napi


title: Chiave composta Access 2007

text:
Napi wrote:
> Ho una tabella composta da due soli campi: Tessera (numero in
> formato testo di 3 chr) e AnnoPag (numero in formato testo di 4
> chr).
> I due campi insieme formano una chiave primaria composta, delegando
> in questo modo ad Access l'onere di evitare i doppioni.
> Se il campo Tessera inizia con 0 (zero) l'inserimento dei valori in
> tabella non avviene e appare l'errore "impossibile accodare tutti i
> record... a causa violazioni di chiave: 1".
> L'inserimento dei valori in tabella avviene con un'istruzione INSERT
> INTO .... VALUES ....
> ...
Posta l'enunciato SQL.
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Chiave composta Access 2007

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:7qq2c5...@mid.individual.net...

sSql = "INSERT INTO tblTessere ( Tess, AnnoPagato ) " _
            & "VALUES ( " & sTess & ", " & sAnno & " );"
        DoCmd.RunSQL sSql
dove:
Tess e AnnoPagato sono i due campi di tblTessere in cui inserire i
dati e che formano la chiave primaria composta;
sTess=me.elnNomi (casella di riepilogo della maschera non associata);
sAnno=me.txtAnno (casella di testo non associata).
Grazie Karl
Napi


title: Chiave composta Access 2007

text:
"Napi" <
natp...@tin.it
> ha scritto nel messaggio
news:4b4839da$0$1122$4faf...@reader2.news.tin.it...

Risolto: sono annegato nel classico bicchier d'acqua!@#??!@#�!
Mancavano le virgolette semplici nella stringa Values:
& "VALUES ( '" & sTess & "', '" & sAnno & "' );"
Comunque sempre grazie Karl per l'interessamento.
Napi


title: File di protezione

author: Carmelo

text:
Aiutatemi....
Ho creato un dataBase con Acces 2003 (ovviamente sul mio computer) poi ho
creato 3 gruppi utenti; utenti completi, utenti solo lettura ecc.
Fatto il tutto ho trasportato sulla Pebdrive il database mdb, il database
Bak il file di protezione e sono andato ad installarlo su un altro computer
che, invece acces 2003, montava il 2000 e con mia somma sorpresa il database
non sono riuscito ad aprirlo (Una schermata mi avvertiva che non avevo i
diritti e dovevevo contattare l'amministratore)
Domanda: quale errore commetto? sono i due sistemi diversi?
Ho provato ad installare acces 2003 anche sull'altro computer ma il
risultato e sempre lo stesso.
Domada: il file di protezione per i gruppi devo crearlo sul computer che
ospitera il database?
Un caloro ringraziamento a chi potrŕ aiutarmi.


title: File di protezione

author: MA

text:

> Un caloro ringraziamento a chi potrą aiutarmi.
ciao Se guardi su
www.sitocomune.com
 trovi come usare la protezione a
livello utente
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Form popup, come posizionarla rispetto al monitor ?

text:
Ho una procedura Access con solamente una form popup che mostra un orologio
La schermata di Access sottostante e' stata resa invisibbole
Come fare per posizionare la form orologio in una certa posizone rispetto al
desktop di Windows, cioe' rispetto allo schermo del pc ?
In pratica vorrei visualizzarla in alto a sinistra ma i comandi MOVE
sembrano non funzionare o meglio funzionano per posizionare la form orologio
all'interno della schermata Access sottostante
Nel mio caso la schermata Access sottostante e' stata invisibilizzata
Quindi la domanda e':  come posizionare la form orologio rispetto alle
coordinate assolute del desktop Windows ?
Ciao e grazie
RobertoA


text:

Le Popup devono essere posizionate passando le coordinate relative
alla Risoluzione dello schermo che recuperi con le API.
A quel punto usi MOVEWINDOW ....
In qualche dei miei Demo c'è già tutto fatto...
@Alex


text:
On 16 Set, 11:56, "RobertoA" <
amoro...@tiscalinet.it
> wrote:

Se la posizioni con MOVEWINDOW(API) alle coordinate 0,0,CX,CY ti
basterebbe solo ricavare Le dimensioni del Popup...che sono Cx e Cy...
in Pixels ovviamente con GetWindowRect...
@Alex


text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:9af38421-e93c-4798...@k7g2000hsd.googlegroups.com...


---------------------------------------------------
Grazie per il suggerimento, pensavo ci fosse una funzione nativa Access che
non conoscevo
Mi ritrovo pero' un comportamento un po strano nel senso che il
riposizionamento funziona dalla seconda volta in poi
La prima volta che lancio, la forma e posizione finestra rimane inalterata
Inoltre dalla seconda volta in poi, quindi da quando la form orologio si
posiziona correttamente, le volte successive che apro l'ambiente di sviluppo
mi viene posizionato come la form orologio, quindi molto rimpicciolito ed in
posizione 0,0
Uso il seguente codice
'--------  invisibilizza la finestra di Access ------------
hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE      ' sw_hide=0
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Me.hwnd, SW_NORMAL)   ' sw_normal=1
'--------  riposiziona e ridimensiona form  -----------
retval = MoveWindow(Application.hWndAccessApp, 0, 0, 800, 500, 1)
Come mai al "primo colpo" non funziona come mi aspetterei ?
Ciao e grazie
RobertoA


text:
On 16 Set, 12:58, "RobertoA" <
amoro...@tiscalinet.it
> wrote:
> "Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggionews:9af38421-e93c-4798...@k7g2000hsd.googlegroups.com...

Non hai detto che devi muovere la POPUP....?
Allora perchè usi l'handle della AccessWindow...???????
retval = MoveWindow(Forms!NomeForm.hWnd, 0, 0, 800, 500, 1)
se la usi da dentro la Form:
retval = MoveWindow(Me.hWnd, 0, 0, 800, 500, 1)
Non serve altro...!
@Alex


text:
> Grazie per il suggerimento, pensavo ci fosse una funzione nativa Access
> che
> non conoscevo
> Mi ritrovo pero' un comportamento un po strano nel senso che il
> riposizionamento funziona dalla seconda volta in poi
> La prima volta che lancio, la forma e posizione finestra rimane inalterata
> Inoltre dalla seconda volta in poi, quindi da quando la form orologio si
> posiziona correttamente, le volte successive che apro l'ambiente di
> sviluppo
> mi viene posizionato come la form orologio, quindi molto rimpicciolito ed
> in
> posizione 0,0
> Uso il seguente codice
>
> '-------- invisibilizza la finestra di Access ------------
> hWindow = Application.hWndAccessApp
> nCmdShow = SW_HIDE ' sw_hide=0
> nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
> Call ShowWindow(Me.hwnd, SW_NORMAL) ' sw_normal=1
>
> '-------- riposiziona e ridimensiona form -----------
> retval = MoveWindow(Application.hWndAccessApp, 0, 0, 800, 500, 1)
>
> Come mai al "primo colpo" non funziona come mi aspetterei ?
> Ciao e grazie
> RobertoA
Non hai detto che devi muovere la POPUP....?
Allora perchč usi l'handle della AccessWindow...???????
retval = MoveWindow(Forms!NomeForm.hWnd, 0, 0, 800, 500, 1)
se la usi da dentro la Form:
retval = MoveWindow(Me.hWnd, 0, 0, 800, 500, 1)
Non serve altro...!
--------------------------------------------
Ehhmm, ehm.. e gia', era chiaro no ?
Beh, grazie mille
RobertoA


title: aumentare automaticamente valore in tabella

author: Filippo Campolmi

text:
Salve a tutti,
vorrei crearmi una funzione, query o altro che mi permettesse di
incrementare di 1 un campo.
Mi spiego meglio:
in una tabella "dettagli", ho un campo "collo", che mi deve aumentare di
una unità tutte le volte che nella tabella "dettagli", i record hanno un
valore nel campo "box" diverso da "0".
Ho provato con una query cercando inutilmente una funzione che mi
calcolasse il tutto, però senza risultato.
Spero di essere stato chiaro,
Grazie per l'aiuto.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Alex NSB

text:
Filippo Campolmi wrote:
> Salve a tutti,
>
> vorrei crearmi una funzione, query o altro che mi permettesse di
> incrementare di 1 un campo.
> Mi spiego meglio:
> in una tabella "dettagli", ho un campo "collo", che mi deve aumentare
> di una unità tutte le volte che nella tabella "dettagli", i record
> hanno un valore nel campo "box" diverso da "0".
> Ho provato con una query cercando inutilmente una funzione che mi
> calcolasse il tutto, però senza risultato.
>
> Spero di essere stato chiaro,
Ahimè no, almeno per me non è chiaro...
Alessandro


title: Convertire una query salvata in espressione SQL via codice VBA

text:
Spiego il mio problema :
vorrei esportare in excel utilizzando
 DoCmd.OutputTo acOutputQuery, "miaQuery", acFormatXLS,
"c:\Esporta.xls", True
"miaQuery" è una query con paramtri derivanti da campi di una Maschera
 , nella maschera attrverso una ListBox lascio selezionare all'utente
una o più righe  che costituiscono un Filtro .
Attraverso un pulsante apro un report con origeine dati = MiaQuery e
applico il Filtro al report , fin qui tutto funziona .
Vorrei applicare Il Filtro anche alla miaQuery , per effettuare
l'esportazione dei dati in excel .
Quindi ho pensato a questa soluzione (forse contorta) :
Converto via VBA miaQuery in espressione SQL (ma non so come fare )
Poi aggiungo il Filtro (espressione SQL)
Ottengo una nuova espressione SQL
Converto la nuova espressione SQL in una query salvata
"miaQueryconFiltro"  (ma non so come fare )
applico
 DoCmd.OutputTo acOutputQuery, "miaQueryconFiltro", acFormatXLS,
"c:\Esporta.xls", True
O ci sono altre Soluzioni più immediate ?


text:
"carlo.scaroni" <
carlo....@gmail.com
> wrote in message
news:1130758584.9...@o13g2000cwo.googlegroups.com
> Spiego il mio problema :
> vorrei esportare in excel utilizzando
>  DoCmd.OutputTo acOutputQuery, "miaQuery", acFormatXLS,
> "c:\Esporta.xls", True
>
> "miaQuery" è una query con paramtri derivanti da campi di una Maschera
>  , nella maschera attrverso una ListBox lascio selezionare all'utente
> una o più righe  che costituiscono un Filtro .
>
> Attraverso un pulsante apro un report con origeine dati = MiaQuery e
> applico il Filtro al report , fin qui tutto funziona .
>
> Vorrei applicare Il Filtro anche alla miaQuery , per effettuare
> l'esportazione dei dati in excel .
>
> Quindi ho pensato a questa soluzione (forse contorta) :
>
> Converto via VBA miaQuery in espressione SQL (ma non so come fare )
Prova questa:
MsgBox CurrentDb.QueryDefs("NomeQuery").SQL
> Poi aggiungo il Filtro (espressione SQL)
Trattasi di "WHERE ..."
> Ottengo una nuova espressione SQL
Esatto
> Converto la nuova espressione SQL in una query salvata
> "miaQueryconFiltro"  (ma non so come fare )
CurrentDb.QueryDefs("NomeQuery").SQL=NuovaSQL
> applico
>
>  DoCmd.OutputTo acOutputQuery, "miaQueryconFiltro", acFormatXLS,
> "c:\Esporta.xls", True

> O ci sono altre Soluzioni più immediate ?
Non mi fiene in mente altro.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
Ringrazio  del suggerimento   ma probabilmente sbaglio qualcosa
 Dim NuovaSQL As QueryDef
 stSQL = CurrentDb.QueryDefs(stRSource).SQL  'stRSource  = miaQuery
 Set NuovaSQL = CurrentDb.CreateQueryDef("qryNuovaSQL", stSQL)
ottengo la  query "qryNuovaSQL" che in visualizzazione SQL è la
seguente
SELECT tblMatricola.IdMatricola, tblMatricola.CostoAcquisto,
tblMatricola.IdCatAM1, tblMatricola.IdCatAM2, tblMatricola.IdUtilizzo,
tblInterventoManutenzione.IdInterventoManutenzione,
tblInterventoManutenzione.Responsabile,
tblInterventoManutenzione.DataIM, tblInterventoManutenzione.ContaOre,
tblInterventoManutenzione.[FMacchina(h)], tblCausa.DesCausa,
tblGravità.Gravità, tblRigheIntervento.IdRigheIntervento,
tblRigheIntervento.Descrizione, tblRigheIntervento.IdFornitori,
tblRigheIntervento.Offerta, tblRigheIntervento.Costo,
tblRigheIntervento.[MDOInt(h)], tblRigheIntervento.[MDOEst(h)],
tblRigheIntervento.StatoIntervento, tblRigheIntervento.Eseguito,
tblStoricoCO.CO, tblStoricoCO.DallaData, tblStoricoCO.AllaData,
tblStoricoCMDO.CMDO, tblStoricoCMDO.DallaData, tblStoricoCMDO.AllaData,
tblStoricoStati.IdStati, tblStoricoStati.AllaData, tblStati.Stato,
tblMatricola.Cespite, sqryCostoRicambiCorrettivi.TotRic
FROM (((((((tblInterventoManutenzione INNER JOIN tblMatricola ON
tblInterventoManutenzione.IdMatricola = tblMatricola.IdMatricola) INNER
JOIN tblCausa ON tblInterventoManutenzione.IdCausa = tblCausa.IdCausa)
INNER JOIN tblGravità ON tblInterventoManutenzione.IdGravità =
tblGravità.IdGravità) INNER JOIN tblStoricoCMDO ON
tblMatricola.IdMatricola = tblStoricoCMDO.IdMatricola) INNER JOIN
tblStoricoCO ON tblMatricola.IdMatricola = tblStoricoCO.IdMatricola)
INNER JOIN tblRigheIntervento ON
tblInterventoManutenzione.IdInterventoManutenzione =
tblRigheIntervento.IdInterventoManutenzione) LEFT JOIN
sqryCostoRicambiCorrettivi ON tblRigheIntervento.IdRigheIntervento =
sqryCostoRicambiCorrettivi.IdRigheIntervento) INNER JOIN
(tblStoricoStati INNER JOIN tblStati ON tblStoricoStati.IdStati =
tblStati.IdStati) ON tblMatricola.IdMatricola =
tblStoricoStati.IdMatricola
GROUP BY tblMatricola.IdMatricola, tblMatricola.CostoAcquisto,
tblMatricola.IdCatAM1, tblMatricola.IdCatAM2, tblMatricola.IdUtilizzo,
tblInterventoManutenzione.IdInterventoManutenzione,
tblInterventoManutenzione.Responsabile,
tblInterventoManutenzione.DataIM, tblInterventoManutenzione.ContaOre,
tblInterventoManutenzione.[FMacchina(h)], tblCausa.DesCausa,
tblGravità.Gravità, tblRigheIntervento.IdRigheIntervento,
tblRigheIntervento.Descrizione, tblRigheIntervento.IdFornitori,
tblRigheIntervento.Offerta, tblRigheIntervento.Costo,
tblRigheIntervento.[MDOInt(h)], tblRigheIntervento.[MDOEst(h)],
tblRigheIntervento.StatoIntervento, tblRigheIntervento.Eseguito,
tblStoricoCO.CO, tblStoricoCO.DallaData, tblStoricoCO.AllaData,
tblStoricoCMDO.CMDO, tblStoricoCMDO.DallaData, tblStoricoCMDO.AllaData,
tblStoricoStati.IdStati, tblStoricoStati.AllaData, tblStati.Stato,
tblMatricola.Cespite, sqryCostoRicambiCorrettivi.TotRic
HAVING (((tblMatricola.IdCatAM1) Like
ConvertNulls([Forms]![frmSelMacchina]![cbxCAM1],"*")) AND
((tblMatricola.IdCatAM2) Like
ConvertNulls([Forms]![frmSelMacchina]![cbxCAM2],"*")) AND
((tblMatricola.IdUtilizzo) Like [Forms]![frmSelMacchina]![cbxUtilizzo])
AND ((tblInterventoManutenzione.DataIM) Between
ConvertNulls([Forms]![frmSelMacchina]![DallaData],#1/1/1981#) And
ConvertNulls([Forms]![frmSelMacchina]![AllaData],#12/31/2020#)) AND
((tblStoricoCO.DallaData)<=[DataIM]) AND
((tblStoricoCO.AllaData)>=[DataIM]) AND
((tblStoricoCMDO.DallaData)<=[DataIM]) AND
((tblStoricoCMDO.AllaData)>=[DataIM]) AND ((tblStoricoStati.IdStati)
Like ConvertNulls([Forms]![frmSelMacchina]![cbxStato],"*")) AND
((tblStoricoStati.AllaData) Is Null));
Se  ora  anche  applico il filtro
stSQL = CurrentDb.QueryDefs(stRSource).SQL
stSQL = stSQL & " WHERE " & strFiltro  ' dove strFiltro è ad esempio
  IdMatricola =  'Dry1Teg' OR IdMatricola =  'Dry2Teg'
Set NuovaSQL = CurrentDb.CreateQueryDef("qryNuovaSQL", stSQL)
Ottengo  l'errore "Caratteri non previsti dopo la fine dell'istruzione
SQL"  3142
Sbaglio Qualcosa ??
Grazie


text:
"carlo.scaroni" <
carlo....@gmail.com
> wrote in message
news:1130771354....@g47g2000cwa.googlegroups.com
> Ringrazio  del suggerimento   ma probabilmente sbaglio qualcosa
>
{CUT]
> Ottengo  l'errore "Caratteri non previsti dopo la fine dell'istruzione
> SQL"  3142
>
> Sbaglio Qualcosa ??
>
> Grazie
Con la Query che hai è decisamente un problema, poichè usa Having
come Clausola di Criterio, quindi dovresti aggiungerti in AND
alla fine della Clausola.



text:
Ringrazio e  chiedo una precisazione ....
Se ho capito bene dovrei  inserirla all'interno di HAVING ...
tolgo dall'esppressione  SQL  gli ultimi caratteri    ");"
aggiungo " AND " & strFiltro & ");"


author: Enrico T.S.

text:

togli solo il ";" ed aggiungi  " AND (" & StrFiltro  & ")"
bye.


text:
Grazie a Enrico per il suggerimento  ma non è corretto.
Ho comunque risolto il problema  e qui  riporto la soluzione  perchè
possa essere di aiuto ad altri....
Partendo dall'inizio  ho una query salvata (1) denominata
"qryrptInterventoManutenzione(Filtro)"





(2) Creo una nuova query  in cui l'origine è la query di cui sopra
"qryrptInterventoManutenzione(Filtro)"
SELECT *
FROM [qryrptInterventoManutenzione(Filtro)];
la salvo per mia comodità col nome
"qryrptInterventoManutenzioneFiltro"
(3)
Dim qdfTemp As QueryDef
Dim stRSource As String, stSQL As String
stSQL = CurrentDb.QueryDefs(stRSource).SQL
stSQL = Left(stSQL, Len(stSQL) - 3)
stSQL = stSQL & " WHERE (" & strFiltro & ");"
Set qdfTemp = CurrentDb.CreateQueryDef("qryTempSQL", stSQL)  ' crea una
qry salvata temporanea  (grazie Alessandro B)
   stRSource = "qryTempSQL"
                  DoCmd.OutputTo acOutputQuery, stRSource, acFormatXLS,
"c:\Esporta.xls", True ' esporta in excel
CurrentDb.QueryDefs.Delete stRsource ' elimina la query Temporanea
salvata
Così funziona !


title: Iomega Zip acc/97 Win 98s

author: tommy

text:
Ciao a Tutto il NG.
Ho già fatto questa domanda, e aspettavo risposta da geronimo ma dato che
e' passato un po di tempo e geronimo ha avuto un figlio provo se altre
persone
sanno come si fa.
Con un pulsante da una form devo espellere lo zip.
La lettera su gestione risorse e' la D:\
Ciao e buon lavoro a tutti.
Tommy
Questa era la domanda.
Kalamaro mi ha detto di scaricare un file :
"kalamaro" <
rokoko_t...@email.it
> ha scritto nel messaggio
news:bmdk8t$lm5lq$1...@ID-168793.news.uni-berlin.de...
> Se ti interessa c'e questo exe che, una volta richiamato (e lo puoi
chiamare
> dal tuo pulsante con una shell) espelle lo zip.
>
>
http://www.programmersheaven.com/zone2/cat264/2754.htm
>
> scaricati il file zippato e leggiti ZIPEJECT.TXT per maggiore chiarezza.
>
> ciao
il programma si carica ma non funziona.
Come caz... devo fare per espellere lo zip.!


title: Anteprima diversa da stampa ?

text:
Non mi era mai capitato di vedere un'anteprima che si vede in un modo e poi
viene stampata in un altro
La stampante sulla quale stampoe' quella predefinita, il report usa la
stampante predefinita
Da cosa puo' dipendere questa diversita'?
Ciao e grazie
RobertoA


title: Anteprima diversa da stampa ?

author: BFS

text:

in cosa consiste la diversità?
BFS


title: Anteprima diversa da stampa ?

text:
>> Non mi era mai capitato di vedere un'anteprima che si vede in un modo e
>> poi
>> viene stampata in un altro
>> La stampante sulla quale stampoe' quella predefinita, il report usa la
>> stampante predefinita
>> Da cosa puo' dipendere questa diversita'?
>> Ciao e grazie
>> RobertoA
>
> in cosa consiste la diversità?
> BFS
E' un documento tipo fattura
In anteprima vedo due pagine, le righe sono una di troppo e scatta la
seconda pagina
In stampa vedo c'e' solo un foglio, con tutte le righe che ci stanno giuste
giuste
Ciao
RobertoA


title: Anteprima diversa da stampa ?

text:
Il 04/01/2011 09:24, RobertoA ha scritto:
>>> Non mi era mai capitato di vedere un'anteprima che si vede in un modo e
>>> poi
>>> viene stampata in un altro
>>> La stampante sulla quale stampoe' quella predefinita, il report usa la
>>> stampante predefinita
>>> Da cosa puo' dipendere questa diversita'?
>>> Ciao e grazie
>>> RobertoA
>>
>> in cosa consiste la diversitï¿œ?
>> BFS
>
> E' un documento tipo fattura
> In anteprima vedo due pagine, le righe sono una di troppo e scatta la
> seconda pagina
> In stampa vedo c'e' solo un foglio, con tutte le righe che ci stanno giuste
> giuste
> Ciao
> RobertoA
>
>
se converti il report in pdf come ti appare? tanto per capire se ï¿œ colpa
del report o della stampante
ciao
BFS


title: Anteprima diversa da stampa ?

text:
>>>> Non mi era mai capitato di vedere un'anteprima che si vede in un modo e
>>>> poi
>>>> viene stampata in un altro
>>>> La stampante sulla quale stampoe' quella predefinita, il report usa la
>>>> stampante predefinita
>>>> Da cosa puo' dipendere questa diversita'?
>>>> Ciao e grazie
>>>> RobertoA
>>>
>>> in cosa consiste la diversità?
>>> BFS
>>
>> E' un documento tipo fattura
>> In anteprima vedo due pagine, le righe sono una di troppo e scatta la
>> seconda pagina
>> In stampa vedo c'e' solo un foglio, con tutte le righe che ci stanno
>> giuste
>> giuste
>> Ciao
>> RobertoA
>>
> se converti il report in pdf come ti appare? tanto per capire se è colpa
> del report o della stampante
Mi appare come l'anteprima, cioe' due fogli
Mentre la stampata e' di 1 foglio
Ciao
RovertoA


title: Anteprima diversa da stampa ?

author: Massimiliano Bertoglio

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:4d22cf13$1...@newsgate.x-privat.org...

Questo comportamento si verifica su varie stampanti?
La stampa cartacea avviene dall'anteprima di stampa precedentemente aperta?
Ciao


title: Anteprima diversa da stampa ?

text:
>> Non mi era mai capitato di vedere un'anteprima che si vede in un modo e
>> poi viene stampata in un altro
>> La stampante sulla quale stampoe' quella predefinita, il report usa la
>> stampante predefinita
>> Da cosa puo' dipendere questa diversita'?
> Questo comportamento si verifica su varie stampanti?
> La stampa cartacea avviene dall'anteprima di stampa precedentemente
> aperta?
Sui nostri sistemi non riesco a replicare tale anomalia
Dal cliente c'e' solo quella stampante
Il comando di stampa viene avviato dalla stampantina sulla toolbar, dopo che
l'anteprima e' stata aperta
Ciao
RobertoA


title: Anteprima diversa da stampa ?

text:
"RobertoA" <
>
> Sui nostri sistemi non riesco a replicare tale anomalia
> Dal cliente c'e' solo quella stampante
> Il comando di stampa viene avviato dalla stampantina sulla toolbar, dopo
> che l'anteprima e' stata aperta
Sicuro che non ci sia del codice su eventi "formattazione" che viene
ri-eseguito su comando di stampa, provocando la differenza?
Se provi a inviare direttamente su carta, invece che stampare
dall'anteprima, cosa succede?
Ciao.


title: multiazienda ???

author: Gianni

text:
Ciao a tutti,
sapete indicarmi un tutorial o darmi una dritta su come procedere per
gestire all'interno della mia applicazione 2 aziende distinte, o anche solo
due esercizi diversi.
creando due directory differenti e gestendo "allega tabelle" o cosa mi
suggerite ?
Grazie infinite
Gianni


title: multiazienda ???

author: Silvio Berruti

text:
"Gianni" <
gian...@hotmail.com
> ha scritto nel messaggio
news:9cthq0$75d$1...@nreadB.inwind.it...

Una cosa simile l'ho gestita con una casella combinata che presenta l'elenco
delle varie aziende, andando a riallegare opportunamente le tabelle con una
routine simile a quella presente nel Sito Comune.
Nel mio caso, poiché dovevo anche personalizzare in modi differenti maschere
e report, mi sono creato una tabella sul FE contenente, oltre ai dati x la
personalizzazione, anche i percorsi x riallegare i BE.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: multiazienda ???

author: Pietro Crincoli

text:
Io ho aggiunto in quasi tutte le tabelle un campo
azienda, oltre a una tabella con le aziende.


title: multiazienda ???

author: Guido dal Faro

text:
On Fri, 4 May 2001 08:18:39 +0200, "Gianni" <
gian...@hotmail.com
>
wrote:

Aggiungi  IdAzienda a tutte le tabelle.
Crea una tabella Aziende.
Seleziona un'azienda.
Lavora solo su query dove il criterio è IdAzienda.
Ciao
---------------
Guido
light...@flashnet.it


title: Gestione immagini.

author: danmai

text:
Ciao a tutti. Ho bisogno di aiuto.
Sto lavorando in un db dove devo gestire numerosi immagini jpg (più di 500).
So che c'è un modo di gestire queste immagini senza che il mio db si
ingrandisca più di tanto. Ho letto sul SITO COMUNE le soluzioni di questo
problema. Scusate la mia ignoranza, ma io non ho capito come fare (sto
parlando della 1ª soluzione). C'è qualche anima gentile che abbia la
pazienza di spiegarmi più dettagliamente come fare? Ringrazio anticipamente
tutti coloro che mi rispoderanno. ciao Daniele.


title: Gestione immagini.

author: Federico Luciani

text:

in una tabella ci sara' un campo testo (PathImg) dove vai ad archiviare il path
dell'immagine legata al quello specifico record (es.
c:\documenti\img\img01.jpg).
crea una form legata alla suddetta tabella.
aggiungi un controllo immagine (ctlImg).
nell'evento On Current della form ci scrivi:
if not isnull(me.PathImg) then
   Me.ctlImg.Picture = Me.PathImg
end if
in questo modo ogni volta che passi da un record all'altro viene visualizzata
l'immagine relativa.
naturalmente hai anche la necessita' di selezionare l'immagine per i nuovi
record.
allora metti un pulsante sulla form e nel suo evento OnClick ci scrivi:
dim strPath as string
strPath = cmdlg_file
if strPath <> "" then
   me.PathImg = strPath
   Me.ctlImg.Picture = Me.PathImg
end if
cliccando sul pulsante appare la finestra di dialogo per la selezione di un
file, una volta selezionato il path viene archiviato nel campo PathImg e
l'immagine viene visualizzata
la funzione cmdlg_file la trovi tra le Tips del Sito Comune (Richiamare la
finestra di dialogo per la selezione di un file), naturalmente la devi
modificare secondo le tue esigenze
scrivi se qualcosa non e' chiaro
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Gestione immagini.

text:
Ciao Federico, grazie per l'aiuto ma ho un problema.
Premetto che uso la versione 2000 di access, forse è per quello che non
funziona.
Il problema è che mi da un errore di compilazione (Impossibile trovare il
metodo o il membro dei dati) e nella procedura viene evidenziato la parola
.Picture nell'evento On Current della Form. Cosa devo fare?  Ciao.
Federico Luciani <
fluc...@paperino.libero.it
> wrote in message
3964A906...@paperino.libero.it...



title: Gestione immagini.

text:
danmai wrote:
> Ciao Federico, grazie per l'aiuto ma ho un problema.
> Premetto che uso la versione 2000 di access, forse è per quello che non
> funziona.
> Il problema è che mi da un errore di compilazione (Impossibile trovare il
> metodo o il membro dei dati) e nella procedura viene evidenziato la parola
> .Picture nell'evento On Current della Form. Cosa devo fare?  Ciao.
Al momento non ho sottomano A2000 quindi non posso
controllare.
Guardati l'help per il controllo Immagine e cerca qual'e'
la proprieta' che accetta il nome del file da visualizzare.
Cmq quando torno in ufficio ci guardo.
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access



title: Gestione immagini.

text:
Federico Luciani wrote:
> danmai wrote:
> > Ciao Federico, grazie per l'aiuto ma ho un problema.
> > Premetto che uso la versione 2000 di access, forse è per quello che non
> > funziona.
> > Il problema è che mi da un errore di compilazione (Impossibile trovare il
> > metodo o il membro dei dati) e nella procedura viene evidenziato la parola
> > .Picture nell'evento On Current della Form. Cosa devo fare?  Ciao.
> Al momento non ho sottomano A2000 quindi non posso
> controllare.
> Guardati l'help per il controllo Immagine e cerca qual'e'
> la proprieta' che accetta il nome del file da visualizzare.
> Cmq quando torno in ufficio ci guardo.
Ho provato con il A2000 e' funziona.
Sei sicuro di aver inserito un controllo Immagine e non un controllo Cornice
oggetto?
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net



title: Gestione immagini.

text:
Ciao Federico e grazie, ma ho già risolto il problema in un altro modo.
Se vuoi ti spiego un pò.
Il mio db serve per archiviare i modellini di aerei della mia collezione,
creando una tabella chiamata Distinta in questo modo:
Cod aereo        Tipo aereo        Compagnia        Foto        Driver (qui
inserisco la path  delle immagini, nel mio caso: H:\Foto Herpa\)
Formato Immagine (nel mio caso: .jpg).
Da questa tabella ho creato una query dove ho impostato un'espressione che
fa: Espr1: [Distinta]![Driver] & "" & [Distinta]![Cod] & "" &
[Distinta]![Formato Immagine]
Da questa query ho creato la maschera e nell'evento Su corrente ho inserito
questa procedura:
Private Sub Form_Current()
On Error GoTo Err_Esci
If IsNull(Me!PathImmagine) Then
Me!Foto.Picture = ""
Me!PathImmagine.Visible = True
Me!Driver.Visible = True
Me!FormatoImmagine.Visible = True
Else
Me!PathImmagine.Visible = False
Me!Driver.Visible = False
Me!FormatoImmagine.Visible = False
Me!Foto.Picture = Me!PathImmagine
End If
Exit_C:
Exit Sub
Err_Esci:
    MsgBox Err.Description
  Resume Exit_C
End Sub
Ho fatto tutto questo per evitare di scrivere tutta la path ogni volta che
devo visualizzare un'immagine nuova .
Dato che i campi Driver e Formato Immagine hanno il valore predefinito
impostato a "H:\Foto Herpa\" e ".jpg" inserendo solo il codice dell'aereo mi
resta più facile e veloce. Ti rammento che le immagini sono archiviate per
numero di codice. Non so se mi sono spiegato bene. Secondo te può essere una
soluzione valida?
Tutto questo però posso solo farlo con una maschera singola. A me piacerebbe
farlo anche con una maschera continua. Si può fare questo?
Ciao Federico e scusa se ti ho rubato tutto questo tempo.
Federico Luciani <
fluc...@paperino.libero.it
> wrote in message
396981A1...@paperino.libero.it...



title: Gestione immagini.

text:
danmai wrote:
> Ciao Federico e grazie, ma ho già risolto il problema in un altro modo.
> Se vuoi ti spiego un pò.
> [cut]
> Ho fatto tutto questo per evitare di scrivere tutta la path ogni volta che
> devo visualizzare un'immagine nuova .
> Dato che i campi Driver e Formato Immagine hanno il valore predefinito
> impostato a "H:\Foto Herpa\" e ".jpg" inserendo solo il codice dell'aereo mi
> resta più facile e veloce. Ti rammento che le immagini sono archiviate per
> numero di codice. Non so se mi sono spiegato bene. Secondo te può essere una
> soluzione valida?
Perfetto.
> Tutto questo però posso solo farlo con una maschera singola. A me piacerebbe
> farlo anche con una maschera continua. Si può fare questo?
No. Tutti i records visualizzerebbero la stessa immagine, quella del record
corrente.
Per farlo funzionare dovresti archiviare le immagini in una tabella! Non credo
ti convenga.



title: Inserimento dati automatico nel campo

text:
Devo: da una maschera0 scelgo l'argomento es A, B, C o D e poi apro una
maschera1
collegata a tabella1 e vado a riempire solo le caselle(collegate ai
campi) Titolo e Anno;
in quanto il campo argomento viene riempito in automatico con quello
scelto da masch0.
(La masch1 è di tipo singola)
Questo per evitare, quando ho ad es. 20 libri con lo stesso argomento di
stare a ridigitare per ogni
nuovo record sempre lo stesso argomento
Campi della Tabella1
Id_libro    (chiave primaria contatore)
Argomento
Titolo
Anno
Thank You


title: Inserimento dati automatico nel campo

author: Roberto da casa

text:
"rr12rr" <rr1...@NOSPAMusa.net> ha scritto nel messaggio
news:3A17A4CB...@NOSPAMusa.net...

Ammesso che Maschera1 la apri in modalità acFormAdd (aggiungi nuovo record),
che il controllo di Maschera1 che deve contenere l'argomento si chiami
Argomento e che il controllo di Maschera0 che contiene l'argomento si chiami
Pippo, a fronte dell'evento "Su corrente" di Maschera1 genera il seguente
codice VBA:
Me![Argomento] = [Forms]![Maschera0]![Pippo]
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Inserimento dati automatico nel campo

text: grazie di nuovo


title: Somma in query

author: Vilcoyote

text:
Ho una query basata sulla tabella Vendite. Nella tabella Vendite ho il campo
Importo. Come faccio a sommare tutti gli importi e ad avere il totale in un
nuovo campo?
Ho provato creando il seguente campo:
Campo         TotaleImporti: Importo
Tabella         Vendite
Formula        Somma
ma nella colonna TotaleImporti mi appare l'importo di quella vendita non il
totale di tutte le vendite. Come posso fare perchè calcoli il totale? Grazie
a chi mi aiuta. Ciao a tutti.


title: Somma in query

author: FABIO

text:
Vilcoyote wrote:
> Ho una query basata sulla tabella Vendite. Nella tabella Vendite ho il campo
> Importo. Come faccio a sommare tutti gli importi e ad avere il totale in un
> nuovo campo?
> Ho provato creando il seguente campo:
> Campo         TotaleImporti: Importo
> Tabella         Vendite
> Formula        Somma
> ma nella colonna TotaleImporti mi appare l'importo di quella vendita non il
> totale di tutte le vendite. Come posso fare perchč calcoli il totale? Grazie
> a chi mi aiuta. Ciao a tutti.
DEVI METTERE FORMULA:
1)RAGGRUPPAMENTO A TUTTE LE COLONNE NELLA QUERY
2)SOMMA SOLO AD IMPORTO
3)CANCELLA LA COLONNA TOTALE IMPORTI
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Somma in query

text:
> DEVI METTERE FORMULA:
> 1)RAGGRUPPAMENTO A TUTTE LE COLONNE NELLA QUERY
> 2)SOMMA SOLO AD IMPORTO
> 3)CANCELLA LA COLONNA TOTALE IMPORTI
Fatto: mi da la colonna SommaDiImporto al posto della colonna Importo che
c'era prima e ora non c'è più ma ad ogni riga mi continua a dare l'importo
di quella vendita e non di tutte le vendite della tabella Vendite cioè la
somma di tutti gli importi presenti nella tabella come vorrei. C'è qualche
altro modo se no per ottenere sta benedetta somma?
Grazie comunque per l'aiuto.


title: Somma in query

author: Alessandro Cara

text:

il modo e' esattamente quello che ti ha indicato fabio.
Se nella query continu a citare l'attributo importo
della vendita e non solo la sua somma otterrai
sempre il risultato che ottieni
Tutto sto discorso per:

select sum(importo) as SommaDiImporto
(Usa l'icona "SQL" e controlla se c'e' scritto il sopraesposto)
--
a.cara


title: Somma in query

text:
Alessandro Cara wrote:
[cut]
> select sum(importo) as SommaDiImporto
>
ho dimenticato il FROM
--
a.cara


title: Somma in query

text:
Vilcoyote wrote:


TOGLI TUTTE LE COLONNE CON LA FORMULA RAGGRUPPAMENTO E LASCIA SOLO LA
COLONNA IMPORTO CON LA FORMULA SOMMA. AVRAI COME RISULTATO UN UNICO CAMPO
CON LA SOMMA DI TUTTE LE VENDITE INDIPENDENTEMENTE DAGLI ARTICOLI.
SE NELLA QUERY, POI, AGGIUNGI IL codice DEL PRODOTTO CON LA FORMULA
RAGGRUPPAMENTO OTTERRAI DUE CAMPI, IL PRIMO è IL CODICE DI TUTTI PRODOTTI,
IL SECONDO IL TOTALE DELLE VENDITE PER PRODOTTO.
UN SECONDO MODO E' CREARE UNA MASCHERA BASATA SULLA QUERY CHE HAI ORA ED
INSERIRE TUTTI I CAMPI NEL CORPO DELLA MASCHERA, POI NEL PIE' DI MASCHERA
METTI UN CONTROLLO DOVE NELLA PROPRIETA' ORIGINE CONTROLLO SCRIVI:
=Somma([SommaDiImporto])
OTTERRAI COSI UNA MASCHERA CHE TI FA VEDERE TUTTE LE VENDITE CON I
RELATIVI IMPORTI E SOTTO IL TOTALE DI QUESTI



title: Somma in query

text:
FABIO wrote:
fabio, non siamo sordi
--
a.cara


title: Somma in query

author: RoDAgo

text:
"FABIO" scrisse...
cut
> CON LA SOMMA DI TUTTE LE VENDITE INDIPENDENTEMENTE DAGLI ARTICOLI.
> SE NELLA QUERY, POI, AGGIUNGI IL codice DEL PRODOTTO CON LA FORMULA
cut
Fabio, scrivere in maiuscolo sui ng equivale a gridare.
Nel caso in cui vorrai farlo, nessuno ti starà a sentire.  :-)
RoDAgo


title: Somma in query

text:
per motivi di lavoro sono costretto a scrivere in maiuscolo, poichè non ho
molto tempo per rispondere e mi alterno tra lavoro e news dimentico il
caps lock, bye



title: Somma in query

text:
> TOGLI TUTTE LE COLONNE CON LA FORMULA RAGGRUPPAMENTO E LASCIA SOLO LA
> COLONNA IMPORTO CON LA FORMULA SOMMA. AVRAI COME RISULTATO UN UNICO CAMPO
> CON LA SOMMA DI TUTTE LE VENDITE INDIPENDENTEMENTE DAGLI ARTICOLI.
> SE NELLA QUERY, POI, AGGIUNGI IL codice DEL PRODOTTO CON LA FORMULA
> RAGGRUPPAMENTO OTTERRAI DUE CAMPI, IL PRIMO è IL CODICE DI TUTTI PRODOTTI,
> IL SECONDO IL TOTALE DELLE VENDITE PER PRODOTTO.
Innanzitutto grazie a entrambi per le spiegazioni.
E' vero togliendo tutte le colonne e lasciando solo quella con l' importo in
cui inserisco in formula somma mi da effettivamente la somma di tutti gli
importi.
Però non riesco a capire la seconda parte della spiegazione, cioè io ho
provato ad aggiungere la colonna cliente (non articolo) con formula
raggruppamento ed è ritornato tutto come prima ovvero niente somma ma le
varie righe delle vendite in cui appare il cliente e l'importo della
vendita. Come faccio ad esempio a far apparire in ogni riga il cliente,
l'importo di quella vendita al cliente e una terza colonna in cui appaia il
totale di tutte le vendite di tutti i clienti, quindi un valore uguale in
tutte le righe? Sempre che sia possibile.


title: Somma in query

text:
"Vilcoyote" <
vilc...@tiscali.it
> ha scritto nel messaggio
news:c39z9.10069$Zn2.2...@twister1.libero.it...
[CUT]
> Come faccio ad esempio a far apparire in ogni riga il cliente,
> l'importo di quella vendita al cliente e una terza colonna in cui appaia
il
> totale di tutte le vendite di tutti i clienti, quindi un valore uguale in
> tutte le righe? Sempre che sia possibile.
Mi sembra quanto mai inusuale riportare il totale su tutte le righe della
query, comunque...
Se la tabella che contiene i dati si chiama Tabella1 ed ha una struttura
simile a questa:
ID            Contatore e chiave primaria
Cliente      Testo
Importo    Valuta
Crea una query che abbia il seguente codice SQL:
SELECT Tabella1.Cliente, Tabella1.Importo, CCur(DSum("Importo","Tabella1"))
AS Totale
FROM Tabella1;
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Somma in query

text: Grazie mille.


title: SINCRONIZZARE 3 LISTBOX

text:
Seraaaaaa a tutti:
Su una form ho 3 listbox:
A,B,C
Se clicco su A vedo gli elementi corrispondenti in B, se clicco su B vedo
gli elementi corrispondenti in C.
fino qui � Ok.
da questa posizione
se clicco di nuovo su A, allora B si aggiorna ed � ok, ma in C vedo ancora
gli elementi precedenti, perche si aggiorni devo cliccare nuovamente su B.
io quello che vorrei che quando riclicco su A in C non devo vedere nulla.
Ho provato a mettere nell'evento click di A:
me.C.requery (sotto la me.B.requery)
Ma non funziona
E' possibile correggere questa cosetta?
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: SINCRONIZZARE 3 LISTBOX

author: Paolo Dal Bosco

text:
"Tony73" <
tony.s...@hotmail.it
> ha scritto nel messaggio
news:hmh65p$vo4$1...@news.newsland.it...
> Seraaaaaa a tutti:
> Su una form ho 3 listbox:
> A,B,C
>
> Se clicco su A vedo gli elementi corrispondenti in B, se clicco su B vedo
> gli elementi corrispondenti in C.
>
> fino qui � Ok.
>
> da questa posizione
>
> se clicco di nuovo su A, allora B si aggiorna ed � ok, ma in C vedo ancora
> gli elementi precedenti, perche si aggiorni devo cliccare nuovamente su B.
>
>
> io quello che vorrei che quando riclicco su A in C non devo vedere nulla.
>
> Ho provato a mettere nell'evento click di A:
>
> me.C.requery (sotto la me.B.requery)
>
> Ma non funziona
>
> E' possibile correggere questa cosetta?
>
certo,
nell'evento click di A:
prima di me.B.requery
inserisci:
me.C.RowSource = ""
e dopo me.B.requery
inserisci:
me.C.RowSource = "TuaAttualeOrigineDatiDiC "
me.C.Requery
Saluti
Paolo


title: SINCRONIZZARE 3 LISTBOX

author: Domy

text:
Paolo Dal Bosco ha scritto:

> Saluti
> Paolo
Ciao Paolo
niente non va cmq, quando riclicco su A la listbox C contiene ancora i
valori precedenti :(



title: SINCRONIZZARE 3 LISTBOX

text:
"Domy" <
domy...@gmail.com
> ha scritto nel messaggio
news:hmj16f$81o$1...@news.newsland.it...

se la C continua a far vedere dei dati non hai inserito
me.C.Rowsource. = ""
questo cancella la listbox C
puoi postare il codice che hai inserito su Click della ListBox A?
NB.-Inserisci non su cevento Click, ma ebvento Dopo Aggiornamento
Saluti
Paolo


title: SINCRONIZZARE 3 LISTBOX

text:




> Saluti
> Paolo
Ti posto il codice come mi hai indicato:
******************************************************************
Private Sub lbx_Compartimento_Click()
Me.lbx_Raccordi.RowSource = ""
'aggiorna la lbx_GruppoRaccordi
Me.lbx_GruppoRaccordi.Requery
Me.lbx_Raccordi.RowSource = "SELECT tb_Raccordi.NomeRaccordo, * FROM
tb_Raccordi WHERE
(((tb_Raccordi.idNomeGruppo)=forms!fr_ModificaVerbali!lbx_GruppoRaccordi));"
Me.lbx_Raccordi.Requery
End Sub
*******************************************************************
Ricordandoti che:
A  sarebbe  lbx_Compartimento
B  sarebbe  lbx_GruppoRaccordi
C  sarebbe  lbx_Raccordi
Poi cosa dovrei inserire in after Update ?



title: SINCRONIZZARE 3 LISTBOX

text:
"Tony73" <
tony.s...@hotmail.it
> ha scritto nel messaggio
news:hmj3ib$erq$1...@news.newsland.it...

Invece din inserire il codice su evento Click, lo devi inserire su evento
Dopo Aggiornamento
cio�:
******************************************************************
Private Sub lbx_Compartimento_AfterUpdate()
Me.lbx_Raccordi.RowSource = ""
'aggiorna la lbx_GruppoRaccordi
Me.lbx_GruppoRaccordi.Requery
Me.lbx_Raccordi.RowSource = "SELECT tb_Raccordi.NomeRaccordo, * FROM
tb_Raccordi WHERE
(((tb_Raccordi.idNomeGruppo)=forms!fr_ModificaVerbali!lbx_GruppoRaccordi));"
Me.lbx_Raccordi.Requery
End Sub
*******************************************************************
Saluti,
Paolo


title: SINCRONIZZARE 3 LISTBOX

text:


> 'aggiorna la lbx_GruppoRaccordi
> Me.lbx_GruppoRaccordi.Requery

> Me.lbx_Raccordi.Requery

Paolo ho provato ad eliminare l'evento click e inserire il codice in
AfterUpdate() come mi hai detto
ma non capisco non ne vuole sapere:
cioe se in A clicco su FRUTTA in B vedo ARANCIA se clicco su Arancia, in C
vedo SPREMUTA,
Poi se clicco NUOVAMENTE su A su VERDURA, in C vedo ancora SPREMUTA,
quando invece dovrebbe resettarsi ma non lo fa
uffiiiiiiiiii



title: SINCRONIZZARE 3 LISTBOX

text:
"Tony73" <
tony.s...@hotmail.it
> ha scritto nel messaggio
news:hmj5qb$m03$1...@news.newsland.it...

allora rivedi l'origine dati di C.
Ti ho inviato un sempio.
Saluti
Paolo


title: SINCRONIZZARE 3 LISTBOX

text:


> Saluti
> Paolo
Paolo scusami,
potresti inoltrarmi l'esempio a questa mail,  perche su hotmail me lo ha
bloccato?
domy...@gmail.com
Grazie !!!!!



title: SINCRONIZZARE 3 LISTBOX

author: Geppo

text:
Ciao Tony73 wrote:
> Seraaaaaa a tutti:
> Su una form ho 3 listbox:
> A,B,C
>
> Se clicco su A vedo gli elementi corrispondenti in B, se clicco su B
> vedo gli elementi corrispondenti in C.
>
> fino qui � Ok.
>
> da questa posizione
>
> se clicco di nuovo su A, allora B si aggiorna ed � ok, ma in C vedo
> ancora gli elementi precedenti, perche si aggiorni devo cliccare
> nuovamente su B.
>
>
> io quello che vorrei che quando riclicco su A in C non devo vedere
> nulla.
>
> Ho provato a mettere nell'evento click di A:
>
> me.C.requery (sotto la me.B.requery)
>
> Ma non funziona
>
> E' possibile correggere questa cosetta?
prova con:
me.c = null
--
Ciao
Geppo


title: disabilitazione avviso

author: Giuseppe

text:
Salve a tutto il NG.
In una maschera di inserimento con origine tblindennita ho una
controllo associato all'IdAzienda ed uno associato all'NDocumento. In
quest'ultimo su attivato ho il seguente codice:
NDocumento = IIf(NDocumento > 0, [NDocumento] + 0,
Nz(DMax("[nDocumento]", "[tblIndennita]", "[IDProgetto]= " & Forms!
[frmIndennita]![IDProgetto]), 0) + 1)
quindi in base all'IdAzienda viene assegnato un ndocumento
progressivo.
Se però attivo il controllo ndocumento senza aver selezionato
l'IdAzienda su evento gotfocus di quest'ultimo ho attivato la funzione
con un messaggio il quale avvisa che non è stata selezionata l'Azienda
e rimanda il focus al controllo IdAzineda, ma vorrei eliminare il
messaggio di errore di runtime 3075 - errore di sintassi (operatore
mancante) nell'espressione della query '[Idprogetto]'.
Ho provato a mettere prima di NDocumento = ecc...
la funzione DoCmd.SetWarnings True e dopo DoCmd.SetWarnings False ma
non lo evita.
Come posso non farlo apparire?
Grazie.
Giuseppe.


title: disabilitazione avviso

author: Carlo Costarella

text:
"Giuseppe" <
gcard...@tin.it
> ha scritto nel messaggio
news:b6531442-b042-4108...@m74g2000hsh.googlegroups.com...

Semplicemente controllando prima se è mancante IDProgetto o il valore che ti
serve...
Per esempio:
If NZ(dlookup("TuoCampo","TuaQuery"),0) = 0 then
'nessun documento selezionato...quindi
'fai l'operazione che vuoi
End if
Ciao, Carlo


title: disabilitazione avviso

text:
On 18 Ott, 09:31, "Carlo Costarella"
<
carloantoniocostare...@gmail.com
> wrote:
> "Giuseppe" <
gcardas...@tin.it
> ha scritto nel messaggionews:b6531442-b042-4108...@m74g2000hsh.googlegroups.com...

Non mi è chiaro "tuaQuery"
ho provato così e non funziona
If Nz(DLookup("IdProgetto", "tblIndennita"), 0) = 0 Then
NDocumento = IIf(NDocumento > 0, [NDocumento] + 0,
Nz(DMax("[nDocumento]", "[tblIndennita]", "[IDProgetto]= " & Forms!
[frmIndennita]![IDProgetto]), 0) + 1)
End If
End Sub
scusa potresti essere più specifico? Grazie.
Giuseppe.


title: disabilitazione avviso

text:
"Giuseppe" <
gcard...@tin.it
> ha scritto nel messaggio
news:e66a970c-053f-4ceb...@v72g2000hsv.googlegroups.com...
On 18 Ott, 09:31, "Carlo Costarella"
<
carloantoniocostare...@gmail.com
> wrote:
> "Giuseppe" <
gcardas...@tin.it
> ha scritto nel
> messaggionews:b6531442-b042-4108...@m74g2000hsh.googlegroups.com...
> Salve a tutto il NG.
> In una maschera di inserimento con origine tblindennita ho una
> controllo associato all'IdAzienda ed uno associato all'NDocumento. In
> quest'ultimo su attivato ho il seguente codice:
> NDocumento = IIf(NDocumento > 0, [NDocumento] + 0,
> Nz(DMax("[nDocumento]", "[tblIndennita]", "[IDProgetto]= " & Forms!
> [frmIndennita]![IDProgetto]), 0) + 1)
> quindi in base all'IdAzienda viene assegnato un ndocumento
> progressivo.
> Se perň attivo il controllo ndocumento senza aver selezionato
> l'IdAzienda su evento gotfocus di quest'ultimo ho attivato la funzione
> con un messaggio il quale avvisa che non č stata selezionata l'Azienda
> e rimanda il focus al controllo IdAzineda, ma vorrei eliminare il
> messaggio di errore di runtime 3075 - errore di sintassi (operatore
> mancante) nell'espressione della query '[Idprogetto]'.
> Ho provato a mettere prima di NDocumento = ecc...
> la funzione DoCmd.SetWarnings True e dopo DoCmd.SetWarnings False ma
> non lo evita.
> Come posso non farlo apparire?
> Grazie.
> Giuseppe.
>
> Semplicemente controllando prima se č mancante IDProgetto o il valore che
> ti
> serve...
> Per esempio:
> If NZ(dlookup("TuoCampo","TuaQuery"),0) = 0 then
> 'nessun documento selezionato...quindi
> 'fai l'operazione che vuoi
> End if
>
> Ciao, Carlo
Non mi č chiaro "tuaQuery"
ho provato cosě e non funziona
If Nz(DLookup("IdProgetto", "tblIndennita"), 0) = 0 Then
NDocumento = IIf(NDocumento > 0, [NDocumento] + 0,
Nz(DMax("[nDocumento]", "[tblIndennita]", "[IDProgetto]= " & Forms!
[frmIndennita]![IDProgetto]), 0) + 1)
End If
End Sub
scusa potresti essere piů specifico? Grazie.
Giuseppe.
---------------------
Per quello che ho capito non dovresti proprio far partire l'evento se manca
l'idazienda:
su attivato di NDocumento:
if isnull(me.IDAzienda) or Me.IdAzienda = 0 then
exit sub
'o quello che vuoi
End if
Poi devi controllare l'origine record della maschera o di una combo che
probabilmente fai cambiare al verificarsi di un certo evento.
Il mio č un esempio esemplificativo che naturalmente devi adattare...se
cerchi un valore e questo valore ti č fornito da una query che ha un
parametro č evidente che devi prima verificare se il parametro esiste.
Nel tuo caso sembra mancare IDProgetto (controlla anche se il campo si
chiama proprio cosě) oppure NDocumento.
Inoltre non ha senso scrivere [NDocumento] + 0, basta [NDocumento]; aggiungo
che non verifichi se [NDocumento] possa essere null.
Ciao, Carlo


title: disabilitazione avviso

text:
On 18 Ott, 10:36, "Carlo Costarella"
<
carloantoniocostare...@gmail.com
> wrote:
> "Giuseppe" <
gcardas...@tin.it
> ha scritto nel messaggionews:e66a970c-053f-4ceb...@v72g2000hsv.googlegroups.com...
> On 18 Ott, 09:31, "Carlo Costarella"
>
>
>
> <
carloantoniocostare...@gmail.com
> wrote:
> > "Giuseppe" <
gcardas...@tin.it
> ha scritto nel
> > messaggionews:b6531442-b042-4108...@m74g2000hsh.googlegroups.com...
> > Salve a tutto il NG.
> > In una maschera di inserimento con origine tblindennita ho una
> > controllo associato all'IdAzienda ed uno associato all'NDocumento. In
> > quest'ultimo su attivato ho il seguente codice:
> > NDocumento = IIf(NDocumento > 0, [NDocumento] + 0,
> > Nz(DMax("[nDocumento]", "[tblIndennita]", "[IDProgetto]= " & Forms!
> > [frmIndennita]![IDProgetto]), 0) + 1)
> > quindi in base all'IdAzienda viene assegnato un ndocumento
> > progressivo.
> > Se però attivo il controllo ndocumento senza aver selezionato
> > l'IdAzienda su evento gotfocus di quest'ultimo ho attivato la funzione
> > con un messaggio il quale avvisa che non è stata selezionata l'Azienda
> > e rimanda il focus al controllo IdAzineda, ma vorrei eliminare il
> > messaggio di errore di runtime 3075 - errore di sintassi (operatore
> > mancante) nell'espressione della query '[Idprogetto]'.
> > Ho provato a mettere prima di NDocumento = ecc...
> > la funzione DoCmd.SetWarnings True e dopo DoCmd.SetWarnings False ma
> > non lo evita.
> > Come posso non farlo apparire?
> > Grazie.
> > Giuseppe.
>
> > Semplicemente controllando prima se è mancante IDProgetto o il valore che
> > ti
> > serve...
> > Per esempio:
> > If NZ(dlookup("TuoCampo","TuaQuery"),0) = 0 then
> > 'nessun documento selezionato...quindi
> > 'fai l'operazione che vuoi
> > End if
>
> > Ciao, Carlo
>
> Non mi è chiaro "tuaQuery"
> ho provato così e non funziona
> If Nz(DLookup("IdProgetto", "tblIndennita"), 0) = 0 Then
> NDocumento = IIf(NDocumento > 0, [NDocumento] + 0,
> Nz(DMax("[nDocumento]", "[tblIndennita]", "[IDProgetto]= " & Forms!
> [frmIndennita]![IDProgetto]), 0) + 1)
> End If
> End Sub
> scusa potresti essere più specifico? Grazie.
> Giuseppe.
> ---------------------
>
> Per quello che ho capito non dovresti proprio far partire l'evento se manca
> l'idazienda:
> su attivato di NDocumento:
> if isnull(me.IDAzienda) or Me.IdAzienda = 0 then
> exit sub
> 'o quello che vuoi
> End if
> Poi devi controllare l'origine record della maschera o di una combo che
> probabilmente fai cambiare al verificarsi di un certo evento.
> Il mio è un esempio esemplificativo che naturalmente devi adattare...se
> cerchi un valore e questo valore ti è fornito da una query che ha un
> parametro è evidente che devi prima verificare se il parametro esiste.
> Nel tuo caso sembra mancare IDProgetto (controlla anche se il campo si
> chiama proprio così) oppure NDocumento.
> Inoltre non ha senso scrivere [NDocumento] + 0, basta [NDocumento]; aggiungo
> che non verifichi se [NDocumento] possa essere null.
>
> Ciao, Carlo
Tutto a posto Carlo, come desideravo.
Grazie. Ciao.
Giuseppe.


title: grafico lungo...

author: lorenzo

text:
ciao a tutti
problema visualizzazione grafico:
ho inserito un grafico di tipo gantt come oggetto ole (sorgente excel) in
una maschera .mdb.
questi tipi di grafici a base data (asse x) possono essere molto lunghi; è
quindi necessario poterli scorrere perchè siano leggibili nel loro
contenuto.
ma io leggo solo le opzioni ritaglia, ridimensiona e zoom nelle proprietà, e
non servono all'esigenza.
ho provato a creare un activex "microsoft scrollbar", ma non so come
associarla (o meglio "inglobarla") all'oggetto ole.
in parole povere avrei bisogno che il grafico in modalità maschera mi
scorresse a destra e sinistra ed in alto e in basso; come si può fare?
ringrazio anticipatamente tutti coloro che potranno rispondermi (sono nuovo
su questo ng, ma è incredibilmente attivo e serio, complimenti)
lorenzo


title: grafico lungo...

author: MegaMax

text:
> in parole povere avrei bisogno che il grafico in modalità maschera mi
> scorresse a destra e sinistra ed in alto e in basso; come si può fare?
probabilmente dico una scemenza....
e se provi a fare il grafico grande-grande-grande nella maschera e poi usi
le barre di scorrimento della maschera?
Max


title: grafico lungo...

text:
sì, ma non mi esce nessuna barra di scorrimento.
cioè, io il grafico in realtà l'ho inserito in un modulo a schede, in una
delle schede (ho selezionato la scheda, ho fatto inserisci oggetto e mi sono
andato a prendere l'.xls che mi interessava); tra l'altro access stesso  me
lo fa grande grande, ma poi quando da struttura passo a maschera vedo
parzialmente il grafico fino dove arriva dentro la maschera, ma non riesco a
muoverlo, è fisso, proprio come se fosse una immagine con opzione ritaglia
inserita.
forse che devo attivare qualche opzione di maschera che non trovo?
grazie
lorenzo
"MegaMax" <
a...@a.com
> ha scritto nel messaggio
news:o3T57.104410$q77.9...@news2.tin.it...



title: grafico lungo...

text:
"lorenzo" <
l...@studio-bmaggiora.it
> ha scritto nel messaggio
news:9j93bc$vd5$1...@news.flashnet.it...
> sì, ma non mi esce nessuna barra di scorrimento.
forse devi abilitare le barre di scorrimento nelle opzioni della maschera...
O forse devi ingrandire l'are dell'oggetto ole (lo selezioni, e clicchi sui
bordi)
O forse devi ingrandire l'oggetto ole dentro la sua area (lo selezioni, lo
doppioclicchi che vai in modalità edit, e poi lo ingrandisci... ma per fare
questo sia la maschera che l'area dedicata all'oggetto ole devono già essere
state ingrandite)
Max