title: ADO connection ad Access

text:
Più la leggo e più mi piace, ma ho un "piccolo" problema.
La routine che dovrei eseguire ha bisogno di un recordset come parametro.
Con <Access.Application>.run <Routine>, parametro la cosa - ovviamente -
funziona.
Con la tua soluzione, come posso passargli il parametro?
Marco
"davide" <
cdsy...@inwind.it
> ha scritto nel messaggio
news:glp4g0$fan$1...@adenine.netfront.net...



title: ADO connection ad Access

text:
L'unica cosa che mi viene in mente č quella di passare la stringa SQL che
genera il recordset al BE implementando un campo nel record della tabella
di transito. Ovviamente il BE deve avere tutte le tabelle o i collegamenti
ad esse, a cui la stringa SQL fa riferimento. A questo punto il parametro
della Routine non č piů un recordset ma una stringa e il recordset lo
genera al suo interno successivamente.
Spero di aver capito e di esserti utile. Ciao
Marco ha scritto:
> Piů la leggo e piů mi piace, ma ho un "piccolo" problema.
> La routine che dovrei eseguire ha bisogno di un recordset come parametro.
> Con <Access.Application>.run <Routine>, parametro la cosa - ovviamente -
> funziona.
> Con la tua soluzione, come posso passargli il parametro?
> Marco
> "davide" <
cdsy...@inwind.it
> ha scritto nel messaggio
> news:glp4g0$fan$1...@adenine.netfront.net...
> > Marco ha scritto:
> >> Buona serata a tutto il NG
> >>
> >> Dunque: ho un'applicazione Access doverosamente divisa in FE e BE. Anzi,
> >> per essere piů precisi, divisa in un FE e diversi BE.
> >> Questi BE risiedono in un altro PC, collegato - ovviamente . in rete.
> >> Su uno di questi BE c'č una routine che avrei bisogno di lanciare dal FE
> >> ma, qui sta il bello, vorrei che girasse sul PC dove fisicamente risiede
> >> il BE.
> >> Per ora mi sono limitato ad aprire una nuova istanza Access e lanciare la
> >> routine, ma questa naturalmente gira sullo stesso PC del FE.
> >> Ho pensato che con ADODB.Connection, se sapessi usarla, risolverei il
> >> problema, ma non sono sicuro.
> >> La domanda č:
> >> Potrei? Se si, come?
> >> O c'č un'altra soluzione?
> >>
> >> Grazie in anticipo a tutti
> >>
> >> Marco
> > Ciao, una cosa simile l'ho risolta in modo rustico ma funzionale, per me.
> > Nel BE ho creato un form  minuscolo con il timer impostato su pochissimi
> > ms, e poi una tab di transito di un solo record in cui metto un flag di
> > attivazione che viene gestito da FE. In base al timer l'evento ontimer se
> > trova il flag true esegue la routine e passa il flag nuovamente false
> > attendendo una nuova attivazione.
> >
> > Davide
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: ADO connection ad Access

text:
L'unica cosa che mi viene in mente č quella di passare la stringa SQL che
genera il recordset al BE implementando un campo nel record della tabella
di transito. Ovviamente il BE deve avere tutte le tabelle o i collegamenti
ad esse, a cui la stringa SQL fa riferimento. A questo punto il parametro
della Routine non č piů un recordset ma una stringa e il recordset lo
genera al suo interno successivamente.
Spero di aver capito e di esserti utile. Ciao
Marco ha scritto:
> Piů la leggo e piů mi piace, ma ho un "piccolo" problema.
> La routine che dovrei eseguire ha bisogno di un recordset come parametro.
> Con <Access.Application>.run <Routine>, parametro la cosa - ovviamente -
> funziona.
> Con la tua soluzione, come posso passargli il parametro?
> Marco
> "davide" <
cdsy...@inwind.it
> ha scritto nel messaggio
> news:glp4g0$fan$1...@adenine.netfront.net...
> > Marco ha scritto:
> >> Buona serata a tutto il NG
> >>
> >> Dunque: ho un'applicazione Access doverosamente divisa in FE e BE. Anzi,
> >> per essere piů precisi, divisa in un FE e diversi BE.
> >> Questi BE risiedono in un altro PC, collegato - ovviamente . in rete.
> >> Su uno di questi BE c'č una routine che avrei bisogno di lanciare dal FE
> >> ma, qui sta il bello, vorrei che girasse sul PC dove fisicamente risiede
> >> il BE.
> >> Per ora mi sono limitato ad aprire una nuova istanza Access e lanciare la
> >> routine, ma questa naturalmente gira sullo stesso PC del FE.
> >> Ho pensato che con ADODB.Connection, se sapessi usarla, risolverei il
> >> problema, ma non sono sicuro.
> >> La domanda č:
> >> Potrei? Se si, come?
> >> O c'č un'altra soluzione?
> >>
> >> Grazie in anticipo a tutti
> >>
> >> Marco
> > Ciao, una cosa simile l'ho risolta in modo rustico ma funzionale, per me.
> > Nel BE ho creato un form  minuscolo con il timer impostato su pochissimi
> > ms, e poi una tab di transito di un solo record in cui metto un flag di
> > attivazione che viene gestito da FE. In base al timer l'evento ontimer se
> > trova il flag true esegue la routine e passa il flag nuovamente false
> > attendendo una nuova attivazione.
> >
> > Davide



title: ADO connection ad Access

author: Marco

text:
In realtà ho trasformato la SELCT in una SELECT INTO e ho creato una tabella
nella BE. La SELECT successiva (in OnTimer) genera il recordset che viene
passato alla routine.
Funziona.
Grazie Mille.
Marco
"Davide2" <
cdsy...@inwind.it
> ha scritto nel messaggio
news:gluv8f$ddb$1...@news.newsland.it...
> L'unica cosa che mi viene in mente è quella di passare la stringa SQL che
> genera il recordset al BE implementando un campo nel record della tabella
> di transito. Ovviamente il BE deve avere tutte le tabelle o i collegamenti
> ad esse, a cui la stringa SQL fa riferimento. A questo punto il parametro
> della Routine non è più un recordset ma una stringa e il recordset lo
> genera al suo interno successivamente.
>
> Spero di aver capito e di esserti utile. Ciao
>
>
>
>
> Marco ha scritto:
>
>> Più la leggo e più mi piace, ma ho un "piccolo" problema.
>> La routine che dovrei eseguire ha bisogno di un recordset come parametro.
>> Con <Access.Application>.run <Routine>, parametro la cosa - ovviamente -
>> funziona.
>> Con la tua soluzione, come posso passargli il parametro?
>> Marco
>
>> "davide" <
cdsy...@inwind.it
> ha scritto nel messaggio
>> news:glp4g0$fan$1...@adenine.netfront.net...
>> > Marco ha scritto:
>> >> Buona serata a tutto il NG
>> >>
>> >> Dunque: ho un'applicazione Access doverosamente divisa in FE e BE.
>> >> Anzi,
>> >> per essere più precisi, divisa in un FE e diversi BE.
>> >> Questi BE risiedono in un altro PC, collegato - ovviamente . in rete.
>> >> Su uno di questi BE c'è una routine che avrei bisogno di lanciare dal
>> >> FE
>> >> ma, qui sta il bello, vorrei che girasse sul PC dove fisicamente
>> >> risiede
>> >> il BE.
>> >> Per ora mi sono limitato ad aprire una nuova istanza Access e lanciare
>> >> la
>> >> routine, ma questa naturalmente gira sullo stesso PC del FE.
>> >> Ho pensato che con ADODB.Connection, se sapessi usarla, risolverei il
>> >> problema, ma non sono sicuro.
>> >> La domanda è:
>> >> Potrei? Se si, come?
>> >> O c'è un'altra soluzione?



title: [Annuncio] le news di mamma Microsoft

author: Carlo Costarella

text:
Ciao a tutti.
Anche Microsoft ha il sito delle news in italianosu Access.
Concorrenza? Più sicuro perchè moderato? Possibilità di interventi diretti
di Microsoft?
Staremo a vedere.
microsoft.public.it.office.access
Che ne pensate? Ci disturba?
Hei! Luciano, ti decidi ad aggiornare il sito comune?
Ciao, Carlo


title: [Annuncio] le news di mamma Microsoft

author: Karl Donaubauer

text:
Carlo Costarella ha scritto:
> Anche Microsoft ha il sito delle news in italianosu Access.
Si, ma la settimana prossima quando ho guardato non era quasi
niente traffico.
MS come standard ha delle NG in ognuno lingua importante.
Così abbiamo un "dualismo" MS : Usenet p.e. in inglese e tedesco.
Hanno un simile input, gente ecc. Qualche volta solo disturba
perché ci sono i multiposts, si "debbe" guardare tutti e due ecc.
> Concorrenza? Più sicuro perchè moderato?
No, i NG di MS con "public" nel nome non sono moderato.
> Possibilità di interventi diretti di Microsoft?
Non conosco le possibilità o intenzioni di MS Italia.
Ma per lo più MS non ha il personale di leggere o scrivere nei
NG public con qualche eccezione (soppratutto nei NG inglesi).
Questo è uno dei motivi perché MS ha il programma MVP.
> microsoft.public.it.office.access...
--
cu
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: [Annuncio] le news di mamma Microsoft

text:
qualcuno che non conosco ha scritto:
> ...la settimana prossima quando ho guardato...
aiaiai, il mio italiano...
vaneggiamento = Replace(vaneggiamento, "prossima", "scorsa")


title: [Annuncio] le news di mamma Microsoft

author: warp

text:
Carlo Costarella ha scritto nel messaggio ...
>Ciao a tutti.
>Anche Microsoft ha il sito delle news in italianosu Access.
>Concorrenza? Più sicuro perchè moderato?
Possibilità di interventi diretti
>di Microsoft?
Sarebbe peggio, il personale di M$$ Italia ha la compentenza di mia nonna su Office, VB, Windows e
quant'altro :-)


title: [Annuncio] le news di mamma Microsoft

author: Roberto da casa

text:
"warp" <
war...@libero.it
> ha scritto nel messaggio
news:all9dh$523$1...@fe2.cs.interbusiness.it...

Comunque so per certo che la Microsoft in Italia, nella persona del suo MVP
Lead, sta cercando collaboratori per gestire meglio il supporto su Internet,
nei NewsGroup in particolare.
Quanto ad eventuale concorrenza, dipende solo che da noi.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: [Annuncio] le news di mamma Microsoft

author: Antonio Biso

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:K4tf9.9579$6O4.1...@twister1.libero.it...
>
> > Sarebbe peggio, il personale di M$$ Italia ha la compentenza di mia
nonna
> su Office, VB, Windows e
> > quant'altro :-)
>
> Comunque so per certo che la Microsoft in Italia, nella persona del suo
MVP
> Lead, sta cercando collaboratori per gestire meglio il supporto su
Internet,
> nei NewsGroup in particolare.
Anche a te, Roberto?!?!?!
Antonio


title: [Annuncio] le news di mamma Microsoft

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:opCf9.9386$Oz2.1...@twister2.libero.it...
[CUT]
>
> Anche a te, Roberto?!?!?!
Si.
>
> Antonio
Roberto


title: [Annuncio] le news di mamma Microsoft

text:
Roberto da casa ha scritto:...
> Comunque so per certo che la Microsoft in Italia, nella persona del suo
MVP
> Lead, sta cercando collaboratori per gestire meglio il supporto su
Internet,
> nei NewsGroup in particolare.
Esiste una campagna di MS (per tutto il mondo) di rinforzare la
"online community". Cosí intanto anche per l'Italia esistono qualche
MVP, ma non molti e nessuno per Access per quanto ne sappia io.
La causa per questa mancanza debb'essere icaa. ;-)
Per diventare un MVP solo conta il "lavoro" in un NG di MS e finora
sembra che tutta la action è qui.



title: [Annuncio] le news di mamma Microsoft

author: Debora

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:iAof9.6233$Oz2.1...@twister2.libero.it...

ma è in inglese!
--
Debora


title: [Annuncio] le news di mamma Microsoft

text:
"Debora" <
cbo.ma...@tiscali.it
> ha scritto nel messaggio
news:uWDf9.9727$Oz2.1...@twister2.libero.it...
>
[CUT]
> >
> ma è in inglese!
A me sembra italianissimo, a parte il messaggio con cui viene annunciata
l'istituzione del nuovo NG.
La cosa che mi ha fatto sorridere è che la prima domanda di questo nuovo NG
è stata quella in cui si chiede se esiste il compilatore di Access. :-)))
>
> --
> Debora



title: [Annuncio] le news di mamma Microsoft

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:LXEf9.11912$6O4.2...@twister1.libero.it...

