title: Calcolo tra date nello stesso campo

author: MegaMax

text:
"MASSIMO COLUZZI" <
ghd...@tin.it
> ha scritto nel messaggio
news:HjH27.43232$q77.3...@news2.tin.it...
> Ragazzi chi può aiutarmi?
> Devo estrarre da un unico campo data per uno stesso dipendente, le volte
che
> la stessa data non è consecutiva faccio un esempio:
>
> Data            Dipendente    Risultato
> 01/01/01    Rossi
> 02/01/01    rossi
> 03/01/01    Rossi                    1
> 05/04/01    Rossi                    1
> 06/05/01    Rossi                    1
> 06/06/01    Rossi
> 07/06/01    Rossi                    1
>
> e così via, non sò se mi fatto capire. Grazie per l'eventuale aiuto
si può fare col codice (io avevo fastto così) ma mi viene un'idea per farlo
con delle query:
1) hai una query che ti da i dati da controllare, ogni record ha comunque
una chiave
2) crei una query basata sulla #1 che aggiunge iun campo che numera i record
in modo incrementale partendo da 1 (vedi sito comune per come farlo)
3) crei una query basata sulla #1 che aggiunge iun campo che numera i record
in modo incrementale partendo da 0 (vedi sito comune per come farlo)
4)crei una query che mette in join la #2 con la 3# SOLO sul campo numerico
incrementale che hai creato, e calcoli un campo "risultato" come 1 se le due
date sono non consecutive, 0 altrimenti
Ciao, Max


title: Per chi cerca corsi su Access in rete

author: Carlo Ve

text:
http://www.siade.com/manuali/manuale2.htm
Carlo Ve


title: Modifiche in un modulo di classe

author: vivace guevara

text:
Buon giorno a tutti.
Tempo fa, attraverso le sue procedure 'WithEvents', l'ottimo Karl mi ha
consentito di andare avanti con il mio lavoretto-passatempo. Ora chiedo
a lui e a chiunque altro - ovviamente - di risolvermi anche quest'altro
problema (collegato al modulo DI CLASSE Evidenzia_textbox...
dell'esempio 2 della citata raccolta 'WithEvents'). In detto modulo e
precisamente nella procedura 'Casella_BeforeUpdate' (o in altra
ppositamente creata), avrei necessitï¿œ di modificare il contenuto di
Casella
p.es
. cosï¿œ: Casella = Casella & "*". Ciï¿œ non ï¿œ consentito; un
messaggio mi avverte che sono "fuori tempo" per questa modifica.
Come risolvere la questione.
Ringraziamenti anticipati.
Nonno Vincenzo
--
nonno vincenzo


title: Modifiche in un modulo di classe

author: Roberto da Parma

text:
"vivace guevara" <
21937i...@mynewsgate.net
> ha scritto nel messaggio
news:201005121...@mynewsgate.net...

Cioï¿œ fammi capire bene...tu vorresti che in una casella venisse mandato il
valore della casella piï¿œ il carattere asterisco??
per es. se valore casella = 1 tu vorresti mandare 1* ????
come testo?
Spiegati meglio....
ciao
--
Roberto da Parma


title: Casella Ripilogo

author: Ferrari Rino

text:
Come eseguire una query di aggiornamento dalla selezione di una
casella di riepilogo, mi spiego:
In una casella di riepilogo ho una lista di documenti
dovrei lanciare una query di aggiornamento in base a selezione e come
Id la prima colonna della casella di riepilogo.
Usando nella query il filtro Forms!miaForm!Miacaselladiriepilogo non
funziona.
Grazie


title: Casella Ripilogo

author: Roberto da casa

text:
"Ferrari Rino" <
gen...@tin.it
> ha scritto nel messaggio
news:228174c2.0402...@posting.google.com...

Con Forms!miaForm!Miacaselladiriepilogo fai riferimento al valore della
colonna associata della riga selezionata: controlla quale è la colonna
associata della casella di riepilogo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Casella Ripilogo

author: FERRARI RINO

text:
Roberto da casa ha scritto:
> "Ferrari Rino" <
gen...@tin.it
> ha scritto nel messaggio
> news:228174c2.0402...@posting.google.com...
> > Come eseguire una query di aggiornamento dalla selezione di una
> > casella di riepilogo, mi spiego:
> > In una casella di riepilogo ho una lista di documenti
> > dovrei lanciare una query di aggiornamento in base a selezione e come
> > Id la prima colonna della casella di riepilogo.
> > Usando nella query il filtro Forms!miaForm!Miacaselladiriepilogo non
> > funziona.
> > Grazie
> Con Forms!miaForm!Miacaselladiriepilogo fai riferimento al valore della
> colonna associata della riga selezionata: controlla quale è la colonna
> associata della casella di riepilogo.
Ho provato con Forms!miaForm!Miacaselladiriepilogo (1)
ma non funziona come strutturare?
Ferrari Rino
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Casella Ripilogo

author: ALESSANDRO Baraldi

text:
"FERRARI RINO" <
rinof...@virgilio.it
> ha scritto nel messaggio
news:c0tlh0$sv$1...@news.newsland.it...
> Roberto da casa ha scritto:
>
> > "Ferrari Rino" <
gen...@tin.it
> ha scritto nel messaggio
> > news:228174c2.0402...@posting.google.com...
> > > Come eseguire una query di aggiornamento dalla selezione di una
> > > casella di riepilogo, mi spiego:
> > > In una casella di riepilogo ho una lista di documenti
> > > dovrei lanciare una query di aggiornamento in base a selezione e come
> > > Id la prima colonna della casella di riepilogo.
> > > Usando nella query il filtro Forms!miaForm!Miacaselladiriepilogo non
> > > funziona.
> > > Grazie
>
> > Con Forms!miaForm!Miacaselladiriepilogo fai riferimento al valore della
> > colonna associata della riga selezionata: controlla quale è la colonna
> > associata della casella di riepilogo.
>
>
>
> Ho provato con Forms!miaForm!Miacaselladiriepilogo (1)
>
> ma non funziona come strutturare?
>
> Ferrari Rino
Nelle QRY non funziona il passaggio del valore associato alla Colonna
di una Combo o List, di conseguenza devi usare un artifizio....!
Creati una Funzione Public in un modulo:
Public retComboCol(strForm as string, strControl as string, intCol as
integer) as variant
    retComboCol=Forms(strform).Controls(strControl).Clumn(intCol)
End Function
Dalla Qry inserisci nella riga Criterio
=retComboCol("miaForm";"MiacaselladiRiepilogo",1)
Ciao-
@Alex.


title: Casella Ripilogo

text:
ALESSANDRO Baraldi ha scritto:





> Ciao-
> @Alex.
Grazie Alex ti faro sapere.



title: Casella Ripilogo

text:
Ciao  Alex eseguendo la Qry
facendo in essa riferimento Criterio
=retComboCol("miaForm";"MiacaselladiRiepilogo";1)
 (come da funzione "retComboCol"prima strutturata) mi da il seguente errore:
Proprietà o metodo non supportati dall'oggetto
quale la causa?
Ferrari Rino


title: Casella Ripilogo

author: MA

text:
"Ferrari Rino" <
rinof...@virgilio.it
> ha scritto nel messaggio
news:c0vgip$2h4c$1...@ulysses.news.tiscali.de...

Dao
MAssimiliano


title: Casella Ripilogo

text:
 > Ciao  Alex eseguendo la Qry
> > facendo in essa riferimento Criterio
> >
> > =retComboCol("miaForm";"MiacaselladiRiepilogo";1)
> >  (come da funzione "retComboCol"prima strutturata) mi da il seguente
> errore:
> > Proprietà o metodo non supportati dall'oggetto
> >
> > quale la causa?
> >
> > Ferrari Rino
> Dao
> MAssimiliano
>
> Quindi ?
Ferrari Rino


title: [A2002] Ver. Developer e "creazione guidata pacchetti"

author: Setec Astronomy

text:
Salve,
Ho da poco installato la versione Developer di Office XP e mi accingevo a
realizzare un pacchetto di installazione.
Dopo aver seguito tutta la procedura e cliccato su fine mi viene richiesto
di selezionare una cartella, dopo averlo fatto si apre la finestra Crea
Pacchetto e, durante la copia del file C:\Program Files\Microsoft Office
Developer\Packaging Wizard\redist\1040\setup1.exe viene sollevato un errore:
Errore 5: chiamata di routine o arcgomento non valido.
Utilizzo Office XP SP2
e Windows 2000 SP3.
Sapete per caso dirmi cosa posso fare per farlo sunzionare.
Grazie.


author: Tiziano

text:
"Setec Astronomy" <

Ti do un consiglio da amico (esperienze maturate già col 2000): utilizza
qualcos'altro per prepare il Setup di registrazione componenti e creazione
cartelle programmi.
Il Runtime vero e proprio ha un suo Setup con win Installer che non da
problemi.
Ciao, Tiziano


author: yQy

text:
"Setec Astronomy" <
se...@freemail.it
> ha scritto nel messaggio
news:sHcA9.22585$Zn2.6...@twister1.libero.it...
> Errore 5: chiamata di routine o arcgomento non valido.
> Utilizzo Office XP SP2
> e Windows 2000 SP3.
> Sapete per caso dirmi cosa posso fare per farlo sunzionare.
> Grazie.
Prova con un altro installer..magari Inno Setup.


text:
"Tiziano" <
tiziano....@nospam.it
> wrote in message
news:mxdA9.22467$8E3.6...@twister2.libero.it...
[cut]
> Ti do un consiglio da amico (esperienze maturate già col 2000): utilizza
> qualcos'altro per prepare il Setup di registrazione componenti e creazione
> cartelle programmi.
> Il Runtime vero e proprio ha un suo Setup con win Installer che non da
> problemi.
Ti ringrazio, per il momento sono riuscito a risolvere il problema con
l'installer del developer.
Saluti.


text:
"Setec Astronomy" <
> [cut]
> > Ti do un consiglio da amico (esperienze maturate già col 2000): utilizza
> > qualcos'altro per prepare il Setup di registrazione componenti e
creazione
> > cartelle programmi.
> > Il Runtime vero e proprio ha un suo Setup con win Installer che non da
> > problemi.
> Ti ringrazio, per il momento sono riuscito a risolvere il problema con
> l'installer del developer.
Avrai in futuro altri problemi...
Piuttosto, fammi una cortesia: il pacchetto Dev che hai sottomano contiene i
Service Packs?
Voglio dire, è possibile patchare il Runtime a SP-2?


author: Enzo

text:
Vorrei contare  quanti nominativi ci sono in ogni Ufficio,
Esempio :
Nominativo     Ufficio
Qui                    Personale
Quo                   Personale
Qua                   Ragioneria
Risultato :
Personale : 2
Ragioneria: 1
Questo il codice SQL :
SELECT Anagrafico.Nominativo, Anagrafico.Livello,
Anagrafico.[Lab/Sett/Ufficio/Servizio],
DCount(Anagrafico!Nominativo,"Anagrafico",[Lab/Sett/Ufficio/Servizio]="*")
AS [Personale Afferente]
FROM Anagrafico
WHERE (((Anagrafico.Coordinatore)="si") AND ((Anagrafico.Al) Is Null Or
(Anagrafico.Al)>Date()))
ORDER BY Anagrafico.Nominativo;
grazie. ciao


text:
"Enzo" <
nimzo...@yahoo.it
> ha scritto nel messaggio
news:aradnc$g66mf$1...@ID-24065.news.dfncis.de...

Scusami, ma perché ti inserisci all'interno di un thread che ha un'altro
subject e non crei un nuovo thread???
Prova con una query di raggruppamento che abbia il seguente codice SQL:
SELECT Anagrafico.[Lab/Sett/Ufficio/Servizio], Count(Anagrafico.Nominativo)
AS ConteggioDiNominativo
FROM Anagrafico
WHERE (((Anagrafico.Coordinatore)="si") AND ((Anagrafico.Al) Is Null Or
(Anagrafico.Al)>Date()))
GROUP BY Anagrafico.[Lab/Sett/Ufficio/Servizio];
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
> Scusami, ma perché ti inserisci all'interno di un thread che ha un'altro
> subject e non crei un nuovo thread???
non so cosa è successo (?)
>
> Prova con una query di raggruppamento che abbia il seguente codice SQL:
>
> SELECT Anagrafico.[Lab/Sett/Ufficio/Servizio],
Count(Anagrafico.Nominativo)
> AS ConteggioDiNominativo
> FROM Anagrafico
> WHERE (((Anagrafico.Coordinatore)="si") AND ((Anagrafico.Al) Is Null Or
> (Anagrafico.Al)>Date()))
> GROUP BY Anagrafico.[Lab/Sett/Ufficio/Servizio];
>
grazie!!


text:
> > Prova con una query di raggruppamento che abbia il seguente codice SQL:
> >
> > SELECT Anagrafico.[Lab/Sett/Ufficio/Servizio],
> Count(Anagrafico.Nominativo)
> > AS ConteggioDiNominativo
> > FROM Anagrafico
> > WHERE (((Anagrafico.Coordinatore)="si") AND ((Anagrafico.Al) Is Null Or
> > (Anagrafico.Al)>Date()))
> > GROUP BY Anagrafico.[Lab/Sett/Ufficio/Servizio];
Cosi facendo ottengo come risultato : 1 per ogni ufficio .
Ho pensato di modificare creando due query :
Query Coordinatori :
SELECT DISTINCT Anagrafico.Nominativo, Anagrafico.Livello,
Anagrafico.[Lab/Sett/Ufficio/Servizio], Coordinatori2.ConteggioDiNominativo
AS [Personale Afferente]
FROM Anagrafico INNER JOIN Coordinatori2 ON
Anagrafico.[Lab/Sett/Ufficio/Servizio] =
Coordinatori2.[Lab/Sett/Ufficio/Servizio]
WHERE (((Anagrafico.Coordinatore)="si") AND ((Anagrafico.Al) Is Null Or
(Anagrafico.Al)>Date()))
GROUP BY Anagrafico.Nominativo, Anagrafico.Livello,
Anagrafico.[Lab/Sett/Ufficio/Servizio], Coordinatori2.ConteggioDiNominativo;
QueryCoordinatori2:
SELECT Anagrafico.[Lab/Sett/Ufficio/Servizio], Count(Anagrafico.Nominativo)
AS ConteggioDiNominativo
FROM Anagrafico
WHERE (((Anagrafico.Al) Is Null Or (Anagrafico.Al)>Date()))
GROUP BY Anagrafico.[Lab/Sett/Ufficio/Servizio];
Cosi funziona bene, solo che c'č un particolare che avevo dimenticato :
ci sono due persone esterne non dipendenti (2 professionisti), che sono
Coordinatori di 2 Uffici, ovviamente non sono compresi nella tabella
Anagrafico. Ho cosě creato una tabella "Esterni", e una query sulla stessa :
QueryCoordinatoriEsterni
SELECT DISTINCTROW Esterni.Nominativo, Esterni.[Lab/Sett/Ufficio/Servizio],
Coordinatori2.ConteggioDiNominativo AS [Personale Afferente]
FROM Esterni INNER JOIN Coordinatori2 ON Esterni.[Lab/Sett/Ufficio/Servizio]
= Coordinatori2.[Lab/Sett/Ufficio/Servizio];
Si puň mettere tutto in unica query ?
Come si puň semplificare il tutto ?
Lo scopo č creare un report con questa struttura :
Nome del Coordinatore, Ufficio Coordinato, numero dipendenti di ogni
ufficio.
grazie.ciao.


author: Sib

text:
"Tiziano" <
tiziano....@nospam.it
> ha scritto nel messaggio
> "Setec Astronomy" <
> > Salve,
> > Ho da poco installato la versione Developer di Office XP e mi accingevo
a
> > realizzare un pacchetto di installazione.
> > Dopo aver seguito tutta la procedura e cliccato su fine mi viene
richiesto
> > di selezionare una cartella, dopo averlo fatto si apre la finestra Crea
> > Pacchetto e, durante la copia del file C:\Program Files\Microsoft Office
> > Developer\Packaging Wizard\redist\1040\setup1.exe viene sollevato un
cut
> Ti do un consiglio da amico (esperienze maturate già col 2000): utilizza
> qualcos'altro per prepare il Setup di registrazione componenti e creazione
> cartelle programmi.
Sono in totale disaccordo.
AXP non a nulla a che vedere con A2000. sono completamente diversi.
Io ho vari pc su cui gira il developer e non ha mai dato nessun tipo di
problema.
> Il Runtime vero e proprio ha un suo Setup con win Installer che non da
> problemi.
Che vuoi dire?
Sib


text:
"Setec Astronomy" <
se...@freemail.it
> ha scritto nel messaggio

Hai provato a installare il developer su altre macchine?
sib


text:
"Sib" <
> > Ti do un consiglio da amico (esperienze maturate già col 2000): utilizza
> > qualcos'altro per prepare il Setup di registrazione componenti e
creazione
> > cartelle programmi.
> Sono in totale disaccordo.
Male, molto male!
> AXP non a nulla a che vedere con A2000
???
> sono completamente diversi.
Affermazione curiosa e irrazionale, considerando che il 90% delle componenti
(a partire dal motore) sono le stesse.
Ma il punto è un altro: continui a sostenere che A '2000 sia una schifezza,
ma in verità funziona piuttosto bene.
Io e i miei collaboratori distribuiamo da due anni col Runtime '2000 e
abbiamo diverse decine d'installazioni all'attivo di una gestione aziendale
e contabile che definerei *grossa*.
Tuttavia, proprio alla luce di questa esperienza, mi permetto di affermare
che il Setup di Office Developer 2000 (lo stesso di 'XP) sia una schifezza.
Spesso la registrazione di .OCX non va a buon fine, a volte la procedura
d'installazione va in loop _di solito su win '9x_, il layout è rigido, è un
problema perfino personalizzare le iconcine delle stringhe d'avvio dei
programmi o creare chiavi di registro in fase di Setup.
Era più flessibile (e personalizzabile con un pò di coraggio) perfino il
Setup di Office Developer '97!!
Se tu lavorassi con altri ambienti (tipo Delphi che Setect conosce bene)
prenderesti in considerazione altri prodotti per generare il Setup
d'installazione dei programmi, tipo Inno Setup.
> Io ho vari pc su cui gira il developer e non ha mai dato nessun tipo di
> problema.
Infatti l'Access Runtime ha sempre funzionato benissimo (e te credo, *è*
Access!).
A dare problemi, spesso, è il maledetto Setup d'installazione dei programmi
... quando avrai sperimentato ciò su un centinaio di PC aziendali, ne
riparliamo caro mio ;-)
> > Il Runtime vero e proprio ha un suo Setup con win Installer che non da
> > problemi.
> Che vuoi dire?
La pura verità.
Il Runtime di Access (vedi cartella Runtime) ha un suo Setup d'installazione
separato da quello in stile VB che "tenta" di creare le cartelle dei tuoi
programmi, registrare eventuali .OCX, creare le iconcine d'avvio.
Il Runtime può essere installato separatamente dai programmi, esattamente
come fai con "Full Access".
Saluti.


