author: Ferrari Rino

text:
Hai provato a convertirlo direttamente sul Pc dove e installato access 97?
Se ricordo bene devi convertirlo la prima volta che lo esegui  altrimenti
non te lo fa aprire più.
Rino
gen...@tin.it
"rcrudo" <
rcr...@tin.it
> ha scritto nel messaggio
news:A8cZ5.1129$Kw2....@twister2.tin.it...



title: Problemi di conversione file access 2000 to access 97

author: Pleiadi

text:
> > Ciao a tutti , ho un problema.
> > Ho creato un database con la versione di access2000, ma in ufficio
> > sfortunatamente ho la versione 97.
> > Ho fatto la conversione del file da 2000 a 97 ma non mi fa aprire il
> > database.
> > Cosa posso fare per rimediare a questo?
> > Ringrazio anticipatamente chi mi aiuterà.
> >
ma ti ritorna un qualche messaggio d'errore?
Alfio


author: rcrudo

text:
Pleiadi <
za...@libero.nospam.it
> wrote in message
8FFZ5.91970$hk4.3...@news.infostrada.it...
> > > Ciao a tutti , ho un problema.
> > > Ho creato un database con la versione di access2000, ma in ufficio
> > > sfortunatamente ho la versione 97.
> > > Ho fatto la conversione del file da 2000 a 97 ma non mi fa aprire il
> > > database.
> > > Cosa posso fare per rimediare a questo?
> > > Ringrazio anticipatamente chi mi aiuterą.
> > >
> ma ti ritorna un qualche messaggio d'errore?
> Alfio
>
> Si mi dice che i moduli non sono compatibili


title: Query in apertura di maschera.

author: Apone

text:
Ciao a tutti,
ho una maschera "inserisci carichi" che mi permette di inserire i
carichi di un cliente.
le tabelle che mi fa gestire la maschera sono 2
conto = id_conto; fornitore; stato: principale
carichi= id_carico; id_conto; data; carico; che voglio riempire
progressivamente
nella tabella conto il record stato può essere aperto o chiuso, io
vorrei che quando apro la maschera inserisci carichi vengano selezionati
solo i record della tabella principale che hanno come stato il valore
'aperto', come devo fare?
Grazie 1000


title: Query in apertura di maschera.

author: Antonio Biso

text:
"Apone" <
alfon...@yahoo.it
> ha scritto nel messaggio
news:45a6482c$0$16142$4faf...@reader3.news.tin.it...

Non sei stato chiarissimo per quanto riguarda la struttura dati del DB.
Comunque, se la maschera inserisci carichi ha come origine record la tabella
conto direttamente, sostituisci questa origine record con una query che
restituisce i dati della tabella stessa ma con un criterio che filtra solo i
record con stato aperto
Antonio


title: help

author: bialik

text:
SHALOM
I ask you to read this letter till the end! Don't treat to my words
with indifferens. On Your understanding it will depend my fate and the
fate of my child!
I am Bialik Oleg , date of birth 1964 , pssport No ,313690364
repatriated to Israel in March 1999 with my family from Ukraine(Kiev).
However on 28 of September 2000 my wife
left me with with child and went to other man in Kiev.
She robbed me and my child , took money from personal savings , left
us
with our debts and went out Israel.
Ten years I have suffered from diabetes (diabetes mellitus type I) , I
got
three injection of insulin per day . After the endured stress I find
myself in hospital with diagnosis : diabetic ketoacidosis
(hiperlipidemia).
I am 65% Physicaly Inable.
In situation , I found myself , I was never. We have no relatives and
friends in Israel.
I shall struggle for our with my child surviving till the last breth.
But at present moment I am not imagining how I and my child
can go out of this financial bankruptcy.
My money that I get from Bituah Leumi were cut to 1236 shekels
for month.Now it's even not enough to buy food and pay taxes.
Because of my Physical inability I can not work.
My son that is going to be an Israely soldier in a year can not be
hungry. We have nothing to pay for a room and us will expose on
street.
Therfore I apply to you , asking to help as you can. The help which
goes from philanthropists of America does not reach in Israel simple
people!!!
If you think that this is some kind of scam I can send you my
documents that can proof personal information with your request.
If you cant help, please send this to any people that you know that
can help me.
Contact telefon (972)546504203
My data: Bank Leumi. Israel
Branch 886
Account : 517044\94
Haifa. Israel.
Byalik Oleg
Our adress is Israel, Haifa, BAZALEL 24 a, Bialik family. E-MAIL
goldm...@mail.ru

 Whith respect Bialik Oleg


title: Conferma di esecuzione di una query

author: Simone Sarzano

text:
Ciao a tutti,
ho la necessità di avviare una macro all'apertura del file access.
Tale macro avvia una serie di query ma ogni volta che viene eseguita mi
chiede la conferma!
E' possibile disabilitare tale cosa?
A presto,
Simone


title: Conferma di esecuzione di una query

author: Newsgroup

text:
"Simone Sarzano" <
sim...@NOSPAM.sarzano.com
> ha scritto nel messaggio
news:b2888j$e4i$1...@fata.cs.interbusiness.it...

SetWarnings False


title: Conferma di esecuzione di una query

text:
Grazie Newsgroup,
ma dove sta tale settagio?
Nel senso devo impostarlo a livello di codice, vero?
Grazie ancora,
Simone


title: Conferma di esecuzione di una query

text:
"Simone Sarzano" <
sim...@NOSPAM.sarzano.com
> ha scritto nel messaggio
news:b28brs$sck$1...@fata.cs.interbusiness.it...

C'č anche nelle impostazioni d'avvio, ma conviene disabilitarlo da codice
prima di eseguire
l'azione che genera il Messaggio e ripristinarlo subito dopo......!!
DoCmd.SetWarning False
.........'Azione
DoCmd.SetWarning True
@Alex.


title: problema query

author: nicoletta serraino

text:
Date le seguenti tabelle di Access:
LIBRI
Codice|Descrizione
------------------
1     | AAAA
------------------
2     | AAAA
------------------
3     |XYZ
------------------
4     | WWWW
------------------
5     | xyz
Tabella "Libri-Parole"
Codice|Parola
------------------
1     | Pippo
------------------
1     | Pluto
------------------
2     | Pippo
-----------------
2     | Pluto
------------------
3     | Pippo
------------------
4     | WWWW
------------------
...
Vorrei risolvere il seguente problema con una sql unica: devo ricavare
l'elenco dei libri che contengono le parole Pippo e Pluto e con
descrizione "AAAA"
ovvero in questo caso il risultato:
Codice|Descrizione |Parola
-----------------------------
1     | AAAA       | Pippo
-----------------------------
1     | AAAA       | Pluto
-----------------------------
2     | AAAA       | Pippo
-----------------------------
2     | AAAA       | Pluto
-----------------------------
Devo arrendermi e fare infiniti cicli sulla tabella???
grazie
nicoletta
P.S. So che potrei fare un inner join della tabella con se stessa, ma
questo diventa
piuttosto scomodo se devo mettere piu condizione e soprattutto il
risultato del tracciato record.


title: bloccare immissione dati su filtro

author: Pippo Zibibbo

text:
Nel caso in cui uno faccia una ricerca con il filtro in base a maschera
vengono visualizzati tutti i record che corrispondono ai criteri immessi.
Ora potrebbe essere conveniente bloccare tutti i controlli della maschera
attualmente attiva affinchè chi usa il Db non smanacci troppo. La mia
domanda è questa: come si può (se si può !) da codice bloccare l'immissione
dei dati quando è attivo il filtro in base a maschera ?
Grazie mille e buon inizio di settimana a tutti !
Antonio
- - - - - -  - - - - - -  - - - - - - - - - - -  - - - - -
Crea il compilatore per creare gli exe in Access e diventerai ricco !!!!
;))))
- - - - -  - - - - - -  - - - - - - - - - -  - - - - - - -


title: bloccare immissione dati su filtro

author: Nicola Ardito

text:
Pippo Zibibbo ha scritto nel messaggio
<97vko8$7e0$
1...@pegasus.tiscalinet.it
>...
> La mia
>domanda è questa: come si può (se si può !) da codice bloccare l'immissione
>dei dati quando è attivo il filtro in base a maschera ?
Su Corrente una cosa del tipo
Me.AllowEdits = Not (Me.FilterOn)
Ciao Nicola
email: metti inwind al posto  di NOSPAM


title: Concatenzaione di stringhe

author: Sharp

text:
So cercando di concatenare due stringhe Cognome e Nome in una terza
contenente sia il cognome, sia uno spazio, sia il nome:
La formula che adopero nei critery della query è la seg.
[Cognome] & "  " & [Nome]
come mai non mi funziona?
Grazie
Ciao


title: Concatenzaione di stringhe

author: ALESSANDRO Baraldi

text:
"Sharp" <
sh...@park.it
> ha scritto nel messaggio
news:9b1lg0t4ek93d4j6p...@4ax.com...

Posta il Codice SQL completo, ma se è un criterio è anomala
la tua Richiesta dal momento che presumo tu non abbia un
campo unico....!!!
Se invece vuoi ottenere un Nuovo Campo(Calcolato) che
come risultato ha Cognome+Spazio+Nome allora hai errato
il posto in cui hai inserito la Formula.
Deve essere messa nella Riga "CAMPO" come nome del nuovo.
Ciao.
@Alex.


title: Concatenzaione di stringhe

text:
On Fri, 30 Jul 2004 19:40:35 +0200, "ALESSANDRO Baraldi"
<
ik2...@libero.it
> wrote:
>Se invece vuoi ottenere un Nuovo Campo(Calcolato) che
>come risultato ha Cognome+Spazio+Nome allora hai errato
>il posto in cui hai inserito la Formula.
>Deve essere messa nella Riga "CAMPO" come nome del nuovo.
>
>Ciao.
>@Alex.
Ho fatto proprio cosě e tutto č andato bene. Grazie era quello che mi
serviva
Ciao a buon rendere


title: Vedere dati record nella maschera dopo inserimento 2 campi

author: AntFast

text:
Salve a tutti.
Con Access 2003, ho una tabella "Anagrafiche" con i campi
"Cognome", "Nome", ed altri ....
Inserisco nuovi records mediante una maschera che ha recordsource
la tabella "Anagrafiche".
Quando inserisco un nuovo record, digito il Cognome, poi il Nome. Su evento
After Update del Nome, controllo che i dati non siano già presenti nella
tabella
"Anagrafiche" con
If DCount("Cognome & Nome", "Anagrafiche", "Cognome & Nome = " & Me.Cogn &
Me.Nom) > 0 then
ecc...
end if
La domanda: Quando trovo che il record che sto inserendo esiste già, come
faccio
ad annullarlo e a visualizzare nella maschera tutti i dati del record già
presente in
tabella "Anagrafiche" ? (eventualmente per modificarlo...)
Ho provato a guardare un pò dappertutto, purtroppo con i miei anni faccio
fatica a
trovare la risposta.. :-(
Gradirei capire quale è la via da seguire, poi per il codice mi arrangerò...
Grazie in anticipo per l'eventuale cortese risposta.
Antonio


text:
Hai avuto risposta al precedente IDENTICO QUESITO... ti piace fare più volte la stessa domanda...?

Di norma non è bellissimo...

@Alex


title: Dimensioni db

author: Enrica

text:
Ciao a tutti.
Qualcuno sa spiegarmi xchè appena uso il db senza aggiungere foto o grandi
quantità di dati la dimensione aumenta in maniera notevole.
Appena adesso ho sistemato un po di cose e da 2 MB è passato a 10 MB
Ciao e grazie a tutti


title: Dimensioni db

author: Sib

text:
"Enrica" <
zx...@libero.it
> ha scritto nel messaggio
> Qualcuno sa spiegarmi xchè appena uso il db senza aggiungere foto o grandi
> quantità di dati la dimensione aumenta in maniera notevole.
>
> Appena adesso ho sistemato un po di cose e da 2 MB è passato a 10 MB
Questa e' ormai diventata una FAQ, ti sarebbe bastato una piccola ricerca
tra i messaggi da 15 giorni a questa perte per trovare risposta.
Se hai una libreria con tutti i libri ordinati e sistemati in modo da
poterne leggere il titolo e da poterli estrarre e/o trovare con facilita'
questa libreria ti prendera', magari, un parete.
Certo puoi anche accatastare tutti i libri in un angolo, occuperai
certamente meno spazio, ma prova a mantenerli ordinati man mano che aggiungi
nuovi libri o pensa alla "facilita' " con cui potrai eliminare i libri ormai
vecchi (cercandoli magari in fondo alla catasta).
Sib


title: Access2000 Premium e MSDE2000

text:
Ciao a tutti,
vi risulta qualche incompatibilita'?
da me succede che A2000 (applicazione) vede tuttele sp come NomeSP;1
con questo ;1 in coda.
le vede ma non le apre ne' facendoci doppio click sopra ne' come origine
record delle maschere.
lo stesso file adp (ver 2000) aperto con AXP funziona regolarmente.
Bo!
Sib


title: Access2000 Premium e MSDE2000

author: Giorgio Prx

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:6Nzhb.195159$hE5.6...@news1.tin.it...

Articolo Microsoft Knowledge Base - 269824
ACC2000: Incompatibility Issues Between Access 2000 Projects and SQL Server
2000
http://support.microsoft.com/default.aspx?scid=kb;en-us;269824&Product=acc20
00
Ciao Giorgio


title: Access2000 Premium e MSDE2000

text:
"Giorgio Prx" <
giorgio...@nospamtiscalinet.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> > Ciao a tutti,
> > vi risulta qualche incompatibilita'?
> > da me succede che A2000 (applicazione) vede tuttele sp come NomeSP;1
> > con questo ;1 in coda.
> > le vede ma non le apre ne' facendoci doppio click sopra ne' come origine
> > record delle maschere.
> > lo stesso file adp (ver 2000) aperto con AXP funziona regolarmente.
> > Bo!
> >
> > Sib
> >
> >
>
> Articolo Microsoft Knowledge Base - 269824
> ACC2000: Incompatibility Issues Between Access 2000 Projects and SQL
Server
> 2000
>
>
http://support.microsoft.com/default.aspx?scid=kb;en-us;269824&Product=acc2000
Azz
Ti ringrazio, ma non credere che non abbia cercato, a volte non si capisce
che cavolo faccia sto motere di ricerca nella knowledge di base.
Ciao
Sib


title: Compattare mdb e riaprirlo (Access 2007)

text:
Ciao a tutti,
vorrei far si che il mio db, con un apposito comando, si chiudesse, si
compattasse e si riaprisse.
Per altri db ho utilizzato la soluzione che sta sul Sito Comune (Federico
Luciani "Compattare un db in uso")
Ma se funzionava benissimo con A2000, ora con A2007 non c'� verso di farla
andare.
Mi apre decide di finestrelle di wscript.exe dicendo che il database �
aperto in modo esclusivo.
C'� un altro metodo, considerando che ho settato a on l'opzione "compatta
alla chiusura"?
Ciao e grazie
Luca60


title: ID contatore dopo query accodamento

author: pesie

text:
Dovrei accodare, tramite query, n record a una tabella che contiene
come chiave il campo contatore ID.
Ai record che accodo viene assegnato in automatico il loro ID. C'è la
possibilità di salvarlo da qualche parte subito dopo l'accodamento?
Grazie


title: ID contatore dopo query accodamento

author: marcopio

text:

Se usi il campo contatore numero è assegnato da Access,
il default è l'incremento del valore di 1 unità (potresti anche aver
impostato Nuovi Valori a Casuale).
Se lavori con il default:
per l'ultimo puoi fare una quey del tipo:
SELECT MAX(NomeID) From TuaTabella
(oppure anche il DLookUp)
Per gli n valori devi farti una query,
se salvi gli ID puoi estrarti i valori > dell'ultimo ID memorizzato,
altrimenti devi estrarti gli n valori più grandi.
Se Nuovi Valori = Casuale puoi solamente farti delle query
identificando il singolo record tramite gli altri campi.
HTH, mpio.


