text:
"Luca" <
luca...@libero.it
> ha scritto nel messaggio
news:1kjj64etw3q2m.1...@40tude.net...
> Il Fri, 9 Dec 2005 13:07:50 +0100, Carlo Costarella ha scritto:
>
>>
>>
>> "Luca dall'edicola" <
lche...@tiscali.it
> ha scritto nel messaggio
>> news:1134129187.6...@g44g2000cwa.googlegroups.com...
>> Salve a tutti,
>>   da quello che ho letto e forse anche capito da n tentativi non si
>> può impostare una combobox su maschera visualizzazione foglio dati o
>> sbaglio?
>> nemmeno scrivendo 1000/1500 righe di codice VBA?
>>
>> Che suggerimenti mi dareste per impostare una cosa similare, fate conto
>> che la forma con il foglio dati dovrebbe essere è più o meno così:
>>
>> colonnaA    colonnaB
>> X              (combobox per selezionare valore collerato a colonnaA)
>> Y              "
>> Z              "
>> X               "
>>
>> grazie anticipatamente a tutti
>> Ciao
>>
>> Si può e come! Senza scrivere una sola riga di codice.
>> Il tutto va gestito dalla tabella...vedi post "Problemi con il pulsante
>> di
>> opzione", poche righe sopra.
>>
>> Ciao, Carlo
>
> Aspetta forse non mi sono spiegato bene.
> Ho una form con indicato un articolo e una subform in modalita
> visualizzazione foglio dati; dato l'articolo, nella subform inserisco
> delle
> voci (variabili a seconda dell'articolo scelto) sulla colonnaA, nella
> colonnaB devo selezionare un dato valore legato a contenuto colonnaA, per
> esempio se su colonnaA c'e' COLORE nella combobox (che vorrei fare ma non
> riesco) devo poter selezionare i colori provenienti da una tabella.
>
> Adesso forse è meglio..
> Ciao
> Luca
>
E allora? La maschera o la sottomaschera conservano le proprietà e gli
eventi dei controlli, proprio come se fossero visualizzati in modalità
maschera. Non solo puoi usare combo ma anche scrivere del codice perchè, ad
esempio, una combo cambi la propria origine riga su selezionato o in
risposta ad un evento di un altro controllo.
In pratica dopo aggiornamento del controllo nella colonnaA scrivi una riga
di codice: me.ControlloInColonnaB.RowSource = "QuelloChe vuoi"
me.ControlloInColonnaB.requery.
Il tutto va gestito con la sottomaschera in modalità struttura. Se hai usato
le combo di ricerca (casella combinata) nella tabella in stuttura, ti
ricordo che l'autocomposizione "maschera foglio dati" non si trascina la
casella combinata del  campo ma questa sarà prontamente inserita se prima
elimini il controllo dalla maschera e poi lo reinserisci. Non così per
l'autocomposizione maschera standard.
Inoltre puoi aggiungere tutte le combo che vuoi direttamente nel foglio dati
in visualizzazione struttura ma in questo caso assumeranno sempre lo stesso
valore per tutte le righe. quello che ti consiglio è di usare le combo di
ricerca direttamente dala tabella e poi agire sulla loro "origine riga"
nella maschera. L'Origine riga deve essere comunque compatibile con il dato
contenuto nel controllo perchè esso è legato ad un campo della tabella
(origine controllo).
Ciao, Carlo


title: Combobox su maschera visualizzazione foglio dati

author: Luca dall'edicola

text:
Ti ringrazio per tutte le delucidazioni che mi hai dato, grazie a te
sono riuscito nel mio intento.
Grazie ancora
PS ma cosa ci fai attaccato a questo ng alle 7.43 di sabato mattina??
(passione o insanità mentale?!?)
Ciao Luca


author: Carlo Costarella

text:
"Luca dall'edicola" <
lche...@tiscali.it
> ha scritto nel messaggio
news:1134249790....@g47g2000cwa.googlegroups.com...
<Ti ringrazio per tutte le delucidazioni che mi hai dato, grazie a te
<sono riuscito nel mio intento.
<Grazie ancora
<PS ma cosa ci fai attaccato a questo ng alle 7.43 di sabato mattina??
<(passione o insanitą mentale?!?)
<Ciao Luca
Ciao
sono contento che hai risolto.
Solo alle 7.43? E se leggi l'orario di questa risposta...che dirai?
I miei nonno dicevano: "il mattino ha l'oro in bocca"...
Ciao, Carlo


title: se tutti i campi della tabella sono zero nascondo il campo

text:
come controllo se il campo di tutti i record di una tabella sono a zero e in
quel caso nascondo un certo campo che deve essere visibile se e solo se
almeno uno č diverso da zero?
Grazie.


author: Cinzia

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:cmtqdr$9g6$1...@lacerta.tiscalinet.it...

Ciao Simba883,
prova cosě:
If Dcount("Campo", "TAbella", "Campo > 0 ") then
...
Facci sapere!
Saluti
Cinzia


title: Dao3.5 vs. Dao3.6

author: Nicky

text:
Non voglio sapere chi vince, :-)
volevo solo sapere se cambiando il riferimento dalla prima alla seconda
dll devo riprovare tutto il mio db o se il comportamento è identico
ciao
Nicky


title: Dao3.5 vs. Dao3.6

author: Ferrari Rino

text:
"Nicky" <
Nick...@virgilio.it
> ha scritto nel messaggio
news:jgtNd.505076$b5.23...@news3.tin.it...

Si e lo stesso anzi e stato migliorato con delle nuove funzionalità(o
adattamenti)
 invece con l'opposto avrai molti problemi!
Ferrari Rino


title: database CAP in formato .mdb

text:
ciao a tutti,
avete per caso un database dei C.A.P italiani in fomato Access??? Ho
scaricato quello presente sul sito delle Poste Italiane ma è in formato
testo. In alterativa come posso fare per estrarre i dati dal file di testo
ed inserirli in un db .mdb???
ciao!


title: database CAP in formato .mdb

author: Sib

text:
"schumy83" <flys...@NOSPAM.it> ha scritto nel messaggio

Hai mai sentito parlare dell'importazione dati esterni?
Dai un'occhiata al menu file.
Sib


title: database CAP in formato .mdb

author: Luigi

text:
Non riesco a trovarlo sul sito delle Poste. Potresti dirmi dove trovarlo
anche in formato testo ?
Grazie


title: query dati non corrispondenti con p key doppia

author: Marco

text:
    Brutta situazione (spero non così brutta)
Ho guardato altri post ma nessuno mi aiuta
Guarderò meglio sperando mi sia sfuggito qualcosa. cmq...
Tabella ORIGINE
IdNum
IdCount
Data
Persona
.......
Devono andare a finire in una tabella così strutturata:
IDNum (PK)
IDcount (PK)
Data
Persona
......
la cui chiave primaria è cioè costituita sia dall'Idcount sia dall'IDNUm
Ho creato una query dati non corrispondenti coì strutturata:
SELECT Tabella1.* FROM Tabella1 LEFT JOIN Tabella2 ON
[Tabella1].[IdNum]=[Tabella2].[IdNum]
WHERE (([Tabella2].[IdNum] isnull));
Questa query va bene nel caso in cui l'Idcount è uguale MA E' DIVERSA LA
DATA:
Cioè
Tabella1 (ORIGINE)
idcount     data
001        7/7/2003
              8/7/2003
              9/7/2003
Tabella2
idcount     data        persona
001        7/7/2003
              8/7/2003
mi accoda a Tabella2 il valore
001        9/7/2003
Il problema sorge qui:
Tabella1 (ORIGINE)
idcount     data
001        7/7/2003
002        7/7/2003
Tabella2
idcount     data        persona
001        7/7/2003
001        8/7/2003
Lui non mi accoda il record
002       7/7/2003
perché vede che il valore 7/7/2003 è già presente.
Come faccio a dirgli che deve guardare l'insieme e non solo DATA?
Grazie a tutti per l'aiuto


author: Giorgio Prx

text:
"Marco" <
marpis...@yahoo.it
> ha scritto nel messaggio
news:c5CWa.220622$Ny5.6...@twister2.libero.it...

Ciao Marco
Devi usare una doppia left Join
SELECT Tabella1.*
FROM Tabella1 LEFT JOIN Tabella2 ON
           [Tabella1].[IdNum]=[Tabella2].[IdNum] AND
           [Tabella1].[IdCount]=[Tabella2].[IdCount]
WHERE (([Tabella2].[IdNum] isnull));
Ciao Giorgio


text:
"Giorgio Prx" <
giorgio...@nospamtiscali.it
> ha scritto nel messaggio
news:bgfv9h$m7i$1...@lacerta.tiscalinet.it...
>
> "Marco" <
marpis...@yahoo.it
> ha scritto nel messaggio
> news:c5CWa.220622$Ny5.6...@twister2.libero.it...
> >     Brutta situazione (spero non cosě brutta)
> > Ho guardato altri post ma nessuno mi aiuta
> > Guarderň meglio sperando mi sia sfuggito qualcosa. cmq...
>
> Ciao Marco
> Devi usare una doppia left Join
>
> SELECT Tabella1.*
> FROM Tabella1 LEFT JOIN Tabella2 ON
>            [Tabella1].[IdNum]=[Tabella2].[IdNum] AND
>            [Tabella1].[IdCount]=[Tabella2].[IdCount]
> WHERE (([Tabella2].[IdNum] isnull));
>
> Ciao Giorgio
>
>
Ops
La seconda Left Join devi farla sulla data non su Idcount.
Ciao Giorgio


text:
"Giorgio Prx" <
giorgio...@nospamtiscali.it
> ha scritto nel messaggio
news:bgfvjo$me1$1...@lacerta.tiscalinet.it...

Grazie Giorgio, sei sempre un grande... :-)
Marco
.


title: Aiuto HelpWorkshop / WinHelp

author: Gisco

text:
Debbo creare un file di Help per un applicazione access, credevo fosse
facile utilizzando Help workshop nell' ODE, invece sono rimasto deluso. Le
istruzioni sono incomprensibili o c'e' qualcosa di personale tra me e'
questo programma sta' di fatto che non riesco a creare il file di help che
vorrei. Il problema principale che incontro e' che non so' inserire quelli
che il programma chiama "Topics ID" per richiamare un tema di help da un
altra pagina, ne riesco ad inserire un "title footnote to a topic". La guida
del programma mi dice di inserire il carattere "#" prima del "topic ID" e il
carattere "$" prima del titolo dell'argomento, ma mi ritrovo questi
caratteri nel file di help creato.
Saluto tutti coloro che leggeranno e ringrazio in anticipo chi puo' darmi
una mano a risolvere questo problema, sarebbe gradita anche l'indicazione di
una guida in italiano al programma ma non ci metto speranze data la
semplicita' relativa del programma.
Di nuovo cordiali saluti a tutti
Gisco


title: Aiuto HelpWorkshop / WinHelp

author: Giza

text:
Gisco <
gios...@iol.it
> wrote in message
Nzla4.10089$1W4.1...@news.infostrada.it...

