title: Calcolo monte ore ferie anni precedenti

text:
"Bruno Campanini" <
B...@gmail.com
> ha scritto nel messaggio
news:46601ec1$0$4797$4faf...@reader4.news.tin.it...

Ciao Bruno,
in genere si trova sempre il modo per evitare la subquery
----
SELECT t_Ferie.Anno, t_Ferie.Ore, Sum(t_Ferie_1.Ore) AS ProgressivoOre
FROM t_Ferie, t_Ferie AS t_Ferie_1
WHERE t_Ferie.Anno>= t_Ferie_1.Anno
GROUP BY t_Ferie.Anno, t_Ferie.Ore
ORDER BY t_Ferie.Anno;
----
Ciao
--
Giorgio Rancati
[Office Access MVP]


title: Calcolo monte ore ferie anni precedenti

author: giorgio rancati

text:
"BR1" <
bona...@gmail.com
> ha scritto nel messaggio
news:1180706807....@p77g2000hsh.googlegroups.com...





ma esiste un codice Aliquota ?
se sì allora puoi fare così
----
SELECT T_K_aliquote.*
FROM T_K_aliquote INNER JOIN
  (
   SELECT Codice,Max([Data variazione]) AS MaxDtVariazione
   FROM T_K_aliquote
   WHERE [Data variazione]<=[Forms]![M_buste_paga_testata]![Periodo paga]
   GROUP BY Codice
  ) AS T_K_aliquote_1
ON T_K_aliquote.Codice=T_K_aliquote_1.Codice
AND T_K_aliquote.[Data variazione] = T_K_aliquote_1.MaxDtVariazione



title: Calcolo monte ore ferie anni precedenti

author: Bruno Campanini

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
news:4661bc97$0$16022
> in genere si trova sempre il modo per evitare la subquery
> ----
> SELECT t_Ferie.Anno, t_Ferie.Ore, Sum(t_Ferie_1.Ore) AS ProgressivoOre
> FROM t_Ferie, t_Ferie AS t_Ferie_1
> WHERE t_Ferie.Anno>= t_Ferie_1.Anno
> GROUP BY t_Ferie.Anno, t_Ferie.Ore
> ORDER BY t_Ferie.Anno;
Eh, ma tu sei un mago dell'SQL, io un semplice manovale...
Ne ho preso buona nota, grazie.
Ciao
Bruno


title: esportazione report in Open Office

author: Maurizio

text:
salve a tutti
vorrei sapere se esiste la possibilità di trasferire il contenuto di
un report al programma Writer di Open Office ?
grazie e buon lavoro
Maurizio


title: esportazione report in Open Office

author: Sergio MAZZA

text:
"Maurizio" <
consu...@open.it
> ha scritto nel messaggio
news:e2b0245c-c093-4be8...@k19g2000yqg.googlegroups.com...

[risposta]
Direttamente non mi risulta.
(anche tu) Utilizza VBA per scrivere direttamente un Writer:
Programming OpenOffice.org with Visual Basic
http://www.kalitech.fr/clients/doc/VB_APIOOo_en.html
OOoForum.org Forum Index -> OpenOffice.org Macros and API
http://www.oooforum.org/forum/viewtopic.phtml?t=79635&highlight=mailmerge
Ciao.
--
Sergio MAZZA


title: esportazione report in Open Office

author: RobertoA

text:
> salve a tutti
> vorrei sapere se esiste la possibilità di trasferire il contenuto di
> un report al programma Writer di Open Office ?
> grazie e buon lavoro
> Maurizio
>
> [risposta]
> Direttamente non mi risulta.
> (anche tu) Utilizza VBA per scrivere direttamente un Writer:
> Programming OpenOffice.org with Visual Basic
>
http://www.kalitech.fr/clients/doc/VB_APIOOo_en.html
>
> OOoForum.org Forum Index -> OpenOffice.org Macros and API
>
http://www.oooforum.org/forum/viewtopic.phtml?t=79635&highlight=mailmerge
>
A Mauri',  certo che sei proprio scarso
Cercare un pochino di piu', prima di chiedere, no vero ?
Ciao e grazie al buon Mazza
RobertoA


title: esportazione report in Open Office

text:
On 22 Feb, 10:35, "RobertoA" <
amoro...@tiscalinet.it
> wrote:
> > salve a tutti
> > vorrei sapere se esiste la possibilità di trasferire il contenuto di
> > un report al programma Writer di Open Office ?
> > grazie e buon lavoro
> > Maurizio
>
> > [risposta]
> > Direttamente non mi risulta.
> > (anche tu) Utilizza VBA per scrivere direttamente un Writer:
> > Programming OpenOffice.org with Visual Basic
> >
http://www.kalitech.fr/clients/doc/VB_APIOOo_en.html
>
> > OOoForum.org Forum Index -> OpenOffice.org Macros and API
> >
http://www.oooforum.org/forum/viewtopic.phtml?t=79635&highlight=mailm.
..
>
> A Mauri',  certo che sei proprio scarso
> Cercare un pochino di piu', prima di chiedere, no vero ?
> Ciao e grazie al buon Mazza
> RobertoA
grazie per il suggerimento e anche per lo ... "scarso"
chi è poco pratico e sta imparando alle volte si inceppa sulle cose
ovvie e banali
buona serata
Maurizio


title: esportazione report in Open Office

text:
<
consu...@open.it
> ha scritto nel messaggio
news:c8b4bf0d-9ec1-4f04...@f3g2000yqf.googlegroups.com...


--------------------------------------------------
Non vorrei che prendessi sul serio il mio 'scarso'
Se guardi un thread piu' sotto vedrai che mi e' stato dato lo stesso
identico consiglio dal buon Mazza (con una risposta ha esaudito due
richieste)
E' stato questo il motivo del mio intervento, prenderci un po' in giro per
la pigrizia che mostriamo alcune volte nel postare sul ng prima ancora di
cercare in rete
Ciao
RobertoA


title: problema nel report

author: Luigi

text:
ciao a tutti
ho un report
con prodotto e confezione.

Vorrei vedere per ogni prodotto anche le diverse confezioni,
ma mentre nella query posso notarle,
nel report mi fa vedere solo i diversi tipi di prodotto
ma non tutti i tipi di confezioni.

Dove sabaglio?

grazie


title: problema nel report

text:
"Luigi" <
Lui...@nospambero.it
> ha scritto nel messaggio
news:51aba17d$0$1369$4faf...@reader2.news.tin.it...

riesco ora a vedere le varie confezioni
ma nel report ho questa situazione (e non credo vada bene)
Corpo vuoto
e in pie' di pagina confezione
Prodotto e confezione


title: Non ci posso credere ..... funziona?!

author: Eagle

text:
Ciao a tutti,
ieri ho provato (per la prima volta sul 2000), a proteggere un db, quindi ho
tirato fuori tutti gli appunti raccolti durante gli anni, con le varie crisi
di nervi tra Admin ed Amministratore, password  errate ecc. Ad un certo
punto ho deciso di dare uno sguardo alla protezione guidata (anche perchè
con tutti i miei appunti, non è che stesse proprio filando tutto liscio),
non ricordo perchè con la precedente versione di Access non ho mai avuto a
che fare con la creazione guidata della protezione di un db, eppure mi pare
che ci fosse,  resta il fatto che questa volta la creazione guidata mi  è
sembrata molto chiara e soprattutto funzionale, tanto che chiunque
riuscirebbe a portarla a buon fine. C'è sotto qualcosa oppure finalmente in
Access 2000 c'è qualcosa di buono?? Durante la procedura mi sono stati
assegnati dei PID per ogni utente, a cosa servono visto che ogni utente ha
una sua password e un nome? Forse a ricreare il gruppo di lavoro?
Grazie e ciao a tutti.


title: Non ci posso credere ..... funziona?!

author: Sib

text:
"Eagle" <
okp...@tin.it
> ha scritto nel messaggio
news:vrgi6.3371$LM4....@twister1.tin.it...
cut
> riuscirebbe a portarla a buon fine. C'è sotto qualcosa oppure finalmente
in
> Access 2000 c'è qualcosa di buono?? Durante la procedura mi sono stati
> assegnati dei PID per ogni utente, a cosa servono visto che ogni utente ha
> una sua password e un nome? Forse a ricreare il gruppo di lavoro?
Il PID e' il codice univoco che identifica l'utente insieme al suo user
name.
La password e' contenuta solo nel file mdw.
se elimini l'mdw e ne crei un altro con gli stessi user name e PID ma senza
password, vedrai che potrai aprire il db inserendo semplicemente l'user
name.
Sib


title: pocket access

author: james

text:
richiesta d'aiuto a tutti.
assunto che access x wmob03 non esiste, e che bisogna ricorrere a sw
di terzi, qualcuno sa consigliarmi un sw(non nec. freeware) che mi
consenta di importare da notebook a palmare non solo le tbl (come fa
activesync) ma tutt il db (incl. query, macro, reports, forms...) e/o
un sw che mi consenta di ricrearmi quanto non importato da activesync
sul notebook evitando cosě di cavarmi gli occhi sul palmare?
grazie a tutti in anticipo
lapmsss
james


title: pocket access

text:
"james" <
bor...@hotmail.com
> ha scritto nel messaggio

Non so se esiste la soluzione che dici, ma considerando che su pocketpc
parlare di stampe e di analisi dati ha poco senso (i palmari si usano per
caricare e modificare dati, non per analizzarli) se hai dimestichezza con VB
e con SQL puoi scaricarti dal sito MS tutto il tool di VB per pocketPC e
quello per SQL server per pocket PC che tra l'altro e' anche free.
Sib


title: [?] sql TRANSFORM non funzia in JET e visual basic.

author: JeLot

text:
Ciao a tutti.
Ho un problema (ma toh?!?!?!?):
devo convertire una query
da ACCESS a VB... cioe'... devo integrarla in vb.
a parte l'istruzione
proprietaria di ACCESS NZ(), che ho sostituito a mano, ho in mano una
TRANSFORM (una query che ribalta le tabelle) che in access funziona
perfettamente, mentre da ADO e vb non funziona, e da una marea di errori di
aggregazione.
UFFA!
c'e' qualche utility per convertire
efficentemente una TRANSFORM?
non posto la query perche' e'
incasinatissima.
qualcuno si e' gia' scontrato con le differenze tra
access e il suo bel motore?
e' intenzionale da parte di microsoft
mettere i bastoni tra le ruote di chi vuole abbandonare access ma tenersi
almeno la parte sql?
senza volere sollevare un polverone, vi dico subito
che se rispondete gradirei che fossero consigli, invece che sterili
controversie sulla bonta' di access.
insomma... datemi una mano per
favore!!!
grazie
_JeLot_
--------------------------------
Inviato via
http://usenet.iol.it


author: MegaMax

text:
"JeLot" <
shubni...@libero.it
> ha scritto nel messaggio
news:62Z110Z131Z134Y...@usenet.iol.it...
> Ciao a tutti.
>
> Ho un problema (ma toh?!?!?!?):
> devo convertire una query
> da ACCESS a VB... cioe'... devo integrarla in vb.
>
> a parte l'istruzione
> proprietaria di ACCESS NZ(), che ho sostituito a mano, ho in mano una
> TRANSFORM (una query che ribalta le tabelle) che in access funziona
> perfettamente, mentre da ADO e vb non funziona, e da una marea di errori
di
> aggregazione.
Non potrebbe dipendere da... che so... le versioni dell'ADO che usi? Dal
service pack che hai installato?
Non si, sono solo idee... prova a fare una ricerca sul technet.
Ciao, Max


title: access - sql05ex

author: ilario

text:
Salve
da dove inizio per portare il mio db da access a sql express 2005 ?
Grazie
Ilario


title: access - sql05ex

text:
Nel suo scritto precedente, ilario ha sostenuto :

Mi spiego meglio, mantenere access come fe e sql come be.
Ilario


title: access - sql05ex

author: Morgan

text:
"ilario" <biol...@gmail.invalid> ha scritto nel messaggio
news:mn.acb97d73d...@gmail.invalid...

ADO,ODBC con DAO, DNS per il collegamento.
C'č un tool molto buono per migrare da un database .mdb tabelle e dati
in SQL Server Express.Il wizard alla fine ti dice se vuoi sostituire le
tabelle
migrate con le stesse linkate sul server.
Buona fortuna
Morgan


title: access - sql05ex

text:
Dopo dura riflessione, Morgan ha scritto :
> "ilario" <biol...@gmail.invalid> ha scritto nel messaggio
> news:mn.acb97d73d...@gmail.invalid...
>> Nel suo scritto precedente, ilario ha sostenuto :
>>> Salve
>>> da dove inizio per portare il mio db da access a sql express 2005 ?
>>>
>>> Grazie
>>>
>>> Ilario
>>
>> Mi spiego meglio, mantenere access come fe e sql come be.
>>
>> Ilario
>>
> ADO,ODBC con DAO, DNS per il collegamento.
> C'è un tool molto buono per migrare da un database .mdb tabelle e dati
> in SQL Server Express.Il wizard alla fine ti dice se vuoi sostituire le
> tabelle
> migrate con le stesse linkate sul server.
>
> Buona fortuna
>
> Morgan
Grazie ma un po troppo tecnica la tua risposta per le mie capacità,
sapete se esiste un tutorial?
Ilario


title: Barre degli strumenti

author: il barbi

text:
Mi interessa disabilitare alcune barre di strumenti
all'apertura di una maschera, come faccio?
il barbi


title: Barre degli strumenti

author: sv

text:
il barbi ha scritto:
> Mi interessa disabilitare alcune barre di strumenti
> all'apertura di una maschera, come faccio?
> il barbi
Col metodo ShowToolbar vedi Help.
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Barre degli strumenti