ma dove sono finita allora? :-(((
--
Debora


title: [Annuncio] le news di mamma Microsoft

text:
"Debora" <
cbo.ma...@tiscali.it
> ha scritto nel messaggio
news:5jFf9.10102$Oz2.1...@twister2.libero.it...
[CUT]
> ma dove sono finita allora? :-(((
Probabilmente in un NG
microsoft.public.access.qualchecosa



title: [Annuncio] le news di mamma Microsoft

author: Fabrizio

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:LXEf9.11912$6O4.2...@twister1.libero.it...
>
> "Debora" <
cbo.ma...@tiscali.it
> ha scritto nel messaggio
> news:uWDf9.9727$Oz2.1...@twister2.libero.it...
> >
> [CUT]
> > >
> > ma č in inglese!
>
> A me sembra italianissimo, a parte il messaggio con cui viene annunciata
> l'istituzione del nuovo NG.
> La cosa che mi ha fatto sorridere č che la prima domanda di questo nuovo
NG
> č stata quella in cui si chiede se esiste il compilatore di Access. :-)))
>
Temo di piů la risposta.
--
Ciao. Fabrizio.


title: problema con definizione variabili pubbliche

author: nicky

text:
ho un db che contiene maschere e moduli (sempre option explicit); per
necessità nella maschera di avvio, definisco con public alcune variabili
che devono essere visibili ovunque.
Il problema è che per talune di queste variabili, quando le utilizzo in
altre form o moduli, compilando mi ritorna l'errore di variabile non
definita e non capisco perchè.
faccio notare che l'interprete vede correttamente il nome della
variabile perchè se definita con l'iniziale maiuscola e scritta nel
codice in minuscolo, viene correttamente convertita.
C'è qualche priorità nella definizione di tali variabili?
Centra in qualche modo l'ordine dei moduli?
ciao e grazie per l'aiuto
Nicky


text:
dimenticavo, Access 97



author: Alessandro Baraldi

text:
Personalmente preferisco definire invece che le Variabili di tipo
Public
delle proprietà Public del Database.
In un modulo metto
Private NomeVariabile
Public Property Let/Get......()
Questo restituisce solo un pò più di leggibilità nel codice, ai fini
pratici però deve funzionare anche quanto hai fatto tu.
Sei certo che all'interno delle Form che non riconoscono la variabile
non vi sia una Variabile OMONIMA...?
Eventualmente fai un tentativo di importare tutto in un nuovo progetto.
@Alex


author: Silvio Vitale

text:
nicky ha scritto:

E' un problema di visibilità delle variabili.
Se vuoi che una variabile sia vista da tutte le Form\maschere e in
tutti i moduli devi dichiararla Public in un MODULO.
Le variabili che definisci come public in una Form\Maschera sono viste
esternamente a quel Form\Maschera solo indicandone il percorso
(FORM_MiaMaschera.MiaVariabilePubblica).
Silvio


title: Difficoltà per struttura Report

author: Alessandro Grossi

text:
Ho il seguente problema:
In base ad un certo numero di articoli venduti devo calcolare una
certa percentuale da dividere tra 2 persone. La persona A può pero
prendere lo 0% del guadagno, oppure il 10%, o il 50%. Ho bisogno però
che l'output sia come quello che vi mostro sotto, ma non riesco a
capire come creare questo report per ottenere le somme delle varie
percentuali. Potete aiutarmi? Grazie.
Percentuale NO
     Percentuale 0%
          articolo1     L. 1.000
          articolo2     L. 2.000
          articolo3     L. 1.000
     Totale percentuale 0%
     Totale personaA = L. 0
     Totale personaB = L. 4.000
Totale percentuale NO
Totale personaA = L. 0
Totale personaB = L. 4.000
Percentuale SI
     Percentuale 10%
          articolo4     L. 2.000
          articolo5     L. 3.000
     Totale percentuale 10%
     Totale personaA = L. 500
     Totale personaB = L. 4.500
     Percentuale 50%
          articolo6     L. 2.000
          articolo7     L. 2.500
          articolo8     L. 1.500
     Totale percentuale 50%
     Totale personaA = L. 3.000
     Totale personaB = L. 3.000
Totale percentuale SI
Totale personaA = L. 3.500
Totale personaB = L. 7.500
Totale generale personaA = L. 3.500
Totale generale personaB = L. 11.500
Alessandro Grossi
a.gr...@agora.stm.it
socio PVI I-SANC


title: Difficoltà per struttura Report

text:
On Sun, 12 Nov 2000 16:48:54 GMT,
a.gr...@agora.it
 (Alessandro
Grossi) wrote:
>Ho il seguente problema:
C'è qualcuno che può aiutarmi per il problema esposto?
Serve qualche altro dato?
Grazie e ciao.



title: Difficoltà per struttura Report

author: vespamu

text:
Questi report da dove recuperano i dati da una tabella o da una query?
Alessandro Grossi ha scritto nel messaggio <
3a199d3a...@news.stm.it
>...
>On Sun, 12 Nov 2000 16:48:54 GMT,
a.gr...@agora.it
 (Alessandro
>Grossi) wrote:
>
>>Ho il seguente problema:
>
>C'č qualcuno che puņ aiutarmi per il problema esposto?



title: Difficoltà per struttura Report

text:
On Mon, 20 Nov 2000 22:01:45 GMT, "vespamu" <
ves...@libero.it
> wrote:
>Questi report da dove recuperano i dati da una tabella o da una query?
I dati provengono da una tabella, ma la query li seleziona e li
filtra.



title: Difficoltà per struttura Report

text:
Ma le percentuali dei ricavi di questi prodotti sono sempre le stesse oppure
variano in continuazione?


title: Difficoltà per struttura Report

text:
On Tue, 21 Nov 2000 22:44:44 GMT, "vespamu" <
ves...@libero.it
> wrote:
>Ma le percentuali dei ricavi di questi prodotti sono sempre le stesse oppure
>variano in continuazione?
La percentuale viene introdotta insieme al dato di ogni articolo, può
essere dello 0%, del 10% o del 50% e non viene mai più variata una
volta decisa.



title: machera Pivot - comportamento strano

author: pfmarro

text:
salve

ho una query che mi collega

prodotto e tipo prodotto --> elenco fornitori --> centri produzione

ho creato una maschera pivot per visualizzare

TipoProdotto + fornitore + centro produzione
espandendo la colonna centro produzione vedo solo i centri produzione relativi al fornitore

non capisco cosa ho fatto ma con una copia della stessa maschera
espandendo la colonna centro produzione vedo TUTTI i centri di produzione indipendentemente dal fornitore
cioe' a riga di tipo prodotto per ogni fornitore mi evidenzia tutti i centri di produzione (anche quelli di altri fornitori)

Grazie anticipatamente


title: andare sul record vuoto per un nuovo inseirmento

text:
Possiedo una sottomaschera in una maschera, questa sottomaschera è in
visualizzazione continua
vorrei che cliccando su un pulsante presente sulla maschera che mi apre un
altra form, prima di aprire la form mi faccia andare uil cursore di
inserimento sul record vuoto in fondo della sottomaschera, pronta cosi da
ricevere il nuovo record in arrivo.
mi sapete aiutare?
grazie.


author: Potone

text:
"@----- Pinco --@-- Pallino -----@" <
tos...@libero.it
> ha scritto nel messaggio news:Qkl%8.23347$GV2.5...@twister2.libero.it...
> Possiedo una sottomaschera in una maschera, questa sottomaschera č in
> visualizzazione continua
> vorrei che cliccando su un pulsante presente sulla maschera che mi apre un
> altra form, prima di aprire la form mi faccia andare uil cursore di
> inserimento sul record vuoto in fondo della sottomaschera, pronta cosi da
> ricevere il nuovo record in arrivo.
>
> mi sapete aiutare?
>
> grazie.
>
prima dell'oggetto docmd che apre la maschera dovresti verificare se il record corrente č gią quello nuovo o meno ed eventualmente
posizionarti:
    if Not Me![Sottomaschera].Form.NewRecord then
        Me![Sottomaschera].Setfocus                ' seleziona la sottomaschera
        RunCommand accmdrecordsgotonew    ' si posiziona sul record nuovo
    End if
    Docmd.Openform (...)


author: Emyr

text:


docmd.gotorecord,,acnewrec
Saluti.
Emanuele.


author: Sergio MAZZA

text:
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:oqisju4pp1kriv321...@4ax.com...
>
> docmd.gotorecord,,acnewrec
> Saluti.
> Emanuele.
Prima forse ti conviene spostare il focus nella sottomaschera...
Ciao.
--
Sergio MAZZA


title: F9 per aprire maschera

author: samR

text:
in una maschera , trovandomi sul controllo Cod_cliente e premendo F9, vorrei
aprire un'altra maschera per scegliere il cliente...
è possibile?
è possibile, lo so, ma come si fa?


title: F9 per aprire maschera

author: Carlo Costarella

text:
"samR" <
wi...@libero.it
> ha scritto nel messaggio
news:90jJa.112614$lK4.3...@twister1.libero.it...

Leggi sulla guida la macro AutoKey.
Ciao, Carlo


title: F9 per aprire maschera

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:umjJa.225948$g92.4...@news2.tin.it...
>
> "samR" <
wi...@libero.it
> ha scritto nel messaggio
> news:90jJa.112614$lK4.3...@twister1.libero.it...
> > in una maschera , trovandomi sul controllo Cod_cliente e premendo F9,
> vorrei
> > aprire un'altra maschera per scegliere il cliente...
> >
> > č possibile?
> > č possibile, lo so, ma come si fa?
> >
> >
> >
>
> Leggi sulla guida la macro AutoKey.
>
> Ciao, Carlo
>
>
Ancora non ci riesco!
Scusami, potresti essere piů chiaro?
Nella guida c'č pochissimo (per me..)
Grazie


title: F9 per aprire maschera

text:
"samR" <
wi...@libero.it
> ha scritto nel messaggio
news:LKkJa.110267$Ny5.3...@twister2.libero.it...
>
> "Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
> messaggio news:umjJa.225948$g92.4...@news2.tin.it...
> >
> > "samR" <
wi...@libero.it
> ha scritto nel messaggio
> > news:90jJa.112614$lK4.3...@twister1.libero.it...
> > > in una maschera , trovandomi sul controllo Cod_cliente e premendo F9,
> > vorrei
> > > aprire un'altra maschera per scegliere il cliente...
> > >
> > > è possibile?
> > > è possibile, lo so, ma come si fa?
> > >
> > >
> > >
> >
> > Leggi sulla guida la macro AutoKey.
> >
> > Ciao, Carlo
> >
> >
> Ancora non ci riesco!
>
> Scusami, potresti essere più chiaro?
> Nella guida c'è pochissimo (per me..)
>
> Grazie
>
>
La macro AutoKeys, se presente nel programma, sostituisce i tasti
predefiniti di Access. E' possibile cioè usare una combinazione di tasti o
di tasti funzione per eseguire un'operazione. Perchè funzioni, dopo averla
creata, bisogna far ripartire l'applicativo.
Per realizzarla: Nuova Macro...nella colonna NomeMacro inserire la
combinazione di tasti che servono, per esempio {F9}, nella colonna Azione
inserire l'azione che si vuole eseguire, per esempio ApriMaschera. Salva la
macro con il nome AutoKeys e fai ripartire l'applicativo.
Ora premendo F9 si aprirà la maschera da te indicata.
Ovviamente nella stessa macro puoi inserire più nomi macro con altrettante
combinazioni di tasti e azioni corrispondenti.
Se usi i tasti funzione non dimenticare di racchiuderli tra parentesi graffe
({}).
Altri esempi: ^{F1} significa che bisogna premere CTRL + F1
oppure +{F1} significa premere Maiuscolo + F1
Nella guida troverai molti esempi di combinazioni.
Ciao, Carlo


title: F9 per aprire maschera

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:cYwJa.127421$pR3.2...@news1.tin.it...
>
> > >
> > Ancora non ci riesco!
> >
> > Scusami, potresti essere più chiaro?
> > Nella guida c'è pochissimo (per me..)
> >
> > Grazie
> >
> >
>
> La macro AutoKeys, se presente nel programma, sostituisce i tasti
> predefiniti di Access. E' possibile cioè usare una combinazione di tasti o
> di tasti funzione per eseguire un'operazione. Perchè funzioni, dopo averla
> creata, bisogna far ripartire l'applicativo.
> Per realizzarla: Nuova Macro...nella colonna NomeMacro inserire la
> combinazione di tasti che servono, per esempio {F9}, nella colonna Azione
> inserire l'azione che si vuole eseguire, per esempio ApriMaschera. Salva
la
> macro con il nome AutoKeys e fai ripartire l'applicativo.
> Ora premendo F9 si aprirà la maschera da te indicata.
> Ovviamente nella stessa macro puoi inserire più nomi macro con altrettante
> combinazioni di tasti e azioni corrispondenti.
> Se usi i tasti funzione non dimenticare di racchiuderli tra parentesi
graffe
> ({}).
> Altri esempi: ^{F1} significa che bisogna premere CTRL + F1
> oppure +{F1} significa premere Maiuscolo + F1
> Nella guida troverai molti esempi di combinazioni.
> Ciao, Carlo
>
>
AHHH :) adesso è più chiaro!
Avevo fatto come consigliato, leggere la guida ecc, ma non c'è molto da
leggere (almeno credo..)
Avevo capito il procedimento, avevo creato le macro esattamente come hai
spiegato tu...
l'unica cosa a non aver fatto è stata quella di nominare la macro
"Autokeys"...
... e nella guida non ho trovato niente che mi facesse capire che per
sostituire i tasti predefiniti ecc ecc
quindi ogni volta che pigiavo un tasto funzione o mi eseguiva il controllo
ortografico... ecc
Grazie, adesso provo e ti farò sapere
Ciao


title: F9 per aprire maschera

author: FABIO

text:
"samR" <
wi...@libero.it
> ha scritto nel messaggio
news:90jJa.112614$lK4.3...@twister1.libero.it...
> in una maschera , trovandomi sul controllo Cod_cliente e premendo F9,
vorrei
> aprire un'altra maschera per scegliere il cliente...
>
> č possibile?
> č possibile, lo so, ma come si fa?
>
>
>
se ti interessa usare tasti funzione diversi in base al campo attivo ti
consiglio vivamente di utilizzare
l'evento della maschera: su tastogiů
ti allego un esempio di codice scritto su una maschera appunto all' evento
su tastogiu
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) ' questo
evento viene generato alla pressione di un qualsiasi tasto a maschera attiva
Dim ctlCurrentControl As Control
Dim strControlName As String
Set ctlCurrentControl = Screen.ActiveControl  ' ottiene il nome del
controllo attivo
strControlName = ctlCurrentControl.Name
Select Case strControlName  ' con questo controlla una parte del nome del
controllo attivo
Case Is = "cod_cliente"
If KeyCode = vbKeyF9 Then    '' la variabile keycode contiene il codice del
tasto premuto
'' metti qui il comando per aprire la maschera che vuoi...........
End If
End Select
Exit Sub
KeyCode = 0
End Sub
ciao fammi sapere.....


title: F9 per aprire maschera

text:
"samR" <
wi...@libero.it
> ha scritto nel messaggio
news:90jJa.112614$lK4.3...@twister1.libero.it...
> in una maschera , trovandomi sul controllo Cod_cliente e premendo F9,
vorrei
> aprire un'altra maschera per scegliere il cliente...
>



title: calcolo distanza

author: Marco

text:
Qualcuno si è cimentato con il calcolo della distanza tra due punti con dati
da gps, latitudine e longitudine ?
In una tabella contenente in un campo la latitudine e nell'altro la
longitudine dovrei calcolare la distanza tra ciascun punto-record tramite
query.
grazie


title: calcolo distanza

author: Pablitomf (Maurizio Facciuti)

text:
"Marco" <
marco.w-no-...@email.it
> ha scritto nel messaggio
news:frnBe.157569$75.67...@news4.tin.it...
> Qualcuno si č cimentato con il calcolo della distanza tra due punti con
> dati da gps, latitudine e longitudine ?
Ma tu ti rendi conto di cosa stai parlando?
No?
Guarda un pň?
http://www.greentarget.com/articolo.asp?cui=-2001908436&CodPubblicazione=92&VisBanner=null
oppure
http://host.uniroma3.it/docenti/carlucci/Tesine/Gps/ricevere.htm
o ancora
http://www.cieloeterra.it/articoli.sorti/sorti.html



title: calcolo distanza

text:
"Pablitomf (Maurizio Facciuti)" <
maurizio...@accessgroup.it
> wrote in
message news:db53h0$as5$1...@domitilla.aioe.org...

Se le coordinate sono poche o lo si fa a "mano" o con excel :
http://tinyurl.com/6wnnx
http://tinyurl.com/8egd9
http://tinyurl.com/8kty2
viceversa...
grazie


title: calcolo distanza

text:
"Marco" <
marco.w-no-...@email.it
> ha scritto nel messaggio
news:frnBe.157569$75.67...@news4.tin.it...
>

In questi calcoli sono implicate formule abbastanza complesse con l'utilizzo
di seno, coseno, arcoseno, PGreco.
Credo che una volta trovata la formula matematica, ti convenga usare Excel
nella sua automazione con Access. Certo puoi riscrivere tutto in Access ma
se lo fà già Excel?...
Ciao, Carlo


title: calcolo distanza

author: Roberto dalla campagna

text:
"Marco" <
marco.w-no-...@email.it
> ha scritto nel messaggio
news:frnBe.157569$75.67...@news4.tin.it...
> Qualcuno si č cimentato con il calcolo della distanza tra due punti con

Vai sul Sito Comune (link qui sotto) e nella Sezione Modules leggi la FAQ
intitolata "5.23 Raccolta di sub e funzioni utili".
Scarica il database di esempio allegato alla FAQ e seleziona la Categoria
intitolata "Latitude/Longitude"; nella lista dei topic trovi anche quello
intitolato "Function GreatArcDistance" che fa riferimento ad una funzione
che serve a calcolare la piů corta distanza tra due punti dell terra di cui
si conoscono la latitudine e la longitudine.
Comunque riporto qui di seguito la funzione che dovrebbe fare ciň che ti
serve:
Function GreatArcDistance(Lat1 As Double, Lon1 As Double, _
    Lat2 As Double, Lon2 As Double, Radius As Double) As Double
'
' Calculates the Great Arc (shortest) distance
'       between 2 locations on the globe.
'
' Uses functions from Trigonometry
'
Dim X1 As Double, Y1 As Double, Z1 As Double
Dim X2 As Double, Y2 As Double, Z2 As Double
Dim CosX As Double, ChordLen As Double
  LatLongToXYZ Lat1, Lon1, Radius, X1, Y1, Z1
  LatLongToXYZ Lat2, Lon2, Radius, X2, Y2, Z2
  ChordLen = Sqr((X1 - X2) * (X1 - X2) + (Y1 - Y2) * (Y1 - Y2) + (Z1 - Z2) *
(Z1 - Z2))
  CosX = 1 - ChordLen * ChordLen / (2 * Radius * Radius)
  Debug.Print X1, Y1, Z1
  Debug.Print X2, Y2, Z2
  Debug.Print ChordLen, CosX
  If CosX = 1 Or CosX = -1 Then
    GreatArcDistance = 0
  Else
    GreatArcDistance = Sqr(1 - CosX * CosX) * Radius * PI() / 2
  End If
End Function
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: calcolo distanza

text:
"Roberto dalla campagna" <
r.masso...@libero.it
> ha scritto nel
messaggio news:s_qBe.15928$QV1.2...@twister2.libero.it...

Ciao Roberto
vorrei sbagliarmi ma mi sembra che Marco abbia bisogno di conoscere la
differenza tra due valori di Lat e Lon. espressi, immagino in Km.
Non so se la funzione proposta ottenga questo risultato. Nelle mie prove ho
trovato molta differenza con il risultato di questo link:
http://216.147.18.102/dist/index
Ciao, Carlo


title: calcolo distanza

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:KWrBe.159214$75.68...@news4.tin.it...
>
>
> "Roberto dalla campagna" <
r.masso...@libero.it
> ha scritto nel
> messaggio news:s_qBe.15928$QV1.2...@twister2.libero.it...
> >
> >
> > "Marco" <
marco.w-no-...@email.it
> ha scritto nel messaggio
> > news:frnBe.157569$75.67...@news4.tin.it...
> >> Qualcuno si è cimentato con il calcolo della distanza tra due punti con
> > dati
> >> da gps, latitudine e longitudine ?
> >> In una tabella contenente in un campo la latitudine e nell'altro la
> >> longitudine dovrei calcolare la distanza tra ciascun punto-record
tramite
> >> query.
> >>
> >> grazie
> >
> > Vai sul Sito Comune (link qui sotto) e nella Sezione Modules leggi la
FAQ
> > intitolata "5.23 Raccolta di sub e funzioni utili".
> > Scarica il database di esempio allegato alla FAQ e seleziona la
Categoria
> > intitolata "Latitude/Longitude"; nella lista dei topic trovi anche
quello
> > intitolato "Function GreatArcDistance" che fa riferimento ad una
funzione
> > che serve a calcolare la più corta distanza tra due punti dell terra di
> > cui
> > si conoscono la latitudine e la longitudine.
> > Comunque riporto qui di seguito la funzione che dovrebbe fare ciò che ti

Ritengo che l'unità di misura sia la stessa usata per indicare l'argomento
Radius (nel caso in discussione il raggio della terra): se lo indichi in Km
penso che la funzione ti ritorni il risultato in KM.
> Non so se la funzione proposta ottenga questo risultato. Nelle mie prove
ho
> trovato molta differenza con il risultato di questo link:
>
http://216.147.18.102/dist/index
Non ho mai usato quella funzione, ma visto che è pubblicata da mamma
Microsoft presupponevo fosse giusta.
Ma tu che valore hai dato all'argomento Radius?
Hai memorizzaro nello stesso modulo della funzione di cui sopra anche la
seguente Sub:
Sub LatLongToXYZ(Lat As Double, Lon As Double, Radius As Double, x As
Double, y As Double, z As Double)
'
' Converts Latitude, Longitude, Radius to 3d-Cartesian coordinates
'
' Assumes:
'   X axis runs through 270 (-X) and 90 (+X) Latitude
'   Y axis runs North (+Y) to South (-Y)
'   Z axis runs through 0 (-Z) and 180 (+Z) Latitude
'
  y = Radius * Sin(Deg2Rad(Lat))
  x = Radius * Sin(Deg2Rad(Lon)) * Cos(Deg2Rad(Lat))
  z = -Radius * Cos(Deg2Rad(Lon)) * Cos(Deg2Rad(Lat))
End Sub
che viene richiamata dalla funzione GreatArcDistance?
Hai memorizzato anche la seguente funzione:
Function PI() As Double
  PI = Atn(1) * 4
End Function
per la determinazione del valore di P greco, anch'essa invocata dalla
funzione GreatArcDistance?
>
> Ciao, Carlo



title: calcolo distanza

text:
"Marco" <
marco.w-no-...@email.it
> ha scritto nel messaggio
news:frnBe.157569$75.67...@news4.tin.it...

Scusami, ma mi ero dimenticato di indicarti che nel modulo in cui memorizzi
la funzione GreatArcDistance devi memorizzare anche la seguente sub:
Sub LatLongToXYZ(Lat As Double, Lon As Double, Radius As Double, x As
Double, y As Double, z As Double)
'
' Converts Latitude, Longitude, Radius to 3d-Cartesian coordinates
'
' Assumes:
'   X axis runs through 270 (-X) and 90 (+X) Latitude
'   Y axis runs North (+Y) to South (-Y)
'   Z axis runs through 0 (-Z) and 180 (+Z) Latitude
'
  y = Radius * Sin(Deg2Rad(Lat))
  x = Radius * Sin(Deg2Rad(Lon)) * Cos(Deg2Rad(Lat))
  z = -Radius * Cos(Deg2Rad(Lon)) * Cos(Deg2Rad(Lat))
End Sub
la seguente funzione:
Function PI() As Double
  PI = Atn(1) * 4
End Function
e la seguente funzione:
Function Deg2Rad(x As Double) As Double
' Degrees to radians
  Deg2Rad = x / 180 * PI()
End Function



title: calcolo distanza

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:KWrBe.159214$75.68...@news4.tin.it...
[SUPERCUT]
Bisogna memorizzare in un modulo anche la seguente funzione:
Function Deg2Rad(x As Double) As Double
' Degrees to radians
  Deg2Rad = x / 180 * PI()



title: calcolo distanza

text:
[cut]
>
> Ritengo che l'unità di misura sia la stessa usata per indicare l'argomento
> Radius (nel caso in discussione il raggio della terra): se lo indichi in
> Km
> penso che la funzione ti ritorni il risultato in KM.
>
esatto

Anche se è un assurdo in matematica, ma queste misure variano di molto a
seconda delle formule che si usano.
Poi c'è da considerare se si assume la terra come una sfera con raggio 6 371
000,707m o un elissoide con raggio
 6 378 137,000 m.
Comunque sembra anche a me che quella formula non si molto esatta.
I dati che ho a disposizione sono in formato gradi decimali es 46,662860
12,603020 e la distanza è preferibile venga espressa in metri. Ora chiedo
comunque l'aiuto dell'esperto/i....
Ho trovato questo codice che ho rimaneggiato per quelle che sono le mie
conoscenze e sembra fornire dati attendibili:
Public Function calcoli(a1 As Double, b1 As Double, a2 As Double, b2 As
Double, De As String, Mi As String) As Double
On Error GoTo Err_Calc
If a1 = a2 And b1 = b2 Then
calcoli = 0
Exit Function
End If
Dim x As Double
Dim negX As Double
Dim r As Single
Dim radMult As Double
Dim dblPi As Double
If De = "d" Then
dblPi = 3.14159269358979
radMult = dblPi / 180
a1 = a1 * radMult
b1 = b1 * radMult
a2 = a2 * radMult
b2 = b2 * radMult
End If
If Mi = "M" Then
  r = 3963.1
Else
  r = 6378137
End If
x = ((Cos(a1) * Cos(a2) * Cos(b1) * Cos(b2)) + (Cos(a1) * Sin(b1) * Cos(a2)
* Sin(b2)) + (Sin(a1) * Sin(a2)))
negX = x * -1
x = Atn(negX / (Sqr((negX * x) + 1))) + 2 * Atn(1)
calcoli = x * r
Exit_Calc:
  Exit Function
Err_Calc:
  MsgBox Err.Number & " - " & Err.Description
  Resume Exit_Calc
End Function
Per il risultato ho usato la query:
SELECT DISTINCTROW tblTest0.a AS a1, tblTest0.b AS b1, tblTest0_1.a AS a2,
tblTest0_1.b AS b2, calcoli([a1],[b1],[a2],[b2],"d","k") AS Risultato
FROM tblTest0, tblTest0 AS tblTest0_1;
la quale va rimaneggiata perchè fornisce valori duplicati non utili.
grazie
es
  tblTest0 TestID a b
      1 46,662860 12,603020
      2 46,662880 12,602919
      3 46,662962 12,602385
  d a1 b1 a2 b2 Risultato
      46,662860 12,603020 46,662860 12,603020 0
      46,662880 12,602919 46,662860 12,603020 8,03144098926222
      46,662962 12,602385 46,662860 12,603020 49,82349317781
      46,662860 12,603020 46,662880 12,602919 8,03144098926222
      46,662880 12,602919 46,662880 12,602919 0
      46,662962 12,602385 46,662880 12,602919 41,8049305461646
      46,662860 12,603020 46,662962 12,602385 49,82349317781
      46,662880 12,602919 46,662962 12,602385 41,8049305461646
      46,662962 12,602385 46,662962 12,602385 0


title: calcolo distanza

text:
"Roberto dalla campagna" <
r.masso...@libero.it
> wrote in message
news:r2uBe.16338$QV1.2...@twister2.libero.it...

Ho già provato in quanto compilando il database dava errore.
Come va costruita la query ?
Ho provato con lo stesso metodo dell'altro post però da troppi risultati.
grazie
PS non mi sembra che comunque fornisca buoni dati.


title: calcolo distanza

text:
"Roberto dalla campagna" <
r.masso...@libero.it
> ha scritto nel
messaggio news:4VtBe.16330$QV1.2...@twister2.libero.it...

 A Radius ho dato 6371 (più o meno non ricordo); il resto delle funzioni
tutte presenti e funzionanti.
Ciao, Carlo


title: calcolo distanza

text:
"Marco" <
marco.w-no-...@email.it
> ha scritto nel messaggio
news:hCuBe.67695$h5.28...@news3.tin.it...

> Ho già provato in quanto compilando il database dava errore.
Non riesco ad immaginare quale errore dia, sempre che tu abbia memorizzate
in un modulo tutte le funzioni e la sub che ti ho segnalato.
> Come va costruita la query ?
Se nella query devi far riferimento anche alla longitudine e latitudine
indicati nel record precedente, trovi una soluzione nel database di esempi
che trovi allegato nella FAQ del Sito Conune che trovi nella Sezione Queries
e che è intitolata "2.6 Esempi di utilizzo e creazione di queries in Access
97" (oppure in alternativa 2.18 Esempi di creazione ed utilizzo delle
queries per Access 2000 e versioni di Access successive).
A questo punto in un campo calcolato puoi richiamare la funzione
GreatArcDistance.
> Ho provato con lo stesso metodo dell'altro post però da troppi risultati.
>
> grazie
> PS non mi sembra che comunque fornisca buoni dati.
Come ho già scritto a Carlo Cosarella, non ho avuto mai la necessità di
usare le funzione e sub che ti ho consigliato e mi sono permesso di
segnalartele solo perché pensavo che chi le ha pubblicate (la Microsoft)
fosse attendibile.
Visto che i risultati giusti li puoi ottenere con Excel, confrantali con
quelli per capire se quelli ottenuti con Access siano o meno attendibili.
Se usi le funzioni da me segnalate prova ad aggiungere al database i
riferimenti alla libreia Microsoft Office (nel data se di esempio allegato
alla FAQ che ti ho indicato viene fatto).
In alternativa potresti aggiungere al tuo database i riferimenti a Microsoft
Excel X.X Object Library (dove X.X è = a 8.0 per Office 97, 9.0 per Office
2000 ecc. ecc.): così facendo puoi usare da Access anche le funzioni di
Excel.



