title: Mail da un database

author: Alessandro Baraldi

text:
"Informatica Education Center" <
in...@studioieducation.com
> wrote in
message news:5vf2e.711085$
b5.32...@news3.tin.it
[CUT]
>
> Se vuoi ho 1 applicativo d'esempio che posso inviarti..."GRATIS"
> naturalmente
>
> Gaspare
>
http://www.studioieducation.com
Ciao Gaspare.
Volevo aggiungere una nota al consiglio di Sergio.
Il fatto che sia GRATIS l'hai già chiarito con Roberto, la cosa
è pure lodevole, ma non ha nessun contributo informativo per
il NG.
Io, e credo tutti i partecipanti del Gruppo, vorremo che il NG
fosse una risorsa d'informazioni Utili e pertinenti, volte a far
crescere sia i partecipanti, sia il livello tecnico dei messaggi.
Detto questo, viene intuitivo dedurre che un Post nel quale ti proponi
di risolvere in privato l'argomento piuttosto che inviare materiale
rende decisamente STERILE e non costruttivo il problema ed il modo
di affrontarlo.
Come vedi in questo NG non moderato ci siamo dati alcune regole
comportamentali proprio per Ottimizzarne l'uso da parte di tutti.
Visto che mi pare tu abbia una discreta preparazione, sarebbe
un'ottimo punto di partenza avere anche il tuo contributo in questa
direzione.
Il SitoComune accoglie con interesse eventuali DEMO, e, dato che
recentemente l'aggiornamento è pressochè mensile, potrebbe essere
un ottimo supporto a suffragio di un argomento trattato nel NG e
di cui nel giro di qualche settimana si trova anche un Demo nel
SitoComune.
Spero di non averti contrariato, ma di averti sensibilizzato su
come si vorrebbe rendere propositivo il NG.
Ovviamente se hai considerazioni alternative, ma ugualmente
propositive ben vengano.
Ciao
Alessandro Baraldi
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Mail da un database

text:
"Informatica Education Center" <
in...@studioieducation.com
> wrote in
message news:Zyf2e.711104$
b5.32...@news3.tin.it
[CUT]
> Ciao Sergio,
> ho capito lo spirito "didattico" etc... del Newsgroup ma quando scrivo del
> codice molti non seguono... e cmq il materiale che offro è "GRATUITO" ...non
> sono così avido :-)
>
> Cmq cercherò di non mandare più nulla: OK?
>
> Gaspare :-)
Leggi la mia Mail forse ti sarà più chiaro cosa intendiamo.
Non prenderla come una cosa personale, anzi ritengo tu sia
un'ottimo acquisto per il NG, e penso che ti manchi solo
l'ottica con il quale noi tutti fino ad ora lo portiamo avanti.
Ciao
@Alex



title: Mail da un database

author: Informatica Education Center

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:48e119e908504793b9...@mygate.mailgate.org...

Niente da "ridire" Alessandro: sono pienamente d'accordo con te, Sergio,
Roberto etc...
Mi scuso per le volte in cui ho trasgredito le regole del NG: non era
assolutamente mia intenzione farlo!
Siccome quando ho iniziato a smanettare con i linguaggi di programmazione
nessuno mi ha dato 1 mano mi sono ripromesso che l'avrei fatto io quando ne
avrei avuto la possibilità...libero di non crederci...ma è la "mia"
verità....come dice qualcuno "TUTTO CIO' CHE NON E' DATO VA PERDUTO!"
Da ora in poi seguirò le regole del NG :-) e proporrò del materiale al sito
comune
Ciao
Gaspare


title: Mail da un database

text:
"Informatica Education Center" <
in...@studioieducation.com
> wrote in
message news:nRf2e.711164$
b5.32...@news3.tin.it
[CUT]
> Niente da "ridire" Alessandro: sono pienamente d'accordo con te, Sergio,
> Roberto etc...
>
> Mi scuso per le volte in cui ho trasgredito le regole del NG: non era
> assolutamente mia intenzione farlo!
Sono sicuro di questo e lo si vede da come partecipi, ed è per questo
che ho voluto precisare questa cosa.

> Siccome quando ho iniziato a smanettare con i linguaggi di programmazione
> nessuno mi ha dato 1 mano mi sono ripromesso che l'avrei fatto io quando ne
> avrei avuto la possibilità...libero di non crederci...ma è la "mia"
> verità....come dice qualcuno "TUTTO CIO' CHE NON E' DATO VA PERDUTO!"
Purtroppo se hai iniziato qualche anno fà circa 20 come me era la
regola, c'era solo qualche libro in Inglese e qualche rivista,
tieni presente che ho iniziato con Assembler del C64-->C128-->Amiga
sempre Assembler, poi BlackOut per 10 anni, mi sono riavvicinato
al PC nel 96 per esigenze di lavoro, e mi sono trovato VisualBasic
ed Access come giocattoli di programmazione ma una moltitudine
di NG tra i quali prediligo sempre questo che mi hanno supportato
come non averi pensato.
Sono cresciuto molto grazie a persone che mi hanno indirizzato
al ragionamento invece che darmi la soluzione pronta...!
Il peccato è aver mollato l'assembler. ;-)
> Da ora in poi seguirò le regole del NG :-) e proporrò del materiale al sito
> comune
Sono sicuro che non sarà un problema, anzi troverai nel SC un
enorme quantità di materiale + o meno complesso, ma sempre
di buona qualità.
Io come hai avuto modo di notare ho un mio sito, ma tutto il
materiale pubblicato è stato ceduto al SC, poichè ci tengo
che permanga il riferimento più seguito.
> Ciao
> Gaspare
Ciao Buona giornata.
Alessandro.



title: Mail da un database

author: ciroteo

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:fad94271bc9bb6cf4c...@mygate.mailgate.org...

Potresti inoltre dare il tuo valido contributo inviando esempi commentati ai
webmaster del sitocomune, non credo ci siano problemi alla loro
pubblicazione. Sarebbe per tutti un piacere studiare le soluzioni da te
adottate.
Ciao!


title: Mail da un database

author: Gaspare

text:
"ciroteo" <
ciroteo_c...@libero.it
> ha scritto nel messaggio
news:d2digb$3u4$1...@hulme.interac.it...

Ciao,
grazie per l'invito...pensavo che il sito comune fosse già pieno di
materiale
Se mi dai qualche dritta su quello che potrrebbe "essere utile" posso
attivarmi...ho degli applicativi ma presuppongo che sia meglio magari
"assemblare" qualcosa ed implementarla per 1 specifico obiettivo!
Gaspare


title: Mail da un database

text:
"Gaspare" <
in...@studioieducation.com
> ha scritto nel messaggio
news:oms2e.713030$b5.32...@news3.tin.it...

Hai visto il sito della CISA?
Li ci sono una serie di argomenti ancora da trattare, secondo me potrebbe
essere propedeutico sviluppare qualcosa attinente ai temi ancora in sospeso.
Potresti poi essere coinvolto da Karl e MA come relatore, altrimenti le idee
sono infinite, basta guardare il sitocomune e vedere cosa manchi, nonostante
il copioso materiale già raccolto.
Potrei suggerirti qualcosa su cui sto ancora sbattendo la capa (treeview, o
spedizione files con modem seriale, ottimizzazione di uno scadenziario
aziendale, gestione ciclica dei turni ecc....),  ma riconosco in questo caso
di essere in aperto conflitto di interessi e dato il periodo, mi tocca
rispettare la par condicio. A proposito ti sei iscritto su
www.accessgroup.it
 indicando la tua provenienza? Pensi di partecipare alla
CISA?


title: Mail da un database

text:
"ciroteo" <
ciroteo_c...@libero.it
> ha scritto nel messaggio
news:d2dn28$43c$1...@hulme.interac.it...

Sinceramente mi piacerebbe partecipare...sono 1 pò perplesso per la scadenza
(ovviamente con riferimento alle mie di "scadenze" :-( ) ...sai è da
pochissimo (1 diecina di giorni) che sono sul  NG ed appena adesso inizio a
"capire" il vs. spirito etc...
Per la provenienza risiedo ad Adegliacco di Tavagnacco (UD) e conosco bene
Gradisca d'Isonzo (sede, da quello che leggo, del mitico "Namor") in quanto
ho svolto delle lezioni d'informatica per conto di un'azienda di Udine
anche se non consco Marco Pizzamiglio...
Penso che ci possa essere qualche occasione per conoscerci...l'Italia in
fondo è piccola :-)
Buona giornata
Gaspare


title: Mail da un database

author: Sergio MAZZA

text:
"Informatica Education Center" <
in...@studioieducation.com
> ha scritto nel
messaggio news:Zyf2e.711104$b5.32...@news3.tin.it...
>
>
> Ciao Sergio,
> ho capito lo spirito "didattico" etc... del Newsgroup ma quando scrivo del
> codice molti non seguono... e cmq il materiale che offro è "GRATUITO"
Tanto per chiarire; il fatto che il codice non venga capito è (se vogliamo)
una cosa normale che dipende da chi suggerisce la soluzione e chi la deve
recepire. Se uno dei due non è chiaro nell'esporre le idee di certo, una
applicazione già pronta, non le chiarisce perché utilizzerà sempre lo stesso
codice.
A chi serve la soluzione dovrebbe cercare di studiare le tecniche
suggeritegli e chi le suggerisce le dovrebbe esporre nel miglior modo
possibile per raggiungere in poco tempo (per entrambi) la risoluzione.
> ...non sono così avido :-)
Se sei avido o no non è un mio problema; io posso essere avido in alcuni
casi e in altro no (e triste chi ci capita).
> Cmq cercherò di non mandare più nulla: OK?
Sbagli; ti d'ho una dritta, se vuoi inviare qualcosa a qualcuno lo contatti
in privato senza scrivere nell'NG. Così non lo saprà nessuno e non avrai
violato nessuna regola ma, l'NG avrà perso una risorsa (la tua soluzione) e
lo stesso NG si impoverirà di richieste perché tu (dopo un passa parola)
sarai subissato da chiunque avrà un problema...
> Gaspare :-)
Ciao.
--
Sergio MAZZA


title: errore su query sovrapposizione orari

author: piocanet