text:
"sv" <
salv...@nospbox.enel.it
> ha scritto nel messaggio
news:bq6pf7$56c$1...@news.newsland.it...
> il barbi ha scritto:
>
> > Mi interessa disabilitare alcune barre di strumenti
> > all'apertura di una maschera, come faccio?
> > il barbi
>
> Col metodo ShowToolbar vedi Help.
>
grazie, purtroppo e' un'ora che cerco nell'help ma non ho
ancora trovato i nomi delle barre (appunti, casella degli
strumenti, formattazione, struttura maschera e web)
il barbi


title: Record Source di un report

text:
come faccio da codice a cambiare la proprietą origine dati di un report ?
grazie mille


title: Record Source di un report

author: Antonio Biso

text:
s0n1c <
v...@le.it
> wrote in message a8hjp9$rbp9g$1...@ID-118063.news.dfncis.de...
> come faccio da codice a cambiare la proprietà origine dati di un report ?
> grazie mille
Assegnando un'origine valida alla proprietà recordsource del report
Antonio


title: Record Source di un report

text:
"> Assegnando un'origine valida alla proprietà recordsource del report
>
> Antonio
>
si, ma se l'origine dati è specificata all'inerno di un altra tabella?
di nuovo grazie


title: Record Source di un report

text:
s0n1c <
v...@le.it
> wrote in message a8hkok$sn4lq$1...@ID-118063.news.dfncis.de...

Cioè in un campo di una tabella c'è scritto il nome di una query o di una
tabella o una stringa SQL?
Se è così lo recuperi con una dlookup e lo usi
Antonio


title: Record Source di un report

text:
> Cioè in un campo di una tabella c'è scritto il nome di una query o di una
> tabella o una stringa SQL?
> Se è così lo recuperi con una dlookup e lo usi
>
> Antonio
All'interno di un campo c'e scritto il nome della query con la quale deve
costruire il report.
Ho recuperato il nome, ma poi non riesco a dire (da codice)  al report di
girare l'origine dati da quella precedente a questa nuova.


title: Record Source di un report

text:
s0n1c <
v...@le.it
> wrote in message a8htdn$sjubs$1...@ID-118063.news.dfncis.de...
> > Cioč in un campo di una tabella c'č scritto il nome di una query o di
una
> > tabella o una stringa SQL?
> > Se č cosě lo recuperi con una dlookup e lo usi
> >
> > Antonio
> All'interno di un campo c'e scritto il nome della query con la quale deve
> costruire il report.
> Ho recuperato il nome, ma poi non riesco a dire (da codice)  al report di
> girare l'origine dati da quella precedente a questa nuova.
Su evento apertura del report, scrivi
me.recordsource = "Query"
Antonio


title: Per RoDAgo

author: Matteo Testoni

text:
Caro RoDAgo... sei troppo fiscale e rompi anche un po'
1. Il materiale sul newsgroup dovrebbe essere free e quindi liberamente
distribuibile. Se qualcuno lo usa non è che ci si possa fare chissachè
visto che lo scopo del NG è di aiutare i programmatori. Invece di intentare
azioni legali potreste semplicemente richiedere di scrivere che il materiale
è tratto da NG sul sito IDEM
2. Riguardo alla domanda per i messaggi tra PC mi riferivo al fatto di
utilizzare Access per i mesaggi. una volta ho chiesto a qualcuno per la
scannerizzazione dei FAX e lui mi ha risposto di utilizzare l'active X di
Imaging.... Cos'è una bestemmia per voi del NG??? mi sembra una domanda
pertinente?? Anche i messaggi tra PC per uno che gli serve notificare da
un prg in Access ad un'altro PC di un evento penso che sia inerente....
3. Il materiale sul NG non è di particolare qualità... cioè siti... magari
in inglese in cui si possono trovare maggiori
informazioni... magari chi ha inserito il materiale dal NG lo ha tratto dai
siti in questione....
4. Il materiale è FREE, FREE, FREE. Se qualcuno usa il materiale del sito
per crearsi un'altro sito magaroi un po' più organizzato e con roba
proveniente da altri siti non c'è niente di male..... il materiale è FREE.
Libertà di essere d'aiuto ai programmatori
5. Non sono amico di IDEM nè loro conoscenti
6. E' giusto interpellare quelli di IDEM perchè hanno fatto pubblicità sul
sito e perchè hanno utilizzato il materiale senza nessun riferimento
Ciao... non prendertela


title: Per RoDAgo

author: RoDAgo

text:
Matteo Testoni scrisse...
> Caro RoDAgo... sei troppo fiscale e rompi anche un po'
Va bene, cerchiamo di capire cosa hai voluto dire con questo post.
> 1. Il materiale sul newsgroup dovrebbe essere free e quindi liberamente
> distribuibile. Se qualcuno lo usa non è che ci si possa fare chissachè
> visto che lo scopo del NG è di aiutare i programmatori. Invece di
intentare
> azioni legali potreste semplicemente richiedere di scrivere che il
materiale
> è tratto da NG sul sito IDEM
Dal primo punto si capisce immediatamente che non hai letto nulla dei post
riguardanti il problema, in particolare del risentimento di chi ha
attivamente collaborato alla realizzazione del SC (non come me e te) ed
infine non hai capito che la IDEM non ha fatto tutto ciò per aiutare i
programmatori!!!!!!!!!!
> 2. Riguardo alla domanda per i messaggi tra PC mi riferivo al fatto di
> utilizzare Access per i mesaggi. una volta ho chiesto a qualcuno per la
> scannerizzazione dei FAX e lui mi ha risposto di utilizzare l'active X di
> Imaging.... Cos'è una bestemmia per voi del NG??? mi sembra una domanda
> pertinente?? Anche i messaggi tra PC per uno che gli serve notificare da
> un prg in Access ad un'altro PC di un evento penso che sia inerente....mi
sbaglio???
Riporto il tuo post in questione:
*Vorrei che i vari PC di una rete si comunicassero dei semplici messaggi. E'
*possibile senza avere un programma residente?? mi ricordo di qualche tool
*per la spedizione dei messaggi per windows.... non un mail...
Dato il modo in cui è stata posta la domanda, unica risposta era Winpopup
(data sia da me che da Sergio Mazza), dunque se la domanda è vaga, trae in
inganno ed è palesemente OT (non vedo nessun riferimento ad MsAccess ed per
quanto si possa essere flessibili l'unica cosa che accomuna WinPopup ed
MsAccess è la softwarehouse che li ha creati) non vedo perchè devi
prendertela con chi ti ha risposto!!
> 3. Il materiale sul NG non è di particolare qualità... cioè siti... magari
> in inglese in cui si possono trovare maggiori
> informazioni... magari chi ha inserito il materiale dal NG lo ha tratto
dai
> siti in questione....
Eh, eh, eh, uaz, uaz, :)))))), questa mi fa scompisciare dalle risate, chi
sei tu per giudicare!!!!!!!!!!!!!!!!!!
Stai scherzando sicuramente o non hai la vaga idea dei siti che parlano di
Access.
Uno fra i più autorevoli dei siti in lingua Inglese di cui tu parli,
stranamente ha sia riferimenti che link sul nostro SC, se il nostro
materiale e tratto da quasti siti in questione ti chiedo, come mai loro
stessi consigliano la visione del ns SC?!?!?!?
> 4. Il materiale è FREE, FREE, FREE. Se qualcuno usa il materiale del sito
> per crearsi un'altro sito magaroi un po' più organizzato e con roba
> proveniente da altri siti non c'è niente di male..... il materiale è FREE.
> Libertà di essere d'aiuto ai programmatori
Va bene, se vuoi pubblicato questo post come cavolata del Giubileo lo faccio
sapere al nostro caro Webmaster!!
> 5. Non sono amico di IDEM nè loro conoscenti
Questo l'avevo capito!!!!  (ironia non velata)
> 6. E' giusto interpellare quelli di IDEM perchè hanno fatto pubblicità sul
> sito e perchè hanno utilizzato il materiale senza nessun riferimento
> Ciao... non prendertela
Ti saluto ma un pò mi hai fatto incazzare perchè a questo punto significa
non avere rispetto del lavoro altrui e nella mia terra il rispetto E' la
cosa più importante!!!
RoDAgo


title: Per RoDAgo

text:
----- Original Message -----
From: "RoDAgo" <
rodago...@tiscalinet.it
>
Newsgroups: it.comp.appl.access
Sent: Wednesday, May 24, 2000 11:27 AM
Subject: Re: Per RoDAgo
> Dato il modo in cui è stata posta la domanda, unica risposta era Winpopup
> (data sia da me che da Sergio Mazza), dunque se la domanda è vaga, trae in
> inganno ed è palesemente OT (non vedo nessun riferimento ad MsAccess ed
per
> quanto si possa essere flessibili l'unica cosa che accomuna WinPopup ed
> MsAccess è la softwarehouse che li ha creati) non vedo perchè devi
> prendertela con chi ti ha risposto!!
Ti rifaccio la domanda... come faccio a mandare un msg ad un'altro PC da
Access??
> Eh, eh, eh, uaz, uaz, :)))))), questa mi fa scompisciare dalle risate, chi
> sei tu per giudicare!!!!!!!!!!!!!!!!!!
> Stai scherzando sicuramente o non hai la vaga idea dei siti che parlano di
> Access.
> Uno fra i più autorevoli dei siti in lingua Inglese di cui tu parli,
> stranamente ha sia riferimenti che link sul nostro SC, se il nostro
> materiale e tratto da quasti siti in questione ti chiedo, come mai loro
> stessi consigliano la visione del ns SC?!?!?!?
Ma ti riferisci ad Access Web:
http://www.mvps.org/access/


title: Per RoDAgo

author: Giovanni Albertone

text:
On Wed, 24 May 2000 14:11:22 +0200, "Matteo Testoni" <
ba...@tecna.it
>
wrote:
>Ti rifaccio la domanda... come faccio a mandare un msg ad un'altro PC da
>Access??
Allora mettici un altro po' di impegno e specifica pure quale sistema
operativo usi. Visto che comunque la domanda non ha niente a che fare
con Access, questa informazione aiuterebbe un po'.
In ogni caso dai un'occhiata al comando "NET SEND", leggiti l'help
tramite "NET HELP SEND" in una finestra dove hai aperto l'interprete
di comandi. Una volta letta la sintassi lo puoi lanciare tramite un
normale shell.
PS: La tua domanda, a mio avviso, rimane off-topic, cosi' come lo
sarebbe se io ti chiedessi dove comprare dei cd a poco prezzo da
ascoltare mentre programmo in Access...
--
Ciao,
Giovanni


title: Per RoDAgo

author: Ditta Cerri (Sib)

text:
Matteo Testoni dice
[cut]
> 3. Il materiale sul NG non è di particolare qualità... cioè siti... magari
> in inglese in cui si possono trovare maggiori
> informazioni... magari chi ha inserito il materiale dal NG lo ha tratto
dai
> siti in questione....
Ha parlato Bill G.


title: Per RoDAgo

author: Federico Luciani

text:
Matteo Testoni wrote:
> 1. Il materiale sul newsgroup dovrebbe essere free e quindi liberamente
> distribuibile. Se qualcuno lo usa non è che ci si possa fare chissachè
> visto che lo scopo del NG è di aiutare i programmatori. Invece di intentare
> azioni legali potreste semplicemente richiedere di scrivere che il materiale
> è tratto da NG sul sito IDEM
Leggo solo adesso questo msg.
Non farmi incazzare piu' di quanto lo sono gia'!
1) Il materiale che appare sui NG non e' free, o almeno non puo' essere
pubblicato senza citarne l'autore.
2) Il materiale pubblicato dalla Idem srl NON PROVIENE dal ng, bensi'
dal sito comune, che un'altra cosa.
Il sito comune pubblica materiale inviato dai vari collaboratori e non
preleva materiale dal ng. (Non avrei il tempo materiale per farlo)
3) Il materiale presente sul sito comune e' free, nel senso che puo'
essere utilizzato da tutti, ma non puo' essere pubblicato in altro luogo
senza l'autorizzazione dell'autore e senza citarne la fonte.
Tutto il materiale pubblicato su internet e' tutelato dalla legge sui
diritti d'autore, cosi' come un libro o un articolo di giornale.
> 3. Il materiale sul NG non è di particolare qualità... cioè siti... magari
> in inglese in cui si possono trovare maggiori
> informazioni...
> magari chi ha inserito il materiale dal NG lo ha tratto dai
> siti in questione....
1) Per tua informazione i siti recensiti nel sito comune sono tra i
migliori e piu' completi siti al mondo che si accupano di MSAccess.
Molti degli autori di questi siti fanno parte del team di sviluppo di
MSAccees, ma tu non lo puoi sapere, perche' probabilmente non hai mai
letto un manuale di access, forse nenche quello fornito con il software.
2) Se ritieni di poter migliore la qualita' del sito, aspetto il tuo
materiale a braccia aperte. C'e' da dire che finora non ho mai ricevuto
nulla che provenisse dalla tua testolina.
3) Attento a calunniare chi invece qualcosa per il sito lo ha partorito,
potresti pentirtene.
Mi fermo qui, altrimenti adrei giu' pesante e non mi sembra il caso!
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Per RoDAgo

text:
Federico Luciani dice
> Matteo Testoni wrote:
[cut]
> Leggo solo adesso questo msg.
> Non farmi incazzare piu' di quanto lo sono gia'!
>
[cut]
> > 3. Il materiale sul NG non è di particolare qualità... cioè siti...
magari
> > in inglese in cui si possono trovare maggiori
> > informazioni...
> > magari chi ha inserito il materiale dal NG lo ha tratto dai
> > siti in questione....
[cut]
> 3) Attento a calunniare chi invece qualcosa per il sito lo ha partorito,
> potresti pentirtene.
>
> Mi fermo qui, altrimenti adrei giu' pesante e non mi sembra il caso!
>
> --
> Federico
Uellaaa!!!
a coso! se mi fai incazzare anche il Federico sono cavoli amari!!!
Ciao, Sib