title: calcolo distanza

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:xxvBe.160775$75.68...@news4.tin.it...

Se la latitudine e la longitudine le hai indicate in gradi (la coversione se
la fa da sola la funzione) non saprei cosa dirti; come già detto
precedentemente non ho mai provato quelle funzioni e mi sono permesso di
segnalarle visto che chi le ha pubblicate dovrebbe essere degno di fede, ma
a quanto mi dici sembra non essere così. :(



title: calcolo distanza

text:
"Roberto dalla campagna" <
r.masso...@libero.it
> ha scritto nel
messaggio news:KCwBe.16604Cut
>
> Se la latitudine e la longitudine le hai indicate in gradi (la coversione
> se
> la fa da sola la funzione) non saprei cosa dirti; come già detto
> precedentemente non ho mai provato quelle funzioni e mi sono permesso di
> segnalarle visto che chi le ha pubblicate dovrebbe essere degno di fede,
> ma
> a quanto mi dici sembra non essere così. :(
>
> --
> Roberto
>
La tua è stata un'ottima segnalazione...era proprio lì e nessuno se ne era
accorto.
Hai provato a confrontare i risultati anche presso il link segnalato?
Nello stesso sito e questo lo dico per Marco, c'è la possibilità di
scaricare tutte le formule usate...almeno così mi pare.
Io non mi ci metto ma a Marco potrebbe interessare e magari farci sapere
qualcosa.
Ciao, Carlo


title: calcolo distanza

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:SWwBe.161251$75.68...@news4.tin.it...
>
>
> "Roberto dalla campagna" <
r.masso...@libero.it
> ha scritto nel
> messaggio news:KCwBe.16604Cut
> >
> > Se la latitudine e la longitudine le hai indicate in gradi (la
coversione
> > se
> > la fa da sola la funzione) non saprei cosa dirti; come già detto
> > precedentemente non ho mai provato quelle funzioni e mi sono permesso di
> > segnalarle visto che chi le ha pubblicate dovrebbe essere degno di fede,
> > ma
> > a quanto mi dici sembra non essere così. :(
> >
> > --
> > Roberto
> >
>
> La tua è stata un'ottima segnalazione...era proprio lì e nessuno se ne era
> accorto.
>
> Hai provato a confrontare i risultati anche presso il link segnalato?
Dal sito è scaricabile il database di esempio che ho allegato nella FAQ Sito
Comune.
> Nello stesso sito e questo lo dico per Marco, c'è la possibilità di
> scaricare tutte le formule usate...almeno così mi pare.
> Io non mi ci metto ma a Marco potrebbe interessare e magari farci sapere
> qualcosa.
>
> Ciao, Carlo
--



title: calcolo distanza

author: Bruno Campanini

text:
"Marco" <
marco.w-no-...@email.it
> wrote in message
news:frnBe.157569$75.67...@news4.tin.it...

In un foglio di Excel:
Lat_1, Long_1
Lat_2, Long_2
sono le corrdinate di due luoghi geografici in gradi decimali
(cioè gradi+minuti/60+secondi/3600), tenendo presente che:
Lat-Nord e Long-Est > 0
Lat-Sud e Long-Ovest < 0
=DEGREES(ACOS(SIN(RADIANS(Lat_1))*SIN(RADIANS(Lat_2))+
(COS(RADIANS(Lat_1))*COS(RADIANS(Lat_2))*
COS(RADIANS(ABS(Long_1-Long_2))))))*60*50/27
La formula dà la lunghezza in Km dell'arco di
circolo massimo che li congiunge (ortodromica).
Bruno


title: Formattazione report a colonne

author: Alessandro B.

text:
Ciao a tutti, ho questo problema:
Devo creare un report che mi unisca per cliente e codice prodotto tutte le
vendite presenti in un range di bolle passato in input.
Devo altresì visualizzare tutti i numeri di bolla per ogni cliente.
Io ho fatto così:
prendo i dati da due query;
i numeri di bolla li visualizzo con formattazione della pagina in 3 colonne;
i dati relativi ai prodotti li visualizzo con un sottoreport, l'unico
problema è che mi formatta anche il sottoreport in 3 colonne.
Riesco in qualche modo a stampare la prima parte del corpo in 3 colonne e la
seconda in una?
Spero di essere stato abbastanza chiaro.
Grazie a chi mi saprà aiutare.


title: Access e Ulisse

author: Mandorlo

text: Mi vedo Ulisse  o resto qui?


title: Access e Ulisse

author: Rob

text:
--
Mandi, Rob.
"Mandorlo" <
ton...@inwind.it
> ha scritto nel messaggio
news:tWw99.92027$n04.2...@twister2.libero.it...
> Mi vedo Ulisse  o resto qui?
>
Ti compri un scheda TV e poi fai entrambe le cose!


title: Access e Ulisse

author: Tony

text:
"Mandorlo" <
> Mi vedo Ulisse
Non č una porcata come l'iliade di qualche anno fa, ma comunque č molto
inferiore all'Odiessea di Franco Rossi (anni '70) ... meglio
it.comp.appl.access
 o resto qui?
>
>


title: Access e Ulisse

text:
>Non č una porcata come l'iliade di qualche anno fa, ma comunque č molto
>inferiore all'Odiessea di Franco Rossi (anni '70) ... meglio
>it.comp.appl.access
OK


title: Controllo TreeView

author: AMR-Giuseppe

text:
Ciao a tutti
Ho inserito un controllo aggiuntivo  TreeView  + ImageList
il risultato grafico stile Esplora Risorse mi va bene e ho capito
il funzionamento , quello che non riesco a fare e che è la cosa
più importante , è aprire una maschera  con un doppio click dall' ultimo
nodo
scelto .
Questa sotto è la routine SuCaricamento della maschera prova
Private Sub Form_Load()
Dim nodX As Node
Set nodX = TreeView.Nodes.Add(, , "R", "Aprilia")
nodX.Image = 1
nodX.ExpandedImage = 2
Set nodX = TreeView.Nodes.Add("R", tvwChild, "C1", "Scooter 50")
nodX.Image = 1
nodX.ExpandedImage = 2
Set nodX = TreeView.Nodes.Add("C1", tvwChild, "B1", "SR 50")
nodX.Image = 1
Set nodX = TreeView.Nodes.Add("R", tvwChild, "C2", "Scooter 100")
nodX.Image = 1
Set nodX = TreeView.Nodes.Add("R", tvwChild, "C3", "Scooter 125")
nodX.Image = 1
Set nodX = TreeView.Nodes.Add("R", tvwChild, "C4", "Scooter 150")
nodX.Image = 1
End Sub
Come devo fare per far eseguire questa istruzione al nodo B1 "SR50"
DoCmd.Echo False
DoCmd.OpenForm "ApriliaCatalogo", acNormal
Me.Visible = True
Forms!ApriliaCatalogo.RecordSource = "GruppoTavoleAmico"
Forms![ApriliaCatalogo]!ApriliaCatalogoStm.Form.RecordSource =
"GRUPPO_AMICO_GL"
Forms!ApriliaCatalogo.FiltroPaese.Visible = False
Forms!ApriliaCatalogo.FiltroPaese.Visible = False
Forms!ApriliaCatalogo.ETpaese.Visible = False
Forms!ApriliaCatalogo.elenco_TAVOLE.SetFocus
Ciao Giuseppe


title: Controllo TreeView

author: Alessandro Cara

text:
AMR-Giuseppe wrote:
>
> Ciao a tutti
>
> Ho inserito un controllo aggiuntivo  TreeView  + ImageList
> il risultato grafico stile Esplora Risorse mi va bene e ho capito
> il funzionamento , quello che non riesco a fare e che è la cosa
> più importante , è aprire una maschera  con un doppio click dall' ultimo
> nodo
> scelto .
[cut]
piu' o meno faccio cosi'
Private Sub oTree_NodeClick(ByVal Node As Object)
If Node.Children = 0 Then
    docmd.openform Node.Key
End If
End Sub
--
a.cara
Togli qualcosa dall'email


title: Controllo TreeView

text:
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:cXIya.126502$3M4.2...@news1.tin.it...

Personalmente uso una routine che mi restituisce il "Node" e lo assegno ad
una variabile di tipo string.
Poi uso questa variabile per aprire la maschera con: Docmd. OpenForm MioNodo
Per esempio:
Private Sub CtlActiveX3_NodeClick(ByVal Node As Object)
Dim pos As Integer
 If Node.Children Then
 Exit Sub
 Else
  NomeNodo = Node
  pos = InStr(1, NomeNodo, "°")
  NomeNodo = Mid(NomeNodo, pos + 2, 10)
End If
End Sub
Qui mi serviva solo una parte della stringa restituita ma non ti sarà
difficile eliminare quello che non serve ai tuoi scopi.
Ciao, Carlo


title: Controllo TreeView

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:6CJya.126735$3M4.2...@news1.tin.it...

Grazie per la risposta
solo che ho bisogno per favore  di qualche dettaglio in più
se possibile passo passo le cose da fare .
Comunque Grazie
Ciao Giuseppe


title: Controllo TreeView

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3ECB640E...@blunet.it...
> AMR-Giuseppe wrote:
> >
> > Ciao a tutti
> >
> > Ho inserito un controllo aggiuntivo  TreeView  + ImageList
> > il risultato grafico stile Esplora Risorse mi va bene e ho capito
> > il funzionamento , quello che non riesco a fare e che č la cosa
> > piů importante , č aprire una maschera  con un doppio click dall' ultimo
> > nodo
> > scelto .
> [cut]
>
> piu' o meno faccio cosi'
>
> Private Sub oTree_NodeClick(ByVal Node As Object)
>
> If Node.Children = 0 Then
>     docmd.openform Node.Key
> End If
> End Sub
>
>
>
> --
> a.cara
> Togli qualcosa dall'email
Grazie per la risposta
solo che ho bisogno per favore  di qualche dettaglio in piů



title: Controllo TreeView

text:
AMR-Giuseppe wrote:
>
> "Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
> news:3ECB640E...@blunet.it...
> > AMR-Giuseppe wrote:
> > >
> > > Ciao a tutti
> > >
> > > Ho inserito un controllo aggiuntivo  TreeView  + ImageList
> > > il risultato grafico stile Esplora Risorse mi va bene e ho capito
> > > il funzionamento , quello che non riesco a fare e che č la cosa
> > > piů importante , č aprire una maschera  con un doppio click dall' ultimo
> > > nodo
> > > scelto .
> > [cut]
>
>
> Grazie per la risposta
> solo che ho bisogno per favore  di qualche dettaglio in piů
> se possibile passo passo le cose da fare .
Uhmmm...
1) l'evento che intercetta e' il node_click
2) qual'e' la tua chiave del nodo? b1 "sr50" ?
se e' cosi' dovrebbe essere
Private Sub nomedelloggettotree_NodeClick(ByVal Node As Object)
If Node.Children = 0 and node.key = 'b1 "sr50"' Then
    	DoCmd.Echo False
	DoCmd.OpenForm "ApriliaCatalogo", acNormal
	Me.Visible = True
	Forms!ApriliaCatalogo.RecordSource = "GruppoTavoleAmico"
	Forms![ApriliaCatalogo]!ApriliaCatalogoStm.Form.RecordSource =
	"GRUPPO_AMICO_GL"
	Forms!ApriliaCatalogo.FiltroPaese.Visible = False
	Forms!ApriliaCatalogo.FiltroPaese.Visible = False
	Forms!ApriliaCatalogo.ETpaese.Visible = False
	Forms!ApriliaCatalogo.elenco_TAVOLE.SetFocus
