title: Chi può aiutarmi ?

author: Homer

text:
Sono nuovo nel NG e avrei un problemino da sottoporvi; spero che ci sia
qualcuno che possa aiutarmi:
Il problema è come fare a comunicare ad un database in cui ho le tabelle
dati la sua password di apertura dal db di lavoro nella fase di
riallegatabella. Grazie.


title: Chi può aiutarmi ?

author: lbo dal portatile

text:
>Il problema è come fare a comunicare ad un database in cui ho le tabelle
>dati la sua password di apertura dal db di lavoro nella fase di
>riallegatabella. Grazie.
in effetti e' una cosa mal documentata nell'help.  nel sito comune,
tra le faq o i tip, non ricordo, dovrebbe esserci la soluzione.
l'indirizzo e' qui sotto.
comunque mi pare di ricordare che il problema principale sia che
sull'help si dice che alcuni parametri di opendatabase sono opzionali,
invece e' necessario specificarli tutti.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Chi può aiutarmi ?

text:
lbo dal portatile <
l...@NOSPAM.blunet.it
> wrote in message
38db6aaf...@news.interbusiness.it...

Ho già provato con i param di Opendatabase...... ma senza risultato !!!
Grazie comunque.


title: Chi può aiutarmi ?

text:
>Ho già provato con i param di Opendatabase...... ma senza risultato !!!
puoi postare il codice che usi?  fai conto che la pw sia "pippo".



title: Chi può aiutarmi ?

text:
lbo dal portatile <
l...@NOSPAM.blunet.it
> wrote in message
38dcab6...@news.interbusiness.it...
> >Ho già provato con i param di Opendatabase...... ma senza risultato !!!
>
> puoi postare il codice che usi?  fai conto che la pw sia "pippo".
>
All'avvio del prg viene lanciata la routine per allegare le tabelle
"ControllaCollegamenti":
' Controlla i collegamenti al database; restituisce True se i collegamenti
funzionano.
    Dim dbs As DATABASE, dbex As DATABASE, rst As Recordset, tb As Recordset
    Set dbs = CurrentDb()
    ' Apre una tabella collegata per controllare che le informazioni sulla
connessione siano corrette.
    On Error Resume Next
    Set rst = dbs.OpenRecordset("Letture")
    ' Se non si riscontra alcun errore, restituisce True.
    If Err = 0 Then
        ControllaCollegamenti = True
          rst.Close
        Set tb = dbs.OpenRecordset("Parametri procedura")
        tb.MoveFirst
        DbaseName = tb.Fields("Percorso DATABASE")
        tb.Close
    ElseIf Err = 3031 Then                  ' L'err 3031 equivale a:
Password non corretta
    Qui ho provato ad usare l'istruzione         Set dbex =
OpenDatabase("MioDB", , , "pippo")
     e quindi  ho provato, dalla finestra di debug a verificare la
possibilità di collegarmi al Db; risultato: un bel niente.
    Else
        ControllaCollegamenti = False
    End If
Ciao.


title: Chi può aiutarmi ?

text:
>    ElseIf Err = 3031 Then                  ' L'err 3031 equivale a:
>Password non corretta
>
>    Qui ho provato ad usare l'istruzione         Set dbex =
>OpenDatabase("MioDB", , , "pippo")
ripeto quello che ho scritto due o tre mex addietro:
"comunque mi pare di ricordare che il problema principale sia che
sull'help si dice che alcuni parametri di opendatabase sono opzionali,
invece e' necessario specificarli tutti."
li' sopra tu non hai specificato i parametri oppzionali.  prova a
specificarli.



title: Chi può aiutarmi ?

text:
lbo dal portatile <
l...@NOSPAM.blunet.it
> wrote in message
38e0fbad...@news.interbusiness.it...
> >    ElseIf Err = 3031 Then                  ' L'err 3031 equivale a:
> >Password non corretta
> >
> >    Qui ho provato ad usare l'istruzione         Set dbex =
> >OpenDatabase("MioDB", , , "pippo")
>
> ripeto quello che ho scritto due o tre mex addietro:
>
> "comunque mi pare di ricordare che il problema principale sia che
> sull'help si dice che alcuni parametri di opendatabase sono opzionali,
> invece e' necessario specificarli tutti."
>
> li' sopra tu non hai specificato i parametri oppzionali.  prova a
> specificarli.
Ho provato a specificarli:
caso 1) OpenDatabase("MioDB", False, False, "pwd=pippo")
            access mi ristituisce come err: impossibile collegarsi
all'origine dati ODBC
caso 2) OpenDatabase("MioDB", , False, "pwd=pippo")
            access mi ristituisce come err: pwd non valida
In ultimo, mi č successo questo:
1:ho creato una nuova tb nel db dati protetto da pw
2:ho aperto il db programma e dalla finestra di db ho fatto un "allega
tabella" di questa nuova appena creata
3:prima di allegare la tb, access mi ha chiesto di digitare la pw
4:ho inserito la pw nella casella e la tb č stata correttamente allegata
5:da questo momento, lanciando il db non ho piů riscontrato il problema (a
meno di spostare la stesso in altra Dir e quindi ritornare al punto di
partenza!)
PS: una volta che il db programma č aperto, riesco ad aprire in
visualizzazione dati la sola tb che ho allegato per ultima; sulle altre mi
viene ritornato il solito messaggio di pw non valida.
Penso a questo punto che il sig Access vada quindi a scriversi la pw in
qualche luogo oscuro..... ma dove ?


title: Chi può aiutarmi ?

author: Antonio Biso

text:
Homer ha scritto nel messaggio <8bt9p9$juj$
1...@nslave2.tin.it
>...
>
>Ho provato a specificarli:
>caso 1) OpenDatabase("MioDB", False, False, "pwd=pippo")
>            access mi ristituisce come err: impossibile collegarsi
>all'origine dati ODBC
C'era qualcosa riguardo la sintassi della stringa che dava la password
documentata male nell'help.
Qualcosa per cui doveva essere
"pwd='pippo'"
oppure
"[pwd]=pippo"
o
"[pwd]='pippo'"
Non ricordo però, provale...
Antonio


title: Chi può aiutarmi ?

author: Federico Luciani

text:
Homer wrote:
> lbo dal portatile <
l...@NOSPAM.blunet.it
> wrote in message
> 38dcab6...@news.interbusiness.it...
> > >Ho già provato con i param di Opendatabase...... ma senza risultato !!!
> > puoi postare il codice che usi?  fai conto che la pw sia "pippo".
>
> All'avvio del prg viene lanciata la routine per allegare le tabelle
> "ControllaCollegamenti":
> [snip]
> OpenDatabase("MioDB", , , "pippo")
>      e quindi  ho provato, dalla finestra di debug a verificare la
> possibilità di collegarmi al Db; risultato: un bel niente.
Per riallegare le tabelle non devi aprire il db, ma devi
solo modificare la proprieta' connect (stringa di
connessione) delle tabelle allegate. (cerca 'connect'
nell'help per le specifiche)
Tale stringa oltre al percorso del db contenente la tabella
da allegare, deve contenere la pwd di accesso al database.
Quindi per riallegare le tabelle dovrai modificare la loro
proprieta' connect che nel tuo caso sara':
tdf.connect = "MS
Access;PWD=pippo;DATABASE=C:\...\MioDB.mdb"
Esempio:
...
For Each tdf In dbs.TableDefs
   If (Len(tdf.Connect) > 0) Then
      tdf.Connect = "MS
Access;PWD=pippo;DATABASE=C:\...\MioDB.mdb"
      Err = 0
      On Error Resume Next
      tdf.RefreshLink
      If Err <> 0 Then
         AggColl = False
         Exit Function
      End If
   End If
Next tdf
AggColl = True
...
LA password e la nuova posizione del db dovranno essere
imputate dall'utente!
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Chi può aiutarmi ?

text:
OK.
Cosě funziona:
    ....
        ....
         tdf.Connect = ";DATABASE=" & strNomeFile & "; pwd=pippo"
La "sfortuna" č che ho letto le risposte del NG quando, trovata la soluzione
stavo per inserirla nel NG.
Gazie lo stesso.
Homer


title: Casella combinata e problemi

author: MTofa

text:
Ho tabella "Tipo pagamento" con relazione uno a molti con altra tabella
"fatture" dove vengono memorizzati i dati di fatture emesse. In una maschera
basata su Query tra una tabella "clienti" e la tabella "fatture" (anche
queste in relazione uno a molti tra loro) ho una casella combinata che
prende i dati dalla tab "Tipo pagamento" e che deve memorizzare il dato
scelto nel campo "Pagamento" della tabella "fatture". La stessa struttura
che ho fatto è presente anche nel databse di esempio Northwind, soltanto che
quì funziona normalemnte mentre nel mio db, una volta inseriti tutti a dati
della fattura nella maschera e scelto il tipo di pagamento con la casella
combinata in questione, quando clicco sull'avanzamento al record successivo
mi dà questo messaggio:
"L'apporto di modifiche non è riuscito perchè si è cercato di duplicare i
valori nell'indice, nella chiave primaria o nella relazione. Modificare i
dati nel campo o nei campi che contengono i dati duplicati, rimuovere
l'indice o ridefinire l'indice per consentire l'inserimento di voci
duplicate, quindi ritentare l'operazione"
Ora io sono sicuro che questo messaggio sia poco pertinente con il vero
problema perchè di fatto non avviene nessun tentativo di duplicazione di
chiavi primarie o indici. Qualcuno può aiutarmi con qualche suggerimento?
--
mtofa
mt...@iol.it


title: Casella combinata e problemi

author: Prometeo

text:
MTofa ha scritto:
> Ho tabella "Tipo pagamento" con relazione uno a molti con altra tabella
> "fatture" dove vengono memorizzati i dati di fatture emesse. In una maschera
> basata su Query tra una tabella "clienti" e la tabella "fatture" (anche
> queste in relazione uno a molti tra loro)
Ciao, purtroppo non mi è chiaro cosa intendi per maschera basata su Query
tra una tabella "clienti" e la tabella "fatture"
Come sono strutturate la maschera e la query?
ho una casella combinata che
> prende i dati dalla tab "Tipo pagamento" e che deve memorizzare il dato
> scelto nel campo "Pagamento" della tabella "fatture". La stessa struttura
> che ho fatto è presente anche nel databse di esempio Northwind, soltanto che
> quì funziona normalemnte mentre nel mio db, una volta inseriti tutti a dati
> della fattura nella maschera e scelto il tipo di pagamento con la casella
> combinata in questione, quando clicco sull'avanzamento al record successivo
> mi dà questo messaggio:
> "L'apporto di modifiche non è riuscito perchè si è cercato di duplicare i
> valori nell'indice, nella chiave primaria o nella relazione. Modificare i
> dati nel campo o nei campi che contengono i dati duplicati, rimuovere
> l'indice o ridefinire l'indice per consentire l'inserimento di voci
> duplicate, quindi ritentare l'operazione"
> Ora io sono sicuro che questo messaggio sia poco pertinente con il vero
> problema perchè di fatto non avviene nessun tentativo di duplicazione di
> chiavi primarie o indici. Qualcuno può aiutarmi con qualche suggerimento?
Hai verificato il campo della tabella fatture relativo al controllo
associato alla casella combinata sulla form Fatture non sia indicizzato
(duplicati impossibili)?
Ciao
Ligi
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Casella combinata e problemi

text:
"Prometeo" <
Chiwa...@indi.it
> ha scritto nel messaggio
news:d9p6t4$amq$1...@news.newsland.it...
> MTofa ha scritto:
>
>
> Ciao, purtroppo non mi è chiaro cosa intendi per maschera basata su Query
> tra una tabella "clienti" e la tabella "fatture"
> Come sono strutturate la maschera e la query?
>
Ho una Query "FattureQuery" che raccoglie i dati dalla tabella "Clienti" e
dalla tabella "Fatture" legate tra loro da una relazione uno a molti tramite
la chiave "IDCliente". L'origine dei controlli della maschera é sulla query
suddetta e da modo di inserire i dati delle fatture nella tebella "Fatture"
e di rivedere quelle già emesse nei record precedenti. Praticamente è la
stessa impostazione del db Northwind.
>
> Hai verificato il campo della tabella fatture relativo al controllo
> associato alla casella combinata sulla form Fatture non sia indicizzato
> (duplicati impossibili)?
> Ciao
> Ligi
>
E' indicizzato con i duplicati ammessi. Anche su non indicizzato non cambia
nulla.
Hai qualche altro suggerimento?
--
mtofa
mt...@iol.it


title: Casella combinata e problemi

text:
"MTofa" <mt...@NSPMiol.it> ha scritto nel messaggio
news:EeZve.25274$yM4.3...@twister2.libero.it...

Risolto! Sono rimasto ingannato, il problema non era dovuto alla casella
combinata ma ad un'altra modifica fatta prima dell'inserimento della casella
combinata.
Scusami e grazie per il suggerimento.
--
mtofa
mt...@iol.it


title: problemi campo allegati

author: eduardo

text:
Ciao a tutti,
ho questo problema: in una form ho creato un campo del tipo allegati
per salvare delle foto.
Ho diviso in 2 il db: per maschere +  query e tabelle, ho messo il db
con le tabelle in rete.
Ho creato il runtime per il db delle maschere da installare sui client
senza la licenza di access.
Quando cerco di aggiungere una foto nel campo allegati, il programma si blocca.
Se invece ci sono già delle foto riesco a visualizzarle.
Qualcuno può gentilmente aiuratmi?
Grazie mille!!!
eduardo.


title: problemi campo allegati

text:

Scusa ma le foto le aggiungi al db o nel campo allegati
metti solo il riferimento al file (percorso+nomefoto) ?


title: problemi campo allegati

author: ciroteo

text:

Ciao se non ricordo male con access runtime non si possono
visualizzare immagini diverse dai bitmap
per ovviare sarebbe opportuno utilizzare dei controlli appositi.
Puoi cercare sul sito di
lebans.com
 eventuali informazioni.


title: problemi campo allegati

author: idrovora

text:


le aggiungo al db mediante una form


title: problemi campo allegati

text:


le immagini sono jpg.
mediante access 2007 riesco a fare tutto, mediante versione runtime
installata, riesco solo
a visualizzare le immagini (caricate col programma access) e quando
tento di aggiungere un'immagine al campo (formato allegati) mi si
blocca l'applicazione.
grazie e ciao!


title: problemi campo allegati

text:
On 18 Lug, 23:20, idrovora <
ez...@email.it
> wrote:

Hai notato che aggiungendole al db le dimensioni delle stesso
aumentano ad ogni foto aggiunta ?
Io di solito metto un campo nel db dove memorizzo il
percorso completo + nomefoto poi nella form metto
una immagine non associata, tipo/immagine collegata
poi nell'evento load della form o quando vuoi tu
metti Me.TuaImmagine.Picture = PercorsoFoto
dove PercorsoFoto lo ricavi dal campo di cui sopra
Ciao


title: problemi campo allegati

author: Eduardo

text:


ok grazie farò come mi suggerisci tu.
ciao.


title: Salvare/modificare record solo a "comando"

author: Andrea

text:
In che modo posso evitare che il "genio" di turno incasini i record che
sta visualizzando?
Nel senso che a volte si richiama un record per consultarne i dati,
magari si vede che bisogna modificare un valore,si comincia però nel
frattempo suonano alla porta, chiamano al telefono, atterra un UFO, etc,
insomma ci si dimentica di quello che si stava facendo, si torna e si
chiude il Db, et voilà ti ritrovi il record incasinato.
Sarebbe conveniente impedire la registrazione/modifica dei record fino a
pressione di apposito pulsante, così in caso di invasione della terra, i
record non subiscono danni.
Scusate l'umorismo scadente.
Grazie per i consigli
Andrea


author: Massimo Piubelli

text:

è fondamentale che questo non accada, infatti nell'ultimo episodio di visitors si parlava appunto della protezione dei database access da questo tipo di azioni ;-)
Ma venendo alle cose serie...
Due cose farei, primo impostare la maschera in sola lettura.
Via codice, in apertura o meglio sull'evento "corrente"
Me.AllowEdits = False
Con un pulsante abiliti poi con un pulsante con l'istruzione contraria.
Per richiedere conferma di salvataggio puoi invece utilizzare l'evento prima di aggiornare della maschera stessa, che ti consente di impostare cancel = true per annullare la conseguenza.
Ti consiglio di approfondire con la guida in linea.
> Scusate l'umorismo scadente.
> Grazie per i consigli
> Andrea
Prova e fa sapere se hai ulteriri dubbi.
Ciao,
Max


text:
Grazie per il suggerimento
Andrea
Massimo Piubelli ha scritto:



text:
Andrea wrote:
> Grazie per il suggerimento
> Andrea
Di niente, se posso un altro piccolo suggerimento... prima che arrivi qualche "cazziata" dall'alto ;-)
posta dopo il quoting (= scrivi in coda al messaggio precedente perchè aiuta meglio a leggere il thread)
Ciao,
Max


text:
Massimo Piubelli ha scritto:

  Grazie del suggerimento. Avevo ragionato all'inverso (invece di
annoiare con tutta la cronistoria all'inizio, lo faccio alla fine).
Grazie ancora
Andrea


title: [Help] Realizzare DB estrazione premi\vincitori\riserve

author: MC

text:
Come da oggetto,
chiedo venia ed aiuti! Devo creare un applicazione che partendo da due
tabelle separate (Concorrenti e Premi) vada a sorteggiarmi per ogni premio
in palio, il relativo vincitore e le relative riserve, secondo una
determinata logica di abbinamento.
Probabilmente sarà l'attività più semplice del mondo (Pablitomf mi suggerì
giorni fa di basarmi sui principi della tombola) ... sarà che ho un blocco
psicologico ... ma sinceramente non ho la più pallida idea di come
svilupparlo.
O meglio ... ho moltissima confusione in testa e ho paura di buttare via
troppe ore di lavoro in modo inconcludente.
Se ci fosse un'anima pia disposta a supportarmi in questa verticalizzazione,
qui nel NG, via mail ... in zona BG (mi sposto io o ospito a pranzo\cena da
me!!!) sarei davvero grato!
Attendo riscontri e\o dritte in merito, mi scuso ancora, ma questa volta non
ho proprio la minima idea di che cosa fare...sono grave vero?
Intanto Buon Week-End a tutti e spero di leggere presto risposte
rassicuranti, in caso contrario ... pazienza ... ci ho provato!
--
MC