text:
"Tiziano" <tizi...@Spam.it> ha scritto nel messaggio
cut
> > AXP non a nulla a che vedere con A2000
> ???
> > sono completamente diversi.
>
> Affermazione curiosa e irrazionale, considerando che il 90% delle
componenti
> (a partire dal motore) sono le stesse.
a me sembra di ricordare, invece, che la versione developer di A2000 in
italiano non abbia mai funzionato, mentresono certo di ricordare i crasch di
A2000 durante il funzionamento in particolari condizioni di "pressione" che
invece AXP non ha mai manifestato (anche senza SP)
> Ma il punto è un altro: continui a sostenere che A '2000 sia una
schifezza,
> ma in verità funziona piuttosto bene.
Anche Win 98 funziona "piuttosto bene" ma non per questo consiglierei a un
mio cliente di usarlo per far girare programmi importanti per l'azienda.
> Io e i miei collaboratori distribuiamo da due anni col Runtime '2000 e
> abbiamo diverse decine d'installazioni all'attivo di una gestione
aziendale
> e contabile che definerei *grossa*.
Ma un gestionale e' grosso per definizione, lo si definisce un "piccolo
gestionale" quando gestisce 2 utenti e poche decine di migliaia di record.
> Tuttavia, proprio alla luce di questa esperienza, mi permetto di affermare
> che il Setup di Office Developer 2000 (lo stesso di 'XP) sia una
schifezza.
> Spesso la registrazione di .OCX non va a buon fine, a volte la procedura
> d'installazione va in loop _di solito su win '9x_, il layout è rigido, è
un
> problema perfino personalizzare le iconcine delle stringhe d'avvio dei
> programmi o creare chiavi di registro in fase di Setup.
> Era più flessibile (e personalizzabile con un pò di coraggio) perfino il
> Setup di Office Developer '97!!
Vero, il developer 97 era molto piu' configurabile (si trattava in effetti
di un mdb che alla fine creava i file di setup).
Vero e' anche che su versioni precedenti a Win98SE il setup non va sempre a
buon fine, ma personalmente non consiglio mai a un cliente di far girare una
applicazione gestionale su qualcosa di meno di Win2000.
> Se tu lavorassi con altri ambienti (tipo Delphi che Setect conosce bene)
> prenderesti in considerazione altri prodotti per generare il Setup
> d'installazione dei programmi, tipo Inno Setup.
Quali altri ambienti io conosca non lo sai tu come non lo sa nessuno ,
quindi la tua affermazione mi sembra quanto meno azzardata.
Ad ogni modo e' di Access ODE che sctiamo parlando, e dato che e' uno
strumento che devi per forza possedere per distribuire la tua applicazione
(e' una questione di licenza piu' che tecnica) non c'e' motivo di prendere
in considerazione altri prodotti quando quello che hai non ti da problemi.
> > Io ho vari pc su cui gira il developer e non ha mai dato nessun tipo di
> > problema.
>
> Infatti l'Access Runtime ha sempre funzionato benissimo (e te credo, *è*
> Access!).
> A dare problemi, spesso, è il maledetto Setup d'installazione dei
programmi
Guarda che io parlavo dei nostri pc dove sviluppiamo.
> ... quando avrai sperimentato ciò su un centinaio di PC aziendali, ne
> riparliamo caro mio ;-)
Non che io mi senta minimamente in competizione con te, ma cosa ti fa
pensare che io non abbia fatto centinaia di installazioni?
> > > Il Runtime vero e proprio ha un suo Setup con win Installer che non da
> > > problemi.
>
> > Che vuoi dire?
>
> La pura verità.
cut
> Il Runtime può essere installato separatamente dai programmi, esattamente
> come fai con "Full Access".
Si', non avevo capito che legavi questa operazione alla precedente per avere
un'installazione completa.
Sib


text:
"Sib" <
> a me sembra di ricordare, invece, che la versione developer di A2000 in
> italiano non abbia mai funzionato, mentresono certo di ricordare i crasch
di
> A2000 durante il funzionamento in particolari condizioni di "pressione"
che
> invece AXP non ha mai manifestato (anche senza SP)
Ripeto, parliamo di Office Developer editon 1.5, che venne distribuita un
anno dopo quella realese.
Funziona benissimo.
> > Ma il punto è un altro: continui a sostenere che A '2000 sia una
> schifezza,
> > ma in verità funziona piuttosto bene.
> Anche Win 98 funziona "piuttosto bene" ma non per questo consiglierei a un
> mio cliente di usarlo per far girare programmi importanti per l'azienda.
Non centra un fico secco: Access 'XP è il fratellino maggiore di Access
'2000, distribuito sul mercato pochi mesi dopo il rilascio degli ultimi
Service pack per Office 2000.
Stesso motore, stesso editor VB, stesse componenti per l'accesso ai dati,
stessa architettura (32 bit).
... ma forse hai soltanto voglia di trollare, come facevi con Borrelli la
settimana scorsa.
In tal caso basta dirlo che chiudo.
> > Io e i miei collaboratori distribuiamo da due anni col Runtime '2000 e
> > abbiamo diverse decine d'installazioni all'attivo di una gestione
> aziendale
> > e contabile che definerei *grossa*.
> Ma un gestionale e' grosso per definizione, lo si definisce un "piccolo
> gestionale" quando gestisce 2 utenti e poche decine di migliaia di record.
No comment!
> Vero, il developer 97 era molto piu' configurabile (si trattava in effetti
> di un mdb che alla fine creava i file di setup).
> Vero e' anche che su versioni precedenti a Win98SE il setup non va sempre
a
> buon fine, ma personalmente non consiglio mai a un cliente di far girare
una
> applicazione gestionale su qualcosa di meno di Win2000.
Tu gli consigli quello che ti pare, poi lui decide!
Ma dove vivi??
> > Se tu lavorassi con altri ambienti (tipo Delphi che Setect conosce bene)
> > prenderesti in considerazione altri prodotti per generare il Setup
> > d'installazione dei programmi, tipo Inno Setup.
> Quali altri ambienti io conosca non lo sai tu come non lo sa nessuno ,
> quindi la tua affermazione mi sembra quanto meno azzardata.
Non è azzardata, bastano una decina di post per valutare le tue esperienze
di programmazione (e il numero d'installazioni con Access 'XP Dev.)
Ciao.


text:
"Tiziano" <tizi...@Spam.it> ha scritto nel messaggio
> "Sib" <
cut
> ... ma forse hai soltanto voglia di trollare, come facevi con Borrelli la
> settimana scorsa.
> In tal caso basta dirlo che chiudo.
Chiudi quello che ti pare. Comunque mi pare di aver chiuso io quella
"trollata" dimostrando di aver ragione.
> > > Io e i miei collaboratori distribuiamo da due anni col Runtime '2000 e
> > > abbiamo diverse decine d'installazioni all'attivo di una gestione
> > aziendale
> > > e contabile che definerei *grossa*.
>
> > Ma un gestionale e' grosso per definizione, lo si definisce un "piccolo
> > gestionale" quando gestisce 2 utenti e poche decine di migliaia di
record.
>
> No comment!
Anche perche' hai poco da commentare
cut
> Tu gli consigli quello che ti pare, poi lui decide!
> Ma dove vivi??
Nel mondo in cui il programmatore, essendosi guadagnato la fiducia del
cliente, ha il potere di dare il giusto suggerimento.
I miei clienti mi chiedono: ho questo problema, cosa devo fare? e io gli
dico: ti server questo HW e questo SW, e loro lo comprano (anche perche' con
me hanno imparato che se gli dico in un certo modo c'e' un motivo e hanno
visto che quando non hanno seguito i miei suggerimenti si sono trovati male)
cut
> Non è azzardata, bastano una decina di post per valutare le tue esperienze
> di programmazione (e il numero d'installazioni con Access 'XP Dev.)
Mettimola cosi' tiziano, data la tua smisurata presunzione, il tuo
egocentrismo e la tua spiccata tendenza all'offesa personale, evitiamoci
reciprocamente cosi' evitiamo discussioni, ognuno si fa i cazzi suoi e
viviamo felici.
Sib


text:
"Sib" <
> > ... ma forse hai soltanto voglia di trollare, come facevi con Borrelli
la
> > settimana scorsa.
> > In tal caso basta dirlo che chiudo.
> Chiudi quello che ti pare. Comunque mi pare di aver chiuso io quella
> "trollata" dimostrando di aver ragione.
Va bene, avevi ragione.
Ciao.


title: ci riprovo con la chiamata di funzioni autodefinite

author: K

text:
La funzione che ho scritto è la seguente. Gira regolarmente, ma la query di
aggiornamento cancella il contenuto dei campi.
Sono sul disperato.
Public Function SeparaCF(CF As String)
Dim a1 As String, a2 As String, a3 As String, a4 As String, a5 As String
Dim a6 As String, a7 As String, a8 As String, a9 As String, a10 As String
Dim a11 As String, a12 As String, a13 As String, a14 As String, a15 As
String
Dim a16 As String
If CF Like "????????????????" Then
    GoTo CodiceFis