title: Per RoDAgo

text:
ma cosa vuoi dire???
Io non ho detto nè di essere il più bravo, nè il peggiore. Non ho detto che
il sito comune fà schifo ma neanche il migliore. Ho solo detto che il
materiale è free e che esistono altri siti dove il materiale è free... vedi
access Web dove l'organizzazione mi sembra migliore e dove ho trovato molte
soluzioni ai miei problemi e a problemi d'altri. Es. domanda: Non si chiude
più access... risposta: bug di access tratta da Access Web
"Ditta Cerri (Sib)" <
cerriserv...@tiscalinet.it
> ha scritto nel
messaggio news:8ggnf5$a7$2...@pegasus.tiscalinet.it...
>
> Matteo Testoni dice
> [cut]
> > 3. Il materiale sul NG non è di particolare qualità... cioè siti...
magari
> > in inglese in cui si possono trovare maggiori
> > informazioni... magari chi ha inserito il materiale dal NG lo ha tratto
> dai
> > siti in questione....
>
> Ha parlato Bill G.


title: Per RoDAgo

text:
On Fri, 26 May 2000 14:49:25 +0200, "Matteo Testoni" <
ba...@tecna.it
>
wrote:
>Ho solo detto che il materiale è free e che esistono altri siti dove il materiale è free.
E ti hanno gia' risposto che tu non hai neanche una vaga idea di cosa
significhi free. Dai un'occhiata a qualche testo rudimentale sulla
proprieta' intellettuale e sui diritti d'autore.
Che poi questo sia giusto o meno e' discutibile, ma lascerei comunque
al creatore il diritto di avvalersi o meno della proprieta'
intellettuale di quello che produce.
--
Ciao,
Giovanni


title: Per RoDAgo

author: lbo dal portatile

text:
>1. Il materiale sul newsgroup dovrebbe essere free e quindi liberamente
>distribuibile. Se qualcuno lo usa non è che ci si possa fare chissachè
>visto che lo scopo del NG è di aiutare i programmatori. Invece di intentare
certo.  solo che ci sono modi simpatici e modi non simpatici di usare
il materiale pubblicato su un ng.
ad esempio, a me non mi sta simpatico uno che raspa il ng e poi ci fa
il suo sito.  allora io che ci scrivo a fa' sul ng?  per far fare il
sito a tizio o caio che poi ci mettono i bannerini e si pigliano i
soldi?  tizio o caio mi pagassero le consulenze!
se questo genere di cose prendesse piede penso che molta meno gente
(tra cui me) troverebbe piacevole scrivere su un ng.
>azioni legali potreste semplicemente richiedere di scrivere che il materiale
>è tratto da NG sul sito IDEM
e poi vedi, che male ci sarebbe stato a dire "sentite un po', noi
vogliamo fare un sito cosi' e cosi', che ne pensate se pigliamo la
vostra roba e diciamo al mondo quanto siete bravi?".  magari ci si
poteva pensare.  magari noi gli potevamo dire no, sai, siccome abbiamo
spirito di corpo e orgoglio niusgrupparo ci sentiamo lusingati ma
preferiremmo restare cosi', pero' sentitevi liberi di linkarci e
scambiamoci informazioni reciproche sulle nostre attivita' per vedere
se e' il caso di coordinarsi in qualche modo.  diciamo che voi siete
un contenitore e "noi" curiamo la "rubrica" access.
>3. Il materiale sul NG non è di particolare qualità... cioè siti... magari
>in inglese in cui si possono trovare maggiori informazioni...
vero, ma ci sono siti in portoghese in cui se ne trovano meno.  o in
danese, magari.  forse ce n'e' uno indonesiano in cui c'e' piu' degli
inglesi.
cazzo c'entra sto discorso?  ognuno si impegna al meglio delle sue
possibilita' e del suo tempo!
>magari chi ha inserito il materiale dal NG lo ha tratto dai
>siti in questione....
magari invece no (almeno per quanto mi riguarda).  e comunque, anche
se fosse, la traduzione dei commenti ad un codice gia' di per se' e'
opera meritoria.  a parte il fatto che magari "noi" l'autore originale
lo citiamo, e magari lui e' contento di sapere di essere tradotto
(*citato!*) in un'altra lingua che lo rendera' piu' "conosciuto".
>4. Il materiale è FREE, FREE, FREE. Se qualcuno usa il materiale del sito
>per crearsi un'altro sito magaroi un po' più organizzato e con roba
>proveniente da altri siti non c'è niente di male..... il materiale è FREE.
>Libertà di essere d'aiuto ai programmatori
free vuol dire che non ti chiedo soldi se fai girare le mie routine
nei tuoi programmi, magari citandomi se te lo chiedo, mica vuol dire
che tu puoi dire che le routine sono le tue e farti bello al posto
mio.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Per RoDAgo

author: sib

text:
lbo dal portatile scrisse
[cut] (ma perche' era lungo, non perche' era superfluo)
> >4. Il materiale è FREE, FREE, FREE. Se qualcuno usa il materiale del sito
> >per crearsi un'altro sito magaroi un po' più organizzato e con roba
> >proveniente da altri siti non c'è niente di male..... il materiale è
FREE.
> >Libertà di essere d'aiuto ai programmatori
>
> free vuol dire che non ti chiedo soldi se fai girare le mie routine
> nei tuoi programmi, magari citandomi se te lo chiedo, mica vuol dire
> che tu puoi dire che le routine sono le tue e farti bello al posto
> mio.
Bel discorso!!
Ciao, Sib



title: fatturazione elettronica il punto per la separazione dei decimali

author: mario rossi

text:
volevo chiedervi secondo come potrei ottenere dal classico valore valuta

1.347,52 €

il valore come richeisto nel file xml in questo modo

1347.52

quindi senza il punto delle migliaia e con il punto al posto della virgola per i decimali?
grazie a tutti.


text:
Convertendo il numero in stringa cosa accade...?

@Alex


author: Karl Donaubauer

text:
Salve,

mario rossi:

str()

--
Ciao
Karl
*********
http://www.AccessDevCon.com

Access FAQ:
http://www.donkarl.com/it


text:
Facendo attenzione allo spazio iniziale... se serve... perché a prescindere c'è con Str().

@Alex


text:
Il giorno venerdì 28 settembre 2018 21:50:00 UTC+2, @Alex ha scritto:
> Facendo attenzione allo spazio iniziale... se serve... perché a prescindere c'è con Str().
>
> @Alex

grazie a entrambi quindi bastava usare str()
ci provo grazie.


text:

scusate forse sbaglio qualcosa ho trasformato un 28.000.000,00 € in stringa con str() ma mi restituisce 28000000 senza i decimali e il punto

sbaglio qualcosa?


text:

Usando str() e cstr() è evidente non possa soddisfare la tua richiesta.

Un NUMERO non ha separatori di MIGLIAIA, ma solo la sua rappresentazione in stringa, un numero ha solo di Decimali... ma quì è da chiarire perchè se i decimali sono 00 viene attuara la soppressione perchè le conversioni sono ottimizzate per risparmiare...

Quindi la rappresentazione che hai fornito tu... quella commerciale della Valuta è solo una rappresentazione grafica di una STRINGA conun formato VALUTA di un numero, non è un numero.
Per essere chiari, il numero equivalente a quanto tu hai erroneamente definito numero, ovvero [28.000.000,00€] in realtà è 28000000.00 (ovviamente il separatore decimale dipende dalle impostazioni del S.O.)

Magari Karl aveva qualche altra idea...

Intanto che aspettiamo, puoi provare a convertire la Valuta in Stringa in modo semplice usando:

FormatCurrency

Function FormatCurrency(Expression, [NumDigitsAfterDecimal As Long = -1], [IncludeLeadingDigit As VbTriState = vbUseDefault], [UseParensForNegativeNumbers As VbTriState = vbUseDefault], [GroupDigits As VbTriState = vbUseDefault]) As String
    Membro di VBA.Strings
    Formats expression as currency

Nel tuo caso:
strValuta= FormatCurrency(TuaValuta,2,vbTrue)

? FormatCurrency(28000000.00,2,vbTrue)
28.000.000,00 €

Saluti
@Alex


text:
P.S.

Fai attenzione che queste funzioni sono affette dai REGIONAL SETTINGS... vale a dire che se esegui questa funzione in UK il simbolo dell'€ diventerà la Sterlina...

@Alex


text:

aspetta forse non ho capito a me serve ottenere partendo
dall'importo 28.000.000 € il risultato 28000000.00 in pratica è il formato che mi serve per la fattura elettronica, sarà l'orario e che è tutto il giorno che programmo ma non ho capito se il tuo esempio fà al caso mio o fa il contrario.


text:

Se il tuo VALORE di base è [28.000.000 €] già NON E' un NUMERO... ed ancora io non ho capito che TIPO di DATO stai manipolando... puoi essere più chiaro...?

Se non è un CURRENCY(VALUTA) hai un problema.
Verifica prima che non sia frutto di una Formattazione... se il campo in cui lo salvi è VALUTA quello che dici è falso, perchè quel formato è solo VISIVO come ti ho detto 45 volte.

Alla fine devi usare FORMAT e REPLACE

Se è un Campo di tipo VALUTA puoi usare FORMAT hai tutte le OPZIONI:

?Format(28000000,"#,##0.00")
28.000.000,00

?Format(28000000,"0.#,0")
28000000,00

Il restituito è una STRINGA, quindi come vedi e non hai alternative in quanto la conversione del Char(Separatore decimali) viene fatto così, dovrai applicare un REPLACE...

Se NON è un numero, ma una stringa devi sopprimere i SEPARATORI di migliaia e manipolare la parte decimale sostituendo la [,] con il PUNTO, ma se non c'è aggiungere [.00]

Sono certo sia un Campo di tipo VALUTA e per questo è bene tu ti chiarisca le cose, mi pare ti sia fatto ingannare da quello che VISUALIZZI...

Saluti
@Alex


text:
Salve,

mario rossi:
> ...
> dall'importo 28.000.000 € il risultato 28000000.00 in pratica è il formato che mi serve...

Come scritto da Alex dipende anche dal tipo e valore del input (p.e. al
massimo 2 decimali?), ma forse ti serve circa:

trim(str(TuoCampo)) & iif(instr(str(TuoCampo),".")=0,".00","")

o come espressione in una query:

trim(str(TuoCampo)) & iif(instr(str(TuoCampo);".")=0;".00")

Siccome è brutta, aspettiamo chi trova qc più elegante. ;-)



text:

ok intanto provo questa grazie.


text:

provata ed ho il seguente problema
se inserisco 22,00 mi restituisce correttamente 22.00
se inserisco 2,20 mi restituisce errato il valore 2.2 anzichè 2.20

risolvibile?


text:

Mario hai ricevuto molte indicazioni... tu quale hai usato...?

Se usi Format il problema non esiste...

@Alex


text:
Salve,

@Alex:
> mario rossi ha scritto:
>>> Karl Donaubauer ha scritto:
>>>> ...
>>>> o come espressione in una query:
>>>>
>>>> trim(str(TuoCampo)) & iif(instr(str(TuoCampo);".")=0;".00")
>>> ...
>> provata ed ho il seguente problema
>> se inserisco 22,00 mi restituisce correttamente 22.00
>> se inserisco 2,20 mi restituisce errato il valore 2.2 anzichè 2.20
>>
>> risolvibile?

Sì, però con controllare cosa si trova dopo il separatore decimale
l'espressione diventerei ancora più brutta. ;-)

> Se usi Format il problema non esiste...

Certo, se veramente si tratta di un tipo numerico, dovrebbe bastare p.e.

Replace(Format(TuoCampo;"0.00");",";".")

o forse con separatore comma:

Replace(Format(TuoCampo;"0,00");",";".")

Il "forse" non solo viene dalle impostazioni regionali di Windows.
Qualche volta anche è (l'installazione di) Access che fa confusione di
inglese/altra lingua per i caratteri jolly e separatori di Format(). Ho
già visto tutti varianti.



text:

ora provo la tua formula io inizialmente pensavo di riuscire a prendere la parte a sinistra delle virgola quindi la parte intera e lavorarla per togliere i punti quindi  28.000.000,2 diventerebbe

parte a sinistra 28.000.000 che lavorata diventa 28000000 ovvero senza punti
poi parte a destra della virgola ovvero parte decimale e se inferiore a 10 allora aggiungo uno zero che in questo caso il 2 diveta 20 e poi assemblare il tutto con un bel punto (.) nel messo fra parte intera e decimale

ragionamento scorretto e non fattibile?


text:

grande Karl!!!! la prima delle 2 sembra funzionare perfettamente al mio caso
ho provato con i seguenti importi
€ 28.000,00 e mi ha restituito 28000.00
€ 28.000.000,00 e mi ha restituito 28000000.00
con 22,00 dell'iva e mi ha resituito 22.00
con 4,00 di certa iva e mi ha restituito 4.00

secondo te potrebbe andare in crisi su certi computer con qualche impostazione diversa? considera che i pc su cui eseguo la modifica sono tutti in Italia

grazie molte.


text:
Scusa ma ti ho dato le soluzioni ai problemi e Karl ti ha scritto le formule e ribadito Le possibili anomalie con il sistema operativo... Fatico a capire cos'altro bisogna spiegare.
@Alex


text:
Salve,

mario rossi:
> ...
> secondo te potrebbe andare in crisi su certi computer con qualche impostazione diversa? considera che i pc su cui eseguo la modifica sono tutti in Italia
>

Di solito funziona se una volta sei riuscito di far funzionare Format()
soprattutto se si tratta di carattere jolly e separatori inglesi ed il
codepage non si cambia (cinese, russo ecc.). Gli errori spesso succedono
quando Access tenta di tradurre qc. in inglese/SQL.

Puo darsi che il modo con Str() e la faticosa lavorazione di stringhe
(come iniziato nel esempio) sarebbe un po più sicuro perché dipende meno
del sistema e delle circostanze.

Però non conosco la tua applicazione, i dati, gli utenti/sistemi ecc. e
poi se persi 1000000.00... È meglio di subito citare la gente della MS:

The information in my post is provided 'AS IS' with no warranties and
confers no rights. It is solely my own personal opinion. All code
samples are provided 'AS IS' without warranty of any kind, either
express or implied, including but not limited to the implied warranties
of merchantability and/or fitness for a particular purpose.

--
:-)