title: ID contatore dopo query accodamento

text:
Grazie dell'aiuto.
Ho preferito cambiare il metodo utilizzando del codice al posto della
query per inserire in nuovi record in tabella e salvare l'ID che
veniva assegnato


title: Prelievo quotazioni

author: Fabio

text:
Ciao a tutti amici,
vorrei crearmi un portafoglio fondi personalizzato utilizzando Access, ma
non so come creare un campo calcolato che mi prelevi in automatico le
quotazioni aggiornate basandosi su quelle pubblicate da uno dei tanti siti
in circolazione (Il sole 24 Ore, tanto per fare un nome).
Ciao a tutti e grazie in anticipo per le risposte che mi darete.


title: Filtro ad Esclusione in VBA

author: Gimmy

text:
Ciao a tutti!!
Qualcuno sa come si fa in VBA un filtro AD ESCLUSIONE?!?
Grazie mille
GM


title: Filtro ad Esclusione in VBA

author: Carlo Costarella

text:
"Gimmy" <
ggi...@tin.it
> ha scritto nel messaggio
news:3ErEf.157586$65.43...@twister1.libero.it...

Intendi un recordset che restituisca tutto meno un valore?
Cosě?
Public Function EscludiCitta(NomeCitta As String)
Dim rcs As Recordset
Set rcs = CurrentDb.OpenRecordset("SELECT Clienti.* FROM Clienti WHERE
(((Clienti.Citta) Not Like " & "'" & NomeCitta & "'" & "));")
rcs.MoveLast
rcs.MoveFirst
MsgBox rcs.RecordCount
rcs.Close
Set rcs = Nothing
End Function
Ciao, Carlo


title: Filtro ad Esclusione in VBA

text:
Grazie mille, ma ho risolto con una condizione IIF nem Where
Grazie
GM
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:43e25cb3$0$26447$4faf...@reader1.news.tin.it...



title: Errore 3197 Access2000 e ODBC

author: merco

text:
Ciao.
Rifaccio questa domanda al NG:
Ho un FE in access2000 con tabelle ODBC collegate a SQL2k.
L'SQL che dà errore (3197 Record eliminato.) è:
INSERT INTO TmpRicArtTecCom ( CodiceArticolo, DescrArticolo,
Categoria, IDCodice, IDFamApp, CodiceArtComm, Descrizione,
CreatoData )
SELECT Articoli.CodiceArticolo, Articoli.DescrArticolo,
Articoli.Categoria, Articoli.IDCodice, Articoli.IDFamApp,
DBComm_T.CodiceArtComm, DBComm_T.Descrizione, DBComm_T.CreatoData
FROM Articoli LEFT JOIN DBComm_T ON Articoli.CodCommerciali =
DBComm_T.CodiceArtComm
WHERE (((Articoli.CodiceArticolo)>='030' And
(Articoli.CodiceArticolo)<='030'));
TmpRicArtTecCom è una tabella sul MDB locale, mentre Articoli e
DBComm_T sono su SQLServer.
Le tabelle SQL hanno tutte chiave primaria su un singolo campo (di
testo) e tutte il timestamp.
La tabella temporanea di destinazione ha anch'essa la chiave primaria
e i campi CodiceArtComm, Descrizione che ammettono valori NULL.
Ovviamente se faccio la Select (dal riquadro di access) e non un
"insert to" non mi dà errore
SELECT Articoli.CodiceArticolo, Articoli.DescrArticolo,
Articoli.Categoria, Articoli.IDCodice, Articoli.IDFamApp,
DBComm_T.CodiceArtComm, DBComm_T.Descrizione, DBComm_T.CreatoData
FROM Articoli LEFT JOIN DBComm_T ON Articoli.CodCommerciali =
DBComm_T.CodiceArtComm
WHERE (((Articoli.CodiceArticolo)>='030' And
(Articoli.CodiceArticolo)<='030'));
Le Kb di Microsoft non mi paiono applicabli. Unico dubbio : essendo un
"outer join" può capitare che i campi in DBComm_T siano nulli: è
proprio questo che dà noia ?


title: Loop in fase di creazione tabella legata all'evento apertura di una maschera

author: maurizio

text:
Ciao a tutti,
ho la maschera mscScadFattureForn dove voglio visualizzare i record di una
tabella (tblScadenzario) che mi creo a run-time utilizzando delle query di
accodamento.
Siccome la tabella deve essere ricreata ad ogni richiamo della maschera, ho
legato la sua creazione all'evento apertura della maschera utilizzando il
codice riportato di seguito :
Private Sub Form_Open(Cancel As Integer)
Dim sql As String
sql = " delete * from tblScadenzario"
CurrentDb.Execute (sql)
DoCmd.OpenQuery "qryAccodaScadenza1", acViewNormal
DoCmd.OpenQuery "qryAccodaScadenza2", acViewNormal
DoCmd.OpenQuery "qryAccodaScadenza3", acViewNormal
DoCmd.OpenQuery "qryAccodaScadenza4", acViewNormal
MsgBox "Fine Creazione Tabella !!!"
 DoCmd.Close acTable, "tblScadenzario"
    DoCmd.Close acForm, "mscScadFattureForn"
   DoCmd.OpenForm "mscScadFattureForn", acNormal, "", ""
'dopo l'esecuzione del codice della riga precedente torna all'inizio della
'routine
GoTo Esci
Esci:
End Sub
Succede che, esegue l'intera routine e, alla fine, invece di andare a esci e
cedere il controllo alla maschera, "Looppa" in questa routine senza
permettermi di uscire.
Qualcuno mi puo' aiutare ?
Grazie
Maurizio


author: stefano

text:
"maurizio" <
mm.m...@inwind.it
> ha scritto nel messaggio
news:_G13a.116444$YG2.3...@twister1.libero.it...

Prova a mettere exit sub
 GoTo Esci
 Esci:
exit sub
 End Sub
 Stefano


author: Roberto da casa

text:
"maurizio" <
mm.m...@inwind.it
> ha scritto nel messaggio
news:_G13a.116444$YG2.3...@twister1.libero.it...

Scusami Maurizio, ma è normale che looppi : la routin viene eseguita ogni
volta che apri la maschera mscScadFattureForn; alla fine della routine
chiudi tale maschera ed immediatamente la riapri; alla sua riapertura viene
generato l'evento "Su apertura" e quindi viene rieseguita nuovamente la
routine, che alla fine chiude e riapre la maschera, e così via all'infinito.
Penso che tu non debba riaprire la maschera alla fine della routine, a che
ti serve?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: assegnazione di merende a bambini

author: p. bianchi

text:
LaLo wrote:
> dim strSQL as String
> strSQL = "INSERT INTO [TBLLNK Merende a Bambini] (BambinoId, MerendaId) " & _
>             "VALUES (" & cboBambino.Value & ", " & cboMerenda.Value & ")"
> CurrentDb.Execute strSQL
> Ho assunto che le caselle di riepilogo si chiamassero cboBambino e
> cboMerenda.
Siete stati molto gentili e ringrazio entrambi, entrambe le vs.
soluzioni funzionano!
Siccome quella SQL la capisco di piu', ne ho aggiunta una simile di
UPDATE che cambia lo status della merenda i-esima da libera a assegnata,
seguita da un aggiornamento della maschera (menuitem ecc.) che la fa
sparire dall'elenco delle merende disponibili.
restano due problemi:
- al piede della maschera c'e' il contatore di record associato alla
tabella TBLLNK che sto popolando col bottone aggiorna. mentre la tabella
viene effettivamente popolata, detto contatore non si aggiorna. Ho
provato a mettere un DoCmd.Requery, facendo il requery il contatore si
aggiornava, ma poi ogni operazione era eseguita una seconda volta e gli
elementi della TBLLNK erano tutti doppi. Come posso aggiornarlo?
- ho messo un bottone che mi permette di esaminare la tabella TBLLNK che
sto popolando. Dopo ogni pressione del pulsante aggiorna, in effetti ci
trovo dentro quello che mi aspetto. Quando pero' esco dalla maschera,
l'ultima assegnazione viene fatta una seconda volta e me la trovo
doppia, non capisco perche'. Come mai?
Grazie!
Ciao
B.


title: assegnazione di merende a bambini

author: Davide

text:
----- Original Message -----
From: p. bianchi <
pbianchi...@maxidata.it
>
Newsgroups: it.comp.appl.access
Sent: Wednesday, February 07, 2001 10:31 AM
Subject: Re: assegnazione di merende a bambini
> LaLo wrote:
>
>
> > dim strSQL as String
> > strSQL = "INSERT INTO [TBLLNK Merende a Bambini] (BambinoId, MerendaId) " & _
> >             "VALUES (" & cboBambino.Value & ", " & cboMerenda.Value & ")"
> > CurrentDb.Execute strSQL
>
> > Ho assunto che le caselle di riepilogo si chiamassero cboBambino e
> > cboMerenda.
>
> Siete stati molto gentili e ringrazio entrambi, entrambe le vs.
> soluzioni funzionano!
> [CUT]
> restano due problemi:
>
> - al piede della maschera c'e' il contatore di record associato alla
> tabella TBLLNK che sto popolando col bottone aggiorna. mentre la tabella
> viene effettivamente popolata, detto contatore non si aggiorna. Ho
> provato a mettere un DoCmd.Requery, facendo il requery il contatore si
> aggiornava, ma poi ogni operazione era eseguita una seconda volta e gli
> elementi della TBLLNK erano tutti doppi. Come posso aggiornarlo?
>
> - ho messo un bottone che mi permette di esaminare la tabella TBLLNK che
> sto popolando. Dopo ogni pressione del pulsante aggiorna, in effetti ci
> trovo dentro quello che mi aspetto. Quando pero' esco dalla maschera,
> l'ultima assegnazione viene fatta una seconda volta e me la trovo
> doppia, non capisco perche'. Come mai?
>
> Grazie!
>
> Ciao
>
> B.
Scusa ma non ho capito molto bene il tuo problema.
Per ogni bambino assegni la merenda solo una volta, o il bambino può avere più merende?
Se è assegnata una sola volta (con possibilità di cambiarla) secondo me ti conviene usare il codice
seguente:
Private Sub assegna_Click ()
Dim db as database
Dim rs as recordset
Set db = current db   'se la tabella TBLLNK è nello stesso db della maschera di assegnazione!
Set rs = db.openrecordset ("SELECT * FROM [TBLLNK] WHERE BambinoID = "  _
                                    & Me.ControlloconBambinoID)
'poiché se il bambino non è nella tabella
If rs.EOF then
'viene inserito come nuovo record
    rs.AddNew
    rs!BambinoID = Me.ControlloconBambinoID
    rs!MerendaID = Me.ControlloconMerendaID
    rs.Update
Else
'altrimenti viene trovato il bambino selezionato nella maschera e già inserito in TBLLNK
    rs.Edit
'e viene associata la nuova merenda
    rs!MerendaID = Me.ControlloconMerendaID
    rs.Update
End If
rs.close: Set rs = Nothing
db.close: Set db = Nothing
End Sub
In ogni caso ti conviene a parer mio nella tabella TBLLNK assegnare all'IDBambino una chiave
primaria.
In modo tale eviti duplicati unitili.
Davide


title: assegnazione di merende a bambini

text:
Davide wrote:
> > - ho messo un bottone che mi permette di esaminare la tabella TBLLNK che
> > sto popolando. Dopo ogni pressione del pulsante aggiorna, in effetti ci
> > trovo dentro quello che mi aspetto. Quando pero' esco dalla maschera,
> > l'ultima assegnazione viene fatta una seconda volta e me la trovo
> > doppia, non capisco perche'. Come mai?
> Scusa ma non ho capito molto bene il tuo problema.
> Per ogni bambino assegni la merenda solo una volta, o il bambino puň avere piů merende?
per adesso a un bambino diverso assegno una merenda diversa: al bambino
10 assegno la merenda 123, in tabella trovo
10   	123
0	0
Poi seleziono il bambino 20 e la merenda 456, clicco assegna e in
tabella trovo:
10   	123
20   	234
0	0
Poi non tocco altro, chiudo la form e vado a esaminare direttamente la
tabella. Ci trovo:
10   	123
20   	234
20	234
0	0
E' come se chiudendo la maschera ripetesse il comando di aggiunta riga,
e lo fa anche con il tuo codice.
Se aggiungo 10 diverse merende a 10 diversi bambini sono tutti
individuali, quando esco, mi trovo UNDICI righe, di cui l'undicesima
aggiunta da access e uguale alla decima.
Il problema si verifica durante la chiusura della maschera, infatti se
nella tabella destinazione metto il vincolo "Duplicati non ammessi", al
momento di chiudere mi dice che una transazione non e' stata fatta
perche' viola il vincolo del'unicita'.
Quindi lui raddoppia l'ultima assegnazione al momento in cui chiudo la
maschera, l'impressione e' che il comando resti in una specie di buffer
di azioni, quando chiudo l'oggetto il buffer viene flushato e l'ultimo
comando fa una specie di commit e risulta doppio.
Sto facendo mille prove, non riesco a individuare il settaggio che causa
qs. comportamento indesiderato.
Ciao


title: assegnazione di merende a bambini

text:
p. bianchi <
pbianchi...@maxidata.it
> wrote in message 3A8267B3...@maxidata.it...
> Davide wrote:
>
> > > - ho messo un bottone che mi permette di esaminare la tabella TBLLNK che
> > > sto popolando. Dopo ogni pressione del pulsante aggiorna, in effetti ci
> > > trovo dentro quello che mi aspetto. Quando pero' esco dalla maschera,
> > > l'ultima assegnazione viene fatta una seconda volta e me la trovo
> > > doppia, non capisco perche'. Come mai?
[CUT]
> E' come se chiudendo la maschera ripetesse il comando di aggiunta riga,
> e lo fa anche con il tuo codice.
[CUT]
> Se aggiungo 10 diverse merende a 10 diversi bambini sono tutti
> individuali, quando esco, mi trovo UNDICI righe, di cui l'undicesima
> aggiunta da access e uguale alla decima.
>
> Il problema si verifica durante la chiusura della maschera, infatti se
> nella tabella destinazione metto il vincolo "Duplicati non ammessi", al
> momento di chiudere mi dice che una transazione non e' stata fatta
> perche' viola il vincolo del'unicita'.
[CUT]
M M M M H H H H H ! ? #
Non so che dirti se non:
- Controlla tutti gli eventi della maschera e dei controlli, ci sarà pur scritto da qualche parte!
- Controlla eventuali controlli calcolati, tipo il tuo contatore.
Se poi non trovi niente, prova a descrivere meglio i controlli (TUTTI) che si trovano nel form.
Davide


title: formato per conteggio ore oltre le 24h

author: skipper

text:
Access 97... ho bisogno di visualizzare il totale espresso in ore di una
somma campo Somma([tempo])
Vorrei applicare un formato che mi visualizzi per esempio 25:30 e non 01:30
come avviene adesso.
Sapete dirmi come scrivere il giusto testo? =format(somma([tempo]).....
Grazie dell'aiuto
--
skipper dixit...
www.superskipper.it


title: formato per conteggio ore oltre le 24h

text:
"skipper" <skippe...@NOSPAMsuperskipper.it> ha scritto nel messaggio
news:4xKAa.72244$DN.16...@tornado.fastwebnet.it...

Nell'origine controllo della casella di testo dove vuoi visualizzare la
somma degli orari nella forma hh:mm, prova a scrivere:
=Int(Somma([tempo])*24) & ":" & Int((Somma([tempo]) *24 - Int(Somma([tempo])
*24)) *60)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: formato per conteggio ore oltre le 24h

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:jlMAa.37272$lK4.1...@twister1.libero.it...
>
> > Access 97... ho bisogno di visualizzare il totale espresso in ore di una
> > somma campo Somma([tempo])
> > Vorrei applicare un formato che mi visualizzi per esempio 25:30 e non
> 01:30
> > come avviene adesso.
> > Sapete dirmi come scrivere il giusto testo? =format(somma([tempo]).....
[cut]
> Nell'origine controllo della casella di testo dove vuoi visualizzare la
> somma degli orari nella forma hh:mm, prova a scrivere:
>
> =Int(Somma([tempo])*24) & ":" & Int((Somma([tempo]) *24 -
Int(Somma([tempo])
> *24)) *60)
>
> --
> Roberto
>
grazie mille.... funziona!
solo un piccolissimo dettaglio estetico... 5 ore e 5 minuti me li segna 5:5
al posto di 5:05.... si riesce ad ovviare?
--
skipper dixit...
www.superskipper.it


title: formato per conteggio ore oltre le 24h

text:
"skipper" <skippe...@NOSPAMsuperskipper.it> ha scritto nel messaggio
news:MSnBa.382$Fr5....@tornado.fastwebnet.it...

Prova così:
=Int(Somma([tempo]) *24) & ":" & Format(Int((Somma([tempo]) *24 -
Int(Somma([tempo]) *24)) *60); "00")
> --
> skipper dixit...



title: formato per conteggio ore oltre le 24h

text:

Prova così:

--
Roberto
grazie mille... ora, oltre che funzionante, è anche esteticamente a posto
--
skipper dixit...
www.superskipper.it


title: Aiuto per aggiungere record tramite VBA utilizzando DO LOOP

author: Riccardo

text:
Ciao a tutti,
sto impazzendo per capire come mai questo LOOP non funge! Ho visto
svariati esempi nel NG, SitoComune, DonKarl, MSDN...ma non riesco ad
applicarli al mio caso...
Ho un db così strutturato:
Tabelle: "pagamenti" (IDpagamento, descrizione), "pagamenti_dettaglio"
(IDpagamentodettaglio, IDpagamento, mese, percentuale), "scadenze"
(IDscadenza, IDpagamento) e "scadenze_dettaglio" (IDscadenzadettaglio,
IDscadenza, mesi, percentuale).
Maschera "frmscadenze" con sottomaschera "frmscadenze_dettaglio".
Vorrei un evento AfterUpdate su IDpagamento della maschera che mi crei
tanti record quanti sono in IDpagamentodettaglio (tabella
"pagamnti_dettaglio) copiandoci alcuni campi.
Ecco il mio codice:
---------------------------------------------------------
Private Sub IDpagamento_AfterUpdate()
Dim rst As Recordset
Dim rstpag As Recordset
Set rst = CurrentDb.OpenRecordset("scadenze_dettaglio")
Set rstpag = CurrentDb.OpenRecordset("pagamenti_dettaglio")
rstpag.MoveFirst      'punta all'inizio della tabella
"pagamenti_dettaglio"
Do While rstpag!IDpagamento = Me!IDpagamento      'confronta il campo
IDpagamento della tabella "pagamenti_dettaglio con la combo
"IDpagamento" della maschera
' aggiungi record
rst.AddNew
rst!IDscadenza = Me.IDscadenza      'in questo modo aggancio la
sottomaschera alla maschera principale
rst!mesi = rstpag!mesi
rst!percentuale = rstpag!percentuale
rst.Update
[frmscadenza_dettaglio].Requery      'aggiorna i record visualizzati
nella sottomaschera
rstpag.MoveNext      'scorre il puntatore al prossimo recordset della
tabella "pagamenti_dettaglio"
Loop
End Sub
-------------
Ho provato anche mettendo rstpag.FindFirst (rstpag!IDpagamento =
Me!IDpagamento) ma niente!
Grazie


author: Cinzia

text:

Ciao Riccardo,
mi sembra inutile aprire il recordset e agiungere un record alla volta io,
fare una bella query di accodamento
di questo tipo
Dim strsql as string
strsql = "INSERT INTO  scadenze_dettaglio  (IDscadenza, mesi, percentuale)
" & _
            " SELECT " & me.IDScadenza & ", mesi, percentuale FROM
pagamenti_dettaglio Where idPagmento = " & me.idPagamento
DoCmd.runsql strsql
[frmscadenza_dettaglio].Requery
--
Cinzia
---------------------------------------
|
http://www.riolab.org
  |
---------------------------------------


text:
Cinzia ha scritto:

Ciao Cinzia, grazie per la tua risposta.
Un dubbio: utilizzando una query di accodamento, nel caso debba
rigenerare le scadenze (cambiando il tipo di pagamento e quindi tutti i
record della sottomschera), la tebella scadenze manterrà i vecchi
record, giusto?


text:

>
> Ciao Cinzia, grazie per la tua risposta.
> Un dubbio: utilizzando una query di accodamento, nel caso debba
> rigenerare le scadenze (cambiando il tipo di pagamento e quindi tutti
> i record della sottomschera), la tebella scadenze manterrà i vecchi
> record, giusto?
Si giusto, dovresti allora verificare se ci sono già dei record e in quel
caso anzichè inserire aggiornerai con un'update quelli che ci sono.



text:
Cinzia ha scritto:

Stò per ora cercando di far funzionare questa routine...ma non capisco
perchè al riga
***Do While "IDpagamento = '" & Me!IDpagamento***
mi dà l'errore "data type mismatch"...eppure sono entrambi di tipo
numerico...
Hai un'idea?
Grazie ancora per il tuo tempo


text:

>
> Stò per ora cercando di far funzionare questa routine...ma non capisco
> perchè al riga
> ***Do While "IDpagamento = '" & Me!IDpagamento***
> mi dà l'errore "data type mismatch"...eppure sono entrambi di tipo
> numerico...
> Hai un'idea?
> Grazie ancora per il tuo tempo
Ciao Riccardo,
scritta così non può funzionare  stai facendo una concatenazone (&) tra la
stringa "IDPagamento" e il controllo Me!IdPagamento e la stai usando come
condizione del While....  non sta in piedi.
Nella tua routine originale c'era:
      Do While rstpag!IDpagamento = Me!IDpagamento
      loop
che invece sta in piedi un po' meglio ma il ciclo viene eseguito solo se al
primo test la condizione è vera, siccome tu apri la tabella
pagamenti_dettaglio con questa istruzione
Set rstpag = CurrentDb.OpenRecordset("pagamenti_dettaglio")
e poi ti sposti sul primo record   con quest'altra:
rstpag.MoveFirst
non è affatto detto che il primo record della tabella pagamenti_dettaglio
abbia un IDPagamento uguale a quello che tu hai appena selezionato nella
maschera, dunque il loop molto probabilmente non  verrà eseguito.



text:
Cinzia ha scritto:

mm questi loop...si vede che sono alle prime armi con VBA... penso
potebbe andare così, cioè mi posiziono sul primo record, poi trovo il
primo record che soddisfa l'espressione (IDpagamento uguali) e poi
faccio iniziare il loop a seconda di quanti IDpagamento trovo...
--------------------------
Private Sub prova_AfterUpdate()
Dim rst As Recordset
Dim rstpag As Recordset
Set rst = CurrentDb.OpenRecordset("table2 query")
Set rstpag = CurrentDb.OpenRecordset("pagamenti dettaglio query")
rstpag.MoveFirst    'mi posiziono sul primo record
rstpag.FindFirst (rsrpag!IDpagamento = Me!IDpagamento)   'trovo il
primo record che soddisfa l'espressione
Do
' aggiungi record
rst.AddNew
rst!IDnumero = Me.IDnumero 'in questo modo aggancio la sottomaschera
alla maschera principale
rst!dettaglio = rstpag!IDpagamento
rst!mesi = rstpag!mesi
rst!percentuale = rstpag!percentuale
rst.Update
rstpag.FindNext (rstpag!IDpagamento = Me!IDpagamento)
Loop Until rstpag!IDpagamento = Me!IDpagamento
[table2 query subform].Requery
End Sub
----------------------------
e mi da errore "object required" sulla riga "rstpag.FindFirst
(rsrpag!IDpagamento = Me!IDpagamento)"...
non ne esco fuori, sto fumando =((


text:
Riccardo wrote:
> Cinzia ha scritto:
>
> mm questi loop...si vede che sono alle prime armi con VBA... penso
> potebbe andare cosě, cioč mi posiziono sul primo record, poi trovo il
> primo record che soddisfa l'espressione (IDpagamento uguali) e poi
> faccio iniziare il loop a seconda di quanti IDpagamento trovo...
> --------------------------
> Private Sub prova_AfterUpdate()
>
> Dim rst As Recordset
> Dim rstpag As Recordset
>
> Set rst = CurrentDb.OpenRecordset("table2 query")
> Set rstpag = CurrentDb.OpenRecordset("pagamenti dettaglio query")
>
> rstpag.MoveFirst    'mi posiziono sul primo record
> rstpag.FindFirst (rsrpag!IDpagamento = Me!IDpagamento)   'trovo il
> primo record che soddisfa l'espressione
L'espressione dovrebbe essere:
rstpag.FindFirst ("[IDpagamento] =" & Me!IDpagamento)
> Do
>
> ' aggiungi record
>
> rst.AddNew
> rst!IDnumero = Me.IDnumero 'in questo modo aggancio la sottomaschera
> alla maschera principale
> rst!dettaglio = rstpag!IDpagamento
> rst!mesi = rstpag!mesi
> rst!percentuale = rstpag!percentuale
> rst.Update
> rstpag.FindNext (rstpag!IDpagamento = Me!IDpagamento)
rstpag.FindFirst ("[IDpagamento] =" & Me!IDpagamento)
> Loop Until rstpag!IDpagamento = Me!IDpagamento
>
> [table2 query subform].Requery
> End Sub
> ----------------------------
> e mi da errore "object required" sulla riga "rstpag.FindFirst
> (rsrpag!IDpagamento = Me!IDpagamento)"...
> non ne esco fuori, sto fumando =((
--



text:
Cinzia ha scritto:
> Riccardo wrote:
> > Cinzia ha scritto:
>
> >
> > mm questi loop...si vede che sono alle prime armi con VBA... penso
> > potebbe andare così, cioè mi posiziono sul primo record, poi trovo il

Ed è quella giusta! Grazie mille...Per il bene comune posto il codice
finito:
---------------
Private Sub prova_AfterUpdate()
Dim rst As Recordset
Dim rstpag As Recordset
Set rst = currentdb.OpenRecordset("table2 query", dbOpenDynaset)
Set rstpag = currentdb.OpenRecordset("pagamenti dettaglio query",
dbOpenDynaset)
rstpag.FindFirst ("[IDpagamento] =" & Me!IDpagamento) 'trovo il primo
record che soddisfa l'espressione
Do Until rstpag.NoMatch
' aggiungi record
rst.AddNew
rst!IDnumero = Me.IDnumero 'in questo modo aggancio la sottomaschera
alla maschera principale
rst!dettaglio = rstpag!IDpagamento
rst!mesi = rstpag!mesi
rst!percentuale = rstpag!percentuale
rst.Update
[table2 query subform].Requery
rstpag.FindNext ("[IDpagamento] =" & Me!IDpagamento)
Loop
End Sub
-----------------
da notare che nel mio caso il controllo DO...UNTIL è impostato per
rstpag...
Do Until rstpag.NoMatch
Saluti a tutti!


title: Maschera disattivata da DoCmd.RunCommand acCmdRemoveFilterSort

author: cranze

text:
Salve,
ho la necessità di salvare il nome della maschera attivata e di quella
appena disattivata in due campi testo di una maschera invisibile e
sempre aperta. Utilità che mi occorre per impostare svariati criteri
sia in alcune query che nel codice delle maschere.
Per quella attivata non ho problemi perché mi basta scrivere
sull’evento “attivazione”: Forms!MascheraInvisibile!MascheraAttivata =
Me.name
Per quella disattivata allo stesso modo basterebbe scrivere
sull’evento “disattivazione”:
Forms!MascheraInvisibile!MascheraDisattivata = Me.name
Il problema nasce sull’evento disattivazione quando capita che
disattivo una maschera per attivarne un’altra che ha come evento su
caricamento la funzione “DoCmd.RunCommand acCmdRemoveFilterSort”.
Infatti succede che il dato salvato sul campo MascheraDisattivata è
uguale a quello sul campo MascheraAttivata. Pare che tale funzione
abbia l’effetto di disattivare prima e riattivare dopo la maschera in
una frazione di secondo, provocando l’indesiderato effetto di
restituirmi per l’appunto il nome della stessa maschera e non di
quella che avevo disattivato in precedenza. Tutto ciò non accade se
inibisco la suddetta funzione.
Ho provato a scrivere anche tutto sull’evento attivazione la seguente
sequenza:
Forms!MascheraInvisibile!MascheraDisattivata = Forms!
MascheraInvisibile!MascheraAttivata
Forms! MascheraInvisibile!MascheraAttivata = Me.name, ma l’effetto non
cambia.
Il comportamento di “DoCmd.RunCommand acCmdRemoveFilterSort” per
quanto sembri bizzarro credo sia necessario e non un bug. Stà di fatto
però che mi impedisce di salvare il nome della maschera disattivata in
precedenza.
L’alternativa sarebbe quella di scrivere “Forms!MascheraInvisibile!
MascheraDisattivata = Me.name” sull’evento click di ogni pulsante che
mi apre un’altra maschera, ma vorrei evitare di farlo perché per
quanto sia breve il codice, sono tanti i pulsanti e tante le maschere.
Sono graditi suggerimenti.
Grazie, cranze


author: Alberto S

text:
cranze ha pensato forte :
> Salve,
> ho la necessità di salvare il nome della maschera attivata e di quella
> appena disattivata in due campi testo di una maschera invisibile e
> sempre aperta. Utilità che mi occorre per impostare svariati criteri
> sia in alcune query che nel codice delle maschere.
>
> Per quella attivata non ho problemi perché mi basta scrivere
> sull’evento “attivazione”: Forms!MascheraInvisibile!MascheraAttivata =
> Me.name
Così protrebbe andare?
Private Sub Form_Activate()
     Forms!MascheraInvisibile!MascheraDisattivata = _
          Nz(Forms!MascheraInvisibile!MascheraAttivata,"")
     Forms!MascheraInvisibile!MascheraAttivata = _
          Me.name
End Sub
Ciao
--
Alberto S


text:
> cranze ha pensato forte :
Beh anche tu ci hai dato dentro!
> Così protrebbe andare?
>
> Private Sub Form_Activate()
>      Forms!MascheraInvisibile!MascheraDisattivata = _
>           Nz(Forms!MascheraInvisibile!MascheraAttivata,"")
>      Forms!MascheraInvisibile!MascheraAttivata = _
>           Me.name
> End Sub
>
> Ciao
>
> --
> Alberto S
Ti ringrazio per l'interessamento ma il problema sussiste.
Anche così non si evita l'effetto che "DoCmd.RunCommand
acCmdRemoveFilterSort"
causa al caricamento della maschera che lo contiene, che come ripeto
prima la disattiva e poi la riattiva,
sostituendo quindi, nel campo MascheraDisattivata, il nome della
maschera appena aperta a quello della
maschera sulla quale ho premuto il pulsante che la apre.
Altri suggerimenti?
Ciao e grazie, cranze.


author: Geppo

text:
Ciao cranze wrote:
> Salve,
> ho la necessit� di salvare il nome della maschera attivata e di quella
> appena disattivata in due campi testo di una maschera invisibile e
> sempre aperta. Utilit� che mi occorre per impostare svariati criteri
> sia in alcune query che nel codice delle maschere.
>
> Per quella attivata non ho problemi perch� mi basta scrivere
> sull�evento �attivazione�: Forms!MascheraInvisibile!MascheraAttivata =
> Me.name
>
> Per quella disattivata allo stesso modo basterebbe scrivere
> sull�evento �disattivazione�:
> Forms!MascheraInvisibile!MascheraDisattivata = Me.name
>
> Il problema nasce sull�evento disattivazione quando capita che
> disattivo una maschera per attivarne un�altra che ha come evento su
> caricamento la funzione �DoCmd.RunCommand acCmdRemoveFilterSort�.
>
> Infatti succede che il dato salvato sul campo MascheraDisattivata �
> uguale a quello sul campo MascheraAttivata. Pare che tale funzione
> abbia l�effetto di disattivare prima e riattivare dopo la maschera in
> una frazione di secondo, provocando l�indesiderato effetto di
> restituirmi per l�appunto il nome della stessa maschera e non di
> quella che avevo disattivato in precedenza. Tutto ci� non accade se
> inibisco la suddetta funzione.
>
> Ho provato a scrivere anche tutto sull�evento attivazione la seguente
> sequenza:
> Forms!MascheraInvisibile!MascheraDisattivata = Forms!
> MascheraInvisibile!MascheraAttivata
> Forms! MascheraInvisibile!MascheraAttivata = Me.name, ma l�effetto non
> cambia.
> Il comportamento di �DoCmd.RunCommand acCmdRemoveFilterSort� per
> quanto sembri bizzarro credo sia necessario e non un bug. St� di fatto
> per� che mi impedisce di salvare il nome della maschera disattivata in
> precedenza.
dubito che il problema sia questo,  anche perch� l'evento caricamento della
form si verifica prima di quello Activate.
> L�alternativa sarebbe quella di scrivere �Forms!MascheraInvisibile!
> MascheraDisattivata = Me.name� sull�evento click di ogni pulsante che
> mi apre un�altra maschera, ma vorrei evitare di farlo perch� per
> quanto sia breve il codice, sono tanti i pulsanti e tante le maschere.
>
> Sono graditi suggerimenti.
--
Ciao
Geppo
>
> Grazie, cranze


text:
Sembra che cranze abbia detto :
>> cranze ha pensato forte :
>
> Beh anche tu ci hai dato dentro!
ï¿œ una risposta automativa di mesnews :-))
>> Cosï¿œ protrebbe andare?
>>
>> Private Sub Form_Activate()
>> ï¿œ ï¿œ ï¿œForms!MascheraInvisibile!MascheraDisattivata = _
>> ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ Nz(Forms!MascheraInvisibile!MascheraAttivata,"")
>> ï¿œ ï¿œ ï¿œForms!MascheraInvisibile!MascheraAttivata = _
>> ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ Me.name
>> End Sub
>>
>> Ciao
>>
>> --
>> Alberto S
>
> Ti ringrazio per l'interessamento ma il problema sussiste.
> Anche cosï¿œ non si evita l'effetto che "DoCmd.RunCommand
> acCmdRemoveFilterSort"
> causa al caricamento della maschera che lo contiene, che come ripeto
> prima la disattiva e poi la riattiva,
> sostituendo quindi, nel campo MascheraDisattivata, il nome della
> maschera appena aperta a quello della
> maschera sulla quale ho premuto il pulsante che la apre.
>
> Altri suggerimenti?
Hai ragione. ï¿œ che ho dato una letta veloce e mi sembrava di avere
un'idea che ti poteva aiutare ...
Non riesco a riprodurre la tua situazione (forse perchï¿œ
acCmdRemoveFilterSort ï¿œ attivo solo su database condivisi?).
Io farei un'altra prova:
se la casella di testo "maschera attivata" ï¿œ giï¿œ uguale a Me.Name forzo
l'uscita dalla sub
Ciao
--
Alberto S


text:
> È una risposta automativa di mesnews :-))
>
Ma si... l'avevo capito, era una battuta ironica.
>
> Non riesco a riprodurre la tua situazione (forse perché
> acCmdRemoveFilterSort è attivo solo su database condivisi?).
>
Per riprodurlo, prova a fare così:
1) crei una tabella "Tabella1" con 2 campi: campo1 tipo contatore e
campo2 tipo testo;
- inseriscici 2 valori a piacere, tanto per riempirla;
2) crea 3 maschere
- Maschera1 con due campi testo che chiamerai MascheraAttivata e
MascheraDisattivata;
- Maschera2 con due pulsasnti: un pulsante per aprire Maschera3 e
l'altro per chiudere Maschera3 tramite macro o codice;
- Maschera3 avente origine dati Tabella1 e con un pulsante per aprire
Maschera2;
3) sull'evento caricamento della Maschera3 scrivi:
DoCmd.RunCommand acCmdRemoveFilterSort
4) sullevento attivazione delle maschere Maschera2 e Maschera3 scrivi:
Private Sub Form_Activate()
Forms!Maschera1!MascheraDisattivata = Forms!Maschera1!MascheraAttivata
Forms!Maschera1!MascheraAttivata = Me.Name
End Sub
In questo modo, saltellando da una maschera all'altra si alterneranno
i valori dei campi MascheraAttivata e MascheraDisattivata.
Ora prova a passare da Maschera3 a Maschera2 col relativo pulsante,
così che il campo MascheraAttivata mostri il valore Maschera2 mentre
il campo MascheraDisattivata mostri il valore Maschera3;
poi clicchi sul pulsante della Maschera2 che chiude la Maschera3 (i
campi saranno sempre MascheraAttivata = Maschera2 e
MascheraDisattivata =Maschera3);
poi clicchi sul pulsante della Maschera2 che riapre la Maschera3 e
noterai che in entrambe i campi sarà mostrato il valore Maschera3
quando invece nel campo MasscheraDisattivata dovrebbe esserci il
valore Maschera2.
Se poi riesegui gli stessi passaggi dopo avere eliminato o inibito
"DoCmd.RunCommand acCmdRemoveFilterSort" nell'vento caricamento della
Maschera3, tutto procede normalmente.
Ancora grazie e ciao da cranze.