text:
Ragazzi chi mi aiuta? Ho la seguente query
SELECT tVisitaMedica.idVisitaMedica, tVisitaMedica.dataVisita,
tVisitaMedica.oraVisita, tClienti.nome, tClienti.cognome,
DateAdd('n',20,[oravisita]) AS OraFineVisita
FROM tClienti INNER JOIN tVisitaMedica ON tClienti.idCliente =
tVisitaMedica.cliente
WHERE (((tVisitaMedica.oraVisita)<#18.00#) AND
DateAdd('n',20,[oravisita])>DateAdd('n',20,#18.00#));
che se restituisce record vuol dire che c'è una sovrapposizione di
orari. Solo che non mi funziona..
Riuscite a capire l'errore?Io sto fondendo!


title: errore su query sovrapposizione orari

author: Roberto dal portatile

text:
"piocanet" <
barbera...@gmail.com
> ha scritto nel messaggio
news:1165176186.8...@j44g2000cwa.googlegroups.com...

Non sono riuscito a capire cosa tu voglia fare con la tua query, ma se la
durata delle visite è da considerarsi di 20 minuti, per segnalare le
sovrapposizioni prova con una query che abbia il seguente codice SQL:
SELECT tVisitaMedica.idVisitaMedica, tVisitaMedica.dataVisita,
tVisitaMedica.oraVisita, tClienti.nome, tClienti.cognome, DateAdd('n', 19,
[oraVisita]) AS OraFineVisita, DCount("*", "tVisitaMedica",
"idVisitaMedica<>" & [idVisitaMedica] & " And dataVisita = #" &
Format([dataVisita], "mm/dd/yyyy") & "# And
(oraVisita <= #" & [oraVisita] & "# And
[oraVisita] + #00:19:00#
>= #" & [oraVisita] & "#)") AS Espr1
FROM tClienti INNER JOIN tVisitaMedica ON tClienti.idCliente =
tVisitaMedica.cliente
WHERE (((DCount("*","tVisitaMedica","idVisitaMedica<>" & [idVisitaMedica] &
" And dataVisita = #" & Format([dataVisita],"mm/dd/yyyy") & "# And
(oraVisita <= #" & [oraVisita] & "# And
[oraVisita] + #00:19:00#
>= #" & [oraVisita] & "#)"))<>0))
ORDER BY tVisitaMedica.dataVisita, tVisitaMedica.oraVisita;
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Nomi delle form e query

author: Guriuz

text:
Salve a tutti,
è possibile che un nome di una form con una struttura di questi tipo
"Parte1-Parte2" possa dare darei problemi in una query di accodamento?
Ho l'impressione che ciò sia accaduto. Difatti se lancio la query in
questione mi va a fare riferimento ad una form con nome Parte2.
Siccome immagino ci sia la necessità di cambiare i nomi delle form
interessate, esiste la possibilità di sapere dove viene utilizzato un
certo nome all'interno di tutto il Db?
Grazie a tutti per la collaborazione.


title: Nomi delle form e query

author: Pablitomf (Maurizio Facciuti) [Acces]

text:
"Guriuz" <
gur...@gmail.com
> ha scritto nel messaggio
news:mn.ba377d757...@gmail.com...
> Salve a tutti,
> è possibile che un nome di una form con una struttura di questi tipo
> "Parte1-Parte2" possa dare darei problemi in una query di accodamento?
> Ho l'impressione che ciò sia accaduto. Difatti se lancio la query in
> questione mi va a fare riferimento ad una form con nome Parte2.
Anche usando nell'SQL le quadre? Es. [Parte1-Parte2]
--
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."


title: Nomi delle form e query

text:
Pablitomf (Maurizio Facciuti) [Acces] il giorno 23/05/2007 alle ore
9:47:57 ha scritto:
> Anche usando nell'SQL le quadre? Es. [Parte1-Parte2]
Sembra funzionare!!! Le provo sulle altre, mamma mia mi hai salvato
grazie... speriamo bene...


title: Comparare Oggetti Database Access Esiste?

author: Antonio

text:
Esiste un tool che  mi permetta di comparare gli oggetti (tabelle, maschere,
query, moduli, macro) di 2 database Access?
Grazie


author: Roberto da casa

text:
"Antonio" <
a.b...@razionalservizi.it
> ha scritto nel messaggio
news:c3uga3$2b4iqb$1...@ID-218975.news.uni-berlin.de...

Non credo esita nulla del genere già pronto dato in dotazione ad Access.
Però, usando DAO con VBA, non è impossibile confrontare a struttura di
alcuni oggetti di due database o il codice SQL di due query.
Tutto dipende da quanto conosci VBA e DAO.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: SunRex

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:PeB8c.88917$Kc3.2...@twister2.libero.it...
>
> "Antonio" <
a.b...@razionalservizi.it
> ha scritto nel messaggio
> news:c3uga3$2b4iqb$1...@ID-218975.news.uni-berlin.de...
> > Esiste un tool che  mi permetta di comparare gli oggetti (tabelle,
> maschere,
> > query, moduli, macro) di 2 database Access?
> > Grazie
>
> Non credo esita nulla del genere già pronto dato in dotazione ad Access.
> Però, usando DAO con VBA, non è impossibile confrontare a struttura di
> alcuni oggetti di due database o il codice SQL di due query.
> Tutto dipende da quanto conosci VBA e DAO.
Aggiungerei DAO oppure ADO
SunRex



text:
"SunRex" <
sunrexs...@hotmail.it
> ha scritto nel messaggio
news:UlB8c.99938$z23.4...@news3.tin.it...
>
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:PeB8c.88917$Kc3.2...@twister2.libero.it...
> >
> > "Antonio" <
a.b...@razionalservizi.it
> ha scritto nel messaggio
> > news:c3uga3$2b4iqb$1...@ID-218975.news.uni-berlin.de...
> > > Esiste un tool che  mi permetta di comparare gli oggetti (tabelle,
> > maschere,
> > > query, moduli, macro) di 2 database Access?
> > > Grazie
> >
> > Non credo esita nulla del genere già pronto dato in dotazione ad Access.
> > Però, usando DAO con VBA, non è impossibile confrontare a struttura di
> > alcuni oggetti di due database o il codice SQL di due query.
> > Tutto dipende da quanto conosci VBA e DAO.
>
> Aggiungerei DAO oppure ADO
>
> SunRex
Non potevo aggiungere ADO: non lo conosco e cerco di parlare solo di quello
che conosco.



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

text:
Ecco alcune regole pubblicate sul nostro Sito Comune e che è auspicabile
vengano rispettate da tutti i frequentatori di questo NG.
==============================================
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.
Si possono effettuare delle ricerche nell'archivio storico del Sito Comune.
- 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
Se si decide comunque di scrivere al ng sarebbe bene tenere presente:
Il SUBJECT
-------------------
Nello scrivere l'oggetto del messaggio si dovrebbe dare maggiore importanza
perche' contribuisce ad identificare immediatamente l'argomento e il tipo
diproblema, 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 riformularlo 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 del precedente.
Lasciare il contenuto del testo originario se breve, oppure riassumere il
contenuto tagliando le parti meno significative, lasciando quelle
piu'interessanti per la comprensione del discorso.
- Non farsi coinvolgere in polemiche con altri partecipanti ed eventuali
disaccordie sarebbe meglio proseguirle 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
ATTENZIONE
I successivi sono testi carichi d'ironia, cioe' sono suggerimenti da
EVITARE!
GALAMAILEO di John of the Homepage
http://www.mamofaq.usenet.eu.org/FAQ-galamalileo.txt
Cara Emily Postnews...
http://uniper.unimo.it/uniper/cara_emily_postnews.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
      CUL8R 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 out loud
      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


author: Karl Donaubauer

text:
Roberto dal portatile wrote:
> ...
> 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).
> ...
Ciao Roberto,
siccome sono passato 6 anni da
http://groups.google.com/group/it.comp.appl.access/browse_frm/thread/7da36b98fd12fcbd/538d42e475a42b4f
IMO è tempo di aggiornare le versioni p.e.
(A97, A00, AXP/W00, A03/WXP, A07/Vista)
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
Karl Donaubauer wrote:
> ...sono passato 6 anni...
"passati"?
e il mio italiano è ancora male.
:-/


text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:4tdovnF...@mid.individual.net...

...è ancora da migliorare.
> :-/
Sei troppo forte...
Ciao.
--
Sergio MAZZA


title: calcolo con percentuali

author: pippo

text:
in diverse parti del mio DB dovrò eseguire una somma
di valori espressi in percentuale
mi spiego:
valore 1= 23    valore1 % = 23/67*100 = 34,33%
valore 2 = 44   valore2 % =  44/67*100= 65,67
totale:  67    totale %: 100%
purtroppo a causa dell'arrontondamento, visto anche che i valori da sommare
sono tanti, alcune volte la somma in percentuale non mi da 100%
il che è un errore
vome risolvere?


title: calcolo con percentuali

author: Roberto dalla campagna

text:
"pippo" <
pi...@pippo.it
> ha scritto nel messaggio
news:FBBUe.45051$4g5.2...@news4.tin.it...

L'ultima percentuale determinale invece che con la stessa formula delle
altre percentuali, sottraendo al valore 100% la somma delle altre
percentuali precedentamente calcolate: così facendo la somma di tutte le
percentuali ti darà dempre il valore 100%.
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Ricerca in sottomaschera

author: Rosario Manto

text:
Ho creato un maschera che ha 2 pulsanti ed una sottomaschera che richiama
una tabella
quale codice potrei utilizzare per
1 aprire tale maschera
2. e far apparire solo alcuni record?
Grazie


title: Ricerca in sottomaschera

text:
"Rosario Manto" <
rosari...@citiesonline.it
> ha scritto nel messaggio
news:8tkhj3$j9q$1...@serv1.iunet.it...

Sono quasi sicuro di non aver capito, nel dubbio: vedi help alla voce
openform...
Ciao.


title: Ricerca in sottomaschera

text:
Vorrei aprire la maschera e visualizzare nella sottomaschera alcuni record
filtrati
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
8tlvr4$90o$1...@suite03.caspur.it...



title: Ricerca in sottomaschera

text:
"Rosario Manto" <
rosari...@citiesonline.it
> ha scritto nel messaggio
news:8tm468$knk$1...@serv1.iunet.it...
> Vorrei aprire la maschera e visualizzare nella sottomaschera alcuni record
> filtrati
>
>
Puoi inserire una casella di testo (magari non visibile) e associ la stessa
nelle proprietą della sottomaschera "campi secondari/master".
Ciao.


title: Ricerca in sottomaschera

text:
Ho tentato d'inserire questo codice attaccato all'evento clic di un
pulsante in un'altra maschera:
  DoCmd.OpenForm "Contatti", acNormal, , "[Cognome]Like'" & Me![Cognome] &
"*'", acReadOnly, acNormal
dove con Contatti indico la maschera che contiene la sottomaschera
naturalmente con Me! ets etc indico la condizione di ricerca
del record nella sottomaschera che contiene anch'essa un campo cognome :
i problema è che non so come inserire l'informazione che deve ricercare il
record nella sottomaschera
grazie
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
8tm9ur$dup$1...@suite03.caspur.it...
>
> "Rosario Manto" <
rosari...@citiesonline.it
> ha scritto nel messaggio
> news:8tm468$knk$1...@serv1.iunet.it...
> > Vorrei aprire la maschera e visualizzare nella sottomaschera alcuni
record
> > filtrati
> >
> >
> Puoi inserire una casella di testo (magari non visibile) e associ la
stessa
> nelle proprietà della sottomaschera "campi secondari/master".
>
> Ciao.
>
>


title: Ricerca in sottomaschera

text:
"Rosario Manto" <
rosari...@citiesonline.it
> ha scritto nel messaggio
news:8tmcsg$bn5$1...@serv1.iunet.it...
> Ho tentato d'inserire questo codice attaccato all'evento clic di un
> pulsante in un'altra maschera:
>   DoCmd.OpenForm "Contatti", acNormal, , "[Cognome]Like'" & Me![Cognome] &
> "*'", acReadOnly, acNormal
> dove con Contatti indico la maschera che contiene la sottomaschera
> naturalmente con Me! ets etc indico la condizione di ricerca
> del record nella sottomaschera che contiene anch'essa un campo cognome :
> i problema è che non so come inserire l'informazione che deve ricercare il
> record nella sottomaschera
> grazie
>
>
Rispondi dopo il messaggio originale, grazie.
Alt! C'è bisogno di chiarire la faccenda. La maschera principale è associata
a qualche sorgente dati (tabella o query)? Da quello che scrivi mi sembrava
di no.
Comunque (primo caso) se la maschera principale (quella che contiene la
sottomaschera da filtrare) non è associata:
- dalla maschera (es. Nominativi) che contiene il bottone per aprire
"Contatti":
'--------------------
DoCmd.OpenForm "Contatti"
Forms("Nominativi").Controls("NomeCasellaConIlDatoDaFiltrare") =
Me.NomeCasellaDaUtilizzareComeFiltro
'--------------------
Invece (secondo caso) se la maschera principale (quella che contiene la
sottomaschera da filtrare) è associata:
- devi includere il nome della casella di testo che contiene il cognome
nelle proprietà 'collega campi master/secondari' della sottomaschera;
- poi apri la maschera 'Contatti' filtrandola:
DoCmd.OpenForm "Contatti", acNormal, , "[Cognome] Like '" & Me![Cognome] &
"*'", acReadOnly, acNormal
In ogni caso cerca di aggiungere più informazioni possibili nei tuoi
messaggi, sulla struttura delle maschere/tabelle o qualsiasi altra cosa
potrebbe essere utile a comprendere la situazione...
Ciao.


title: Ricerca in sottomaschera

text:
Ho inserito (speriamo che sia giusto il codice) tale codice:
DoCmd.OpenForm "Maschera1", acNormal, , Forms("Elenco
indirizzi").Controls("Cognome") = "[Cognome]Like'" & Me![Cognome] & "*'"
praticamente siamo nel primo caso che tu hai contemplato
quindi  apro la maschera1 che contiene la sottomaschera Contatti e come
filtro utilizzo il valore del cognome o alcune lettere dello stesso
nella mia maschera Elenco indirizzi (ho sicuramente sbagliato il codice!)
Grazie
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
8tmgkk$fuf$1...@suite03.caspur.it...



title: Ricerca in sottomaschera

text:
"Rosario Manto" <
rosari...@citiesonline.it
> ha scritto nel messaggio
news:8tmkaf$bbq$1...@serv1.iunet.it...
> Ho inserito (speriamo che sia giusto il codice) tale codice:
> DoCmd.OpenForm "Maschera1", acNormal, , Forms("Elenco
> indirizzi").Controls("Cognome") = "[Cognome]Like'" & Me![Cognome] & "*'"
> praticamente siamo nel primo caso che tu hai contemplato
> quindi  apro la maschera1 che contiene la sottomaschera Contatti e come
> filtro utilizzo il valore del cognome o alcune lettere dello stesso
> nella mia maschera Elenco indirizzi (ho sicuramente sbagliato il codice!)
> Grazie
>
>
Scrivi la tua risposta sempre dopo la domanda, grazie.
No! Siamo fuori strada; allora:
nel bottone della maschera da dove vuoi aprire l'altra maschera con i
contatti scrivi le righe distinte:
'------------------
'apro la maschera che contiene la sottomaschera Clienti
DoCmd.OpenForm "Maschera1"
'------------------
'scrivo il cognome preso dalla maschera Elenco indirizzi, casella Cognome,
'e lo scrivo nella nuova casella chiamata  (es.) CercaCognome della maschera
Maschera1
Forms("Elenco Indirizzi").Controls("Cognome") =
Me.NomeNuovaCasellaDaUtilizzareComeFiltro
'------------------
Poi nelle proprietà della sottomaschera:
- scheda 'dati'
- proprietà 'collega campi secondari', inserisci il nome della casella di
testo da filtrare; dovrebbe essere Cognome;
- proprietà 'collega campi master', inserisci il nome della nuova casella di
testo che contiene il valore con cui filtrare la sottomaschera; per esempio
CercaCognome.
Tutto chiaro? E ripeto, se continui a non dire qual'è il nome della maschera
che contiene il bottone, il nome della maschera che contiene la
sottomaschera (Clienti?) e altri riferimenti; la cosa sarà molto dura...
Ciao.


title: Ricerca in sottomaschera

text:
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
8tmo72$i77$1...@suite03.caspur.it...

La maschera che contiene il pulsante si chiama: Elenco indirizzi
La maschera che contiene la sottomaschera si chiama : Maschera1
e la sottomaschera si chiama Sottomaschera Contatti
il filtro deve confrontare i due campi che si chiamano entrambi Cognome
sia nella maschera dov'è il pulsante sia nella sottomaschera
vorrei avere un filtro di tipo like così basta digitare una lettera per
avere la ricerca
Grazie
NB Il mio numero d'ICQ è 72272287


title: Ricerca in sottomaschera

text:
"Rosario Manto" <
rosari...@citiesonline.it
> ha scritto nel messaggio
news:8tmphm$802$1...@serv1.iunet.it...
>
> La maschera che contiene il pulsante si chiama: Elenco indirizzi
> La maschera che contiene la sottomaschera si chiama : Maschera1
> e la sottomaschera si chiama Sottomaschera Contatti
> il filtro deve confrontare i due campi che si chiamano entrambi Cognome
> sia nella maschera dov'č il pulsante sia nella sottomaschera
> vorrei avere un filtro di tipo like cosě basta digitare una lettera per
> avere la ricerca
> Grazie
> NB Il mio numero d'ICQ č 72272287
>
>
Gasp! Non avevo visto il 'like'; nel bottone della maschera 'Elenco
indirizzi' scrivi:
'----------------
DoCmd.OpenForm "Maschera1"
Forms("Maschera1").Controls("Sottomaschera Contatti").Form.RecordSource =
"select * from NomeTuaTabella where Cognome like '" & Forms("Elenco
indirizzi").Controls("Cognome") & "*'"
'----------------
Ciao.


title: Ricerca in sottomaschera

text:
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
8trep0$olm$1...@suite03.caspur.it...

Grazie carissimo Sergio ti voleveo dire che il tuo primo consiglio mi č
servito molto ora sto provando
il filtro cioč l'ultimo che mi hai mandato (quello con il LIKE) ti faccio
sapere domani 4 novembre
Grazie moltissimo


title: Ricerca in sottomaschera

text:
"Rosario Manto" <
rosari...@citiesonline.it
> ha scritto nel messaggio
news:8ts7k4$69k$1...@serv1.iunet.it...
> Grazie carissimo Sergio ti voleveo dire che il tuo primo consiglio mi č
> servito molto ora sto provando
> il filtro cioč l'ultimo che mi hai mandato (quello con il LIKE) ti faccio
> sapere domani 4 novembre
Uh?! Di quale anno? (eh! eh!)
> Grazie moltissimo
>
>
Ciao.


title: Ricerca in sottomaschera

text:
"Rosario Manto" <
rosari...@citiesonline.it
> ha scritto nel messaggio
news:8tunet$3ge$1...@serv1.iunet.it...
>
> E ' andato tutto bene
> grazie
>
> NB Penso che non sarà l'ultima volta che ci sentiamo!
>
>
Speriamo di no!
Ciao.


title: Ricerca in sottomaschera

text:
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
8ts8ib$3lf$1...@suite03.caspur.it...

E ' andato tutto bene
grazie
NB Penso che non sarą l'ultima volta che ci sentiamo!


title: Report, come visualizzare le date iniziale e finale?

author: Pabloid

text:
Sono Assolutamente un principiante, il problema é :
 in un semplicissimo
report che mi elenca una serie di Documenti con Data , Autore e Sede etc etc
, vorrei avere nell'intestazione di report un controllo che mi indichi
l'intervallo fra le date,( Es. "Documenti dal 3gen al 23 Feb")Grazie ,
abbiate pazienza. Paolo


author: Fabio Dalla Villa

text:

Crea caselle di controllo con funzioni di ricerca di minimo e di massimo sul
campo Data:
=DMax("[Data]";"nometabella";"")
...idem per DMin
Fabio Dalla Villa
Biella


title: Nessuno sa come aiutarmi

text:
Ho creato un Db con Access 2000 e trovandomi nell'esigenza di Convertirlo
come Db Access 97 ho attivato la librerie DAO 3.51 nel Access2000,ma
nonostante questo accorgimento suggeritomi da un amico del newgroup Access97
continua a non ricoscermi la tabella principale del Db, ho controllato le
funzioni utilizzate per scrivere il Db e non dovrebbero essere tra quelle
che danno problemi di converione allla versione97.
Andanto pero' a cliccare Riferimenti trovo attivato sul 2000:
1) Visual Basic for Applications
2) Microsoft Access 9.0 Object Library
3) OLE Automation
4) Microsoft DAO 3.51 Object Libray
Non essendo io un esperto di Access mi sono limitato a confrontare questi
due pannelli nella versione 97 e nella 2000 e tra i diue varia il punto
2)...e' per questo che Access97 non riconosce la mia tabella?
Grazie
Matteo


title: Nessuno sa come aiutarmi

author: Antonio Biso

text:
"M@L@" <
mal...@libero.it
> ha scritto nel messaggio
news:v03F9.27964$3l.7...@twister1.libero.it...
Non lo sai che dalle 12.30 alle 14.00 anche gli help-desk a pagamento sono
in pausa pranzo?!?
Antonio


title: Nessuno sa come aiutarmi

author: Teo

text:
Ehmm..scusa ma non ci avevo pensato...buon appetito allora!!!
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:7f3F9.29228$2B1.7...@twister2.libero.it...



title: Nessuno sa come aiutarmi

text:
"Teo" <
mal...@libero.it
> ha scritto nel messaggio
news:Qj3F9.28017$3l.7...@twister1.libero.it...
> Ehmm..scusa ma non ci avevo pensato...buon appetito allora!!!
Grazie, ma scrivi DOPO il quoting!!!
Antonio


title: somma righe query a campi incrociati

author: Akery

text:
buongiorno,
è possibile far comparire nell'ultima colonna di una query a campi
incrociati la somma di ogni riga?

grazie
Akery


title: somma righe query a campi incrociati

text:
nessuno risponde!
c'è soluzione a questo problema?

Akery

"Akery"  ha scritto nel messaggio news:ne83ls$r0g$1...@gioia.aioe.org...



title: querydef

author: Ciarby

text:
Ciao a tutti,
Quando cerco di usare l'oggetto "querydef" in una routine access non lo riconosce.
Come mai?
Grazie a chiunque voglia rispondermi.
Ciarby


title: querydef

author: MegaMax

text:
"Ciarby" <
cia...@virgilio.it
> ha scritto nel messaggio
news:cba046f6.01061...@posting.google.com...
> Ciao a tutti,
> Quando cerco di usare l'oggetto "querydef" in una routine access non lo
riconosce.
> Come mai?
spiegati meglio....


title: querydef

author: ciarby

text:
Grazie per avermi risposto cosě velocemente
Ti spiego meglio:
Quando
cerco di dichiarare una var. oggetto come tabedef
essa non compare tra i
possibili tipi elencati nella finestra di supporto,
e quando mando in
esecuzione il programma non č riconoscito.
Ci vogliono particolari
librerie che bisogna avere/attivare per usarlo?
Se si come faccio ad
ottenerle/attivarle?
Premetto che ho provato anche su altri cooputers dove
č installato access
ma č sempre cosě.
Grazie
>Ciarby
--------------------------------
Inviato via
http://usenet.iol.it


title: querydef

text:
"ciarby" <
cia...@virgilio.it
> ha scritto nel messaggio
news:62Z11Z124Z21Y9...@usenet.iol.it...
> Grazie per avermi risposto cosě velocemente
> Ti spiego meglio:
> Quando
> cerco di dichiarare una var. oggetto come tabedef
> essa non compare tra i
> possibili tipi elencati nella finestra di supporto,
> e quando mando in
> esecuzione il programma non č riconoscito.
> Ci vogliono particolari
> librerie che bisogna avere/attivare per usarlo?
L'unica che mi viene in mente č controllare che ci sia il riferimento al DAO
> Se si come faccio ad
> ottenerle/attivarle?
Menu Strumenti, voce Riferimenti, cerchi il DAO 3.6 (o 3.5 se usi Access
97),
inoltre controllo che i riferimento al DAO sia piů in alto del riferimento
all'ADO (hanno oggetti con gli stessi nomi, ma non compatibili.) perchč il
riferimento piů in alto ha la precedenza
Max


title: querydef

text:
Il 15 Giu 2001, 17:44, "MegaMax" <
a...@a.com
> ha scritto:
>
>"ciarby"
<
cia...@virgilio.it
> ha scritto nel messaggio
>news:62Z11Z124Z21Y9...@usenet.iol.it...
>> Grazie per avermi
risposto così velocemente
>> Ti spiego meglio:
>> Quando
>> cerco di
dichiarare una var. oggetto come tabedef
>> essa non compare tra i
>>
possibili tipi elencati nella finestra di supporto,
>> e quando mando in
>> esecuzione il programma non è riconoscito.
>> Ci vogliono particolari
>> librerie che bisogna avere/attivare per usarlo?
>L'unica che mi viene
in mente è controllare che ci sia il riferimento al
>DAO
>> Se si come
faccio ad
>> ottenerle/attivarle?
>Menu Strumenti, voce Riferimenti,
cerchi il DAO 3.6 (o 3.5 se usi Access
>97),
>inoltre controllo che i
riferimento al DAO sia più in alto del riferimento
>all'ADO (hanno oggetti
con gli stessi nomi, ma non compatibili.) perchè il
>riferimento più in
alto ha la precedenza
>Max
Grazie ancora MegaMax.
Solo ora ho un nuovo
giallo:
nel menu strumenti non ho nessuna voce riferimenti.
Sapresti
dirmi di più?



title: querydef

text:
"ciarby" <
cia...@virgilio.it
> ha scritto nel messaggio
news:62Z11Z138Z135Y...@usenet.iol.it...
> nel menu strumenti non ho nessuna voce riferimenti.
> Sapresti
> dirmi di più?
vai nella visualizzazione del codice del form/report in questione :-)
Max


title: querydef

text:


Sei davvero un grande!!!!
GRAZIE VIVAMENTE.



title: Scrittura su tabelle ODBC: una volta sì e una no sistematicamente

author: Hal

text:
Ciao a tutti, ho appena creato un'applicazione che serve  per
permettere l'esecuzione di cicli di lavorazione in modo rapido,
facendo sì che con la semplice lettura di codici a barre dei sn
si registrino i tempi di lavorazione.
Memorizzo il dettaglio delle lavorazioni (singoli SN, chi e
quando li ha lavorati, che ciclo ha eseguito) in tabelle locali,
mentre in tabelle collegate via ODBC (SQL Server 2000) riporto il
totale, per Ordine di produzione, del tempo e delle schede lavorate.
Siccome le schede che si lavorano possono venire da più OdP,
gestisco le cose in modo da memorizzare i dati separatamente per
OdP, e quando si interrompe il lavoro registro i dati per ogni OdP.
Ho fatto prove con 3 OdP, e sistematicamente mi ha scritto nelle
tabelle ODBC i dati di due OdP e del terzo no (sempre lo stesso).
Facendolo singolarmente invece sì.
Ho provato con l'esecuzione riga per riga ma non pare essere diverso.
Non capisco che cosa possa succedere. Lavoro su dati di prova cui
accedo solo io, da una workstation Win 2000 SP4 con Access 97.
Ho provato anche da computer con Windows XP.
Nel caso di N OdP, il ciclo di scrittura nelle tabelle ODBC viene
ripetuto N volte, ma ho cura di chiudere i recordset usati e
reimpostare le variabili globali. Ho verificato dall'esecuzione
riga per riga che i valori sono corretti.
Se può essere d'aiuto, in alcune parti del codice ho dovuto
eseguire due volta i SET dei recordset per non trovarmi con
l'errore 3420: "oggetto non valido o non impostato", anche se
l'esecuzione riga per riga già andava bene alla prima.
Possono esserci cause note che portino a questi problemi?
Alessio


author: Simone Calligaris

text:
(cut)
> Se può essere d'aiuto, in alcune parti del codice ho dovuto
> eseguire due volta i SET dei recordset per non trovarmi con
> l'errore 3420: "oggetto non valido o non impostato", anche se
> l'esecuzione riga per riga già andava bene alla prima.
>
>
> Possono esserci cause note che portino a questi problemi?
Secondo me dovrebbe essere un problema di programmazione.
La faccenda del SET eseguito più volte per via dell'errore 3420 suona molto
male: perchè usare un metodo così sporco?
Saluti.


author: MA

text:

Sì da qualche parte lo chiude o se lo perde in qualche bivio con if o select case e quindi non trova
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


text:
Simone Calligaris ha scritto:

Sospetto più che lecito :)
Guarda, includo il codice usato per le doppie dichiarazioni, per
mostrare quello che faccio; devo fare doppia dichiarazione anche
in un altro paio di punti, ma NON per ogni SET.
If Not IsNull(Me![txtSN]) Then
    mioSQL = "SELECT SN_PSM.SN_PSM, Tabella_Impegni.NrImpegno " _
       & "FROM Tabella_Impegni INNER JOIN SN_PSM ON
Tabella_Impegni.IDImpegno = SN_PSM.IDImpegno " _
       & "WHERE (((SN_PSM.SN_PSM)='" & Me![txtSN] & "'));"
    Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
    Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
    If rst_SN_ODP.BOF And rst_SN_ODP.EOF Then
       MsgBox rst_SN_ODP.RecordCount
       If rst_SN_ODP.RecordCount = 0 Then
          MsgBox "Il SN scelto non esiste!", vbCritical, "SN errato"
             GoTo uscita
             End If
       Else
'071001 - imposto altre due volte il recordset perchè dopo la
prima i MoveFirst e MoveLast causano errore 3420 (oggetto non
valido o non impostato).
          Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
          Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
          rst_SN_ODP.MoveLast
          rst_SN_ODP.MoveFirst
...eccetera...
Tengo a dire che con, l'esecuzione riga per riga, lo stesso
codice usato in una query (con le modifiche opportune per il
passaggio del criterio) funziona perfettamente.
Grazie, Alessio


text:
"Hal" <
> '071001 - imposto altre due volte il recordset perchè dopo la
> prima i MoveFirst e MoveLast causano errore 3420 (oggetto non
> valido o non impostato).
>           Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
>           Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
>           rst_SN_ODP.MoveLast
>           rst_SN_ODP.MoveFirst
>
> ...eccetera...
Non capisco per quale ragione prima di effettuare i .Move non testi .EOF()
Ser rst=db.openrecordset(strSQL)
if rst.eof()=False then
       rst.movelast
       rst.movefirst
       ........
endif
rst.close
set rst=nothing


text:
Simone Calligaris ha scritto:
> "Hal" <
>
>> '071001 - imposto altre due volte il recordset perchè dopo la
>> prima i MoveFirst e MoveLast causano errore 3420 (oggetto non
>> valido o non impostato).
>>           Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
>>           Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
>>           rst_SN_ODP.MoveLast
>>           rst_SN_ODP.MoveFirst
>>
>> ...eccetera...
>
>
>
> Non capisco per quale ragione prima di effettuare i .Move non testi .EOF()
Tale controllo è stato fatto poche righe prima, subito dopo i
primi due SET del recordset (vedi il mio post precedente) e ha
dato esito positivo,
If Not IsNull(Me![txtSN]) Then
    mioSQL = "SELECT SN_PSM.SN_PSM, Tabella_Impegni.NrImpegno " _
       & "FROM Tabella_Impegni INNER JOIN SN_PSM ON
Tabella_Impegni.IDImpegno = SN_PSM.IDImpegno " _
       & "WHERE (((SN_PSM.SN_PSM)='" & Me![txtSN] & "'));"
    Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
    Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
    If rst_SN_ODP.BOF And rst_SN_ODP.EOF Then
quindi a questo punto il problema principale è capire perchè devo
rifare il SET; infatti se il SET iniziale funzionasse a dovere,
non lo dovrei ripetere altre tre volte...
no?


text:
Hal wrote:
> Simone Calligaris ha scritto:
>> (cut)
>>
>>> Se può essere d'aiuto, in alcune parti del codice ho dovuto
>>> eseguire due volta i SET dei recordset per non trovarmi con
>>> l'errore 3420: "oggetto non valido o non impostato", anche se
>>> l'esecuzione riga per riga già andava bene alla prima.
>>>
>>>
>>> Possono esserci cause note che portino a questi problemi?
>>
>>
>>
>> Secondo me dovrebbe essere un problema di programmazione.
>> La faccenda del SET eseguito più volte per via dell'errore 3420
>> suona molto male: perchè usare un metodo così sporco?
>
> Sospetto più che lecito :)
> Guarda, includo il codice usato per le doppie dichiarazioni, per
> mostrare quello che faccio; devo fare doppia dichiarazione anche
> in un altro paio di punti, ma NON per ogni SET.
>
> If Not IsNull(Me![txtSN]) Then
>    mioSQL = "SELECT SN_PSM.SN_PSM, Tabella_Impegni.NrImpegno " _
>       & "FROM Tabella_Impegni INNER JOIN SN_PSM ON
> Tabella_Impegni.IDImpegno = SN_PSM.IDImpegno " _
>       & "WHERE (((SN_PSM.SN_PSM)='" & Me![txtSN] & "'));"
>    Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
>    Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
Mettici un currentdb
Due volte???
>    If rst_SN_ODP.BOF And rst_SN_ODP.EOF Then
>       MsgBox rst_SN_ODP.RecordCount
>       If rst_SN_ODP.RecordCount = 0 Then
Aspetta ma se è contemporaneamente Eof e Bof significa che è 0.
Ecco l'errore
>          MsgBox "Il SN scelto non esiste!", vbCritical, "SN errato"
>             GoTo uscita
>             End If
>       Else
> '071001 - imposto altre due volte il recordset perchè dopo la
> prima i MoveFirst e MoveLast causano errore 3420 (oggetto non
> valido o non impostato).
E' eof
>          Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
>          Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
Non hai chiuso l'if
>          rst_SN_ODP.MoveLast
>          rst_SN_ODP.MoveFirst
>
> ...eccetera...
>
>
> Tengo a dire che con, l'esecuzione riga per riga, lo stesso
> codice usato in una query (con le modifiche opportune per il
> passaggio del criterio) funziona perfettamente.
>
> Grazie, Alessio
--



text:
MA ha scritto:

Ho sbagliato a mettere l'IF recordcount= 0, nel senso che è OVVIO
che sia 0, hai ragione, ma il codice che esegue dentro tale IF
(msgbox del RecordCount e msgbox che avvisa di SN non esistente)
non causa certo errori ed è in accordo con il risultato, per
fortuna :)
Ma se arriva all'else, e quindi riesce a controllare lo stato di
EOF e BOF, come mai al primo MOVE causa l'errore 3420??
Gli IF Sono chiusi...ho messo "eccetera" per brevità ;)
e se non lo fosserò, direi che l'esecuzione si fermerebbe ben
prima dell'errore 3420 :)


text:
"Hal"
> quindi a questo punto il problema principale è capire perchè devo
> rifare il SET; infatti se il SET iniziale funzionasse a dovere,
> non lo dovrei ripetere altre tre volte...
> no?
>
Ascolta Hal, perchè non adatti il tuo codice a una tabella di Northwind.mdb
(o versione SQL SVR), così si riesce a testarlo adeguatamente?
Non esiste che tu debba impostare più volte SET per un errore di quel
tipo...
Saluti.


text:
Simone Calligaris ha scritto:
> Ascolta Hal, perchè non adatti il tuo codice a una tabella di Northwind.mdb
> (o versione SQL SVR), così si riesce a testarlo adeguatamente?
>
> Non esiste che tu debba impostare più volte SET per un errore di quel
> tipo...
Ok, lo adatto, lo riposto e faccio qualche prova.
Grazie!


text:
Simone Calligaris ha scritto:
> Ascolta Hal, perchè non adatti il tuo codice a una tabella di Northwind.mdb
> (o versione SQL SVR), così si riesce a testarlo adeguatamente?
>
> Non esiste che tu debba impostare più volte SET per un errore di quel
> tipo...
Ecco fatto: ho adattato il codice affinchè verifichi che il nome
di un prodotto inserito in una casella di testo ha una categoria
di prodotto.
Una nota importante: chiedo scusa ma ho commesso un errore quando
ho scritto il primo post, in quanto le tabelle interessate dal
codice SQL in questione sono s' collegate in ODBC, ma da dei back
end MDB (sul mio pc e non condivisi), non SQL Server (accedo
successivamente a tabelle su SQL server).
Nel corso della routine eseguo comunque altre volte a tali
tabelle, senza avere problemi.
Ecco il codice, che con un solo SET non dà il minimo problema (sigh):
Dim rst_SN_ODP As Recordset
Dim mioSQL As String
If Not IsNull(Me![txtSN]) Then
     mioSQL = "SELECT Prodotti.[NomeProdotto],
Categorie.[IDcategoria], Categorie.[NomeCategoria] " _
       & "FROM Categorie INNER JOIN Prodotti ON
Categorie.[IDcategoria] = Prodotti.[IDcategoria] " _
       & "WHERE (((Prodotti.[NomeProdotto])='" & Me![txtSN] & "'));"
    Set rst_SN_ODP = DBEngine(0)(0).OpenRecordset(mioSQL)
    If rst_SN_ODP.BOF And rst_SN_ODP.EOF Then
       MsgBox "Il SN scelto non esiste!", vbCritical, "SN errato"
       Exit Sub
    Else
       rst_SN_ODP.MoveLast
       rst_SN_ODP.MoveFirst
       MsgBox "OK, il prodotto <" & Me![txtSN] & "> appartiene
alla categoria '" & rst_SN_ODP![NomeCategoria] & "'", , "numero
record: " & rst_SN_ODP.RecordCount
    End If
End If


text:

è certo che a te piace fare confusione e non pulisci il codice (mi viene il mal di testa a leggerlo)
dim db as dao.database
Dim rst as DAO.Recordset
Dim mioSQL As String

 If Not IsNull(Me![txtSN]) Then
mioSQL = "SELECT P.[NomeProdotto], C.[IDcategoria], C.[NomeCategoria] " _
     & "FROM Categorie as C INNER JOIN Prodotti as P ON  C.[IDcategoria] = P.[IDcategoria]  _
      & "WHERE p.NomeProdotto =" & chr(34) & Me![txtSN] & chr(34)
set db = currentdb
Set rst = db.OpenRecordset(mioSQL)
with rst
    if .eof then
        msgbox "We ciccio, non c'è"
else
        .movelast
        msgbox "Ciccio ce ne sono " & .recordcount
    end if
end with
rs.close: set rs = nothing
db.close: set db = nothing
così funziona



text:
MA ha scritto:
> Hal wrote:
>> Simone Calligaris ha scritto:
...omissis...
> è certo che a te piace fare confusione e non pulisci il codice (mi viene il mal di testa a leggerlo)
Mi dispiace, certo il codice SQL che ho scritto è più lungo del tuo, avendo nomi di campo
lunghi, e con il taglio a 65 caratteri (che ho eliminato) le cose si complicano.
> dim db as dao.database
> Dim rst as DAO.Recordset
> Dim mioSQL As String
>
>  If Not IsNull(Me![txtSN]) Then
> mioSQL = "SELECT P.[NomeProdotto], C.[IDcategoria], C.[NomeCategoria] " _
>      & "FROM Categorie as C INNER JOIN Prodotti as P ON  C.[IDcategoria] = P.[IDcategoria]  _
>       & "WHERE p.NomeProdotto =" & chr(34) & Me![txtSN] & chr(34)
>
> set db = currentdb
> Set rst = db.OpenRecordset(mioSQL)
> with rst
>     if .eof then
>         msgbox "We ciccio, non c'è"
> else
>         .movelast
>         msgbox "Ciccio ce ne sono " & .recordcount
>     end if
> end with
> rs.close: set rs = nothing
> db.close: set db = nothing
Ti ringrazio MAssimiliano, ma puoi farmi capire PERCHE' funziona?
E' forse per l'uso delle variabili DAO.xxx?
Oppure per l'uso del currentDB al posto del DBEngine? Uso DBEngine da molto perchè ho
letto che ha prestazioni superiori (ora non ritrovo il link, purtroppo)
Però, incuriosito da ciò che è venuto fuori in questa discussione, ho scoperto che MS
consiglia CurrentDB
http://support.microsoft.com/?scid=kb%3Ben-us%3B131881&x=24&y=15
http://msdn2.microsoft.com/en-us/library/bb237861.aspx
Probabilmente, anche se uso Access 97, è il DBengine il mio problema, giusto?
Solo non capisco perchè non ci ho mai sbattuto il naso prima...


text:
Hal wrote:
> MA ha scritto:
>> Hal wrote:
>>> Simone Calligaris ha scritto:
>
> ...omissis...
>
>> è certo che a te piace fare confusione e non pulisci il codice (mi
>> viene il mal di testa a leggerlo)
>
> Mi dispiace, certo il codice SQL che ho scritto è più lungo del tuo,
> avendo nomi di campo lunghi, e con il taglio a 65 caratteri (che ho
> eliminato) le cose si complicano.
Ho apportato poche varianti.
Una quella dei nomi. uso sempre alias per le tabelle perchè il naming di una tabella
deve rispettare le esigenze di tutto il programma, la query invece quelle di QUEL rst.
Semplificare è sicuramente un'ottimo mezzo per togliere dubbi.
Per il currentdb io lo prefisco sempre, e quando ho + rst mi creo la variabile
db as dao.database
e poi
set db = currentdb
(infatti ne lcodice, per abitudine l'ho chiuso senza averlo aperto... ;-)
Ripeto, per pulizia
Il .bof e .eof lo vedo una superfetazione
L'uso del with è secondo me necessario altrimenti è un casino
>
>
> Ti ringrazio MAssimiliano, ma puoi farmi capire PERCHE' funziona?
Specificare DAO è un retaggio del fatto che ho usato molto Axp ma la libreria DAO
e mi è rimasta come abitudine



text:
MA ha scritto:
> Hal wrote:
>> MA ha scritto:
>>> Hal wrote:
>>>> Simone Calligaris ha scritto:
>> ...omissis...
>>
>>> è certo che a te piace fare confusione e non pulisci il codice (mi
>>> viene il mal di testa a leggerlo)
>> Mi dispiace, certo il codice SQL che ho scritto è più lungo del tuo,
>> avendo nomi di campo lunghi, e con il taglio a 65 caratteri (che ho
>> eliminato) le cose si complicano.
>
> Ho apportato poche varianti.
> Una quella dei nomi. uso sempre alias per le tabelle perchè il naming di una tabella
> deve rispettare le esigenze di tutto il programma, la query invece quelle di QUEL rst.
> Semplificare è sicuramente un'ottimo mezzo per togliere dubbi.
>
> Per il currentdb io lo prefisco sempre, e quando ho + rst mi creo la variabile
> db as dao.database
> e poi
> set db = currentdb
> (infatti ne lcodice, per abitudine l'ho chiuso senza averlo aperto... ;-)
>
> Ripeto, per pulizia
>
> Il .bof e .eof lo vedo una superfetazione
> L'uso del with è secondo me necessario altrimenti è un casino
Non ho potuto rispondere prima perchè ho dovuto portare avanti anche altri lavori,
comunque ho fatto ancora prove, e mi capita ancora che nonostante l'uso di
dim DB as DAO.database
set DB = currentDB,
se nel codice seguente non eseguo due volte il SET del recordset, in alcuni casi ricevo
l'errore 3420.
Dim db As DAO.Database
Set db = CurrentDb
mioSQL = "SELECT P.[NomeProdotto], C.[IDcategoria], C.[NomeCategoria] " _
   & "FROM Categorie as C INNER JOIN Prodotti as P ON  C.[IDcategoria] = P.[IDcategoria] _
   & "WHERE p.NomeProdotto =" & chr(34) & Me![txtSN] & chr(34)
Set rst = db.OpenRecordset(mioSQL)
Set rst = db.OpenRecordset(mioSQL)
If rst.EOF Then
    MsgBox "Il SN scelto non esiste!", vbCritical, "SN errato"
Else
    rst.MoveLast
    rst.MoveFirst
end if
rst.Close
Set rst = Nothing
I valori del controllo txtSN sono sempre valori numerici di 8 caratteri, e l'errore non
dipende dal valore inserito.
Fermando l'esecuzione all'errore, ho copiato in una query il codice SQL della variabile, e
la query trova correttamente il valore.
Se nella gestione degli errori a quel punto invece dell'exit sub do un nuovo SET e un
Resume, il MoveFirst viene eseguito tranquillamente.
questo mi succede anche alla prima esecuzione, quindi a variabili "vergini".
Ci può essere qualche impostazione da cambiare? o un modo diverso di eseguire queste
operazioni?
Grazie,
Alessio


title: vediamo se può fare anche questo

author: fabià

text:
ciao a tutti,
mi state convincendo che access possa veramente essere mio amico:->
vediamo se sa fare anche questo:
ho una cartella con dei file PDF e TXT, vorrei creare una tabella con
in un campo i nomi dei file PDF e in un altro quelli TXT,
magari c'è una soluzione semplice.
grazie
8-)> Fabià


title: vediamo se può fare anche questo

author: warp

text:
"fabià"

Utilizzando l'oggetto FileSearch è abbastanza semplice: sarebbe bello
memorizzare i percorsi come collegamenti ipertestuali, così puoi riesplodere
con un solo click l'oggetto attraverso il relativo server OLE.
In realtà se dai un'occhiata al visualizzatore d'immagini sul Sito Comune,
dovresti trovare quasi tutto.
Ciao, warp


title: vediamo se può fare anche questo

text:
On Fri, 22 Feb 2002 19:17:08 +0100, "warp" <
act...@mail.phoenix.it
>
wrote:

Intanto grazie per la risposta, premetto che ho appena comprato un
volumetto per imparare qualcosina della programmazione access,
però potresti darmi qualche dritta a grandi linee su come impostare la
cosa?
grazie ancora
8-)> Fabià


title: Aassegnare Stile/Effetti a Grafico Excel via codice

author: Leonardo

text:
Ciao a tutti, il immo problema e' dover assegnare uno stile/effetto ad una
"Serie" di valori su un grafico creato in Vba su Excel. Sono riuscito ad
assegnare il colore interno (Inrterior.Color) ma non riesco ad assegnare il
"Fill Effect". Ho provato in varie maniere come per esempio :
With .ChartObjects("graphe").Chart.SeriesCollection(1)
    .Border.Weight = 1
    .Border.LineStyle = -1
    .Fill.OneColorGradient Style:=msoGradientVertical, Variant:=4, Degree:=0.25
    .Fill.Visible = True
    .Fill.ForeColor.SchemeColor = 25
  End With
ma niente da fare , mi da errore come se l'oggetto non supportasse questo
metodo. Qualcuno e' cosi' gentile da potermi aiutare se magari si e' gia'
trovato a sviluppare tali problemi?
Grazie in anticipo del vostro sempre prezioso aiuto.
Leonardo
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: Sergio MAZZA

text:
"Leonardo" <
ch...@tiscali.it
> ha scritto nel messaggio
news:82Z112Z6Z2Y11...@usenet.libero.it...

La cosa più semplice è simulare a mano, con il generatore di macro di excel,
le azioni da far eseguire al codice; poi riadattarla.
es.
oggettoApplication.ActiveWorkbook.Charts("graphe").SeriesCollection(1).Select
With oggettoApplication.Selection.Border
    .Weight = 1
    .LineStyle = -1
End With
With oggettoApplication.Selection
    .Fill.OneColorGradient style:=msoGradientHorizontal, Variant:=4,
Degree:=0.25
    .Fill.Visible = True
    .Fill.ForeColor.SchemeColor = 25
End With
Ciao.
--
Sergio MAZZA


text:

Grazie molto Sergio del tuo suggerimento che io ho subito seguito. Il
problema e' che la parte riguardante il Fill sembra non piacergli. Il
programma mi da lo stesso errore (ho creato una macro in excel con il
grafico originale e ho visto il codice). Questo e' quello che ho scritto (la
parte remark e' quella che non accetta):
    With oWks.Charts("mio grafico").SeriesCollection(1).Points(1).Select

        With Selection.Border
            .Weight = xlThin
            .LineStyle = xlAutomatic
        End With
        Selection.Shadow = False
        Selection.InvertIfNegative = False
  ' Selection.Fill.OneColorGradient style:=msoGradientVertical, Variant:=1,_
  ' Degree:=0.231372549019608
        With Selection
            .Fill.Visible = True
            .Fill.ForeColor.SchemeColor = 40
        End With
    End With
L'errore che mi esce e': Runtime Error 1004 - Application defined or
object-defined error.
Per completezza di informationi questo e' quello che ho dichiarato (Forse ho
sbagliato qualcosa nella dichiarazione oppure nell'uso dell'oggetto?):
Dim oApp As Excel.Application
Dim oWks As Excel.Workbook
Dim oWS As Excel.Worksheet
Set oApp = CreateObject("Excel.Application") '<-- assegno all'oggetto
l'istanza di Excel
Set oWks = oApp.Workbooks.Add
Set oWS = oWks.Worksheets("Sheet1")
Grazie ancora