text:

access è versione XP i sistemi sono tutti windows 7/10
e tutti italiani


text:
...
>
> access è versione XP i sistemi sono tutti windows 7/10
> e tutti italiani

Allora direi che hai risolto...!

@Alex


text:

si risolto grazie, devo fare qualcosa al post quando è risolto?


author: BFS

text:

mi inserisco nella discussione
mi par di capire che usi quindi
Replace(Format(TuoCampo;"0.00");",";".")

ma cosa succede se il tuocampo vale 12,127 ?

ciao BFS

---
Questa email è stata esaminata alla ricerca di virus da AVG.
http://www.avg.com


text:

credo e spero che nei miei gestionali non serva la terza cifra decimale.


text:

non so che tipologia di clienti hai,
ma non è raro avere tre decimali nel prezzo unitario, anche 4 e anche 5.
Poi se quella funzione la usi anche per le quantità, anche li non è raro
avere 3 decimali

importante che sei consapevole che se il cliente nella fattura scrive
10,123 e nel file ci finisce 10,12 il file ti verrà scartato perchè i
conti non tornano

ciao
BFS


title: Errore: utilizzo non valido di Null

author: Newpack

text:
Oggi sembra proprio che non sia giornata....
Dunque, vorrei utilizzare il seguente codice:
    Dim LastGiorno As Date
    LastGiorno = Me.Venerdi2
    If IsNull(LastGiorno) Then
Qui mi segnala l'errore in oggetto, ma perchè?
Il controllo [Venerdi2] è vuoto, quindi è nullo e, se è nullo [Venerdi2] lo
è anche la variabile LastGiorno, quindi perchè mi segnala l'utilizzo errato
di IsNull?
Grazie.
Alfio


title: Errore: utilizzo non valido di Null

author: Davide

text:
"Newpack" <
chi...@libero.it
> ha scritto nel messaggio
news:_VSre.3818$D7.9...@twister1.libero.it...
> Oggi sembra proprio che non sia giornata....
>
> Dunque, vorrei utilizzare il seguente codice:
>
>    Dim LastGiorno As Date
>    LastGiorno = Me.Venerdi2
>    If IsNull(LastGiorno) Then
      prova a sostituire con questo:
      If IsNull(Me.Venerdi2) Then...
      e a non usare la variabile lastgiorno
> Qui mi segnala l'errore in oggetto, ma perchè?
> Il controllo [Venerdi2] è vuoto, quindi è nullo e, se è nullo [Venerdi2]
> lo è anche la variabile LastGiorno, quindi perchè mi segnala l'utilizzo
> errato di IsNull?
>
> Grazie.
>
> Alfio
>
Ciao
Davide


title: Errore: utilizzo non valido di Null

text:
"Davide" <
davide.di...@libero.it
> ha scritto nel messaggio
news:P4Tre.23716$75.15...@news4.tin.it...
> "Newpack" <
chi...@libero.it
> ha scritto nel messaggio
> news:_VSre.3818$D7.9...@twister1.libero.it...
>> Oggi sembra proprio che non sia giornata....
>>
>> Dunque, vorrei utilizzare il seguente codice:
>>
>>    Dim LastGiorno As Date
>>    LastGiorno = Me.Venerdi2
>>    If IsNull(LastGiorno) Then
>
>      prova a sostituire con questo:
>      If IsNull(Me.Venerdi2) Then...
>      e a non usare la variabile lastgiorno
>
Grazie Davide per la risposta, ma utilizzando il controllo anzichč la
variabile l'errore, purtroppo, non cambia.
Alfio


title: Errore: utilizzo non valido di Null

text:
"Newpack" <
chi...@libero.it
> ha scritto nel messaggio
news:56Wre.4286$yM4....@twister2.libero.it...

..forse non mi sono spiegato bene, hai cancellato questa riga?
LastGiorno = Me.Venerdi2
..l'errore lo dovrebbe dare se cerchi di assegnare null alla variabile
..fammi sapere, ho provato e a me funziona..
Davide


title: Errore: utilizzo non valido di Null

text:
"Davide" <
davide.di...@libero.it
> ha scritto nel messaggio
news:btWre.5455$b5.3...@news3.tin.it...
>
> "Newpack" <
chi...@libero.it
> ha scritto nel messaggio
> news:56Wre.4286$yM4....@twister2.libero.it...
>>
>> "Davide" <
davide.di...@libero.it
> ha scritto nel messaggio
>> news:P4Tre.23716$75.15...@news4.tin.it...
>>> "Newpack" <
chi...@libero.it
> ha scritto nel messaggio
>>> news:_VSre.3818$D7.9...@twister1.libero.it...
>>>> Oggi sembra proprio che non sia giornata....
>>>>
>>>> Dunque, vorrei utilizzare il seguente codice:
>>>>
>>>>    Dim LastGiorno As Date
>>>>    LastGiorno = Me.Venerdi2
>>>>    If IsNull(LastGiorno) Then
>>>
>>>      prova a sostituire con questo:
>>>      If IsNull(Me.Venerdi2) Then...
>>>      e a non usare la variabile lastgiorno
>>>
>>
>> Grazie Davide per la risposta, ma utilizzando il controllo anzichè la
>> variabile l'errore, purtroppo, non cambia.
>>
>>
>> Alfio
>
> ..forse non mi sono spiegato bene, hai cancellato questa riga?
>
> LastGiorno = Me.Venerdi2
>
> ..l'errore lo dovrebbe dare se cerchi di assegnare null alla variabile
> ..fammi sapere, ho provato e a me funziona..
>
Ok, funziona, grazie per l'aiuto.
Alfio


title: Report e Database

author: Enrico Pietrobon

text:
Ciao A tutti
Non so se a qualcuno capita questa cosa..
Premetto.
Ho un database, con delle tabelle collegate, il database è uguale per
tutti i clienti, mentre le tabelle sono, ovviamente , diverse, stessa
struttura, ma dati diversi.
In questo modo, modificando il database iniziale, non tocco le tabelle
dei clienti.
Vorrei creare oltre a delle tabelle per ogni cliente, anche qualche
report personalizzato per alcuni clienti.
So che non è possibile "collegare" come le tabelle un report.
Esiste un sistema per poter effettuare questa operazione ??
Grazie a tutti fin d'ora.
Enrico Pietrobon


title: Report e Database

author: Gabriele Bertolucci

text:
> Vorrei creare oltre a delle tabelle per ogni cliente, anche qualche
> report personalizzato per alcuni clienti.
> So che non è possibile "collegare" come le tabelle un report.
> Esiste un sistema per poter effettuare questa operazione ??
A patto di lasciare tutto in formato MDB, oppure tutto in formato MDE, puoi
creare un MD? a parte, contenente solamente i report ed un modulo di codice
nel quale avrai messo una funzione pubblica che provvederà ad aprire i
report.
A questo punto, nel MD? della tua applicazione dovrai aggiungere un
riferimento a questo MD? appena creato, poi, quando vorrai aprire un
report, non dovrai fare altro che richiamare la funzione pubblica che avevi
precedentemente definito.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: Report e Database

text:
Gabriele Bertolucci ha scritto:

Avevo già provato una cosa simile.
e Non ricordo perchè non funzionava.
I db sono in formato MDE. e forse trasformando in mde il file con i
report la cosa non funzionava...
Grazie Comunque.
Enrico Pietrobon


title: Report e Database

text:
> Avevo già provato una cosa simile.
> e Non ricordo perchè non funzionava.
> I db sono in formato MDE. e forse trasformando in mde il file con i
> report la cosa non funzionava...
Non so nemmeno io come mai non ti funzioni.
Io ho appena provato creandomi tre file MDB (dati, app e report) e funziona
tranquillamente.
Poi ho anche provato a convertire in MDE prima il report.MDB e poi il
app.MDB, quindi ho aperto il app.MDE ed ha funzionato altrettanto
tranquillamente.



title: Report e Database

text:
Ti chiedo troppo se ti chiedo se puoi inviarmi i due file ????
Te ne sarei veramente grato.
Grazie e scusa.
Enrico Pietrobon
Gabriele Bertolucci ha scritto:



title: Report e Database

text:
> Ti chiedo troppo se ti chiedo se puoi inviarmi i due file ????
> Te ne sarei veramente grato.
Li avevo già cancellati :-(
Comunque li ho ripreparati :-)
Hai posta.



title: mistero con funzione NZ

author: Antonio in the city