text:
On 3 Feb, 00:16, "Geppo" <c...@tin.it.invalid> wrote:
> Ciao cranze wrote:
> > Salve,
> > ho la necessità di salvare il nome della maschera attivata e di quella
> > appena disattivata in due campi testo di una maschera invisibile e
> > sempre aperta. Utilità che mi occorre per impostare svariati criteri
> > sia in alcune query che nel codice delle maschere.
>
> > Per quella attivata non ho problemi perché mi basta scrivere
> > sull’evento “attivazione”: Forms!MascheraInvisibile!MascheraAttivata =
> > Me.name
>
> > Per quella disattivata allo stesso modo basterebbe scrivere
> > sull’evento “disattivazione”:
> > Forms!MascheraInvisibile!MascheraDisattivata = Me.name
>
> > Il problema nasce sull’evento disattivazione quando capita che
> > disattivo una maschera per attivarne un’altra che ha come evento su
> > caricamento la funzione “DoCmd.RunCommand acCmdRemoveFilterSort”.
>
> > Infatti succede che il dato salvato sul campo MascheraDisattivata è
> > uguale a quello sul campo MascheraAttivata. Pare che tale funzione
> > abbia l’effetto di disattivare prima e riattivare dopo la maschera in
> > una frazione di secondo, provocando l’indesiderato effetto di
> > restituirmi per l’appunto il nome della stessa maschera e non di
> > quella che avevo disattivato in precedenza. Tutto ciò non accade se
> > inibisco la suddetta funzione.
>
> > Ho provato a scrivere anche tutto sull’evento attivazione la seguente
> > sequenza:
> > Forms!MascheraInvisibile!MascheraDisattivata = Forms!
> > MascheraInvisibile!MascheraAttivata
> > Forms! MascheraInvisibile!MascheraAttivata = Me.name, ma l’effetto non
> > cambia.
> > Il comportamento di “DoCmd.RunCommand acCmdRemoveFilterSort” per
> > quanto sembri bizzarro credo sia necessario e non un bug. Stà di fatto
> > però che mi impedisce di salvare il nome della maschera disattivata in
> > precedenza.
>
> dubito che il problema sia questo,  anche perchè l'evento caricamento della
> form si verifica prima di quello Activate.
>
Ciao Geppo,
appunto. Dato che il caricamento avviene prma dell'attivazione, e
visto che al caricamento mi salva il valore della maschera che lo
contiene nel campo MascheraDisattivata, si suppone che provveda a
disattivarla prima di attivarla.
Strano ma vero.
Ciao, cranze.