I caratteri speciali ($, #, K, ecc.) vanno messi prima dell'inizio della
pagina di help(ad esempio prima della prima lettera del titolo) come
footnote; a tal scopo scegli dal menů inserisci la voce note e dopo di che
immetti il simbolo nella voce numerazione persnalizzata. Dando OK, Word si
posiziona nel pič pagina dove devi mettere la parola che rappresenta la
pagina.
Ciao, ... Seve
--
Stiamo facendo il possibile...
per i miracoli ci stiamo attrezzando.


title: server di rete

author: Agos

text:
Poiché avrei intenzione di imparare a programmare in ambiente client-Server,
ho approntato una mini-rete costituita da due computer.Adesso vorrei che uno
dei due fungesse da server. Si può fare? e se sì come?
Grazie per l'attenzione.
Agos


title: server di rete

author: Paolo opg

text:
"Agos" <
agostino...@tin.it
> wrote in
news:3s_gb.22328$
e6.7...@twister2.libero.it
:

premesso che l'architettura client-server non necessita obbligatoriamente
di due macchine distinte, che tipo di programmi vuoi fare?
con che linguaggi?
per fare cosa?
presumo basi di dati, ma se chiarisci cosa vuoi fare con qualche
dettaglio...
--
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
+-------


title: server di rete

text:
"Paolo opg" <
w...@ne.com
> ha scritto nel messaggio
news:Xns940FDD9A...@193.43.96.1...

Vorrei poter creare programmi per la gestione dati con access. Ho già un
minimo di esperienza con la gestione di tabelle collegate, ma so che il
mondo client/server è tutta un'altra cosa. Il primo passo però bisognerà pur
farlo e ti sarei grato se volessi darmi qualche dritta su come iniziare. Per
il momento sono riuscito a far funzionare due computer in rete. Adesso
vorrei configurare il drive ODBC, ma non ci riesco perché non mi riconosce
la macchina server. Credo (correggimi se sbaglio) che per ottenere il
risultato sia necessario installare un sistema operativo idoneo. Considera
che adesso sulla macchina che dovrebbe fungere da server c'è installato il
s.o. Windows 98 II Ed.. Ho sentito dire però che anche senza un s.o.
specifico potrei ottenere lo stesso risultato con l'installazione di
programmi particolari. E' vero? Quali?
Bene. Ora sai quanto sono confuso. Vedi tu se riesci a sbrogliarmi.


title: server di rete

text:
"Agos" <
agostino...@tin.it
> wrote in
news:7sQhb.26683$
vO5.9...@twister1.libero.it
:
>
> Vorrei poter creare programmi per la gestione dati con access. Ho già
> un minimo di esperienza con la gestione di tabelle collegate, ma so
> che il mondo client/server è tutta un'altra cosa. Il primo passo però
> bisognerà pur farlo e ti sarei grato se volessi darmi qualche dritta
> su come iniziare. Per il momento sono riuscito a far funzionare due
> computer in rete. Adesso vorrei configurare il drive ODBC, ma non ci
> riesco perché non mi riconosce la macchina server. Credo (correggimi
> se sbaglio) che per ottenere il risultato sia necessario installare un
> sistema operativo idoneo. Considera che adesso sulla macchina che
> dovrebbe fungere da server c'è installato il s.o. Windows 98 II Ed..
> Ho sentito dire però che anche senza un s.o. specifico potrei ottenere
> lo stesso risultato con l'installazione di programmi particolari. E'
> vero? Quali? Bene. Ora sai quanto sono confuso. Vedi tu se riesci a
> sbrogliarmi.
>
parlando di macchine, un server è un 'pc' che ha come compito principale
la fornitura di servizi a dei client.
parlando di sw, si tratta di un programma che fornisce il servizio vero e
proprio (pagine web, news, dati) ai client che si collegano.
in ambienti di produzione, solitamente si hanno delle macchine di classe
server, con so server, che forniscono servizi (hanno installati programmi
server).
per fare delle prove, puoi tenere win98 (meglio 2kpro) e provare a
installare un server sql.
(free, dovrebbe esserci mysql)
in questo modo, puoi creare un ambiente client-server realistico senza
spendere una fortuna o imbarcarti nell'installazione/configurazione di un
server che non ti serve...



title: server di rete

text:
"Paolo opg" <
w...@ne.com
> ha scritto nel messaggio
news:Xns9411880B5...@193.43.96.1...

Per il momento ti ringrazio; proverò ad organizzarmi come mi hai suggerito.


title: server di rete

text:
"Agos" <
agostino...@tin.it
> ha scritto nel messaggio
> Vorrei poter creare programmi per la gestione dati con access. Ho già un
> minimo di esperienza con la gestione di tabelle collegate, ma so che il
> mondo client/server è tutta un'altra cosa. Il primo passo però bisognerà
pur
> farlo e ti sarei grato se volessi darmi qualche dritta su come iniziare.
Per
> il momento sono riuscito a far funzionare due computer in rete. Adesso
> vorrei configurare il drive ODBC, ma non ci riesco perché non mi riconosce
> la macchina server. Credo (correggimi se sbaglio) che per ottenere il
> risultato sia necessario installare un sistema operativo idoneo. Considera
> che adesso sulla macchina che dovrebbe fungere da server c'è installato il
> s.o. Windows 98 II Ed.. Ho sentito dire però che anche senza un s.o.
> specifico potrei ottenere lo stesso risultato con l'installazione di
> programmi particolari. E' vero? Quali?
> Bene. Ora sai quanto sono confuso. Vedi tu se riesci a sbrogliarmi.
Che versione di access hai?
Sib


title: numero di decimali fissi

text:
Come faccio a definire un campo di calcolo con un numero di decimali fissi ?
Vorrei cioč avere un campo tippo DECIMAL ma definito a calcolo.
Grazie


title: numero di decimali fissi

author: Roberto da casa

text:
"af0682" <
af0...@inwind.it
> ha scritto nel messaggio
news:dEiW7.9458$db7.9...@twister2.libero.it...

I campi calcolati di una query o i controlli calcolati di una maschera o di
un report non vanno definiti. Per essi puoi solo definire il formato di
visualizzazione.
Se vuoi che il loro valore contenga un numero ben preciso di decimali, alla
fine dell'algoritmo di calcolo che crea il loro valore, richiama una
funzione che ne effettui l'arrotondamento e/o il troncamento dei decimali.
Se per l'arrotondamento ti sta bene il criterio commerciale, nella Sezione
General del Sito Comune (link qui sotto) trovi una funzione di Karl molto
ben fatta.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: numero di decimali fissi

author: Claudio

text:
uso access 1.0 e non esiste la funzione round.
io volevo anteporre direttamente nel campo della query questo "eventuale"
codice che mi consentisse di ottenere il risultato sperato.
ho anche visto la funzione da voi consigliata presa dal sito comune. ma non
sono in grado di utilizzarla dato che tutto il dbase è stato fatto con
l'autocomposizione.
se qualcuno gentilmente potesse indicarmi dove e come fare il copia/incolla
di quel codice, e come utilizzarlo ne sarei molto grato.
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:IKpW7.10294$db7.9...@twister2.libero.it...
>
> "af0682" <
af0...@inwind.it
> ha scritto nel messaggio
> news:dEiW7.9458$db7.9...@twister2.libero.it...
> > Come faccio a definire un campo di calcolo con un numero di decimali
fissi
> ?
> > Vorrei cioè avere un campo tippo DECIMAL ma definito a calcolo.



title: Istruzione Requery.

author: Rob

text:
Salve a tutti,
mi date una mano per favore ?
Ho una tabella ORDINI in cui inserisco tramite una maschera ACQUISTO dei
PRODOTTI, la quantità e il prezzo.
La maschera generale, in cui c'è un pulsante che mi apre la maschera di
acquisto, ha una sottomaschera che visualizza l'elenco dei prodotti
acquistati, tramite una query AGGPRODOTTI in cui la quantità è maggiore di
0, visualizzata in foglio dati; vorrei fare in modo che quando inserisco un
prodotto, la sottomaschera della query si aggiornasse in auotmatico con il
prodotto appena inserito.
sono alle prime armi con Access, ma dalla guida, mi sembra che il comando in
questione sia docmd.requery ma non so dove impostarlo e come.
Grazie !


title: Istruzione Requery.

text:
Forse può essere utile per chi inizia come me !
 ho inserito sull'evento di chiusura della maschera Acquisto :
Forms![Menu Generale]![Sottomaschera Prodotti].Requery
PS. scusate la banalità della domanda !
"Rob" <
r...@libero.it
> ha scritto nel messaggio
news:5tbRf.30575$PR2.6...@twister2.libero.it...



title: Istruzione Requery.

author: MA

text:
Rob wrote:
> Forse puň essere utile per chi inizia come me !
bene, allora inizia bene e scrivi DOPO il quoting su questo NG
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Istruzione Requery.

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:dv3u8h$8d3$1...@area.cu.mi.it...

OK
Ciao !


title: problema di calcolo

author: Martino

text:
Ho una struttura a schede. Nella prima scheda un campo si aggiorna a seconda
del valore di un campo nella seconda scheda: in origene controllo ho messo
"IIf( valore camposecondascheda > 5; 10;"".
 Il problema è che il campo della prima scheda si aggiorna solo dopo la
chiusura e riapertura del DB. Ho provato a mettere nell'evento "prima di
aggiornare" e"in attesa" :
 DoCmd.RunCommand acCmdSaveRecord
ma non funziona.
Dove sbaglio?


title: problema di calcolo

author: AndreaPapi

text:
Martino ha scritto:

forse è sufficiente l'istruzione Requery
me!nomeCampo.Requery
ciao
Andrea Papi


title: problema di calcolo

author: Osvaldo

text:
Non va, avevo già provato. anche con refresch non va bene!
grazie comunque.
"AndreaPapi" <
ap...@libero.it
> ha scritto nel messaggio
news:1171921640....@v45g2000cwv.googlegroups.com...



title: problema di calcolo

author: Antonio Biso

text:
"Osvaldo" <
or...@tin.it
> ha scritto nel messaggio
news:erd8ai$5ri$1...@carabinieri.cs.interbusiness.it...
> Non va, avevo già provato. anche con refresch non va bene!
Più che altro non va bene che non scrivi correttamente DOPO il quoting
>
> "AndreaPapi" <
ap...@libero.it
> ha scritto nel messaggio
> news:1171921640....@v45g2000cwv.googlegroups.com...
>
> Martino ha scritto:
>
> > Ho una struttura a schede. Nella prima scheda un campo si aggiorna a
> > seconda
> > del valore di un campo nella seconda scheda: in origene controllo ho
messo
> > "IIf( valore camposecondascheda > 5; 10;"".
> >  Il problema è che il campo della prima scheda si aggiorna solo dopo la
> > chiusura e riapertura del DB. Ho provato a mettere nell'evento "prima di
> > aggiornare" e"in attesa" :
> >  DoCmd.RunCommand acCmdSaveRecord
> > ma non funziona.
> > Dove sbaglio?
>
> forse è sufficiente l'istruzione Requery
>
> me!nomeCampo.Requery
nell'origine controllo ci manca un =
=iif(...
Antonio


title: Orinamneto automatico in base alla categoria

text:
Salve
vorrei inserire in una query un'ordinamento di  questo tipo
se la categoria č p.e. x mi dovrebbe prendere le prime 4 lettere della
parola contenuta nel campo descrizioni
se la categoria č p.e. y mi deve ordinare progressivamente inserendo per
primo una lettera (che sarň io a deciderla) p.e. Z, cioč Z1, Z2 ecc.
Grazie


text:
On 5 Giu, 15:29, "Marco" <HMa...@Libero.it> wrote:
> Salve
>
> vorrei inserire in una query un'ordinamento di  questo tipo
> se la categoria p.e. x mi dovrebbe prendere le prime 4 lettere della
> parola contenuta nel campo descrizioni
> se la categoria p.e. y mi deve ordinare progressivamente inserendo per
> primo una lettera (che sar io a deciderla) p.e. Z, cio Z1, Z2 ecc.
>
> Grazie
Sei Marco oppure Ugo...?
Se ordini un campo Testo quello che dici avviene già...!!
@Alex


text:
ciao
no sono Marco
spiega meglio
grazie
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:f14930ea-56e5-4906...@v37g2000yqb.googlegroups.com...



text:
ho trovato
MID(<nome campo>; pos.dipartenza;num di caratteri da leggere)
"Marco" <HMa...@Libero.it> ha scritto nel messaggio
news:4debc077$0$38639$4faf...@reader1.news.tin.it...



title: DAO e query su db esterno

author: Marco dell'Oste

text:
ciao ng,
un nuovo quesito a voi grandi.
Voglio eseguire delle query su un db esterno e a tal proposito se non vado
erratto DAO è la miglior soluzione, indi x cui ecco qui alcune righe di
codice:
***********************
   Dim wrkJet As Workspace
    Dim dbExt As DAO.Database
    Dim qdfExt As DAO.QueryDef
    Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
    Set dbExt = wrkJet.OpenDatabase("c:\prove\origine.mdb")
*   dbExt.QueryDefs("buoni").Execute
    dbExt.Close
***********************
Di cui chiedo alcune delucidazioni:
>    Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
 'a che servono ste variabili?? (admin,dbUseJet)
>    Set  qdfExt =dbExt.QueryDefs("buoni").Execute
* xche mi da errore utilizzando l'istruzione in questo modo? invece
utilizzandola come sotto funziona??
    dbExt.QueryDefs("buoni").Execute
inoltre, la query "buoni" è una query di creazione tabella, ma se la query è
gia stata lanciata e quindi la tabella gia esiste mi da errore (Tabella gia
esistente)
Come faccio a raggirare sto errore??
Grazie, spero in un nuovo consiglio costruttivo.
Marco


title: DAO e query su db esterno

author: ALESSANDRO Baraldi

text:
"Marco dell'Oste" <ma...@inwin.ti> ha scritto nel messaggio
news:w1uod.47133$Es2.1...@twister2.libero.it...
> ciao ng,
>
> un nuovo quesito a voi grandi.
>
> Voglio eseguire delle query su un db esterno e a tal proposito se non vado
> erratto DAO è la miglior soluzione, indi x cui ecco qui alcune righe di
> codice:
>
> ***********************
>    Dim wrkJet As Workspace
>     Dim dbExt As DAO.Database
>     Dim qdfExt As DAO.QueryDef
>
>     Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
>     Set dbExt = wrkJet.OpenDatabase("c:\prove\origine.mdb")
>
> *   dbExt.QueryDefs("buoni").Execute
>
>     dbExt.Close
> ***********************
>
>
> Di cui chiedo alcune delucidazioni:
>
> >    Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
>
>  'a che servono ste variabili?? (admin,dbUseJet)
L'help a riguardo spiega decisamente bene cosa sono... forse ti è
sfuggito..???
> >    Set  qdfExt =dbExt.QueryDefs("buoni").Execute
>
> * xche mi da errore utilizzando l'istruzione in questo modo? invece
> utilizzandola come sotto funziona??
>
>     dbExt.QueryDefs("buoni").Execute
In questo modo Esegui la Query, nel modo precedente fai un'operazione
non definita, vorresti assegnare all'oggetto qfdExt(che immagino sia
un'oggetto Querydef), ma il risultato dell'azione non è un oggetto Querydef
pertanto non è fattibile.
> inoltre, la query "buoni" è una query di creazione tabella, ma se la query
è
> gia stata lanciata e quindi la tabella gia esiste mi da errore (Tabella
gia
> esistente)
> Come faccio a raggirare sto errore??
Verifica se esiste la Tabella prima di eseguire la query(trovi il Codice nel
mio sito
alla Sezione Tables), oppure fai un tentativo di cancellarla, intercettando
l'errore
e gestendolo nel caso non esista.
> Grazie, spero in un nuovo consiglio costruttivo.
>
> Marco
Ciao.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: DAO e query su db esterno

text:
> >
> > Di cui chiedo alcune delucidazioni:
> >
> > >    Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
> >
> >  'a che servono ste variabili?? (admin,dbUseJet)
>
>
> L'help a riguardo spiega decisamente bene cosa sono... forse ti è
> sfuggito..???
l'ho letto ma non mi è ben chiaro a cosa servono tali campi con questa
istruzione.. tutti, ma in modo particolare "dbUseJet"
> > Come faccio a raggirare sto errore??
>
> Verifica se esiste la Tabella prima di eseguire la query(trovi il Codice
nel
> mio sito
> alla Sezione Tables), oppure fai un tentativo di cancellarla,
intercettando
> l'errore
> e gestendolo nel caso non esista.
grazie per la dritta è quello che farò, e complimenti per il sito, ho avuto
modo di 'visitarlo' qualche giorno fa!!
>
> Ciao.
> --
> @Alex (Alessandro Baraldi)
Ciao e grazie
Marco


title: ListBox...da query

author: Enrico Virginio

text:
Ho creato una query da prendere come origine dati per una
listbox...ma...durante l'autocomposizione della stessa mi si blocca e mi
dice "no value given for one or more required parameters", a parte che
non so perchè il msg sia in inglese..visto che ho la versione ITA,
cmq...da che dipende ? l'unica cosa particolare della query è che su un
campo ho un criterio del tipo = Forms!Nome_maschera!Nome_campo
Grazie
Cia.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: ListBox...da query

author: Emyr

text:
On Fri, 5 Apr 2002 21:34:04 +0000 (UTC), "Enrico Virginio"
<
nor...@libero.it
> wrote:
>Ho creato una query da prendere come origine dati per una
>listbox...ma...durante l'autocomposizione della stessa mi si blocca e mi
>dice "no value given for one or more required parameters", a parte che
>non so perchè il msg sia in inglese..visto che ho la versione ITA,
>cmq...da che dipende ? l'unica cosa particolare della query è che su un
>campo ho un criterio del tipo = Forms!Nome_maschera!Nome_campo
>
>
>Grazie
>Cia.
la forms in questione è aperta?
Saluti.
Emanuele.


title: Comando Sfoglia

author: Zax

text:
Salve, uso il seguente comando per memorizzare il percorso del file in un
campo. Ogni volta lo devo fare manualmente mi potreste indicare un comando
che mi permette di sfogliare in modo da ricercare il file senza scrivere
ogni volta il percorso?
Grazie.
Zax
Percorso = InputBox("Inserire il nuovo " _
        & "percorso del file immagine", "CAMBIO IMMAGINE LAVORO")


title: Comando Sfoglia

text:
"Zax" <
z...@zax.com
> ha scritto nel messaggio
news:44f54205$0$13733$5fc...@news.tiscali.it...

nel codice del pulsante metti
    me.textbox = BrowseFolder("Scegli la cartella")
BrowseFolder la definisci in un modulo nel seguente modo
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias
"SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type
Private Const BIF_RETURNONLYFSDIRS = &H1&
' Sfoglia cartelle per percorso
Function BrowseFolder(szDialogTitle As String) As String
  Dim x As Long, bi As BROWSEINFO, dwIList As Long
  Dim szPath As String, wPos As Integer
    With bi
        .hOwner = hWndAccessApp
        .lpszTitle = szDialogTitle
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With
    dwIList = SHBrowseForFolder(bi)
    szPath = Space$(512)
    x = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
    If x Then
        wPos = InStr(szPath, Chr(0))
        BrowseFolder = Left$(szPath, wPos - 1)
    Else
        BrowseFolder = ""
    End If
End Function


title: Comando Sfoglia

text:
Ho copiato tutto il codice in un modulo, iniziando da:
>
>
> Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias
> "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As
> Long
> Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias
> "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
tutto ok, ma la parte soprastante la segna in rosso, sbaglio sintassi?



title: Comando Sfoglia

text:
Ok risolto grazie.
un ultima cosa e se volessi selezionare il file?
"Zax" <
z...@zax.com
> ha scritto nel messaggio
news:44f54a46$0$13734$5fc...@news.tiscali.it...



title: Comando Sfoglia

text:
Zax wrote:
> Ho copiato tutto il codice in un modulo, iniziando da:
>>
>>
>> Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias
>> "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String)
>> As Long
>> Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias
>> "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
>
> tutto ok, ma la parte soprastante la segna in rosso, sbaglio sintassi?
>
O metti un underscore dopo Alias
o metti tutto su di un rigo

--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: AIUTO NON RIESCO A GENERARE EVENTO O MACRO

author: gabriele

text:
Per cortesia c'č qualche anima buona che mi puņ aiutare a compilare una
macro per rendere visibile un oggetto a video su una maschera? grazie
--
Saluti Gabriele


text:
gabriele <
mga...@inwind.it
> wrote in message
8t702o$nf5$1...@nread2.inwind.it...
> Per cortesia c'č qualche anima buona che mi puņ aiutare a compilare una
> macro per rendere visibile un oggetto a video su una maschera? grazie
Io prima di tutto mi raccomanderai a qualche diavolo che ti aiuti a spiegare
meglio i tuoi problemi...
Antonio


title: Eliminare n record da una tabella

author: Salvatore

text:
In una tabella senza riferimenti cronologici (contatore, data inserimento
ecc.) con 3000 record, ne vorrei eliminare 2000 con una query di
eliminazione o, comunque, con una procedura automatica.
I record da eliminare non possiedono nessuna particolarità, lo scopo è
semplicemente quello di riportare la tabella a 1000 righe.
Potreste suggerirmi una soluzione?
Vi ringrazio
Salvatore


title: Eliminare n record da una tabella

text:
"Salvatore" <
sal...@tiscali.it
> ha scritto nel messaggio
news:bnh2b6$vis$1...@lacerta.tiscalinet.it...

Se non hai un criterio spiegami come una procedura automatica
può interpretarlo.
Se ti può star bene puoi eliminare i primi 2000 usando TOP nella
query DELETE.....!!!
@Alex.


title: Eliminare n record da una tabella

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:bnh2g2$vlt$1...@lacerta.tiscalinet.it...

Non ci avevo pensato.
Grazie
Salvatore


title: Eliminare n record da una tabella

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:bnh2g2$vlt$1...@lacerta.tiscalinet.it...

Ho provato, ma nelle query di eliminazione non è possibile usare TOP.
Supponiamo, allora, che il criterio di eliminazione sia: tutti i record
successivi al millesimo. E' possibile da codice?
Ciao
Salvatore


title: Eliminare n record da una tabella

text:
"Salvatore" <
sal...@tiscali.it
> ha scritto nel messaggio
news:bnh374$fl$1...@lacerta.tiscalinet.it...
[CUT]
> >
> > Se non hai un criterio spiegami come una procedura automatica
> > può interpretarlo.
> > Se ti può star bene puoi eliminare i primi 2000 usando TOP nella
> > query DELETE.....!!!
> >
> Ho provato, ma nelle query di eliminazione non è possibile usare TOP.
> Supponiamo, allora, che il criterio di eliminazione sia: tutti i record
> successivi al millesimo. E' possibile da codice?
> Ciao
> Salvatore
>
Hai ragione, ma si potrebbe fare ugualmente usando 2 query la prima di
selezione
e la 2° di Eliminazione.....!
L'alternativa è che ti crei un bel Recordset e cancelli con un ciclo i primi
1000.
Private Sub Cancella(n as long)
    Dim rs as DAO.Recordset
    Dim x as long
    Set rs=Currentdb.openrecordset("NomeTabelle",dbopentable)
    rs.movefirst
    For x=0 to n-1
        rs.delete
    next
End Sub
Ciao.


title: Eliminare n record da una tabella

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:bnh4bl$1c4$1...@lacerta.tiscalinet.it...

Grazie di nuovo. La seconda soluzione va benissimo.
 Per quanto riguarda la prima, ho provato anch'io la stessa strada, ma
quando provo a far partire la query di eliminazione (mettendo in relazione
la tabella originaria e la query di selezione con i primi 2000 record)
ottengo un messaggio del tipo: non è possibile eliminare dalla tabella. Come
mai? Forse perchè i dati della tabella e della query hanno la stessa
origine?
Ciao
Salvatore


title: Eliminare n record da una tabella

author: Giorgio Prx

text:
"Salvatore" <
sal...@tiscali.it
> ha scritto nel messaggio
news:bnh2b6$vis$1...@lacerta.tiscalinet.it...

Ciao Salvatore
Prova questa query
----------------------
DELETE * FROM
   (SELECT TOP 2000 * FROM TuaTabella)
---------------------
Ciao Giorgio


title: Eliminare n record da una tabella

text:
"Giorgio Prx" <
giorgio...@nospamtiscalinet.it
> ha scritto nel messaggio
news:bnh753$43b$1...@lacerta.tiscalinet.it...

Grazie, Giorgio. Funziona perfettamente.
Ma se, anzichè i primi 2000, volessi eliminare gli ultimi 2000 record?
Ciao
Salvatore


title: Eliminare n record da una tabella

text:
"Salvatore" <
sal...@tiscali.it
> ha scritto nel messaggio
news:bnh7l4$4h9$1...@lacerta.tiscalinet.it...
>
> "Giorgio Prx" <
giorgio...@nospamtiscalinet.it
> ha scritto nel
messaggio
> news:bnh753$43b$1...@lacerta.tiscalinet.it...
> >
> > "Salvatore" <
sal...@tiscali.it
> ha scritto nel messaggio
> > news:bnh2b6$vis$1...@lacerta.tiscalinet.it...
> > Ciao Salvatore
> > Prova questa query
> > ----------------------
> > DELETE * FROM
> >    (SELECT TOP 2000 * FROM TuaTabella)
> > ---------------------
> >
> > Ciao Giorgio
> >
> Grazie, Giorgio. Funziona perfettamente.
> Ma se, anzichè i primi 2000, volessi eliminare gli ultimi 2000 record?
Ciao Salvatore
La vedo grigia, a meno di non creare un contatore al volo
--------------------------
ALTER TABLE TuaTabella ADD Id Counter
--------------------------
Quindi cancelliamo gli utimi 2000 record
----------------------------
DELETE *
FROM  TuaTabella
WHERE Id  IN (SELECT TOP 2000 Id FROM TuaTabella ORDER BY Id DESC)
-----------------------------
e se non gradito togli il contatore
------------------------------
ALTER TABLE TuaTabella DROP COLUMN Id
------------------------------
oppure procedere via codice come suggerito da @Alex
Ciao Giorgio


title: Eliminare n record da una tabella

text:
[cut]
"> > > Ciao Giorgio
> > >
> > Grazie, Giorgio. Funziona perfettamente.
> > Ma se, anzichč i primi 2000, volessi eliminare gli ultimi 2000 record?
>
> Ciao Salvatore
> La vedo grigia, a meno di non creare un contatore al volo
> --------------------------
> ALTER TABLE TuaTabella ADD Id Counter
> --------------------------
>
> Quindi cancelliamo gli utimi 2000 record
> ----------------------------
> DELETE *
> FROM  TuaTabella
> WHERE Id  IN (SELECT TOP 2000 Id FROM TuaTabella ORDER BY Id DESC)
> -----------------------------
>
> e se non gradito togli il contatore
> ------------------------------
> ALTER TABLE TuaTabella DROP COLUMN Id
> ------------------------------
>
> oppure procedere via codice come suggerito da @Alex
> Ciao Giorgio
Grazie, Giorgio, bella soluzione.
Ciao
Salvatore


title: Immagini

author: Tommy

text: Dove posso trovare immagini x costruzione sitop aziendale. ciao e grazie


title: Immagini

author: Sergio MAZZA

text:
"Tommy" <
to...@tin.it
> ha scritto nel messaggio news:62VHg.82346$zy5.1...@twister1.libero.it...
> Dove posso trovare immagini x costruzione sitop aziendale. ciao e grazie
Le trovi con i motori di ricerca o nei siti che mettono a disposizione, gratuitamente, immagini...
Ciao.
--
Sergio MAZZA


title: Sottomaschera

author: RobertOne

text:
Buona sera a tutto il n.g.
In una maschera di ricerca ho inserito due caselle di testo per l'immissione
del range date "da, a" i risultati della ricerca mi vengono visualizzati in
una sottomaschera.
Quello che chiedo č una sciocchezza, č solo una questione di estetica.
Cosa devo fare per non vedere piů nella sottomaschera ancora prima di
digitare le date da ricercare, la prima riga senza dati? Alla sinistra della
sottomaschera, noto una freccia > e poi tutta quella riga bianca senza dati
ovviamente perchč non č stata ancora impostata nessuna ricerca.
La query utilizzata per la ricerca č la seguente:
SELECT Generale.Data, Format([Data],"dddd") AS Giorno, Generale.EntMat,
Generale.UscMat, Generale.EntPom, Generale.UscPom
FROM Generale
WHERE (((Generale.Data) Between [Forms]![Ricerca Date]![dataI] And
[Forms]![Ricerca Date]![dataF]));
Non so se sono stato sufficientemente chiaro. Grazie per l'attenzione.
Roberto


title: Sottomaschera

text:
"RobertOne" <
robe...@robort.it
> ha scritto nel messaggio news:438f7506$0$7321$4faf...@reader4.news.tin.it...

La imposti subito a invisibile e poi:
Me!nomeSottoMaschera.Visible = false
...
...tua query
...
Me!nomeSottoMaschera.Visible = true
Ciao.
--
Sergio MAZZA


title: Sottomaschera

text:
"Sergio MAZZA"  ha scritto nel messaggio ...
> La imposti subito a invisibile e poi:
>
> Me!nomeSottoMaschera.Visible = false
> ...
> ...tua query
> ...
> Me!nomeSottoMaschera.Visible = true
>
> Ciao.
>
> --
> Sergio MAZZA
Grazie ancora una volta Sergio, sempre per il tuo prezioso supporto.
Roberto Bortolotti


title: casella di testo & query di accodamento

text:
Ciao a tutti è possibile fare una query di accodamento con il recordset
ottenuto da una query di selezione  e un valore che ottengo da una
casella di testo in una maschera. Faccio un breve esempio. Tramite una
query trovo tutti  i clienti di Torino. Faccio un mail a tutti e voglio
registrare su una tabella che ho fatto un mail a tutti questi clienti.
In una maschera ho una casella di testo in cui scrivo "mail" e questo
valore voglio riportarlo in una query di accodamento che pesca i
destinatari della mail da una query precedete. Si può fare?  Spero di
essermi spiegato.  grazie ancora.


title: x roberto

author: vincenzo

text:
 > Vediamo al dunque.
> >
> > Supponiamo di avere un contatore di tipo Enel, per intenderci.
Effettuando
> > letture successive del contatore, nei giorni del mese, per differenza
> posso
> > calcolarmi i consumi parziali.
> > Problema:
> > Al fine di considerare i consumi relativi ad un solo mese, ho la
necessità
> > di ottenere e memorizzare la lettura del contatore, dell'ultimo giorno
del
> > mese precedente, come posso costruire tutto ciò?
> >
> >    Grazie ancora
> >
vgiam...@tiscalinet.it
> >
>
> Non si capisce quale sia il tuo problema.
> Se per caso è quello di detrminare, in un controllo chiamato FineMese, il
> giorno della fine del mese precedente a quello di una data contenuta in un
> controllo chiamato TuaData, prova così:
>
> Me!FineMese = DateSerial(Year(TuaData), Month(TuaData), 0)
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
>
Voglio realizzare un report che avrà estrazione mensile (ma questo è poco
importante),sul quale appariranno tutte le letture del contatore nei vari
giorni del mese (fin qui nessun problema). Per essere più chiaro proverò a
fare uno scema del report che ho in mente:
______________________________________
| giorno            |  lettura contatore   |  consumo      |
|___________|_______________|___________|
|lettura mese    |                              |                      |
|precedente     |            x                |                       |
|___________|_______________|___________|
|       1             |                              |diff    x-y        |
|___________|______y________|___________|
|       2             |                              |
|
|___________|_______________|___________|
|       3    ecc. ecc
il campo contrassegnato con la "x" è relativo all'ultima lettura del mese
precedente (che potrebbe coincidere probabilmente con l'ultimo giorno del
mese, ma non necessariamente, come invece avevo detto in precedenza). Come
posso fare per visualizzare questo campo?
Spero di essere stato più chiaro. Ciao
Vincenzo


title: Find e Filter - Confronto

author: eSQueL

text:
Quale dei due è più veloce?
Li sto provando entrambi su di un recordset disconnesso in questa forma
'Find
    stringa = "CodiceFiscale = " & "'" & CF & "'"
    CespitiFab.Find stringa, , adSearchForward, 1
'Filter
    CespitiFab.Filter = "CodiceFiscale ='" & CF & "'"
 e mi sembra che si equivalgano.Ma non sono un gran 'provatore' perciò
vorrei la vostra opinione.
Grazie per qualsiasi aiuto.
Ciao.
eSQueL


title: Find e Filter - Confronto

author: Alessandro Baraldi

text:

Recordset disconnesso cosa intendi...?
E' un Rs ADO in memoria o DAO... nel 2° caso dubito sia disconnesso...
Le 2 funzioni non sono equivalenti... in ogni caso se devi cercare è
meglio usare Find per non intaccare il Rs... in ogni caso dipende da
cosa intendi per disconnesso e che Db hai in uso.
In caso di JET le cose cambiano poco, ma in caso di un DB server direi
che caricare tutto il RS per fare una ricerca in locale è una cosa
decisamente poco furba... è meglio una SELECT con WHERE...
Per il resto non è chiara la tua modalità di lavoro.
@Alex


title: Find e Filter - Confronto

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:c6731895-58f9-4e62...@m73g2000hsh.googlegroups.com...




@Alex
[risposta]
Certamente ADO. Il fatto è questo: CF  è la PK di una tabella anagrafica che
ha 6 relazioni 1-molti con altrettante tabelle. Ora, avendo necessità di
mostrare sulla form principale i record relazionati a CF di tutte le tabelle
e non volendo ricorrere a 6 sottomaschere, ho pensato di usare sei pulsanti.
Questi aprono ciascuna delle forms che m'interessano e cambiano la
formattazione di caption qualora ADO verifichi che nella singola tabella
relazionata esistono record per il CF corrente.
Soluzione non brillante, ma funziona a dovere :) L'unico problema è che
l'operazione di scorrimento dei record nella form principale rallenta un bel
po'. Per questo ho pensato ad un RS disconnesso, per evitare il carico di
rete, giacché ad ogni cambio di record la procedura deve ripetere 6 select.
Ma se hai un'idea migliore son qui a leggerti :)
Ciao.


title: problema con pagine di accesso ai dati (per esperti)

author: @Arold [             ]

text:
ho il seguente problema ho creato unapagina di accesso ai dati che in locale
funziona mentre online mi dice impossibile aprire il database
È stato rilevato che le impostazioni di protezione di IE non consentono
l'accesso ai dati da un sito considerato non protetto.
Per accedere ai dati contenuti nella Pagina di accesso ai dati, è
necessario:
------------------------------------------------------------
1. Avviare IE
2. Scegliere Opzioni Internet dal menu Strumenti
3. Selezionare la scheda "Protezione"
4. Fare clic sull'icona "Siti attendibili"
5. Scegliere il pulsante "Siti"
6. Deselezionare la casella di controllo "Richiedi verifica server (https
per tutti i siti compresi nell'area"
7. Aggiungere "
http://www.infoeweb.it/rubrica.htm
" come server attendibile
8. Scegliere il pulsante OK
9. Aprire la Pagina di accesso ai dati
Se ancora non è possibile accedere ai dati, potrebbe essersi verificato uno
dei seguenti problemi.
Non si dispone delle autorizzazioni di protezione per il server nel quale
risiedono i dati.
Non si dispone delle autorizzazioni di protezione per i dati ai quali si fa
riferimento nel messaggio.
Controllare con il proprietario della Pagina di accesso ai dati per
stabilire se occorrono ulteriori autorizzazioni.
----------------------------------------------
innanzi tutto vorrei evitare che tutti debbano fare questa modifica in ie
per vedere le mie pagine, inoltre una volta fatta questa modifica mi dice
che è impossibile aprire il database
http://www.infoeweb.it/dbase/rubrica.mdb
sapreste aiutarmi?


title: uso funzione dlookup

author: Massimo

text:
Salve,
Vorrei utilizzare la funzione Dlookup come regola di convalida per i valori
inseriti in una maschera, cioè una volta inserito un valore vorrei
verificare se questo rientra tra quelli ammissibili elencati in un'altra
tabella. L'elenco a discesa con la proprietà "solo in elenco" impostata a si
non è sufficiente in quanto alcuni utenti potrebbero non inserire i dati
direttamente in access bensì riempire il tutto con un copia/incolla e a
questo punto non riesco a verificare + nulla.
Mi sembra che la funzione in oggetto sia quella che fa al mio caso ma, a
parte il fatto che non riesco ad utilizzarla, se avete anche altre
soluzioni.....
Grazie
Max


title: uso funzione dlookup

author: Roberto da casa

text:
"Massimo" <
ciccio...@libero.it
> ha scritto nel messaggio
news:DVYl6.49985$k55.1...@news.infostrada.it...

Non riesco a capire cosa intendi quando dici che "alcuni utenti potrebbero
non inserire i dati direttamente in access bensì riempire il tutto con un
copia/incolla": dove e come? Sembrerebbe non utilizzando la tua maschera,
perchè in questo caso potresti mettere le cose in modo che possa farlo
solamente con la tua casella combinata per la quale attiveresti a Si la
proprietà "Solo in elenco".
Comunque, puoi sempre crearti una query che, sempre tramite la funzione
DLookup, verifichi la congruità del campo in tutti i record e ti evidenzi
quelli in cui esiste l'anomalia; la query la potresti aprire "Su apertura" o
"Su chiusura" della tua maschera. In alternativa alla query puoi aprire un
recordset sull'oggetto che è origine record della tua maschera.
Penso però che devi comunque passare per la funzione DLookup. Perché non
riesci ad utilizzarla?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: uso funzione dlookup

text:
Roberto da casa <
r.ma...@libero.it
> wrote in message
0u6m6.52853$k55.1...@news.infostrada.it...

Impostando la proprietà elenco a discesa della maschera a "solo in elenco =
sì" mi cautelo in caso di immissione diretta di dati nella maschera stessa.
Tuttavia i dati da immettere sono dati contabili e presumibilmente
proverranno da elaborazioni fatte in excel. Perciò ci sarà qualche utente
che copia/incolla pezzi del suddetto foglio in access e così non riesco a
impedire cavolate. Io vorrei bloccare istantaneamente l'utente in caso di
errore, comunque se non ci riuscirò la tua idea della query a posteriori mi
pare valida.
Tra l'altro ho riscontrato un comportamento strano della funzione dlookup.
La maschera di immissione (in modalità foglio dati) ha tre campi, di cui i
primi due (codice contabilità e centro di costo) devono essere "controllati"
e il terzo è l'importo.
Se uso la seguente espressione   =DLookUp("[CodCogen]";"tCogen") Is Not Null
e una simile (=DLookUp("[cdc]";"tCdc") Is Not Null) nel secondo campo, posso
incollare sul record quello che voglio e access non protesta! Se invece
cambio la visualizzazione in modalità "maschera continua" (e non + foglio
dati) incollando il medesimo record access riesce a controllare solo il
codice contabilità (il primo) eliminandolo e inserendo nella prima e seconda
cella il contenuto destinato alla seconda e terza! e tutto senza messaggio
di errore, nonostante io abbia messo il messaggio nella riga successiva
delle proprietà. Ti è mai capitato un comportamento simile?
Ciao & grazie
Max


title: uso funzione dlookup

text:
"Massimo" <
ciccio...@libero.it
> ha scritto nel messaggio
news:JJ7m6.53634$k55.1...@news.infostrada.it...

Non hai specificato dove hai usato le funzioni DLookup: nella propietà
"Valido se" di un controllo?
Vediamo comunque di dare uno sguardo a come hai scritto le due funzioni
DLookup; in ambedue i casi le hai scritte senza indicare i criteri di
ricerca; ora, mentre può avere significato non indicare i criteri per altre
funzioni di aggragazione quali DSum o DCount, a mio avviso non ha alcun
significato farlo per una DLookup, specie per risolvere un problema come il
tuo.
Se non indichi i criteri, la DLookup ti restituirà SEMPRE e a caso un valore
contenuto nel campo CodGen (o cdc) di un qualsiasi record presente nella
tabella tCogen (o tCdc); la funzione ti restituirà il valore Null solo nel
caso in cui la tabella tCogen (o tCdc) sia vuota.
Comunque, se la tua tabella può essere manipolata anche aprendola
direttamente, o adotti la soluzione che ti ho suggerito nel mio precedente
messaggio, oppure le DLookup scrivile nelle proprietà di campo "Valido se"
dei due campi nella struttura della tua tabella; così facendo Access si
rifiuterà di accettare, per i due campi, valori che violino quanto stabilito
nelle proprietà "Valido se", e questo a prescindere dai magheggi
dell'operatore o se invece adoperi la procedura canonica di modificare i
dati tramite la tua maschera.
Resta il fatto che le due funzioni DLookup debbono essere scritte con
esplicitati i criteri di ricerca; naturalmente ciò è vero anche se deciderai
di adoperarle in una query.
Spero di essere stato chiaro.



title: uso funzione dlookup

text:
ok funziona, grazie
Max


title: Funzione Right

author: Vladimiro Leone

text:
Ciao,
per estrapolare solo il file (Desert.jpg)  dalla seguente stringa:
C:\Users\Public\Pictures\Sample Pictures\Desert.jpg
uso la funzione Right:
MioCampo = Right (MioCampo, InStr(MioCampo, "\"))
però mi rilascia solo jpg.
Dove sbaglio?
Eventualmente c’è qualche altro sistema per estrapolare l’ultima parola dopo 5 barre rovesciate?
Vladimiro


title: Funzione Right

author: Mancini

text:
Il motivo è semplice,
ma la soluzione è piu complessa.

> .... InStr(MioCampo, "\")
restituisce 3 perche il \ è al 3° posto PARTENDO DA SINISTRA

ma dopo tu prelevi i primi 3 caratteri DI DESTRA

Devi invece trovare l'ultimo \ e rapportarlo alla lunghezza della stringa
ma in questo momento non saprei come fare


title: Funzione Right

author: gro cl

text:

prova cosi in una query
p2: InStrRev([tuocampo];"\") cerchi la posizione di \
Car_dx: Mid([tuocampo];[p2]+1) estrai

provata e funziona
ciao
cla


title: Funzione Right

author: Pablitomf

text:
Vladimiro Leone <
vlad...@alice.it
> ha scritto:

Right(TuoPercorso, Len(TuoPercorso) - InStrRev(TuoPercorso, "\"))

--
------------
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: Funzione Right

text:

Grazie, funziona correttamente anche se quella di Pablitomf fa più al caso mio.
Vladimiro


title: Funzione Right

text:

Very well!!!
Proprio quello che cercavo.
Grazie Vladimiro


title: Funzione Right

text:

Ciao Mancini,
grazie anche a te.
Ogni tanto ci si rincontra!!! :-)
Vladimiro


title: Funzione Right

text:
Il giorno domenica 17 novembre 2013 10:59:44 UTC+1, Pablitomf ha scritto:
> Vladimiro Leone <
vladi...@alice.it
> ha scritto:

Salve, premetto che non sono affatto un programmatore, ma pratico un poco access. Da giorni provo a trovare una soluzione ad un problema, che mi pare di aver trovato in questo forum, ma qualcosa non mi funziona:
In una maschera access ho il campo [esempio], con due parole separate da virgola,da dividere in due altri campi. Per la prima parola ok con:
=Left([esempio];InStr([esempio];", ")-1)

per quella dopo la virgola, provo con
=Right([esempio], Len([esempio]) - InStrRev([esempio], ","))
ma Access mi dice che la sintassi è sbagliata o incompleta. Magari a voi l'errore risulta evidente, io non lo capisco.


title: Funzione Right

author: Karl Donaubauer

text:
angelo....@gmail.com
 wrote:
> ...
> In una maschera access ho il campo [esempio], con due parole separate
> da virgola,da dividere in due altri campi. Per la prima parola ok
> con:
> =Left([esempio];InStr([esempio];", ")-1)
>
> per quella dopo la virgola, provo con
> =Right([esempio], Len([esempio]) - InStrRev([esempio], ","))
> ma Access mi dice che la sintassi � sbagliata o incompleta. Magari a
> voi l'errore risulta evidente, io non lo capisco.

S�, � evidente che tenti di usare la virgola invece del punto e virgola
come separatore. Prova con

=Right([esempio]; Len([esempio]) - InStrRev([esempio]; ","))

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

Access Lobby:
http://www.AccessDevelopers.org


title: Funzione Right

text:
Il giorno martedì 27 maggio 2014 10:18:39 UTC+2, Karl Donaubauer ha scritto:

Grazie, Karl! Ho perso due notti come un idiota per delle virgole...
Grazie, vielen Dank!

Angelo


title: trasformare un grafico access in diapositiva power point

author: Oscar

text:
un saluto a tutti
non riesco a trasformanre i grafici creati con access in diapositive
power point. la funzione copia in anteprima di stampa e' inibita; in
visualizzazione struttura funziona, ma purtroppo se la struttura e'
diversa dal risultato finale stampabile quello che mi incolla e' la
struttura stessa e non il risultato stampabile. faccio un esempio:  da
una query che crea un grafico che rappresenta la divisione degli
utenti per sesso avro' correttamente in anteprima di stampa la mia
bella torta divisa in maschi=52% e femmine=48%, mentre in
visualizzazione struttura avro' est=33%; ovest=41%; nord=26%, quindi
se vado a copiare ed incollare su una diapositiva power point ottengo:
est=33%; ovest=41%; nord=26%.
qualcuno mi puo' aiutare?
vi ringrazio anticipatamente
oscar


author: Gaspare

text:
"Oscar" <
os...@tiscali.it
> ha scritto nel messaggio
news:426a1dfa...@news.fastwebnet.it...

Ciao,
perchè non provi a postare il tuo quesito anche su
microsoft.public.it.office.powerpoint?
Gaspare


title: File MDW e apertura da codice

author: Renato Mulinacci

text:
Ho fatto un FE protetto con protezione utente; per aprire il file, anche da
codice, ok perchè con una shell apro Access ... (le stesse cose che fa il
collegamento creato durante la procedura di protezione utente).
E' possibile potervi accedere, prima che sia aperto etc... semplicemente da
codice con un "Opendatabase"?
Renato.


title: File MDW e apertura da codice

text:
"Renato Mulinacci" <
r.mul...@libero.it
> wrote in message
news:9DUuf.29016$
eD5.4...@twister2.libero.it

Ciao Renato.
Si è possibile sia con DAO che con ADO.
Con DAO ti basta vedere l'help all'oggetto Workspace, c'è un esempio.
Per ADO ti do un mio DEMO:
http://www.mantuanet.it/alessandro.baraldi/FilesEsempio/TABLES/ADO2MDW.txt
P.S. fossi in te prenderei in considerazione questi siti:
www.sitocomune.com
http://www.mantuanet.it/alessandro.baraldi/
http://www.donkarl.com/it/
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: File MDW e apertura da codice

text:
Ti ringrazio moltissimo per l'info, ora vado subito a vedere di mettere in
pratica i tuoi consigli.
Ciao,
Renato.
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:6df22b50c1cb3c0746...@mygate.mailgate.org...



title: Riconoscere giorni della settimana

author: Luca 79

text:
Ho bisogno di riconoscere (in una formula) in un elenco di date i giorni che
cadono di Sabato e Domenica. Che funzione posso usare?
Ciao a tutti.


title: Riconoscere giorni della settimana

author: MA

text:

Una soluzione
if left(format(tuadata);3) = "sab" then
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Riconoscere giorni della settimana

text:
MA wrote:
> Luca 79 wrote:
>> Ho bisogno di riconoscere (in una formula) in un elenco di date i
>> giorni che cadono di Sabato e Domenica. Che funzione posso usare?
>> Ciao a tutti.
>
> Una soluzione
imprecisa.
meglio
if left(format(tuadata),"ddd"),3) = "sab" then



title: Riconoscere giorni della settimana

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:qSdPe.33351$TR5....@news.edisontel.com...

Grazie mille MA
nel frattempo pero' ho anche scoperto la funzione Weekday(<Data>)
che restituisce un numero a seconda del giorno
es. Lun=1; Mar=2 etc.


title: crystal report e connessione al database

author: Sergio

text:
come si fanno ad adeguare i report che prima puntavano ad ACCESS  e adesso
devono puntare a SQL SERVER 2005 ?
E' stato convertito il database , da MDB  ad  MS SQL .
C'era un comando da dare , ma non me lo ricordo ...
Grazie e ciao


author: Lorenzo(pyx)

text:
In news:4b194f98$0$30966$
4faf...@reader3.news.tin.it
,
Sergio <
ser...@alice.it
> ha scritto:

Ciao,
questo NG e' dedicato all'applicativo  MS Access--
In ogni caso conosco Crystal Report dalla versione 1.0 (dos e win 3.11)
pero' onestamente non ricordo di un magico comando.
A seconda della versione (le piu' usate attualmente sono la 8.5 e la 10)
e molto dipende dal tipo di connessione che usi.
Prova a vedere in database]->set datasource location
qui dovresti agganciare la tabella di SQL2005 che avendo gli stessi campi
che aveva in precedenza
trovera' i match per ogni field.
Lorenzo


title: Modificare tipo dati

author: Greg

text:
Ho un campo Integer che contiene l'anno di installaizone di un oggetto.
Adesso c'è l'esigenza di trasformarlo in data di installazione.
C'è un modo per trasformare da Integer a Data senza perdere il dato contuenuto?
Grazie in anticipo per ogni info

--
Greg


title: Modificare tipo dati

text:
Come Mese e Giorno cosa ci metti...?

La funzione per ricostruire una Data è DateSerial( <F1> ) ora vedi tu...

@Alex


title: Modificare tipo dati

text:

Mi va bene anche 01/01/
A ogni modo ho ricostruito la data in un nuovo campo, ma sono di nuvo fermo.
Se cerco di eliminare il vecchio campo per ricrearlo di nuovo del tipo Data mi dice che non risce
a bloccare la tavbella.
Potrei rinominare i campi, ma non riesco a trovare il comando :(

--
Greg


title: Modificare tipo dati

text:
Greg... cosa dici...?
Una data può essere del formato che dici tu...?
Hai letto almeno la Funzione DateSerial...? LETTO... e CAPITO...!!!
I PARAMETRI ti pare siano OPTIONAL...?

Poi non ho capito, invece di fare una Query UPDATE sul campo esistente, vorresti cancellarlo e ricrearne uno nuovo...?
Se devi farlo per una modifica finita, aggiungi il campo, e poi fai una Query UPDTATE, poi cancelli il vecchio... e lo fai manualmente.
Se deve essere una cosa da fare via codice mmmm Greg hai sbagliato qualche cosa.

@Alex


title: packing wizard script a cosa serve?

text:
qualcuno me lo sa dire? è un file che crea fuori dalla cartella packing dove
crea il runtime per l'installazione del db su pc senza access ma secondo voi
questo file è da includere nel cdrom?
Grazie.


title: ancora per tombola ma problema diverso

text:
secondo voi come posso esaminando un array di 90 elementi che man mano và a
contenere i numeri estratti
controllare se è stato fatto un ambo, terno, quaterna, cinquina, o tombola
sul tabellone?


title: ancora per tombola ma problema diverso

author: Sergio MAZZA

text:
"Stero72" <
ste...@email.it
> ha scritto nel messaggio
news:455452ac$0$19229$4faf...@reader4.news.tin.it...

Purtroppo devo ripetermi; devi scrivere un oggetto descrittivo del problema.
www.sitocomune.com
 Sezione ICAA - Come comportarsi in questo NG
Ciao.
--
Sergio MAZZA


title: salvare mail outlook sul disco fisso in una cartella

author: mario rossi

text:
Buongiorno a tutti,

Con questo codice invio una mail da access con outlook, è possibile salvare copia del messaggio in un determinato percorso dando un determinato nome alla mail in una cartella del PC?

    Dim OutlookApp As Outlook.Application
    Dim MItem As Object
    Dim Recipient As String
    Dim Msg As String, fname As String

    On Error Resume Next

    Set OutlookApp = New Outlook.Application
    Set MItem = OutlookApp.CreateItem(olMailItem)
    With MItem
        .To = destinatario
        .Subject = Nz(oggetto, "")
        .Body = Nz(Testo, "")
        .Attachments.Add Nz(allegato, "")
        .Activate
        .display
        .Activate
        '.Send
    End With

    Set OutlookApp = Nothing


author: BFS

text:

a naso proverei

.SaveAs ("c:\tuacartella\tuaMail.eml")

BFS


text:

anzi senza naso vedi qui va
https://learn.microsoft.com/en-us/office/vba/api/outlook.mailitem.saveas

BFS


text:

ok grazie ho trovato anche un vecchio post del 2019
https://groups.google.com/g/it.comp.appl.access/c/YiJAQ_N_mxY/m/F611oWkaBwAJ

il mio problema è però il seguente, apro in anteprima il messaggio creato da vba, l'operatore può modificare tale messaggio scrivendo ulteriore testo e aggiungendo allegati e/o immagini all'interno del corpo della mail, infine clicca il tasto "invia"

è in questo momento che ho necessità di salvare il messaggio non prima di aprire l'anteprima altrimenti non ci sarebbero le modifiche dell''operatore

fattibile?


text:

ci sono quasi, dopo la sub "inviaMail" che apre in anteprima il messaggio per consentire all'operatore di modificare la mail eseguo una sub di nome "SaveLastSentItem"
il problema è che viene eseguita subito dopo la sub "inviaMail" quindi salva l'ultimo messaggio inviato in outlook che non è quello che l'operatore ha aperto in anteprima

è possibile mettere in attesa access e ritornare al codice dopo che l'operatore ha inviato la mail?

*** codice ****

Public Sub SaveLastSentItem(pathf As String, nomef As String)

Dim myItems As Object
Dim savePath As String

Set myItems = CreateObject("Outlook.Application").CreateItem(oMailItem)
Set Mail = myItems

    Dim oApp As Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Dim myFolder As Outlook.Folder
    Dim myNewFolder As Outlook.Folder
    Dim myItem As Outlook.MailItem
    Dim myCopiedItem As Outlook.MailItem

   Set oApp = New Outlook.Application

    Set myNameSpace = oApp.GetNamespace("MAPI")

    Set myFolder = myNameSpace.GetDefaultFolder(olFolderSentMail)

    Set myItems = myFolder.Items

   myItems.Sort ("[SentOn]")

    Set myItem = myItems.GetLast

    savePath = pathf    '## Modify as needed
    savePath = savePath & nomef

     myItem.SaveAs savePath, OlSaveAsType.olMSG

End Sub


text:

è nel link che hai inserito la soluzione
RobertoA afferma che prima salva il messaggio per ottenere il suo id
una volta che hai l'id, anche se il messaggio viene modificato e poi
inviato l'id rimane quello.

quindi ti basta andartelo a recuperare e ri-salvarlo nella cartella che
vuoi.

magari posta il codice a cosa fatta che può tornare utile a tutti
BFS


text:

ho provato la riga Debug.print objOutlookMsg.EntryID
ma è vuoto objOutlookMsg.EntryID

ho pensato di procedere così, quando l'operatore chiude la schermata per tornare al menù principale si suppone che le mail siano state inviate
non saprei come impedire di uscire da quella form prima che le mail vengano effettivamente inviate (è possibile?)

cliccando quindi il pulsante "salva e torna al menù" vado a salvare l'ultimo messaggio inviato in outlook con getlast del mio esempio messaggi precedenti se ne ha inviato solo uno e se ha inviato più mail con un ciclo for eseguo
N volte getprevious salvando ogni volta i messaggi con:

myItem.SaveAs savePath, OlSaveAsType.olMSG

spero di essere riuscito a spiegarmi


text:

ti sbagli
ho appena provato

se aggiungi

.Save
Debug.Print .EntryID

il debug nel mio caso mi restituisce

0000000003C0152B8C360E40B1F52A54992DA66E24012000

che è l'id della mail che posso usare per andarmela a recuperare in ogni
momento

ciao
BFS


text:

ok EntryID era vuoto perchè prima non facevo .save
ma ora ti chiedo, in che modo salvo esattamente quel messaggio avente ID=EntryID?

grazie.


text:

non ti piace googolare vedo

fonte della funzione  Outlook_OpenEmail
https://www.devhut.net/vba-retrieve-an-outlook-message-item/

sul tuo codice

'hai la mail in anteprima e la modifichi come vuoi
.Display (True)
'appena la invii il codice va avanti e ti salva e genera l'id della mail
modificata
.Save
Debug.Print .EntryID

'la funzione del link ti recupera la mail a video:
Outlook_OpenEmail .EntryID

quindi, nel tuo caso che non ti serve rivederla a video ma semplicemente
salvarla in altra cartella ti basta modificarla cosi

  Set oNameSpace = oOutlook.GetNamespace("MAPI")
     'Find the item, if not found it generates a -
2147221233
 error
     Set oOutlookMsg = oNameSpace.GetItemFromID(sEntryId)
     'Open/Display the item to the user
     oOutlookMsg.saveas "metti qui tuo percorso"...

BFS


text:

la mail l'ho inviata ed è in posta inviata
l'ho salvata in una tabella temporanea nel campo di nome IDmail di tipo testo

Set myItem = myNameSpace.GetItemFromID(Rs!IDMail)

mi da errore: Errore di run-time '-
2147221233
(8004010f)':
Operazione non riuscita. impossibile trovare un offetto.

Qualche aiuto?


text:

devi modificare la funzione del link!

a cui passerai il tuo rs|!idmail
questa:

Function Outlook_OpenEmail(ByVal sEntryId As String)
'REF:
https://docs.microsoft.com/en-us/office/vba/api/outlook.namespace.getitemfromid

'    #Const EarlyBind = 1 'Use Early Binding
     #Const EarlyBind = 0    'Use Late Binding
     #If EarlyBind Then
         Dim oOutlook          As Outlook.Application
         Dim oOutlookMsg       As Outlook.MailItem
     #Else
         Dim oOutlook          As Object
         Dim oOutlookMsg       As Object
     #End If

     On Error Resume Next
     Set oOutlook = GetObject(, "Outlook.Application")        'Bind to
existing instance of Outlook
     If Err.Number <> 0 Then        'Could not get instance, so create a
new one
         Err.Clear
         Set oOutlook = CreateObject("Outlook.Application")
     End If
     On Error GoTo Error_Handler

     Set oNameSpace = oOutlook.GetNamespace("MAPI")
     'Find the item, if not found it generates a -
2147221233
 error
     Set oOutlookMsg = oNameSpace.GetItemFromID(sEntryId)
     'Open/Display the item to the user

'versione originale tii mostra la mail a video	<<<<<<<<<<<<<<
  '   oOutlookMsg.Display

'tu invce vuoi salvarla quindi DEVI MODIFICARLA QUI...<<<<<<<<<
	oOutlookMsg.SaveAs percorso etc etc

Error_Handler_Exit:
     On Error Resume Next
     If Not oOutlookMsg Is Nothing Then Set oOutlookMsg = Nothing
     If Not oOutlook Is Nothing Then Set oOutlook = Nothing
     Exit Function

Error_Handler:
     If Err.Number = "287" Then
         MsgBox "You clicked No to the Outlook security warning. " & _
                "Rerun the procedure and click Yes to access e-mail " & _
                "addresses to send your message. For more information, " & _
                "see the document at
http://www.microsoft.com/office
" & _
                "/previous/outlook/downloads/security.asp."
     ElseIf Err.Number = -
2147221233
 Then
         MsgBox "Outlook item not found.", vbInformation + vbOKOnly
     Else
         MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
                "Error Number: " & Err.Number & vbCrLf & _
                "Error Source: Outlook_OpenEmail" & vbCrLf & _
                "Error Description: " & Err.Description & _
                Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
                , vbOKOnly + vbCritical, "An Error has Occurred!"
     End If
     Resume Error_Handler_Exit
End Function


text:

sapresti dirmi come modificare questo codice per fargli cercare il messaggio avente EntryID ricevuto come parametro ma nella cartella posta inviata
non so come fare.


text:

ho provato aggiungendo le seguenti righe ma nulla da fare
    Set oNameSpace = oOutlook.GetNamespace("MAPI")
    Set myFolder = oNameSpace.GetDefaultFolder(olFolderSentMail)
    Set myItems = myFolder.Items
    myItems.Sort ("[SentOn]")

da sempre errore "Outlook item not found."


text:

Help! Questa è la sub che sto provando, la eseguo e da errore alla riga
Set myItem = myNameSpace.GetItemFromID(EntryID, FolderID)

errore di run-time -
2147221233
 (8004010f)
Operazione non riuscita. Impossibile trovare un oggetto.

sia entryID che folderID sono correttamente valorizzati, il messaggio in posta inviata c'è
ma dall'errore sembra che non trova il messaggio, qualcuno può provarlo e scoprire se sul suo pc funziona? grazie.

***** code ****
Public Sub SalvaMail()
    Dim myItems As Object
    Dim savePath As String

    Dim percorso As String
    Dim nomefile As String
    Dim FolderID As String

    Dim oApp As Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Dim myFolder As Outlook.Folder
    Dim myNewFolder As Outlook.Folder
    Dim myItem As Outlook.MailItem
    Dim myCopiedItem As Outlook.MailItem
    Dim omailitem
    Dim mail
    Dim i

    Set myItems = CreateObject("Outlook.Application").CreateItem(omailitem)
    Set mail = myItems

             'imposto il nome del file
             percorso = "c:\miacartella\"
             nomefile = "messaggio.msg"

             Set oApp = New Outlook.Application

             Set myNameSpace = oApp.GetNamespace("MAPI")

             Set myFolder = myNameSpace.GetDefaultFolder(olFolderSentMail)

             'ottengo l'ID della cartella posta inviata
             FolderID = myFolder.storeId

             Set myItems = myFolder.Items

             myItems.Sort ("[SentOn]")

            Set myItem = myNameSpace.GetItemFromID(Rs!IDMail, FolderID)

             savePath = percorso
             savePath = savePath & nomefile



text:

Se commento la riga di codice
Set myItem = myNameSpace.GetItemFromID(Rs!IDMail, FolderID)

ed eseguo la riga di codice
Set myItem = myItems.GetLast

Salva l'ultimo messaggio inviato correttamente, lo utilizzerei così ma può accadere che l'operatore invia altre mail dopo aver inviato la mail che mi interessa salvare e quindi quella mail da salvare non è più l'ultima, devo usare quindi questa riga che non vuole saperne di funzionare, o meglio forse funziona ma non trova la mail e quindi da l'errore del mio messaggio precedente.



text:

non ho capito cosa ti schifa di questa funzione, pronta, chiara, funzionante

https://www.devhut.net/vba-retrieve-an-outlook-message-item/

per recuperare una mail dal suo id.
ti basta semplicemente sostituire il .display con .saveAs

non capisco perchè complicarsi la vita inutilmente

BFS


text:

Ok nel casino dello sviluppo credo di averla provata fra le tante prove fatte ma non pensavo che la soluzione fosse cosi semplice come scrivi, adesso la riprovo.
Grazie per aver rimarcato la cosa.


text:
Il giorno venerdì 4 novembre 2022 alle 07:40:33 UTC+1 BFS ha scritto:

Ecco perché avevo fatto altre prove, la riga di codice
Set oOutlookMsg = oNameSpace.GetItemFromID(sEntryId)
che riceve come parametro stringa il EntryID -->

00000000862F893433F6804EA5E48276F2CA4F9A070034AD76187591974DBF6C4F76951C873A010000000000000012C64DB6DB1A9D4588144FAB32E0F1DE0000000008CA0000

quel codice è stato assegnato al messaggio che mi interessa quando ho fatto .Save in fase di creazione della mail:
mi restituisce l'errore: Outlook Item Not found ovvero l'errore Err.Number = -
2147221233

da quell'errore intuisco che tutto funziona ma access non trova il messaggio.
ma il messaggio posso garantire è presente in posta inviata e infatti se uso un altro esempio che preleva l'ultimo messaggio inviato con getlast funziona perfettamente
quello che ipotizzo è che il tuo esempio cerchi di default in una cartella diversa da "posta inviata" e per questo motivo non trova il messaggio?

fammi sapere se capisci il motivo.
Grazie.


text:

da questo articolo
https://learn.microsoft.com/it-it/office/vba/api/outlook.mailitem.entryid

cito:
The Entry ID changes when an item is moved into another store, for example, from your Inbox to a Microsoft Exchange Server public folder, or from one Personal Folders (.pst) file to another .pst file. Solutions should not depend on the EntryID property to be unique unless items will not be moved

traduzione:
L'ID voce cambia quando un elemento viene spostato in un altro archivio, ad esempio, dalla Posta in arrivo a una cartella pubblica di Microsoft Exchange Server o da un file delle cartelle personali (pst) a un altro file pst. Le soluzioni non devono dipendere dalla proprietà EntryID per essere univoca a meno che gli elementi non vengano spostati

Quando creo la mail e la salvo con .save ottengo un EntryID che salvo in una tabella temporanea
il mio dubbio è : da come si legge qui sopra quando un messaggio cambia posizione cambia anche entryID, quindi l'EntryID che cerco potrebbe essere diverso perchè una volta inviata la mail questa finisce (ipotizzo) dalla cartella "bozze" o "temp" alla cartella "inviata"? se cosi fosse come recuperare il nuovo EntryID che viene assegnato al messaggio quando va a finire in posta inviata?


text:

esiste un modo in outlook o con qualche utility di sapere il codice EntryID di un determinato messaggio? in questo modo potrei capire se il codice EntryId che cerco è diverso da quello che è assegnato al messaggio che cerco quando viene spostato in posta inviata.

grazie.


text:

Ho scoperto il problema, confermo che EntryID della stessa mail è diverso quando il messaggio viene creato e subito salvato con .Save e quando viene modificato e poi inviato e finisce in posta inviata di outlook
per recuperare il nuovo EntryID ho usato una Sub che applica delle restrizioni agli oggetti items le mail presenti in posta inviata a quel punto ho provato a passare il nuovo EntryID e il codice di BFS funziona perfettamente.

per maggiori info sul metodo restrict leggere questo articolo
https://learn.microsoft.com/en-us/office/vba/api/outlook.items.restrict

secondo voi negli oggetti presenti in questo articolo c'è l'oggetto mail destinatario che magari ha un altro nome? io non la vedo.

il codice di ricerca è

Public Sub CercaEmail()
    Dim oINS As NameSpace
    Dim Folderinbox As MAPIFolder
    Dim filtered_items As Items
    Dim strFilter As String
    Dim olMail As MailItem

    Set oINS = GetNamespace("MAPI")
    Set Folderinbox = oINS.GetDefaultFolder(olFolderSentMail)

    strFilter = "@SQL= urn:schemas:httpmail:subject LIKE '%STRINGA DA CERCARE NEL SUBJECT%'"
    Set filtered_items = Folderinbox.Items.Restrict(strFilter)

    If filtered_items.Count = 0 Then
        GoTo empty_objects
    End If

    For Each olMail In filtered_items

        Debug.Print olMail.Subject
        Debug.Print olMail.SenderEmailAddress
        Debug.Print olMail.entryId
        Debug.Print olMail.To

    Next olMail

empty_objects:
    Set Folderinbox = Nothing
    Set oINS = Nothing
End Sub


text:

La domanda però sorge spontanea se EntryID di uno stesso messaggio cambia a che serve la possibilità di salvarlo in una tabella se poi quello nella tabella non esiste più in outlook? mi è sfuggito qualcosa?


text:
Il giorno venerdì 4 novembre 2022 alle 07:40:33 UTC+1 BFS ha scritto:

ti confermo quanto da me sospettato ovvero che EntryID può cambiare e quindi non si capisce l'utilità di salvarlo in una tabella se poi non serve per ritrovare quel messaggio in outlook

questa è la risposta ufficiale del programmatore che ha pubblicato la sub che mi hai consigliato, puoi leggerla anche in fondo al tuo link

link
https://www.devhut.net/vba-retrieve-an-outlook-message-item/

--- mia domanda
   L’ho provata e mi restituisce “Outlook item not found.”
   Il messaggio che cerco però è presente nella cartella outlook posta inviata
   come parametro EntryID gli passo la stringa che identifica il messaggio che ho salvato in una tabella in fase di creazione del messaggio eseguendo .save

   Quale potrebbe essere il motivo per cui non trova il messaggio? forse il codice EntryID assegnato in fase di creazione cambia quando il messaggio viene spostato in posta inviata?
   se cosi fosse come potrei risalire al nuovo EntryID?
--- mia domanda

--- risposta
   The EntryId can change if, for instance if the item is moved. It’s a real pain and something I’ve never understood the reason for. So sometimes it may be better to locate an item by
   date/time, subject, sender, recipient(s), …
--- risposta

--- risposta tradotta
   L'EntryId può cambiare se, ad esempio, se l'elemento viene spostato. È un vero dolore e qualcosa di cui non ho mai capito il motivo. Quindi a volte potrebbe essere meglio individuare
   un articolo per data/ora, oggetto, mittente, destinatario/i,...
--- risposta tradotta


author: RobertoA

text:

Ma lo spostamento messaggio da una all'altra cartella, non potresti
farlo da codice?
Magari ti viene restituito il nuovo EntryID messaggio


text:

mi sfugge una cosa

il tuo post è "salvare mail outlook sul disco fisso in una cartella"

quindi una volta che hai l'id della mail e la salvi su cartella windows
che ti frega se poi l'id cambia perchè qualcuno sposta la mail in outlook?

Nella tabella ti memorizzi il percorso del file eml sul disco e non l'id
e te la recuperi con quello.
Ti metterebbe al riparo da cancellazioni involontarie dell'utente in
outlook e in più se salvata in share di rete di recuperarla da ogni
postazione

BFS


text:

Credo scriva di 'cartelle' dentro Outlook
Non del sistema operativo


text:

l'operatore clicca un pulsante in access che crea una mail outlook in anteprima che salvo con .save e ottengo EntryID
poi però l'operatore modifica a suo piacere la mail e infine clicca il pulsante invia di outlook che mette la mail in cartella "posta inviata" di outlook
nel mentre che la mail passa da bozze (credo) a "inviata" cambia EntryID e quindi quello salvato prima non serve a nulla.

Soltanto dopo che l'operatore ha inviato la mail devo salvarla in una cartella su disco c:\miacartella

al momento ho risolto mettendo un numero ordine univoco nell'oggetto e utilizzando i metodi restrict di vba per outlook come indicato in qualche post precedente di questa discussione.


text:

non vorrei dire una fesseria ma
se dopo il tuo
.display
metti
.saveAs "c:\miacartella"

il codice va interruzione tra display e saveAs

quindi nel momento in cui l'operatore clicca su invia si passa a .saveAs
quindi nella tua cartella hai gia l'ultima versione della mail.
a questo punto l'id non ti serve a nulla
memorizzati il percorso di dove hai salvato il file e stop

BFS


text:

interessante lo proverò.


title: importare i files excel presenti in tutte le sotto-cartelle

author: giancarlo

text:
Ciao a tutti. In A97:
Vorrei creare una procedura che importi tutti i files excel contenuti
all'interno di alcune cartelle.
Ho preso dal Sito Comune la routine di Lorenzo Coronati "Creare una tabella
contenente i nomi dei files presenti in una directory." Una volta fatta la
tabella, per ogni record importo il file excel contenuto nella cartella.
Mi chiedevo: è possibile modificare la funzione in modo tale che, oltre ad
inserire il nome del file prenda anche il percorso delle cartelle? In
pratica se ho una cartella principale, con sotto-cartelle e file:
C:\DATI
        \Dati1
             excelA.xls
        \Dati2
             excelA.xls
             excelB.xls
.........
La tabella dovrebbe essere
NomeFile | Percorso
excelA.xls | C:\DATI\Dati1
excelA.xls | C:\DATI\Dati2
excelB.xls | C:\DATI\Dati2
In questo modo potrei importare tutti i files di excel contenuti in tutte le
sottocartelle.
Ho già provato inserendo "a mano" i percorsi e funzione.
Potete aiutarmi?
Grazie a tutti in anticipo


author: Roberto dalla campagna

text:
"giancarlo" <
thi...@tin.it
> ha scritto nel messaggio
news:415902f9$1...@x-privat.org...

Prova a modificare la sub elencafile in questa maniera:
Public Sub elencafile(Optional d As String, _
Optional j As String)
'Argomenti:
' d=directory
' j=maschera di match
Dim t As DAO.TableDef
Dim r As DAO.Recordset
Dim t2 As DAO.TableDef
Dim r2 As DAO.Recordset
Dim s As String
If d = "" Then d = CurDir
If j = "" Then j = "*.*"
If Right(d, 1) <> "\" Then d = d & "\"
s = "Directory presenti in " & d
Set t2 = CurrentDb.CreateTableDef(s)
t2.Fields.Append t2.CreateField("Percorso", dbText)
CurrentDb.TableDefs.Append t2
Set r2 = CurrentDb.OpenRecordset(s, dbOpenTable)
s = Dir(d, vbDirectory)
Do While s <> ""
    If s <> "." And s <> ".." Then
        If (GetAttr(d & s) And vbDirectory) = _
        vbDirectory Then
            r2.AddNew
            r2!Percorso = d & s
            r2.Update
        End If
    End If
    s = Dir
Loop
s = "Files presenti in " & d
Set t = CurrentDb.CreateTableDef(s)
t.Fields.Append t.CreateField("NomeFile", dbText)
t.Fields.Append t.CreateField("Percorso", dbText)
CurrentDb.TableDefs.Append t
Set r = CurrentDb.OpenRecordset(s, dbOpenTable)
s = Dir(d & j)
Do While s <> ""
    r.AddNew
    r!NomeFile = s
    r!Percorso = Left(d, Len(d) - 1)
    s = Dir
    r.Update
Loop
r2.MoveFirst
Do Until r2.EOF
    s = Dir(r2!Percorso & "/" & j)
    Do While s <> ""
        r.AddNew
        r!NomeFile = s
        r!Percorso = r2!Percorso
        r.Update
        s = Dir
    Loop
    r2.MoveNext
Loop
Set t = Nothing
Set r = Nothing
Set t2 = Nothing
Set r2 = Nothing
DoCmd.DeleteObject acTable, _
"Directory presenti in " & d
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: 'gnurant

text:
giancarlo <
thi...@tin.it
> ha scritto:
> Ciao a tutti. In A97:
> Vorrei creare una procedura che importi tutti i files excel contenuti
> all'interno di alcune cartelle.
> Ho preso dal Sito Comune la routine di Lorenzo Coronati "Creare una
tabella
> contenente i nomi dei files presenti in una directory." Una volta fatta
la
> tabella, per ogni record importo il file excel contenuto nella cartella.
> Mi chiedevo: è possibile modificare la funzione in modo tale che, oltre
ad
> inserire il nome del file prenda anche il percorso delle cartelle? In
> pratica se ho una cartella principale, con sotto-cartelle e file:
> C:\DATI
>         \Dati1
>              excelA.xls
>         \Dati2
>              excelA.xls
>              excelB.xls
> ..........
> La tabella dovrebbe essere
> NomeFile | Percorso
> excelA.xls | C:\DATI\Dati1
> excelA.xls | C:\DATI\Dati2
> excelB.xls | C:\DATI\Dati2
>
> In questo modo potrei importare tutti i files di excel contenuti in
tutte le
> sottocartelle.
> Ho già provato inserendo "a mano" i percorsi e funzione.
> Potete aiutarmi?
> Grazie a tutti in anticipo
>
La funzione Dir ti da' il nome del file compreso di percorso. Guarda i
parametri nell'help
Ciauz
--
'gnurant come una cucuzza
Inviato da
www.mynewsgate.net


text:
"Roberto dalla campagna" <
r.ma...@libero.it
> ha scritto nel messaggio
news:wvd6d.12709$N45.3...@twister2.libero.it...

Se lancio la funzione mi dà
errore di run-time 3001
Invalid argument
Il debug mi evidenzia la riga
Set t2 = CurrentDb.CreateTableDef(s)



text:
"'gnurant" <
6751i...@mynewsgate.net
> ha scritto nel messaggio
news:200409281...@mynewsgate.net...
[CUT]
> >
>
> La funzione Dir ti da' il nome del file compreso di percorso. Guarda i
> parametri nell'help
Non č cosě per ls sub pubblicata sul Sito Comune di cui stiamo parlando.
> Ciauz



text:
"giancarlo" <
thi...@tin.it
> ha scritto nel messaggio
news:cjbvb0$f6j$1...@fata.cs.interbusiness.it...
[CUT]
> >
> Se lancio la funzione mi dà
> errore di run-time 3001
> Invalid argument
>
> Il debug mi evidenzia la riga
> Set t2 = CurrentDb.CreateTableDef(s)
>
Per scrupolo ho provato la SUB di cui sopra ed a me funziona bene senza
darmi alcun errore.
Hai forse copiato male qualcosa, oppure nel tuo database non hai aggiunto i
riferimenti alla libreria Microsoft DAO.



title: Report con query.

author: Pisinho

text:
Salve,
ho un database sotto Access 2000.
Come posso richiamare una query passandogli vari parametri di volta in
volta?
Secondo il mio uso dovrei fare un ciclo FOR ed avere poi tante variabili
quante sono le query fatte.
Il risultato poi dovrebbe andare nel report quindi credo basta associare
l'oggetto alla variabile.
Grazie mille.


title: Report con query.

author: Roberto da casa

text:
"Pisinho" <
li...@fol.it
> ha scritto nel messaggio
news:avcb3f$vu$1...@newsreader.mailgate.org...

Nei criteri della query parametrica fai riferimenti al/i controllo/i che
contengono i parametri in una maschera aperta, ad esempio:
Forms!NomeMaschera!NomeControllo
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: X Lbo: ODE et similia

author: Stefano Radice

text:
Ho letto il tuo articolo sul sito comune, riguardante l' annosa questione
del "compilatore per Access"...estraggo un periodo:
"...lavorando con Access si sente parlare di "compilazione" del codice. Di
che si tratta? Si tratta semplicemente di un sommario controllo formale che
l'ambiente di sviluppo di Access compie sul codice che si scrive. in questo
modo è possibile ad esempio individuare errori di sintassi grossolani,
variabili non dichiarate..."
ma questo è corretto solo per Access 2.0! Come ben saprai, Access effettua
dalla versione 95 in poi qualcosa di più di un controllo formale, generando
p-code esattamente come faceva VB fino alla versione 4.0
(oddio, in realtà anche la 5 e la 6 non producono dei VERI eseguibili perché
si appoggiano su una virtual machine, ma qua si comincia a filosofeggiare).
Non sarebbe opportuno un aggiornamento dell' articolo, visto che sembra che
parecchia utenza abbia già le idee molto confuse sull' argomento?
Ciao
Stefano


title: X Lbo: ODE et similia

author: Lbo dall'ufficio

text:
>"...lavorando con Access si sente parlare di "compilazione" del codice. Di
>che si tratta? Si tratta semplicemente di un sommario controllo formale che
>ma questo č corretto solo per Access 2.0! Come ben saprai, Access effettua
>dalla versione 95 in poi qualcosa di piů di un controllo formale, generando
mi riferivo al pulsantino che appare quando si scrive codice, passando
il mouse sul quale appare un tip con su scritto compilazione o
qualcosa del genere.
comunque se vuoi aggiorna pure.
a mio avviso pero' se ci mettiamo a parlare di pcode e virtual machine
ai newbies che gia' si confondono e si creano false aspettative a
leggere i tooltip, non aggiungiamo chiarezza.  lo scopo della mia
frase era semplicemente quello di rendere chiaro che la compilazione,
comunque la si senta nominare, *non* corrisponde alla trasformazione
in .exe.  tanto mi basta.
-------------------------------------------------------
concorsi pubblici truccati.  questo č solo un esempio:
http://www.fortunecity.com/business/koch/947/index.htm


title: Referenze help

author: Fausto

text:
Salve a tutti.Riposto un quesito a cui purtroppo non ho avuto risposta.
Quando distribuisco agli utenti il nuovo FE, dopo che sono state aggiornate
alcune maschere, alcuni utenti lamentano un errore dovuto, sembra, alla
mancanza di una libreria, anzi in particolare al riferimento ad una libreria
in quanto la stessa esiste nella posizione corretta.Mi spiego meglio, quando
l'utente apre una maschera qualsiasi, gli viene fuori un messaggio di errore
di Access Basic per "progetto non trovato".Quello che si deve fare quindi è:
1) Aprire la finestra di access basic
2) selezionare "Strumenti", quindi Riferimenti
3) Deselezionare la voce "MANCA: Microsoft ActiveX Data Object recordset
2.5"
4) Premere OK
5) Riselezionare Strumenti, quindi Riferimenti
6) Selezionare "Microsoft ActiveX Data Object recordset 2.5"
7) Premere OK e riavviare.
Dopodiche tutto rifunziona.Premetto che esiste la libreria MSADOR.DLL nella
cartella specificata nella finestra Riferimenti.
Qualche info in merito??
grazie
Fausto