End If
End Sub
Non sono entrato nel merito delle  "tue" istruzioni (quel me.visible = true non
mi sembra tanto ok)



title: Controllo TreeView

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3ECCEF18...@blunet.it...



title: Controllo TreeView

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3ECCEF18...@blunet.it...

Grazie ancora Alessandro
 ho capito tutto  sic!


title: Passsaggio valori a Mdb

author: Neo

text:
ho la seguente situazione:
dal db 1.mdb apro (con la funzione shell) un altro db (2.mdb)
posso passare dei valori a 2.mdb in modo da inserirli (da 2.mdb) in una
variabile e utilizzarli in seguito?
spero di essere stato chiaro.
Grazie


title: Passsaggio valori a Mdb

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:b3D4b.10221$ti2.3...@news2.tin.it...
>
> "Neo" <
neo...@genie.it
> ha scritto nel messaggio
> news:EPC4b.280610$lK4.8...@twister1.libero.it...

> Come ho gia risposto sul NG di Office.Access:
>
> Si puoi farlo.
> La variabile deve essere contenuta in una tabella (provvedi a crearla nel
2°
> db).
> OpenDatabase è il metodo alternativo.
>
> Invece della funzione shell perchè non imposti un riferimento al 2° db,
nel
> primo db?
>
> Se spieghi meglio cosa vuoi fare e quale è il tuo fine, sarà più facile
> aiutarti.
>
> Ciao, Carlo
>
>
>
Grazie per la dritta.
quello che voglio fare è:
da 1.mdb apro 2.mdb
2.mdb legge il parametro inviato (che non è altro che il path completo di
1.mdb)
lo inserisce nel codice
lancia la compattazione
riapre 1.mdb
2.mdb si chiude
può funzionare?
nonuso la funzione che c'è nel menu perchè ho una maschera bloccata dalla
chiusura e si può chiudere solo con una determinata procedura e non so come
farla eseguire prima del lancio del comando.
non uso la funzione "compatta in uscita" perchè devo compattare solo quando
aggiorno il Fe su altre macchine e quindi compattare sempre diventerebbe
lento e fastidioso per gli altri pc.
spero di essere stato un po' più chiaro...
ps se potresti darmi ulteriori notizie su come settare le tabelle e come
scrivere l'istruzione sarebbe il top.
grazie ancora