text:
"Leonardo" <
ch...@tiscali.it
> ha scritto nel messaggio
news:82Z112Z6Z2Y11...@usenet.libero.it...
> Grazie molto Sergio del tuo suggerimento che io ho subito seguito. Il

Se non devi fare cose moolto particolari, puoi utilizzare solo l'istanza
all'oggetto Application come ho fatto io.
Anzi prova.
Comunque per far riferimento alla Selection dovresti indicare l'oggetto
padre che è Application: oApp.Selection... Come nel mio esempio.
Quel pezzo di codice l'ho provato sia con grafici inseriti in un foglio:
oApp.ActiveWorkbook.ActiveSheet.Chart("grafico1").SeriesCollection(1).Select
che con fogli grafico:
oApp.ActiveWorkbook.Charts("grafico1").SeriesCollection(1).Select
Ciao.
--
Sergio MAZZA


title: Ingrandire finestra selezionata con AppActivate.

author: Riccardo Baldinotti

text:
In un'applicazione seleziono un programma esterno mediante AppActivate
"titolo".
Purtroppo, se la finestra dell'applicazione è ridotta a icona, esce un
messaggio:
"errore di automazione. Il server ha sollevato un'eccezione."
E non mi viene intercettato da un comando OnError.
Peraltro, tutto viene eseguito come previsto e se apro la finestra
vedo le cose come dovrebbero essere, ma capite bene che non è bello.
C'è modo di comandare l'apertura di una finestra presente nella barra
delle applicazioni?
Grazie a tutti
Riccardo Baldinotti