text:
cranze scriveva il 03/02/2010 :
>> ï¿œ una risposta automativa di mesnews :-))
>>
>
> Ma si... l'avevo capito, era una battuta ironica.
>
>>
>> Non riesco a riprodurre la tua situazione (forse perchï¿œ
>> acCmdRemoveFilterSort ï¿œ attivo solo su database condivisi?).
>>
> Per riprodurlo, prova a fare cosï¿œ:
[cut]
Avevo giï¿œ provato con tre maschere (nascosta, maschera1 e maschera2).
Su maschera1 e maschera2 un pulstante che sposta il focus sull'altra,
su caricamento di entrambe DoCmd.RunCommand acCmdRemoveFilterSort).
Perï¿œ al momento dell'apertura delle maschere o al cambio di focus mi
ritorna l'errore run-time 2046 (comando o azione 'RimuoviFiltroOrdina'
non disponibile).
Proverï¿œ a ricostruire la tua situazione e/o a dare un'origine record
alle due maschere. Perï¿œ penso che prima di fine settimana sarï¿œ
difficile ...
Nel frattempo, hai provato il mio suggerimento di ieri? (cioï¿œ
sull'evento 'attivato' testare se la testbox MascheraAttivata ï¿œ giï¿œ
uguale a Me.Name e, se sï¿œ, ad uscire dalla sub)
Ciao
--
Alberto S