title: nz e null chi le conosce bene?

author: nwrr

text:
ho iniziato a vedere la funzione nz
se ho capito bene quando in un campo trova  null
1) restituisce o 0 se campo numerico
2) o stringa di lunghezza zero se campo di tipo testo
3) esatto?
4)oppure il tipo di campo non è determinante cioè
restituisce entrambi i valori poi dipende dal confronto che io faccio
5) inoltre che significa stringa di lunghezza zero?
negli esempi mette un " ", cioè c'è uno spazio tra le virgolette
6) ma è anche stringa di lungezza zero: "  ", cioè se ho 2 spazi
7) ma è anche stringa di lungezza zero "" cioè nessuno spazio
8) e se questo caso non è stringa di lungezza zero cos'è null
inoltre ho visto che null in un campo si ha quando mancano i dati (e qui
capisco)
oppure quando i dati sono sconosciuti.
9)Cioè quali sono i dati sconosciuti


title: nz e null chi le conosce bene?

author: Basetta

text:


Allora Nz come hai detto tu ti restituisce 0 oppure "" rispettivamente
se si tratta di un numero oppure di una stringa.
La differenza fra stringa di lunghezza zero e null è questa:
Immaginati una maschera con delle caselle di testo che fanno
riferimento a dei campi di tipo testo.
Nel momento in cui accedi alla casella di testo diventa "" (stringa
lungh. zero) altrimenti è null.
Io infatti in VBA non uso più la funzone ISNull ma esclusivamente nz.
La stringa vuota è data da "". Senza spazi in mezzo.
Personalmente se lo utilizzoin una query io gli forzo il valore da
restituire perchè a volte dei valori numerici li considerà testo
(soprattutto quando fai delle union all)
Quindi puoi usare la funzione nz in questo modo nz(Campo,0)
fornzandolo a mettere uno zero quando trova un null. Se la usi nel
query edito devi usare il punto e virgola.
Ciao ciao
Basetta


title: nz e null chi le conosce bene?

author: Antonio Biso

text:
nwrr <
nwrrAN...@lycos.it
> wrote in message 3C48744A...@lycos.it...
> ho iniziato a vedere la funzione nz
> se ho capito bene quando in un campo trova  null
> 1) restituisce o 0 se campo numerico
> 2) o stringa di lunghezza zero se campo di tipo testo
> 3) esatto?
OK
> 5) inoltre che significa stringa di lunghezza zero?
""
che in informatica è diverso da null. Null significa che non c'è alcuna
locazione di memoria associata, "" significa che c'è una locazione di
memoria in cui è memorizzata una stringa di lunghezza 0.
> negli esempi mette un " ", cioè c'è uno spazio tra le virgolette
> 6) ma è anche stringa di lungezza zero: "  ", cioè se ho 2 spazi
No!
> 7) ma è anche stringa di lungezza zero "" cioè nessuno spazio
Questa è lunghezza 0
> 8) e se questo caso non è stringa di lungezza zero cos'è null
Vedi sopra
> inoltre ho visto che null in un campo si ha quando mancano i dati (e qui
> capisco)
> oppure quando i dati sono sconosciuti.
> 9)Cioè quali sono i dati sconosciuti
Esempio
Quando fai un join esterno per esempio tra due tabelle e prendi campi di uno
e dell'altra; quando non c'è corrispondenza i campi dell'altra tabella
vengono null
Antonio


title: nz e null chi le conosce bene?

text:
> La stringa vuota è data da "". Senza spazi in mezzo.
1)allora sulla guida c'è un errore?
  perche dice che stringa lunghezza zero con l'esempio " " c'è uno spazio tra
le virgolette
1a) se quindi stringa lunghezza zero "" senza spazi; quella con uno spazio
come riportata
in guida cos'è una stringa normale con carattere spazio?
> Personalmente se lo utilizzoin una query io gli forzo il valore da
> restituire
2)scusa quali tipi di valori (letterali o numerici); no perchè sotto fai
l'esempio con 0
     e poi qui dici che:
> perchè a volte dei valori numerici li considerà testo
> (soprattutto quando fai delle union all)
3)  puoi farmi un esempio di un problema che hai riscontrato
>perchè a volte dei valori numerici li considerà testo
4)  cioè se io forzo uno 0 su un campo testo mi accetta lo 0 ma non come nuro
ma come testo?
> Quindi puoi usare la funzione nz in questo modo nz(Campo,0)
> fornzandolo a mettere uno zero quando trova un null. Se la usi nel
> query edito devi usare il punto e virgola.
5) query edit sarebbe il codice sql
grazie per info adesso ho le idee più chiare


title: nz e null chi le conosce bene?

text:
>
> > 7) ma è anche stringa di lungezza zero "" cioè nessuno spazio
>
> Questa è lunghezza 0
1)allora sulla guida c'è un errore?
  perche dice che stringa lunghezza zero con l'esempio " " c'è uno spazio tra le
virgolette
1a) se quindi stringa lunghezza zero "" senza spazi; quella con uno spazio come
riportata
in guida cos'è una stringa normale con un carattere spazio?
rigrazie per tutte le info e chiarimenti postati


title: nz e null chi le conosce bene?

text:
nwrr <
nwrrAN...@lycos.it
> wrote in message 3C48C54B...@lycos.it...
>
>
> >
> > > 7) ma è anche stringa di lungezza zero "" cioè nessuno spazio
> >
> > Questa è lunghezza 0
>
> 1)allora sulla guida c'è un errore?
Sulla guida dove? Giusto per controllare...
>   perche dice che stringa lunghezza zero con l'esempio " " c'è uno spazio
tra le
> virgolette
> 1a) se quindi stringa lunghezza zero "" senza spazi; quella con uno spazio
come
> riportata
> in guida cos'è una stringa normale con un carattere spazio?
E' una stringa composta da un carattere solo: spazio
Antonio


title: nz e null chi le conosce bene?

text:
>
> > > > 7) ma è anche stringa di lungezza zero "" cioè nessuno spazio
> > >
> > > Questa è lunghezza 0
> >
> > 1)allora sulla guida c'è un errore?
>
> Sulla guida dove? Giusto per controllare...
Dalla Guida   (Access 97)
vai su scheda Trova
digiti dentro
1- Digitare la parola o le parole da cercare
nz
poi su 2-  Selezionare alcune parole corrispondenti per limitare la ricerca
c'è solo Nz e la selezioni
poi su 3 Fare clic su un argomento, quindi scegliere Visualizza
clicchi su Funzione Nz
e ti riporto la prima riga
È possibile utilizzare la funzione Nz per restituire zero, una stringa a
lunghezza zero (" ") o un altro valore
mi sono anche ricopiato in word per vedere se c'era lo spazio e c'era
Qindi l'errore c'è.
Adesso ho approfondito la ricerca ed ho visto che invece su:
Esempio di funzione Nz è giusto
praticamente clicchi 2 righe sopra a Funzione Nz
…. del codice
varRisultato = IIf(Nz(ctl.Value) = "",
mah! si deve proprio spulciare e rispulciare la guida
a proposito di guida ce ne ho un'altra
e ti ho messo anche a confronto (tanto vinci tu :-) )
post di oggi lun ore circa 19.30


title: nz e null chi le conosce bene?

text:
nwrr <
nwrrAN...@lycos.it
> wrote in message 3C4C68CD...@lycos.it...
> >
> > > > > 7) ma è anche stringa di lungezza zero "" cioè nessuno spazio
> > > >
> > > > Questa è lunghezza 0
> > >
> > > 1)allora sulla guida c'è un errore?
> >
> > Sulla guida dove? Giusto per controllare...
>
> Dalla Guida   (Access 97)
> vai su scheda Trova
> digiti dentro
> 1- Digitare la parola o le parole da cercare
> nz
Hai ragione, c'è lo spazio dentro ed è un errore!
Diciamo che il concetto di stringa vuota è un classico dell'informatica,
soprattutto per chi ha programmato in C
Antonio


title: ordinamento mostrando un record specifico per primo

author: Giancarlo

text:
Ciao a tutti. In AccessXP sto provando a gestire un forum di discussioni.
Tra le varie tabelle č presente T_DISCUSSIONI con:
id_discussione   -  contatore
...
titolo_discussione
testo_discussione
...
data_discussione
Visualizzo la lista delle discussioni in ordine decrescente di
data_discussione per mostrarle dalla piů recente alla piů vecchia. Vorrei
perň che nella lista delle discussioni venisse sempre mostrata per prima una
discussione che riepiloga le regole del forum. questa discussione ha ad
esempio id_discussione=1.
Come posso scrivere la clausula order by... facendo in modo che in cima alla
lista ci sia la discussione n. 1 e poi, a seguire, le altre ordinate in
ordine decrescente per data?
Grazie a tutti in anticipo.
Giancarlo


author: Marco Pizzamiglio

text:
Giancarlo ha scritto:


