Newsgroup: it.comp.appl.access
Titolo: Richiesta assistenza per automatismo maschera - n.b. sono in difficoltà e ho scritto molto nel post -

Buongiorno,
visitando il sitocomune ho appreso dell'esistenza di questo Ng,
ho scaricato tutti i post e con piacevole scoperta ho appreso di trovarmi
nella valle dell'Eden!!!
Volevo sapere se per quanto riguarda le regole mi confermate che posso
basarmi su quanto scritto da Roberto da Casa nel suo post con oggetto:
Come ci si dovrebbe comportare in un newsgroup, ovvero 'Istruzioni per
l'uso' (g)
E' una doppia richiesta e in teoria sbaglio in partenza ... ma la prima
risposta è solo un si o un no ora invece Vi espongo il mio problema.
Da pochi giorni lavoro presso una nuova azienda, è presente tra i vari
software un DBase che raccoglie dati da due differenti gestionali e archivia
il tutto all'interno di una tabella la quale è utilizzata a scopo statistico
dal ns. commerciale.
Mi chiedevo se fosse possibile abilitare delle azioni automatiche nel
momento in cui nella maschera compare un nuovo record, tali azioni
potrebbero essere:
1. Stampa scheda informativa del record\utenza
2. Stampa grafico aggiornato
3. Invio mail di notifica
A livello di eventi dove mi suggerite di intervenire e soprattutto, posso
gestire da macro o è meglio utilizzare degli script?
Ho dato una lettura ai vari post ... ho notato un pò di discrepanze da parte
di alcuni utenti e sinceramente ho aumentato i miei dubbi ... non me ne
vogliano MC(BG) ... se sei di bergamo siamo compaesani ... mi sono
trasferito da poco da milano (n.d.r.!!!) e NeTuSeR ... a me gli eventi che
in teoria dovrebbero funzionare ... danno un 2 di pikke!!! Eppure ho degli
odbc dalle tabelle del database verso delle tabelle esterne, ho una query
che estrae da queste tabelle i dati e li colloca in accodamento in una
tabella precedentemente citata alla quale è collegata la maschera. L'unica
cosa che non avevamo era la possibilità di refresh query da maschera per far
comparire i nuovi dati senza doverla riavviare, per il resto invece ... come
noterete dalla valanga di cose scritte, mi sono alquanto impantanato!
strano...mavero
la vita è un dono prezioso, apprezzala per quello che potrà offrirti

 gestire da macro o è meglio utilizzare degli
script?
Meglio il codice per gestire le variabili, che in
questo caso possono essere tante.
ciao MAssimiliano


MAssimiliano, ahimè non sono così preparato, sinceramente non saprei come
fare per startare l'attività,
che faccio quindi?


 ha
scritto nel messaggio
news:c6l24f$un7$1...@lacerta.tiscalinet.it...

Creati una maschera che poggia sulla tabella
NumRecord che avrà un solo campo "TotaleRecord"
(intero) e inserisci il numero di record già
presenti.
Guarda sulla guida l'istruzione Timer.
Nelle proprietà della maschera, alla voce
Intervallo Timer inserisci il tempo che vuoi (in
millisecondi).
Poi vai sul rigo Timer, clicca i pulsanti di lato
e ti si aprirà un mondo.
Vai sull'help e cerca l'istruzione dcount.
Inizia così, quando ci sei fai un fischio.
MAssimiliano

 ha scritto nel messaggio
news:z5ojc.856$%x6....@news.edisontel.com...

ok ci provo, nel caso di bisognoe comunque vada ti aggiorno!
x ora grazie!
-- 


 ha scritto nel messaggio
news:z5ojc.856$%x6....@news.edisontel.com...

Per inserire il n° record presenti faccio una query di conteggio e aggiorno
il campo della tabella o hai una via + stabile da suggerirmi?
-- 



Noè proprio quella la strada. In relatà dovremmo
lavorare con il recordset, ma non so fino a che
punto mi seguiresti.
MAssimiliano


Hai ragione! Proviamo effettivamente a dimenticare le 3 esigenze e partiamo
da quella + importante:
Quando nella mia maschera (che filtra i dati da una tabella che a sua volta
ottiene i dati da una query che gli estrapola ta tabelle collegate in odbc)
compare un nuovo record a me piacerebbe che partisse la stampa del report
associata...questa idea x me libidinosa è nata leggendo appunto i post degli
utenti in precedenza citati ... ma non chiedetemi i copyright!!! Casomai
dovrò offrire una mangiata a MAssimiliano per la sua pazienza!

 ha
scritto nel messaggio
news:c6l5s3$7ph$1...@lacerta.tiscalinet.it...