text:
Questo č veramente un mistero, almeno per me.
In un campo di una query inserisco il valore 0 con la funzione NZ (la query
trae i valori da un'altra query filtrata in base ad un valore vero falso).
Tutto funziona e fila liscio sul mio pc che ha windows Xp e access per xp ed
access 2000. L'ho dato che lo ha installato su un pc con windows 98 e lo ha
provato anche su uno con  windows ma non funziona piů ed al posto dei
numeri, nel campo suddetto, si vedono dei quadratini e nel record con valore
nullo non si ha la sostituzione con lo 0.
Potete spiegarmi cosa cavolo sta succedendo ?
Grazie mille per i vostri suggerimenti.
Antonio


title: cancel=true

text:
ciao a tutti

uso questo codice in una funzione

    Dim Risposta As Variant
    Dim Cancel As Integer
    Risposta = vbYes

    Risposta = MsgBox("ecc. ecc.  ecc,,,,,,,,,,,,,,,,,,,,,,", vbYesNo, "Attenzione!")

    If (Risposta = vbYes) Then
      Cancel = True

    if ...ecc.

poi la richiamo su scaricamento della maschera
con: If miafunzione(Me) = False Then Exit Sub

però anche quando seleziono si, la maschera
mi si chiude anzichè restare aperta.

grazie pe l'aiuto.


title: cancel=true

text:

Quale Funzione...?
CANCEL è un parametro di alcune specifiche Procedure Evento... che espongono il PArametro CANCEL... ma non tutte... e messo li così non serve a NULLA.

Quindi mostra la funzione di cui parli ma se è tua... credo tu abbia già capito che puoi toglierlo e ripensare a cosa devi fare...!!!

@Alex


title: cancel=true

text:

grazie Alex

non ho trovato il modo per far rimanere aperta la maschera
in caso di risposta "si".

ecco la funzione:

----------------inizio-------------

Public Function LCDiv(frm As Form) As Boolean

  Dim X As String

  X = ""

  X = IIf(Nz(frm!M_LuogoCaricoDiverso_1.Form!IndirizzoMagazzino, 0) = 0, ", Indirizzo", "") _
    & IIf(Nz(frm!M_LuogoCaricoDiverso_1.Form!CAPMagazzino, 0) = 0, ", C.A.P.", "") _
    & IIf(Nz(frm!M_LuogoCaricoDiverso_1.Form!CittàMagazzino, 0) = 0, ", Città", "")

  If (X) <> "" Then
    Dim Risposta As Variant
    Risposta = vbYes

    Risposta = MsgBox("Attenzione manca:" & Mid(X, 2) & ", vuoi inserire i dati mancanti?.", vbYesNo, "Attenzione!")

    If (Risposta = vbYes) Then

      If Nz(frm!M_LuogoCaricoDiverso_1.Form!IndirizzoMagazzino, 0) = 0 Then
        frm!M_LuogoCaricoDiverso_1.Form!IndirizzoMagazzino.SetFocus

      ElseIf Nz(frm!M_LuogoCaricoDiverso_1.Form!CAPMagazzino, 0) = 0 Then
        frm!M_LuogoCaricoDiverso_1.Form!CAPMagazzino.SetFocus

      ElseIf Nz(frm!M_LuogoCaricoDiverso_1.Form!CittàMagazzino, 0) = 0 Then
        frm!M_LuogoCaricoDiverso_1.Form!CittàMagazzino.SetFocus

      End If

    End If

  End If

End Function
----------------fine-------------


title: cancel=true

text:
Franco... con te serve molta pazienza...

Evento UNLOAD di Form.

Fai questa prova con una mascherina semplice:

Option Compare Database
Option Explicit

Private Sub Form_Unload(Cancel As Integer)
   If msgbox("Chiudo..?",VbYesNo)=vbno then
      Cancel=True
   End it
End Sub

@Alex


title: cancel=true

text:

graze Alex

funziona;
cioe' con "si" si chiude
con "no" resta aperta


title: cancel=true

text:

grazie Alex
anche se cosi' non è il massimo come risultato


title: cancel=true

text:

ho risolto cosi

ho aggiunto questa riga nella funzione
 If (Risposta = vbYes) Then
      LCDiv = True

poi su scaricamento:

If LCDiv(Me) = True Then
  Cancel = True
  Exit Sub

End If


title: cancel=true

text:

ciao Alex

quale delle due è meglio usare

1-Public Function LCDiv(frm As Form)
2-Public Function LCDiv(frm As Form) as boolean

perchè con entrambe funziona


title: cancel=true

text:

Nessuna delle 2...
Dichiara una Variabile a livello di Maschera ed usa quella, e smettila di creare Funzioni anche solo per fare una virgola.

@Alex


title: cancel=true

author: Bruno Campanini

text:
francode...@gmail.com
 formulated the question :

> quale delle due è meglio usare
>
> 1-Public Function LCDiv(frm As Form)
> 2-Public Function LCDiv(frm As Form) as boolean
>
> perchè con entrambe funziona

Quello che hai mostrato è una Sub che chiami
illegittimamente Function.

Una Function esegue qualche operazione e ritorna
un valore che può essere Boolean, Long, etc.
La tua non ritorna niente quindi puoi risparmiarti
As Boolean e simili.

Più correttamente dovresti chiamarla
Public Sub LCDiv (frm AS Form).

È strano come Access sia a volte esasperatamente
puntiglioso nell'esposizione dei propri costrutti
sintattici, altre volte invece sia eccessivamente
permissivo.

Bruno


title: cancel=true

author: Alfio

text:
> ....anche solo per fare una virgola.
>
> @Alex

Buona questa.

Alfio


title: cancel=true

text:

grazie Bruno


title: cancel=true

text:

grazie Alex


title: cancel=true

text:
Il giorno sabato 19 marzo 2016 20:24:20 UTC+1, Bruno Campanini ha scritto:

modificando in
Public Sub LCDiv (frm AS Form)

per richiamarla come devo fare?
perche' cosi ho errore di compilazione,
If LCDiv(Me) = True Then
  Cancel = True
  Exit Sub

End If

in piu'anche nella Sub stessa, in questo punto
ho errore di compilazione, argomento non facoltativo: "LCDiv = True"

grazie


title: cancel=true

text:
francode...@gmail.com
 laid this down on his screen :

Una Sub la chiami come una Function, cioè
LCDiv(...), solo che una Sub non restituisce nulla,
quindi If LCDiv() = ... è sbagliato.

Ma avevi scritto:
========================
quale delle due è meglio usare

1-Public Function LCDiv(frm As Form)
2-Public Function LCDiv(frm As Form) as boolean

perchè con entrambe funziona
========================
Quindi il problema corrente era risolto.
Tienti le elucubrazioni teoriche per le
prossime circostanze.

Bruno


title: cancel=true

text:

Ciao Bruno
però con queste modifiche

Public Function DDiv(frm As Form) As Boolean
................
 If (Risposta = vbYes) Then
  --->LCDiv = True

è da considerarsi una funzione,
giusto?


title: [O/T] Aruba Drive Professional - esperienze dirette?

author: RobertoA

text:
Scusate per l'ot ma non saprei dove altro postare la richiesta e sono
fiducioso del fatto che qualcuno abbia gia' provato il sistema per il
quale sto cercando informazioni

Sto vedendo un sistema/gestore che consenta di avere/fornire
- spazio su disco privato e spazio condiviso tra piu' utenti
- email
- calendario condiviso
- strumenti tipo office almeno spreadsheet e wordpocessor

Alla fine del primo giro di informazioni, i papabili sono rimasti
- Google (esterno)
- Aruba  (esterno)
- nas Synology (interno)

Il primo e' sicuramente uno tra i leader nel settore per offerta
servizi, e purtroppo anche il leader come prezzi mi pare, perche' con
offerte che spaziano dai 5-6 ai 10-12 euro/mese/utente, se devi servire
una trentina di utenti ti tocca sborsare qualche migliaio di euro/anno

Il secondo con le sue offerte di email illimitate e spazio illimitato +
Drive, sembra offrire un servizio simile a Google, almeno per le
componenti essenziali (email, spazio disco, calendar, office)

Il terzo e' sicuramente la strada piu' economica, ma bisogna smanettare
un po' per attivare dei servizi simili, forse un po' piu' spartani, a
quelli essenziali descritti sopra (email, spazio disco, calendar,
office) e pure seguirlo come manutenzione, fermi macchina, ecc..

La domanda e':  qualcuno di voi si affida ad Aruba per il servizio Drive
e puo' darmi una sua opinione delle funzionalita' Office incluse in
questo servizio?

Altre idee/esperienze per fornire ad un gruppo di lavoro i servizi sopra
descritti (email, spazio disco, calendar, office) con buona sicurezza
nel trattamento dati e gestore affidabile?
Alternative tutto in casa (tipo NextCloud o roba simile)?


text:

Come mai non hai messo nell'elenco microsoft 365?
ha tutto quello che dici che ti serve.
riguardo ai costi, mi pare strano che una ditta che ha 30 impiegati  si
faccia problemi a spendere 12 euro al mese per ognuno per dargli
strumenti di lavoro.

Aruba drive dopo il primo anno costa il doppio..e l'unico piano valido è
quello drive professional. Quindi 24 euro utente mese.  In più almeno io
non ho capito cosa intendano con "office"..se "microsoft office" o una
loro app online. Inoltre non si capisce cosa intendano con il limite a
10 utenti.

google una sicurezza.

NAS: lo prenderei in considerazione solo per uso intranet e solo se
avessi gia un pacchetto office per ogni utente

BFS


text:

Si certo, ho scritto 'alla fine del primo giro' di informazioniOra siamo
nel secondo giro  :)  e quindi inseriamo a pieno titolo pure i
servizi/programmi di mamma Microsoft
Che conosciamo bene e questo e' sicuramente un punto a suo favore
Resta un prezzo di circa 10-12 euro/mese/utente, allineato grossomodo ai
programmi/servizi Google, il che invita a verificare se esiste qualcosa
di simile a prezzo milliore


text:
> Aruba drive dopo il primo anno costa il doppio..e l'unico piano valido è
> quello drive professional. Quindi 24 euro utente mese.  In più almeno io
> non ho capito cosa intendano con "office"..se "microsoft office" o una
> loro app online. Inoltre non si capisce cosa intendano con il limite a
> 10 utenti.

Questo del costo di 24 euro/utente/mese  indove l'e' che l'hai letto?
Io leggo un 300euro/anno, su 30 utente sono circa 10 euro/utente/ANNO.
grossomodo un decimo dei piani offerti da Google o Microsoft
Si parlavo anch'io della versione Aruba Drive Professional, mi sembra
l'unica che consente la condivisione tra alcuni utenti dello spazio
disco fornito


text:

qui

https://i.imgur.com/VMSRYAU.png

BFS


text:
Il 21/11/2023 12:15, RobertoA ha scritto:
>

scusa hai ragione
dal secondo anno saranno 300.00 + iva per 30 utenze


text:

Per i temerari che volessero provarlo, col BlackFriday la versione Aruba
Drive Professional la danno a 60 euro/anno (spazio drive, app varie e 30
utenti) per chi ne avesse bisogno direi non male

Comunque, supponendo di non voler mettere su un sistema interno lan,
alla fine della fiera i due contendenti sono Google Gsuite (che adesso
si chiama Workspace) e Microsoft 365, costi attorno a 11-12
euro/mese/utente per entrambi

Da parte Microsoft ci sono le applicazioni anche desktop e, mi sembra,
una maggior diffusione a livello di plugin per vari programmi, ad
esempio per il centralino, per i vari crm

Lato Google mi pare siano meglio integrate le varie applicazioni l'una
con l'altra, da inserire appuntamento in calendario a inviare
comunicazione a lista email, a collegare documenti, a visualizzare
revisioni diverse, mi sembra meglio pensata


text:

visto che cmq la stragrande maggioranza degli utenti pc usa
word/excel/outlook direi che ti conviene andare su microsoft 365 cosi
hai tutto

la vedo dura far digerire le App di google all'utilizzatore medio.

BFS


title: inserire dati in un campo MEMO con RUNSQL e INSERT INTO

author: Iper

text:
Ciao,
sto cercando di aggiungere un record ad una tabella attraverso l'istruzione
RUNSQL di VBA.
In pratica eseguo un'istruzione INSERT INTO che va a prendere i dati da una
form già riempita e aggiunge il record alla tabella, ma il problema è che
uno dei campi della tabella è di tipo memo. Ora, se nella textbox della form
inserisco un frase piccola (<256 caratteri) tutto ok, ma se il testo è più
lungo access mi restituisce un errore di "operatore mancante" proprio mentre
tenta di "aggiungere" il contenuto della textbox in quel campo memo.
Purtroppo nella stragrande maggioranza dei casi avrò necessità di inserire
un testo molto più ampio di 255 caratteri, ma non so proprio come risolvere
questa grana.
Spero di essere stato chiaro, in caso contrario fatemelo sapere così proverò
a riformulare.
Grazie per l'attenzione
Iper


author: Lorenzo Coronati

text:
Scrisse "Iper" <
gpa_...@libero.it
>:
>sto cercando di aggiungere un record ad una tabella attraverso l'istruzione
>RUNSQL di VBA.
>
>In pratica eseguo un'istruzione INSERT INTO che va a prendere i dati da una
>form gią riempita e aggiunge il record alla tabella, ma il problema č che
>uno dei campi della tabella č di tipo memo.
Potresti appoggiare la form su una tabella temp, con tanto
di campo memo che poi non avrai problemi ad accodare.
Bai
--
Lorenzo Coronati
--
<<Io studio ing gestionale e dei non laureati
che mi sputano in faccia mi faccio beffe.>>
(Andrea "Mr Bad Guy", 10/07/2000)
--


title: leggere da smart card

text:
qualcuno si è cimentato nel leggere dati da una smart card?
nel dettaglio sfruttando winscard.dll?
mi perdo tra la marea di funzioni e parametri delle varie funzioni della dll

attualmente importo i dati dalla smartcard (tessera sanitaria)
appoggiandomi a un tool esterno che fa il lavoro sporco di leggerla e
salvare il contenuto in un txt che prendo in gestione, ma vorrei
svincolarmi da software/ocx esterni

grazie
BFS


title: leggere da smart card

text:

allora ho fatto quasi tutto
rilevo il lettore
rilevo se la carta è inserita o meno
navigo la carta fino a trovare i dati anagrafici
ottengo i dati anagrafici ma solo parzialmente, solo i primi 150 caratteri

il problema l'ho con questa funzione di WinScard.dll forse non ho
compreso qualche parametro

Private Declare Function SCardTransmit Lib "WinScard.dll" ( _
         ByVal hCard As Long, _
         ByRef pioSendRequest As SCARD_IO_REQUEST, _
         ByRef sendbuff As Byte, _
         ByVal SendBuffLen As Integer, _
         ByRef pioRecvRequest As SCARD_IO_REQUEST, _
         ByRef RecvBuff As Byte, _
         ByRef RecvBuffLen As Integer) As Long

il contenuto della tessera dovrei trovarmelo in RecvBuff che è un buffer
di 516 byte
ma nel buffer mi trovo solo 150 caratteri e il resto vuoto fino a
saturazione del buffer

anche se raddoppio la grandezza del buffer non cambia nulla, 150
caratteri e il resto vuoto

qualche idea?
BFS


title: leggere da smart card

text:
Immagino tu abbia verificato che il buffer passato sia adeguatamente predisposto con i Null prima di passarlo... ma magari un'occhio in più..

In questo Link trovi come chiedere all'api quanto vuole il buffer e poi lo dimensioni:

result = SCardListReaders(0, 0, 0, bufferSize)
readers = String$(bufferSize, Chr$(0))

Ovviamente poi lo passi...

Qui trovi un codice abbastanza esaustivo:

https://stackoverflow.com/questions/42756249/trying-to-understand-dll-returns-for-string-types

@Alex


title: leggere da smart card

text:

quella parte serve per reperire il nome del del lettore e non ho problemi.
in quel caso viene scritto su una stringa che ti confermo aver
inizializzato a null

il problema ce l'ho quando vado a leggere i dati del titolare della tessera
in pratica dal codice presente qui

https://www.iprogrammatori.it/forum-programmazione/visual-basic/problema-con-lettura-varie-smart-card-t23162.html

quello che ottengo a questo punto :

     Dim apdu(261) As Byte
     Dim recvbuf(258) As Byte
     Dim recvlen As Integer
     Dim iosendreq As SCARD_IO_REQUEST
     Dim iorecvreq As SCARD_IO_REQUEST

'....

  ' LEGGO I BINARY PROVENIENTI DALLA CARTA
     apdu(0) = &H0   'CLA
     apdu(1) = &HB0 'INS
     apdu(2) = &H0  'P1
     apdu(3) = &H0  'P2
     apdu(4) = &H96  'LC

     recvlen = 257

     iosendreq.dwprotocol = activeprotocol
     iosendreq.dbPciLength = Len(iosendreq)
     iorecvreq.dwprotocol = activeprotocol
     iorecvreq.dbPciLength = Len(iosendreq)

     retval = SCardTransmit(hCard, iosendreq, apdu(0), 5, iorecvreq,
recvbuf(0), recvlen)
     If (retval <> 0) Then
             MsgBox ("Errore n." & CStr(retval))
     End If

     risposta = ""

     For K = 0 To apdu(4) - 1: risposta = risposta + Chr(recvbuf(K)): Next K

la lunghezza del buffer la si imposta tramite apdu(4)

almeno da quello che leggo qui

http://www.di-srv.unisa.it/~ads/corso-security/www/CORSO-0102/eToken/architettura/panoramica_apdu.htm

essendo settato a esadecimale 96 ottengo appunto 150 caratteri
ma anche andando a variare quel

apdu(4) = &H96
esempio a
apdu(4) = &HC8  (200 caratteri)

il risultato non cambia

BFS


title: leggere da smart card

text:
Non avendo modo di provarlo fatico ad aiutarti..
Ora il link sotto non è vba ma immagino non ti sia difficile ricondurlo.
Da quanto vedo apdu(4) identifica il PRIMO dato ed apdu(5) il lenght...