text:
>
> Però al momento dell'apertura delle maschere o al cambio di focus mi
> ritorna l'errore run-time 2046 (comando o azione 'RimuoviFiltroOrdina'
> non disponibile).
>
l'errore run-time 2046 lo ottieni se provi ad eseguire
"DoCmd.RunCommand acCmdRemoveFilterSort" al caricamento di una
maschera senza averle assegnato prima una origine dati.
Prova come ti ho detto ad assegnarle la Tabella1.
>
> Nel frattempo, hai provato il mio suggerimento di ieri? (cioè
> sull'evento 'attivato' testare se la testbox MascheraAttivata è già
> uguale a Me.Name e, se sì, ad uscire dalla sub)
>
hai ragione, ho scritto così:
Private Sub Form_Activate()
If Forms!maschera1!MascheraAttivata = Me.Name Then
Exit Sub
Else
Forms!maschera1!MascheraDisattivata = Forms!maschera1!MascheraAttivata
Forms!maschera1!MascheraAttivata = Me.Name
End If
End Sub
... ed effettivamente sembra funzionare!
Comunque se la cosa ti incuriosisce mi piacerebbe sapere se riscontri
lo stesso problema.
Mi piacerebbe capire perchè si comporta così (solo curiosità).
L'importante è che funzioni.
Questo metodo vorrei utilizzarlo per impostare dei parametri in una
sola query che è origine dati di un report.
Mi occorre cioè sapere se una determinata maschera è attiva o no,
perchè a seconda della maschera, il criterio di un campo della query
dovrà avere parametri diversi.
Mi spiego meglio:
in una query chè è origine dati di un report, ho un campo ID, e questo
campo non dovrà essere filtrato oppure essere Like " * " se il report
è lanciato da una determinata maschera mentre sarà Like Forms!
Maschera2!id se lo lancio dalla Maschera2. E così via per altri
criteri simili.
Il problema è che per poter dire alla query che un campo deve essere
Like il campo di una maschera, quest'ultima deve essere aperta.
Non essendo riuscito ad utilizzare il metodo iif
(
Screen.ActiveForm.name
 = "Maschera2"; Like Forms!Maschera2!id; "*")
e nemmeno il metodo iif(CurrentProject.AllForms("Maschera2").IsLoaded
= True; Like Forms!Maschera2!id; "*")
allora ho pensato di leggere il nome della maschera dai campi
MascheraAttivata e MascheraDisattivata e creare una funzione pubblica
in un modulo ed asegnare ai campi della query i criteri fctCriterio1()
ecc:
Function fctCriterio1() As Long
Select Case fctCriterio1
    Case Is = Forms!Maschera1!MascheraAttivata = "Maschera2"
    fctCriterio1 = [Forms]![Immissione Dati]![ID]
    Case Is = Forms!Maschera1!MascheraAttivata <> "Maschera2"
    fctCriterio1 = "*"   'qui però non va perchè il campo della query
è numerico
End Select
End Function
Function fctCriterio2() As Long
Select Case fctCriterio2
    Case Is = Forms!Maschera1!MascheraAttivata = "Maschera3"
    fctCriterio2 = [Forms]![Maschera3]![Testo500]
    Case Is = Forms!Maschera1!MascheraAttivata <> "Maschera3"
    fctCriterio2 = "*"    'anche qui però il campo della query è
numerico
End Select
End Function
Potrei impostare String invece di Long ma non ottengo comunque nulla
perchè i campi essendo numerici considerano il campo "*" come dato da
ricercare e non come valore jolly.
Quindi vorrei capire cosa devo scrivere nella funzione al posto di
fctCriterio1 = "*". Mi basterebbe dirgli che nel secondo Case
fctCriterio1 e 2 non devono essere considerati. Cioè come se in quei
casi nella query non ci fossero parametri per quei campi.
Spero di essere stato chiaro.
Ciao, cranze


text:
Ciao cranze wrote:
---cut---
> Ciao Geppo,
> appunto. Dato che il caricamento avviene prma dell'attivazione, e
> visto che al caricamento mi salva il valore della maschera che lo
> contiene nel campo MascheraDisattivata, si suppone che provveda a
> disattivarla prima di attivarla.
> Strano ma vero.
Hai provato ad usare:
Me.filteron=false
al posto di:
docmd.runcommand accmdremovefiltersort
probabile che questo comando dovendo agire sulla barra degli strumenti o sul
menu disattivi la form e da qui il tuo problema.
> Ciao, cranze.
--
Ciao
Geppo


text:
Ciao Geppo,
> Hai provato ad usare:
>
> Me.filteron=false
>
> al posto di:
>
> docmd.runcommand accmdremovefiltersort
>
> probabile che questo comando dovendo agire sulla barra degli strumenti o sul
> menu disattivi la form e da qui il tuo problema.
Ho provato e non funziona.
Inoltre in questo modo gli dico solo di non applicare il filtro e non
di rimuovere quello che avevo applicato prima di chiudere la maschera.
> Ciao
> Geppo
Grazie, cranze.


text:
Ciao cranze wrote:
> Ciao Geppo,
>
>> Hai provato ad usare:
>>
>> Me.filteron=false
     me.
>> al posto di:
>>
>> docmd.runcommand accmdremovefiltersort
>>
>> probabile che questo comando dovendo agire sulla barra degli
>> strumenti o sul menu disattivi la form e da qui il tuo problema.
>
> Ho provato e non funziona.
> Inoltre in questo modo gli dico solo di non applicare il filtro e non
> di rimuovere quello che avevo applicato prima di chiudere la maschera.
allora aggiungi subito dopo Me.filteron:
me.filter=""
> Grazie, cranze.
--
Ciao
Geppo


text:
> allora aggiungi subito dopo Me.filteron:
>
> me.filter=""
>
Scusa se ti rispondo solo adesso...
Anche così non rimuove il filtro, se invece uso Me.OrderByOn = False,
rimuovo il filtro ordinamento ma si ripresenta lo stesso problema che
ho con DoCmd.RunCommand acCmdRemoveFilterSort.
Per il problema dei criteri variabili della quey, ho risolto così:
- in un modulo imposto i criteri
Function fctCriterio1()
If CurrentProject.AllForms("Maschera2").IsLoaded = True And Forms!
Maschera1!MascheraAttivata = "Maschera2" Then
fctCriterio1 = [Forms]![Maschera2]![ID]
End If
End Function
--------------------------------------------------------
Function fctCriterio2()
If CurrentProject.AllForms("Maschera3").IsLoaded = True And Forms!
Maschera1!MascheraAttivata = "Maschera3" Then
fctCriterio2 = [Forms]![Maschera3]![Testo500]
End If
End Function
- poi nella query metto questi criteri
nel campo ID: Like Nz(fctCriterio1();"*")
nel campo Testo500: Like Nz(fctCriterio2();"*")
Ciao, cranze


text:
Ciao cranze wrote:
>> allora aggiungi subito dopo Me.filteron:
>>
>> me.filter=""
>>
>
> Scusa se ti rispondo solo adesso...
> Anche cos� non rimuove il filtro, se invece uso Me.OrderByOn = False,
> rimuovo il filtro ordinamento ma si ripresenta lo stesso problema che
> ho con DoCmd.RunCommand acCmdRemoveFilterSort.
parlavi di filtro ecco perch� facevo riferimento a Filter, invece tu parli
di ordinamento ed effettivamente il problema sussiste.
fai una cosa, annulla l'ordinamento sotto l'evento open della form
incriminata:l'ordinamento:
private sub NomeFormIncriminata_open(cancel as integer)
me.orderbyon=false
me.orderby = ""
end sub
> Per il problema dei criteri variabili della quey, ho risolto cos�:
>
> - in un modulo imposto i criteri
>
> Function fctCriterio1()
>
> If CurrentProject.AllForms("Maschera2").IsLoaded = True And Forms!
> Maschera1!MascheraAttivata = "Maschera2" Then
> fctCriterio1 = [Forms]![Maschera2]![ID]
> End If
> End Function
> --------------------------------------------------------
> Function fctCriterio2()
>
> If CurrentProject.AllForms("Maschera3").IsLoaded = True And Forms!
> Maschera1!MascheraAttivata = "Maschera3" Then
> fctCriterio2 = [Forms]![Maschera3]![Testo500]
> End If
> End Function
>
> - poi nella query metto questi criteri
>
> nel campo ID: Like Nz(fctCriterio1();"*")
>
> nel campo Testo500: Like Nz(fctCriterio2();"*")
Bene, pero' potevi fare tutto con una function:
If CurrentProject.AllForms("Maschera2").IsLoaded = True And
Forms!Maschera1!MascheraAttivata = "Maschera2" Then
   fctCriterio1 = [Forms]![Maschera2]![ID]
elseif If CurrentProject.AllForms("Maschera3").IsLoaded = True And
Forms!Maschera1!MascheraAttivata = "Maschera3" Then
   fctCriterio1 = [Forms]![Maschera3]![Testo500]
End If
> Ciao, cranze
--
Ciao
Geppo


title: Modifica proprietà di una maschera con sottomaschera

author: Simone

text:
Salve, ho una maschera con una sottomaschera
Il mio obiettivo č quello di renderle entrambe alla loro apertura in sola
lettura e creare due pulsanti denominati
1-Modifica record 2-Salva record.
il pulsante 1 deve consentire di apportare modifiche alle maschere, il
pulsante 2 deve effettuare il salvataggio dei dati e fare ritornare le due
maschere in sola lettura dandomi un messaggio del tipo "Record salvato"
Spiego cosa ho fatto:
Nella maschera principale "su corrente" ho aggiunto questo codice VB:
Private Sub Form_Current()
    Me.AllowEdits = False
    Nome_rivista.SetFocus
    Form_Sottomaschera.Form.AllowEdits = False
    Form_Sottomaschera.Form.AllowDeletions = False
    Form_Sottomaschera.Form.AllowAdditions = False

End Sub
Ho creato il pulsante Modifica record con questo codice "su clic":
Private Sub ModificaRecord_Click()
    Me.AllowEdits = True
    Form_Sottomaschera.Form.AllowEdits = True
    Form_Sottomaschera.Form.AllowDeletions = True
    Form_Sottomaschera.Form.AllowAdditions = True

End Sub
Ho creato il pulsante Salva record con questo codice "su clic":
Private Sub Salva_record_Click()
    Me.AllowEdits = False
    Nome_rivista.SetFocus
    Form_Sottomaschera.Form.AllowEdits = False
    Form_Sottomaschera.Form.AllowDeletions = False
    Form_Sottomaschera.Form.AllowAdditions = False
    MsgBox "Record salvato", vbExclamation
End Sub
Funziona tutto ma non mi soddisfa pienamente in quanto il pulsante Salva
record non si comporta come si comporterebbe se fosse stato creato con
l'autocomposizione guidata.
Infatti ad ogni pressione del pulsante Salva record mi si presenta il
messaggio Record salvato anche non avendo premuto il pulsante modifica cosa
che non vorrei che accadesse.
Invece vorrei che il messaggio Record salvato comparisse soltanto dopo avere
effettuato un vero aggiornamento.
Probabilmente ci vorrebberero altre righe di codice nella maschera
principale "Dopo aggiornamento" ma probabilmente anche il codice del
pulsante Salva record non č corretto. Mi sapreste dire quale codice devo
scrivere?
Grazie a tutti ciao Simone.
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: Sergio MAZZA

text:
"Simone" <
Sim...@inwind.it
> ha scritto nel messaggio
news:89Z96Z244Z37Y1...@usenet.libero.it...
> Salve, ho una maschera con una sottomaschera
> Il mio obiettivo è quello di renderle entrambe alla loro apertura in sola

> pulsante Salva record non è corretto. Mi sapreste dire quale codice devo
> scrivere?
> Grazie a tutti ciao Simone.
Se il record è in modifica (hai inserito/modificato dati) la proprietà Dirty
della form è = true.
Quindi il bottone Salva dovrebbe risultare:
...
If Me.Dirty Then
    Me.Refresh '<-- forza la scrittura dei dati
    Msgbox "Record salvato"
else
    msgbox "non c'è nulla da salvare"
end if
...
Ricordati che il Refresh avviene se navighi tra i record e se passi (focus)
da form a subForm (e viceversa); quindi il bottone Salva non avrebbe scopo
di esistere...
Ciao.
--
Sergio MAZZA


text:

Grazie mille ho fatto come mi hai suggerito ho tolto il pulsante salva che
in effetti non serve più.
Ciao.