Crei un campo calcolato in cui sostituisci la data quando l'ID=1, e lo usi
per l'ordinamento decrescente.
DataOrd: iif([ID]=1,#31/12/2199#,[data post])
Ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"Marco Pizzamiglio" <
marco.pi...@gmail.com
> ha scritto nel messaggio
news:fliki7$nve$1...@news.newsland.it...

Ti ringrazio per l'ottimo suggerimento.
Ciao. Giancarlo.



title: Raggruppamento ricevute bancarie

author: Dino

text:
Ciao a tutti.
Come prima cosa vorrei ringraziare tutti quelli che hanno contribuito
a risolvere i problemi di settimana scorsa (Alex,Roberto, Access,
e..... tutti quelli che non ricordo).
Attualmente ho questo problema;ho realizzato un DB che mi permette
mese per mese di raggruppare (tramite una query di riepilogo) per ogni
cliente tutte le ricevute bancarie uguali. Esempio:
Al sig. Rossi il giorno 10/10/07 ho emesso una fattura N°1 di € 500,00
pagabile con riba 30/60 gg.
Il giorno 24/10/07 sempre al sig. Rossi ho emesso la fattura N°2 di €
1000,00 pagabile sempre con riba 30/60 gg.
La query che ho realizzato come risultato mi raggruppa il tutto in un
solo record (ed e' proprio quello che voglio) dandomi nel nel campo
tot fattura € 1500,00  e nei campi 30 e 60 € 750,00.Fino qua' tutto
Ok.Il problema e' che mi raggruppa anche il N° fattura;mi elenca solo
la fattura N°1.
Se e' possibile(penso proprio di sì) vorrei visualizzare nel Campo N°
fattura non solo 1 ma " 1-2" cioe' i numeri delle due fatture emesse.
Saluti Dino e..... GRAZIE GIA' IN ANTICIPO.


title: Esito query evidenziato con colori diversi

author: Sthepan

text:
Ciao,
Se in una textbox di una form viene visualizzato il dato estrapolato da una
query, è possibile, quando il dato è negativo (tipo -10) che venga
visualizzato in Rosso, mentre quando è positivo venga visualizzato in Nero?
Ciao,
Sthapan


text:
"Sthepan" <
sth...@supereva.it
> ha scritto nel messaggio
news:t2smpmp068s8.p...@40tude.net...

Se il dato è un importo o una valuta con due decimali, nel Formato della
casella di testo scrivi:
#.###,00; - #.###,00[Rosso];" Zero"[Blu]
se invece è un dato intero nella proprietà formato scrivi:
#.###; - #.###[Rosso];" Zero"[Blu]
e se il dato è intero e non vuoi la punteggiatura delle migliaia scrivi:
#; - #[Rosso];" Zero"[Blu]
In questo modo vedrai le cifre positive in nero, quelle negative in rosso e
se sono uguali a 0 comparirà la parola Zero scritta in blu.
Volendo, se usi una versione di Access successiva ad Access 97, puoi
risolvere il tuo problema anche con la Formattazione condizionale (vedi
help).
>
>
> Ciao,
> Sthapan
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: invio appuntamento tramite access ad outlook a destinatario mail

author: Lomba

text:
Buon giorno a tutti.
nel mio database per la gestione delle non conformità, io dovrei inviare un appuntamento ad alcuni colleghi, via mail.
ho provato a inserire un appuntamento nel mio account tramite access e funziona. Ma come posso inviarlo a destinatari di posta?
chiedo aiuto...
grazie mille a chi vorrà rispondermi!
Luca


text:
It happens that Lomba formulated :

Se ti serve altro (collegamenti e scambi vari con Outlook)
ti mando tutto il file di Access, altrimenti:
===============================
Private Sub Command10_Click()
'
' Reference;   Microsoft Scripting Runtime
'
Dim OL As New Outlook.Application, NewMail As MailItem
Dim i As Integer, S As String
Dim AttachmentArray(1 To 3) As String
Dim FSO As New FileSystemObject, TextStream As Object
Dim eMailMessage As String, SendAccount As String
Dim ReceiveAccount As String

'---  Definizioni  ----------------------------------
'Testo/Titolo/Oggetto del messaggio
eMailMessage = "Quando i Romani avevano le palle." & vbCrLf & _
               "(Si nos coleos haberemus)"

' File contenente il corpo del messaggio
Set TextStream = FSO.OpenTextFile("D:\Test\aa0.txt")
Do Until TextStream.AtEndOfStream
    S = S & vbCrLf & TextStream.ReadLine
Loop

' Tre file costituenti gli attachment
AttachmentArray(1) = "D:\Test\aa1.txt"
AttachmentArray(2) = "D:\Test\aa2.txt"
AttachmentArray(3) = "D:\Test\aa3.txt"

' Indirizzo DAL quale si trasmette
SendAccount = "
cmp...@gmail.com
"

' Indirizzo AL quale si trasmette
ReceiveAccount = "
brun...@libero.it
" ' "
bruno.c...@tin.it
"
'----------------------------------------------

On Error GoTo SendErr
Set NewMail = OL.CreateItem(olMailItem)
With NewMail
    .SendUsingAccount = Session.Accounts(SendAccount)
    .To = ReceiveAccount
    .CC = "
brun...@libero.it
" ';
bruno.c...@tin.it
"
    '.BCC = "
brun...@libero.it
;
bruno.c...@tin.it
"
    .Subject = "Prova eMail da Access"
    .Body = eMailMessage & vbCrLf & S
    .ReadReceiptRequested = True ' False
    For i = 1 To 3
        .Attachments.Add AttachmentArray(i)
    Next
    .Send
End With
MsgBox "Sent without Errors!"

Exit_Sub:
    Exit Sub

SendErr:
    MsgBox "Error n. " & Err.Number & vbCrLf & Err.Description
    Resume Exit_Sub

End Sub
==================================

Bruno


text:
Ciao Bruno, grazie mille, mi faresti un favore a mandarmi il file di access con altre varie funzionalità per outlook.
intanto domani provo a inserire la tua routine.
davvero grazie mille!
Luca.

Il giorno sabato 5 novembre 2022 alle 18:51:47 UTC+1 Bruno Campanini ha scritto:
> It happens that Lomba formulated :




author: RobertoA

text:

A me, e sicuramente a molti altri, interessa molto quel "collegamenti e
scambi vari con Outlook" poiche' su molte postazioni operatore Outlook
ormai e' un client ben consolidato, ed io aggiungo pure che e' un ottimo
strumento molto flessibile e robusto
E quindi oltre al banale 'invio di email' sarebbe utile sfruttarlo un
pochetto di piu', collegandolo col gestionale principale e consentendo
di eseguire tutte le operazioni per cui Outlook non e' stto progettato
E' possibile darci un'occhiata?


author: Bruno Campanini

text:
RobertoA laid this down on his screen :

To you and Lomba:
https://1drv.ms/u/s!AvTaMfd5-b2o2zIjOOehO1f0znW0?e=nd9XYG

Spero di non deluderne due in un sol colpo...

Bruno


text:
CIao Bruno
intanto ti ringrazio. farò tesoro del tuo db che mi hai inviato. di sicuro qualche funzione la "rubo...." :-)
il problema però rimane, nel senso che non sono riuscito a capire come inviare un appuntamento tramite access via mail.
ci deve essere una soluzione. Forse sono io che non sono molto esperto a non capire. Aiuto raga!!!!! :-)
io riesco a mettere un appuntamento sul mio pc tramite access, è relativamente "facile" passatemi il termine.
il problema è inviarlo a un utente via mail, da access.
vi spiego, a me servirebbe che dopo una certa operazione in una maschera di access, partisse un promemoria a un destinatario. cosi poi lui fa quello che deve fare di sua competenza.
l'operazione adesso è manuale,  nel senso che l'addetto alla gestione si occupa di inviare un appuntamento "come un memo" alla persona destinataria, ecco io vorrei farlo con bel pulsantone con access su "su click"...
ce la faremo?
aiuto
Luca.



text:

Obrigado


text:
buon giorno a tutti
ho scritto dopo vari tentativi (recuperati anche grazie a voi e altri contributi), questa routine, ma ch poi non funziona al punto "  .attachement.Add olAppt" .... qualcuno può aiutarmi? grazie mille

Private Sub Comando306_Click()
Dim olApp As Outlook.Application
Dim oNS As Outlook.NameSpace

Set olApp = CreateObject("outlook.Application")
Set olNs = olApp.GetNamespace("MAPI")
Set CalFolder = olNs.GetDefaultFolder(olFolderCalendar)
Set olAppt = CalFolder.Items.Add(olAppointmentItem)

'Dim olApp As Outlook.Application
'Dim olAppt As Outlook.AppointmentItem
'Dim CalFolder As Outlook.MAPIFolder
Dim objMsg As Outlook.MailItem
                                'Quindi usa questo -
Set olAppt = CalFolder.Items.Add(olAppointmentItem)
With olAppt
    'Definire le proprietà degli elementi del calendario
        .Start = Now()
        .End = Now()
        .Subject = "Ciao"
       ' .Location = "me"
        .body = "Prenditi cura di questo al più presto"
        .BusyStatus = olBusy
        .ReminderMinutesBeforeStart = 15
        .ReminderSet = True
        .Categories = "Ha bisogno di attenzione"
        '.display
        .Save
    'End With
Set objMsg = olApp.CreateItem(olMailItem)
'Quindi crea l'e-mail e aggiungila come allegato a un nuovo messaggio.

'Set objMsg = Application.CreateItem(olMailItem)
'MsgBox olAppt
'Set objMsg = Outlook.Application
With objMsg
  .to = "
blab...@hotmail.it
" 'an example...
  .Subject = "Questo è il soggetto"
  .body = "I miei appunti"
  .attachement.Add olAppt
  .display
End With
End with
End Sub


author: BFS

text:

cosi cambia qualcosa?

With objMsg
   .to = "
blab...@hotmail.it
" 'an example...
   .Subject = "Questo è il soggetto"
   .body = "I miei appunti"
   Set myAttachments = objMsg.Attachments
   myAttachments.Add "c:\temp.msg"
   .display
End With

ref:
https://learn.microsoft.com/en-us/office/vba/api/outlook.attachments.add

BFS


text:

dimenticavo il tuo save cambialo con .SaveAs "c:\temp.msg"

BFS


text:
ciao a tutti, vi ringrazio per la fattiva collaborazione, nel frattempo ho risolto cosi.... funziona... se vi può servire!

Private Sub Comando307_Click()
Dim myItem As Object
Dim myRequiredAttendee, myOptionalAttendee, myResourceAttendee As outlook.Recipient
Set myItem = outlook.CreateItem(olAppointmentItem)
myItem.MeetingStatus = olMeeting
myItem.Subject = "PROVA"
'myItem.Location = "Conf Rm All Stars"
myItem.Start = #1/12/2022 1:30:00 PM#  'Now()
myItem.Duration = 90
Set myRequiredAttendee = myItem.Recipients.Add("------@
hotmail.it
")
myRequiredAttendee.Type = olRequired
'Set myOptionalAttendee = myItem.Recipients.Add("Kevin Kennedy")
'myOptionalAttendee.Type = olOptional
'Set myResourceAttendee = myItem.Recipients.Add("Conf Rm All Stars")
'myResourceAttendee.Type = olResource
 'myItem.Display
myItem.Send
End Sub


title: Funzione legata a condizione IIf (Access).

author: Andrea

text:
Premetto che sono un utente totalmente inesperto nell'utilizzo di Access.
Non riesco a risolvere un problema apparentemente semplice.
Ho creato una maschera con una sottomaschera (tra l'altro, nella
sottomaschera appaiono le intestazioni dei campi anziché l'intestazione
della sottomaschera):
in un campo della sottomaschera, desidero, quando un valore della maschera è
= X, restituire un valore dato dalla somma di un campo della sottomaschera +
9 (esempio).
nell' "Origine Controllo" ho provato ad esprimermi in varie soluzioni, ad
esempio
=IIf(Maschere![preventivo 3]![Tmisura]="*oscuro*";[Base]+9;[Base])
risultato:  #nome?
Non riesco a venirne fuori!
Ringrazio anticipatamente colui che vorrà darmi aiuto.


author: Sergio MAZZA

text:
"Andrea" <
andr...@pn.itnet.it
> ha scritto nel messaggio
news:8smbsc$dmn$1...@news.IT.net...

Non ho capito dove vuoi restituire il valore dell'espressione, comunque
prova con:
=IIf(form![preventivo
3]![Tmisura]="*oscuro*";form!NomeMaschera![Base]+9;form!NomeMaschera![Base])
Ciao.


author: Michele Amato

text:
Andrea <
andr...@pn.itnet.it
> wrote in message 8smbsc$dmn$1...@news.IT.net...
> Premetto che sono un utente totalmente inesperto nell'utilizzo di Access.
> Non riesco a risolvere un problema apparentemente semplice.
>
> Ho creato una maschera con una sottomaschera (tra l'altro, nella
> sottomaschera appaiono le intestazioni dei campi anziché l'intestazione
> della sottomaschera):
>
>
> in un campo della sottomaschera, desidero, quando un valore della maschera
č
> = X, restituire un valore dato dalla somma di un campo della sottomaschera
+
> 9 (esempio).
>
> nell' "Origine Controllo" ho provato ad esprimermi in varie soluzioni, ad
> esempio
> =IIf(Maschere![preventivo 3]![Tmisura]="*oscuro*";[Base]+9;[Base])
>
> risultato:  #nome?
>
> Non riesco a venirne fuori!
>
> Ringrazio anticipatamente colui che vorrą darmi aiuto.
>
Scommetto che hai Access95...
Michele


text:
No, ho Access 2000.
Michele Amato <
maengi...@ciccia.libero.it
> wrote in message
ASFH5.49515$Nz.14...@news.infostrada.it...
> Andrea <
andr...@pn.itnet.it
> wrote in message 8smbsc$dmn$1...@news.IT.net...
> > Premetto che sono un utente totalmente inesperto nell'utilizzo di
Access.
> > Non riesco a risolvere un problema apparentemente semplice.
> >
> > Ho creato una maschera con una sottomaschera (tra l'altro, nella
> > sottomaschera appaiono le intestazioni dei campi anziché l'intestazione
> > della sottomaschera):
> >
> >
> > in un campo della sottomaschera, desidero, quando un valore della
maschera
> è
> > = X, restituire un valore dato dalla somma di un campo della
sottomaschera
> +
> > 9 (esempio).
> >
> > nell' "Origine Controllo" ho provato ad esprimermi in varie soluzioni,
ad
> > esempio
> > =IIf(Maschere![preventivo 3]![Tmisura]="*oscuro*";[Base]+9;[Base])
> >
> > risultato:  #nome?
> >
> > Non riesco a venirne fuori!
> >
> > Ringrazio anticipatamente colui che vorrà darmi aiuto.



text:
Andrea <
andr...@pn.itnet.it
> wrote in message 8soqc5$v4a$1...@news.IT.net...

A volte in M$ si comportano come veri e propri stupidi!
Fecero l'errore di "localizzare" anche i nomi di collection come Forms e
Reports già qualche anno fa (A95).
Adesso di nuovo...
roba da non crederci.
Saluti
Michele


text:
So che anche MS non rilascia versioni di prog perfette, però, nonostante
questi problemi, ci sono molte persone che riescono ad aggirare il problema
e che molti riescono a fare dei database e delle maschere molto carine.
Purtroppo, è la prima volta che mi capita di cimentarmi con delle
espressioni di controllo; risolto il problema la prima volta le altre
vengono da se.
Se hai una soluzione o ti viene in mente quale potrebbe essere il problema,
ti prego di comunicarmelo.
Ciao Michele.
Michele Amato <
maengi...@ciccia.libero.it
> wrote in message
zwTH5.58887$Nz.15...@news.infostrada.it...
> Andrea <
andr...@pn.itnet.it
> wrote in message 8soqc5$v4a$1...@news.IT.net...




title: Cambiare nome al report generato

author: pippo

text:
Salve a tutti,
ho un problemino da risolvere, vorrei potere cambiare il nome di un
report generato, inserendo dei dati provenienti da una maschera.
Ad esempio stampando un ipotetico ordine con progressivo 115 creare un
report che si chiami appunto Ordine Numero 115.
Ho provato attraverso la struttura del report nelle proprietą a mettere
in Etichetta:
Ordini & Forms![Ordini]![IDOrdini] .
Ma mi genera una scitta in testa che riportandomi la scritta, appunto,
Forms![Ordini]![IDOrdini] .
Questa cosa secondo me č interessante perchč potrebbe essere applicata,
ad esempio, anche ad un file Snapshot mandato via mail.
Ciao a tutti e grazie.


title: Cambiare nome al report generato

text:
"pippo" <
pi...@pippo.it
> ha scritto nel messaggio
news:3D3EBEE0...@pippo.it...
> Salve a tutti,
>
> ho un problemino da risolvere, vorrei potere cambiare il nome di un
> report generato, inserendo dei dati provenienti da una maschera.
> Ad esempio stampando un ipotetico ordine con progressivo 115 creare un
> report che si chiami appunto Ordine Numero 115.
>
> Ho provato attraverso la struttura del report nelle proprietà a mettere
> in Etichetta:
>
> Ordini & Forms![Ordini]![IDOrdini] .
>
> Ma mi genera una scitta in testa che riportandomi la scritta, appunto,
> Forms![Ordini]![IDOrdini] .
Su evento apertura del report scriverai
me.caption = "Ordine n° " & Forms![Ordini]![IDOrdini] .
chiaramente la maschera ordini deve essere aperta
Antonio


title: Cambiare nome al report generato

text:
Grazie mille Antonio,
Ricevuto - Provato - Funzionato.
Ciao



title: Cambiare nome al report generato

text:
Accidenti... sarebbe stato bello se avesse cambiato il nome anche al file
allegato in snapshot... in realtà mantiene il nome del repor originale...



title: Cambiare nome al report generato

text:
"pippo" <
pi...@pippo.it
> ha scritto nel messaggio
news:3D3EC209...@pippo.it...
> Accidenti... sarebbe stato bello se avesse cambiato il nome anche al file
> allegato in snapshot... in realtà mantiene il nome del repor originale...
Scrivi DOPO il quoting
Apri il report in design, fai un salva con nome col nuovo nome e cancella il
precedente.
Quindi mandi in stampa la nuova copia
Antonio


title: Cambiare nome al report generato

author: Potone

text:
"pippo" <
pi...@pippo.it
> ha scritto nel messaggio news:3D3EC209...@pippo.it...

dopo l'esportazione come snapshot potresti rinominare il file (mantenendo l'estensione) con l'istruzione Name, dai un'occhiata
all'help in linea,
ciao,
Matteo