ElseIf CF Like "###########" Then
    GoTo Partita
End If
CodiceFis:
a1 = Left$(CF, 1) 'assegna il risultato di Left$ alla variabile a1
   CF = Replace(CF, a1, "", 1, 1, 1) 'e rimpiazza tale stringa con ""
a2 = Left$(CF, 1)
   CF = Replace(CF, a2, "", 1, 1, 1)
a3 = Left$(CF, 1)
   CF = Replace(CF, a3, "", 1, 1, 1)
a4 = Left$(CF, 1)
   CF = Replace(CF, a4, "", 1, 1, 1)
a5 = Left$(CF, 1)
   CF = Replace(CF, a5, "", 1, 1, 1)
a6 = Left$(CF, 1)
   CF = Replace(CF, a6, "", 1, 1, 1)
a7 = Left$(CF, 1)
   CF = Replace(CF, a7, "", 1, 1, 1)
a8 = Left$(CF, 1)
   CF = Replace(CF, a8, "", 1, 1, 1)
a9 = Left$(CF, 1)
   CF = Replace(CF, a9, "", 1, 1, 1)
a10 = Left$(CF, 1)
   CF = Replace(CF, a10, "", 1, 1, 1)
a11 = Left$(CF, 1)
   CF = Replace(CF, a11, "", 1, 1, 1)
a12 = Left$(CF, 1)
   CF = Replace(CF, a12, "", 1, 1, 1)
a13 = Left$(CF, 1)
   CF = Replace(CF, a13, "", 1, 1, 1)
a14 = Left$(CF, 1)
   CF = Replace(CF, a14, "", 1, 1, 1)
a15 = Left$(CF, 1)
   CF = Replace(CF, a15, "", 1, 1, 1)
a16 = Left$(CF, 1)
   CF = Replace(CF, a16, "", 1, 1, 1)
CF = a1 & "  " & a2 & "  " & a3 & "  " & a4 & "  " & a5 & "  " & _
     a6 & "  " & a7 & "  " & a8 & "  " & a9 & "  " & a10 & "  " & _
     a11 & "  " & a12 & "  " & a13 & "  " & a14 & "  " & a15 & "  " & a16
GoTo Fine:
Partita:
a1 = Left$(CF, 1)
   CF = Replace(CF, a1, "", 1, 1, 1)
a2 = Left$(CF, 1)
   CF = Replace(CF, a2, "", 1, 1, 1)
a3 = Left$(CF, 1)
   CF = Replace(CF, a3, "", 1, 1, 1)
a4 = Left$(CF, 1)
   CF = Replace(CF, a4, "", 1, 1, 1)
a5 = Left$(CF, 1)
   CF = Replace(CF, a5, "", 1, 1, 1)
a6 = Left$(CF, 1)
   CF = Replace(CF, a6, "", 1, 1, 1)
a7 = Left$(CF, 1)
   CF = Replace(CF, a7, "", 1, 1, 1)
a8 = Left$(CF, 1)
   CF = Replace(CF, a8, "", 1, 1, 1)
a9 = Left$(CF, 1)
   CF = Replace(CF, a9, "", 1, 1, 1)
a10 = Left$(CF, 1)
   CF = Replace(CF, a10, "", 1, 1, 1)
a11 = Left$(CF, 1)
   CF = Replace(CF, a11, "", 1, 1, 1)
CF = a1 & "  " & a2 & "  " & a3 & "  " & a4 & "  " & a5 & "  " & _
         a6 & "  " & a7 & "  " & a8 & "  " & a9 & "  " & a10 & "  " & a11
Fine:
End Function


author: Alessandro Cara

text:
K wrote:
>
> La funzione che ho scritto è la seguente. Gira regolarmente, ma la query di
> aggiornamento cancella il contenuto dei campi.
> Sono sul disperato.
>
[cut]
> CF = a1 & "  " & a2 & "  " & a3 & "  " & a4 & "  " & a5 & "  " & _
>          a6 & "  " & a7 & "  " & a8 & "  " & a9 & "  " & a10 & "  " & a11
"magara" se questa la scrivi cosi' va meglio
separaCF = a1 & "  " & a2 & "  " & a3 & "  " & a4 & "  " & a5 & "  " & _
          a6 & "  " & a7 & "  " & a8 & "  " & a9 & "  " & a10 & "  " & a11
--
a.cara
Togli qualcosa dall'email


text: Grazie :)


title: Openrecordset: attributo non valido

author: Zampalunga