text:
Riccardo Baldinotti ha scritto:

Si puoi ricavarne l'hWnd e forzarne la visualizzazione con ShowWindow(API).
Se invece è un'applicazione che espone interfaccia OLE puoi recuperare
l'istanza con GETOBJECT ed a quel punto potrebbe bastare il VISIBLE=TRUE.
@Alex
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
@Alex ha scritto:
> Riccardo Baldinotti ha scritto:
> > In un'applicazione seleziono un programma esterno mediante AppActivate
> > "titolo".
> > Purtroppo, se la finestra dell'applicazione � ridotta a icona, esce un
> > messaggio:
> > "errore di automazione. Il server ha sollevato un'eccezione."
> > E non mi viene intercettato da un comando OnError.
> > Peraltro, tutto viene eseguito come previsto e se apro la finestra
> > vedo le cose come dovrebbero essere, ma capite bene che non � bello.
> > C'� modo di comandare l'apertura di una finestra presente nella barra
> > delle applicazioni?
> > Grazie a tutti
> > Riccardo Baldinotti
> Si puoi ricavarne l'hWnd e forzarne la visualizzazione con ShowWindow(API).
> Se invece � un'applicazione che espone interfaccia OLE puoi recuperare
> l'istanza con GETOBJECT ed a quel punto potrebbe bastare il VISIBLE=TRUE.
> @Alex
Ho cercato hWnd nell'Help di Access ma non ho trovato riferimenti al di
fuori di oggetti di Access, per cui non so come ricavare l'hWnd del
programma, che � Lotus Notes.
Sono andato a cercare su Google e mi sono registrato su vari siti ma senza
esito. Davvero, ci ho provato.
Ho trovato qualche pagina che parla di hWnd di un'applicazione aperta con
Shell, ma nel mio caso l'applicazione � gi� aperta.
Ho provato a dare dei comandi GetObject, ma mi esce l'errore: "Il
componente ActiveX non � in grado di creare l'oggetto".
A questo punto, a costo di essere accusato di "pappaprontite", chiedo lumi
ulteriori.
Riccardo Baldinotti