title: Problema con maschera

author: VedoTondo

text:
Sto cercando di creare una maschera dove vado a pescare i dati relativi a
delle gare,
Questa è la query che mi serve:
----------------------------------------------
SELECT gare.ID1, schedario.cognome, tipo_gare.[tipo gara],
lunghezza_gara.[tipo gara], gare.lunghezza_vasca
FROM lunghezza_gara INNER JOIN (tipo_gare INNER JOIN (schedario INNER JOIN
gare ON schedario.ID = gare.atleta) ON tipo_gare.ID = gare.tipogara) ON
lunghezza_gara.ID = gare.lunghezza_gara
WHERE (((schedario.cognome)="nomeatleta") AND ((tipo_gare.[tipo
gara])="rana") AND ((lunghezza_gara.[tipo gara])=50) AND
((gare.lunghezza_vasca)=25));
-----------------------------------------------
Purtroppo tutte le volte devo aprirla e cambiare il nome atleta o scegliere
il tipo gara etc., vorrei invece creare una maschera che mi fa scegliere che
gara ho da estrarre, di che atleta, in che vasca e la lunghezza vasca,
secondo voi è possibile?
Ho dato un'occhiata a questi due progetti 1) 3.72 -  2) 3.77 ma non mi
sembra che faccia al mio caso.
Saluti Andrea