title: Query accoda valori

author: Samantha Cicch

text:
Buongiorno a tutti,
ho la seguente query di accodamento:
INSERT INTO TBL_CSTMP ( cstmp_mpid, cstmp_costo, cstmp_perc )
SELECT TBL_MP.mp_id, TBL_MP.mp_costo, TBL_MP.mp_perc
FROM TBL_MP
WHERE (((TBL_MP.mp_id) Not In (SELECT mp_id FROM TBL_CSTMP WHERE
cstmp_data=Date() )));
che mi accoda tutte i costi delle materie prime in listino, se nel
listino non è presente la data di oggi.
Il problema, è che se accodo il listino, e poi aggiungo una nuova
materia prima, questa non posso accodarla al listino.
Devo creare nella query, una condizione IF che gli dice, se mp_id dove
la data è Date() non c'è, THEN accoda.
non capisco come farlo lavorare...
Grazie,
Samantha


title: Filtrare voci in una casella combinata

author: elio

text:
Vorrei filtrare le voci di una casella combinata, perché le voci da
presentare sono tante. Faccio presente che per ovviare a questo
inconveniente avevo pensato di collegare le voci ad un gruppo di voci
gerarchicamente superiore.
Credo sia opportuno fare un esempio:
- tblMarcaAuto            Id_MarcaAuto - MarcaAuto
- tblModAuto              Id_ModAuto - ModAuto - Id_MarcaAuto
con queste due tabelle ho creato una query: qryAuto
Il mio intento era quello di filtrare Id_MarcaAuto che mi interessava
affinché potessi avere in elenco soltanto le voci desiderate.
Purtroppo non riesco a venirne a capo. Potrei avere qualche consiglio in
merito???  Grazie.


title: Filtrare voci in una casella combinata

author: Karl Donaubauer

text:

Non mi è chiaro dov'è il problema. Puo darsi che ti aiuta
www.donkarl.com/it
 FAQ 4.36 Dipendenza delle caselle combinate/riepilogo
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Filtrare voci in una casella combinata

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:4s8vu5F...@mid.individual.net...

Innanzi tutto grazie per l'interessamento. Ti premetto che il problema l'hai
centrato perfettamente, quindi il problema centrale è risolto.
Però ho notato un particolare alquanto antipatico, quando immetto una voce
nella casella combinata (superiore), nella casella combinata (dipendente)
nei records già inseriti tale caselle si visualizzano vuote, quindi uno
rimane sconcertato vedendo che si è perso dei dati immessi in precedenza.
Però se chiudo la maschera e riapro i dati dove li vedevo mancanti
riappaiono.
Ho dimenticato di fare qualche procedura? Grazie


title: Filtrare voci in una casella combinata

text:
elio wrote:
> "Karl Donaubauer ha scritto:
>>> ...
>>> Credo sia opportuno fare un esempio:
>>> - tblMarcaAuto            Id_MarcaAuto - MarcaAuto
>>> - tblModAuto              Id_ModAuto - ModAuto - Id_MarcaAuto
>>> con queste due tabelle ho creato una query: qryAuto
>>> Il mio intento era quello di filtrare Id_MarcaAuto che mi interessava
>>> affinché potessi avere in elenco soltanto le voci desiderate.
>> ...
>>
www.donkarl.com/it
 FAQ 4.36 Dipendenza delle caselle combinate/riepilogo
>> ...
>> ...quindi il problema centrale è risolto.
> Però ho notato un particolare alquanto antipatico, quando immetto una voce
> nella casella combinata (superiore), nella casella combinata (dipendente)
> nei records già inseriti tale caselle si visualizzano vuote, quindi uno
> rimane sconcertato vedendo che si è perso dei dati immessi in precedenza.
> Però se chiudo la maschera e riapro i dati dove li vedevo mancanti
> riappaiono.
> Ho dimenticato di fare qualche procedura?
No, se hai una maschera continua è normale.
Un workaround in questa situazione è una casella di testo
in sovraposizione del parte col testo della casella combinata
che mostra il valore grazie ad un'espressione come:
=DLookup("Id_ModAuto";"tblModAuto";"Id_ModAuto=" & Id_ModAuto)
Nel codice "Su Invio" della casella di testo scrivi:
Me!TuaCasellaCombinata.Setfocus



title: Filtrare voci in una casella combinata

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:4sbusbF...@mid.individual.net...

Nell'evento DopoAggiornamento io avevo messo "..... SELECT Id_ModAuto,
ModAuto......" perché la casella combinata aveva l'origine Numerico
(Id_ModAuto), ho cambiato l'origine della stessa in Stringa (ModAuto) ed ora
è tutto a posto, non è stato necessario inserire nussun codice ulteriore.
Grazie ancora


title: Filtrare voci in una casella combinata

text:

Ciao Karl.
Ho utilizzato questa tua soluzione con successo.
Finchè la combo è nulla però la casella di testo mi da #errore.
Come posso fare per non far uscire #errore?
Trattasi di una sottomaschera e nella casella di testo ho messo:
=DLookUp("DescrStruttura";"tblStrutture";"IdStruttura=" & [cboStruttura])
Grazie.


title: Filtrare voci in una casella combinata

text:
Salve,

Coopsocphoenix ha scritto:
> Il giorno domenica 19 novembre 2006 21:58:48 UTC+1, Karl Donaubauer ha scritto:
>> ...
>> Un workaround in questa situazione è una casella di testo
>> in sovraposizione del parte col testo della casella combinata
>> che mostra il valore grazie ad un'espressione come:
>>
>> =DLookup("Id_ModAuto";"tblModAuto";"Id_ModAuto=" & Id_ModAuto)
>>
>> Nel codice "Su Invio" della casella di testo scrivi:
>>
>> Me!TuaCasellaCombinata.Setfocus
>> ...
> Ho utilizzato questa tua soluzione con successo.
> Finchè la combo è nulla però la casella di testo mi da #errore.
> Come posso fare per non far uscire #errore?
> Trattasi di una sottomaschera e nella casella di testo ho messo:
> =DLookUp("DescrStruttura";"tblStrutture";"IdStruttura=" & [cboStruttura])

Puoi provarlo con
=DLookUp("DescrStruttura";"tblStrutture";"IdStruttura=" &
nz([cboStruttura];0))

...dove 0 sarebbe un valore che di sicuro non trova un record. Cioè,
puoi anche usare 999999999 o qualunque valore senza risultato.

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

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


title: Filtrare voci in una casella combinata

text:

Perfetto.
Grazie tante Karl.
Giuseppe


title: serie di controlli in maschera continua

text:
Ciao Guru!

Ho bisogno di mettere una serie di controlli (che determinati campi siano
popolati) quando in una maschera continua passo da un record a quello
successivo.
Pensavo di trovare un evento "Su uscita", ma non ho trovato nulla.

Ne ho provati un po' ma nessuno funzionava nel caso che serve a me.

Qualche suggerimento?

grazie

--
_____/)_____

Skipper dixit...


title: serie di controlli in maschera continua

text:

Scusa ma non ti basta controllare 2 Eventi:
1) BeforeInsert
2) BeforeUpdate

L'evento Current non ha un BeforCurrent, quindi analizza cosa avviene
quando lavori:

1) Nuovo Record
    In questo caso se non hai compilato tutti i campi intervieni
forzando CANCEL=TRUE
    Questo OBBLIGA l'utente a riempire i campi necessari.
    Ovvio che quando passa ad un Record esistente è IMPLICITO che
abbia inserito tutto altrimenti l'evento BeforeInsert non prosegue...
CANCEL=TRUE

2) Edit Record Esistente
    In questo caso il Record inserito precedentemente è sicuramente
completo, ma potresti cancellare i dati...!
    Serve solo controllare l'EVENTO BeforeUpdate e nel caso in cui non
abbia inserito tutto CANCEL=TRUE

L'insieme di questi 2 Test è assolòuta garanzia che non ci siano
BUCHI, ed il passaggio da un Record ad un'altro è forzatamente esente
da controlli.
A completamento hai anche la proprietà Dirty o l'Evento Dirty, ma nel
tuo caso io li eviterei.

@Alex


title: serie di controlli in maschera continua

text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:c21e5bf1-2f5e-4f09...@r2g2000vbj.googlegroups.com...
> On 3 Nov, 17:49, "skipper" <skip...@NOSPAMsuperskipper.it> wrote:
>> Ciao Guru!
>>
>> Ho bisogno di mettere una serie di controlli (che determinati campi siano
>> popolati) quando in una maschera continua passo da un record a quello
>> successivo.
>> Pensavo di trovare un evento "Su uscita", ma non ho trovato nulla.
>>
>> Ne ho provati un po' ma nessuno funzionava nel caso che serve a me.
>>
>> Qualche suggerimento?
>>
>> grazie
>>
> Scusa ma non ti basta controllare 2 Eventi:
> 1) BeforeInsert
> 2) BeforeUpdate
>
> L'evento Current non ha un BeforCurrent, quindi analizza cosa avviene
> quando lavori:
>
> 1) Nuovo Record
>    In questo caso se non hai compilato tutti i campi intervieni
> forzando CANCEL=TRUE
>    Questo OBBLIGA l'utente a riempire i campi necessari.
>    Ovvio che quando passa ad un Record esistente è IMPLICITO che
> abbia inserito tutto altrimenti l'evento BeforeInsert non prosegue...
> CANCEL=TRUE
>
> 2) Edit Record Esistente
>    In questo caso il Record inserito precedentemente è sicuramente
> completo, ma potresti cancellare i dati...!
>    Serve solo controllare l'EVENTO BeforeUpdate e nel caso in cui non
> abbia inserito tutto CANCEL=TRUE
>
> L'insieme di questi 2 Test è assolòuta garanzia che non ci siano
> BUCHI, ed il passaggio da un Record ad un'altro è forzatamente esente
> da controlli.
> A completamento hai anche la proprietà Dirty o l'Evento Dirty, ma nel
> tuo caso io li eviterei.
>
ok stasera studio...
grazie

e scusato il doppio post...
ma sembrava che il primo non fosse partito...

--
_____/)_____

Skipper dixit...


title: Problema su report mensile

author: Winston Smith

text:
Salve a tutti,
un problema:
avendo una query a campi incrociati sul fatturato mensile clienti,
Es.
RagSoc TotAnno 01  02  03  04  05  06  07  08  09  10  11  12

ho creato un report basandomi su tale query.
Succede che quando filtro la suddetta, es. primo trimestre
quindi i mesi 01 02 03

il report va ovviamente in errore perche quando l'ho creato
avevo i 12 mesi e nel corpo ci sono i riferimenti ai campi
04 05 06 ecc...

Come posso risolvere?

Grazie
WS

--

WS


title: Problema su report mensile

text:

http://groups.google.com/group/it.comp.appl.access/msg/31631948c4a4fa10

Se non � questo rivela in quale errore va.

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


title: Problema su report mensile

text:
Karl Donaubauer ha detto questo martedï¿œ :
> Winston Smith wrote:
>> un problema:
>> avendo una query a campi incrociati sul fatturato mensile clienti,
>> Es.
>> RagSoc TotAnno 01  02  03  04  05  06  07  08  09  10  11  12
>>
>> ho creato un report basandomi su tale query.
>> Succede che quando filtro la suddetta, es. primo trimestre
>> quindi i mesi 01 02 03
>>
>> il report va ovviamente in errore perche quando l'ho creato
>> avevo i 12 mesi e nel corpo ci sono i riferimenti ai campi
>> 04 05 06 ecc...
>>
>> Come posso risolvere?
>
>
http://groups.google.com/group/it.comp.appl.access/msg/31631948c4a4fa10

>
> Se non ï¿œ questo rivela in quale errore va.

L'errore ï¿œ quello, vedo qule delle soluzioni posso applicare.
Grazie

WS

--

WS


title: ListBox

author: Marcus

text:
Sono alle prime armi nell'utilizzo dei controlli ActiveX
Mi piacerebbe poter riempire una ListBox con un Recorset
di dati provenienti da una query.
Non riesco a crearmi una routine per caricarmi il set di record.
Mi chiederete, ma perchè una ListBox e non una normale
casella di riepilogo. Be, la ListBox, credo abbia più propietà
di una normale casella di riepilogo. No ?
Grazie, ciao
Marica


title: ListBox

author: Roberto dal portatile

text:
"Marcus" <
pr...@micro.com
> ha scritto nel messaggio
news:9n7aon$728$1...@fe2.cs.interbusiness.it...

Fermo restando che non ho un'esperienza diretta di ListBox, allora una
sottomaschera (al limite di sola lettura) con visualizzazione a Maschere
continue dovrebbe offrirti ancora più flessibilità.
Penso che per ogni problema da risolvere ci sia una soluzione ottimale,
quindi dipende da ciò che devi fare.
>
> Grazie, ciao
>
> Marica
>
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: ListBox

author: Sib dal portatile

text:
"Marcus" <
pr...@micro.com
> ha scritto nel messaggio > Sono alle prime armi

Ho impiegato un po' a capire che non parlavi delle ListBox.
Sinceramente non ho approfondito l'activex di cui parli, ma le ListBox
(quelle propriamente dette) mi sono sembrate prefino superiori alle normali
necessita'.
Tu che ci devi fare con le proprieta' in piu' che dovrebbe avere il tuo
activex?
Sib
PS Tanto per esplicitare, le ListBox SONO le Caselle di riepilogo.


title: Tipo testo "Allegato"

author: Vladimiro Leone

text:
Ciao,
in Access 2007 da un campo con tipo dati "Allegato" si può inserire una foto aprendo il percorso per individuare la sua posizione con un doppio clic sullo stesso campo (o sulla stessa casella di testo).
Domanda:
è possibile ricavare anche il nome della foto inserendolo all'interno di un' altra casella di testo?
Vladimiro


title: Tipo testo "Allegato"

author: mariano cucinotta

text:

Ciao Vladimiro, guarda questo articolo
http://web.mclink.it/MC5884/
 comprensivo di esempio allegato.