author: Lucia Spere

text:
On Tue, 28 Jun 2011 12:16:55 +0200,
riccardo....@qualcosa.it
(Riccardo Baldinotti) wrote:

>Ho cercato hWnd nell'Help di Access ma non ho trovato riferimenti al di
>fuori di oggetti di Access, per cui non so come ricavare l'hWnd del
>programma, che è Lotus Notes.
>Sono andato a cercare su Google e mi sono registrato su vari siti ma senza
>esito. Davvero, ci ho provato.
>Ho trovato qualche pagina che parla di hWnd di un'applicazione aperta con
>Shell, ma nel mio caso l'applicazione è già aperta.
>Ho provato a dare dei comandi GetObject, ma mi esce l'errore: "Il
>componente ActiveX non è in grado di creare l'oggetto".
>A questo punto, a costo di essere accusato di "pappaprontite", chiedo lumi
>ulteriori.
>Riccardo Baldinotti
forse ce la fai con programmi tipo Spy++
ciao


text:
Lucia Spere ha scritto:



> ciao
Ti ringrazio. Disgraziatamente Access � l'unico programma che possiamo
usare, non mi funziona nemmeno un file batch se non installato
appositamente.



text:
On Tue, 28 Jun 2011 14:08:03 +0200,
riccardo....@qualcosa.it
(Riccardo Baldinotti) wrote:
>Lucia Spere ha scritto:
>
>> On Tue, 28 Jun 2011 12:16:55 +0200,
riccardo....@qualcosa.it
>> (Riccardo Baldinotti) wrote:
>
>> >Ho cercato hWnd nell'Help di Access ma non ho trovato riferimenti al di
>> >fuori di oggetti di Access, per cui non so come ricavare l'hWnd del
>> >programma, che Ã¨ Lotus Notes.
>> >Sono andato a cercare su Google e mi sono registrato su vari siti ma senza
>> >esito. Davvero, ci ho provato.
>> >Ho trovato qualche pagina che parla di hWnd di un'applicazione aperta con
>> >Shell, ma nel mio caso l'applicazione Ã¨ giÃ  aperta.
>> >Ho provato a dare dei comandi GetObject, ma mi esce l'errore: "Il
>> >componente ActiveX non Ã¨ in grado di creare l'oggetto".
>> >A questo punto, a costo di essere accusato di "pappaprontite", chiedo lumi
>> >ulteriori.
>> >Riccardo Baldinotti
>
>> forse ce la fai con programmi tipo Spy++
>
>> ciao
>
>
>Ti ringrazio. Disgraziatamente Access è l'unico programma che possiamo
>usare, non mi funziona nemmeno un file batch se non installato
>appositamente.
>Riccardo Baldinotti
ma Spy ( o similari ) lo usi solo nello sviluppo
dopo non ri serve