author: MA

text:
MC wrote:
> Come da oggetto,
> chiedo venia ed aiuti! Devo creare un applicazione che partendo da due
> tabelle separate (Concorrenti e Premi) vada a sorteggiarmi per ogni
> premio in palio, il relativo vincitore e le relative riserve, secondo
> una determinata logica di abbinamento.
Allora qual'è il meccanismo???
Come si vince un premio?
Hai già un meccanismo vero (non sto parlando del db) o ne possiamo pensare
uno?
Per esempio, dipendesse da me, io farei una classifica in base alla taglia
di reggiseno...
Tu invece? random?
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


text:
[cut]
> Allora qual'è il meccanismo???
> Come si vince un premio?
> Hai già un meccanismo vero (non sto parlando del db) o ne possiamo pensare
> uno?
> Per esempio, dipendesse da me, io farei una classifica in base alla taglia
> di reggiseno...
> Tu invece? random?
>
Beh, l'estrazione deve avvenire in modo randomico, così come l'abbinamento.
I finalisti li conoscio a priori, quindi tramite degli accodamenti andrò a
popolare la tabella delle persone da estrarre.
Chi viene estratto una volta non può più essere conteggiato.
Si estrare prima il vincitore del primo premio, poi del secondo e poi del
terzo. Si inizia poi con le riserve, supponiamo di averne 10 per premio,
cominciamo con la riserva 1 del primo premio, poi la riserva 1 del secondo,
poi la riserva 1 del terzo per poi passare alla riserva due del primo premio
... e così via ...
(forse era meglio pr taglia di reggiseno!!!).
Che dici ci siamo?
--
MC


text:

Allora prima cosa crea un bel campo booleano sui concorrenti.
Chi vince non può essere più sorteggiato.
C'è bisogno di un'altra tabella Premiati
Dunque eseguiamo due random leggendo la tabella Concorrenti e quella premio.
Avute le due notizie ti apri il recordset della tabella premiati e lo popoli
con Il premio e i concorrenti
usciti fuori da premiati.
> (forse era meglio pr taglia di reggiseno!!!).
Vuoi mettere????
Vorrà dire che non ti invito come giurato!!!
>
> Che dici ci siamo?
Se ti va come ragionamento passiamo al codice



text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:Ijc%e.42806$TR5....@news.edisontel.com...

Direi che la cosa può andare, ma devo ancora creare le tabelle...
quindi devo creare:
1.    Tabella Premi
2.    Tabella Partecipanti all'estrazione
3.    Tabella Abbinamenti (qui cosa dici, registro il record per premio e
lego i vari campi di sorteggio: vincitore, ris1, ris2, ris3...e così via?)
Ti facci opresente inoltre che il numero delle riserve può essere variabile
da 0 in su anche fino a 100 riserve\premio.
DEtto questo e visto che siamo alle 17 del venerdì .. come mi consigli di
procedere (nel week-end credo di poterci lavorare nei momenti di
tranquillità)?
--
MC


author: Roberto dalla campagna

text:
"MC" <
mauro.c...@gmail.com
> ha scritto nel messaggio
news:dhji7p$mpe$1...@domitilla.aioe.org...

Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi la FAQ di
Farid Ahmad intitolata "6.12 Randomly Selected Unique Records".
>
> --
> MC
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


text:
[cut]
Dimenticavo.
L'estrazione avverrà non per codice articolo premio e concorrente ma per
Codici Virtuali che dovranno essere preventivamente creati da codice.
Mi può bastare dure che i partecipanti li codifico a partire da 900 quindi
se ho 100 partecipanti il primo avrà codice 900 e il centesimo avrà codice
999...idem pre i premi.
(Così mi è stato chiesto di procedere)
-
MC


text:

> Direi che la cosa può andare, ma devo ancora creare le tabelle...
> quindi devo creare:
>
> 1.    Tabella Premi
> 2.    Tabella Partecipanti all'estrazione
> 3.    Tabella Abbinamenti (qui cosa dici, registro il record per
> premio e lego i vari campi di sorteggio: vincitore, ris1, ris2,
> ris3...e così via?)
Qui hai una tabella semplice riepilogativa
idContatore
idPremio
IdConcorrente
Assegnato(sì/no)
Allora.
Estraggo il premio
Dim rstPremio as dao.recordset
Dim rstConcorrente as dao.recordset
Dim rstPremiazioni as dao.recordset
dim strPremio as string
dim strConcorrente as string
strPremio = "SELECT TOP 1 IntRnd([IdPremio])*100) AS CasoPrem,
tblPremio.IdPremio FROM tblpemio ORDER BY Int(Rnd([Idpremio])*100);
strConcorrente = "SELECT TOP 1 IntRnd([IdConcorrente])*100) AS CasoConc,
tblconcorrente.Idconcorrente FROM tblConcorrente ORDER BY
Int(Rnd([IdConcorrente])*100);
set rstPremio = currentdb.openrecordset(strPremio)
set rstConcorrente = Currentdb.openrecordset(strConcorrente)
set rstPremiazioni = currentdb.openrecordset("tblPremiati")
with rstConcorrente
    .edit
    !Premiato = -1
    .update
end with
with rstPremiazioni
    .addnew
    !idPremio = rstPremio!caso
    !idConcorrente = rstConcorrente!idConcorrente
    .update
end with
rstpremio.close : set rstpremio = nothing
rstconcorrenti.close : set rstconcorrenti = nothing
rstpremiazioni.close : set rstpremiazioni = nothing
>
> Ti facci opresente inoltre che il numero delle riserve può essere
> variabile da 0 in su anche fino a 100 riserve\premio.
> DEtto questo e visto che siamo alle 17 del venerdì .. come mi
> consigli di procedere (nel week-end credo di poterci lavorare nei
> momenti di tranquillità)?
L'ho scritto direttamente ed in fretta in OE quindi non so se funzia.
Avrai il weekend per lavorarci