title: Problema con maschera

author: Alessandro Cara

text:

se fai una maschera con record source la tua query e, senza strafare,
un  bottone al cui click si potrebbe:
dim x
if "" & controlloatleta <> ""  then x = "and cognome ='" &
replace(controlloatleta ,"'","''") & "' "
if "" & controllotipogara <> "" then x = x & "and [tipo gara] = '" &
controllotipogara & "' "
......etc... per tutti i controlli che desideri
if "" & x <> "" then
	me.filter = mid(x,4)
	me.filteron = true
end if
che succede?
--
a.cara


title: Problema con maschera

text:
"Alessandro Cara" <
al...@puntablunet.it
> ha scritto nel messaggio
news:5YFlf.18778$z_6....@tornado.fastwebnet.it...
>
> se fai una maschera con record source la tua query e, senza strafare, un
> bottone al cui click si potrebbe:
>
> dim x
> if "" & controlloatleta <> ""  then x = "and cognome ='" &
> replace(controlloatleta ,"'","''") & "' "
>
> if "" & controllotipogara <> "" then x = x & "and [tipo gara] = '" &
> controllotipogara & "' "
>
> ......etc... per tutti i controlli che desideri
>
> if "" & x <> "" then
> me.filter = mid(x,4)
> me.filteron = true
> end if
>
> che succede?
Sinceramente non ho capito molto della procedura che mi hai descritto ma ho
capito il senso.
Per adesso ho impostato nella casella criteri della query: [lunghezza gara?]
ect per tutte le interrogazioni che mi servono, già così tutte le volte che
richiamo la query viene la richiesta dei dati che ho bisogno di trovare e a
fine percorso mi appare il record che mi interessa.
Saluti Andrea