text:
...
> Ho cercato hWnd nell'Help di Access ma non ho trovato riferimenti al di
> fuori di oggetti di Access, per cui non so come ricavare l'hWnd del
> programma, che � Lotus Notes.
> Sono andato a cercare su Google e mi sono registrato su vari siti ma senza
> esito. Davvero, ci ho provato.
> Ho trovato qualche pagina che parla di hWnd di un'applicazione aperta con
> Shell, ma nel mio caso l'applicazione � gi� aperta.
> Ho provato a dare dei comandi GetObject, ma mi esce l'errore: "Il
> componente ActiveX non � in grado di creare l'oggetto".
> A questo punto, a costo di essere accusato di "pappaprontite", chiedo lumi
> ulteriori.
> Riccardo Baldinotti
Per ricavare l'hWnd di una WindowForm si usa l'API FINDWINDOW, in quel
modo passando il CLASSNAME e la Caption se puoi...!
Usando SPY++ il ClassName di LotusNotes � "NOTES".
Quindi usando l'API suggerita, dando per scontato ci sia solo 1 istanza di
LN puoi ottenere l'hWnd cos�:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
        Dim ClassName As String
        Dim strCaption As String
        Dim hWnd As Long
        ClassName = "NOTES"
        strCaption = ""
        hWnd = FindWindow(ClassName, strCaption )
        MessageBox "hWnd di LOTUS =" &(CStr(hWnd))
Ovvio che se hai pi� istanze devi assolutamente passare anche il parametro
CAPTION che identifica la singola Form.
A quel punto passi l'hWnd a ShowWindow come meglio credi...
@Alex