text:
[cut]
Fantastico!
Nel week-end ci lavoro e lunedě ci aggiorniamo.
Se volessi spedirti il db (anche per non intasare il NG ... se sei daccordo
... mandami una mail al mio indirizzo mauro.chiarello @ gmail . com e almeno
so dove risponderti e ti inoltro il tutto.
Per ora grazie!
--
MC


text:
[cut]
Grazie, nel week-end ne prendo visione e vedrò come utilizzarla, magari in
compartecipazione con quanto mi ha postato MA.
Buon week-end
--
MC


text:

la mia mail č inchiaro qui.
Ti ho inviato una mail al tuo ma č tornata dietro



text:
[cut]
hai ricevuto mail da account hotmail?
Alla fine ti spedirņ una buona bottiglia dal Franciacorta se mi dai il tuo
indirizzo (o altro di tuo gradimento)!!!!
Ciao
--
MC


text:

Ciao Strano,
ho ricevuto il file ma non riesco a rispedirtelo.
Mi dai un account valido?
Oppure download da
www.maicaa.somee.com/newweb/db_estrazione.zip



text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:VGa0f.43297$TR5....@news.edisontel.com...
> MC wrote:
>> [cut]
>> hai ricevuto mail da account hotmail?
>> Alla fine ti spedirņ una buona bottiglia dal Franciacorta se mi dai
>> il tuo indirizzo (o altro di tuo gradimento)!!!!
>> Ciao
>
> Ciao Strano,
> ho ricevuto il file ma non riesco a rispedirtelo.
Grazie, ho fatto il download.
Domani avrņ pochissimo tempo, mercoledģ gli butto le mani sopra e se ti fa
piacere ti tengo aggiornato!
Ciao--
MC


text:

Certo, come vedrai nei criteri per l'assegnazione dei premi ho messo che il
candidato debba avere un accento napoletano e pesare intorno ai 100kg...
la procedura fallisce se cambi i criteri



text:
Ciao MA.
L'idea mi piace purtroppo per me però non è così semplice quello a cui devo
arrivare.
Il fatto è che ad ogni estrazione posso avere diversi dati variabili quali:
1. Numero premi in palio (posso però dire l'ordine di estrazione)
2. Numero riserve per premio
3. Numero di presenze di ciascun ipotetico sorteggiato
4. Numero di volte che può essere estratto ogni partecipante all'estrazione
Con questi 4 parametri posso coprire l'80% delle esigenze di estrazione ma
sulla base di quanto mi hai postato e considerando il fatto che *codesta
attività* mi manda in black out, a fatica interpreto come potrei
riutilizzarlo.
abbi pazienza!!!!
Ti riporto il codice che ben conosci!!!
Private Sub Comando4_Click()
    Dim rst As DAO.Recordset
    Dim rstPremiato As DAO.Recordset
    Dim Premiato As String
    Set rst = CurrentDb.OpenRecordset("Q_ProssimoPremio")
    Set rstPremiato = CurrentDb.OpenRecordset("tblPremiati")
    With rstPremiato
        .AddNew
        !idPremio = Me.ScegliPremio
        !idconcorrente = rst!idconcorrente
        Premiato = rst!idconcorrente
        .Update
    End With
    rstPremiato.Close: Set rstPremiato = Nothing
    rst.Close: Set rst = Nothing
    MsgBox "And the winner is..." & Chr(13) & Chr(10) & Premiato & "!!!",
vbInformation, "MA Lottery"
End Sub
--
MC


text:
MC wrote:
> Ciao MA.
> L'idea mi piace purtroppo per me però non è così semplice quello a
> cui devo arrivare.
> Il fatto è che ad ogni estrazione posso avere diversi dati variabili
> quali:
>
> 1. Numero premi in palio (posso però dire l'ordine di estrazione)
nella q_prossimoPremio hai un valore eval"Forms!... che punta alla combobox
sulla maschera
Toglilo e mettici un parametro da passare con la tecnica del querydef.
Il parametro del premio lo ottienii con una tabellina che elenca i premi
nell'ordine che vuoi.
> 2. Numero riserve per premio
nella query abbiamo un TOP 1, basta semplicemente che prendi il valore dalla
scelta che fai.
Ti spiego nella form hai un controllo nRiserve
bene prima ti prendi il valore
dim ris as Integer
Ris = forms!tuaform!nRiserve
e poi passi select top ris ...
non ho provato ma dovrebbe andare
> 3. Numero di presenze di ciascun ipotetico sorteggiato
Questa non l'ho capita
> 4. Numero di volte che può essere estratto ogni partecipante
> all'estrazione
A quel punto condizioni il conteggio delle volte con un semplice dcount
e nel caso fai un movenext
>
> Con questi 4 parametri posso coprire l'80% delle esigenze di
> estrazione ma sulla base di quanto mi hai postato e considerando il
> fatto che *codesta attività* mi manda in black out, a fatica
> interpreto come potrei riutilizzarlo.
>
> abbi pazienza!!!!
>
> Ti riporto il codice che ben conosci!!!
>
--



author: yronium

text:
[...CUT...]
Ciao. Tempo fa ho creato un piccolo database .mdb dimostrativo che estrae
una domanda a caso, e propone all'utente la risposta corretta in mezzo ad
altre tre prese a caso dalla tabella, e posiziona le quattro risposte in
sequenza variabile. Il database serviva per la preparazione di questionari.
Il formato delle domande e risposte è "domanda X - risposta numerica" ma
naturalmente il contenuto dei campi si può variare a piacere.
Per verificare il comportamento, la risposta corretta della prossima domanda
viene presentata in una msgbox prima di mostrare il recorrd successivo, in
modo che si possa vedere cosa succede quando si seleziona la risposta
sbagliata o la risposta giusta.
Il link per il download è
http://www.andreavb.com/forum/message.php?Action=downloadfile&FileID=157
però purtroppo il database è in inglese.
Guarda se magari ti può essere utile. Ciao
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


text:
[...CUT...]
Scusa la dimenticanza. Ti posto anche il link alla discussione nel forum: lě
abbiamo parlato di estrazione casuale dei dati, magari ti viene qualche
idea...
Il link č
http://www.andreavb.com/forum/viewtopic.php?TopicID=5050&page=0#16986
Ciao ancora.



text:
[cut]
grazie, ma non mi fa fare il download per mancanza di permessi!
Se hai modo di potermelo spedire ...
m.chi...@hotmail.it
 ... grazie!!!
P.S. file zippato per favore (nell'eventualità che tu riesca a
spedirmelo!!!!!)
--
MC


text:
> Se hai modo di potermelo spedire ...
Fatto. Controlla la posta.



title: [Access 97] Casella combinata

author: pang

text:
Salve, vorrei inserire in una maschera una casella combinata relativa ad una
tabella nella quale ci sono 2 campi.
Il "problema" è che quando seleziono il record vorrei visualizzare su
maschera anche il secondo campo corrispondente **anche dopo la selezione**,
mentre voglio memorizzare solo il primo sulla tebella collegata alla
maschera.
Grazie, pang.


title: [Access 97] Casella combinata

author: Morfeus

text:
"pang" <
aa...@bbb.it
> ha scritto nel messaggio
news:dr7h79$3fo$1...@nnrp.ngi.it...
> Salve, vorrei inserire in una maschera una casella combinata relativa ad
> una
> tabella nella quale ci sono 2 campi.
>
> Il "problema" č che quando seleziono il record vorrei visualizzare su
> maschera anche il secondo campo corrispondente **anche dopo la
> selezione**,
> mentre voglio memorizzare solo il primo sulla tebella collegata alla
> maschera.
>
>
> Grazie, pang.
>
>
Guarda nelle proprietą della combo:
 proprietą Dati - colonna associata - metti la colonna che vuoi memorizzare.
 proprietą Formato - numero colonne - metti il numero di colonne che vuoi
visualizare.
 proprietą Formato - larghezza colonna - metti i cm
se vuoi vedere solo descrizione e memorizzare il campo ID (001 pippo) sarą:
colonna associata 1
numero colonne 2
larghezza colonne 0cm ; 5cm
Spero di essere stato chiaro..... ciao Luca


title: [Access 97] Casella combinata

text:
"Morfeus" <
luca_c...@hotmail.com
> ha scritto nel messaggio
news:kUIBf.49526$av6....@tornado.fastwebnet.it...
>
> "pang" <
aa...@bbb.it
> ha scritto nel messaggio
> news:dr7h79$3fo$1...@nnrp.ngi.it...
> > Salve, vorrei inserire in una maschera una casella combinata relativa ad
> > una
> > tabella nella quale ci sono 2 campi.
> >
> > Il "problema" è che quando seleziono il record vorrei visualizzare su
> > maschera anche il secondo campo corrispondente **anche dopo la
> > selezione**,
> > mentre voglio memorizzare solo il primo sulla tebella collegata alla
> > maschera.
> >
> >
> > Grazie, pang.
> >
> >
> Guarda nelle proprietà della combo:
>  proprietà Dati - colonna associata - metti la colonna che vuoi
memorizzare.
>  proprietà Formato - numero colonne - metti il numero di colonne che vuoi
> visualizare.
>  proprietà Formato - larghezza colonna - metti i cm
> se vuoi vedere solo descrizione e memorizzare il campo ID (001 pippo)
sarà:
> colonna associata 1
> numero colonne 2
> larghezza colonne 0cm ; 5cm
>
> Spero di essere stato chiaro..... ciao Luca
Funziona. E se volessi visualizzare tutte e 2 le colonne, mentre
memorizzarne 1 ?


title: report con totale anche senza dati

author: MIKE

text:
Scusate la domanda banele:
Nel report nel piè di pagina report ho un campo testo con il
totale=somma([IMPORTO])
Funziona correttamente, ma se apro il report con delle condizioni per
cui noi ci sono dati, nel campo c'è #errore.
Come elimino il problema?
Grazie.
MIKE
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: report con totale anche senza dati

author: David

text:
"MIKE" <
mbos...@freemail.it
> ha scritto nel messaggio
news:56e571477bca82162f2...@mygate.mailgate.org...

funzione NZ vedi guida in linea
David


title: report con totale anche senza dati

author: Michele Boscolo

text:
> > Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
> funzione NZ vedi guida in linea
> David
ho provato con:
Nz(Somma(Nz([PREZZO];0));0)
ma continua a restituire #errore



title: report con totale anche senza dati

text:
"Michele Boscolo" <
mbos...@freemail.it
> ha scritto nel messaggio
news:9713b74dd75d7604416...@mygate.mailgate.org...

=NZ(Somma([PREZZO]);0)
questa dovrebbe essere la sintazzi giusta


title: report con totale anche senza dati

text:
"David" <
davi...@aopn.fvg.it
> wrote in message
> > > funzione NZ vedi guida in linea
> > > David
> >
> > ho provato con:
> > Nz(Somma(Nz([PREZZO];0));0)
> > ma continua a restituire #errore
> >
> > MIKE
> >
> >
> > --
> > Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
>
> =NZ(Somma([PREZZO]);0)
> questa dovrebbe essere la sintazzi giusta
mi ritorna sempre #errore.
Mi viene il dubbio che non sia possibile, e quindi si debba usare
l'evento
Report_NoData
oppure...??



title: report con totale anche senza dati

text:
"Michele Boscolo" <
mbos...@freemail.it
> ha scritto nel messaggio
news:5ec83067450451ad9af...@mygate.mailgate.org...

Guarda nel sito comune
http://www.sitocomune.com/
alla sezione "report" la prima voce "come creare il totale di pagina..."
forse risolvi il problema ciao
David


title: report con totale anche senza dati

author: sv

text:
Michele Boscolo ha scritto:
> "David" <
davi...@aopn.fvg.it
> wrote in message
> > > > funzione NZ vedi guida in linea
> > > > David
> > >
> > > ho provato con:
> > > Nz(Somma(Nz([PREZZO];0));0)
> > > ma continua a restituire #errore
> > >
> > > MIKE
> > >
> > >
> > > --
> > > Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
> >
> > =NZ(Somma([PREZZO]);0)
> > questa dovrebbe essere la sintazzi giusta
> mi ritorna sempre #errore.
> Mi viene il dubbio che non sia possibile, e quindi si debba usare
> l'evento
> Report_NoData
> oppure...??
> MIKE
Scusatemi se mi intrometto.
Chiedevo: se il report è senza dati che senso ha l'anteprima di un report
vuoto?
Comunque prova con:
=IIf("#Errore";0;Somma([Prezzo]))
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: report con totale anche senza dati

author: Antonio Biso

text:
"MIKE" <
mbos...@freemail.it
> ha scritto nel messaggio
news:56e571477bca82162f2...@mygate.mailgate.org...
> Scusate la domanda banele:
> Nel report nel piè di pagina report ho un campo testo con il
> totale=somma([IMPORTO])
> Funziona correttamente, ma se apro il report con delle condizioni per
> cui noi ci sono dati, nel campo c'è #errore.
>
> Come elimino il problema?
> Grazie.
Su evento nodata scrivi un messaggio, non ci sono dati
quando lanci il report con docmd.openreport, metti prima un on error resume
next
Antonio


title: report con totale anche senza dati

text:
"sv" <
salv...@nospbox.enel.it
> ha scritto nel messaggio
news:c5ockb$erh$1...@news.newsland.it...
> Michele Boscolo ha scritto:
>
> Comunque prova con:
> =IIf("#Errore";0;Somma([Prezzo]))
Attenzione, "#errore" non è una stringa che si può testare.
Per testare l'errore su un controllo calcolato si deve usare IsError
Antonio


title: report con totale anche senza dati

author: Karl Donaubauer

text:
MIKE ha scritto:
> Nel report nel piè di pagina report ho un campo testo con il
> totale=somma([IMPORTO])
> Funziona correttamente, ma se apro il report con delle condizioni per
> cui noi ci sono dati, nel campo c'è #errore.
>
> Come elimino il problema?
=iif(HasData;somma([IMPORTO]))
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: report con totale anche senza dati

text:
Antonio Biso ha scritto:


> Antonio
Ciao Antonio,
si è vero, ma... fai una prova su un report vuoto.



title: 2OT modem e winpopup

author: All Eyez On me

text:
Scusate gli argomenti...
in win xp non c'è più winpop-up?
secondo:
da un cliente il modem 56k  si connette a 32K (puntando col ilmouse
sull'icona del collegamento)
riavvio il computer, e la veloscità scende a 28K
Mistero?
Ciao, AEOM


title: 2OT modem e winpopup

author: Antonio Ganci

text:

Ti sei dimenticato di dirmi quale versione di Access usi.
Ciao, Antonio.


title: 2OT modem e winpopup

text:
"Antonio Ganci" <a.ganci@NO_SPAMMING_megattera.it> ha scritto nel messaggio
news:ahrktm$66s$1...@newsreader.mailgate.org...

Che centra Access?
AEOM


title: 2OT modem e winpopup

text:
> Che centra Access?
E che cosa c'entra quello che hai scritto con it.comp.appl.access?


title: 2OT modem e winpopup

text:
"Antonio Ganci" <a.ganci@NO_SPAMMING_megattera.it> ha scritto nel messaggio
news:ahrlak$6jj$1...@newsreader.mailgate.org...
> > Che centra Access?
>
> E che cosa c'entra quello che hai scritto con it.comp.appl.access?
>
>
>
>
E secondo te perchè ho scritto OT nell'oggetto del messaggio?
Imparati le regole dei newgroups!
AEOM


title: 2OT modem e winpopup

author: Massimiliano Amendola  kksrl

text:
> > > Che centra Access?
> >
> > E che cosa c'entra quello che hai scritto con it.comp.appl.access?
> E secondo te perchè ho scritto OT nell'oggetto del messaggio?
> Imparati le regole dei newgroups!
>
> AEOM
>
vedi oggetto
MAssimiliano


title: 2OT modem e winpopup

author: Jojo

text:
"All Eyez On me" <
bf-si...@libero.it
> wrote:
>E secondo te perchè ho scritto OT nell'oggetto del messaggio?
>Imparati le regole dei newgroups!
Ahem... le "regole" dicono che non si devono fare OT, non che si può
fare quel merlo che ci pare se si mette "OT" nel subject...
Sarebbe come dire che rubare sarebbe un reato, ma viene tollerato se
il ladro si piazza un cartello con su scritto "sto rubando"...
Poi, nei gruppi non moderati nessuno lo può impedire, vero, ma chi fa
gli OT deve accettare di essere successivamente cazziato. E lo dico
con cognizione di causa, visto che io faccio spesso degli OT (come
adesso, ad esempio).


title: 2OT modem e winpopup

text:
"Jojo" <sup...@pirotti.ct> ha scritto nel messaggio
news:ao33ku8csbs85polt...@4ax.com...

Se posto ot significa che so che ci sono amici in questo newsgroup che mi
aiutano anche per problemi fuori access, come io aiuto loro, quindi vedi di
non scassare la m.... fa  a meno di rispondermi.
AEOM


title: 2OT modem e winpopup

author: Matteo Palmieri

text:
"All Eyez On me" <
bf-si...@libero.it
> ha scritto nel messaggio
news:ahsdv4$6kq$1...@lacerta.tiscalinet.it...
> Se posto ot significa che so che ci sono amici in questo newsgroup che
mi
> aiutano anche per problemi fuori access, come io aiuto loro, quindi
vedi di
> non scassare la m.... fa  a meno di rispondermi.
Ho visto che infatti ce ne sono parecchi che ti hanno dato una risposta
al problema... ;-)
Non te la prendere, vai su un gruppo più appropriato a fare queste
domande.
Infine, se posso darti un consiglio, quando sei OT (e ogni tanto ci può
anche stare) evita almeno di essere scontroso e maleducato con chi ti
cazzia, altrimenti poi si smette di risponderti anche ai messaggi in
topic...
Senza rancore.
--
Matteo Palmieri - Cybercreations
www.cybercreations.it


title: 2OT modem e winpopup

text:
"Matteo Palmieri" <
matteo....@cybercreations.it
> ha scritto nel
messaggio news:ahtg71$gnb$1...@serv1.albacom.net...

Intanto scusa non volevo rispondere a te ma all'altro, e comunque i miei ot
(i primi in due anni) almeno sono sempre nella sfera informatica, qui ne
vedo parecchi su ferie, mogli incinta, arbitri cornuti etc... se uno vuole
rispondere risponde altrimenti fa a meno, non serve fare tante paternali !
senza rancore
AEOM


title: 2OT modem e winpopup

text:
"All Eyez On me" <
bf-si...@libero.it
> ha scritto nel messaggio
news:ahtin1$eup$1...@lacerta.tiscalinet.it...
>
> >
> Intanto scusa non volevo rispondere a te ma all'altro, e comunque i miei
ot
> (i primi in due anni) almeno sono sempre nella sfera informatica, qui ne
> vedo parecchi su ferie, mogli incinta, arbitri cornuti etc... se uno vuole
Beh? Che c'hai da dì sugli arbitri cornuti?!?
> rispondere risponde altrimenti fa a meno, non serve fare tante paternali !
Non sono d'accordo...
Antonio


title: 2OT modem e winpopup

text:
"All Eyez On me" <
bf-si...@libero.it
> wrote:
>se uno vuole
>rispondere risponde altrimenti fa a meno, non serve fare tante paternali
Cicciobello, la "paternale" te la sei cercata tu quando hai tirato
fuori le "regole"... se te ne stavi buonino nessuno ti "scassava la
minchia".
Quindi zitto, e vedi di circolare.
(come vedi ho trasformato una stupidaggine in flame e non ho la
pretesa di "legalizzarlo" scrivendolo nel subject)


title: 2OT modem e winpopup

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:Wvt09.7720$lu5.1...@twister1.libero.it...
> "All Eyez On me" <
bf-si...@libero.it
> ha scritto nel messaggio
> news:ahtin1$eup$1...@lacerta.tiscalinet.it...
> >
> > >
>
> > Intanto scusa non volevo rispondere a te ma all'altro, e comunque i miei
> ot
> > (i primi in due anni) almeno sono sempre nella sfera informatica, qui ne
> > vedo parecchi su ferie, mogli incinta, arbitri cornuti etc... se uno
vuole
>
> Beh? Che c'hai da dì sugli arbitri cornuti?!?
>
Nel senso che in questo newsgroup si è parlato di politica, dei mondiali di
calcio, di attualità etc.  tutta roba OT e quindi non capisco che cacchio mi
si scassi perchè ciedo una cosa su un modem.
AEOM


title: 2OT modem e winpopup

text:
"Jojo" <sup...@pirotti.ct> ha scritto nel messaggio
news:vsi5ku45bb8nvhq4r...@4ax.com...

Spero che nella vita tu non sia cosě tarato!!
AEOM


title: 2OT modem e winpopup

text:
"All Eyez On me" <
bf-si...@libero.it
> ha scritto nel messaggio
news:ai15v0$pev$2...@lacerta.tiscalinet.it...

> Spero che nella vita tu non sia così tarato!!
Anche peggio...
Antonio


title: 2OT modem e winpopup

text:
"Antonio Biso" <
ch...@etruria.net
> wrote:
>> Spero che nella vita tu non sia cosě tarato!!
>
>Anche peggio...
<biso rosica>
Se ne deve essere accorto anche il mio boss, visto che quest'anno mi
ha dato un aumento di stipendio di soli 433 euro al mese... dovrň
tirare un po' la cinghia...
</biso rosica>


title: 2OT modem e winpopup

text:
"Jojo" <sup...@pirotti.ct> ha scritto nel messaggio
news:mpm9ku0umk4j993d8...@4ax.com...

I soldi non sono tutto nella vita se non ti si drizza piů... ciccio...
Antonio


title: 2OT modem e winpopup

text:
"Antonio Biso" <
ch...@etruria.net
> wrote:
>I soldi non sono tutto nella vita se non ti si drizza più... ciccio...
"Se i soldi non fanno la felicità, figurati la miseria!.." (cit.)


title: 2OT modem e winpopup

text:
"Jojo" <sup...@pirotti.ct> ha scritto nel messaggio
news:330akukuisf8r1hie...@4ax.com...
> "Antonio Biso" <
ch...@etruria.net
> wrote:
>
> >I soldi non sono tutto nella vita se non ti si drizza più... ciccio...
>
> "Se i soldi non fanno la felicità, figurati la miseria!.." (cit.)
Ricordi però la barza dell'uccello insaziabile?
Antonio


title: 2OT modem e winpopup

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:Fk819.13239$n04.3...@twister2.libero.it...
è una classica discussione da bar ... o da ASILO   ;)))
basta su... qui c'è gente che cerca info.... non facciamo i TARRONI  .. (se
chiamo a mio Cuggino   ;)) )...
ciao