https://blogs.sap.com/2014/05/01/communication-with-a-smart-card-from-powerbuilder/

@Alex


title: leggere da smart card

text:

ad ogni risposta del lettore negli ultimi due byte mi trovo 0x90 e 0x00
che mi indicano che non ci sono errori ne nel comando trasmesso ne nel
risultato tornato indietro

"La risposta dei microchip ad un comando è codificata in una Response
APDUcomposta da un corpo opzionale DATA seguito da due byte SW1 (Status
Word 1) e SW2 (Status Word2).
SW1 SW2 0x90 0x00 Comando eseguito con successo "

infatti se restringo la dimensione del buffer che passo come parametro
la stringa restituita è più corta mentre se l'aumento si riempie di
spazi bianchi

a questo punto ho il DUBBIO atroce che il resto dei dati anagrafici
siano in un'altra cartella del file sistem della smart card
ma putroppo non trovo da nessuna parte la descrizione del file sistem
della tessera sanitaria

Peccato, allo stato attuale riesco ad ottenere cognome, nome, codice
fiscale e data di nascita

BFS


title: leggere da smart card

text:
Mi fermo non potendo fare alcuna prova, ma, da come dici la procedura restituisce il valore corretto di avvenuta lettura, quindi proceduralmente stai facendo bene...

Non so se spulciando qualche link può uscire qualche altra idea o simili...

@Alex


title: Cambio password utente da programma

author: Lismax

text:
Ho impostato la sicurezza a livello utente.
Avendo ecluso qualsiasi menu di Access mi trovo nella necessità di dare
l'opportunità all'utente di cambiare la password da programma.
Ho utilizzato la seguente routine, presa da "Access-Apogeo -Mike Davis":
Private Sub cmdCambiaPassword_Click()
On Error  Resume Next
If CambiaPassword(txtNomeUtPWC.Value, txtVecchiaPassword.Value, _
    txtNuovaPassword.Value) Then
    MsgBox "La password è stata cambiata", 64
End If
End Sub
'........
Public Function CambiaPassword(strNomeUtente As String, _
    strVecchiaPassword As String, strNuovaPassword As String) As Boolean
On Error GoTo CambiaPasswordErr
Workspaces(0).Users(strNomeUtente).NewPassword strVecchiaPassword,
strNuovaPassword
CambiaPassword = True
Exit Function
CambiaPasswordErr:
    MsgBox Err & ":  " & Err.Description
    CambiaPassword = False
    Exit Function
End Function
All'evento on clik mi viene segnalato: "Errore 3265 elemento non trovato in
questo insieme"
Why ?


title: Cambio password utente da programma

text:
Scrisse "Lismax" <
lis...@tiscalinet.it
>:
>Public Function CambiaPassword(strNomeUtente As String, _
>    strVecchiaPassword As String, strNuovaPassword As String) As Boolean
>On Error GoTo CambiaPasswordErr
>Workspaces(0).Users(strNomeUtente).NewPassword strVecchiaPassword,
>strNuovaPassword
>CambiaPassword = True
>Exit Function
>CambiaPasswordErr:
>    MsgBox Err & ":  " & Err.Description
>    CambiaPassword = False
>    Exit Function
>End Function
>
>All'evento on clik mi viene segnalato: "Errore 3265 elemento non trovato in
>questo insieme"
Su quale riga?
BTW, prova a dichiarare esplicitamente la variabile user,
tipo set u as user, u=workspace(0).users(...), u.newpassword
--
Lorenzo Coronati
--
<<Ragazzi, sapete indicarmi una utility in
internet che sia in grado di recuperare le
password da un database access e da un system mdw?
intendevo, gratuita...>>
(Marco Tullio Bisoli, 27/04/2001)
--


title: Campo calcolato con iif...

author: Frankkk

text:
Ho un campo calcolato la cui sorgete è:
=([Quantità]*[Importo])-IIf([IdIva]="01";([Quantità]*[Importo])/1,2;([Quanti
tà]*[Importo]*([Iva]/100)))
Nel caso (parte vera) in cui l'Idiva sia 01 allora il conteggio è giusto,
nel caso in cui non lo sia (parte falsa) il conteggio (sottrazione) sballa.
Qualcuno sa il perchè ?
Grazie anticipatamente
Frankkk


title: Campo calcolato con iif...

author: Sib dal portatile

text:
"Frankkk" <
frank...@libero.it
> ha scritto nel messaggio
> Ho un campo calcolato la cui sorgete è:
>
=([Quantità]*[Importo])-IIf([IdIva]="01";([Quantità]*[Importo])/1,2;([Quanti
> tà]*[Importo]*([Iva]/100)))
> Nel caso (parte vera) in cui l'Idiva sia 01 allora il conteggio è giusto,
> nel caso in cui non lo sia (parte falsa) il conteggio (sottrazione)
sballa.
Prima di tutto vorrei sapere una cosa:
perche' usi questa IIf? non potevi semplicemente impostare al 20% il valore
di [iva] quando idiva=01?
Ad ogni modo, se hai formattato come percentuale il valore di [iva] allora
quando nel controllo ti compare:
20,00%
o simili significa che il valore memorizzato e' 0,2 quindi la divisione per
cento perde validita'.
Poi la tua formula, che evidentemente serve a scorporare l'iva da un totale
gia' ivato (almeno nel caso in cui la iif sia vera) risulta sbagliata nel
secondo caso, infatti se nel campo iva memorizzi appunto l'IVA da scorporare
devi sommare 1 (o 100 a seconda) all'iva e poi usare il risultato per
dividere il prodotto della quantita' per il totale e non moltiplicare per
l'iva.
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Campo calcolato con iif...

author: Roberto dal portatile

text:
"Frankkk" <
frank...@libero.it
> ha scritto nel messaggio
news:JxxO7.226397$sq5.10...@news.infostrada.it...
> Ho un campo calcolato la cui sorgete è:
Un campo?
Sembrerebbe che si tratti di un controllo e non di un campo.
>
=([Quantità]*[Importo])-IIf([IdIva]="01";([Quantità]*[Importo])/1,2;([Quanti
> tà]*[Importo]*([Iva]/100)))
> Nel caso (parte vera) in cui l'Idiva sia 01 allora il conteggio è giusto,
> nel caso in cui non lo sia (parte falsa) il conteggio (sottrazione)
sballa.
> Qualcuno sa il perchè ?
> Grazie anticipatamente
> Frankkk
Probabilmente dipende dal contenuto di [Iva]; cosa è e cosa contiene?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Access2003 Vs. Cartelle Pubbliche Exchange - Non posso collegarle

author: EmMeCi - Style

text:
Salve,
come da oggetto, stò cercando di collegarmi a delle cartelle pubbliche di
exchange per importare\aggiornare i dati Rubrica.
L'errore che ottengo è il seguente:
L'archivio MAPI "NomeArchivio" è presente ma non è disponibile nel profilo
corrente. E' possibile che si stia utilizzando un profilo configurato per
lavorare senza connessione a un server per connettersi a una cartella o a
una rubrica situata su un server. Impossibile collegare l'archivio.
(Pulsante OK)
Acciderbolina!!! Cosa faccio per collegarmi a tali rubriche?
Idee in merito?
Grazie e buona giornata a tutti!
--
**********
EmMeCi
**********
ICQ: 228-143-897


text:
[cut]
[aggiornamento]
Continuo a non riuscire nella mia *impresa* ma ...
1. A volte il sistema dopo che seleziono Exchange() mi permette di sfogliare
le cartelle pubbliche di rubrica per poi bloccarmi
2. A volte non mi permette di sfogliare niente
Comincio a disperarmi, cosa potrei tentare?
Nessuno ha avuto questo problema in passato?
Intanto torno su google, nel caso scoprissi qualcosa lo posto in conoscenza
sul NG.
Saluti!



title: Leggere una determinata riga di un campo

author: Roberto P.

text:
Mi hanno passato un DB in cui in un determinato campo di una tabella
vengono memorizzati dei dati su righe diverse...
Come posso riferirmi ad una determinata riga?
Mi spiego...io ad esempio devo leggere la stringa contenuta nella riga
2 del campo "Valori", come faccio?
Grazie


author: Alessandro Baraldi

text:
Se il campo(che ipotizzo MEMO o Text) ha come divisione righe
un vbcrlf allora puoi sfruttare la funzione SPLIT:
Dim varArr
varArr=Split(Me!NomeControllo,vbcrlf)
Msgbox "Il valore della 2° RIGA è : " & varArr(1)
Ciao
@Alex


title: Colore casella testo

text:
Salve a tutti,
premetto che non sono molto esperto:
Vorrei chelo sfondo di una casella di testo di una maschera, a seconda
del valore in essa presente, variasse da bianco a verde.
Praticamente andando al record successivo mi dovrebbe fare il
controllo e di conseguenza colorare lo sfondo.
La casella è bloccata (non ci posso scrivere) e prende i dati da una
tabella ...
è possibile fare ciò? ho cercato negli esempi del sito comune ed ho
trovato questo:
3.91 Modificare il colore in primo piano ...... che però funziona con
i controlli ma non con una textbox.
Grazie in anticipo a tutti


title: Colore casella testo

text:

Ovviamente, si potrebbe fare con la formattazione condizionale, ma
volevo sapere se è possibile farlo da VBA.
Grazie ancora


title: Colore casella testo

author: Marco Pizzamiglio

text:
federico...@gmail.com
 ha scritto:
> Salve a tutti,
> premetto che non sono molto esperto:
> Vorrei chelo sfondo di una casella di testo di una maschera, a seconda
> del valore in essa presente, variasse da bianco a verde.
> Praticamente andando al record successivo mi dovrebbe fare il
> controllo e di conseguenza colorare lo sfondo.
> La casella č bloccata (non ci posso scrivere) e prende i dati da una
> tabella ...
> č possibile fare ciň? ho cercato negli esempi del sito comune ed ho
> trovato questo:
> 3.91 Modificare il colore in primo piano ...... che perň funziona con
> i controlli ma non con una textbox.
> Grazie in anticipo a tutti
Se č una maschera singola bastano un paio di righe di VBA sull'evento
corrente della maschera (if .... then me.casella.backcolor=vbgreen), se č
continua puoi usare la formattazione condizionale, dal menů Formato (da
access 2000 in poi).
Ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Colore casella testo

author: IgnazioC

text:
Il 12/11/2007, Marco Pizzamiglio ha detto :
>
federico...@gmail.com
 ha scritto:
>
>> Salve a tutti,
>> premetto che non sono molto esperto:
>> Vorrei chelo sfondo di una casella di testo di una maschera, a seconda
>> del valore in essa presente, variasse da bianco a verde.
>> Praticamente andando al record successivo mi dovrebbe fare il
>> controllo e di conseguenza colorare lo sfondo.
>> La casella è bloccata (non ci posso scrivere) e prende i dati da una
>> tabella ...
>> è possibile fare ciò? ho cercato negli esempi del sito comune ed ho
>> trovato questo:
>> 3.91 Modificare il colore in primo piano ...... che però funziona con
>> i controlli ma non con una textbox.
>> Grazie in anticipo a tutti
>
>
> Se è una maschera singola bastano un paio di righe di VBA sull'evento
> corrente della maschera (if .... then me.casella.backcolor=vbgreen), se è
> continua puoi usare la formattazione condizionale, dal menù Formato (da
> access 2000 in poi).
> Ciao.
> -Marco-
oltre al metodo suggerito da marco puoi anche usare la formattazione
condizionale  da vba :D
guarda sulla guida la proprietà FormatConditions
da usare come me.miotesto.formatconditions.add
ciao
--
ignazioc


title: Relazioni tra tabelle di sistema

text:
Nella finestra delle relazioni di ogni db Access (anche vuoto)
compare una relazione, mai visualizzata prima d'oggi,
tra la tabella di sistema 'MSysAccessStorage' e se stessa.
'L'apparizione' di tale relazione SEMBRA essere avvenuta
dopo aver aperto il db 'Rptsmp' scaricato dal sito comune.
Qualcuno mi sa dire qualcosa in proposito (tipo come
disabilitarne la visualizzazione)?
TIA
---
leo_duca


title: Query

text:
Gentili Sig. questa query mi fa impazzire, dovrei filtrare solo obi > = 3
ore, ma non funziona.
Msgbox immettere volore parametro a

SELECT [PS >2008].Rps_Presidio, [PS >2008].Rps_Numero, [PS
 >2008].Rps_Data_arrivo, dbo_PS_OBI.PSO_Motivo, Medici.Tmo_Cognome,