title: prelevare dato da tabella html

text:
Salve a tutti,
Avrei bisogno di un’aiuto.
Mi sono incasinata nel creare un db asp per la mia piccola azienda.
Adesso sono ferma qui… in quanto mi servirebbe prendere un dato dalla mia
tabella Html che scaturisce da questo codice per poi usarlo come variabile
in un’interrogazione Sql sul mio db
Il dato che mi serve è questo:
Evento
vedi sotto
Ringrazio chiunque voglia aiutarmi…
Alessia
------ inizio codice
<% response.buffer=true %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

  <title>web Dbase - pannello utente -</title>

<%
'verifica se utente è loggato
if session("loggato") = false and session("username")="" then
'utente non loggato reindirizza su login
response.redirect "login.asp"
end if
%>

     BENVENUTO
	 	 <%
	  response.write(session("username"))
	  %>

<%
'dichiara username
username=session("username")
' percorso  db
url_DB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("\DB\matserver.mdb")
'crea identifica oggetto db
set conn= server.createobject("adodb.connection")
'apre connessione
conn.open url_DB
'crea recordset
set recset = server.createobject("adodb.recordset")
SQL = "SELECT Evento.* FROM Evento WHERE
(((Evento.Status_evento)<>'chiuso'));"
recset.open SQL, conn, adopenstatic
'crea recordset
set recset_ut = server.createobject("adodb.recordset")
SQL_ut = "SELECT utenti.Autorizzazione FROM utenti WHERE
(((utenti.Username)='" & username & "'));"
'recset_UT.open SQL_UT, conn, adopenstatic
set recset_ut= conn.execute(sql_ut)
autorizzazione = RECSET_UT("Autorizzazione")
%>