title: 2OT modem e winpopup

text:
"### CH v.2002 ###" <
ngma...@genio-af.it
> ha scritto nel messaggio
news:ai3kl0$jff$1...@fe2.cs.interbusiness.it...
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:Fk819.13239$n04.3...@twister2.libero.it...
>
> è una classica discussione da bar ... o da ASILO   ;)))
>
> basta su... qui c'è gente che cerca info.... non facciamo i TARRONI  ..
(se
E' il solito discorso: aspetta, sopporta le asilate, quindi becca...
altrimenti nisba!!!
Antonio


title: Ultimo record

author: Lucio

text:
Salve a tutto il NG,
ho una maschera che serve a passare determinati record in un ciclo while
finché non arriva all'ultimo record.
Il problema che mi sta sorgendo è appunto questo ovvero: come faccio a
determinare l'ultimo record.
Difatti allo stato attuale il ciclo non si ferma e mi impalla
l'applicazione, quando poi-io-invece, vorrei dirgli "quando arrivi
all'ultimo record eseguimi nuovamente l'istruzione e poi fermati".
Grazie.
Lucio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Ultimo record

author: Bruno Campanini

text:
"Lucio" <nap...@NOSPAMtin.it> wrote in message
news:e0japv$11d$1...@news.newsland.it...
> Salve a tutto il NG,
> ho una maschera che serve a passare determinati record in un ciclo while
> finché non arriva all'ultimo record.
> Il problema che mi sta sorgendo č appunto questo ovvero: come faccio a
> determinare l'ultimo record.
> Difatti allo stato attuale il ciclo non si ferma e mi impalla
> l'applicazione, quando poi-io-invece, vorrei dirgli "quando arrivi
> all'ultimo record eseguimi nuovamente l'istruzione e poi fermati".
> Grazie.
> Lucio
Prova cosě:
Do Until Recordset.EOF
        .......................
        <Esegui istruzioni>
        ......................
        Recordset.MoveNext
Loop
Recordset.MovePrevious
Bruno


title: Ultimo record

author: Alessandro Baraldi

text:
Non mi è chiarissimo di che esigenza reale tu stia parlando, ma
in sostanza se devi ciclare i Dati di una Form serve riferirsi al
RecordSetClone
dell'oggetto Form.
Il RecordsetClone è un Recordset di fatto ed espone la proprietà EOF
che specifica la fine del Set di record.
Invece di spostarti tra i record con il MoveNext che ha anche un
effetto di
rallentare l'azione in questo modo ti sposti su un Clone della Form
rendendo
non visibile l'azione.
With Me.RecordsetClone
    .MoveFirst
    Do Until .EOF
         ' Esegui le istruzioni che servono
         .MoveNext
    Loop
End With
Ciao
@Alex


title: AIUTATEMI ! Dati "fantasma"

author: Marco

text:
Ecco il problema:
Ho una maschera che racchiude una relazione uno a molti tra due tabelle (con
la presenza quindi di una sottomaschera).
Le due tabelle sono i soliti CLIENTI e PRODOTTI (UNO-MOLTI).
Adesso vi spigo cosa mi succede.
1. Mi sposto su di un nuovo record (clienti) da inserire.
2. Inserisco PRIMA il cliente.
3. Mi sposto nella sottomaschera (prodotti).
4. Inserisco i prodotti associati a quel cliente.
5. E fin qui tutto funziona!
6. Mi sposto sul record successivo (clienti).
7. Inserisco PRIMA i prodotti e DOPO il cliente.
Ma cosa succede !!@#!#!!?
Quei prodotti inseriti non vengono associati al cliente che ho inserito in
un secondo momento.
Conclusioni:
Se inserisco prima il CLIENTE tutto OK!
Se casualmente inserisco Prima i prodotti e poi il relativo Cliente addios a
quei prodotti vaganti come fantasmi nella tabella prodotti.
Ringraziandovi anticipatamente della vostra pazienza, potete aiutarmi a
risolvere il problema? Perchè succede questo e come posso risolverlo?!
p.s.:....una bellissima estate a tutti voi!!!!!!!!!!


title: AIUTATEMI ! Dati "fantasma"

author: Ferdinando Landi

text:

Ciao,
Vedo che hai qualche problema di fondo sulla teoria del modello
relazionale.
Se inserisci prima i record molti (in questo caso i Prodotti) è normale
che manchi la chiave di collegamento al record 1 (in questo caso i
clienti) in quanto essendo ancora un record vuoto manca la chiave di
collegamento con i prodotti.
Quindi devi sempre prima inserire il record Clienti e quindi assegnare a
far assegnare (se è un campo contatore) l'id del cliente e poi inserire
i prodotti.
--
Ferdinando Landi       e-mail:
la...@mi.camcom.it


title: AIUTATEMI ! Dati "fantasma"

text:
Grazie mille !!
Ma quindi come posso evitare che l'utente inserisca erroneamente prima i
prodotti del cliente e poi il cliente stesso?
Ti ringrazio anticipatamente!!!


title: AIUTATEMI ! Dati "fantasma"

author: Paolo Aulisio

text:
Marco ha scritto:

puoi far visualizzare la maschera dei prodotti solo dopo che sia stato
inserito un il record cliente


title: AIUTATEMI ! Dati "fantasma"

text:
Marco wrote:
>
> Grazie mille !!
> Ma quindi come posso evitare che l'utente inserisca erroneamente prima i
> prodotti del cliente e poi il cliente stesso?
>
> Ti ringrazio anticipatamente!!!
Puoi definire il campo di collegamento tra Clienti e Prodotti nella
tabella Prodotti come Richiesto=Si e Consenti Lunghezza Zero=NO oppure
nascondere la maschera N fino a che non salvi il record 1.
Ciao.



title: AIUTATEMI ! Dati "fantasma"

author: Paolo Bolognesi

text:
Puoi scrivere, nelle proprietą della casella di inserimento dei dati, sulla
maschera, in visualizzazione costruzione, una condizione in VBA, oppure
associare una macro all'evento. Prima devi costruire la macro.
Paolo Bolognesi
kun...@telemar.it
Marco <
mik...@libero.it
> wrote in message
8_gk5.38496$dF5.7...@news.infostrada.it...



title: Evento su clic Maschere continue

author: garom

text:
Chiedo se l'evento su clic / maschere continue si può attivare da tastiera
senza usare il mouse (Access 97)
Ringrazio in anticipo e auguro a tutti buon Anno.
Gabriele
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Evento su clic Maschere continue

text:
"garom" <
garo...@virgilio.it
> wrote in message
news:dp33c9$ni3$
1...@news.newsland.it
> Chiedo se l'evento su clic / maschere continue si può attivare da tastiera
> senza usare il mouse (Access 97)
> Ringrazio in anticipo e auguro a tutti buon Anno.
> Gabriele
Mi pare di si, ma se provavi non facevi prima che chiedere...!!!
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Evento su clic Maschere continue

author: gaetano di zanni

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:5c4279a6add9aee3f1...@mygate.mailgate.org...
> "garom" <
garo...@virgilio.it
> wrote in message
> news:dp33c9$ni3$
1...@news.newsland.it
>
> > Chiedo se l'evento su clic / maschere continue si può attivare da
tastiera
> > senza usare il mouse (Access 97)
> > Ringrazio in anticipo e auguro a tutti buon Anno.
> > Gabriele
>
>
> Mi pare di si, ma se provavi non facevi prima che chiedere...!!!
>
> @Alex
ma ogni tanto vogliamo ricordarci di ringraziare Alex, che come tanti altri
di questo meravoglioso NG ci aiutano a risolvere i mille problemi che, da me
il primo, sottoponiamo?
Grazie ad Alex e a tutti i sostenitori di questo NG!
Buon Anno 2006.


title: Evento su clic Maschere continue

text:
[CUT]
> ma ogni tanto vogliamo ricordarci di ringraziare Alex, che come tanti altri
> di questo meravoglioso NG ci aiutano a risolvere i mille problemi che, da me
> il primo, sottoponiamo?
> Grazie ad Alex e a tutti i sostenitori di questo NG!
> Buon Anno 2006.
Buon anno anche a te.



title: Filtro composto

author: Rosario

text:
Salve a tutti.
Il mio problema è quello di creare una maschera per la ricerca di
informazioni all'interno di un database. La ricerca deve avvenire mediante
l'immissione di più condizioni all'interno di altrettante caselle combinate.
Un pulsante poi, tramite l'evento click, deve filtrare i records tenendo
conto delle informazioni immesse nelle caselle combinate tramite l'operatore
AND.
Ma come fare a dire ad Access 2000 di non considerare le caselle
eventualmente restate vuote? Altrimenti mi cercherebbe solo i records che
avessere quel campo vuoto e cioè nessuno.
Scusate la probabile ingenuità della mia domanda ma sono alle primissime
armi.
Sarei molto grato a chi mi volesse aiutare a muovere i primi passi.
Rosario Palumbo


title: Filtro composto

author: Esteban

text:
"Rosario" <
rosario...@libero.it
> wrote in message
news:UoKL6.20161$RX4.1...@news.infostrada.it...

Beh, devi costruire dinamicamente il RecordSource della maschera:
Function CreaFiltro()
    Dim Res As String
    Res = ""
    If Len([Forms]![Maschera1]![Controllo1]) > 0 Then
        Res = Res & " Campo1 = """ & [Forms]![Maschera1]![Controllo1] & """""
    End If
    If Len([Forms]![Maschera1]![Controllo2]) > 0 Then
        If Len(Res) > 0 Then
            Res = Res & " AND "
        End If
        Res = Res & " Campo2 = """ & [Forms]![Maschera1]![Controllo2] & """""
    End If
    If Len([Forms]![Maschera1]![Controllo3]) > 0 Then
        If Len(Res) > 0 Then
            Res = Res & " AND "
        End If
        Res = Res & " Campo3 = """ & [Forms]![Maschera1]![Controllo3] & """""
    End If
    If Len(Res) > 0 Then
        Res = " Where " & Res
    End If
    CreaFiltro = "Select * from Tabella1 " & Res
End Function
Beh, questa più o meno il codice che dovresti scrivere. Se hai dubbi riposta!
Ciao!
Esteban
Hosted by
www.seber.it


title: Filtro composto

author: Antonio Biso

text:
Esteban <
Est...@news.it
> wrote in message
giLL6.20243$RX4.1...@news.infostrada.it...
> "Rosario" <
rosario...@libero.it
> wrote in message
> news:UoKL6.20161$RX4.1...@news.infostrada.it...
> > Salve a tutti.
> > Il mio problema è quello di creare una maschera per la ricerca di
> > informazioni all'interno di un database. La ricerca deve avvenire
mediante
> > l'immissione di più condizioni all'interno di altrettante caselle
combinate.
> > Un pulsante poi, tramite l'evento click, deve filtrare i records tenendo
> > conto delle informazioni immesse nelle caselle combinate tramite
l'operatore
> > AND.
> > Ma come fare a dire ad Access 2000 di non considerare le caselle
> > eventualmente restate vuote? Altrimenti mi cercherebbe solo i records
che
> > avessere quel campo vuoto e cioè nessuno.
> > Scusate la probabile ingenuità della mia domanda ma sono alle primissime
> > armi.
> > Sarei molto grato a chi mi volesse aiutare a muovere i primi passi.
> > Rosario Palumbo
>
> Beh, devi costruire dinamicamente il RecordSource della maschera:
A parte il test via codice di esteban, puoi anche preparare una volta per
tutte la tua query scrivendo sotto i campi da filtrare un'espressione simile
a questa
like nz([forms]![tuaform]![tuocontrollo];"*")
Antonio


title: Filtro composto

text:
"Antonio Biso" <
ch...@etruria.net
> wrote in message
news:JxLL6.20276$RX4.1...@news.infostrada.it...

Wow! Da quando esiste questa funzione????
In ogni caso la scriverei così: like
nz([forms]![tuaform]![tuocontrollo];"""*""")
Comunque funziona bene se i campi sono campi di testo, mentre se sono numeri?
A questo punto si potrebbe fare la query bell'e finita come suggerisce Antonio,
ma scritta in questo modo:
Campo1 like nz([forms]![tuaform]![tuocontrollo1];Campo1) ' nel caso di una
stringa
Campo2 = nz([forms]![tuaform]![tuocontrollo2];Campo2) ' nel caso di un numero,
una data, un boolean, ecc.
In questo caso, se per esempio [forms]![tuaform]![tuocontrollo1] è null, allora
la query diventa Campo1 Like Campo1 che è sempre vero e quindi ritorna tutti i
record.



title: Filtro composto

text:
Grazie per l'aiuto, proverò e ti faccio sapere.
Ciao, Rosario.
"Esteban" <
Est...@news.it
> ha scritto nel messaggio
news:giLL6.20243$RX4.1...@news.infostrada.it...



title: Filtro composto

text:
Esteban <
Est...@news.it
> wrote in message
V_UL6.23912$RX4.1...@news.infostrada.it...
> > A parte il test via codice di esteban, puoi anche preparare una volta
per
> > tutte la tua query scrivendo sotto i campi da filtrare un'espressione
simile
> > a questa
> >
> > like nz([forms]![tuaform]![tuocontrollo];"*")
> >
> > Antonio
>
> Wow! Da quando esiste questa funzione????
Da sempre
>
> In ogni caso la scriverei cosě: like
> nz([forms]![tuaform]![tuocontrollo];"""*""")
No!
Cosě se stai scrivendo una stringa sql via codice. Se devi usarla in una
query, la devi mettere come ho scritto io nella riga criterio sotto il campo
desiderato. Chiaramente poi, se stai scrivendo codice in un evento della
maschera non hai neanche bisogno di scrivere il riferimento a forms ma
userai direttamente il nome del controllo
> Comunque funziona bene se i campi sono campi di testo, mentre se sono
numeri?
Funziona ugualmente perchč non si sta facendo un confronto come in un
criterio where via stringa quando bisogna mettere gli apici per le stringhe
e niente per i numeri.
La funzione nz testa se il valore passato č vuoto o nullo e se lo č passa il
valore alternativo, altrimenti il valore stesso.
Quindi lě č come se scrivessi
like
iif(vuoto([forms]![tuaform]![tuocontrollo]);"*";[forms]![tuaform]![tuocontro
llo])
che usando un comando if equivale a
if vuoto([forms]![tuaform]![tuocontrollo]) then
  like "*"
else
  like [forms]![tuaform]![tuocontrollo]
end if
> A questo punto si potrebbe fare la query bell'e finita come suggerisce
Antonio,
> ma scritta in questo modo:
>
> Campo1 like nz([forms]![tuaform]![tuocontrollo1];Campo1) ' nel caso di una
> stringa
> Campo2 = nz([forms]![tuaform]![tuocontrollo2];Campo2) ' nel caso di un
numero,
> una data, un boolean, ecc.
Stai facendo un po' di confusione(anche se l'esempio che hai fatto funziona
lo stesso). Il like funziona anche con i numeri, ci pensa a convertirli in
stringhe.
Tu ripeto ti confondi con i criteri tipo quello della dlookup
dlookup("campo","tab",[ID] = 5)
dlookup("campo","tab",[ID] = '5a')
E comunque io avevo proposto una soluzione che prevedeva la preparazione di
una query, non piů la preparazione di una stringa sql dinamica via codice
Antonio


title: Filtro composto

text:
"Antonio Biso" <
ch...@etruria.net
> wrote in message
news:t75M6.27151$RX4.1...@news.infostrada.it...

Ok, ok un po' di confusione l'ho fatta sicuramente: lavoro troppo con SQL!
Grazie per le info, ora ne so di piů anch'io!



title: manipolazione file da form

author: Akery

text:
Salve a tutti,

vorrei implementare la seguente funzionalità in una form:

- aprire esplora risorse
- selezionare il file
- copiarlo in un percorso predeterminato
- cancellare il file dal percorso di origine

quali comandi devo utilizzare?

Akery

--
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus


title: manipolazione file da form

text:
Il 15/07/2020 11:01, Akery ha scritto:
> Salve a tutti,
>
> vorrei implementare la seguente funzionalità in una form:
>
> - aprire esplora risorse
> - selezionare il file
> - copiarlo in un percorso predeterminato con nome predeterminato



title: manipolazione file da form

text:
1) FuleDialog, trovi mille esempi
https://docs.microsoft.com/en-us/office/vba/api/access.application.filedialog

2) CopyFile
https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/copyfile-method

3)KILL vedi la guida

@Alex


title: Pulsante destro del mouse

author: Paolo Mazzanti

text:
Mi chiedo se qualcuno mi può spiegare come è possibile con Access(XP)
collegare l'esecuzione di una funzione direttamente con il pulsante destro
del mouse.
Mi capita spesso di dovere fare dei calcoli sufficientemente complessi,
sulle base di un valore che mi compare in quel momento in un Control di una
Form, ove vorrei fare click col pulsante destro del mouse e scegliere il
tipo di funzione da eseguire all'istante.
Grazie per le risposte.
ciao
Paolo Mazzanti
ph...@mazzanti.it


title: Pulsante destro del mouse

author: Giovanni Menga

text:
Paolo Mazzanti <
photoTOGLIMI...@mazzanti.it
> wrote in message
10053969...@fusilla.abanet.it...

Potresti crearti un menu rapido e associare le doverse voci che puoi
inserire ad ogni funzione
Gio'.


title: Piccolo bug (?) su maschera con combo che filtra una casella di riepilogo: provate!

text:
Allora, fate questo test:
una maschera non legata, con dentro una casella di riepilogo, una combo e un
pulsante.
Il Pulsante deve servire per uscire dalla form, quindi ci mettete un
docmd.close
La combo deve pescare da una tabella una serie di valori univoci su un
campo, in quanto mi serve per filtrare la casella di riepilogo. Pertanto ci
sarà un raggruppamento su quel campo. Inoltre, su dopo aggiornamento della
combo, verrà messo una requery della casella di riepilogo
La casella di riepilogo deve restituire tutta la tabella di cui sopra, ma
con filtro il valore della combo, pertanto ci sarà come criterio sotto quel
campo [forms]![nomemaschera]![combo]
Funziona tutto perfettamente tranne in questo caso:
provate a scrivere nella combo una lettera che sia l'iniziale di uno dei
valori restituiti e sia di più di una lettera. Per esempio, se viene
restituito il valore pippo, inserite p. Vedete che, essendoci
l'autocompletamento la p non è evidenziata mentre il resto ippo rimane
evidenziato in nero. OK?
Se a questo punto, SENZA fare invio, cliccate il pulsante, il sistema vi da
un bel cippirimerlo, nel senso che vi chiede di inserire un parametro stile
query.
Questo perchè, prima avviene l'evento clic, e quindi la docmd.close e quindi
la maschera si chiude, quindi avviene il dopo aggiornamento della combo e
quindi viene lanciata la requery della casella di riepilogo, e a quel punto
la casella di riepilogo ha come origine riga una query in cui c'è il
riferimento alla combo, CHE NON ESISTE PIU perchè la maschera si è chiusa!!!
Per me è un bug comportamentale...
Ho provato un po' di escamotaggi per ovviare a questo problema, come il
forzamento su altri eventi della requery, ma non c'è stato nulla da fare, se
non delle scariche elettriche all'utente che preme il pulsante d'uscita
prima di fare invio sulla combo!
Idee?
Antonio
--
--
A: Because it messes up the order in which people normally read text.
Q: Why is top-posting such a bad thing?
A: Top-posting.
Q: What is the most annoying thing on usenet and in e-mail?


author: MA

text:
"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio
news:buqHd.11304$fs6.2...@twister2.libero.it...

Passala in una variabile globale.
MAssimiliano


author: Pablitomf

text:
Antonio Biso ha scritto:
> Per me è un bug comportamentale...
Per me no... anzi...
Visto che il valore della combo è di fatto il tuo "motore di filtro" per
la casella combinata, è ovvio che il sistema si aspetta che tu confermi la
scelta del dato "motore"... perchè secondo te dovrebbe essere il contrario?
Avendo l'autocompletamento, il dato potrebbe non essere quello che lui
visualizza prima della tua conferma (infatti tu potresti continuare a
scrivere e quindi a filtrare il contenuto della combo)... ecco perchè
aspetta te, prima di "fare".
> Ho provato un po' di escamotaggi per ovviare a questo problema,
Ma non è un problema, credimi...
> come il
> forzamento su altri eventi della requery, ma non c'è stato nulla da fare, se
> non delle scariche elettriche all'utente che preme il pulsante d'uscita
> prima di fare invio sulla combo!
> Idee?
Solo disabilitare il tasto prima di aggiornare la combo e di riabilitarlo
dopo aggiornamento.
> Antonio
> --
> --
> A: Because it messes up the order in which people normally read text.
> Q: Why is top-posting such a bad thing?
> A: Top-posting.
> Q: What is the most annoying thing on usenet and in e-mail?
--
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------
http://www.sitocomune.com/
http://www.accessgroup.it/
------------------------------
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Karl Donaubauer

text:
Antonio Biso wrote:
> ...
> Se a questo punto, SENZA fare invio, cliccate il pulsante, il sistema
> vi da un bel cippirimerlo, nel senso che vi chiede di inserire un
> parametro stile query.
> Questo perchè, prima avviene l'evento clic, e quindi la docmd.close e
> quindi la maschera si chiude, quindi avviene il dopo aggiornamento
> della combo e quindi viene lanciata la requery della casella di
> riepilogo, e a quel punto la casella di riepilogo ha come origine
> riga una query in cui c'è il riferimento alla combo, CHE NON ESISTE
> PIU perchè la maschera si è chiusa!!!
>
> Per me è un bug comportamentale...
> Ho provato un po' di escamotaggi per ovviare a questo problema, come
> il forzamento su altri eventi della requery, ma non c'è stato nulla
> da fare, se non delle scariche elettriche all'utente che preme il
> pulsante d'uscita prima di fare invio sulla combo!
>
> Idee?
La richiesta per il parametro mi sembra come il bug conosciuto:
http://support.microsoft.com/?kbid=811860
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1)


author: namor

text:
Antonio Biso ha scritto:


Potresti disabilitare il pulsante sull'evento change della combo, e
riabilitarlo su after_update, ma se l'utente chiude la form con la X ti
frega.
Namor
--
namor at inwind punto it



author: ALESSANDRO Baraldi

text:
Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio
news:buqHd.11304$fs6.2...@twister2.libero.it...> Allora, fate questo test:

La cosa accade appena prende il Focus il CommandButton
del Close e viene generata indipendentemente dall'azione CLOSE,
ovvio che è tale azione a provocare il problema in quanto la Form viene
chiusa
prima(in modo virtuale, non ha ancora concluso) e genera l'evento.
Io avrei risolto in questo modo non molto elegante, ma pare funzionale:
[ComandoChiudi]    è il Pulsante di chiusura
[ListElenco]            è la ListBox che si basa sulla Combo
Private Sub ComandoChiudi_Click()
   Me.ListElenco.RowSource = ""
   DoCmd.Close
End Sub
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------
"


author: sv

text:
Antonio Biso ha scritto:


> Idee?
> Antonio
Ciao Antonio.
Non sono riuscito a provocare l'errore. Il tuo esempio mi funziona
perfettamente senza andare in tilt.
Volevo soltanto fare notare, e correggimi se sbaglio, che quando passi
dalla combo al pulsante, in realtà gli eventi che si susseguono dovrebbero
essere per la combo:
KeyDown/KeyPress/Change/KeyUp/BeforeUpdate/AfterUpdate/Exit/LostFocus
e poi per il pulsante:
Enter/GotFocus.
In pratica prima del Click sul pulsante Access ha fatto scattare una serie
di eventi in cui, il Requery alla casella di riepilogo deve per forza
avvenire senza problemi di sorta.
--
rgrds
SC
--



text:
[CUT]
> Non sono riuscito a provocare l'errore. Il tuo esempio mi funziona
> perfettamente senza andare in tilt.
> Volevo soltanto fare notare, e correggimi se sbaglio, che quando passi
> dalla combo al pulsante, in realtà gli eventi che si susseguono dovrebbero
> essere per la combo:
>
> KeyDown/KeyPress/Change/KeyUp/BeforeUpdate/AfterUpdate/Exit/LostFocus
>
> e poi per il pulsante:
>
> Enter/GotFocus.
>
> In pratica prima del Click sul pulsante Access ha fatto scattare una serie
> di eventi in cui, il Requery alla casella di riepilogo deve per forza
> avvenire senza problemi di sorta.
>
> --
> rgrds
> SC
Se non metti il Docmd.Close su Click non vedi nulla..!!
Mettendo il Close, viene eseguito il comando Close ed anche il Requery, ma
a quel punto il riferimento della Query alla Form fallisce in quanto
dichiarata chiusa.
Roba da matti, ma pare essere così



text:
ALESSANDRO Baraldi ha scritto:
> [CUT]
> > Non sono riuscito a provocare l'errore. Il tuo esempio mi funziona
> > perfettamente senza andare in tilt.
> > Volevo soltanto fare notare, e correggimi se sbaglio, che quando passi
> > dalla combo al pulsante, in realtà gli eventi che si susseguono dovrebbero
> > essere per la combo:
> >
> > KeyDown/KeyPress/Change/KeyUp/BeforeUpdate/AfterUpdate/Exit/LostFocus
> >
> > e poi per il pulsante:
> >
> > Enter/GotFocus.
> >
> > In pratica prima del Click sul pulsante Access ha fatto scattare una serie
> > di eventi in cui, il Requery alla casella di riepilogo deve per forza
> > avvenire senza problemi di sorta.
> >
> > --
> > rgrds
> > SC
> Se non metti il Docmd.Close su Click non vedi nulla..!!
> Mettendo il Close, viene eseguito il comando Close ed anche il Requery, ma
> a quel punto il riferimento della Query alla Form fallisce in quanto
> dichiarata chiusa.
> Roba da matti, ma pare essere così
> Ciao
Ciao Alessandro.
Un momento io sotto l'evento Click del Pulsante ho inserito DoCmd.Close
con la gestione degli errori come da autocomposizione. Il requery l'ho
posto sull'evento AfterUpdate della combo e, ripeto, assolutamente non va
in tilt. Digito una lettera nella combo, si completa la stringa e senza
toccar nulla col mouse mi sposto sul pulsante e clicco. Vedo per un attimo
che la casella di riepilogo si popola e la maschera si chiude senza alcun
errore.
Non è così il test??
Comunque gli eventi son quelli..



text:
> Ciao Alessandro.
> Un momento io sotto l'evento Click del Pulsante ho inserito DoCmd.Close
> con la gestione degli errori come da autocomposizione. Il requery l'ho
> posto sull'evento AfterUpdate della combo e, ripeto, assolutamente non va
> in tilt. Digito una lettera nella combo, si completa la stringa e senza
> toccar nulla col mouse mi sposto sul pulsante e clicco. Vedo per un attimo
> che la casella di riepilogo si popola e la maschera si chiude senza alcun
> errore.
> Non è così il test??
> Comunque gli eventi son quelli..
>
> --
> rgrds
> SC
Si, ma nell' origine riga della ListBox la query deve avere nei criteri
[Forms]![NomeForm]![NomeCombo]
se è proprio così non saprei da me dà il problema di Antonio...!



text:
ALESSANDRO Baraldi ha scritto:
> > Ciao Alessandro.
> > Un momento io sotto l'evento Click del Pulsante ho inserito DoCmd.Close
> > con la gestione degli errori come da autocomposizione. Il requery l'ho
> > posto sull'evento AfterUpdate della combo e, ripeto, assolutamente non va
> > in tilt. Digito una lettera nella combo, si completa la stringa e senza
> > toccar nulla col mouse mi sposto sul pulsante e clicco. Vedo per un attimo
> > che la casella di riepilogo si popola e la maschera si chiude senza alcun
> > errore.
> > Non è così il test??
> > Comunque gli eventi son quelli..
> >
> > --
> > rgrds
> > SC
> Si, ma nell' origine riga della ListBox la query deve avere nei criteri
> [Forms]![NomeForm]![NomeCombo]
Confermo
Combo: query con Requery su AfterUpdate;
CasellaRiepilogo: query con parametro Forms!NomeForm!Combo;
Pulsante: DoCmd.Close su Click
> se è proprio così non saprei da me dà il problema di Antonio...!
> Ciao
--



author: Alessandro Baraldi

text:
"sv" <
sal...@nosp.accessgroup.it
> wrote in message
news:csmdlf$rac$
1...@news.newsland.it
[CUT]
Confermo
>
> Combo: query con Requery su AfterUpdate;
> CasellaRiepilogo: query con parametro Forms!NomeForm!Combo;
> Pulsante: DoCmd.Close su Click
>
> > se è proprio così non saprei da me dà il problema di Antonio...!
> > Ciao
> --
> rgrds
> SC
Non sò che dire.
@ALex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:X5rHd.5333$fq5....@news.edisontel.com...
>
> > Per me è un bug comportamentale...
> > Ho provato un po' di escamotaggi per ovviare a questo problema, come il
> > forzamento su altri eventi della requery, ma non c'è stato nulla da
fare,
> > se
> > non delle scariche elettriche all'utente che preme il pulsante d'uscita
> > prima di fare invio sulla combo!
> >
> > Idee?
> >
> > Antonio
> >
> >
> Passala in una variabile globale.
> MAssimiliano
Uhmmm...
Cioè dovrei salvarla nella variabile e poi mettere un criterio fatto da una
chiamata di funzione che restituisce quella variabile...
Mooolto sporca...
Antonio


text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio
news:cslhu6$3ue$1...@news.newsland.it...
> Antonio Biso ha scritto:
>
>
> > Per me č un bug comportamentale...
>
> Per me no... anzi...
> Visto che il valore della combo č di fatto il tuo "motore di filtro" per
> la casella combinata, č ovvio che il sistema si aspetta che tu confermi la
> scelta del dato "motore"... perchč secondo te dovrebbe essere il
contrario?
> Avendo l'autocompletamento, il dato potrebbe non essere quello che lui
> visualizza prima della tua conferma (infatti tu potresti continuare a
> scrivere e quindi a filtrare il contenuto della combo)... ecco perchč
> aspetta te, prima di "fare".
Che ragionando le cose filino, non ci piove...
E' che perň il sistema dovrebbe essere piů intelligente, tutto lě
> > Ho provato un po' di escamotaggi per ovviare a questo problema,
>
> Ma non č un problema, credimi...
E' brutta 'sta cosa che esce con la maschera chiusa, credimi...
> Solo disabilitare il tasto prima di aggiornare la combo e di riabilitarlo
> dopo aggiornamento.
C'ho delle maschere con piů di un filtro. Dovrei fare sta cosa ad ogni
getfocus dei controlli e al dopo aggiornamento. Non mi passerebbe piů!
Antonio


text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:cslu93$47l$1...@news.newsland.it...

Le mie maschere NON hanno la X, SNORT!
Comunque vedi obiezione fatta a Pablito
Antonio


text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:41eea7a0$0$8202$5fc...@news.tiscali.it...
>
> La cosa accade appena prende il Focus il CommandButton
> del Close e viene generata indipendentemente dall'azione CLOSE,
> ovvio che è tale azione a provocare il problema in quanto la Form viene
> chiusa
> prima(in modo virtuale, non ha ancora concluso) e genera l'evento.
>
> Io avrei risolto in questo modo non molto elegante, ma pare funzionale:
>
> [ComandoChiudi]    è il Pulsante di chiusura
> [ListElenco]            è la ListBox che si basa sulla Combo
>
> Private Sub ComandoChiudi_Click()
>    Me.ListElenco.RowSource = ""
>    DoCmd.Close
> End Sub
Sì, questa potrebbe essere la soluzione...
Grazie
Antonio


text:
"sv" <
sal...@nosp.accessgroup.it
> ha scritto nel messaggio
news:csmdlf$rac$1...@news.newsland.it...
> ALESSANDRO Baraldi ha scritto:
>
> > > Ciao Alessandro.
> > > Un momento io sotto l'evento Click del Pulsante ho inserito
DoCmd.Close
> > > con la gestione degli errori come da autocomposizione. Il requery l'ho
> > > posto sull'evento AfterUpdate della combo e, ripeto, assolutamente non
va
> > > in tilt. Digito una lettera nella combo, si completa la stringa e
senza
> > > toccar nulla col mouse mi sposto sul pulsante e clicco. Vedo per un
attimo
> > > che la casella di riepilogo si popola e la maschera si chiude senza
alcun
> > > errore.
> > > Non č cosě il test??
> > > Comunque gli eventi son quelli..
> > >
> > > --
> > > rgrds
> > > SC
>
> > Si, ma nell' origine riga della ListBox la query deve avere nei criteri
> > [Forms]![NomeForm]![NomeCombo]
>
> Confermo
>
> Combo: query con Requery su AfterUpdate;
> CasellaRiepilogo: query con parametro Forms!NomeForm!Combo;
> Pulsante: DoCmd.Close su Click
Non č possibile.
Lo vuoi il mio esempio, bello pronto in Access 97, 84 Kb ?
Antonio


text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:357558F...@individual.net...
> > Idee?
>
> La richiesta per il parametro mi sembra come il bug conosciuto:
>
http://support.microsoft.com/?kbid=811860
L'effetto è identico a quello che capita a me, ma non è lo stesso problema.
In effetti lì capita con XP, io NON uso XP (Burp)...
Grazie
Antonio


title: Unico report

author: Angelo

text:
Avendo tre tabelle non in relazione tra loro è possibile creare un unico
Report che visualizzi - secondo un ordine preciso (es. Tab1,Tab2,Tab3) - i
valori oggetto di stampa?
P.S. Ho provato con una query, ma il risultato è una moltiplicazione dei
campi delle rispettive tabelle!!
Angelo


title: Unico report

text:
"Angelo" <
ap...@inwind.it
> ha scritto nel messaggio
news:33vX9.88106$AA2.3...@news2.tin.it...

Vedi sintassi ed esempi della parola chiave SQL
UNION
Antonio


title: Unico report

author: gg

text:
"Angelo" <
ap...@inwind.it
> ha scritto nel messaggio
news:33vX9.88106$AA2.3...@news2.tin.it...

Qualla di creare tre sottoreport e poi inserirli nel corpo di uno nuovo
potrebbe essere un'altra soluzione?
che ne pensate.
gg


title: Accodamento di più tabelle

author: gro cl

text:
Salve a tutti, buongiorno!
non riesco ad uscire da un problema credo per voi semplice.
Ho una routine che importa qualche decina di file excel e fin li tutto ok, il problema e come fare ad accodare tutte le tabelle in una sola, che è già presente vuota ben db. Immaginino sia possibile ciclando le tabelle, ma in vba non riesco ad arrivare a soluzione.
Mi potete gentilmente dare una mano per favore ?
grazie e buona giornata
Claudio


title: Accodamento di più tabelle

text:
gro cl wrote:
> Ho una routine che importa qualche decina di file excel e fin li
> tutto ok, il problema e come fare ad accodare tutte le tabelle in una
> sola, che è già presente vuota ben db. Immaginino sia possibile
> ciclando le tabelle, ma in vba non riesco ad arrivare a soluzione.

Dipende come puoi individuare le tabelle importate.
Se p.e. si chiamono tblExcel1, tblExcel2, tblExcel3 ecc.
il codice potrebb'essere circa:

Dim db As DAO.Database
Dim tdf As DAO.TableDef

Set db = CurrentDb

For Each tdf In db.TableDefs
  If tdf.Name Like "tblExcel*" Then
    db.Execute "INSERT INTO TabDestinazione " & _
              " SELECT * FROM " & tdf.Name _
              , dbFailOnError
Next tdf

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


title: Accodamento di più tabelle

text:
> Dipende come puoi individuare le tabelle importate.
>
> Se p.e. si chiamono tblExcel1, tblExcel2, tblExcel3 ecc.
>
> il codice potrebb'essere circa:
>
>
>
> Dim db As DAO.Database
>
> Dim tdf As DAO.TableDef
>
>
>
> Set db = CurrentDb
>
>
>
> For Each tdf In db.TableDefs
>
>   If tdf.Name Like "tblExcel*" Then
>
>     db.Execute "INSERT INTO TabDestinazione " & _
>
>               " SELECT * FROM " & tdf.Name _
>
>               , dbFailOnError
>
> Next tdf
>
>
>
> --
>
> Ciao
>
> Karl
>
> *********
>
> Access FAQ:
www.donkarl.com/it

Ciao Karl e scusami per il ritardo ma ero fuori per lavoro (imprevisto) per diversi giorni.
Grazie davvero per la tua risposta che vedo di collaudare subito e che mi risolverebbe un grosso problema !
Ti auguro una buon WE :)


title: Accodamento di più tabelle


title: Accodamento di più tabelle

text:

Karl va tutto perfettamente, unica cosa la chiusura dell' IF nel ciclo For....Next da aggiungere e il lavoro lo fa egregiamente!
Grazie ancora :)


title: [NOVIZIO] Maschera. Da Northwind: NomeSocietà con relativi NomeProdotto

author: Michele

text:
Dal db di Nortwind.
---
Su una maschera ho:
una 'CasellaCombinata' associata al campo NomeSocieetà della tabella
Clienti
ed
una 'Casella di Riepilogo' che è vuota.
---
Vorrei che al variare del nome della società nella 'CasellaCombinata',
la 'Casella di Riepilogo' si popolasse
con il piccolo elenco dei prodotti
relativi alla società apparsa nel 'CasellaCombinata' che essa ha acquistato
(da prendersi ovviamente dala campo Prodotti.NomeProdotto).
---
Ho messo nel Origine del controllo della 'Casella di Riepilogo'
questo codice ottenuto con Genera espressioni:
SELECT [Prodotti]![NomeProdotto]
FROM prodotti
WHERE «Espr» [Prodotti]![IDProdotto] = [Dettagliordini]![IDProdotto]
AND [Dettagliordini]![IDOrdine] = [Ordini]![IDOrdine]
AND [Ordini]![IDCliente] = [Clienti]![IDCliente]
AND [Clienti]![NomeSocietà] = [CasellaCombinata1]
che non sortisce effetto.
Dopo un' ora di tentativi ho lasciato andare.
---
Qualcuno mi dice come si deve fare?
Michele


text:
Michele ha scritto:
> SELECT [Prodotti]![NomeProdotto]
> FROM prodotti
> WHERE «Espr» [Prodotti]![IDProdotto] = [Dettagliordini]![IDProdotto]
> AND [Dettagliordini]![IDOrdine] = [Ordini]![IDOrdine]
> AND [Ordini]![IDCliente] = [Clienti]![IDCliente]
> AND [Clienti]![NomeSocietà] = [CasellaCombinata1]
> che non sortisce effetto.
> Dopo un' ora di tentativi ho lasciato andare.
> ---
> Qualcuno mi dice come si deve fare?
> Michele
Co'è quell' <<Espr>> che ancora appare nell'istruzione SQL?
--
***********
NEMO2K
***********
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Roberto dalla campagna

text:
"Michele" <
Mic...@aaa.bb
> ha scritto nel messaggio
news:42cb29c4...@powernews.inwind.it...

A mio avviso ci sono un sacco di cose che non vanno.
Per prima cosa cosa è quel <<Espr>> che hai messo nella proposizione WHERE.
Poi nella WHERE puoi far riferimento solo a campi di tabelle o queries il
cui nome è indicato nella proposizione FROM: visto che nella tua SELECT la
FROM fa riferimento solo alla tabella prodotti, regolati di conseguenza.
Infine il codice SQL (qualsiasi essi sia) NON devi scriverlo nella origine
controllo della casella di riepilogo ma nella suo origine riga.
Inoltre non mi è per niente chiaro ciò che hai scritto nella proposizione
WHERE: forse è meglio se ci spieghi con più dovizia di particolari ciò che
ti serve, come realizzarlo lo vedremo insiame.
> Michele
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


author: TANNHAUSER

text:
Michele ha scritto:
Su una maschera ho:

> ---

> ---



> ---

> Michele
Indicativamente:
La tua Casella combinata prenderà i valori dalla tabella Clienti
attraverso una query, suppongo.
La tua Casella di riepilogo avrà come Tipo origine riga una Tabella/Query.
Non metterei nulla su Origine riga per il momento.
Creerei una query sulla Tabella prodotti: nei criteri del campo associato
al cliente scriverei:
Like ("*" & [Forms]![TuaForm]![NomeCasellaCombinata] & "*").
A questo punto sull'evento "Dopo Aggiornamento" della Casella combinata
inserirei il seguente codice:
Me.TuaCasellaRiepilogo.RowSource = "TuaQuery"
--
TANNHAUSER
"I've seen things you people wouldn't believe..."



text:
>
>A mio avviso ci sono un sacco di cose che non vanno.
>Per prima cosa cosa è quel <<Espr>> che hai messo nella proposizione WHERE.
>Poi nella WHERE puoi far riferimento solo a campi di tabelle o queries il
>cui nome è indicato nella proposizione FROM: visto che nella tua SELECT la
>FROM fa riferimento solo alla tabella prodotti, regolati di conseguenza.
>Infine il codice SQL (qualsiasi essi sia) NON devi scriverlo nella origine
>controllo della casella di riepilogo ma nella suo origine riga.
>Inoltre non mi è per niente chiaro ciò che hai scritto nella proposizione
>WHERE: forse è meglio se ci spieghi con più dovizia di particolari ciò che
>ti serve, come realizzarlo lo vedremo insiame.
>
Nella WHERE
visto che i NomeSocietà non sono direttamente relazionati ai Prodotti,
ma si deve passare attraverso due tabelle (Ordini e DettaglioOrdini)
che fanno da ponte,
con il generatore di espressioni ho pensato di ripercorrere all'indietro
con le uguaglianze degli ID di tabella in tabella (Da Prodotti fino a .....
Clienti)
la strada per assicurarmi, alla fine, la relazione  NomeProdotto  e
NomeSocietà (passando appunto per le tabelle ponte).
Questo voleva essere il significato di quello che ho fatto.
Perchè è spuntato <<Espr>> non lo so,  ho usato il generatore di
espressioni


text:
On Wed, 06 Jul 2005 08:32:30 +0200,
ne...@20kleagues.com
 (NEMO2K) wrote:
>Michele ha scritto:
>
>> SELECT [Prodotti]![NomeProdotto]
>> FROM prodotti
>> WHERE «Espr» [Prodotti]![IDProdotto] = [Dettagliordini]![IDProdotto]
>> AND [Dettagliordini]![IDOrdine] = [Ordini]![IDOrdine]
>> AND [Ordini]![IDCliente] = [Clienti]![IDCliente]
>> AND [Clienti]![NomeSocietà] = [CasellaCombinata1]
>
>> che non sortisce effetto.
>> Dopo un' ora di tentativi ho lasciato andare.
>
>> ---
>
>> Qualcuno mi dice come si deve fare?
>
>
>
>> Michele
>
>Co'è quell' <<Espr>> che ancora appare nell'istruzione SQL?
>
Come detto sopra è venuto fuori provando ad usare
il gen di espressioni (ovviamente ho premuto dove non dovevo premere);
facevo delle uguaglianze di ID... (vedi post precedente)


text:
>
>Indicativamente:
>
>La tua Casella combinata prenderà i valori dalla tabella Clienti
>attraverso una query, suppongo.
La casellacombinata l'ho popolata con Origine riga
dove ho messo
SELECT [Clienti].[NomeSocietà] FROM Clienti;
E' stata la via migliore?
In verità avevo provato con Origine controllo
con la query ottuta con il gen di espress che era risultata
[CasellaCombinata0] = [Clienti]![NomeSocietà]
ma non mi ha funzionato, perchè?
>La tua Casella di riepilogo avrà come Tipo origine riga una Tabella/Query.
>Non metterei nulla su Origine riga per il momento.
>Creerei una query sulla Tabella prodotti: nei criteri del campo associato
>al cliente scriverei:
>
>Like ("*" & [Forms]![TuaForm]![NomeCasellaCombinata] & "*").
>
>A questo punto sull'evento "Dopo Aggiornamento" della Casella combinata
>inserirei il seguente codice:
>
>Me.TuaCasellaRiepilogo.RowSource = "TuaQuery"
>
Ho fatto una Query (la ha fatta Access, cioè), essa è "Queri1" :
SELECT Prodotti.NomeProdotto, Dettagliordini.IDProdotto, Ordini.IDOrdine,
Clienti.IDCliente, Clienti.NomeSocietà
FROM Prodotti
INNER JOIN ((Clienti
INNER JOIN Dettagliordini ON Clienti.IDCliente = Dettagliordini.IDOrdine)
INNER JOIN Ordini ON (Ordini.IDOrdine = Dettagliordini.IDOrdine) AND
(Clienti.IDCliente = Ordini.IDCliente)) ON Prodotti.IDProdotto =
Dettagliordini.IDProdotto
WHERE (((Prodotti.NomeProdotto) Like
([Forms]!Maschera1![CasellaCombinata0])));
la ho lanciata nel DopoAggiornamento della CasellaCombinata con
Me.Elenco2.RowSource = "Queri1"
ma mi la casella di riepilogo non mi si popola.
Perche'?
----------------------
Ne ho provata anche qualcun'altra,
questa presa da una mia vecchia query di tre giorni fa, fatta per altri
scopi e ha sortito qualcosa, ma ora vedo troppi campi:
con la Casella di riepilogo messa a tre colonne
(per NomeSocietà, DataOrdine,NomeProdotto)
ho lanciato questa vecchia "vecchiaQueri" (che nacque in
automatico con Access)
SELECT [Clienti].[NomeSocietà], [Ordini].[DataOrdine],
[Prodotti].[NomeProdotto]
FROM Prodotti
INNER JOIN ((Clienti
INNER JOIN Ordini ON [Clienti].[IDCliente]=[Ordini].[IDCliente])
INNER JOIN Dettagliordini ON
[Ordini].[IDOrdine]=[Dettagliordini].[IDOrdine]) ON
[Prodotti].[IDProdotto]=[Dettagliordini].[IDProdotto]
WHERE ((([Clienti].[NomeSocietà])=[Forms]![Maschera1]!CasellaCombinata0))
nel DopoAggiornamento della CasellaCombinata così:
Me.Elenco2.RowSource = "vecchiaQuery"
Ora la Casella riepilogo è popolata, ma io vorrei vedere solo la colonna
(la terza) relativa al NomeProdotto, e non riesco a non far comparire le
prime due che non mi servono. Come faccio?


text:
Michele ha scritto:
> Ora la Casella riepilogo č popolata, ma io vorrei vedere solo la colonna
> (la terza) relativa al NomeProdotto, e non riesco a non far comparire le
> prime due che non mi servono. Come faccio?
Nelle proprietą della casella di riepilogo imposta a 0 la larghezza delle
colonne che non vuoi che appaiono (ad esempio, se la tua query restituisce
10 colonne e tu non vuoi vedere la 1, 2 e 8 imposta la larghezza a
0;0;x1;x2;x3;x4;x5;0;x6;x7 dove le x. sono le larghezze in cm delle
colonne che vuoi vedere).
--
***********
NEMO2K
***********



text:
"Michele" <
Mic...@aaa.bb
> ha scritto nel messaggio
news:42cc4ed4...@powernews.inwind.it...

Non è certo con il generatore di espressioni che si crea una query o il suo
codice SQL: se ti serve un aiuto per crare una query usa la griglia di
struttura. Resta il fatto che in una proposizione WHERE puoi fare
riferimento solo a campi contenuti in tabelle o queries richiamati nella
proposizione FROM.
>
>
>
> Perchè è spuntato <<Espr>> non lo so,  ho usato il generatore di
> espressioni
--



title: Cambio colore in casella di testo

author: Giuseppe Ranoia

text:
Ho provato a far cambiare colore al testo della casella di testo chiamata
txtSaldo, quando il valore contenuto (Valuta) č minore o uguale a zero il
codice č il seguente:
Private Sub txtSaldo_GotFocus()
If txtSaldo.Text <= 0 Then
    txtSaldo.ForeColor = 13209
    Else: txtSaldo.ForeColor = 0
End If
End Sub
Come mai non funziona (sono cotto!)?


title: Cambio colore in casella di testo

author: TIR

text:
"Giuseppe Ranoia" <
giusepp...@tiscalinet.it
> ha scritto nel messaggio
news:9pp7m3$jqu$1...@lacerta.tiscalinet.it...

Hai controllato che la proprietą evento "Su attivato" sia impostata a
[Routine evento] ?
Ciao TIR.


title: Cambio colore in casella di testo

text:
"TIR" <
fra...@tin.it
> ha scritto nel messaggio
news:XyVv7.14323$pm2.2...@news1.tin.it...

Si č tutto OK, ma continua a non funzionare.
Ma la routine č giusta?
Ciao, Gippe


title: Cambio colore in casella di testo

text:
"Giuseppe Ranoia" <
giusepp...@tiscalinet.it
> ha scritto nel messaggio
news:9ppal7$ks9$1...@lacerta.tiscalinet.it...
>
> "TIR" <
fra...@tin.it
> ha scritto nel messaggio
> news:XyVv7.14323$pm2.2...@news1.tin.it...
> >
> > "Giuseppe Ranoia" <
giusepp...@tiscalinet.it
> ha scritto nel
messaggio
> > news:9pp7m3$jqu$1...@lacerta.tiscalinet.it...
> > > Ho provato a far cambiare colore al testo della casella di testo
> chiamata
> > > txtSaldo, quando il valore contenuto (Valuta) è minore o uguale a zero
> il
> > > codice è il seguente:
> > >
> > > Private Sub txtSaldo_GotFocus()
> > > If txtSaldo.Text <= 0 Then
> > >     txtSaldo.ForeColor = 13209
> > >     Else: txtSaldo.ForeColor = 0
> > > End If
> > > End Sub
> > >
> > > Come mai non funziona (sono cotto!)?
> > >
> > >
> > >
> >
> > Hai controllato che la proprietà evento "Su attivato" sia impostata a
> > [Routine evento] ?
> >
> > Ciao TIR.
> >
> >
> Si è tutto OK, ma continua a non funzionare.
> Ma la routine è giusta?
> Ciao, Gippe
>
>
Il codice è corretto anche se puoi togliere il .text.
La casella però cambierà colore solo quando riceverà il focus e non
ricambierà colore finchè non riceverà di nuovo il focus ed il valore non
sarà positivo.
Se i dati provengono da una tabella con viene usare l'evento "Current" della
maschera per cambiare il colore alla casella di testo.
Ciao TIR.


title: Cambio colore in casella di testo

text:
"TIR" <
fra...@tin.it
> ha scritto nel messaggio
news:gkWv7.14442$pm2.2...@news1.tin.it...

Avevo pensato anche a questa soluzione ma a me serve quell'espediente dato
che il focus proviene da txtUscite (preceduto a sua volta da txtEntrate)...
penso che tu abbia capito. Quando lascio la txtUscite ho imposto un Refresh
cosicché il saldo è aggiornato nel record corrente e se fosse negativo mi
piacerebbe vederlo in rosso!
Ciao. Gippe.


title: Cambio colore in casella di testo

text:
"Giuseppe Ranoia" <
giusepp...@tiscalinet.it
> ha scritto nel messaggio
news:9ppc49$to5$1...@pegasus.tiscalinet.it...

Bisognerebbe vedere tutto il codice legato a questa maschera, perche la sub
è corretta ed applicata a delle caselle di testo funziona correttamente,
anche se il colore che hai impostato non è molto visibile.
Ciao TIR.


title: Cambio colore in casella di testo

text:
"TIR" <
fra...@tin.it
> ha scritto nel messaggio
news:PDWv7.14535$pm2.2...@news1.tin.it...

L'altra istruzione presente nel codice è la seguente:
Private Sub txtUscite_Exit(Cancel As Integer)
Me.Refresh
End Sub
Altro non compare.
Ciao. Gippe.


title: Cambio colore in casella di testo

text:
"Giuseppe Ranoia" <
giusepp...@tiscalinet.it
> ha scritto nel messaggio
news:9pp7m3$jqu$1...@lacerta.tiscalinet.it...

Informo quanti leggono la seguente che di colpo il codice funziona: misteri
della vita  o invece di Access ho una versione di A cess!


title: Cambio colore in casella di testo

author: Roberto dal portatile

text:
"Giuseppe Ranoia" <
giusepp...@tiscalinet.it
> ha scritto nel messaggio
news:9pp7m3$jqu$1...@lacerta.tiscalinet.it...

Prova a scrivere:
If txtSaldo <= 0 Then
Comunque io non risolverei il tuo problema scrivendo codice VBA, ma
impostando la proprietą Formato della tua casella di testo chiamata txtSaldo
a:
#.###; -#.###[Rosso]; "Zero"[Rosso]
Il testo sarą rosso e non mattone, perņ...
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Cambio colore in casella di testo

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:wdZv7.42371$0Y2.3...@news.infostrada.it...

Non mi č chiaro dove devo scrivere la suddetta espressione: mi dici, per
cortesia dove e come?
E se non ti rubo tempo, come mai č preferibile quest'altra via?


title: Cambio colore in casella di testo

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:wdZv7.42371$0Y2.3...@news.infostrada.it...
>
> "Giuseppe Ranoia" <
giusepp...@tiscalinet.it
> ha scritto nel messaggio
> news:9pp7m3$jqu$1...@lacerta.tiscalinet.it...
> > Ho provato a far cambiare colore al testo della casella di testo
chiamata
> > txtSaldo, quando il valore contenuto (Valuta) č minore o uguale a zero
il
> > codice č il seguente:
> >
> > Private Sub txtSaldo_GotFocus()
> > If txtSaldo.Text <= 0 Then
> >     txtSaldo.ForeColor = 13209
> >     Else: txtSaldo.ForeColor = 0
> > End If
> > End Sub
> >
> > Come mai non funziona (sono cotto!)?
> >
>
> Prova a scrivere:
>
> If txtSaldo <= 0 Then
>
> Comunque io non risolverei il tuo problema scrivendo codice VBA, ma
> impostando la proprietą Formato della tua casella di testo chiamata
txtSaldo
> a:
>
> #.###; -#.###[Rosso]; "Zero"[Rosso]
>
> Il testo sarą rosso e non mattone, perņ...
>
> --
> Roberto
>
Ho provato e funziona, ho sostituito anche "Zero" con "0" e va lo stesso.
Io avevo messo un altro giochino che puņ essere esaminato nel mio messaggio
dal titolo "Raffinatezza cercasi".
Con ansia attendo risposta.
Grazie


title: Cambio colore in casella di testo

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:wdZv7.42371$0Y2.3...@news.infostrada.it...
>
> "Giuseppe Ranoia" <
giusepp...@tiscalinet.it
> ha scritto nel messaggio
> news:9pp7m3$jqu$1...@lacerta.tiscalinet.it...
> > Ho provato a far cambiare colore al testo della casella di testo
chiamata
> > txtSaldo, quando il valore contenuto (Valuta) č minore o uguale a zero
il
> > codice č il seguente:
> >
> > Private Sub txtSaldo_GotFocus()
> > If txtSaldo.Text <= 0 Then
> >     txtSaldo.ForeColor = 13209
> >     Else: txtSaldo.ForeColor = 0
> > End If
> > End Sub
> >
> > Come mai non funziona (sono cotto!)?
> >
>
> Prova a scrivere:
>
> If txtSaldo <= 0 Then
>
> Comunque io non risolverei il tuo problema scrivendo codice VBA, ma
> impostando la proprietą Formato della tua casella di testo chiamata
txtSaldo
> a:
>
> #.###; -#.###[Rosso]; "Zero"[Rosso]
>
> Il testo sarą rosso e non mattone, perņ...
>
> --
> Roberto
Dimenticavo di aggiungere una cosa: ho perso la visualizzazione in Lire del
testo della casella txtSaldo!
Vorrei ripristinarla


title: Cambio colore in casella di testo

author: Salvatore

text:
"Giuseppe Ranoia" <
giusepp...@tiscalinet.it
> ha scritto nel messaggio
news:9ppgga$uuu$1...@pegasus.tiscalinet.it...

Seusi Access 2000 perchè non utilizzi la formattazione condizionale?
Ciao, Salvatore


title: Cambio colore in casella di testo

text:
"Salvatore" <
sal...@tiscalinet.it
> ha scritto nel messaggio
news:9pptub$ro2$1...@lacerta.tiscalinet.it...

Caro Salvatore, mi piacerebbe farlo: ma come si fa?
Comunque grazie!


title: Fine esecuzione di un batch

author: Thor

text:
Salute a tutti,
vorrei sapere come stabilire quando un batch file lanciato da access termina
la sua esecuzione per continuare il processo.
Si tratta di un prg che lancia un ftp e deve lavorare sui file trasferiti,
quindi è necessario capire quando sono disponibili.
Qualche suggerimento?
Grazie
SN


title: Fine esecuzione di un batch

author: AntoGal

text:
Thor <ste...@XXXXsctrade.it> wrote in message
DU7E4.32360$pn3.3...@news.infostrada.it...
> vorrei sapere come stabilire quando un batch file lanciato da access
termina
> la sua esecuzione per continuare il processo.
> Si tratta di un prg che lancia un ftp e deve lavorare sui file trasferiti,
> quindi è necessario capire quando sono disponibili.
cerca sul Sito Comune la funzione RunAppAndWait.
--
Ciao, AntoGal
*************************************************
Home Page (area programmatori di VolFtp)
http://volftp.mondadori.com/italiani/galletta/
per scaricare un gioco di DAMA ITALIANA
*************************************************


title: Fine esecuzione di un batch

author: Lorenzo Coronati

text:
Scrisse "Thor" <ste...@XXXXsctrade.it>:
>vorrei sapere come stabilire quando un batch file lanciato da access termina
>la sua esecuzione per continuare il processo.
Riporto dal sito comune:
Avviare un file eseguibile ed attenderne la fine. (95-97)
Fornitore: Antogal
'dichiarazioni
Private Declare Function OpenProcess Lib "kernel32" _
      (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
      ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" _
      (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32"_
      ByVal hObject As Long) As Long
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = &HFFFF
Public Sub RunAppAndWait(FileName As String, WindowsStyle As Integer)
   'Autore: AntoGal
   'avvia un'applicazione e sospende il thread chiamante finchè
   'il processo non termina
   'Accetta:
   ' FileName = nome del file eseguibile
   ' WindowsStyle = modalità di visualizzazione finestra
   ' (costante di Access, vedi la funzione Shell)
   Dim hProg As Long
   hProg = Shell(FileName, WindowsStyle)
   If hProg Then WaitOnProgram (hProg) 'chiama solo se tutto ok
End Sub
Private Sub WaitOnProgram(idProg As Long)
   'codice valido solo per Win32
   Dim hProc As Long, iret As Long
   hProc = OpenProcess(SYNCHRONIZE, False, idProg)
   If hProc <> vbNull Then
      iret = WaitForSingleObject(hProc, INFINITE)
      CloseHandle hProc
   End If
End Sub
'la routine si usa per esempio così:
RunAppAndWait "notepad.exe", vbNormalFocus
Nota: Se si richiama un file BAT, e si desidera che la finestra DOS
venga chiusa automaticamente, inserire il comando CLS come ultima riga
nel BAT.
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--


title: Fine esecuzione di un batch

author: riviera

text:
Scusate se mi intrometto , tutto bello ma non ci ho capito niente . Su che
tipo di file vengono scritte le righe a cui si riferisce Lorenzo (Antogal)
?? Sul .bat cosa ci si scriverebbe ??? forse chiedo troppo ma la verità è
che in effetti sto cercando di capire se è possibile lanciare una macro o
batch o VB (che
lancia più "queries" che eseguono le elaborazioni su un altro
DB sulla stessa macchina )  . La situazione più semplice sarebbe una query
sul
DB-A che però aggiorna dei campi sulla tabella del DB-B  in base a dei
criteri sulla stessa
macchina . .Come faccio a riferirmi ad un DB esterno al quale sto lavorando
??
Ci tengo a dire che sto ponendo la domanda a più riprese per avere il
maggior numero di informazioni , vi ringrazio , siete tutti molto competenti
.
Ciao