title: Cambiare nome al report generato

text:
Antonio Biso wrote:

Non posso cambiare il mome al report, ho una serie di funzioni e maschere che
fanno riferimento al report che si chiama appunto "Ordini".
Ho fatto un prova cambiando il nome nelle proprietà del report in Format -
Etichetta... mettendo un nome tipo ad esempio popopopo, e creando lo snapshot
attraverso una macro, mi ha allegato un file alla mail con il nome: popopopo.snp
Secondo me l'istruzione :
Private Sub Report_Open(Cancel As Integer)
Me.Caption = "Ordine n° " & Forms![Ordini]![IDOrdini]
End Sub
Viene eseguita solo, come indicato, all'apertura del report.
Non sarà possibile generare questa istruzione in concomitanza di un sendobject?
Premetto che forse nella mia prima domanda sono partito da un report e la tua
risposta è stata precisa e risolutiva, ma effettivamente intendevo
applicare il nome al file generato ed allegato alla mail.
Ciao


title: Cambiare nome al report generato

text:
pippo wrote:
> Salve a tutti,
>
> ho un problemino da risolvere, vorrei potere cambiare il nome di un
> report generato, inserendo dei dati provenienti da una maschera.
> Ad esempio stampando un ipotetico ordine con progressivo 115 creare un
> report che si chiami appunto Ordine Numero 115.
>
> Ho provato attraverso la struttura del report nelle proprietà a mettere
> in Etichetta:
>
> Ordini & Forms![Ordini]![IDOrdini] .
>
> Ma mi genera una scitta in testa che riportandomi la scritta, appunto,
> Forms![Ordini]![IDOrdini] .
>
> Questa cosa secondo me è interessante perchè potrebbe essere applicata,
> ad esempio, anche ad un file Snapshot mandato via mail.
>
> Ciao a tutti e grazie.
Soluzione Fisica sul report:
Mettere in evento Report:
Private Sub Report_Page()
Me.Caption = "Ordine N " & Forms![Ordini]![IDOrdini]
End Sub
Applicare infine l'etichetta al nome dell'ipotetico file snapshot legato a
quel report:
Generare un tasto con una Macro che generi:
EchoSchermo
    No
Apri Report
    Nome del report
    Anteprima
Invia Oggetto
    Nome del report
    Formato Snapshot
Chiudi
    Nome del report
In questo modo si riesce ad applicare il nome al file allegato alla mail.
Ciao a tutti


title: Cambiare nome al report generato

text:
"pippo" <
pi...@pippo.it
> ha scritto nel messaggio
news:3D3FB173...@pippo.it...
> Antonio Biso wrote:
>
> > "pippo" <
pi...@pippo.it
> ha scritto nel messaggio
> > news:3D3EC209...@pippo.it...
> > > Accidenti... sarebbe stato bello se avesse cambiato il nome anche al
file
> > > allegato in snapshot... in realtà mantiene il nome del repor
originale...
> >
> > Scrivi DOPO il quoting
> >
> > Apri il report in design, fai un salva con nome col nuovo nome e
cancella il
> > precedente.
> > Quindi mandi in stampa la nuova copia
> >
> > Antonio
>
> Non posso cambiare il mome al report, ho una serie di funzioni e maschere
che
> fanno riferimento al report che si chiama appunto "Ordini".
Salva con nome il report che stai aprendo, senza eliminare la copia
campione.
Ad ogni apertura puoi andare a cancellare la copia precedente eseguendo uina
ricerca su tutti i report trovando quello "intruso"
Antonio


title: Cambiare nome al report generato

text:
Antonio Biso wrote:

Grazie Antonio,
cmq ho fatto un post con la soluzione che riallego a questo post. Ho escogitato
un modo semplice per arrivare alla soluzione,
cioè dare un nome consono ad uno snapshot generato da un report.
Ecco qui -------------------------->
pippo wrote:
> Salve a tutti,
>
> ho un problemino da risolvere, vorrei potere cambiare il nome di un
> report generato, inserendo dei dati provenienti da una maschera.
> Ad esempio stampando un ipotetico ordine con progressivo 115 creare un
> report che si chiami appunto Ordine Numero 115.
>
> Ho provato attraverso la struttura del report nelle proprietà a mettere
> in Etichetta:
>
> Ordini & Forms![Ordini]![IDOrdini] .
>
> Ma mi genera una scitta in testa che riportandomi la scritta, appunto,
> Forms![Ordini]![IDOrdini] .
>
> Questa cosa secondo me è interessante perchè potrebbe essere applicata,
> ad esempio, anche ad un file Snapshot mandato via mail.
>
> Ciao a tutti e grazie.
Soluzione Fisica sul report:
Mettere in evento Report:
Private Sub Report_Page()
Me.Caption = "Ordine N " & Forms![Ordini]![IDOrdini]
End Sub
Applicare infine l'etichetta al nome dell'ipotetico file snapshot legato a



title: Richiesto/valido se

author: Piero

text:
ciao a tutti

che differenza c'� in una tb
tra Richiesto si/no
e valido se : p.e. (is not null)
e quando si utilizza il primo oppure il secondo?
Grazie


title: Richiesto/valido se

author: Pablitomf

text:
Piero <
Pi...@Piero.Libero.it
> ha scritto:

> ciao a tutti
>
> che differenza c'ï¿œ in una tb
> tra Richiesto si/no
> e valido se : p.e. (is not null)
> e quando si utilizza il primo oppure il secondo?
> Grazie

richiesto si/no = obbligatorio/non obbligatorio (se c'ï¿œ si, e il dato in
quel campo nel record non viene inserito, il sistema non ti fa andare avanti)
valido se = accetta il dato solo a certe condizioni, non fermandosi alla
mera esistenza del dato.

--
------------
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: Richiesto/valido se

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201309040...@mynewsgate.net...
> Piero <
Pi...@Piero.Libero.it
> ha scritto:
>
>> ciao a tutti
>>
>> che differenza c'� in una tb
>> tra Richiesto si/no
>> e valido se : p.e. (is not null)
>> e quando si utilizza il primo oppure il secondo?
>> Grazie
>
> richiesto si/no = obbligatorio/non obbligatorio (se c'� si, e il dato in
> quel campo nel record non viene inserito, il sistema non ti fa andare
> avanti)
> valido se = accetta il dato solo a certe condizioni, non fermandosi alla
> mera esistenza del dato.
>
> --
Grazie Pablitomf
Generalmente in idCliente mettere richiesto si
� corretto?


title: Richiesto/valido se

text:
Piero <
Pi...@Piero.Libero.it
> ha scritto:

>
> "Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
> news:201309040...@mynewsgate.net...
> > Piero <
Pi...@Piero.Libero.it
> ha scritto:
> >
> >> ciao a tutti
> >>
> >> che differenza c'ï¿œ in una tb
> >> tra Richiesto si/no
> >> e valido se : p.e. (is not null)
> >> e quando si utilizza il primo oppure il secondo?
> >> Grazie
> >
> > richiesto si/no = obbligatorio/non obbligatorio (se c'ï¿œ si, e il dato in
> > quel campo nel record non viene inserito, il sistema non ti fa andare
> > avanti)
> > valido se = accetta il dato solo a certe condizioni, non fermandosi alla
> > mera esistenza del dato.
> >
> > --
> Grazie Pablitomf
> Generalmente in idCliente mettere richiesto si
> ï¿œ corretto?

Se "idCliente" e la chiave della tabella, e' "richiesto" (quindi
obbligatorio) di default. Se invece non e' impostato come chiave, ma e' un
campo che cmq ti serve obbligatoriamente ai fini della logica esistenza del
record stesso, direi che si, e' decisamente corretto.



title: Richiesto/valido se

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201309041...@mynewsgate.net...
> Piero <
Pi...@Piero.Libero.it
> ha scritto:
>
>>
>> "Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
>> news:201309040...@mynewsgate.net...
>> > Piero <
Pi...@Piero.Libero.it
> ha scritto:
>> >
>> >> ciao a tutti
>> >>
>> >> che differenza c'� in una tb
>> >> tra Richiesto si/no
>> >> e valido se : p.e. (is not null)
>> >> e quando si utilizza il primo oppure il secondo?
>> >> Grazie
>> >
>> > richiesto si/no = obbligatorio/non obbligatorio (se c'� si, e il dato
>> > in
>> > quel campo nel record non viene inserito, il sistema non ti fa andare
>> > avanti)
>> > valido se = accetta il dato solo a certe condizioni, non fermandosi
>> > alla
>> > mera esistenza del dato.
>> >
>> > --
>> Grazie Pablitomf
>> Generalmente in idCliente mettere richiesto si
>> � corretto?
>
> Se "idCliente" e la chiave della tabella, e' "richiesto" (quindi
> obbligatorio) di default. Se invece non e' impostato come chiave, ma e' un
> campo che cmq ti serve obbligatoriamente ai fini della logica esistenza
> del
> record stesso, direi che si, e' decisamente corretto.
>
>
> --
grazie


title: totale che sparisce

text:
Una cosettina semplice semplice ma che non riesco a risolvere.
da una Form1  apro un'altra Form2 (continua) relazionata con la prima in
cui
devo inserire dati. Nel piè di pagina di questa viene calcolato il totale
la
percentuale rispetto ad un valore.
questa l'origine della form2:
SELECT *
FROM
TAB1 LEFT JOIN TAB2 ON TAB1.IDcod = TAB2.idcod
WHERE
TAB2.idAttività)=forms1!idcod
mi succede che dopo aver inserito l'ultimo valore, passando al record
successivo (nonostante abbia messo come valore predefinito di
idcod=forms1!idcod
mi sparisce il valore del totale (e della percentuale) fino a quando non
inizio a scrivere.
Niente di grave  ... ma non è bello che quando faccio invio ... invece di
poter leggere i valori calcolati devo tornare indietro o scrivere
qualcosa..
Come posso risolvere?
Grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: totale che sparisce

text:
> Come posso risolvere?
Ho risolto mettendo sull'evento focus del primo "campo" il valore da
assegnare
a idcod.
Funziona ... ma si creano record vuoti ... che elimino automaticamente
alla
chiusura maschera.
Non è elegante ... ma chi lo usa non lo vede.
Se ci fossero altre soluzioni però sarebbero gradite



title: lunghezza

author: Mario

text:
Come faccio a verificare se la stringa di numeri immessa è ad esempio 5?
grazie!


title: lunghezza

author: Alessandro

text:
"Mario" <
mav...@email.it
> wrote in message
news:c%4L8.1957$
K4.3...@twister2.libero.it
> Come faccio a verificare se la stringa di numeri immessa č ad esempio 5?
> grazie!
Len(Stringa).
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: lunghezza

text:
Scusa l'ignoranza potresti essere piů preciso?
grazie
"Alessandro" <
ik2...@libero.it
> ha scritto nel messaggio
news:c33d72b4544fb109ac...@mygate.mailgate.org...



title: lunghezza

author: Graziano Franchi (Dal Client)

text:
"Mario" <
mav...@email.it
> ha scritto nel messaggio
news:iO8L8.3719$86.6...@twister1.libero.it...

dim a as string
a="PIPPO"
if len(a) =5 then
  msgbox("CORRETTO HAI INSERITO 5 CARATTERI")
else
  msgbox("POLLO DEI INSERIRE MAX 5 CARATTERI")
end if
Saluti


title: lunghezza

text:
ok ci sono ma all'interno di access xp, dove vado a scrivere il codice?
"Graziano Franchi (Dal Client)" <
franchi....@tiscalinet.it
> ha scritto
nel messaggio news:adj7ja$no$1...@lacerta.tiscalinet.it...



title: lunghezza

author: Enrico T.S.

text:
"Mario" <
mav...@email.it
> ha scritto nel messaggio
news:tFhL8.4917$K4.1...@twister2.libero.it...
> ok ci sono ma all'interno di access xp, dove vado a scrivere il codice?
>
Prova con l'apriscatole si dovrebbe aprire
e dentro ci trovi un sacco di robbbba.
bye :o))


title: lunghezza

text:
spiritoso! Uno fa una domanda per imparare e lui ride! Ma che gente!
Purtroppo non siamo tutti bravi come te, e che ci vuoi fa...
"Enrico T.S." <
wlarom...@hotmail.com
> ha scritto nel messaggio
news:hmmL8.5408$TS.1...@news1.tin.it...



title: Gantt con access

author: simisa

text:
Salve,
secondo voi è possibile creare un Gantt con Access ?
grazie


title: Gantt con access