Mod.
Evento
cliente
Oper.
telefono
Compagnia
cap
Data contatto
Ora contatto
Data risol.
Ora risol
Status

<%
do until recset.eof ' per tutti i records ...
IF autorizzazione = "6" then
'crea sessione per autorizzazione
Session("autorizzazione")= autorizzazione
%>
Apri.
<%
else
%>
-
<%
end if
For Each campo in recset.Fields '... scrivo di ogni campo ...
%>

<%=campo.value%>
<%
next
%>

<%
recset.movenext
loop
%>

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


title: prelevare dato da tabella html

text:
"Alessia_pt" <
alma_p...@libero.it
> ha scritto nel messaggio news:d6s0a2$18q$1...@news.newsland.it...
> Salve a tutti,
> Avrei bisogno di un'aiuto.
> Mi sono incasinata nel creare un db asp per la mia piccola azienda.
> Adesso sono ferma qui. in quanto mi servirebbe prendere un dato dalla mia
> tabella Html che scaturisce da questo codice per poi usarlo come variabile
> in un'interrogazione Sql sul mio db
> Il dato che mi serve è questo:
> Evento
> vedi sotto
>
> Ringrazio chiunque voglia aiutarmi.

Da dove lo devi leggere il valore? Da Access o Web? E l'interrogazione del DB SQL la devi fare con Access o Web?
Ciao.
P.S. Se devi fare tutto su web questo non è il sito adatto; sei fuori tema. Prova su it.comp.www.asp.
--
Sergio MAZZA