vai alla voce di menu NOVITA e ricerca questa stringa: Gestione classificazione immagini leggi e scarica il file TESTFOTO. Spero possa esserti utile. Ciao


title: Tipo testo "Allegato"

text:
Il giorno sabato 16 novembre 2013 00:31:28 UTC+1, Vladimiro Leone ha scritto:



title: Tipo testo "Allegato"

text:

Grazie Mariano, interessante.
Un saluto ad Alessandro.
Ciao Vladimiro


title: R: Perchè nessuno mi risponde? :-)

author: Michele Amato

text:
Gianni Prof <
gianni.s...@libero.it
> wrote in message
zPoo6.66602$Y93.1...@news.infostrada.it...
> Salve a tutti.
>
> 1) Usando la procedura che segue ho 1 errore che non risulta
> invece in un form (con le stessa righe).
> Runtime 2771: La cornice di oggetto associato che si č cercato di
modificare
> non cntiene un oggetto OLE
> C'č qualcuno che mi sa spiegare dove sbaglio?
> Grazie cmq
>
> Private Sub Report_Open(Cancel As Integer)
> Dim db As Database
> Dim rs, rsdettagli As Recordset
> Dim photo As String
> Set db = CurrentDb
> Set rs = db.OpenRecordset("select * from archivio where numero = 1")
> photo = rs![foto]
> photo = photo & ".jpg"
> fotoreport.OLETypeAllowed = acOLELinked
> On Error GoTo Err_Immag
> fotoreport.SourceDoc = percorsodb & Dirfoto & photo
> GoTo continua
> Err_Immag:
> fotoreport.SourceDoc = percorsodb & "\erroreimmagine.jpg"
> continua:
> fotoreport.Action = acOLECreateLink          * qui mi da l'errore
> End Sub
> --------------------------------------------------------------------------
--
> -
>
> 2) Ho un Form sul quale vorrei inserire un menů a tendina
>
> 1) Ho creato la macro "menů"
> 2) Ho selezionato "Aggiungi menů"; dando File come voce e menů come macro
> (fino qui tutto ok)
> 3) Ho selezionato "ImpostaVoce": dando 0;1; ;Attivato  (e qui mi da
errore)
>
> Cosa ho sbagliato? Qualcuno mi puň spiegare pazientemente la definizione
dei
> form nella macro o tramite Vba facendomi un esempio?
>
> Grazie
>   Gianni
Cos'č fotoreport
> fotoreport.SourceDoc = percorsodb & Dirfoto & photo
> GoTo continua
> Err_Immag:
> fotoreport.SourceDoc = percorsodb & "\erroreimmagine.jpg"
> continua:
> fotoreport.Action = acOLECreateLink          * qui mi da l'errore
Un controllo immagine?
Allora basta
fotoreport.Picture = percorsodb & Dirfoto & photo
> 2) Ho un Form sul quale vorrei inserire un menů a tendina
Access č una applicazione MDI (multiple document interface). Questo genere
di applicazione č caratterizzato da una maschera che funge da "Contenitore".
Le maschera aperte all'interno di Access sono figlie (Child) di questo
contenitore.
La maschera "contenitore" č quella che contiene il menů File, ecc.
Le maschere figlie sono quelle che crei tu, e non possono ospitare, nella
propria area, un menů (e neanche una toolbar).
I menu (e le toolbar) possono essere ospitati solo dalla maschera
"Contenitore".
HTH
Michele Amato
--
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
Sulla mia pagina personale
http://utenti.worldonline.it/micheleamato
č possibile trovare del materiale relativo ad Access
scritto da me, sia freeware che shareware
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}


title: weighted average

author: Jeff Clarke

text:
I'm attempting to calculate numerous "weighted
averages" wieghted on a field named AmtFinanced.  The formula is as follows
assuming i was calculating a weighted average for a field named
Payment.

Sum([Payment]*[AmtFinanced])/Sum([AmtFinanced])

How do I put it in a module

I'd like to have a formula on my report say
=weighted_avg("tablequery","payment")

Thanks, again


title: weighted average

author: Patrick Finucane

text:
Jeff Clarke wrote:

You could create a query.  After you add the table, create 2 columns, in
column 1 enter
    [Payment]*[AmtFinanced]
and in column 2, drag
    [AmtFinanced]
to it.
Then click the totals query, and make sure each totals row says Sum
If you added a third column, lets say LoanNumber, you could break on
that.  Let's say the report was based on LoanNumber.  You could now
like, in the recordsource for the report, the main table/query to the
Totals query just created.
If the weighted avg is based on 1 loan record activity vs the entire
portfolio (ex:  Sum up all Financed, compare payments on the loan to the
entire portfolio), you might want to get the sum of the total portfolio
in the OnOpen event of the report by either a DSUM() or else open a
recordset that sums the values and store that in a field that is not
visible in the page header.  The main query could have a sum of payments
on the loan.  Then base you calcs on that. and the values from your main
recordsource query.  That would speed up the report.
It's been about 10 years since I did weighted avg calcs and the
portfolio was over 100K records.  If I remember correctly wighted avgs
was computational intensive so you want to cut down as much computation
as possible to present the results to the end user fast.
If the above didn't help, I'd be glad to offer some more help if I
understand what values your are summing....the entire set vs 1 record
activity.


title: Esportare una qry in Excel e creare una Pivot

author: SunRex

text:
Dunque ho una qry che invio ad Excel  con la routine sottostante.
Dovrei sui dati esportati in excel impostare una pivot che comprenda anche i
nuovi
record che si aggiungeranno alla qry.
Suggerimenti?
SunRex
Public Function Esporta()
'Funzione per l'esportazione dei dati in Excel e relativa apertura dello
stesso
    g_strPath = "D:\Yeast\AnalisiDati\AnalisiDati.xls"
    DoCmd.TransferSpreadsheet acExport, 8, "qryAnalisiVisite", g_strPath,
True, ""
    Shell "C:\Programmi\Microsoft Office 2000\Office\Excel.exe " &
g_strPath, vbNormalNoFocus
End Function


author: Vazim

text:
In data Mon, 03 Nov 2003 17:09:55 GMT, SunRex ha scritto:
> Dunque ho una qry che invio ad Excel  con la routine sottostante.
> Dovrei sui dati esportati in excel impostare una pivot che comprenda anche i
> nuovi
> record che si aggiungeranno alla qry.
> Suggerimenti?
> Che versione di access usi?
--
   \  /_ _ : _ _
    \/(_|/_|| | |
  mail me  :
vazim_at_libero.it

  view me  :
http://www.vazim.net


text:
"Vazim" <vazim...@...
libero.it
> ha scritto nel messaggio
news:15gqs67l02x67.3ippj3edcysc$.dlg@40tude.net...
> In data Mon, 03 Nov 2003 17:09:55 GMT, SunRex ha scritto:
>
> > Dunque ho una qry che invio ad Excel  con la routine sottostante.
> > Dovrei sui dati esportati in excel impostare una pivot che comprenda
anche i
> > nuovi
> > record che si aggiungeranno alla qry.
> > Suggerimenti?
> > Che versione di access usi?
> --
>    \  /_ _ : _ _
>     \/(_|/_|| | |
97 e/o 2000
SunRex


text:
"SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
news:DZvpb.404590$R32.13...@news2.tin.it...

Non fai prima a crearti la tabella pivot in excel puntando alla query di
access?
Ti salvi il foglio e ogni volta che lo apri ti rinfresca i dati...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:bo88ll$t8$1...@canarie.caspur.it...

In pratica è quello che faccio avendo impostato sulle propietà della pivot
aggiorna dati
all'apertura.Il problema è che la qry in questione estrae i dati da due tbl
una con i nomi dei
materiali di un magazzino e l'altra con i record relativi alla
movimentazione in scarico dei
relativi nateriali.Se rinfresco i dati all'apertura avendo la pivot bloccata
su un range di celle
ben definito mi perdo i dati per strada.Da qui la necessità di impostare la
pivot su Excel
previo conteggio delle righe (cioè i record).
Forse cmq mi stavi suggerendo di crearmi con MS Query la qry da excel.Il
problema è che
ogni volta che lancio il file .dqy creato caricando i dati dall'.mdb  mi
crea una cartel nuova.
SunRex


text:
"SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
news:ePOpb.411594$R32.13...@news2.tin.it...
>
> In pratica è quello che faccio avendo impostato sulle propietà della pivot
> aggiorna dati
> all'apertura.Il problema è che la qry in questione estrae i dati da due
tbl
> una con i nomi dei
> materiali di un magazzino e l'altra con i record relativi alla
> movimentazione in scarico dei
> relativi nateriali.Se rinfresco i dati all'apertura avendo la pivot
bloccata
> su un range di celle
> ben definito mi perdo i dati per strada.Da qui la necessità di impostare
la
> pivot su Excel
> previo conteggio delle righe (cioè i record).
> Forse cmq mi stavi suggerendo di crearmi con MS Query la qry da excel.Il
> problema è che
> ogni volta che lancio il file .dqy creato caricando i dati dall'.mdb  mi
> crea una cartel nuova.
> SunRex
Non ho capito; perché hai "...la pivot bloccata su un range di celle"? Che
significa?
Se vuoi utilizzare la tabella pivot per due tabelle, ti consiglio di crearti
prima una tabella che unisce il risultato delle due (me so' incartato?), e
poi la tabella pivot la fai su quest'ultima tabella senza "bloccare range".
Spero di aver interpretato bene...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:bo8h55$3hv$1...@canarie.caspur.it...

Spiego
Una volta inviato il risultato della qry su excel clicco su una cella
e poi sul  menu strumenti\dati \Rapporto tabella pivot grafico etc etc
San Excel mi chiede dove sono i dati ed io gli dico che ce li ha sotto
il naso (Elenco oDataBase MS Excel) clicco avanti e mi dice che
i dati per lui vanno da  $A$1:$C$375 e di seguito.Una volta impostata
la pivot coi miei bei campi anche se aggiorno i dati la pivot non mi
aggiungerà i
record eventualmente presenti dalla cella C376 in poi ma dovro
necessariamente
rifarmi la pivot da capo.
O No :(
SunRex


text:
"SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
news:mYPpb.412297$R32.13...@news2.tin.it...
>
> Spiego
> Una volta inviato il risultato della qry su excel clicco su una cella
> e poi sul  menu strumenti\dati \Rapporto tabella pivot grafico etc etc
> San Excel mi chiede dove sono i dati ed io gli dico che ce li ha sotto
> il naso (Elenco oDataBase MS Excel) clicco avanti e mi dice che
> i dati per lui vanno da  $A$1:$C$375 e di seguito.Una volta impostata
> la pivot coi miei bei campi anche se aggiorno i dati la pivot non mi
> aggiungerà i
> record eventualmente presenti dalla cella C376 in poi ma dovro
> necessariamente
> rifarmi la pivot da capo.
> O No :(
> SunRex
>
Ma nooooo!!!
La tabella pivot può leggerti la query direttamente su access (dati - report
tabella pivot - origine dati esterna - estrai dati - etc. etc.).
Perché fai ciò!!!
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:bo8jtk$4es$1...@canarie.caspur.it...

>
> Ciao.
>
> --
> Sergio MAZZA
> Perché fai ciò!!!
Perchè sono masochista :(
Grazie per l'aiuto è propio quello che volevo.
SunRex


title: Come 'leggere' pagine web senza farlo vedere?

author: RobertoA

text:
Vorrei realizzare, usando Access 2003, un'applicazione tipo questa
http://www.delitestudio.com/our-apps/prices-drop-monitor-for-amazon/

in sostanza e' un monitor per articoli su Amazon
Puoi selezionare gli articoli che desideri monitorare e lui ogni x ore
aggiorna i prodotti con prezzo aumentato/diminuito
Bene, per replicarne le funzionalita' usando l'amato vba (che fa pure rima)
come posso fare?
Cioe', come posso leggere senza farlo vedere all'utente una pagina web?
Ciao e grazie
RobertoA


author: Pablitomf

text:
RobertoA <
amor...@tiscalinet.it
> ha scritto:

mmmm... interessante... appena ho 1 oretta lo faccio e ti dico ;)

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


text:
> mmmm... interessante... appena ho 1 oretta lo faccio e ti dico ;)

Dopo aver visto un po' la struttura delle pagine dei prodotti di Amazon,
ho fatto cio'... ;)

Crea una tabella:
tbl_Amazon

Campi:
ID (Contatore)
cmp_Link (Memo)
cmp_CampoNote (Testo 255)

Crea una Form a campi continui basata su tbl_Amazon. Inoltre gli aggiungi
un Pulsante denominato "cmd_Controlla".

Nel codice della Form gli incolli il seguente :
Option Compare Database

Private Sub cmd_Controlla_Click()

On Error GoTo fine:

DoCmd.GoToRecord , , acFirst

giro:
    'RECUPERO I LINK DALLA PRIMA PAGINA
    Set oHttp = CreateObject("MSXML2.XMLHTTP.4.0")
    txtRequestString = Me.cmp_Link
    oHttp.Open "GET", txtRequestString, False
    oHttp.Send
    miaPagina = oHttp.responsetext
    Set oHttp = Nothing

    Me.cmp_CampoNote = ""
    DoEvents
    Call ParseFile(Me.cmp_Link, "btAsinTitle")
    DoEvents
    Call ParseFile(Me.cmp_Link, "priceLarge")

    DoCmd.GoToRecord , , acNext
GoTo giro:

fine:
End Sub

Private Sub ParseFile(xurl As String, yParola As String)
On Error GoTo err:

    Dim xPosizioneParola    As Long
    xPosizioneParola = 1

    Dim xlink               As String
    Dim i                   As Long
    i = 1
giro:
    xPosizioneParola = InStr(xPosizioneParola, miaPagina, yParola)

    Dim contaVirg As Integer
    contaVirg = 0

    If xPosizioneParola > 1 Then
        For i = 0 To Len(miaPagina)
            If contaVirg < 2 Then
                If Mid(miaPagina, xPosizioneParola + Len(yParola) + i, 1)
= """" Or Mid(miaPagina, xPosizioneParola + Len(yParola) + i, 1) = "<" Then
                    contaVirg = contaVirg + 1
                End If
            Else
                xlink = Mid(miaPagina, xPosizioneParola + Len(yParola) +
2, i - 3)
                xPosizioneParola = xPosizioneParola + Len(yParola) +
Len(xlink)

                '-------------------------
                ' TROVATO LINK
                '-------------------------
                xlink = Replace(Replace(xlink, """", ""), "'", "")
                xlink = Replace(Replace(xlink, "itsunePrice>", ""), "'", "")
                'Debug.Print xurl & " ] - " & yParola & " - " & xlink
                Debug.Print xlink
                If Me.cmp_CampoNote = "" Then
                    Me.cmp_CampoNote = xlink
                Else
                    Me.cmp_CampoNote = Me.cmp_CampoNote & " - " & xlink
                End If
                DoEvents

                GoTo giro:
            End If
salta:
        Next i
    Else
        GoTo fine:
    End If

fine:
Exit Sub

err:
MsgBox err.Number & " - " & err.Description

End Sub

Salva, e avvia la form... inserisci il link nel campo apposito (metti
diversi record), e clicca sul tasto... dovrebbe funzionare (a me funziona).

PS. questo codice sfrutta l'oggetto MSXML2.XMLHTTP.4.0



text:
> PS. questo codice sfrutta l'oggetto MSXML2.XMLHTTP.4.0

ah, dimenticavo, dichiara in testa una variabile per memorizzare
temporaneamente il contenuto della pagina html:

Dim miaPagina As String



text:
Pablitomf <
pabl...@hotmail.it
> ha scritto:

> > PS. questo codice sfrutta l'oggetto MSXML2.XMLHTTP.4.0
>
> ah, dimenticavo, dichiara in testa una variabile per memorizzare
> temporaneamente il contenuto della pagina html:
>
> Dim miaPagina As String

vabbe' ecco l'esempio ;)

abbelliscilo tu, io mi annoio...

http://85.44.230.157/Maurizio/Amazon.zip




text:
Pablitomf <
pabl...@hotmail.it
> ha scritto:

> Pablitomf <
pabl...@hotmail.it
> ha scritto:
>
> > > PS. questo codice sfrutta l'oggetto MSXML2.XMLHTTP.4.0
> >
> > ah, dimenticavo, dichiara in testa una variabile per memorizzare
> > temporaneamente il contenuto della pagina html:
> >
> > Dim miaPagina As String
>
> vabbe' ecco l'esempio ;)
>
> abbelliscilo tu, io mi annoio...
>
>
http://85.44.230.157/Maurizio/Amazon.zip

scusa, sbagliato link... tie'

http://85.44.230.157/Maurizio/Amazon2.zip




text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201210021...@mynewsgate.net...
> Pablitomf <
pabl...@hotmail.it
> ha scritto:
>
>> Pablitomf <
pabl...@hotmail.it
> ha scritto:
>>
>> > > PS. questo codice sfrutta l'oggetto MSXML2.XMLHTTP.4.0
>> >
>> > ah, dimenticavo, dichiara in testa una variabile per memorizzare
>> > temporaneamente il contenuto della pagina html:
>> >
>> > Dim miaPagina As String
>>
>> vabbe' ecco l'esempio ;)
>>
>> abbelliscilo tu, io mi annoio...
>>
>>
http://85.44.230.157/Maurizio/Amazon.zip

>
> scusa, sbagliato link... tie'
>
>
http://85.44.230.157/Maurizio/Amazon2.zip

>

Bellissimo esempio
Molte grazie dell'aiuto
Spero gli amministratori dei vari siti dedicati ad Access lo inseriscano tra
gli esempi significativi di codice vba


author: Franchi Graziano & Famiglia

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201210021...@mynewsgate.net...

Io ho provato ma non carica niente
Ma forse sbaglio.
Saluti
Graziano


text:
> Io ho provato ma non carica niente
> Ma forse sbaglio.
> Saluti
> Graziano

sarebbe?...

Tie' scaricati questo aggiornato...

http://85.44.230.157/Maurizio/Amazon3.zip




text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201210040...@mynewsgate.net...
>> Io ho provato ma non carica niente
>> Ma forse sbaglio.
>> Saluti
>> Graziano
>
> sarebbe?...
>
> Tie' scaricati questo aggiornato...
>
>
http://85.44.230.157/Maurizio/Amazon3.zip

>

A me funziona sia la prima versione che l'ultima, la tre


text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201210040...@mynewsgate.net...

Access 2000
 IL componente activeX non � in grado di creare l'oggetto
Che devo fare?
Ciao
Graziano


text:
> > sarebbe?...
> >
> > Tie' scaricati questo aggiornato...
> >
> >
http://85.44.230.157/Maurizio/Amazon3.zip

> Access 2000
>  IL componente activeX non ï¿œ in grado di creare l'oggetto
> Che devo fare?

devi mettere l'activeX tra i riferimenti...
che riferimenti hai attivi?



text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201210050...@mynewsgate.net...
>> > sarebbe?...
>> >
>> > Tie' scaricati questo aggiornato...
>> >
>> >
http://85.44.230.157/Maurizio/Amazon3.zip

>
>> Access 2000
>>  IL componente activeX non � in grado di creare l'oggetto
>> Che devo fare?
>
> devi mettere l'activeX tra i riferimenti...
> che riferimenti hai attivi?
>
> --
> ------------
> Pablitomf
> Napoli sempre nel "Q"uore!
> "mammasantissima" si nasce, non si diventa.
>

Quale activeX bisogna aggiungere?
Grazie
Graziano


text:
> Quale activeX bisogna aggiungere?
> Grazie
> Graziano

sul 2000 credo MSXML2...



title: programmatore access cercasi

author: Andrea Griggio

text:
Buon giorno,
siamo una ditta in provincia di Padova e stiamo cercando un programmatore,
possibilmente residente in zona per un lavoro di analisi su dei database di
ns. proprietà.
Il più del lavoro potrà essere svolto a casa anche se saranno necessari
alcuni incontri.
chiunque sia interessato è pregato di mandare una mail al sottoscritto.
grazie e saluti.
andrea griggio


title: Automazione per esportare dati  da Access a Word con bookmarks

author: Alessandro D'Onofrio

text:
Ciao,
Ho un problemino, ho usato una routine copiata da
www.sitocomune.com

(generale: autore Namor) per esportare dati da access in word. Lo riadattata
al mio caso ma rimangono alcuni piccoli problemini che non riesco a
risolvere. Il database riguarda dei protocolli che registro ed invio a Word
con i relativi destinatari.
Il codice scritto dall'autore è stato solo leggermente modificato. I
problemi sono due:
1)Vorrei esportare i dati in Maiuscolo direttamente in Word. Ho provato a
formattare i dati in access in maiuscolo ma invano, nell'esportazione
tornano minisculi.
2)Alcuni campi di destinatari possono essere vuoti, ma questa evenienza
blocca l'esportazione. Quindi vorrei fare in modo che se un campo rimane
vuoto, l'esportazione continuasse oltre.
Spero che qualcuno mi possa aiutare. Allego parte del codice
 'seleziona il bookmark del primo campo Destinatario1:
    Doc.Bookmarks("Destinatario1").Select