author: Alessandro Baraldi

text:
"simisa" <
sim...@tiscalinet.it
> wrote in message
news:MPG.1cdb537c7...@news.tin.it
> Salve,
> secondo voi è possibile creare un Gantt con Access ?
>
> grazie
http://www.sitocomune.com/
Sezione [REPORTS]
4.5 Rappresentazione, su Report, di periodi temporali mediante segmenti.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Gantt con access

text:
In article <
9b07d716013a63b330...@mygate.mailgate.org
>,
ik2...@libero.it
 says...
> "simisa" <
sim...@tiscalinet.it
> wrote in message
>
news:MPG.1cdb537c7...@news.tin.it
> > Salve,
> > secondo voi è possibile creare un Gantt con Access ?
> >
>
http://www.sitocomune.com/
> Sezione [REPORTS]
> 4.5 Rappresentazione, su Report, di periodi temporali mediante segmenti.
>
Grazie mille, speriamo di farcela...


title: cercare file con FileDialog

author: Davide

text:
Buongiorno a tutti.
Utilizzando la propriet� FileDialog riesco ad aprire una finestra di dialogo
per la gestione di file di Windows.
E' possibile, mediante codice, aprire la finestra di dialogo, impostare
mediante la propriet� "InitialFileName" il percorso di una cartella, ed
eseguire la ricerca di un file all'interno delle sottocartelle?
Conoscendo solo il nome di un file e la cartella di livello superiore in cui
si trova, vorrei aprire le finestra di dialogo in modalit� "Cerca" ed
ottenere l'elenco dei file trovati.
Inoltre vorrei che mi fosse restituito il numero di file trovati (attraverso
una funzione vorrei quindi inserirlo come campo calcolato all'interno della
mia query dove ad ogni record corrisponde un nome di file).
E' possibile?
Grazie
Davide


title: cercare file con FileDialog

text:
Davide ha scritto:




Dovresti farti una funzione che cerchi in directory e subdirectory data la
radice in vba, il FileDialog nn credo possa (a meno di colpi di API,
forse.....). E anche un consiglio: FileDialog nn � pi� supportato in A>2003,
quindi io nn lo userei.......
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


title: cercare file con FileDialog

text:
"Fair87" <
roby...@gmail.com
> ha scritto nel messaggio
news:hm67n6$mlt$1...@news.nonsolonews.it...

Cercando un po' in internet ho trovato come fare. Usando
Application.FileSearch
Application.FileSearch.NewSearch
Application.FileSearch.LookIn = "PercorsoMiaCartella"
Application.FileSearch.SearchSubFolders = True
Application.FileSearch.FileName = "NomeMioFile"
Application.FileSearch.MatchTextExactly = True
Application.FileSearch.FileType = msoFileTypeAllFiles
If Application.FileSearch.Execute() > 0 Then
    MsgBox Application.FileSearch.FoundFiles.Count & " file(s) trovati."
    For i = 1 To Application.FileSearch.FoundFiles.Count
        MsgBox Application.FileSearch.FoundFiles(i)
    Next i
Else
    MsgBox "Nessun file trovato."
End If
Davide


title: relazioni novizio

author: Paolo Ardovino

text:
Salve a tutti, ho un problema da novizio credo.
Non riesco a vedere i dati se metto in una query 3 tabelle.
Relazioni:
Tab FILM uno a molti con ATTORI
Tab FILM uno a molti con REGIA
Se nella query metto solo FILM e REGIA o FILM e ATTORI tutto funziona.
Grazie in anticipo.
Paolo Ardovino


title: relazioni novizio

author: Sib

text:
"Paolo Ardovino" <
paoloa...@mclink.it
> ha scritto nel messaggio
>
> Salve a tutti, ho un problema da novizio credo.
> Non riesco a vedere i dati se metto in una query 3 tabelle.
>
> Relazioni:
> Tab FILM uno a molti con ATTORI
> Tab FILM uno a molti con REGIA
>
> Se nella query metto solo FILM e REGIA o FILM e ATTORI tutto funziona.
probabilmente non stai usando i "LEFT JOIN", ossia nella visualizzazione
query le relazioni che legano le tabelle tra loro dovrebbero rappresentare
delle frece e non semplici linee. clicca sulle relazioni e cambiane il tipo.
Sib


title: relazioni novizio

text:
> >
> > Salve a tutti, ho un problema da novizio credo.
> > Non riesco a vedere i dati se metto in una query 3 tabelle.
> >
> > Relazioni:
> > Tab FILM uno a molti con ATTORI
> > Tab FILM uno a molti con REGIA
> >
> > Se nella query metto solo FILM e REGIA o FILM e ATTORI tutto funziona.
>
> probabilmente non stai usando i "LEFT JOIN", ossia nella visualizzazione
> query le relazioni che legano le tabelle tra loro dovrebbero rappresentare
> delle frece e non semplici linee. clicca sulle relazioni e cambiane il
tipo.
>
> Sib
>
Hanno il simbolo uno a molti, lo devo cambiare?


title: relazioni novizio

text:
"Paolo Ardovino" <
paoloa...@mclink.it
> ha scritto nel messaggio

Il problema non e' il simbolo 1 a oo, ma il "lato" della relazione.
Normalmente una relazione impone che esista almeno un record in ciascuna
tabella, quindi se nella tabella A hai un record che non contiene record
correlati nella tabella B allora la query non mostra alcun record.
Se vuoi vedere il record della tabella A anche se non esistono record nella
tabella b devi fare una LEFT o una RIGHT JOIN, ossia una relazione che
mostra "tutti i record della tabella A e solo i record della tabella B che
hanno una relazione in A".
Se fai doppio clic sulla relazione (nella finesta della query, non nella
finestra delle relazioni) e selezioni la voce che ti interessa vedrai che
non e' difficile.
Sib


title: Funzione per colore di sfondo controlli

author: Davide Spagnoli

text:
Vorrei crearmi un funzione
esterna che mi cambi il
colore nei controlli di una maschera
con l'evento su attivato: giallo
su disattivato: bianco
Non mi viene...
Grazie a chi mi darà un mano!
Davide


title: Funzione per colore di sfondo controlli

text:
"Davide Spagnoli" <
spag...@spagnoli.it
> ha scritto nel messaggio
news:c107fk$aor$1...@lacerta.tiscalinet.it...

Imposta lo stile sfondo a: trasparente...
Ciao.
--
Sergio MAZZA


title: Funzione per colore di sfondo controlli

author: Alessandro Cara

text:
Davide Spagnoli wrote:
> Vorrei crearmi un funzione
> esterna che mi cambi il
> colore nei controlli di una maschera
> con l'evento su attivato: giallo
> su disattivato: bianco
a suo tempo ho fatto sta cosa:
---> da richiamare sulla open
Public Function SetEventFocus(frm As Form)
Dim cCtl As Control
For Each cCtl In frm.Controls
     If (cCtl.ControlType = acTextBox Or cCtl.ControlType = acComboBox) Then
         If cCtl.OnGotFocus = "" Then
             cCtl.OnGotFocus = "=chgcolor([Form],1)"
         End If
         If cCtl.OnLostFocus = "" Then
             cCtl.OnLostFocus = "=chgcolor([Form],1)"
         End If
     End If
Next
End Function
Public Function ChgColor(frm As Form, TipoCall As Integer)
Dim bColor As Long
Dim fColor As Long
bColor = frm.ActiveControl.BackColor
'If TipoCall = 1 Then
     frm.ActiveControl.BackColor = frm.ActiveControl.ForeColor
     frm.ActiveControl.ForeColor = bColor
End Function
c'era qualche effetto collaterale ma sostanzialmente funzionava
--
a.cara


title: Funzione per colore di sfondo controlli

author: ALESSANDRO Baraldi

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:c107vt$hjs$1...@canarie.caspur.it...

Stavo aspettando.....!!!
Fantastica ma scappa sempre.......
@Alex.


title: Funzione per colore di sfondo controlli

text:
Sergio MAZZA wrote:
[cut]
>
> Imposta lo stile sfondo a: trasparente...
fantastico e io che mi sono ammazzato!
--
a.cara


title: Funzione per colore di sfondo controlli

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:c108fv$1cm77a$1...@ID-163946.news.uni-berlin.de...

> a.cara
Non abbastanza, se hai risposto....!
@Alex.


title: Funzione per colore di sfondo controlli

text:
ALESSANDRO Baraldi wrote:
>>[cut]
>>
>>>Imposta lo stile sfondo a: trasparente...
>>
>>fantastico e io che mi sono ammazzato!
> Non abbastanza, se hai risposto....!
un vero amico ehh? ;<)
Va bene domani pago la bolletta del gas.
--
a.cara


title: Funzione per colore di sfondo controlli

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:c109v4$1cip7p$1...@ID-163946.news.uni-berlin.de...
> ALESSANDRO Baraldi wrote:
> >>[cut]
> > Non abbastanza, se hai risposto....!
> un vero amico ehh? ;<)
> Va bene domani pago la bolletta del gas.
> --
> a.cara
He......!
@Alex.


title: Funzione per colore di sfondo controlli

text:
Adesso provo.
Grazie a tutti che mi hanno dato una mano
Ciao, Davide - Mantova
"Davide Spagnoli" <
spag...@spagnoli.it
> ha scritto nel messaggio
news:c107fk$aor$1...@lacerta.tiscalinet.it...



title: Funzione per colore di sfondo controlli

text:
"Davide Spagnoli" <
spag...@spagnoli.it
> ha scritto nel messaggio
news:c10dvh$g9b$1...@lacerta.tiscalinet.it...
> Adesso provo.
> Grazie a tutti che mi hanno dato una mano
>
> Ciao, Davide - Mantova
>
Ciao Davide......
Alessandro - Bancole.....!
@Alex.


title: ODBC (Prima connessione Oracle)

author: Alberto Dessi

text:
Premessa: Ho costruito un applicazione che si connette anche ad un DB Oracle
e funzione tutto
Vorrei però passare all'apertura di una maschera che utilizza tabelle Oracle
direttamente i dati di login (come si fa da VB)
Pensavo ce facendo prima  una connessione da VB poi non me li chiedesse più
aprendo una maschera ma le due cose agiscono in modo indipendente.
Qualcuno ha una soluzione?
Grazie
Alberto


title: Fc

text:
ciao a tutti
come viene identificato nella FC [#Errore]?
ho provato anche con isError
Grazie


title: Fc

text:
Piero <
Pi...@Piero.Libero.it
> ha scritto:

cioe' vuoi passare il valore "#Errore" alla funzione?... e che valore e'
il valore #Errore se non un Errore ?... tu prima lo individui come errore,
e se non e' un errore lo passi alla funzione... non il contrario.

--
------------
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: Fc

author: pfmarro

text:

what is FC?


title: Fc

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201310290...@mynewsgate.net...

ciao Pablitomf
vorrei nascondere con la formattazione condizionale
eventuale "#Errore" nella casella di controllo con origine controllo
=miaSottomaschera.Form!IdOrdine
senza utilizzare una seconda casella di controllo


title: Fc

text:
"pfmarro" <
pfm...@gmail.com
> ha scritto nel messaggio
news:c5b7a4d5-e024-4c39...@googlegroups.com...

Formattazione Condizionale


title: Fc

text: Non so che tipo di errore puo' saltarti fuori. Potresti utilizzare nz() che converte nullo


title: Fc

author: Karl Donaubauer

text:
Piero wrote:
> ...
> vorrei nascondere con la formattazione condizionale
> eventuale "#Errore" nella casella di controllo con origine controllo
> =miaSottomaschera.Form!IdOrdine
> senza utilizzare una seconda casella di controllo

Espressione è     IsError(miaSottomaschera.Form!IdOrdine)

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


title: Fc

author: Piero

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:bd9l98...@mid.individual.net...

Grazie Karl
;-)


title: problemino facile facile....

author: Giuseppe Ciccolella

text:
Per voi ma non per me. :-(
Vorrei creare una label che mi dica quanti record sono presenti in una
maschera e quale nro di record è quello attivo.


title: problemino facile facile....

author: OndaMax

text:
"Giuseppe Ciccolella" ha scritto nel messaggio
> Vorrei creare una label che mi dica quanti record sono presenti in una
> maschera e quale nro di record è quello attivo.
Con la funzione DCount ottieni dall'origine dati della form il numero totale
dei record. Con Me.CurrentRecord ottieni il progressivo del record corrente.
Marco


title: Protezione DB ... 2 parte ( grazie ema )

author: apprendista

text:
Riepilogando sul quesito del 24/4/2000 delle 12.16 da posto ( grazie ancora
per sopportarmi)
Volendo proteggere un DB formato da BE e uno o più FE che sarebbero
installati presso un reparto ospedaliero ho :
1) eseguito passo passo le operazioni consigliate sul sito-ufficiale del NG
per creare un gruppo di lavoro
2) prove del caso .... ma mica ho capito fino in fondo  le funzioni svolte
dal Mio.mdw
3) in ultima battuta lancio Wrkgadm.exe per ripristinare System.mdw (il
default) e a questo punto mi viene un dubbio .... rilancio l'exe e entro nel
gestore dei gruppi dando il nome Mio.mdw e non do password , ma invio , mi
chiede se voglio riscrivere il file Mio.mdw esistente , gli dico Si e ... se
fossi un utente qualsiasi potrei smanettare il db a mio piacimento ....
Dopo la risposta gentile di un frequentatore del NG mi pare di capire che è
il MIo.mdw che bisogna proteggere , non bisognerebbe consegnarlo agli utenti
..... ma se (come nel mio caso) il reparto non è in rete come faccio ???
 non c'è un server NT , per adesso per cui non posso dare la riga di comando
con /wrkgrp \\nt\mio.mdw etc) .
Potrei creare dei .Mde per quanto riguarda gli FE ma per il BE ??
Scusate le noie che procuro sull'argomento .....
ancora grazie all'NG
Ciao Riviera