text:
@Alex ha scritto:
> ...
> Per ricavare l'hWnd di una WindowForm si usa l'API FINDWINDOW, in quel
> modo passando il CLASSNAME e la Caption se puoi...!
> Usando SPY++ il ClassName di LotusNotes � "NOTES".
> Quindi usando l'API suggerita, dando per scontato ci sia solo 1 istanza di
> LN puoi ottenere l'hWnd cos�:
> Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
> (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
>         Dim ClassName As String
>         Dim strCaption As String
>         Dim hWnd As Long
>         ClassName = "NOTES"
>         strCaption = ""
>         hWnd = FindWindow(ClassName, strCaption )
>         MessageBox "hWnd di LOTUS =" &(CStr(hWnd))
> Ovvio che se hai pi� istanze devi assolutamente passare anche il parametro
> CAPTION che identifica la singola Form.
> A quel punto passi l'hWnd a ShowWindow come meglio credi...
> @Alex
Ho preparato la seguente funzione:
Function fHandleDiNotes()
    Dim ClassName As String
    Dim strCaption As String
    ClassName = "NOTES"
    strCaption = ""
    fHandleDiNotes = FindWindow(ClassName, strCaption)
End Function
e poi la chiamo cos�
Call ShowWindow(fHandleDiNotes(), SW_RESTORE)
avendo dichiarato la ShowWindow e la costante SW_RESTORE.
Non succede nulla, e ottengo lo stesso errore che avevo da AppActivate
quando Notes era iconizzato.
Usando la Sub come l'hai scritta, ottengo che hWnd=0, anche se al posto di
"NOTES" scrivo, per esempio, "Excel".
Ho trovato la pagina
http://support.microsoft.com/kb/147659/en-us
in cui si descrive una funzione FindWindowLike e prover� a capirci
qualcosa.
Intanto grazie.
Riccardo Baldinotti



text:
....
> Ho preparato la seguente funzione:
> Function fHandleDiNotes()
>     Dim ClassName As String
>     Dim strCaption As String
>     ClassName = "NOTES"
>     strCaption = ""
>     fHandleDiNotes = FindWindow(ClassName, strCaption)
> End Function
> e poi la chiamo cos�
> Call ShowWindow(fHandleDiNotes(), SW_RESTORE)
> avendo dichiarato la ShowWindow e la costante SW_RESTORE.
> Non succede nulla, e ottengo lo stesso errore che avevo da AppActivate
> quando Notes era iconizzato.
Scusa ma se usi il RIGTHCLICK sull'icona nella Task e selezioni Ripristina
che succede...?
Ti chiedo in quanto alcune applicazioni vogliono "Ingrandisci" che poi �
SW_MAXIMIZE=3...
> Usando la Sub come l'hai scritta, ottengo che hWnd=0, anche se al posto di
> "NOTES" scrivo, per esempio, "Excel".
LotusNotes ed Excel sono 2 cose diverse ed il fatto che tu abbia provato a
passare "EXCEL" � solo il sintomo che non hai capito di cosa stiamo
parlando...!
Excel come CLASSNAME="XLMAIN"....!
Ti allego un'elenco di CLASSNAME classici:
Class Name         Application
SciCalc            CALC.EXE
CalWndMain         CALENDAR.EXE
Cardfile           CARDFILE.EXE
Clipboard          CLIPBOARD.EXE
Clock              CLOCK.EXE
CtlPanelClass      CONTROL.EXE
XLMain             EXCEL.EXE
Session            MS-DOS.EXE
Notepad            NOTEPAD.EXE
pbParent           PBRUSH.EXE
Pif                PIFEDIT.EXE
PrintManager       PRINTMAN.EXE
Progman            PROGMAN.EXE   (Windows Program manager)
Recorder           RECORDER.EXE
Reversi            REVERSI.EXE
#32770             SETUP.EXE
Solitaire          SOL.EXE
Terminal           TERMINAL.EXE
WFS_Frame          WINFILE.EXE
MW_WINHELP         WINHELP.EXE
#32770             WINVER.EXE
OpusApp            WINWORD.EXE
MSWRITE_MENU       WRITE.EXE
Ti invito a documentarti bene per� prima di nebulizzare acqua.
> Ho trovato la pagina
>
http://support.microsoft.com/kb/147659/en-us
> in cui si descrive una funzione FindWindowLike e prover� a capirci
> qualcosa.
> Intanto grazie.
> Riccardo Baldinotti
Nel tuo caso la funzione in questione [FindWindowLike] non ti serve in
quanto si usa per ricerche anche nelle CHILD WINDOWS, infatti non � altro
che una ricorsiva che si basa sui fondamentali, ma i parametri da passare
sono quelli che devi usare per la FINDWINDOW che ti ho suggerito io, che
nel caso di MAIN_FORM � la pi� indicata.
Hai le idee troppo confuse.
@Alex



text:
@Alex ha scritto:
> ....
>> Scusa ma se usi il RIGTHCLICK sull'icona nella Task e selezioni Ripristina
> che succede...?
> Ti chiedo in quanto alcune applicazioni vogliono "Ingrandisci" che poi �
> SW_MAXIMIZE=3...
Mi si apre il menu contestuale con "Ripristina" in grassetto,
"Ingrandisci" e "Chiudi".
> > Usando la Sub come l'hai scritta, ottengo che hWnd=0, anche se al posto di
> > "NOTES" scrivo, per esempio, "Excel".
> LotusNotes ed Excel sono 2 cose diverse ed il fatto che tu abbia provato a
> passare "EXCEL" � solo il sintomo che non hai capito di cosa stiamo
> parlando...!
> Excel come CLASSNAME="XLMAIN"....!
Convengo di essere piuttosto ignorante. Non avevo ancora trovato il
CLASSNAME di Excel e l'avevo buttata l�.
Dunque, se in quella sub scrivo XLMAIN, suppongo che dovrei trovare
l'handle della mia finestra di Excel, che � aperto. Per� ottengo sempre 0.
Ho anche provato "Notepad", pure quello aperto.
> Ti allego un'elenco di CLASSNAME classici:
Grazie. Mi ci sarebbe voluto un bel po' di tempo per trovarli.
> Ti invito a documentarti bene per� prima di nebulizzare acqua.
? Questa non la conoscevo. Per ora sto nebulizzando un po' di sudore, ma
immagino che la metafora sia un'altra... :-)
> Nel tuo caso la funzione in questione [FindWindowLike] non ti serve in
> quanto si usa per ricerche anche nelle CHILD WINDOWS, infatti non � altro
> che una ricorsiva che si basa sui fondamentali, ma i parametri da passare
> sono quelli che devi usare per la FINDWINDOW che ti ho suggerito io, che
> nel caso di MAIN_FORM � la pi� indicata.
L'avevo immaginato. Ahim�, mi ci � voluta la lettura e semicomprensione
del codice per averne conferma.
> Hai le idee troppo confuse.
Questa � una delle cose che ho pi� chiare.
Grazie ancora
Riccardo Baldinotti



text:
Riccardo Baldinotti ha scritto:
> @Alex ha scritto:
> > ....
> >> Scusa ma se usi il RIGTHCLICK sull'icona nella Task e selezioni Ripristina
> > che succede...?
> > Ti chiedo in quanto alcune applicazioni vogliono "Ingrandisci" che poi �
> > SW_MAXIMIZE=3...
Scusa, ho risposto a capocchia.
Se scelgo "Ripristina, la finestra si apre nello stato in cu isi trovava
prima di essere iconizzata: a tutto schermo oppure dimensionata.



text:
Lucia Spere ha scritto:
> >
> >> forse ce la fai con programmi tipo Spy++
> >
> >> ciao
> >
> >
> >Ti ringrazio. Disgraziatamente Access è l'unico programma che possiamo
> >usare, non mi funziona nemmeno un file batch se non installato
> >appositamente.
> >Riccardo Baldinotti
> ma Spy ( o similari ) lo usi solo nello sviluppo
> dopo non ri serve
Ahim�, lo sviluppo avviene su un pc parimenti blindato.



text:
Risolto!
Sostituendo a
         strCaption = ""
in
         hWnd = FindWindow(ClassName, strCaption )
la costante vbNullString, cos�
         hWnd = FindWindow(ClassName, vbNullString)
ottengo il valore desiderato e la ShowWindow funziona come richiesto.
In mancanza di una preparazione decente, la disponibilit� altrui e le
risorse in rete suppliscono egregiamente.
Grazie.
Riccardo Baldinotti



text:
Riccardo Baldinotti ha scritto:
> Risolto!
> Sostituendo a
>          strCaption = ""
> in
>          hWnd = FindWindow(ClassName, strCaption )
> la costante vbNullString, cos�
>          hWnd = FindWindow(ClassName, vbNullString)
> ottengo il valore desiderato e la ShowWindow funziona come richiesto.
> In mancanza di una preparazione decente, la disponibilit� altrui e le
> risorse in rete suppliscono egregiamente.
> Grazie.
> Riccardo Baldinotti
La sostituzione che hai fatto � anomala... nel senso che vbNullstring=""
quindi non si spiega... tuttavia non svegliamo il cane che dorme.
In tutti i modi se non hai SPY++, che non viene distribuito senza VB6(DEV)
puoi provare questo TOOL che non si avvicina minimamente a SPY, ma �
utilissimo... in sua assenza:
http://www.codeproject.com/KB/dialog/FindWindow.aspx
Ciao
@Alex



text:
@Alex ha scritto:
> Riccardo Baldinotti ha scritto:
> > Risolto!
> > Sostituendo a
> >          strCaption = ""
> > in
> >          hWnd = FindWindow(ClassName, strCaption )
> > la costante vbNullString, cos�
> >          hWnd = FindWindow(ClassName, vbNullString)
> > ottengo il valore desiderato e la ShowWindow funziona come richiesto.
> > In mancanza di una preparazione decente, la disponibilit� altrui e le
> > risorse in rete suppliscono egregiamente.
> > Grazie.
> > Riccardo Baldinotti
> La sostituzione che hai fatto � anomala... nel senso che vbNullstring=""
> quindi non si spiega... tuttavia non svegliamo il cane che dorme.
Mi sono deciso alla sostituzione quando nell'help di Access ho letto che
vbNullString "Non equivale a una stringa di lunghezza zero ("");"
Francamente, queste sottigliezze le prendo per buone senza capirle a fondo.
> In tutti i modi se non hai SPY++, che non viene distribuito
> senza VB6(DEV)
> puoi provare questo TOOL che non si avvicina minimamente
> a SPY, ma �
> utilissimo... in sua assenza:
>
http://www.codeproject.com/KB/dialog/FindWindow.aspx
Siccome tutto sul mio pc mi � impedito, tranne usare Access, per trovare
il ClassName di una finestra aperta mi sono riferito a
http://www.vb6.us/tutorials/activate-window-api
Grazie ancora una volta
Riccardo Baldinotti



text:
On Tue, 28 Jun 2011 16:27:49 +0200,
riccardo....@qualcosa.it
(Riccardo Baldinotti) wrote:
>@Alex ha scritto:
>
>> ...
>> Per ricavare l'hWnd di una WindowForm si usa l'API FINDWINDOW, in quel
>> modo passando il CLASSNAME e la Caption se puoi...!
>
>> Usando SPY++ il ClassName di LotusNotes è "NOTES".
>> Quindi usando l'API suggerita, dando per scontato ci sia solo 1 istanza di
>> LN puoi ottenere l'hWnd così:
>
>
>> Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
>> (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
>
>>         Dim ClassName As String
>>         Dim strCaption As String
>>         Dim hWnd As Long
>
>>         ClassName = "NOTES"
>>         strCaption = ""
>
>>         hWnd = FindWindow(ClassName, strCaption )
>
>>         MessageBox "hWnd di LOTUS =" &(CStr(hWnd))
>
>> Ovvio che se hai più istanze devi assolutamente passare anche il parametro
>> CAPTION che identifica la singola Form.
>
>> A quel punto passi l'hWnd a ShowWindow come meglio credi...
>
>> @Alex
>
>Ho preparato la seguente funzione:
>Function fHandleDiNotes()
>    Dim ClassName As String
>    Dim strCaption As String
>
>    ClassName = "NOTES"
>    strCaption = ""
>
>    fHandleDiNotes = FindWindow(ClassName, strCaption)
>End Function
modifica il codice così

 	Dim ClassName As String
        Dim strCaption As String
        Dim hWnd As Long
	'SciCalc è la calcolatrice di windows
	'deve essere aperta o minimizzata
        ClassName = "SciCalc"
        strCaption = ""
        hWnd = FindWindow(ClassName, strCaption)
        hWnd = FindWindow(ClassName, vbNullString)
        MsgBox "hWnd di Calc=" & (CStr(hWnd))


text:
....
> Mi sono deciso alla sostituzione quando nell'help di Access ho letto che
> vbNullString "Non equivale a una stringa di lunghezza zero ("");"
> Francamente, queste sottigliezze le prendo per buone senza capirle a fondo.
Effettivamente nella guida ci sono delle contraddizioni... ma in realt�
vanno spiegate meglio... e facendo il punto possiamo spiegare anche il
perch� di quanto ci ha stupito...!!
La guida riporta correttamente quello che hai detto, nell'HELP c'� scritto
questo:
Const vbNullString = ""
    Membro di VBA.Constants
Facendo poi queste prove dalla finestra immediata usando il VBA:
   ? LEN(vbNullString)
     0
   ? LenB(vbNullstring)
     0

   ? vbnullstring=""
     Vero
   ? strcomp("",vbnullstring,vbBinaryCompare)
     0  (dalla guida 0=Stringhe uguali)
   ? strcomp("",vbnullstring,vbTextCompare)
     0  (dalla guida 0=Stringhe uguali)
Possiamo dire che le Funzioni VBA che valutano le STRINGHE
avvallano la considerazione che:
  vbNullstring="".
In realt� in effetti non � vero, una differenza esiste tra le 2 cose, ma
riguarda un livello diverso di programmazione che riguarda i POINTER in
MEMORIA.
Vale a dire che vbNullString non occupa memoria, quindi l'indirizzo di
memoria generato dal riferimento di vbNullString � nullo, non esiste.
Mentre l'indirizzo di memoria di "" esistre quindi si alloca memoria.
Come facciamo a capire questo...?
Cos� sempre dalla Finestra immediata:
   ?  StrPtr("")
      300043892
   ?  StrPtr(vbNullstring)
      0
Detto questo, la chiamata API richiede proprio un riferimento a Pointer
NULLO... e questo spiega il motivo della differenza reale generata.
Chiarito l'arcano.
> Grazie ancora una volta
> Riccardo Baldinotti
Ciao
@Alex



text:
On 30 Giu, 09:50,
ik2...@libero.it
 (@Alex) wrote:
> ....
>
> > Mi sono deciso alla sostituzione quando nell'help di Access ho letto che
> > vbNullString "Non equivale a una stringa di lunghezza zero ("");"
> > Francamente, queste sottigliezze le prendo per buone senza capirle a fondo.
>
> Effettivamente nella guida ci sono delle contraddizioni... ma in realtà
> vanno spiegate meglio... e facendo il punto possiamo spiegare anche il
> perchè di quanto ci ha stupito...!!
>
> La guida riporta correttamente quello che hai detto, nell'HELP c'è scritto
> questo:
>
> Const vbNullString = ""
>     Membro di VBA.Constants
>
> Facendo poi queste prove dalla finestra immediata usando il VBA:
>    ? LEN(vbNullString)
>      0
>
>    ? LenB(vbNullstring)
>      0
>
>    ? vbnullstring=""
>      Vero
>
>    ? strcomp("",vbnullstring,vbBinaryCompare)
>      0  (dalla guida 0=Stringhe uguali)
>
>    ? strcomp("",vbnullstring,vbTextCompare)
>      0  (dalla guida 0=Stringhe uguali)
>
> Possiamo dire che le Funzioni VBA che valutano le STRINGHE
> avvallano la considerazione che:
>
>   vbNullstring="".
>
> In realtà in effetti non è vero, una differenza esiste tra le 2 cose, ma
> riguarda un livello diverso di programmazione che riguarda i POINTER in
> MEMORIA.
> Vale a dire che vbNullString non occupa memoria, quindi l'indirizzo di
> memoria generato dal riferimento di vbNullString è nullo, non esiste.
> Mentre l'indirizzo di memoria di "" esistre quindi si alloca memoria.
>
> Come facciamo a capire questo...?
> Così sempre dalla Finestra immediata:
>
>    ?  StrPtr("")
>       300043892
>
>    ?  StrPtr(vbNullstring)
>       0
>
> Detto questo, la chiamata API richiede proprio un riferimento a Pointer
> NULLO... e questo spiega il motivo della differenza reale generata.
>
> Chiarito l'arcano.
>
> > Grazie ancora una volta
> > Riccardo Baldinotti
>
> Ciao
> @Alex
mmm... quando si parla di "data mining", si intende che bisogna
scavare dentro al computer fino a rintracciare, non dico l'ultimo
byte, ma anche l'ultimo elettrone girovago? :-)
Grazie per la spiegazione, che mi aiuta a ricordare che un computer è
**un tantinello** più complesso di un tostapane (e richiederebbe
maggiori competenze).
Ahimé, sono anch'io vittima di quelli che, alla domanda: "cosa si può
fare con un computer?", rispondono "qualunque cosa!",  dimenticandosi
di aggiungere: "...tu sia in grado di fare...".
Grazie a te e a Lucia. Oggi uno dei miei arzigogoli mi ha fruttato i
complimenti; li giro pari pari alle mie fonti d'istruzione.
Riccardo Baldinotti


title: Errore "OLE" nel Report...

author: SuperPippo®

text:
ciao e buon anno a tutti del NG...
in un db ho 2 report che non si aprono + in
anteprima... mi esce una finestra che dice...
"Oggetto OLE non registrato, è possibile che l'oggetto
chiami un'applicazione non installata.
Per registrarla, rieseguirne l'installazione."
poi si aprono ma non mi mostrano niente di ciò che avevo
creato... in struttura invece li visualizzo... li visualizzo...!!!
siccome sono dei report grafici... vorrei sapere se posso risolvere
la cosa senza rifarli daccapo...
grazie x l'aiuto...
ps.. ho provato a compattare, ripristinare... niente...


title: Errore "OLE" nel Report...

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:l%CY7.15425$s04.7...@news.infostrada.it...

----------------------------
grazie... ho risolto reinstallando Access. grazie...|


title: HELP Access 7.0

author: Antonio R. Bogani

text:
Possibile che non ci sia nessuno che usa Access 7.0 con Windows ME e che
magari sia riuscito a farlo funzionare?
Io non ho trovato nulla di documentato riguardo a questa incompatibilità. So
soltanto che Access si apre normalmente ma quando tento di avviare una
maschera mi crea l'errore "Msaccess ha causato un errore in MSACCESS.EXE.
Msaccess verrà chiuso. Se il problema persiste provare a riavviare il
computer".
Ho provato a rimuovere i driver dalla stampante e dalla scheda video,
eliminare tutti i programmi che potrebbero crear conflitti, sostituire tutte
le DLL direttamente dal disco di installazione. Sarà il mio PC? Ho esaurito
tutte le risorse. Prima di affrontare la spesa di un Access 2000 (non
trascurabile), sarei sinceramente grato a chi mi aiutasse a risolvere il
problema
Grazie in anticiopo per l'interessamento
arbo...@tiscalinet.it


title: HELP Access 7.0

author: Giuseppe Pagano

text:
Prova a scaricare gli aggiornamenti dal sito microsoft sr1 ed sr2.
Probmema simile su win NT per access 97 risolto con aggiornamenti
Avevo un problema  con access2000 in windows ME e lo risolto con gli
aggiornamenti.
Prova
www.microsoft.it
 e cerca gli aggiornamenti per la tua versione di office
ciao
"Antonio R. Bogani" <
arbo...@kataweb.it
> ha scritto nel messaggio
news:99lkq5$8d6$1...@lacerta.tiscalinet.it...



title: Conversione numeri in formato testo

author: Fabrizio

text:
Vorrei saper se esiste la possibilità di convertire automaticamente un
valore scritto in cifre nello stesso valore scritto in lettere.
Ringrazio quanti mi volessero aiutare. Fabrizio


title: Conversione numeri in formato testo

author: Antonio Biso

text:
Fabrizio <
far...@tiscalinet.it
> wrote in message
9v7bd9$8mo$1...@pegasus.tiscalinet.it...
> Vorrei saper se esiste la possibilità di convertire automaticamente un
> valore scritto in cifre nello stesso valore scritto in lettere.
>
> Ringrazio quanti mi volessero aiutare. Fabrizio
La routine è scaricabile dal sito comune
Antonio


title: funzione per immettere 0

author: stefano

text:
Buon giorno
ho un campo numerico FATTURA di 5 campi dovrei trovare una funzione che mi
completi il campo con degli 0(ZERO) sino a raggiungere i 5 campi
esempio:
ho fattura 564 devo trasformare in "00564"
ho fattura 64 devo trasformare in "00064"
Grazie per risposta
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: funzione per immettere 0

author: ciroteo da newsland

text:
stefano ha scritto:
> Buon giorno

> esempio:


> Grazie per risposta

ovviamente dovrebbe essere campo di testo e
devi fare un controllo di tutti i casi possibili con la funzione len ...
if len(tuocontrollo)=3  then
tuocontrollo="00" & tuocontrollo
ecc...
oppure un select case
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: funzione per immettere 0

author: Alessandro Baraldi

text:
stefano ha scritto:
> Buon giorno
>
> ho un campo numerico FATTURA di 5 campi dovrei trovare una funzione che mi
> completi il campo con degli 0(ZERO) sino a raggiungere i 5 campi
>
> esempio:
>
> ho fattura 564 devo trasformare in "00564"
>
> ho fattura 64 devo trasformare in "00064"
>
> Grazie per risposta
Usa la funzione di Formattazione delle stringhe:
Format$(Valore,"00000")
Ciao
@Alex


title: funzione per immettere 0

text:
> ovviamente dovrebbe essere campo di testo e
> devi fare un controllo di tutti i casi possibili con la funzione len ...
> if len(tuocontrollo)=3 then
> tuocontrollo="00" & tuocontrollo
> ecc...
>
> oppure un select case
>
>
E' un campo testo, ma non c'è un modo per fare tutto con una unica funzione
?



title: funzione per immettere 0

text:
stefano ha scritto:
> > ovviamente dovrebbe essere campo di testo e
> > devi fare un controllo di tutti i casi possibili con la funzione len ...
> > if len(tuocontrollo)=3 then
> > tuocontrollo="00" & tuocontrollo
> > ecc...
> >
> > oppure un select case
> >
> >
>
> E' un campo testo, ma non c'è un modo per fare tutto con una unica funzione
> ?
Si, leggi il mio post.
@Alex


title: Focus dopo chiusura maschera

text:
Un saluto a tutti :)
Nel sito comune non sono riuscito a scovare la soluzione al seguente
problema.
La maschera 'M1' contiene un controllo sottomaschera 'subM1' impostato a
maschere continue.
Da 'subM1', apro la maschera M2 (selezione obbligatoria).
Quando chiudo M2 vorrei portarmi nella posizione "nuovo record" di 'subM1'.
Ho provato le soluzioni + colorite ma non ci sono riuscito....
.........qualche suggerimento?
Grazie
----
leo_duca


title: Focus dopo chiusura maschera

author: principiante

text:
"leo_duca" <
leo_...@libero.it
> ha scritto nel messaggio
news:3aBD7.9499$7A4.5...@news.infostrada.it...

> Se puoi aprire M2 solo da subM1
    Se non chiudi M1 quando apri M2 e vuoi tornarci "sempre"
nell'evento chiusura di M2
DoCmd.SelectObject acForm, "M1"
Forms!M1!subM1.SetFocus
docmd.runcommand acCmdRecordsGoToNew
Non sono sicurissimo della sintassi, comunque dovrebbe funzionare.
Nel caso non siano vere le due premesse devi implementare una funzione che
verifichi se M1 è aperta
(la trovi su Nortwhind perfettamente funzionante solo da copiare)
Ciao paolo


title: Focus dopo chiusura maschera

author: Roberto da casa

text:
"leo_duca" <
leo_...@libero.it
> ha scritto nel messaggio
news:3aBD7.9499$7A4.5...@news.infostrada.it...

Alla chiusura di M2:
1) Sposta il fuoco su M1
2) Sposta il fuoco sul controllo sottomaschera
3) Sposta il fuoco su un controllo della sottomaschera
4) Tramite il metodo GoToRecord posizionati su un nuovo record
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Focus dopo chiusura maschera

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:R3HD7.12894$7A4.8...@news.infostrada.it...
>
> "leo_duca" <
leo_...@libero.it
> ha scritto nel messaggio
> news:3aBD7.9499$7A4.5...@news.infostrada.it...
> > .........qualche suggerimento?
> >
> > Grazie
> >
> > ----
> > leo_duca
> >
>
> Alla chiusura di M2:
>
> 1) Sposta il fuoco su M1
> 2) Sposta il fuoco sul controllo sottomaschera
> 3) Sposta il fuoco su un controllo della sottomaschera
> 4) Tramite il metodo GoToRecord posizionati su un nuovo record
>
> --
> Roberto
>
Caspiterina.... funziona! :))))
Mi spieghi, x favore, il perche' di tutti questi "giri" di focus??
Perchè non funziona se do direttamente il focus al controllo
della sottomaschera?
Ancora grazie
---
leo_duca