Rimetto un pò di ordine su questo post, altrimenti
servirà solo a te e non al NG.
Il diverso subject spezzera l'albero del 3d e
quindi riparto da zero.
Creati una maschera che poggia sulla tabella
NumRecord che avrà un solo campo "TotaleRecord"
(intero) e inserisci il numero di record già
presenti.
Nelle proprietà della maschera, alla voce
Intervallo Timer inserisci il tempo che vuoi (in
millisecondi).
Su Form_Timer() .
dim pippo as integer
If dcount("[Tuocampo]","tuaTabella")>
me.TotaleRecord then
docmd.openreport "TuoReport"
end sub
Prova così
MAssimiliano

 ha scritto nel messaggio
news:N7pjc.867$%x6....@news.edisontel.com...

Private Sub Form_Timer()
Dim pippo As Integer
If dcount("[NUM_DOC]","ddtsped")>            >"NUM_DOC è ilnome campo della
tabella ddtsped
me.TotaleRecord then                                     >"mi da errore di
compilazione
DoCmd.OpenReport "Etichette Spedizione"    > nome report
End Sub
...mi sento un inetto!!!
-- 


 ha scritto nel messaggio
news:c6l7ks$cim$1...@lacerta.tiscalinet.it...

If dcount("[NUM_DOC]", "ddtsped") > Me.TotaleRecord Then
DoCmd.OpenReport "Etichette Spedizione"
Così gira ma:
La stampa parte in effetti ... il campo TotaleRecord della maschera
NumRecord che mi hai fatto implementare e nella quale nell'intervallo timer
gira il suscritto codice non si aggiorna e ad ogni intervallo timer mi sputa
la stampa precedentemente fatta .... mi ero allontanato un attimo e al mio
rientro ... una cinquantina di fogli stampati e prontamente riciclati al
contrario per i test al fine di evitare ... figuremmerda come dicono a
smackdown!!!!!!!!!
Dove pensi sia nascosto l'errore MAssimiliano?


C U T
Secondo te così aggiornato il codice della propietà timer della maschera
NumRecord può andare? :
Private Sub Form_Timer()
On Error GoTo fine:
Dim TotaleRecord As Integer
Dim conta As Integer
conta = 1
giro:
If dcount("[NUM_DOC]", "ddtsped") > Me.TotaleRecord Then
DoCmd.OpenReport "Etichette Spedizione"
If Me.NUM_COLLI = conta Then
GoTo fine
Else
conta = conta + 1
GoTo giro:
End If
fine:
End Sub


 ha scritto nel messaggio
news:c6l9il$g4d$1...@lacerta.tiscalinet.it...

Rispondo da solo NO!
Ritornando al tuo codice, funziona bene, ma stampa in loop e il campo
progressivo non si aggiorna.
Inoltre il n° delle copie della stampata dovrebbe equivalere ad un campo
della maschera ddsped chiamato num_colli ... sono incasinato vero?


> cut >
Ho capito il mio problema (almeno credo) ma non riesco a sistemarlo!
Private Sub Form_Timer()
Dim TotaleRecord As Integer
If dcount("[NUM_DOC]", "ddtsped") > Me.TotaleRecord Then
DoCmd.OpenReport "Etichette Spedizione"
End If
End Sub
Questa funzione gira sotto la maschera numrecord e quando ad ogni refresh
temporizzato rileva che il totale record della maschera ddtsped è superiore,
mi lancia la stampa, fantastico.
Il problema è che dopo che l'ha lanciata non so come fare a dire di settare
il valore di TotaleRecord della tabella NumRecord come il totale record dei
record in tabella ddtsped e rimanendo sempre inferiore, continua a stampare
(!!!) ... potete suggeririmi il codice appropriato? Non sono un
programmatore, ma presumo possa iniziare con:
set TotaleRecord = ("[NUM_DOC]","ddtsped") ... ovviamente non funziona e ...
abbiate un minimo di clemenza, sono alle prime armi!!!!!!! inoltre dove
sarebbe opportuno inserirlo? dopo la stringa DoCmd.OpenReport...?
-- 


 ha scritto nel messaggio
news:c6la7k$hcv$1...@lacerta.tiscalinet.it...

FATTO!!!!!!!!!!!
Ho usato questo codice legato al timer dellamaschera n° record:
Private Sub Form_Timer()
Dim TotaleRecord As Integer
If dcount("[NUM_DOC]", "ddtsped") > Me.TotaleRecord Then
On Error GoTo fine:
Dim conta As Integer
conta = 1
giro:
DoCmd.OpenReport "Etichette Spedizione"
If Forms!DDTSPED!NUM_COLLI = conta Then
GoTo fine
Else
conta = conta + 1
GoTo giro:
End If
fine:
Me![TotaleRecord] = dcount("[NUM_DOC]", "ddtsped")
End If
End Sub
Grazie di cuore per il tuo contributo, ora però posto una nuova richiesta!