dbo_PS_OBI.PSO_Data, GetElapsedTime([a]-[Pso_data]) AS z,
HoursAndMinutes([a]-[Pso_data]) AS zggg, CDate([Rps_Data_uscita] & " " &
[rps_ora_uscita]) AS A, DateDiff("h",[pso_data],[A]) AS Espr1,
Format([pso_data]-[a],"hh:nn:ss") AS x, TimeValue([x]) AS sa,
GetElapsedore([a]-[Pso_data]) AS y, TiempoTotal([a]-[Pso_data]) AS h,
TimeValue([rps_ora_uscita]) AS tt, Obi_ore([h]) AS 33, Eval([33]="OBI >= 3
Ore") AS zz
FROM Medici INNER JOIN ([PS >2008] INNER JOIN dbo_PS_OBI ON [PS
 >2008].Rps_Codice_Ricovero = dbo_PS_OBI.PSO_CodicePS) ON Medici.Cod = [PS
 >2008].Rps_Med_Dim
WHERE (((Format([pso_data]-[a],"hh:nn:ss")) Like
(Format([pso_data]-[a],"hh:nn:ss"))>=" 03*") AND
((dbo_PS_OBI.PSO_Annullato)=0))
ORDER BY [PS >2008].Rps_Numero;

ho provato ha passare queste funzioni nella query mi fa il calcolo del tempo
trascorso, ma quando metto il filtro mi dice immettere valore parametro a

Function TiempoTotal(intervalo As Variant) As String
Dim horas As Long, minutos As Long, segundos As Long

   horas = Int(CDbl(intervalo * 24))
   minutos = (Int(CDbl(intervalo * 1440))) Mod 60
   segundos = (Int(CDbl(intervalo * 86400))) Mod 60

   TiempoTotal = Format(horas, "00") & ":" _
      & Format(minutos, "00") & ":" _
      & Format(segundos, "00")

End Function

Function GetElapsedTime(interval)

 Dim totalhours As Long, totalminutes As Long, totalseconds As _
     Long
 Dim days As Long, hours As Long, minutes As Long, seconds As Long

 days = Int(CSng(interval))
 totalhours = Int(CSng(interval * 24))
 totalminutes = Int(CSng(interval * 1440))
 totalseconds = Int(CSng(interval * 86400))
 hours = totalhours Mod 24
 minutes = totalminutes Mod 60
 seconds = totalseconds Mod 60

 GetElapsedTime = days & " Days " & hours & " Hours " & minutes & _
 " Minutes " & seconds & " Seconds "

 End Function

Dove sbaglio?

Grazie anticipatamente, Danny


title: Query

author: Pablitomf

text:
> Grazie anticipatamente, Danny

io leggo nella query sia un "[a]" che un "As A"... che roba e' ?...

--
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.

TheSpaceCowboy :
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12


title: Query

text:
la query funziona, mi da errore solo quando inserisco il filtro per le ore
[a]  è un alias , ho concatenato un campo data e un campo ora di formato
testo  convertendolo con cdate
(CDate([Rps_Data_uscita] & " " & [rps_ora_uscita]) AS A

quando inserisco il filtro
WHERE (((Format([pso_data]-[a],"hh:nn:ss")) Like
(Format([pso_data]-[a],"hh:nn:ss"))>=" 03*")
mi da errore
Immettere volore parametro a
 grazie anticipatamente per il tempo dedicotomi.

"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201210251...@mynewsgate.net...



title: Query

text:
D.M <
dmac...@libero.it
> ha scritto:

> la query funziona, mi da errore solo quando inserisco il filtro per le ore
> [a]  ï¿œ un alias , ho concatenato un campo data e un campo ora di formato
> testo  convertendolo con cdate
> (CDate([Rps_Data_uscita] & " " & [rps_ora_uscita]) AS A
>
> quando inserisco il filtro
> WHERE (((Format([pso_data]-[a],"hh:nn:ss")) Like
> (Format([pso_data]-[a],"hh:nn:ss"))>=" 03*")
> mi da errore
> Immettere volore parametro a
>  grazie anticipatamente per il tempo dedicotomi.

per cui lui non riconosce [a]... e se provi a mettere al posto di [a],
(CDate([Rps_Data_uscita] & " " & [rps_ora_uscita]) ???

ovvero

WHERE (((Format([pso_data]-(CDate([Rps_Data_uscita] & " " &
[rps_ora_uscita]),"hh:nn:ss")) Like
(Format([pso_data]-(CDate([Rps_Data_uscita] & " " &
[rps_ora_uscita]),"hh:nn:ss"))>=" 03*")

??? che succede?



title: Query

text:
Grazie ok funziona tutto
Grazie Grazie Grazie

"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201210261...@mynewsgate.net...
> D.M <
dmac...@libero.it
> ha scritto:
>
>> la query funziona, mi da errore solo quando inserisco il filtro per le
>> ore
>> [a]  � un alias , ho concatenato un campo data e un campo ora di formato



title: Bug A2007?? (modifica origine dati maschera, con creazione guidata  Query)

text:
Succede solo a me, che poi non si modifica niente e mi ritrovo
l'origine precedente??
Mi spiego:
1) vado a modificare l'origine dati di una maschera da tabella a query
(per intenderci cliccando sui "..." per la creazione guidata query)
2) Non salvo una nuova query con nome, ma gli do semplicemente l'OK
per aggiornare le proprietà della maschera ( in pratica per trovarmi
l'SQL come origine dati)
3) rivado nelle proprietà e mi ritrovo che in realtà non salva una
cippa e mi ritrovo l'origine dati precedente (per cui ormai per
risolvere ho preso l'abitudine di copiare l'SQL prima di chiudere e
poi incollarlo nell'origine dati)
Stessa cosa se ho già dell'SQL e lo modifico...
Quando mi dilettavo con A03 invece funzionava..., sniff.  Bug di
A2007??
Grazie, grazie.
F.


author: giorgio rancati

text:
<
al...@libero.it
> ha scritto nel messaggio
news:f0858510-1ac1-43c2...@m3g2000hsc.googlegroups.com...
>Succede solo a me, che poi non si modifica niente e mi ritrovo
>l'origine precedente??
[CUT]
no, succede a tutti se si chiude la finestrella delle proprietą.
>Quando mi dilettavo con A03 invece funzionava..., sniff.  Bug di
>A2007??
direi di sģ
Ciao
--
Giorgio Rancati
[Office Access MVP]


text:
<
al...@libero.it
> wrote in message
news:f0858510-1ac1-43c2...@m3g2000hsc.googlegroups.com...




==============================================
Ti garantisco che il mio Access 2007-ENG al riguardo
funziona perfettamente, come hanno sempre funzionato
i suoi predecedessori.
Bruno


author: MA

text:

Io invece confermo lesperienza di Giorgio sulla versione ITA
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


text:
"Bruno Campanini" <
B...@gmail.com
> ha scritto nel messaggio
news:47d640ab$0$36440$4faf...@reader5.news.tin.it...
> Ti garantisco che il mio Access 2007-ENG al riguardo
> funziona perfettamente, come hanno sempre funzionato
> i suoi predecedessori.
si vede che hai una versione speciale :-)
leggi questo 3D
----
http://www.utteraccess.com/forums/showflat.php?Cat=&Number=1486856&page=0&view=&sb=5&o=&fpart=1&vc=1
----
lo ricordo bene perchè ho indicatio a Oliver Stohr gli step per riprodurre
il problema.



text:

> Cisa - Conferenza Italiana Sviluppatori Access- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Ci tenevo a sottolineare che non mi chiamo Giorgio, ma PincoPallino
(hihihii)..
F.


author: Bruno Campanini

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
news:47d65871$0$16029$5fc...@news.tiscali.it...
> si vede che hai una versione speciale :-)
> leggi questo 3D
> ----
>
http://www.utteraccess.com/forums/showflat.php?Cat=&Number=1486856&page=0&view=&sb=5&o=&fpart=1&vc=1
> ----
> lo ricordo bene perchè ho indicatio a Oliver Stohr gli step per riprodurre
> il problema.
Avrò una versione speciale, che vuoi che ti dica?!
Access 2007, file .accdb.
Creo una scheda con Record Source su una tabella, chiudo e salvo.
Riapro e dal Property Sheet (Record Source)
invoco (come dice  Access) il Query Buider, aggiusto la query,
chiudo, salvo, riapro e la scheda porta sul Record Source
l'istruzione SQL.
Questo avviene sia con file creato New in A2007 sia con file
A2003 aperto in A2007.
Bruno


text:
"Bruno Campanini" <
B...@gmail.com
> ha scritto nel messaggio
news:47d66837$0$36451$4faf...@reader5.news.tin.it...
>
> Avrò una versione speciale, che vuoi che ti dica?!
>
> Access 2007, file .accdb.
> Creo una scheda con Record Source su una tabella, chiudo e salvo.
> Riapro e dal Property Sheet (Record Source)
> invoco (come dice  Access) il Query Buider, aggiusto la query,
> chiudo, salvo, riapro e la scheda porta sul Record Source
> l'istruzione SQL.
ti sei dimenticato di chiudere la finestrella delle proprietà dopo aver
invocato il Query Buider e prima di chiuderlo per tornare alla maschera..
Probabilmente lavori con la finestrella delle proprietà aperta e bloccata
nella parte destra dello schermo, cosa che personalmente trovo scomoda.



text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
news:47d66a9e$0$16027$5fc...@news.tiscali.it...

Apro il file, creo una scheda basata su tabella, chiudo e salvo.
Riapro la scheda in modalità Design, attivo il Property Sheet
e da lì imposto la query in sostituzione della tabella.
Non chiudo il Query Builder.
Chiudo il Property Sheet, chiudo il Query Builder
confermando la variazione.
Chiudo la scheda confermando la variazione.
La riapro in modalità Design, attivo il Property Sheet
e verifico che nel Record Source vi sia un'istruzione SQL.
Verifica positiva!
Non ho bevuto, non lo faccio mai prima dei pasti!
Bruno


text:
"Bruno Campanini" <
B...@gmail.com
> ha scritto nel messaggio
news:47d66e6f$0$36441$4faf...@reader5.news.tin.it...
>
> Apro il file, creo una scheda basata su tabella, chiudo e salvo.
> Riapro la scheda in modalità Design, attivo il Property Sheet
> e da lì imposto la query in sostituzione della tabella.
> Non chiudo il Query Builder.
> Chiudo il Property Sheet, chiudo il Query Builder
> confermando la variazione.
> Chiudo la scheda confermando la variazione.
> La riapro in modalità Design, attivo il Property Sheet
> e verifico che nel Record Source vi sia un'istruzione SQL.
> Verifica positiva!
> Non ho bevuto, non lo faccio mai prima dei pasti!
allora è valida la mia prima ipotesi, hai una versione speciale
:-)



text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:47d672ea$0$16043$5fc...@news.tiscali.it...
qui un altro paio di riscontri.
----
2007 - Changes in Query Builder won't save
http://www.thescripts.com/forum/thread765135.html
Query Builder in forms record source
http://groups.google.it/group/microsoft.public.access.formscoding/browse_thread/thread/26acf9dca7d1d3b6/ce84f9720f7c1b55?hl=it&lnk=st&q=#ce84f9720f7c1b55
----
credo che con più tempo e pazienza se ne possano trovare molti altri.
Ciao



text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
news:47d679b3$0$21198$5fc...@news.tiscali.it...

Ribadisco quanto già precisato.
Uomo di poca fede...
Bruno


text:
"Bruno Campanini" <
B...@gmail.com
> wrote in message
news:47d681fd$0$36444$4faf...@reader5.news.tin.it...
> Ribadisco quanto già precisato.
> Uomo di poca fede...
>
> Bruno
Ma tu puoi verificare il bug in Access inglese
o solo in quello italiano?
Vado a porre il quesito sulla verifica del bug in
microsoft.public.access.
Bruno


text:
"Bruno Campanini" <
B...@gmail.com
> ha scritto nel messaggio
news:47d6849d$0$36444$4faf...@reader5.news.tin.it...
> "Bruno Campanini" <
B...@gmail.com
> wrote in message
> news:47d681fd$0$36444$4faf...@reader5.news.tin.it...
>
>> Ribadisco quanto già precisato.
>> Uomo di poca fede...
LOL
> Ma tu puoi verificare il bug in Access inglese
sì ho Access 2007 eng + Sp1 su WinXp eng + Sp2
> o solo in quello italiano?
pure, ho Office 2007 ultimate ita + Sp1 su Win Vista ultimate ita
Qui tutti possono provare il test drive che ha lo stesso comportamento.
http://office.microsoft.com/en-us/products/HA101687261033.aspx
E' una versione pre SP1 ma come detto sopra, anche con la SP1 ho lo stesso
comportamento
> Vado a porre il quesito sulla verifica del bug in
> microsoft.public.access.
sì, ho visto



title: somma di prodotti in controllo associato

author: Gianni Vba

text:
Ho la necessità di inserire all'interno di un controllo (text box) il totale
di
un preventivo. Ho creato con il generatore di espressioni la seguente riga
Somma([Quantità] * [Importo Unitario])
che va a finire in un controllo chiamato Totale.
Ora vorrei che questo risualtato vada a finire in automatico ed in tempo
reale
in un campo [Totale scontato] che è associato al campo totale scontato nella
tabella associata.
E' inutile ovviamente impostare la proprietà "predefinito".
Ho povato anche con l'evento "change" del controllo [totale] impostando
totale scontato = totale (o anche facendolo precedere con un totale
scontato.setfocus) ma nada de nada
Come faccio?
Grazie
  Gianni


author: Silvio Berruti

text:
"Gianni Vba" <
bitware...@libero.it
> ha scritto nel messaggio
news:jV6i8.6487$%d1.1...@twister2.libero.it...

Caro Gianni, non lo devi fare!
Nelle tabelle NON devono essere memorizzati valori che possono essere
calcolati, perché, in qualsiasi momento, potrai ricalcolarteli con una query
o da codice o in un controllo.
Memorizzare valori calcolati è contrario alle regole di creazione di un DB
relazionale e crea mal di pancia indesiderati.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


author: Roberto da casa

text:
"Gianni Vba" <
bitware...@libero.it
> ha scritto nel messaggio
news:jV6i8.6487$%d1.1...@twister2.libero.it...

Una delle regole fondamentali nei database relazionali come Access è quella
di non registrare mai in una tabella un campo calcolato.
Quindi, secondo me, ciò che devi fare è quello di eliminare il campo [Totale
scontato] dalla tabella associata, quindi il tuo problema sparisce insieme
al campo: ti ricalcolerai l'importo Totale scontato tutte le volte che ti
serve (in query, maschere o report).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: Emyr

text:


forse era  me.totalescontato=me.totale su evento getfocus o su evento
dopoaggiornamento di qualche campo..
non è chiaro quello che vuoi fare.. e poi non si deve quasi mai
registrare un campo calcolato su una tabella
>scontato.setfocus) ma nada de nada
>Come faccio?
>
>Grazie
>  Gianni
>
>
>
Saluti.
Emanuele.


text:
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
news:tDki8.10552$tC3.2...@twister1.libero.it...

Questo lo so benissimo. Il totale è calcolato dal preventivo. Il mio
interesse è farlo venire in automatico
su un controllo "totale scontato" che poi io potrò modificare per un'
eventuale sconto.
Sono 2 valori diversi: uno è il preventivo che risulta dal ricarico normale,
l'altro è l'importo
scontato. Il problema quindi rimane........
Bye
  Gianni


author: Roccia

text:
Il Fri, 8 Mar 2002 18:54:40 +0100, Gianni Vba oso' dichiarare:

QUesto va (quasi) bene, ma non devi metterlo nell'evento change di
Totale, ma nell'evento Afterupdate di  Quantita' e Importo unitario.
Comunque, come al solito, e' inutile salvare i campi calcolati: e'
meglio ricalcolarli al momento.
--
Cia'
"Roccia" Max De Poli <
rocc...@katamail.com
>


title: Help on line (+ info)

author: Giorgio Barbetta

text:
Ciao al NG,
mi è stato comissionato di implementare una guida on line sulla mia
applicazione (A2000).
Ho visitato il sito comune e ho scaricato il materiale a disposizione
(pochino ma importante).
Vorrei avere, per favore, maggiori dettagli ovvero se esistono fonti di
informazioni sulla rete che mi possano schiarire le idee in proposito.
Grazie
Giorgio Barbetta
barb...@gieffenet.it


title: Help on line (+ info)

author: Tappo

text:
"Giorgio Barbetta" <
gief...@tin.it
> ha scritto nel messaggio
news:fzy96.32$0c2...@twister2.tin.it...
> Ciao al NG,
> mi è stato comissionato di implementare una guida on line sulla mia
> applicazione (A2000).
> Ho visitato il sito comune e ho scaricato il materiale a disposizione
> (pochino ma importante).
> Vorrei avere, per favore, maggiori dettagli ovvero se esistono fonti di
> informazioni sulla rete che mi possano schiarire le idee in proposito.
> Grazie
se ti può servire
www.helpmagician.com
prego
ciao
>
> Giorgio Barbetta
>
barb...@gieffenet.it
>
>


title: Protezione accesso in access

author: Eugenio Maria

text:
Ho fatto un piccolo programma in access, e vorrei proteggerlo, solo dalle
manie di modifica di mio fratello, come fare per impedire la modifica delle
maschere, senza andare troppo a rompermi la testa???
grazie a tutti


title: Protezione accesso in access

author: inbario

text:
Strumenti>Protezione>Imposta password database
            Ciao
"Eugenio Maria" <
allo...@ikkes.com
> ha scritto nel messaggio
news:anp1kc$55i$1...@pluto.sm.dsi.unimi.it...



title: Protezione accesso in access

text:
"Eugenio Maria" <
allo...@ikkes.com
> ha scritto nel messaggio
news:anp1kc$55i$1...@pluto.sm.dsi.unimi.it...

Dal file MDB creati il file MDE: la struttura delle maschere di un file MDE
non può essere modificata.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Protezione accesso in access

author: alias

text:
>
> Dal file MDB creati il file MDE: la struttura delle maschere di un file
MDE
> non può essere modificata.
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
Scusa, ma come si crea un file MDE?
ciao, Gianfranco


title: Protezione accesso in access

text:
"alias" <
mai...@yahoo.it
> ha scritto nel messaggio
news:2HYr9.7401$TD1.2...@news2.tin.it...

Strumenti => Utilità database => Crea copia di file MDE...



title: Protezione accesso in access

text:
> > Scusa, ma come si crea un file MDE?
> > ciao, Gianfranco
>
> Strumenti => Utilità database => Crea copia di file MDE...
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
Grazie
Gianfranco


title: (OT) ma voi, scusate, vi incontrate mai ?

text: No, dico ... mi piacerebbe.


author: CIDI

text:
Il 01/04/2016 23:48,
radica...@gmail.com
 ha scritto:
> No, dico ... mi piacerebbe.
>
http://www.donkarl.com/it/

http://www.donkarl.com/it/CISA/Foto/CISA2/

http://www.accessgroup.it/cisa-2006

ciao

Daniele

--- news://
freenews.netfront.net/
 - complaints:
ne...@netfront.net
 ---


text:

Eh la Madonna ...


title: prelevare tutta la stringa a sinistra e a destra di un carattere "-"

author: tmtube

text:
esempio 1:
1-18
devo ottenere i numeri 1 e 18

esempio 1:
243-8
devo ottenere i numeri 243 e 8


author: Marco Pizzamiglio

text:
tmtube ha scritto:

Usi Instr() per vedere in che posizione è il '-' e poi Left$() e Mid$()
per
estrarre i due numeri.
Vedi l'help <F1> per la sintassi delle funzioni.
Ciao.
-Marco-

--

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


author: pfmarro

text:

INSTR() PER TROVARE

prova questa funzione

Function ESTRAI()
  Dim A As String
  A = "1-18"
  Debug.Print Mid(A, 1, InStr(1, A, "-") - 1)  ' rilascia 1
  Debug.Print Mid(A, InStr(1, A, "-") + 1)     ' rilascia 18

  A = "243-8"
  Debug.Print Mid(A, 1, InStr(1, A, "-") - 1)   ' rilascia 243
  Debug.Print Mid(A, InStr(1, A, "-") + 1)      ' rilascia 8

End Function


author: Karl Donaubauer

text:

Per tutti e due esempi 1:

Split(QuiLaStringaOVariabile, "-")(0)
Split(QuiLaStringaOVariabile, "-")(1)

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


text:

oppure

replace(Variabile_O_stringa,"-","") ' toglie dove c'e' il carattere "-"


text:
pfmarro wrote:
> Karl Donaubauer ha scritto:
>> tmtube wrote:
>>
>>> esempio 1:
>>> 1-18
>>> devo ottenere i numeri 1 e 18
>>
>>> esempio 1:
>>> 243-8
>>> devo ottenere i numeri 243 e 8
>>
>> Per tutti e due esempi 1:
>>
>> Split(QuiLaStringaOVariabile, "-")(0)
>> Split(QuiLaStringaOVariabile, "-")(1)
> ...
> oppure
>
> replace(Variabile_O_stringa,"-","") ' toglie dove c'e' il carattere
> "-"

?

A cosa serve togliere il trattino?



text:
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it

esatto non devo toglierlo devo leggere a sinistra e a destra
grazie a tutti per i consigli.


title: datediff

author: Frankkk

text:
ho una funzione in un report....:
DataElezioni = InputBox("Inserire la data delle elezioni", "Inserimento data
elezioni", , 0, 0)
Me.Filter = "(" & _
"DateDiff(""yyyy"",[Dataiscrizione],DataElezioni) " & _
"+ (Format(DataElezioni,""mmdd"")< Format([Dataiscrizione],""mmdd""))" & _
") >= 10"
quando apro il report oltre all'input richiesto (DataElezioni) mi chiede
come parametro nuovamente l'immissione del valore di DataElezioni.
Come devo indicare nell'espressione il valore dell'input box DataElezioni ?
Tra apici, virgolette, entrambi ????
Grazie


title: datediff

author: Claudio

text:
Wed, 20 Nov 2002 20:47:02 +0100, Frankkk ha scritto ben 16 righe per
dire:
>DataElezioni = InputBox("Inserire la data delle elezioni", "Inserimento data
>elezioni", , 0, 0)
>Me.Filter = "(" & _
>"DateDiff(""yyyy"",[Dataiscrizione],DataElezioni) " & _
>"+ (Format(DataElezioni,""mmdd"")< Format([Dataiscrizione],""mmdd""))" & _
>") >= 10"
Dunque...
innanzitutto ti conviene dichiarare la variabile DataElezioni come date:
Dim DataElezioni As Date
Dopodiché la tua variabile DataElezioni, nel filtro, si trova
all'interno della stringa, quindi il report non č in grado di valutarla
e te la chiede. Devi estrarla dalla stringa, per esempio cosě:
Me.Filter = "(" & _
"DateDiff(""yyyy"",[Data],#" & DataElezioni & "#) " & _
"+(Format(#" & DataElezioni & "#,""mmdd"")<Format([Data],""mmdd""))" & _
") >= 10"
Spero di non essermi incasinato con parentesi, apici e cancelletti.
Per finire immagino tu sappia che poi devi attivare il filtro con
Me.FilterOn = True
Ciao. Claudio.


title: datediff

text:
"Claudio" <c...@NOSPAMandCOsupereva.it> ha scritto nel messaggio
news:7gaotucdatsqqmbgb...@4ax.com...

Semplicemente grazie per la tua seconda preziosa collaborazione !
Frankkk


title: Casella di riepilogo su report

text:
Ho una casella di riepilogo con in "origine controllo" una query.
Questa casella di riepilogo si deve aggiornare per ogni record del
report ma non lo fa.
Il risultato è sempre lo stesso.
Come faccio a passare nella query il valore del id corrente?
Il campo id lo stampo nel report...


title: Casella di riepilogo su report

author: MA

text:

Hai messo la casella di riepilogo(non ti chiedo il perchè, nonostante non sia assolutamente daccordo)
ma non l'hai associata
Origine controllo
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: Casella di riepilogo su report

text:

Sono alle prime armi perdonami, ma anche associandola al campo id vedo
sempre gli stessi risultati...


title: Selezione ComboBox predefinita

author: conrad

text:
Salve a tutti!

non ricordo come posso fare per aver visualizzato,
per default, il primo record effettuato in una query con casella
combinata.

Mi ricordo vagamente sull'impostazione "valore
predefinito" ItemSelectded(0) o qualcosa del genere.

Grazie!


title: Selezione ComboBox predefinita

author: Roberto dal portatile

text:
"conrad" <
con...@libero.it
>
  ha scritto nel messaggio
news:000c01c1259d$82c31240$0100a8c0@markred
...

Per prima cosa non inviare messaggi al NG in
  HTML.

Se la casella combinata si chiama Pippo, nel
  Valore predefinito di Pippo prova a scrivere:

= Pippo.ItemData(0)

--
Roberto

---------------------------------------------
il Sito Comune di
  it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: aprire mostrare record da sql di selezione

author: pfm

text:
salve

se ho una stringa sql (di tipo selezione)

per utilizzare
docmd.openquery x

sono obbligato a creare una query ?

non c'e' un modo per visualizzare i record

Grazie


author: Silvio

text:
Dopo dura riflessione, pfm ha scritto :

Ciao pfm,

credo che l'unico modo sia di creare una Query e poi cancellarla.
Io uso le funzioni che trovi sotto.
Si utilizzano così:

    Dim StringaSQL As String
    StringaSQL = "SELECT .....;"

    Call ApriQueryTemporanea("MiaQueryTemp", StringaSQL)

Alla fine (magari in chiusura maschera) usi:

    Call EliminaQuery("MiaQueryTemp")

Queste sono le 3 routine:

Public Sub ApriQueryTemporanea(NomeQuery As String, StringaSQL As
String)
    'Creo una query Temporanea
    'Dopo dovrai cancellarla con la Sub EliminaQuery (vedi sotto)
    'Funzioni prese da qui:

'
http://stackoverflow.com/questions/17328092/how-to-display-access-query-results-without-having-to-create-temporary-query

    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef

    Set db = CurrentDb
    If Not QueryExists(NomeQuery) Then
        Set qdf = db.CreateQueryDef(NomeQuery)
    Else
        Set qdf = db.QueryDefs(NomeQuery)
    End If
    qdf.SQL = StringaSQL
    Set qdf = Nothing
    Set db = Nothing

    DoCmd.OpenQuery NomeQuery

End Sub

Public Sub EliminaQuery(NomeQuery As String)
    'se ho creato la query temporanea, ora la cancello
    If QueryExists(NomeQuery) Then
        DoCmd.DeleteObject acQuery, NomeQuery
    End If
End Sub

Public Function QueryExists(ByVal pName As String) As Boolean
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim blnReturn As Boolean
    Dim strMsg As String

On Error GoTo ErrorHandler

    blnReturn = False ' make it explicit
    Set db = CurrentDb
    Set qdf = db.QueryDefs(pName)
    blnReturn = True

ExitHere:
    Set qdf = Nothing
    Set db = Nothing
    QueryExists = blnReturn
    Exit Function

ErrorHandler:
    Select Case Err.Number
    Case 3265 ' Item not found in this collection.
    Case Else
        strMsg = "Error " & Err.Number & " (" & Err.Description _
            & ") in procedure QueryExists"
        MsgBox strMsg
    End Select
    GoTo ExitHere

End Function


author: Bruno Campanini

text:
After serious thinking pfm wrote :

No, non c'è?

Questa la crea:
============================
Private Sub Command1_Click()
Dim qDef As QueryDef, SQL As String
SQL = "SELECT Assenze.* FROM Assenze;"
On Error Resume Next
DoCmd.DeleteObject acQuery, "QueryName"
On Error GoTo 0
Set qDef = CurrentDb.CreateQueryDef("QueryName", SQL)
DoCmd.OpenQuery "QueryName"
End Sub
=============================

Questa la distrugge:
=============================
On Error Resume Next
DoCmd.DeleteObject acQuery, "QueryName"
On Error GoTo 0
=============================

Bruno


author: Roberto Fabbri

text:

immagino tu crei una SELECT per visualizzare dei record in una maschera. Se così fosse non hai bisogno di crearla. Basta la stringa SQL


text:

ringrazio ma purtroppo non sempre ho la possibilità di utilizzare una maschera, perche' precedo un filtro dinamico che l'utente utilizza per definire i record da vedere, ma anche i campi e quindi preferisco utilizzare solo docmd.openquery