title: prelevare dato da tabella html

text:
hai ragione Sergio scusami,sono proprio una sciocca... ho sbagliato ng!
cmq il server è un db access
Alessia
Sergio MAZZA ha scritto:

> > Server.MapPath("DBmatserver.mdb")


> Ciao.

--
questo articolo e` stato inviato via web dal servizio gratuito



title: prelevare dato da tabella html

text:
"Alessia_pt" <
alma_p...@libero.it
> ha scritto nel messaggio news:d6s7fp$6ug$1...@news.newsland.it...
> hai ragione Sergio scusami,sono proprio una sciocca... ho sbagliato ng!
> cmq il server č un db access
> Alessia
>
Non c'č problema; solo che nei NG appropriati sicuramente avrai risposte piů precise...
Ciao e buon lavoro.
--
Sergio MAZZA


title: funzione euroconvert con pc con solo run time

author: desio

text:
non vuol proprio funzionare con access 2000 la funzione euroconvert mentre
sul pc con access completo va su altri con solo le run time mi blocca la
macro che la richiama e poi mi chiude tutto
ringrazio


title: requery di un controllo nel recordset

author: Franco dellavalle

text:
ciao a tutti
come si fa per eseguire un requery
di un controllo nel recordset?

grazie


title: requery di un controllo nel recordset

text:

Nel Recordset non ci sono Controlli...!
Cosa devi fare...?

@Alex


title: requery di un controllo nel recordset

text:

ciao Alex
visto che uso il recordset
ed aggiorno la subform con
rs.update
volevo aggiornare il controllo
della subform senza dover fare
me!subform.Form!nomecontrollo.requery


title: requery di un controllo nel recordset

text:
Ma il controllo che tipo è perché solo combo e listbox supportano il Requery....
Sei sicuro sia il TUO caso....?

@Alex


title: requery di un controllo nel recordset

text:

combo


title: requery di un controllo nel recordset

text:
Non complicarti le cose... fai il requery... io non mi sognerei altre cose.

@Alex


title: Problema con maschere continue

author: Marco Santilli

text:
Ho 5 campi
Di cui 4 sono collegati ad una tabella mentre un campo non è associato a
niente
Titolo
Codice Libro
Autore
Casa editrice
Conteggio delle vendite
Nel campo non associato ho impostato questo criterio: [Forms]![ANAGRAFICA
CON PROPAGANDISTA1]![Titolo]
Ossia mi va a prendere il Titolo presente in questa maschera e me lo va a
cercare in una tabella dove ci sono tutte le vendite e mi restituisce il
numero dei libri che ho venduto.
Ecco il problema: se anilizzo sotto il punto di fista funzuionale, è
corretto perchè mi restituisce il numero dei libri che ho venduto, il
problema è che nei record sotto mi restituisce sempre lo stesso numero del
primo, non mi ripete da solo la query per ogni record
Dove sta il problema?????


title: Problema con maschere continue

author: Carlo Costarella

text:
"Marco Santilli" <
marco.s...@libero.it
> ha scritto nel messaggio
news:b0monl$8mt$1...@fata.cs.interbusiness.it...

Sposta il codice a fronte dell'evento "Su Corrente" della maschera, sempre
che non sia una maschera tabellare.
Me.NomeControllo = .....
Ciao, Carlo


title: Problema con maschere continue

text:
"Marco Santilli" <
marco.s...@libero.it
> ha scritto nel messaggio
news:b0monl$8mt$1...@fata.cs.interbusiness.it...

Visto che stai usando una maschera con visualizzazione a Maschere continue,
non puoi risolvere il problema con del codice VBA generato a fronte di
qualche evento della maschera.
risolvi il problema scrivendo una funzione DSum (vedi help) nell'origine
controllo della casella di testo non associata nella quale vuoi visualizzare
il numero di record presenti in una certa tabella relativi al libro il cui
titolo è contenuto nel contollo Titolo dell maschera [ANAGRAFICA CON
PROPAGANDISTA1].
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Undo su modifica

author: Lucio

text:
Salve a tutto il NG,
piccolo inconveniente
in una form ho il campo DataOrdine.
Questo campo si inserisce atomaticamente su click del pulsante nuovo
ordine;
vi sono però operatori abilitati allla modifica di questo campo.
La routine è la seguente:
Dim Password As String
Password = DMax("[Password]", "Usys_TBLLogin", "[CodUtente]=
Forms![Usys_Login]![CodUtente]")
If Not IsNull(Me.DataOrdine) Then
Undo
If InputBox("Inserire password utente per modifica dati", "ModificaDati")
= Password Then
Me.Operatore = DMax("[CodUtente]", "Usys_TBLLogin", "[CodUtente]=
Forms![Usys_Login]![CodUtente]")
DoCmd.OpenForm "FRMModificaDataOrdine"
Else
MsgBox "L'operatore non è autorizzato alla modifica!", vbOKOnly +
vbCritical, "Controllo utente"
Undo
End If
End If
End Sub
Però c'è un piccolo problema:
la routine parte quando io vado a modificare il campo DataOrdine dove vi
sono dati, premendo un tasto.
Se la password inserita e sbagliata mi viene fuori l'msgbox che mi avvisa
dell'errore e dopo di chè nel campo data ordine mi rimane la cifra
digitata quando è partita la routine, a questo punto posso continuare ad
inserire un'altra data poichè la routine non interviene!
In pratica l'undo a fine routine non ha nessun effetto.
Perchè
Thanks
Lucio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Undo su modifica

author: TheMax

text:
"Lucio" <
nap...@tin.it
> ha scritto nel messaggio
news:chc106$e2u$1...@news.newsland.it...

Dipende da che evento hai gestito. Ovvero quale evento scatena questa
routine.
Eventualmente dovresti cambiare eventi
> Thanks
Fa sapere.
> Lucio
Ciao,
Massimo
--
web:
www.piubelli.net
Ciò che oggi è facoltativo domani sarà necessario.
Perchè non prepararci per tempo al futuro?
Vuoi il mio indirizzo? Togli _cut_ per rispondermi


title: scritta predefinita su casella di testo

author: ]SiLVieTTa[

text:
mi chiedevo se possibile fare un qualcosa tipo quella che si può fare con le
caselle di testo sulle pagine web.
mi riferisco a quelle caselle di testo che contengono una scritta predefinita,
ma che nel momento in cui si clicca dentro, la scritta si svuota per dare la
possibilità di inserire il testo.
Ciao
Silvia.
 --
www.silvietta.it
...everyone's invited!
Non Esiste Una Razza Bianca, Benche' Se Ne Parli Tanto: Ogni Uomo Bianco E' Solamente Un Uomo Scolorito