pausa
    'e sovrascrivilo con il contenuto del campo
    'Destinatario1:
    Wrd.Selection.TypeText Me.Destinatario1
pausa
    'secondo bookmark Destinatario2:
    Doc.Bookmarks("Destinatario2").Select
pausa
    Wrd.Selection.TypeText Me.Destinatario2
pausa
    'Destinatario3
    Doc.Bookmarks("Destinatario3").Select
pausa
    Wrd.Selection.TypeText Me.Destinatario3


author: ciroteo

text:
"Alessandro D'Onofrio" <
ald...@tin.it
> ha scritto nel messaggio
news:u1WBd.616198$35.25...@news4.tin.it...
> Ciao,
> Ho un problemino, ho usato una routine copiata da
www.sitocomune.com

> (generale: autore Namor) per esportare dati da access in word. Lo
> riadattata al mio caso ma rimangono alcuni piccoli problemini che non
> riesco a risolvere. Il database riguarda dei protocolli che registro ed
> invio a Word con i relativi destinatari.
> Il codice scritto dall'autore è stato solo leggermente modificato. I
> problemi sono due:
> 1)Vorrei esportare i dati in Maiuscolo direttamente in Word. Ho provato a
> formattare i dati in access in maiuscolo ma invano, nell'esportazione
> tornano minisculi.
che tipo di funzione hai usato ? ucase o la maschera di input?
> 2)Alcuni campi di destinatari possono essere vuoti, ma questa evenienza
> blocca l'esportazione. Quindi vorrei fare in modo che se un campo rimane
> vuoto, l'esportazione continuasse oltre.
io a questo ho ovviato sostituendo uno spazio vuoto se il campo è nullo, in
questo modo: " " . Non ho capito come risolvere altrimenti, credo che il
bookmark si aspetti sempre qualcosa



author: namor

text:
Alessandro D'Onofrio ha scritto:
> Ciao,
> Ho un problemino, ho usato una routine copiata da
www.sitocomune.com

> (generale: autore Namor) per esportare dati da access in word. Lo riadattata
> al mio caso ma rimangono alcuni piccoli problemini che non riesco a
> risolvere. Il database riguarda dei protocolli che registro ed invio a Word
> con i relativi destinatari.
> Il codice scritto dall'autore č stato solo leggermente modificato. I
> problemi sono due:
> 1)Vorrei esportare i dati in Maiuscolo direttamente in Word. Ho provato a
> formattare i dati in access in maiuscolo ma invano, nell'esportazione
> tornano minisculi.
> 2)Alcuni campi di destinatari possono essere vuoti, ma questa evenienza
> blocca l'esportazione. Quindi vorrei fare in modo che se un campo rimane
> vuoto, l'esportazione continuasse oltre.
> Spero che qualcuno mi possa aiutare. Allego parte del codice
>  'seleziona il bookmark del primo campo Destinatario1:
>     Doc.Bookmarks("Destinatario1").Select
> pausa
>     'e sovrascrivilo con il contenuto del campo
>     'Destinatario1:
>     Wrd.Selection.TypeText Me.Destinatario1
> pausa
>     'secondo bookmark Destinatario2:
>     Doc.Bookmarks("Destinatario2").Select
> pausa
>     Wrd.Selection.TypeText Me.Destinatario2
> pausa
>     'Destinatario3
>     Doc.Bookmarks("Destinatario3").Select
> pausa
>     Wrd.Selection.TypeText Me.Destinatario3
Prova a modificare i typetext cosě
     Wrd.Selection.TypeText ucase(nz(Me.Destinatario1,""))
Le righe 'pausa' le puoi anche togliere, servono solo a rallentare
l'esempio per vedere meglio come funziona.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
Namor ha scritto
>Prova a modificare i typetext cosě
>     Wrd.Selection.TypeText ucase(nz(Me.Destinatario1,""))
>Le righe 'pausa' le puoi anche togliere, servono solo a rallentare
>l'esempio per vedere meglio come funziona.
>Namor
Grazie Namor, ho provato le modifiche da te consigliate e funzionano alla
perfezione. Non so come rigraziarti, Hai fatto un lavoro grandioso. Grazie
di nuovo


title: Q.ry di aggiornam. per campo progress.

author: T.S.M. FONDI

text:
W98 A97
situazione:
art.    vers    descr
A                 xxxxxx
A                 yyyyyyyyyy
B                 zzzzz
B                 wwww
B                   nnnnnn
Dovrei attribuire al campo versione - al momento vuoto - un numero
progressivo - che partisse da 1 per ogni articolo
esempio: art. A --> vers 1, 2  ecc  -   art. B vers. 1, 2, 3 ecc.
Ringrazio in anticipo chiunque vorrà darmi una dritta
Cordialmente
Gabriele


title: Q.ry di aggiornam. per campo progress.

author: MA

text:
"T.S.M. FONDI" <
in...@tsm.it
> ha scritto nel messaggio
news:bkbt9v$j6r$1...@newsread.albacom.net...

Guardati dmax() sull'help
E' semplice
MAssimiliano


title: Q.ry di aggiornam. per campo progress.

text:
MA ha scritto:


Dmax("versione","tabella",criterio)+1 per i nuovi record, ma per quelli
già esistenti... dovevi pensarci prima!
Per questo si consiglia sempre di pensare bene in fase di progettazione
del db a tutto ciò che può servire e a come dovrà essere usato.
Adesso ti tocca farlo a manina o  scriverti una routine vba. Quale dei due
metodi scegliere dipende dal numero di record che hai in tabella e da
quanto sai usare vba.
Namor
--

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


title: Q.ry di aggiornam. per campo progress.

text:
"namor" <
na...@nospm.inwind.it
> ha scritto nel messaggio
news:bkc3o5$uuq$1...@news.newsland.it...

Prima di tutto grazie per l'interessamento.
Hai ragione per l'errore di progettazione, ma non dipende da me.
Per l'aggiornamento penso che dovrò rinunciare: farlo a mano non è possibile
(sono tanti record) e tramite vba, purtroppo, non sono capace.
Di nuovo un saluto
Gabriele
>


title: Q.ry di aggiornam. per campo progress.

text:
T.S.M. FONDI ha scritto:



> Prima di tutto grazie per l'interessamento.
> Hai ragione per l'errore di progettazione, ma non dipende da me.
> Per l'aggiornamento penso che dovrò rinunciare: farlo a mano non è possibile
> (sono tanti record) e tramite vba, purtroppo, non sono capace.
> Di nuovo un saluto
> Gabriele
Non è difficile, è un programmino di poche righe.
Dammi i nomi esatti della tabella e del campo che te lo scrivo io, così te
lo studi e cominci ad avvicinarti al vba.