text:
Ciao,
sto impazzendo, ho copia-incollato il codice da un file all'altro e ho
cancellato tre righe che non servono più.
Premesso che la tabella CONTACT esiste e non è aperta da altre parti di
codice, questo è quello che scrivo:
Questo funziona:
----
Private Sub comando0_Click()
auto
DoCmd.RunSQL ("UPDATE GLOBAL SET [inventory]=0 WHERE [inventory] is Null;")
DoCmd.OpenQuery ("Accoda UTC")
DoCmd.OpenQuery ("Accoda BVI2")
Dim rs As Recordset
Dim subject1, to_1, cc1, attach1, message1, msg_it, msg_gr As String
     Dim intMaxCol As Integer
     Dim intMaxRow As Integer
     Dim objXL As Excel.Application
     Dim objWkb As Workbook
     Dim objSht As Worksheet
     Dim week_no As String, week_n As String
     Dim old_week_no As String, old_week_n As String
     Dim n As Integer
     Dim desc, part_no, prod_line, prod_line_tit As String

           'RIEMPI IL FILE
      Dim rs1 As Recordset
        Set rs1 = CurrentDb.OpenRecordset("Select * FROM contact Order BY
[Company Name]", dbOpenSnapshot)
---
Se invece scrivo:
Private Sub comando0_Click()
auto
Dim rs As Recordset
Dim subject1, to_1, cc1, attach1, message1, msg_it, msg_gr As String
     Dim intMaxCol As Integer
     Dim intMaxRow As Integer
     Dim objXL As Excel.Application
     Dim objWkb As Workbook
     Dim objSht As Worksheet
     Dim week_no As String, week_n As String
     Dim old_week_no As String, old_week_n As String
     Dim n As Integer
     Dim desc, part_no, prod_line, prod_line_tit As String

           'RIEMPI IL FILE
      Dim rs1 As Recordset
        Set rs1 = CurrentDb.OpenRecordset("Select * FROM contact Order BY
[Company Name]", dbOpenSnapshot)
---
Mi si blocca e mi dice Runtime error 3001 "Argomento non valido"
Per favore aiutatemi perchè non so che pesci prendere!
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Openrecordset: attributo non valido

author: namor

text:
Zampalunga ha scritto:
> Ciao,
> sto impazzendo, ho copia-incollato il codice da un file all'altro e ho
> cancellato tre righe che non servono più.
> Premesso che la tabella CONTACT esiste e non è aperta da altre parti di
> codice, questo è quello che scrivo:
>   Dim rs1 As Recordset
>   Set rs1 = CurrentDb.OpenRecordset("Select * FROM contact Order BY
> [Company Name]", dbOpenSnapshot)
> Mi si blocca e mi dice Runtime error 3001 "Argomento non valido"
> Per favore aiutatemi perchè non so che pesci prendere!
Se hai incollato il codice in un nuovo db A2000 o successivo ti
mancheranno i riferimenti alla libreria Microsoft DAO. Vai su
strumenti/riferimenti e aggiungili. Puoi togliere il riferimento ad ADO se
non lo usi.
> Dim subject1, to_1, cc1, attach1, message1, msg_it, msg_gr As String
Questo dichiara solo l'ultima variabile come stringa, le altre saranno
variant. Devi ripetere "As String" per ogni variabile.
Namor
--
namor at inwind punto it



title: Openrecordset: attributo non valido

author: Sergio MAZZA

text:

"auto" cosa rappresenta? Una Subroutine?
Sei sicuro che si blocca sulla OpenRecordset?
Alla fine della routine e nella gestione degli errori (che non vedo)
distruggi tutti gli oggetti creati (es. set rs = nothing)?
Ciao.
--
Sergio MAZZA


title: impostare da codice acapo su campo report

author: Thomas

text:
salve
ho una textbox non associata in un report chiamata DescrizioneArticolo2
via codice la associo con la seguente istruzione:
if opzStampaCodice=vbyes then
    Me.DescrizioneArticolo2.ControlSource = "='Cod. ' & [codarticolo] & '  -
' & [DescrizioneArticolo]"
    else
    Me.DescrizioneArticolo2.ControlSource = "[DescrizioneArticolo]"
end if
Tutto funziona ma vorrei che nel caso di  opzStampaCodice=vbyes la
descrizione dell'articolo iniziasse dopo un acapo del codice articolo.
Quindi non  Cod. AA001 - PIPPO
ma  Cod AA001
       Pippo
Ho provato con un  "='Cod. ' & [codarticolo] & chr(13) &
[DescrizioneArticolo]"
ma non funziona
Esiste il modo?
Ciao, T.


text:
scusate risolto
ciao, T.


author: Karl Donaubauer

text:

Inserire interruzioni di riga
www.donkarl.com/it?FAQ2.14

--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: icona su systray adattamento ad AcessXp, come???

author: Claudio

text:
Salve a tutti
sto cercando di far funzionare quel fantastico esempio (di Alex credo)
presente su sitocomune per un'icona sulla systray e relativo menů
ahimč usando AccessXP mi da logicamente errore "impossibile trovare
vba323.dll"
sulla modifica da fare, essendo alle prime armi con VBA, mi sono proprio
fermato
qualcuno č cosě magnanimo (magari Alex :) ) da indirizzarmi su sto benedetto
SubClassing
Grassie
Domi


author: Alessandro Baraldi

text:
"Claudio" <
re...@i2000net.it
> wrote in message
news:43d3f6b2$0$13144$
4faf...@reader3.news.tin.it

Indicami qual'č il DEMO in questione, gli dň un'occhiata e ti faccio
sapere come modificarlo..!
La prima cosa che mi viene in mente č che A97 non dispone in modo
nativo della chiamata AddressOf che viene Emulata con la funzione
AddrOf nel modulo a parte.
Potresti provare a rimuoverla e sostituire la chiamata a SetWindowLong
con quella Nativa(AddressOf) presente da A2000.
Non posso essere piů preciso in quanto non ricordo il Demo in questione
e me lo devo scaricare per rivederlo.
Per il SubClassing č una tecnica abbastanza inusuale in Access
ma molto potente, vediamo se nei prossimi mesi si puň organizzare
un Tutorial, magari alla CISA2.
Fammi sapere se hai risolto.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
"> Indicami qual'è il DEMO in questione, gli dò un'occhiata e ti faccio
> sapere come modificarlo..!
ciaio Alex sapevo che avresti risposto
il DEMO è il
n.ro
 6.113 nella sez General di Sitocomune
realizato da te, appunto "Inserire un'icona nella SysTray di Windows e
creare un Menù Popup Runtime personalizzato con le API "
> La prima cosa che mi viene in mente è che A97 non dispone in modo
> nativo della chiamata AddressOf che viene Emulata con la funzione
> AddrOf nel modulo a parte.
> Potresti provare a rimuoverla e sostituire la chiamata a SetWindowLong
> con quella Nativa(AddressOf) presente da A2000.
Il problema è proprio questo, eliminare il richiamo alla funziono AddrOf ed
utilizzare la nativa AddressOff
Non saprei proprio come fare non ci sono riuscito
> Non posso essere più preciso in quanto non ricordo il Demo in questione
> e me lo devo scaricare per rivederlo.
>
> Per il SubClassing è una tecnica abbastanza inusuale in Access
> ma molto potente, vediamo se nei prossimi mesi si può organizzare
> un Tutorial, magari alla CISA2.
>
> Fammi sapere se hai risolto.
Ahimè non ho proprio risolto
spero tu  mi possa aiutare
Domi
> @Alex
>


text:
"> Indicami qual'è il DEMO in questione, gli dò un'occhiata e ti faccio
> sapere come modificarlo..!
ciaio Alex sapevo che avresti risposto
il DEMO è il
n.ro
 6.113 nella sez General di Sitocomune
realizato da te, appunto "Inserire un'icona nella SysTray di Windows e
creare un Menù Popup Runtime personalizzato con le API "
> La prima cosa che mi viene in mente è che A97 non dispone in modo
> nativo della chiamata AddressOf che viene Emulata con la funzione
> AddrOf nel modulo a parte.
> Potresti provare a rimuoverla e sostituire la chiamata a SetWindowLong
> con quella Nativa(AddressOf) presente da A2000.
Il problema è proprio questo, eliminare il richiamo alla funziono AddrOf ed
utilizzare la nativa AddressOff
Non saprei proprio come fare non ci sono riuscito
> Non posso essere più preciso in quanto non ricordo il Demo in questione
> e me lo devo scaricare per rivederlo.
>
> Per il SubClassing è una tecnica abbastanza inusuale in Access
> ma molto potente, vediamo se nei prossimi mesi si può organizzare
> un Tutorial, magari alla CISA2.
>
> Fammi sapere se hai risolto.
Ahimè non ho proprio risolto



text:
"Claudio" <
re...@i2000net.it
> wrote in message
news:43d4e5b5$0$46328$
4faf...@reader4.news.tin.it
Questo va modificato nel Modulo [basSysTray], mentre il modulo
basAddrOf puoi eliminarlo completamente.
Sub sHookTrayIcon(frm As Form, Optional strTipText As String, _
                               Optional strIconPath As String)
   'Initialize the tray icon first
   If fInitTrayIcon(frm, strTipText, strIconPath) Then
      'hide the form window
      'frm.Visible = False

      'Set new address for window's message handler
      lpPrevWndProc = apiSetWindowLong(frm.hWnd, _
                                    GWL_WNDPROC, _
                                    AddressOf fWndProcTray)
  End If
End Sub
Va apportata un'altra modifica nella Maschera [SysTray]
Private Sub cmdStartDemo_Click()
   If Not mblnSubclassed Then
      'Don't try and subclass twice
      Call sHookTrayIcon(Me, "@Alex Menù", GetPathPart(CurrentDb.Name) &
"SysTray.ICO")
      mblnSubclassed = True
   End If
End Sub
Ora la soluzione che ti ho suggerito è un pò alla veloce, ma
funzionale, andrebbe un pò rivista la tecnica del SubClassing
ma è un'altro argomento....!
Fammi sapere.



text:
> Ora la soluzione che ti ho suggerito è un pò alla veloce, ma
> funzionale, andrebbe un pò rivista la tecnica del SubClassing
> ma è un'altro argomento....!
>
> Fammi sapere.
Perfetto Alex, funziona perfettamente, girà sia l'icona sulla systray nonché
il menù
grazie, non dubitabo sulla tua disponibilità
un piccolo particolare al primo tentativo mi ha piantato la macchina. Dopo
aver chiuso il processo si MSACCESS e riavviato il db ha funzionato
regolarmente
Domi


text:
> Fammi sapere.
In risposta,
mi correggo funziona da un punto di vista empirico, infatti girà sia l'icona
ed il menù
però precisando il mio messaggio di prima
nontanto i processi, MSACCESS è sempre intorno al 22% di uso della CPU
e capita spessissimo che pianta la macchina, non risponde in nessun modo
devo fer forza chiudere il processo dal Task manager
è davvero una forzatura??
ciauz


text:
"Claudio" <
re...@i2000net.it
> wrote in message
news:43d4f224$0$46338$
4faf...@reader4.news.tin.it

Il subclassing in Access non gira in IDE, quindi o realizzi
un MDE oopure tutte le volte che lo devi provare devi
CHIUDERE e riaprire senza passare per la modalità struttura
o Codice.
Ciao



title: Valore DMax

author: Emiliano - EmiCAD

text:
Ciao a tutti,
dovrei impostare un campo il quale una volta visualizzato in una finestra mi
suggerisca il valore del numero più alto di tutti i record di quel campo.
Il nome della Tabella è: Ordini
Il nome del Campo è: NumeroOrdine
Il nome della Maschera è: Ordini
Mi è stato suggerito di utilizzare la funzione DMax ma non ci sono riuscito.
Io ho provato a inserire tra la proprietà "Valore predefinito" del campo
NumeroOrdine contenuto nella maschera "Ordini"
la seguente espressione:
=DMax([Ordini];"NumeroOrdine")
ma non funziona in quanto nella finestra appare la scritta "?NOME"
Mi sapete dire dove sbaglio, tenendo conto che non voglio utilizzare i
contatori.
Ringrazio tutti in anticipo
Ciao da Emiliano


title: Valore DMax

author: Antonio Biso

text:
Emiliano - EmiCAD <
ligh...@tin.it
> wrote in message
Quim8.50056$%g7.15...@twister2.libero.it...

Non hai letto bene l'help su Dmax (l'hai letto vero?)
Tutti i parametri sono stringhe (o variabili che contengono stringhe) ergo,
sarà
dmax("Ordini","NumeroOrdine")
Antonio
P.S.
Aspè, però pensandoci bene sembra anche che tu abbia scambiato i parametri:
prima ci va il nome del campo, poi il nome della tabella


title: Valore DMax

author: bande

text:
> Il nome della Tabella è: Ordini
> Il nome del Campo è: NumeroOrdine
> Il nome della Maschera è: Ordini
>
> Mi è stato suggerito di utilizzare la funzione DMax ma non ci sono
riuscito.
> Io ho provato a inserire tra la proprietà "Valore predefinito" del campo
> NumeroOrdine contenuto nella maschera "Ordini"
> la seguente espressione:
>
> =DMax([Ordini];"NumeroOrdine")
>
> ma non funziona in quanto nella finestra appare la scritta "?NOME"
>
Mancano le virgolette e poi prima va il campo e poi la tabella.
=DMax("NumeroOrdine";"[Ordini]")
p.s. un consiglio: se qualcuno ti suggerisce l'uso della DMax perche' non
premere F1, cercare DMax ed avere la sintassi corretta ed il relativo
esempio di utilizzo. Senza offesa.
Ciao
--
Andrea


title: Valore DMax

text:
Ciao Antonio,
ti ringrazio per la risposta che mi è stata di grande aiuto per altre cose,
ma adesso sto cercando un'altra cosa, mi rendo conto di non essermi spiegato
bene.
L'espressione che mi hai indicato mi da il valore massimo di tutti i record
ma io vorrei che mi dasse l'ultimo valore di una sequenza di numeri
progressivi o meglio se nei record ci sono i seguenti numeri:
1,2,3,4,5,7,9,10,11,12,13,14
io vorrei che mi dasse il numero 7 o il numero 8 che è quello che manca per
completare la progressività dei numeri.
Si può fare?
Ringrazio in anticipo.
Ciao da Emiliano


title: Valore DMax

author: Emyr

text:
On Thu, 21 Mar 2002 12:30:29 +0100, "Emiliano - EmiCAD"
<
ligh...@tin.it
> wrote:
>Ciao Antonio,
>ti ringrazio per la risposta che mi č stata di grande aiuto per altre cose,
>ma adesso sto cercando un'altra cosa, mi rendo conto di non essermi spiegato
>bene.
>
>L'espressione che mi hai indicato mi da il valore massimo di tutti i record
>ma io vorrei che mi dasse l'ultimo valore di una sequenza di numeri
>progressivi o meglio se nei record ci sono i seguenti numeri:
>
>1,2,3,4,5,7,9,10,11,12,13,14
>
>io vorrei che mi dasse il numero 7 o il numero 8 che č quello che manca per
>completare la progressivitą dei numeri.
>Si puņ fare?
>
>Ringrazio in anticipo.
>Ciao da Emiliano
>
ti eri spiegato male
per come la vuoi tu dovresti aprire l'archivio ordinandolo per numero
e scorrerlo un record alla volta unitamente ad un contatore per
trovare il primo buco
Saluti.
Emanuele.


title: Valore DMax

text:
Emiliano - EmiCAD <
ligh...@tin.it
> wrote in message
gEjm8.50357$%g7.15...@twister2.libero.it...

Emiliano, perchè vuoi fare ciò?
Non mi dire che stiamo ricadendo sul solito discorso del contatore che non
serve per contare ma per identificare univocamente, vero?
Se c'è un buco, che ti frega!!!
Antonio


title: Valore DMax

text:
Mi frega perchè le fatture che escono devono avere un numero progressivo,
può capitare invece che io introduca (per comodità) i dati di diversi
presunti clienti che poi invece non accettano l'offerta e quindi vorrei
cancellare i record.
Cosi facendo però se utilizzo un conatore mi rimane un "buco" che non so
come riempire!
Ciao da Emiliano
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:Lyum8.56064$1S3.1...@twister1.libero.it...



title: Valore DMax

author: Umberto Masotti

text:
Emiliano - EmiCAD wrote:
> Mi frega perchè le fatture che escono devono avere un numero progressivo,
> può capitare invece che io introduca (per comodità) i dati di diversi
> presunti clienti che poi invece non accettano l'offerta e quindi vorrei
> cancellare i record.
>
> Cosi facendo però se utilizzo un conatore mi rimane un "buco" che non so
> come riempire!
>
> Ciao da Emiliano
Be', i trigger after Insert a questo servono. Ovvio che allora devi
avere un database serio.
Ciao.
Mimmo.


title: Valore DMax

author: Alessandro

text:
"Antonio Biso" <
ch...@etruria.net
> wrote in message
news:Lyum8.56064$1S3.1...@twister1.libero.it...
>[CUT]
>
> Emiliano, perchč vuoi fare ciň?
> Non mi dire che stiamo ricadendo sul solito discorso del contatore che non
> serve per contare ma per identificare univocamente, vero?
> Se c'č un buco, che ti frega!!!
>
> Antonio
Beh, innanzitutto alcune volte i "BUCHI" servono...!
Scherzi a parte puň capitare di voler riempire la
progressione per evitare codici di MAGAZZINO che si
allungano troppo.
In alcuni casi č una scelta...!!
Questo non sň...!
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Valore DMax

text:
"Umberto Masotti" <
mimm...@zumzumzum.tin.it
> wrote in message
news:3C9B8C9...@zumzumzum.tin.it...

Caro Mimmo e se il suo "PRESUNTO" Cliente disdice l'ordine
2 settimane dopo, tu che fai...?? Lasci il DB in attesa di conferma???
Io ho dovuto affrontare un problema simile, ma postarti il Codice
è complesso, ti riassumo come ho fatto:
Function Buco() as Integer
Dim rs as Recordset
Dim x,nR As integer
Dim strSQL as String
strSQL="Select Left("[CodiceFattura]",n) as Progressivo Form TuaTabella"
Set rs=CurrentDb.Openrecordset("StrSQL")
If rs.Bof And rs.Eof then
  Progressivo=1
  Exit Sub
End if
rs.Movelast
nR=rs.RecordCount
rs.MoveFirst
x=1
Do Until rs.Eof
  If x<Rs.Fields("Progressivo") then
     Buco=x:Exit Function
  End if
  Rs.MoveNext
  x=x+1
Loop
Buco=x-1
End Function
Circa dovrebbe andare.....!!!
P.S. l'unica cosa che non ho inserito è la FORMATTAZIONE
del Progressivo in base al numero delle cifre, in quanto
presumo sia ovviamente campo TESTO da convertire in Integer....!!!



title: Valore DMax

text:
Alessandro wrote:
> "Umberto Masotti" <
mimm...@zumzumzum.tin.it
> wrote in message
> news:3C9B8C9...@zumzumzum.tin.it...
>>Be', i trigger after Insert a questo servono. Ovvio che allora devi
>>avere un database serio.
>>
>>Ciao.
>>Mimmo.
>>
>
> Caro Mimmo e se il suo "PRESUNTO" Cliente disdice l'ordine
> 2 settimane dopo, tu che fai...?? Lasci il DB in attesa di conferma???
Un ordine annullato è un ordine. E' nel particolare stato di "annullato"
  per cui non si dà seguito. Non è possibile fare prelievi da magazzino
per quell'ordine, ad esempio, non c'è produzione per quell'ordine , ecc.
Anche perchè puo` servire per decidere a quali clienti dare la priorità
(quelli che non cambiano mai idea) o determinare perchè la cambiano spesso.
Di solito non serve a nulla (se non a tappare un buco) ma è
un'informazione che va tenuta. Insomma, io non lo vedo un problema; poi
è questione di filosofia dell'utente per cui devi fare i programmi.
IMHO grande come una casa.
Ciao.
Mimmo.


title: Valore DMax

text:
Emiliano - EmiCAD <
ligh...@tin.it
> wrote in message
AKFm8.57428$1S3.1...@twister1.libero.it...
A parte che si scrive DOPO il quoting...
> Mi frega perchč le fatture che escono devono avere un numero progressivo,
> puņ capitare invece che io introduca (per comoditą) i dati di diversi
> presunti clienti che poi invece non accettano l'offerta e quindi vorrei
> cancellare i record.
Guarda che mi sembra sbagliato il modo di approcciare. Quando vai in fattura
ormai deve essere tutto certo, altrimenti lo metti in una tabella sospesi, e
solo quando č ok ,lo passi nelle fatture con la numerazione giusta!!!
Antonio


title: Valore DMax

text:
>
> Guarda che mi sembra sbagliato il modo di approcciare. Quando vai in
fattura
> ormai deve essere tutto certo, altrimenti lo metti in una tabella sospesi,
e
> solo quando è ok ,lo passi nelle fatture con la numerazione giusta!!!
>
> Antonio
>
>
Ok e se poi sbaglio qualcosa e mi rimane il buco che faccio...?
Ciao da Emiliano
P.S. A me sembra molto più pratico sia per chi legge che per chi scrive
scrivere prima del quoting..


title: Valore DMax

author: Soggy Bottom Boy

text:
"Emiliano - EmiCAD" <
ligh...@tin.it
> ha scritto nel messaggio
news:o_Zm8.61916$1S3.1...@twister1.libero.it...
> > solo quando č ok ,lo passi nelle fatture con la numerazione giusta!!!
> >
>
> Ok e se poi sbaglio qualcosa e mi rimane il buco che faccio...?
mi sa anche a me che fai un errore nella struttura della cosa.
Cosa vuol dire "se resta un buco"?
Le fatture si sbagliano, capita, e poi si fanno gli accrediti, se vuoi fare
una fattura devi seguire quello che stabilisce la legge, se vuoi farti delle
notine tue, puoi fare quello che vuoi.
Se stai trasformando degli ordini in bolle e delle bolle in fatture, hai
solo due strade, una e' quella di travasare i dati da una tabella all'altra,
e quindi di avere una tabella (o piu') per ogni tipo di documento.
Al momento in cui trasformi la bolla in fattura copi fisicamente il record
da una tabella all'altra.
L'altra e' quella di avere una tabella con tutti i tuoi record, un
identificativo univoco per record e piu' tabelle esterne (volendo anche una
sola)  che contengono i protocolli che associano di volta in volta il record
al documento.
Ho visto usare questa seconda strada diverse volte, a me non piace perche'
obbliga ad avere un tracciato record piu' lungo, se poi in sede di
fatturazione si fanno delle modifiche, il prezzo per esempio, perdi il
"percorso" di quel campo, ovvero non vedi che l'ordine aveva un prezzo e la
vendita un altro.


title: Valore DMax

text:
Soggy Bottom Boy wrote:
> Se stai trasformando degli ordini in bolle e delle bolle in fatture, hai
> solo due strade, una e' quella di travasare i dati da una tabella all'altra,
> e quindi di avere una tabella (o piu') per ogni tipo di documento.
> Al momento in cui trasformi la bolla in fattura copi fisicamente il record
> da una tabella all'altra.
Concordo, ed aggiungo che, si copiano i valori iniziali ed i riferimenti.
Una bolla puň corrispondere a piů ordini, eventualmente anche parziali
(non č detto che spedisci sempre tutto un ordine...).
Una fattura corrisponde ad una o piů bolle (la fattura accompagnatoria
non č un obbligo) o a una parte di bolla (previsto ma non so se e quando
si usa).
Si vede subito, dal punto di vista relazionale, di cosa c'č bisogno...
...snip...
>
> ... ovvero non vedi che l'ordine aveva un prezzo e la
> vendita un altro.
D'accordo al 100%...
Oooops. Solo ora mi accorgo che č un xpost.
Bč, scusate...
Ciao.
Mimmo.


title: Valore DMax

text:
Non devo fare delle bolle ma solo delle fatture, quando intendo se sbaglio,
non vuol dire che ho gia emesso la fattura in modo definitivo e quindi
registrata, vuol dire che l'ho solo stampata!
Per comodità mi è utile preparare le fatture e stamparle solo quando ne ho
la necessità.
Quindi può verificarsi il caso che una di queste fatture "provvisorie" sia
errata e voglio cancellare il record, quindi con il contatore mi rimane un
buco.
Sono riuscito a risolvere benissimo il problema con la funzione Dmax che mi
dice qual è il numero dell'ultima fattura aggiungendolo di uno! poi sta a me
se accettarlo o meno e se voglio lo posso anche cambiare.
--
Ciao da Emiliano - Webmaster di EmiCAD® - Tutto per AutoCAD
e-mail:
webm...@emicad.it
web:
www.emicad.it
"Umberto Masotti" <
mimm...@zumzumzum.tin.it
> ha scritto nel messaggio
news:3C9DA0F2...@zumzumzum.tin.it...
> Soggy Bottom Boy wrote:
>
> > Se stai trasformando degli ordini in bolle e delle bolle in fatture, hai
> > solo due strade, una e' quella di travasare i dati da una tabella
all'altra,
> > e quindi di avere una tabella (o piu') per ogni tipo di documento.
> > Al momento in cui trasformi la bolla in fattura copi fisicamente il
record
> > da una tabella all'altra.
>
> Concordo, ed aggiungo che, si copiano i valori iniziali ed i riferimenti.
> Una bolla può corrispondere a più ordini, eventualmente anche parziali
> (non è detto che spedisci sempre tutto un ordine...).
> Una fattura corrisponde ad una o più bolle (la fattura accompagnatoria
> non è un obbligo) o a una parte di bolla (previsto ma non so se e quando
> si usa).
> Si vede subito, dal punto di vista relazionale, di cosa c'è bisogno...
>
>
> ...snip...
>
> >
> > ... ovvero non vedi che l'ordine aveva un prezzo e la
> > vendita un altro.
>
>
> D'accordo al 100%...
>
> Oooops. Solo ora mi accorgo che è un xpost.
> Bè, scusate...
>
> Ciao.
> Mimmo.
>


title: Valore DMax

text:
Emiliano - EmiCAD <
ligh...@tin.it
> wrote in message
o_Zm8.61916$1S3.1...@twister1.libero.it...
> >
> > Guarda che mi sembra sbagliato il modo di approcciare. Quando vai in
> fattura
> > ormai deve essere tutto certo, altrimenti lo metti in una tabella
sospesi,
> e
> > solo quando č ok ,lo passi nelle fatture con la numerazione giusta!!!
> >
> > Antonio
> >
> >
>
> Ok e se poi sbaglio qualcosa e mi rimane il buco che faccio...?
Il buco non ce l'hai perchč la fattura ancora non l'hai fdatta quindi
numerata. Solo quando c'č l'ok definitivo numeri e trasformi in fattura!
>
> Ciao da Emiliano
>
> P.S. A me sembra molto piů pratico sia per chi legge che per chi scrive
> scrivere prima del quoting..
ASSOLUTAMENTE NO!
Il flusso logico del discorso va SEMPRE dall'alto verso il basso. Se vuoi
continuare a interscambiare con me attieniti a questa regola!!!
Antonio


title: Valore DMax

text:
"Emiliano - EmiCAD" <
ligh...@tin.it
> ha scritto nel messaggio
> Non devo fare delle bolle ma solo delle fatture, quando intendo se
sbaglio,
> non vuol dire che ho gia emesso la fattura in modo definitivo e quindi
> registrata, vuol dire che l'ho solo stampata!
> Per comodità mi è utile preparare le fatture e stamparle solo quando ne ho
> la necessità.
> Quindi può verificarsi il caso che una di queste fatture "provvisorie" sia
> errata e voglio cancellare il record, quindi con il contatore mi rimane un
> buco.
Come ho gia' detto, se stai facendo qualche pasticcio per comodita' tua,
puoi fare quello che vuoi.
Se stai facendo delle fatture devi rispettare la progressione temporale e
non puoi non registrare delle fatture emesse.
Se invece stai facendo un documento interno, che trasformi in fattura quando
ti serve, con la data e la numerazione nell'ordine giusto, beh, allora non
chiamarla bolla, se non ti va, ma il principio e' quello.
Solo per intendersi sui nomi.


title: Valore DMax

text:
Non è qestione di pasticci o prove, ma mi è più pratico inserire i dati
subito appena qualcuno mi chiede un preventivo, anche per ricordarmi di
fargli il preventivo, non vorrei mai dimenticarmene perchè non l'ho scritto
da nessuna parte!
Inoltre può sempre capitare di fare un'errore, confermare tutto stampare la
fattura e prima di psedirla all'interessato scorprire che c'è un errore!
Inoltre io non ho mai parlato di bolla ma solo di fattura.
Ciao da Emiliano



title: Valore DMax

author: Potone

text:
Ciao,
a parte le questioni "fiscali" sulla numerazione delle fatture, la funzione
che segue restituisce il numero più alto disponibile (campo NFisc) pescando
dalla tabella T_Fatture presupponendo la presenza della data della fattura
(nel campo DataFisc), qualora vengano trovate discontinuità nella
numerazione chiede all'utente cosa fare.
Se non riesci a capirci a causa della formattazione scrivimi una mail e ti
mando un file di testo.
Public Function AssegnaNumero(Optional Anno As Variant) As Long
    ' 04.01.2002
    ' Restituisce il primo numero disponibile nell'anno specificato (o
corrente)
    ' Prima dell'assegnazione controlla se sono presenti interruzioni nella
numerazione.
    ' In caso di discontinuità viene chiesto all'operatore se utilizzare in
numero
    ' mancante o il più alto
    Dim db As Database
    Dim doc As Recordset
    Dim Numero As Long
    Set db = CurrentDb
    If IsMissing(Anno) Then
        Anno = Year(Date)
    ElseIf Nz(Anno) = 0 Then
        Anno = Year(Date)
    ElseIf IsDate(Anno) Then
        Anno = Year(Anno)
    End If
    ' Rintraccia il primo numero utilizzato nell'anno
    Numero = Nz(DMin("NFisc", "T_Fatture", "Year([DataFisc])=" & Anno))
    If Numero <> 0 Then
        ' Controlla se, nell'anno corrente, i documenti non contengono doppi
numeri
        Set doc = db.OpenRecordset("SELECT NFisc, Count(T_Fatture.NFisc) AS
Conteggio FROM T_Fatture " & _
            "WHERE Year([DataFisc])=" & Anno & _
            " GROUP BY NFisc HAVING Count(NFisc)>1 AND NFisc Is Not Null;")
        If Not doc.EOF Then
            MsgBox "Il numero " & doc![NFisc] & " è stato assegnato " &
doc![Conteggio] & " volte, controllare i numeri di fattura", vbExclamation,
"Gestore numerazione documenti"
            AssegnaNumero = -1
            Exit Function
        End If
        ' Controlla se, nell'anno corrente, la numerazione è contigua
        Set doc = db.OpenRecordset("SELECT ALL NFisc as Numero FROM
T_Fatture " & _
            "WHERE Year([DataFisc])=" & Anno & " AND NFisc Is Not Null AND
Nz(NFisc)>=" & Numero & " ORDER BY NFisc;")
        Do Until doc.EOF
            If doc![Numero] <> Numero Then
                If MsgBox("E' stata rilevava una discontinuità nella
numerazione, utilizzare il numero " & Numero & " (premere 'Sì')" & vbCrLf &
_
                          " o il numero più alto disponibile (premere
'No')?", vbQuestion + vbYesNo, "Gestore numerazione documenti") = vbNo Then
                    Set doc = db.OpenRecordset("SELECT TOP 1 NFisc FROM
T_Fatture " & _
                        "WHERE Year([DataFisc])=" & Anno & " AND NFisc Is
Not Null " & _
                        "ORDER BY NFisc DESC;")
                    Numero = Nz(DMax("NFisc", "T_Fatture",
"Year([DataFisc])=" & Anno & " AND NFisc Is Not Null"))
                    If Numero <> 0 Then
                        Numero = Numero + 1
                    Else
                        AssegnaNumero = -1
                        Exit Function
                    End If
                End If
                Exit Do
            Else
                Numero = Numero + 1
                doc.MoveNext
            End If
        Loop
    Else
        ' All'inizio dell'anno la numerazione comincia da 1
        Numero = 1
    End If
    AssegnaNumero = Numero
End Function
Ciao,
Mat.
"Emiliano - EmiCAD" <
ligh...@tin.it
> ha scritto nel messaggio
news:Quim8.50056$%g7.15...@twister2.libero.it...



title: Valore DMax

text:
"Emiliano - EmiCAD" <
ligh...@tin.it
> ha scritto nel messaggio
> Non è qestione di pasticci o prove, ma mi è più pratico inserire i dati
> subito appena qualcuno mi chiede un preventivo, anche per ricordarmi di
> fargli il preventivo, non vorrei mai dimenticarmene perchè non l'ho
scritto
> da nessuna parte!
Ok, quindi fai un preventivo e poi trasformi (eventualmente) questo in una
fattura.
E' piu' o meno quello che si diceva, sostituisci la parola "bolla" con
"preventivo" e il tutto torna.
Io preferirei non cancellarli i preventivi e tenerli archiviati e trasformi
in fatture quelli che lo diventano, cosi' risolvi i problemi di protocollo
progressivo e le "cancellazioni", anzi, e' proprio l'idea di cancellare che
non mi piace...
;-)


title: Ottenere campo tipo data/ora in funzione DLooKup

text:
se in una query scrivo la funzione:
DataScarico: DLookUp("dataanalisi";"tabella1";"id=" & [id])
quello che ottengo è un valore tipo testo (penso) e non tipo data/ora
come si ottine un valore tipo Data/ora come lo era in origine?
ho provato:
Format(DLookUp("dataanalisi";"tabella1";"id=" & [id]);"gg/mm/aaaa")
ma ovviamente non funziona
grazie
ciao


author: Carlo Costarella

text:
"@Roberto" <
Tas...@aliceposta.it
> ha scritto nel messaggio
news:fOELb.84060$_P.31...@news4.tin.it...
> se in una query scrivo la funzione:
>
>
> DataScarico: DLookUp("dataanalisi";"tabella1";"id=" & [id])
>
>
> quello che ottengo č un valore tipo testo (penso) e non tipo data/ora
>
> come si ottine un valore tipo Data/ora come lo era in origine?
>
> ho provato:
> Format(DLookUp("dataanalisi";"tabella1";"id=" & [id]);"gg/mm/aaaa")
>
> ma ovviamente non funziona
>
> grazie
>
>
>
>
> ciao
Dipende se assegni il risultato ad una variabile di tipo data.
Per esempio questa funzione restituisce una data:
Public Function UnaData() As Date
UnaData = DLookup("CaricataIl", "Carico", "NBolla=" & "'" & "4335" & "'")
If IsDate(UnaData) Then MsgBox "La data richiesta č: " & UnaData
End Function
Ciao, Carlo


author: Roberto da casa

text:
"@Roberto" <
Tas...@aliceposta.it
> ha scritto nel messaggio
news:fOELb.84060$_P.31...@news4.tin.it...

Prova con:
CDate(DLookUp("dataanalisi";"tabella1";"id=" & [id]))
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: esportazione dati in excel

author: Emanuele Vinciarelli

text:
Ho la necessità di esportare i dati di una query (o report) in un file
excel. Tutto facile, ma non mi riesce ad esportarli su un modello (file
.xlt)
Potete aiutarmi?


title: esportazione dati in excel

text:
Emanuele Vinciarelli ha scritto:

La query ed il report sono 2 oggetti completamente differenti.
Per esportare una Query ti basta leggere il metodo TransferSpreadsheet
    Membro di Access.DoCmd
che trovi nel visualizzatore Oggetti, quindi passi all'help con vari
esempi.
Per esportarli invece in un file di tipo XLT che ne definisce il
formato del modello, ho il sospetto che tu sia costretto ad usare
l'Automazione, quindi aprire un File sfruttando
il file XLT e predisporti il codice necessario per scrivere cella per
cella....!
Ti allego un pesso di codice tratto da un 3D di Sergio Mazza come
esempio:
Dim oApp As Excel.Application
Set oApp = CreateObject("Excel.Application")
oApp.Workbooks.Add "C:\Modello.XLT"
oApp.ActiveWorkbook.SaveAs "C:\nomeFile.xls"
Call PopolaFoglio(oApp.ActiveWorkbook.Sheets("Foglio1"))
oApp.ActiveWorkbook.Close SaveChanges:=True
oApp.Application.Quit
Set oApp = Nothing
Function PopolaFoglio(FoglioXls As Object)
Dim RST As Recordset
Set RST = CurrentDb.OpenRecordset("QDdValorizzata")
With RST
    For i = 0 To .Fields.Count - 1
        FoglioXls.Cells(1, i + 1) = .Fields(i).Name
    Next i
y = 0
While Not .EOF
For x = 0 To .Fields.Count - 1
        FoglioXls.Cells(2 + y, x + 1) = .Fields(x).Value
    Next x
    y = y + 1
.MoveNext
Wend
End With
RST.Close
Set RST = Nothing
 @Alex


title: esportazione dati in excel

text:
Grazie!
Era proprio quello che cercavo.
Lo adatterò alle mie esigenze.
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1162161924.9...@k70g2000cwa.googlegroups.com...



title: Come ci si dovrebbe comportare in un newsgroup, ovvero 'Istruzioni per l'uso' (f)

text:
Quello che segue è ricavato da
www.sitocomune.com
 e rappresenta le regole
che a suo tempo i frequentatori di it.comp.appl.access si dettero
liberamente e democraticamente; a mio avviso non è corretto partecipare a
questo NG e non rispettare tali regole; naturalmente é sempre possibile
modificare democraticamente dette regole.
Si ricorda che it.comp.appl.access è un NG autogestito e pertanto non esiste
alcun filtro circa la pubblicazione dei messaggi; a mio avviso, ciò però
non autorizza qualcuno a non rispettare le regole di buon comportamento, che
nella rete mi sembra si chiamino netiquette.
Vorrei ricordare che nei NewsGroup NON autogestiti i moderatori NON
pubblicano i messaggi che risultano non conformi alle regole del NG.
=======================================
Come ci si dovrebbe comportare in un newsgroup ovvero 'Istruzioni per l'uso'
Anche i newsgroups, come tutte le comunita' di esseri umani, hanno delle
regole la cui conoscenza e rispetto permette un proficuo utilizzo del ng da
parte di tutti i partecipanti, evitando incomprensioni, malintesi ed inutili
polemiche.
Alcune regole sono generali e di elementare educazione, altre proprie di
questo gruppo di discussione cresciute e consolidate nel tempo soprattutto
con il contributo dei frequentatori piu' anziani.
Premesso che il ng e' gestito da 'volontari' che mettono a disposizione
gratuitamente il proprio tempo, le proprie conoscenze e la loro
professionalita' per aiutare chiunque, persone che spesso non conoscono e
che dalle quali non riceveranno alcun compenso, per cui qualsiasi forma di
pretesa o obbligo da parte di chi scrive sono decisamente fuori luogo:
- prima di inviare la propria richiesta provate a verificare se nei messaggi
dei giorni precedenti non siano gia' presenti delle soluzioni al quesito che
si vuole porre.
Non e' il massimo delle figure fare una domanda a cui e' gia' stata data
ampia ed esauriente risposta magari il giorno prima; di sicuro poi
l'eventuale replica difficilmente potra' essere piu' completa.
Volendo si possono effettuare anche delle ricerche nell'archivio storico dei
messaggi presso il sito:
http://groups.google.com/
- provate anche a verificare che i vostri dubbi e le relative soluzioni non
siano gia' presenti sul Sito Comune di questo newsgroup:
http://www.sitocomune.com
Sul Sito Comune, inoltre, sono raccolti tutti i messaggi del ng relativi a
qualche anno.
Se si decide comunque di scrivere al ng sarebbe bene tenere presente:
Il SUBJECT
-------------
Nello scrivere, all'oggetto del messaggio si dovrebbe dare maggiore
importanza perche' esso contribuisce ad identificare immediatamente
l'argomento e il tipo di problema, attirando subito l'attenzione di chi
legge.
Si sconsiglia di inserire subject insignificanti come:
'AIUTO','URGENTE','PROBLEMA ACCESS', 'SOLO PER ESPERTI' 'SONO PRINCIPIANTE',
'SONO DEFICIENTE', 'come si fa...' ECC.,
nel marasma generale dei messaggi perdono visibilita'.
Ecco invece alcuni esempi da considerarsi corretti:
- Gestire il tasto Applica Filtro/Rimuovi Filtro
- Sincronizzare repliche via Internet con Access 2000
- Formattazione diversa per il solo record selezionato
- Come ricercare in una casella combinata
- Formato Numerico Nelle query
- Copia e incolla di piu' dati nello stesso campo
TESTO DEL MESSAGGIO
-----------------------------
Anche qui, soprattutto nell'interesse di chi posta il messaggio, il suo
contenuto dovrebbe essere pensato e redatto con attenzione al fine di
evitare la spedizione di messaggi incomprensibili, che non potranno avere
risposte immediate soddisfacenti.
E' consigliabile indicare la versione di MSAccess a cui ci si riferisce ed
il sistema operativo utilizzato (A2/W95, A95/W98, A97/NT4, A00/W00).
Se dopo aver inviato un messaggio non si dovessero ricevere risposte si puo'
provare a riformularla evitando pero' di assumere un tono polemico del tipo
'Possibile che nessuno sappia come ...', 'Perche' non mi volete rispondere'
I motivi per cui certi messaggi non ricevono risposte possono essere i piu'
svariati dalla domanda mal posta, al fatto che nessuno effettivamente abbia
una risposta da dare.
*Alcuni consigli per chi risponde*
- Scrivere dopo il quoting
Quando si replica (risponde) ad un messaggio si dovrebbe iniziare a scrivere
sempre dopo il testo dei messaggi precedenti.
Lasciare il contenuto del testo originario se breve, oppure riassumere il
contenuto tagliano le parti meno significative, lasciando quelle piu'
interessanti per la comprensione del discorso.
- Non farsi coinvolgere in polemiche con altri partecipanti ed eventuali
disaccordi sarebbe meglio proseguirli in e-mail private.
Alcune richieste o comportamenti *sicuramente* non graditi in questo ng:
- chiedere di programmi per 'sproteggere' database e quindi presumibilmente
il lavoro di altre persone. Oltre a non essere moralmente corretto, e'
illegale, inoltre, considerando che in questo ng possono esserci persone che
si guadagnano la pagnotta sviluppando programmi con access, non ci sembra
corretto contribuire a diffondere questo, tipo di informazioni;
- richiedere risposte personalizzate al proprio indirizzo e-mail e' contro
lo spirito di questo ng in cui si presuppone che tutte le domande e tutte le
risposte debbano essere visibili perche' potrebbero interessare a tutti;
- contattare direttamente altri frequentatori del ng inviando richieste di
informazioni via e-mail, magari a quelli che sembrano piu' bravi e piu'
disponibili di tutti ad aiutare gli altri;
- chiedere del compilatore di access, semplicemente perche' non esiste, lo
sanno anche i bambini ormai;
- chiedere l'invio di programmi gia' fatti con la scusa di dover imparare,
vedere, bla bla bla;
- inviare messaggi con pubblicita' commerciale anche se riferita all'oggetto
del ng. (ben vengano segnalazioni di siti o iniziative free che parlano di
access, anche se personali, ma il tutto deve sempre essere senza scopo di
lucro;
Alcune regole legate invece alla netiquette, dove con il termine netiquette
'retichetta', si intende l'insieme di regole nate col tempo per autoregolare
il comportamento degli utenti delle news.
- EVITARE DI SCRIVERE IN MAIUSCOLO sia gli oggetti e soprattutto il testo
dei messaggi che nelle regole equivale ad urlare;
- Scrivere in formato testo e non in HTLM (quindi con formattazioni varie).
questo perche' non tutti i lettori di messaggi (newsreader) visualizzano
correttamente questo formato;
- Evitate le polemiche personali con gli altri partecipanti. Se proprio non
potete farne a meno cercate di trasferirle in privato.
Alcuni link per chi volesse approfondire:
The Net: Guida per l'utente e Netiquette, di Arlene Rinaldi
http://www.inferentia.it/netiquette/
Etica e norme di buon uso dei servizi di rete
http://web.tiscalinet.it/enterprise_videotext/itamidi/netiquette/netiquetteit.htm
Grazie per la collaborazione
Questo documento e' stato redatto da Carlo VE
----------------------------------------------------------------------------
Alcune utili abbreviazioni (acronimi)
AFAIK As Far As I Know
BTW By The Way
CU See You
CUL See You Later
CUT Taglio (quando non si riporta tutto il testo a cui si risponde)
HTH Hope This Helps
IMO In My Opinion
IMHO In My Humble Opinion
LOL Laughing over laughing
NEWBIE Nuovo arrivato, persona nuova per il NG
NG Newsgroup
OT Off-Topic: fuori argomento
ROTFL Rolling on the floor laughing
ROTFLASTC Rolling on the floor laughing and scaring the cat
ROTFLMAO Rolling on the floor laughing my ass off
RTFM Read the fuckin' manual
SPAM Messaggio pubblicitario fortemente OT, sui NG è assolutamente vietato
TIA Thanks In Advance
TROLL Persona che vuole solo creare disturbo e scompiglio
ce ne sono tanti altri, li trovate qui:
http://www.acronymfinder.com


title: Errore su Tabella

author: Marco F.

text:
Sto cercando di compattare un database, mi da il seguente errore:
"Record(s) can't be read; no read permission on C:\prova.mdb"
sapete dirmi quello che succede?
se non ho capito male mi dice che c'čun record č in aggiornamento da
un'altro utente. Ovviamente ho controllato nessuno usa il db sulla mia
macchina. E' possibile che mi si sia bloccato il programma e per questo ho
qualche record bloccato? Se si come li sblocco?
Grazie a tutti per l'aiuto.
Il punto interrogativo dell'errore da questo:
Impossibile leggere record. Autorizzazione a lettura dati non disponibile
per <nome> (3112).
Per poter visualizzare i dati della tabella o query specificata, č
necessario disporre dell'autorizzazione alla lettura dei dati. Per
cambiare le assegnazioni di autorizzazione, rivolgersi all'amministratore
di sistema o all'utente che ha creato la tabella o la query.
Saluti Marco
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Errore su Tabella

author: sv

text:
Marco F. ha scritto:
> Sto cercando di compattare un database, mi da il seguente errore:
> "Record(s) can't be read; no read permission on C:prova.mdb"
> sapete dirmi quello che succede?
> se non ho capito male mi dice che c'čun record č in aggiornamento da
> un'altro utente. Ovviamente ho controllato nessuno usa il db sulla mia
> macchina. E' possibile che mi si sia bloccato il programma e per questo ho
> qualche record bloccato? Se si come li sblocco?
> Grazie a tutti per l'aiuto.
> Il punto interrogativo dell'errore da questo:
> Impossibile leggere record. Autorizzazione a lettura dati non disponibile
> per <nome> (3112).
> Per poter visualizzare i dati della tabella o query specificata, č
> necessario disporre dell'autorizzazione alla lettura dei dati. Per
> cambiare le assegnazioni di autorizzazione, rivolgersi all'amministratore
> di sistema o all'utente che ha creato la tabella o la query.
> Saluti Marco
Controlla se si č formato il file temporaneo .ldb e non č stato cancellato
da Access in chiusura.
--
rgrds
SC



title: Errore su Tabella

text:
sv ha scritto:
> Marco F. ha scritto:
> > Sto cercando di compattare un database, mi da il seguente errore:
> > "Record(s) can't be read; no read permission on C:prova.mdb"
> > sapete dirmi quello che succede?
> > se non ho capito male mi dice che c'čun record č in aggiornamento da
> > un'altro utente. Ovviamente ho controllato nessuno usa il db sulla mia
> > macchina. E' possibile che mi si sia bloccato il programma e per questo ho
> > qualche record bloccato? Se si come li sblocco?
> > Grazie a tutti per l'aiuto.
> > Il punto interrogativo dell'errore da questo:
> > Impossibile leggere record. Autorizzazione a lettura dati non disponibile
> > per <nome> (3112).
> > Per poter visualizzare i dati della tabella o query specificata, č
> > necessario disporre dell'autorizzazione alla lettura dei dati. Per
> > cambiare le assegnazioni di autorizzazione, rivolgersi all'amministratore
> > di sistema o all'utente che ha creato la tabella o la query.
> > Saluti Marco
> Controlla se si č formato il file temporaneo .ldb e non č stato cancellato
> da Access in chiusura.
> --
> rgrds
> SC
Ho controllato, non c'č nulla. Ho provato anche a copiare in'altra
cartella ma il db copiato presenta lo stesso problema.
Marco



title: Errore su Tabella

text:
Marco F. ha scritto:
> sv ha scritto:
> > Marco F. ha scritto:







> > > Saluti Marco

> > --
> > rgrds
> > SC

> Marco
Hai provato a reimportare tutto in un nuovo database?
Comunque non dici se il tuo database č in rete, se diviso in Fe e Be etc..
Dai maggiori informazioni.
--
rgrds
SC



title: Errore su Tabella

text:
sv ha scritto:
> Marco F. ha scritto:
> > sv ha scritto:
> > > Marco F. ha scritto:







> > > > Saluti Marco

> > > --
> > > rgrds
> > > SC

> > Marco

> --
> rgrds
> SC
Ho risolto, ho importato tutto su un nuovo db, della tabella incriminata
ho importato solo la struttura, poi ho fatto un copia e incolla dei
record, mi ha dato cmq un'errore di avvertimento ma alla fine li a copiati
tutti cmq.
Speravo ci fosse una funzione di Access che sbloccava i lavori.



title: ADP - File corrotto

author: George

text:
Ho un file ADP che quando viene aperto segnala: Il progetto ADP non è nel
formato corretto.
Anche il compatta e riprstina non sembra funzionare.
Cosa posso provare?
Grazie.


title: ADP - File corrotto

author: MA

text:
"George" <
giorgio.ben...@libero.it
> ha
scritto nel messaggio
news:ccg4t2$k4g$1...@newsreader.mailgate.org...
> Ho un file ADP che quando viene aperto segnala:
Il progetto ADP non č nel
> formato corretto.
> Anche il compatta e riprstina non sembra
funzionare.
> Cosa posso provare?
> Grazie.
prova a reimportare tutto in uno nuovo.
Strano, gli ADP dovrebbero essere piů stabili.
MAssimiliano


title: ADP - File corrotto

text:
> prova a reimportare tutto in uno nuovo.
> Strano, gli ADP dovrebbero essere più stabili.
> MAssimiliano
>
Anche facendo un nuovo ADP e facendo l'importazione, nel momento in cui
scelgo il file da cui importare ottengo lo stesso messaggio.


title: ADP - File corrotto

author: Ruggero

text:
"MA" <
> prova a reimportare tutto in uno nuovo.
> Strano, gli ADP dovrebbero essere più stabili.
Al limite gli .ADE.
In fase di sviluppo i problemi che riguardano gli .mdb esistono anche con
gli .adp: ieri ho postato un link interessante per prevenirli.
Ruggero


title: ADP - File corrotto

author: NON emmedi PROVARCI @nemmenotin.itintesi? OneEDP

text:
"George" <
giorgio.ben...@libero.it
> ha scritto nel messaggio
news:ccg4t2$k4g$1...@newsreader.mailgate.org...
> Ho un file ADP che quando viene aperto segnala: Il progetto ADP non č nel
> formato corretto.
> Anche il compatta e riprstina non sembra funzionare.
> Cosa posso provare?
> Grazie.
>
>
Prova a ricordare qual'č maschera o quale altro oggetto č stato oggetto di
modifica. Esporta ed importala nuovamente. Poi compila il tutto e
misteriosamente ADP reinizia a funzionare.
Lo stesso problema č stato riscontrato anche per i mdb.
Ciao spero che si risolva cosě
Ciao
Daniele


title: info

author: Byte

text:
come esiste la funzione int... per prelevare le parti intere dei numeri...
cè una funzione che preleva solo i decimali ??   zeri  non significativi
compresi ???
grazie a tutti


title: info

author: Nick

text:
Byte ha detto: in data 22/09/2005 16.20:

http://www.accessgroup.it/notiquette.htm
ciao
Nick


title: info

author: Alessandro Baraldi

text:
"Byte" <
sar...@tin.it
> wrote in message
news:25zYe.4760$
kA.2...@news3.tin.it

Se Int restituisce solo la parte intera secondo te quale
complessa operazione matematica servirà per estrarre solo
la parte decimale....?
Vediamo di rendere chiara la mia osservazione:
NUMERO=1.24
PARTE_INTERA=Int(NUMERO)=1
PARTE_DECIMALE=NUMERO-PARTE_INTERA=0.24
;-)
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: info

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:6cbd12760a0fa76bd3...@mygate.mailgate.org...

verissimo   ....... fin qua ero arrivato :)
problema  es.....    0,90    lo traforma in 0,9
siccome io devo poi elaborare il campo obbligatoriamente con due decimali
.......
altrernativa portare i decimali in un campo alfanumerico .....   ma non so
come fare....
sono un principiante in access


title: info

text:
"Byte" <
sar...@tin.it
> wrote in message
news:_jzYe.4810$
kA.2...@news3.tin.it
[CUT]
> verissimo   ....... fin qua ero arrivato :)
>
>
> problema  es.....    0,90    lo traforma in 0,9
> siccome io devo poi elaborare il campo obbligatoriamente con due decimali
> .......
> altrernativa portare i decimali in un campo alfanumerico .....   ma non so
> come fare....
>
> sono un principiante in access
Secondo me fai un pò di confusione con la Tipologia delle
variabili Long Currency o Double a seconda della precisione
e la ovvia soppressione dello ZERO durante operazioni matematiche.
Il fatto di avere 2 DECIMALI è solo una questione di VISUALIZZAZIONE
Scrivere 0.9 oppure 0.90 è matematicamente uguale, fiscalmente
parlando invece servono le 2 cifre(alcune volte 4), ma come dicevo
è solo questione di visualizzazione.
Se usi un Vartype adeguato non perdi i decimali che puoi limitare
a 2 usando la funzione che trovi sul SC.
Di fatto l'unico modo è usare il Formato di visualizzazione
dei controlli inseriti nelle Form, oppure come hai detto
passare ad un formato Testo usando poi la funzione FORMAT
per gestire la cosa.
Ciao



title: Numeri Primi

author: Alessandro Cara

text:
Per chi avesse scritto una qualsiasi routine per il calcolo dei numeri
primi sarei interessato a sapere i tempi di risposta per i seguenti
valori (numero primi da trovare, segnalo i miei tempi su Acer Aspire
9112 - Intel Core Duo, 1.66GHz, 2Mb Ram)
1000 = <1sec
5000 = 4Sec
10000 = 15sec
15000 = 32sec
P.S. mi va bene anche se la routine non e' scritta in VBA.
--
ac (x=y-1)


title: Numeri Primi

text:
On 21 Dic, 19:57, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
wrote:

Ciao Alessandro.
Purtroppo devi dire come hai fatto il test, ti spiego la mia
domanda...!
Ho fatto 2 prove:
Function getPrimi()
    Dim sn  As Single
    Dim x   As Long
    sn = Timer
    For x = 1 To Totale
        Debug.print x & "è primo = ? " & Call IsPrime(x)
    Next
    Debug.Print Timer - sn
End Function
Questa su Totale=1000 impiega 1,4secondi...
Se ometto il Debug.Print invece impiega
 0,015625
ed impiega solo  0,0078125 su Totale=10000 ...
Quindi rispondere è poco serio... fammi capire meglio come fai il
ciclo in modo che paragoniamo effettivamente
la Routine che io ho chiamato IsPrime(...)
Ciao
@Alex


title: Numeri Primi

text:

Intendevo che la 2° prova è questa:
Function getPrimi()
    Dim sn  As Single
    Dim x   As Long
    sn = Timer
    For x = 1 To Totale
         Call IsPrime(x)
    Next
    Debug.Print Timer - sn
End Function
La funzione è scritta in VBA.
@Alex


title: Numeri Primi

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:5N6Qo.16602$7b4....@tornado.fastwebnet.it...

Con il debug 0,32 per 10000 numeri.
Questo il codice usato tratto da Francesco Balena e modificando quello di
Alex:
Function IsPrime(ByVal number As Long) As Boolean
    'di Francesco Balena
    ' manually test 2 and 3
    If number > 3 Then
        If number Mod 2 = 0 Then Exit Function
        If number Mod 3 = 0 Then Exit Function
    End If
    ' we can now avoid to consider multiples
    ' of 2 and 3. This can be done really simply
    ' by starting at 5 and incrementing by 2 and 4
    ' alternatively, that is:
    '    5, 7, 11, 13, 17, 19, 23, 25, 29, 31, 35, 37, ...
    Dim divisor As Long
    Dim increment As Long
    Dim maxDivisor As Long
    divisor = 5
    increment = 2
    ' we don't need to go higher than the square
    ' root of the number
    maxDivisor = Sqr(number) + 1
    Do Until divisor > maxDivisor
        If number Mod divisor = 0 Then Exit Function
        divisor = divisor + increment
        ' this modifies 2 into 4 and viceversa
        increment = 6 - increment
    Loop
    ' if we get here, the number is prime
    IsPrime = True
End Function
Function getPrimi(Totale As Long)
    Dim sn  As Single
    Dim x   As Long
    sn = Timer
    For x = 1 To Totale
         If IsPrime(x) = True Then
         Debug.Print x & " NP"
         End If
    Next
    Debug.Print Timer - sn
End Function
Ciao, Carlo


title: Numeri Primi

author: RobertoA

text:

Pero' col debug, quello che porta via e' lo scorrimento della finestra coi
dati di debug
Piu alta e' e maggiore e' il tempo necessario
Nel mio caso (Athlon X2  3 GHz) varia da  0,625 con una riga visibile a 1,67
con una cinquantina di righe visibili
Prove ripetute piu volte
Senza debug per vedere qualcosa sul tempo bisogna andare sui 10M come
parametro routine
Ciao
RobertoA


title: Numeri Primi

text:

Infatti è quello che sostenevo... tuttavia se si dice che il Test si
fà con il DEBUG tutti lo si fà uguale... e le differenze
sono, a parità di codice imputabili alle prestazioni della macchina,
per codici diversi invece su ottimizzazioni di codice...!
Sotto posto la routine che uso io, non mia scaricata dal WEB qualche
tempo addietro... non sò dove.
Test eseguito su 10000 cicli con il codice di Carlo, quindi con il
Debug.Print...
Il mio PC è una ciofeca:
Intel(R) Core(TM)2 Duo CPU P7450 @ 2.13GHz
Memoria (RAM) 4,00 GB
Scheda video ATI Mobility Radeon HD 4650
Punteggio di W7 5,7, ma non credo serva a nulla...
RISULTATI:
Routine(Sotto)          2,484375
Routine(Carlo)   2,453125
Public Function IsPrime1(ByVal n As Long) As Boolean
   Dim r As Long
   Select Case n
      Case Is < 1: Err.Raise 5, "IsPrimeX", "IsPrimeX: argomento
errato !"
      Case 1: ' niente, non e' primo !
      Case 2, 3: IsPrime1 = True
      Case Else
         r = n Mod 6
         If r = 1 Or r = 5 Then  ' se n Mod 6 e' diverso da 1 o 5 il
numero NON e' primo.
            For r = 3 To Sqr(n) Step 2   ' controllo tutti i divisori
dispari...
               If (n Mod r) = 0 Then Exit Function
            Next
            IsPrime1 = True
         End If
   End Select
End Function
@Alex


title: Numeri Primi

text:
Il 21/12/2010 20.13, @Alex ha scritto:
> On 21 Dic, 20:11, "@Alex"<
ik2...@libero.it
>  wrote:
>> On 21 Dic, 19:57, Alessandro Cara<
alessandro.c...@ay-1anetwork.it
>
>> wrote:
>>
>>> Per chi avesse scritto una qualsiasi routine per il calcolo dei numeri
>>> primi sarei interessato a sapere i tempi di risposta per i seguenti
>>> valori (numero primi da trovare, segnalo i miei tempi su Acer Aspire
>>> 9112 - Intel Core Duo, 1.66GHz, 2Mb Ram)
>>
>>> 1000 =<1sec
>>> 5000 = 4Sec
>>> 10000 = 15sec
>>> 15000 = 32sec
>>
>>> P.S. mi va bene anche se la routine non e' scritta in VBA.
>>> --
>>
>>> ac (x=y-1)
>>
>> Ciao Alessandro.
>> Purtroppo devi dire come hai fatto il test, ti spiego la mia
>> domanda...!
>>
>> Ho fatto 2 prove:
>> Function getPrimi()
>>      Dim sn  As Single
>>      Dim x   As Long
>>      sn = Timer
>>      For x = 1 To Totale
>>          Debug.print x&  "� primo = ? "&  Call IsPrime(x)
>>      Next
>>      Debug.Print Timer - sn
>> End Function
>>
>> Questa su Totale=1000 impiega 1,4secondi...
>> Se ometto il Debug.Print invece impiega
>>   0,015625
>> ed impiega solo  0,0078125 su Totale=10000 ...
>>
>> Quindi rispondere � poco serio... fammi capire meglio come fai il
>> ciclo in modo che paragoniamo effettivamente
>> la Routine che io ho chiamato IsPrime(...)
>>
>> Ciao
>> @Alex
>
>
> Intendevo che la 2� prova � questa:
>
> Function getPrimi()
>      Dim sn  As Single
>      Dim x   As Long
>      sn = Timer
>      For x = 1 To Totale
>           Call IsPrime(x)
>      Next
>      Debug.Print Timer - sn
> End Function
>
> La funzione � scritta in VBA.
>
> @Alex
Intanto Buon Anno (tra l'altro 2011 e' primo).
Scusami per il ritardo nella risposta  (avevo da fare con la congettura
di Goldbach).
Guardando anche gli interventi di Carlo C. e RobertoA mi e' venuto il
dubbio che non sono stato chiaro quando parlo di 10.000 intendo 10.000
numeri primi e quindi il 104743.
E poi la debug e' d'obbligo poiche' io li scrivo in una tabella  log e
tale scrittura e' anche piu pesante del debug print.
Tra l'altro uso la semplice formula che prende in esame i dispari e non
la leggermente piu' sofisticata che va sotto il nome di 6n+/- 1
--
ac (x=y-1)


title: Numeri Primi

text:
Il 22/12/2010 15.04, Carlo Costarella ha scritto:
> "Alessandro Cara"<
alessan...@ay-1anetwork.it
>  ha scritto nel messaggio
> news:5N6Qo.16602$7b4....@tornado.fastwebnet.it...
>> Per chi avesse scritto una qualsiasi routine per il calcolo dei numeri
>> primi sarei interessato a sapere i tempi di risposta per i seguenti
>> valori (numero primi da trovare, segnalo i miei tempi su Acer Aspire
>> 9112 - Intel Core Duo, 1.66GHz, 2Mb Ram)
>>
>> 1000 =<1sec
>> 5000 = 4Sec
>> 10000 = 15sec
>> 15000 = 32sec
>>
>> P.S. mi va bene anche se la routine non e' scritta in VBA.
>> --
>>
>> ac (x=y-1)
>
> Con il debug 0,32 per 10000 numeri.
> Questo il codice usato tratto da Francesco Balena e modificando quello di
> Alex:
Ciao Carlo, buon anno.
Grazie per l'intervento ma su 10000 numeri la valutazione del tempo e'
molto imprecisa (gatto di Schrödinger?). Tra l'altro la formula
generalmente usata (Balena la fa intuire nelle note alla routine) e'
prendere i valori di 6n+/- 1 che sono le coppie *primo candidato*
--
ac (x=y-1)


title: Numeri Primi

text:

>>          Debug.Print x&  " NP"
>>          End If
>>     Next
>>     Debug.Print Timer - sn
>> End Function
>>
>> Ciao, Carlo
>
> Pero' col debug, quello che porta via e' lo scorrimento della finestra coi
> dati di debug
> Piu alta e' e maggiore e' il tempo necessario
> Nel mio caso (Athlon X2  3 GHz) varia da  0,625 con una riga visibile a 1,67
> con una cinquantina di righe visibili
> Prove ripetute piu volte
> Senza debug per vedere qualcosa sul tempo bisogna andare sui 10M come
> parametro routine
> Ciao
> RobertoA
>
>
>
Ciao RobertoA, buon anno.
Come vedi dalle mie risposte a Carl e Alessandro forse non mi sono
spiegato bene. I miei valori si riferivano a numeri primi trovati
--
ac (x=y-1)


title: Numeri Primi

text:
Il 02/01/2011 11.30, Alessandro Cara ha scritto:
Chiedo perdono, non *Carl* ma *Carlo*
--
ac (x=y-1)


title: Numeri Primi

text:
On 2 Gen, 11:19, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
wrote:

Beh posta il codice.... ed anche i risultati... anno nuovo Alessandro
vecchio...!!
;-)
@Alex


title: Numeri Primi

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:xiYTo.20180$7b4....@tornado.fastwebnet.it...
cut
> Intanto Buon Anno (tra l'altro 2011 e' primo).
> Scusami per il ritardo nella risposta  (avevo da fare con la congettura di
> Goldbach).
> Guardando anche gli interventi di Carlo C. e RobertoA mi e' venuto il
> dubbio che non sono stato chiaro quando parlo di 10.000 intendo 10.000
> numeri primi e quindi il 104743.
> E poi la debug e' d'obbligo poiche' io li scrivo in una tabella  log e
> tale scrittura e' anche piu pesante del debug print.
> Tra l'altro uso la semplice formula che prende in esame i dispari e non la
> leggermente piu' sofisticata che va sotto il nome di 6n+/- 1
>
> --
>
> ac (x=y-1)
Certo č meglio postare il codice che hai usato.
Con questi valori (104743) e con il debug ottengo:
3,53125 secondi
Ma, udite udite, utilizzando il recordset, cioč accodando i risultati ad una
tabella, questo č il risultato in secondi:
0,140
Questa la funzione modificata:
Function getPrimi(Totale As Long)
    Dim sn  As Single
    Dim x   As Long
    Dim Tbl As Recordset
    Set Tbl = CurrentDb.OpenRecordset("TblNumeriPrimi") '(tabella con
contatore ID, chiave primaria e NP, numerico)
    sn = Timer
    For x = 1 To Totale
         If IsPrime(x) = True Then
         With Tbl
         .AddNew
         !NP = x
         Tbl.Update
        End With
         'Debug.Print x & " NP"
         End If
    Next
    Debug.Print Timer - sn
End Function
Ciao, Carlo


title: Numeri Primi

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:srYTo.20184$7b4....@tornado.fastwebnet.it...

Sì.
Ti ho postato una variante con il recordset e ti assicuro che i tempi sono
quelli, meno di un secondo.
Non faccio in tempo a dare invio che i dati sono già tutti accodati e questo
proprio visivamente a prescindere dal valore di timer.
Ciao, Carlo


title: Numeri Primi

text:
Il 02/01/2011 15.33, Carlo Costarella ha scritto:
> "Alessandro Cara"<
alessan...@ay-1anetwork.it
>  ha scritto nel messaggio
> news:xiYTo.20180$7b4....@tornado.fastwebnet.it...
> cut
>> Intanto Buon Anno (tra l'altro 2011 e' primo).
>> Scusami per il ritardo nella risposta  (avevo da fare con la congettura di
>> Goldbach).
>> Guardando anche gli interventi di Carlo C. e RobertoA mi e' venuto il
>> dubbio che non sono stato chiaro quando parlo di 10.000 intendo 10.000
>> numeri primi e quindi il 104743.
>> E poi la debug e' d'obbligo poiche' io li scrivo in una tabella  log e
>> tale scrittura e' anche piu pesante del debug print.
>> Tra l'altro uso la semplice formula che prende in esame i dispari e non la
>> leggermente piu' sofisticata che va sotto il nome di 6n+/- 1
>>
>> --
>>
>> ac (x=y-1)
>
> Certo è meglio postare il codice che hai usato.
> Con questi valori (104743) e con il debug ottengo:
> 3,53125 secondi
> Ma, udite udite, utilizzando il recordset, cioè accodando i risultati ad una
> tabella, questo è il risultato in secondi:
> 0,140
> Questa la funzione modificata:
Quello non e' un problema ma e proprio quello che mi interessa vedere e
quindi "rivelare" il codice e' l'ultima cosa che si deve fare.
Come vedi alcuni risultati sorprendenti tipo che l'aggiunta a recordset
e' piu' veloce della debug e' un dato importante.
Io non cercavo particolari prestazioni e faccio una insert (piu' lenta
della addnew) ma per blocchi di numeri, scrivo stringhe di 210 caratteri)
Nel frattempo aggiungendo semplicemente il controllo sulla radice
quadrata per 20.000 primi i tempi sono passati a due secondi circa
--
ac (x=y-1)


title: Numeri Primi

text:

I risultati li ho gia' postati.
Vuoi sostenere che ho qualche problema a mostrare il codice ;-{)
cfr mia risposta a Carlo
>
> @Alex
--
ac (x=y-1)


title: Numeri Primi

text:
On 2 Gen, 15:49, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>

Ma no... chi se ne frega ... solo che se posti il tuo codice lo provo
al volo, in modo da darti un'equivalenza di efficienza in termini
relativi di paragone... se devo scrivermi il tuo algoritmo ...
ciccia... ti arrangi... ;-)
Buon Anno.
@Alex


title: [WPF] Formattazione numeri - Localizzazione.

author: Fabrizio Alessandri

text:
Ciao a tutti.
Ho trovato la funzione "StringFormat" da applicare al tag della textbox.
Poi ho scoperto con somma gioia (...) che segue le regole della lingua predefinita dell'XML (credo), quindi virgola e punto anglosassoni.
Per convertirla, dopo almeno un'ora di ricerche, ho capito che va impostato nelle proprietà del thread.
Ho trovato un es. di M.Servienti in C#, che date le mie capacità, non sono stato capace di convertire :(

var cultureName =
Thread.CurrentThread.CurrentCulture.Name
;
var xmlLang = XmlLanguage.GetLanguage( cultureName );
FrameworkElement.LanguageProperty.OverrideMetadata (
typeof( FrameworkElement ),
new FrameworkPropertyMetadata( xmlLang ) );

Una volta tradotta in VB, dove va posizionata? Form di avvio o in ogni form dove voglio utilizzarla?
Grazie in anticipo.

P.S.
per la netiquette, non lo chiedo direttamente Mauro.


text:
>predefinita dell'XML
Volevo scrivere del OS.

Ora me ne vado a dormire.

F.


text:

Scusate, ho postato nel forum sbagliato sbagliato! :-D


title: casella combinata - puù controlli campo

text:
ho una tabella "localita" con dentro i campi "citta", "cap" e "prov".
ho una tabella "anagrafe" in cui vi sono i campi citta, cap e prov,
in una maschera ho creato una casella combinata in cui al controllo citta
della tab. anagrafe venga memorizzata la citta scelta dalla casella
combinata di localita.
Come faccio a inserire, scegliendo la citta dalla casella combinata, anche
il CAP e la Prov nei relativi controlli cap e prov collegati alla tabella
località? e poi è possibile fare anche l'inverso, cioè scegliaendo il cap
inserire anche la citta?
luigi
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: casella combinata - puù controlli campo

author: Sergio MAZZA

text:
"luigi.onofrio" <
onofrio...@tin.it
> ha scritto nel messaggio
news:f4tlmv$mt5$1...@news.newsland.it...
> ho una tabella "localita" con dentro i campi "citta", "cap" e "prov".
> ho una tabella "anagrafe" in cui vi sono i campi citta, cap e prov,
> in una maschera ho creato una casella combinata in cui al controllo citta
> della tab. anagrafe venga memorizzata la citta scelta dalla casella
> combinata di localita.
> Come faccio a inserire, scegliendo la citta dalla casella combinata, anche
> il CAP e la Prov nei relativi controlli cap e prov collegati alla tabella
> località? e poi è possibile fare anche l'inverso, cioè scegliaendo il cap
> inserire anche la citta?
> luigi
(se non l'hai fatto) Devi includere i campi "cap" e "prov" nella SQL origine
riga; indicare il numero giusto di colonne (scheda Formato) e indicare la
grandezza delle colonne (se non vuoi vederle la imposti a 0cm).
Poi gestisci l'evento "dopo aggiornamento" della casella combinata
inserendoci:
If not isnull(me!nomeCasellaCombinata) then
    me!cap = me!nomeCasellaCombinata.Column(1)
    me!citta = me!nomeCasellaCombinata.Column(2)
else
    me!cap = null
    me!citta = null
end if
Ciao.
--
Sergio MAZZA


title: casella combinata - puù controlli campo

text:
Sergio MAZZA ha scritto:


> Ciao.
OK !!!!
grazie della dritta!



title: Path del Dbase

author: FasoN

text:
Ciao,
vorrei gentilmente sapere se c'e' un metodo per ricavare il Path del dbase
corrrente io per il momento uso
Application.CurrentDb.Name
 in cui ho sia
path che nome e con una funzione ricavo solo il path.
Ciao e grazie in anticipo.
<LuigI>


title: Path del Dbase

author: Rox

text:
> vorrei gentilmente sapere se c'e' un metodo per ricavare il Path del dbase
> corrrente io per il momento uso
Application.CurrentDb.Name
 in cui ho sia
> path che nome e con una funzione ricavo solo il path.
Infatti!
nella proprietą .Name c'č il path completo di dove si trova il db


title: dim e type

author: Alfonso Carfora

text:
Ho letto che si puo dichiarare una variabile tipo definita dall'utente
ad es.: Dim db as database
utilizzando il comando "type"
ma non capisco in concreto come debba fare
C'è qualcuno che sa spiegarmi come ?
La debbo utilizzare in un modulo
Grazie in anticipo
Alfonso


title: dim e type

author: Roberto dal portatile

text:
"Alfonso Carfora" <
alfonso...@libero.it
> ha scritto nel messaggio
news:eDVD7.15930$7A4.9...@news.infostrada.it...

Non mi risulta che esista un comando Type, ma una istruzione Type.
Hai provato a cercare sull'help Istruzione Type ed Esempio di istruzione
Type?
Però, per quello che so io, con tale istruzione Type puoi impostare il tipo
dato di un oggetto che che già esiste e non dichiarti una variabile.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: dim e type

text:
se scrivo questa riga:
Dim db as Database
mi da errore non riconosce "Database" come una possibile variante
come posso fare?
ciao
Alfonso
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9rpeuc$2qcg$1...@stargate1.inet.it...



title: dim e type

author: Antonio Biso

text:
Alfonso Carfora <
alfonso...@libero.it
> wrote in message
BR8E7.20608$7A4.1...@news.infostrada.it...
> se scrivo questa riga:
> Dim db as Database
> mi da errore non riconosce "Database" come una possibile variante
> come posso fare?
Potresti provare intanto a scrivere DOPO il quoting!!!
Antonio


title: dim e type

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:EFdE7.23005$7A4.1...@news.infostrada.it...

ciao
Alfonso


title: dim e type

text:
Alfonso Carfora <
alfonso...@libero.it
> wrote in message
yNeE7.23594$7A4.1...@news.infostrada.it...

Bene.
Che versione di access usi: se č la 2000 forse devi prenmettere DAO,
altrimenti potrebbe essere un prblema di riferimenti che non trova piů.
Controlla in strumenti riferimenti
Antonio


title: dim e type

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:12hE7.24781$7A4.1...@news.infostrada.it...

uso access2000
che significa premettere DAO?
scusa l'ignoranza
ciao
Alfonso


title: dim e type

text:
Alfonso Carfora <
alfonso...@libero.it
> wrote in message
42iE7.25307$7A4.1...@news.infostrada.it...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:12hE7.24781$7A4.1...@news.infostrada.it...
>
> > Antonio
> >
> uso access2000
> che significa premettere DAO?
> scusa l'ignoranza
Guarda, io non ho il 2000, ma mi pare di aver capito che la siontassi sia
diversa. Qualcosa tipo
dim db as DAO.database
Antonio


title: [ Pages ]

author: Michele

text:
Ciao al NG.
Riprendendo un argomento postato in precedenza, sapreste dirmi come operare
per visualizzare su un User_Form il numero restiruito dalla proprietą  Pages
(numero complessivo di pagine del report) ?
Grazie per i suggerimenti.
Michele


title: [ Pages ]

text:
"Michele" <
michele....@tin.it
> ha scritto nel messaggio
news:bgp6c.65563$z23.2...@news3.tin.it...

Per quanto ne so' (acc'97) puoi leggere il totale delle pagine solo se hai
il report aperto...
Ciao.
--
Sergio MAZZA


title: [ Pages ]

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:c3edab$sh3$1...@canarie.caspur.it...
> "Michele" <
michele....@tin.it
> ha scritto nel messaggio
> news:bgp6c.65563$z23.2...@news3.tin.it...
> > Ciao al NG.
> > Riprendendo un argomento postato in precedenza, sapreste dirmi come
> operare
> > per visualizzare su un User_Form il numero restiruito dalla proprietà
> Pages
> > (numero complessivo di pagine del report) ?
> > Grazie per i suggerimenti.
> > Michele
> >
>
> Per quanto ne so' (acc'97) puoi leggere il totale delle pagine solo se hai
> il report aperto...
>
> Ciao.
>
> --
> Sergio MAZZA
>
>
Ok, sigh! sigh!   :°(((
Grazie Sergio e grazie anche ad @Alex per il precedente interessamento .


title: email da maschera tramite thunderbird

author: giannirusso

text:
Buongiorno, ho provato a realizzare un pulsante che con un click invia
un'email precompilata ad un certo indirizzo (sempre lo stesso nel mio caso).
Nell'email inoltre dovrebbero esserci un paio di campi estratti dal
database (numero e data fattura).
E' possibile?
Grazie
Gianni


title: email da maschera tramite thunderbird

author: Nicoletta

text:
Ultimamente, dopo vari metodi provati, uso blat

Nicoletta



title: email da maschera tramite thunderbird

text:
Il 13/06/2013 13:33, Nicoletta ha scritto:> Ultimamente, dopo vari
metodi provati, uso blat

Ho visto le caratteristiche ed è molto interessante. Per il momento sono
riuscito a farlo da codice con SendObject ma tengo Blat da parte per il
futuro.

 > Nicoletta
Grazie
Gianni