title: Focus dopo chiusura maschera

text:
"principiante" <
p.pe...@inrete.it
> ha scritto nel messaggio
news:3bdf...@news.opennet.it...
>
> "leo_duca" <
leo_...@libero.it
> ha scritto nel messaggio
> > .........qualche suggerimento?
> >
> > Grazie
> >
> > Se puoi aprire M2 solo da subM1
>     Se non chiudi M1 quando apri M2 e vuoi tornarci "sempre"
> nell'evento chiusura di M2
>
> DoCmd.SelectObject acForm, "M1"
> Forms!M1!subM1.SetFocus
> docmd.runcommand acCmdRecordsGoToNew
>
> Ciao paolo
>
Tnks! :)
---
leo_duca


title: Focus dopo chiusura maschera

author: Roberto dal portatile

text:
"leo_duca" <
leo_...@libero.it
> ha scritto nel messaggio
news:juOD7.13697$7A4.8...@news.infostrada.it...

Puoi spostare il fuoco tra controlli solo a condizione che l'oggetto che lo
contiene sia attivo; però pensandoci bene forse il punto 3) puoi fare a meno
di realizzarlo: prova.
>
> Ancora grazie
>
> ---
> leo_duca



title: Focus dopo chiusura maschera

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9ron1u$3rp6$1...@stargate1.inet.it...

Al solito hai ragione :)
---
leo_duca


title: Access è molto instabile

author: Giulio Severini

text:
Sapete la mia più grande paura, in questo momento, è ritrovarmi il
database *spianato* da un giorno all'altro.
Questo perchè!?
Poche ore fa stavo inserendo dati reali nel mio database quando, appena
salvato il secondo record, mi appare la classica schermata di Access in
cui mi dice che un altro utente ha modificato i dati e che
bla...bla...bla... Io okkei, scelgo di salvare il record, ovvio, mi
rovavo in frmAggiungiUtente ed immaginatevi la mia sopresa, non era
possibile un messaggio del genere in quel punto del database.
Ad ogni modo, dopo aver cliccato su OK, mi ritrovo con un secondo
messaggio: il mio database non veniva più riconosciuto come un
database Access. Compatta e ripristina. Sembra tutto ok ma alla
riapertura il secondo record non era stato salvato. Lo reinserisco.
Sorpresona. Tutto sembra filare liscio ma i dati del primo record hanno
sovrascritto anche quelli del secondo *appena inserito*!
Teribbile. Allora compatto e ripristino di nuovo, poi faccio il backup
numero 6 miliardi 844 milioni 796 mila e 334 e riprovo con la copia con
cui stavo lavorando. Tutto regolare.
Non ho parole. Ed io ho paura.
Che succede? Devo aggiornare Jet?
Help!


title: Access è molto instabile

author: Alessandro Cara

text:
Giulio Severini wrote:
> Sapete la mia piů grande paura, in questo momento, č ritrovarmi il
> database *spianato* da un giorno all'altro.
> Questo perchč!?
>
> Poche ore fa stavo inserendo dati reali nel mio database quando, appena
> salvato il secondo record, mi appare la classica schermata di Access in
> cui mi dice che un altro utente ha modificato i dati e che
> bla...bla...bla... Io okkei, scelgo di salvare il record, ovvio, mi
Giulio, sto problema lo hai perche' insisti ad aggiornare via update
il record che in quel momento e corrente nella maschera che stai usando.
O non associ la maschera e fai le update o associ la maschera e non fai
le update.
--
a.cara


title: Access è molto instabile

text:
Teribbile. Sono appena stato su casa ad inserire i dati nel database
*non* backuppato. Appena inserito il primo record mi sposto nella
maschera a schede dove posso vedere e anche modificare i dati e mi
riappare il messaggio che tale record era stato modificato, lo salvo,
messagio di errore: il mio database non era più riconosciuto. Poi...i
controlli sono spariti e riapparsi - non tutti - uno ad uno con dentro
#Errore.
Ma è assurdo! Non mi era mai successo. I controlli sono TUTTI
controlli associati, se modifico qualcosa il salvataggio è AUTOMATICO,
non devo preoccuparmi di queste cose! NON ERA MAI SUCCESSO!
Praticamente... devo mettere DoCmd.RunCommand acCmdSaveRecord ogni
volta che modifico il valore di un controllo ASSOCIATO di un record
già ESISTENTE?
E se si, allora che evento esiste che definisce quando passo da una
scheda ad un'altra di un controllo a schede?
Ho paura. Non posso consegnare questo lavoro in tali condizioni. Ma
cosa gli dico? Che  è Access a fare casino? O è la mia incompetenza?
Se è la mia incompetenza poco male...rimetto l'incarico e do loro
tutti i sorgenti. Ma se non è così?
Aggiungi che Compatta/Ripristina ci stava mettendo molto tempo per
andare in porto e NON èandato in porto....l'ho bloccato prima.
Cancellerò questo database e userò la copia salvata.
P.S. Può c'entrare il fatto che sto rippando un DVD? Può essere che
il sistema non ce la faccia a fare tutte e due le cose?
Ma ho 512MB di DDR2 ed un Athlon XP-M 3000+.


title: Access è molto instabile

text:
Ale, ho appena fatto un reply....sono tutti controlli ASSOCIATI!
E' questa la cosa assurda.
Domani ti mando la copia di backup Ale, ti prego. Almeno me la tieni
anche tu. Se dovesse succedere qualcosa qui me la mandi via posta.
Tiprego, non dirmi di no :(


title: Access è molto instabile

author: Simone Calligaris

text:
"Giulio Severini"
>Ho paura. Non posso consegnare questo lavoro in tali condizioni. Ma
>cosa gli dico? Che  è Access a fare casino? O è la mia incompetenza?
>Se è la mia incompetenza poco male...rimetto l'incarico e do loro
<+tutti i sorgenti. Ma se non è così?
Se non fosse così?
Vorrebbe dire che frequentatori di quest'area sono hobbisti e/o pensionati
che giocano con
Access per puro passatempo.
Ciao.


title: Access è molto instabile

author: Gaspare

text:
>Ho paura. Non posso consegnare questo lavoro in tali >condizioni. Ma
>cosa gli dico? Che  è Access a fare casino? O è la mia >incompetenza?
>Se è la mia incompetenza poco male...rimetto l'incarico e >do loro
>tutti i sorgenti. Ma se non è così?
Ciao Giulio,
se mi permetti ti esprimo la mia opinione:
Simone Calligaris (che neanche conosco peraltro...) non ha tutti i torti
...anzi -> ha ragione !!!
Giacchè sei "incasinato di brutto" con la scadenza etc..e giacchè qui c'è
gente "molto competente" che con Access ci lavora "da parecchio" potresti
chiedere ad un esperto del NG di occuparsi dell'ultimazione del db come
commessa ed in questo modo potresti raggiungere 2 obiettivi:
1) Consegneresti il lavoro in tempo ben fatto e testato...
2) Daresti "spazio all'esperienza ed alla competenza" com'è giusto che sia
in un caso del genere in cui non si tratta di un semplice db per archiviare
i propri libri etc...
A lavoro finito ti andresti a vedere il codice che dovresti sapere leggere
(considerando quello che riesci a scrivere...) e che sarebbe di certo molto
più "efficiente e leggibile" del tuo in cui ometti, ad es., la gestione
degli errori ed i commenti: 2 cose fondamentali per creare qualsiasi
applicativo.
Fossi in te non "sottovaluterei" le potenzialità di Access...personalmente
conosco "professionisti" che su questo software hanno creato dal nulla la
propria azienda e i propri applicativi che girano nell'ambito di grosse
"industrie" occupandosi, ad es., della manutenzione e gestione di macchine
ed impianti...
E' "solo ed esclusivamente la mia opinione" che ti esterno con la "mia
solita schiettezza"...mi auguro che la "interpreti" come tale :-)
Alla prossima
Gaspare


title: Access è molto instabile

author: MA

text:

La settimana scorsa ho visto il suo db e gli ho postato una soluzione
diversa perchè non ero d'accordo
con diverse sue soluzioni.
Mi sono offerto di farglielo e un 4-5 ore (per quello che ho visto del suo
db) veniva fuori una cosa dignitosa.
Ha preferito continuare per la sua strada dicendo che non c'era tempo.
Dubito che una settimana dopo ce ne sarà
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Access è molto instabile

author: Cristiano

text:
"Gaspare"
> Fossi in te non "sottovaluterei" le potenzialitŕ di Access...personalmente
> conosco "professionisti" che su questo software hanno creato dal nulla la
> propria azienda e i propri applicativi che girano nell'ambito di grosse
> "industrie" occupandosi, ad es., della manutenzione e gestione di macchine
> ed impianti...
Anche se per la veritŕ č probabile che non abbiano usato JET per
l'archiviazione!
Quando si parla di Access c'č sempre il rischio di fare un minestrone in cui
buttare tutto: strumenti di Design e motore predefinito, mentre i due
aspetti sono ben distinti: anche sotto il profilo qualitativo   ;-)
Certo, resta il fatto che stranezze come quelle descritte da Severini
proprio non *esistono* anche con Jet!
Ciao: Cristiano