title: percorsi e runtime

author: BiBi

text:
On Fri, 11 Apr 2003 16:24:16 +0200, "Paolo"
<
p.alberaN...@pibergroup.it
> wrote:
>Salve ng
>
>piccolo quesito riguardante Access 2000 e relativo runtime
>
>premessa: uso poco access come ambiente completo di programmazione
>
>Domanda:
>Come faccio a cambiare il percorso di tabelle collegate su un pc che ha solo
>il runtime?
>
>Cioè io nel mio pc ho access 2000 completo e dovrei cambiare il percorso a
>delle tabelle collegate con uno non presente nel mio pc ma bensì sul pc di
>destinazione finale.
>
>Sono impossibilitato nell'indicare anche un percorso unc tipo
>\\nomeserver\nomecondivisione
>
>Ovviamente access non mi permette di inserire un percorso inesistente nella
>finestra di dialogo...
>
>Spero di essere stato chiaro....
>
>AIUTO!
Io solitamente faccio il link alle tabelle in una unità mappata in
locale (ad esempio Z:) e poi quando installo l'applicazione dal
cliente mi preoccupo di creare questa unita (sul PC locale o in rete
in base alle esigenze del cliente con i comandi "subst" o "net use")
senza dovermi preoccupare di modificare il collegamento alle tabelle.
Altrimenti dovresti creare una tabella con un campo flag che verifichi
all'avvio per fare eseguire la funzione di creazione link una sola
volta. Nella funzione dovrai prima eliminare i link presenti:
Dim t As TableDef
set dbs = Currentdb
For Each t In dbs.TableDefs
        If Left(
t.name
, 4) <> "MSys"  Then
                dbs.TableDefs.Delete
t.name
        End If
 Next
e poi creare i nuovi:
Set dbs = DBEngine.OpenDatabase(strPercorso)
For Each t In dbs.TableDefs
      if Left(
t.name
, 4) <> "MSys"  Then
	DoCmd.TransferDatabase acLink, "Microsoft Access", _
              strPercorso, acTable,
t.name
,
t.name
     end if
Next
Ciao BB


title: percorsi e runtime

author: Paolo

text:
Intanto grazie
> Io solitamente faccio il link alle tabelle in una unità mappata in
> locale (ad esempio Z:) e poi quando installo l'applicazione dal
> cliente mi preoccupo di creare questa unita (sul PC locale o in rete
> in base alle esigenze del cliente con i comandi "subst" o "net use")
> senza dovermi preoccupare di modificare il collegamento alle tabelle.
Si, alla fine anch'io dovrò fare così ma mi chiedevo se non ci fosse
qualcosa di +
"ufficiale" tipo specificazione di qualche flag all'avvio del db per poter
intervenire su queste
cosette.... perchè la cosa mi sembra molto strana, insomma se linko
x:\qualcosa sul mio pc e sul pc locale x:\qualcosaltro è già usato cosa
faccio?!?!?!?
>
> Altrimenti dovresti creare una tabella con un campo flag che verifichi
> all'avvio per fare eseguire la funzione di creazione link una sola
> volta. Nella funzione dovrai prima eliminare i link presenti:
>
> Dim t As TableDef
>
> set dbs = Currentdb
> For Each t In dbs.TableDefs
>         If Left(
t.name
, 4) <> "MSys"  Then
>                 dbs.TableDefs.Delete
t.name
>         End If
>  Next
>
> e poi creare i nuovi:
>
> Set dbs = DBEngine.OpenDatabase(strPercorso)
> For Each t In dbs.TableDefs
>       if Left(
t.name
, 4) <> "MSys"  Then
> DoCmd.TransferDatabase acLink, "Microsoft Access", _
>               strPercorso, acTable,
t.name
,
t.name
>      end if
> Next
scusa a quest'ora del pomeriggio e dopo il terremoto mattutino sono un po'
"tordo"
dove dovrei inserire questo codice?
grazie ancora!
Paolo


title: percorsi e runtime

text:


Dovresti creare una funzione pubblica (in un Modulo) che richiami
all'avivo del db (ad esempio nella macro Autoexec) dove controlli la
tabella che hai creato nel FE per verificare se si deve fare
l'aggiornamento dei link.
Ciao BB


title: query - sapere dove e' utilizzata

author: pfm

text:
salve

ho una applicazione abbastanza corposa.

ora devo modificare una maschera

come posso sapere dove e' utilizzata una determinata query sia nelle maschere, ma anche in query (query di query) e codice?

nel codice non ho problemi.

ma maschere e query come posso fare?

GRAZIE


title: query - sapere dove e' utilizzata

author: RobertoA

text:

Esporti l'intero progetto in tanti singoli oggetti come file txt
Poi cerchi dentro a quelli


title: query - sapere dove e' utilizzata

author: mantro

text:
Il 08/03/2018 10:55, pfm ha scritto:

Io uso A2010. Se può servirti:

1) Chiudi tutti gli oggetti (forms, queries ecc.)

2) Nella barra multifunzione seleziona la scheda 'Strumenti database'
---> 'Dipendenze oggetti'. Sulla dx dello schermo si apre la scheda
Dipendenze oggetti

3) Nel riquadro di spostamento seleziona l'oggetto che ti interessa.
Vedrai che in dipendenze oggetti appaiono sia gli oggetti dipendenti che
gli oggetti da cui dipende quello che hai selezionato.
Eventualmente premi il pulsantino 'aggiorna' in alto.

Spero sia quello che ti serve. Di più o di diverso io non saprei cosa dirti.

mantro


title: query - sapere dove e' utilizzata

text: Grazie provo


title: [OT] Che ne dite di VFP ?! (Visual Fox Pro)

author: spedysoft

text:
Opinioni in merito ?
Vorreri cimentarmi un po' con sto VFP...com'è ?


author: Sergio MAZZA

text:
"spedysoft" <
in...@spedysoft.com
> ha scritto nel messaggio
news:tlGJa.115632$lK4.3...@twister1.libero.it...
> Opinioni in merito ?
> Vorreri cimentarmi un po' con sto VFP...com'è ?
>
Sempre in modo superficiale, mi ha dato l'impressione di un VB incrociato al
DBaseIII. Comunque lo ritengo sempre una alternativa al VB...
Ciao.
--
Sergio MAZZA


title: Report e concatenamento dati

author: Saaaal

text:
Salve a tutti.
Come fareste a concatenare informazioni provenienti dalla parte "molti"
di una relazione e visualizzarla in un report?
Esempio:   QUERYDEMO
SETTCOMPET        COMPETENZA
hw                                fpga
hw                                dsp
sw                                c++
sw                                java
sw                                assembler
Nel report vorrei vedere:
hw        fpga; dsp
sw        c++; java; assembler
Grazie


title: Report e concatenamento dati

author: Paolo P

text:
"Saaaal" <
sric...@tin.it
> ha scritto nel messaggio
news:a6r4mk$r7m$1...@pegasus.tiscalinet.it...

Non so se ho capito bene...
Crea un report con l'autocomposizione e , molto semplicemente, otterrai ciň
che vuoi
Paolo


title: Report e concatenamento dati

author: Emyr

text:


fai una un report e raggruppi per settcompet
Saluti.
Emanuele.


title: Report e concatenamento dati

author: saal

text:
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:tv439uc6tju33etre...@4ax.com...

Scusatemi,  mi sono espresso male.
Vorrei riuscire a concatenare in una sola linea (o in una sola text box)
 per ogni settore di competenza.
Piů o meno cosě:
|hw |         |fpga; dsp|
|sw |         |c++; java; assembler|
Come fareste?
Grazie comunque.


title: Report e concatenamento dati

text:
On Fri, 15 Mar 2002 08:38:47 +0100, "saal" <
sric...@tin.it
> wrote:
>
>"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
>news:tv439uc6tju33etre...@4ax.com...
>> On Thu, 14 Mar 2002 22:39:18 +0100, "Saaaal" <
sric...@tin.it
> wrote:
>>
>> >Salve a tutti.
>> >Come fareste a concatenare informazioni provenienti dalla parte "molti"
>> >di una relazione e visualizzarla in un report?
>> >Esempio:   QUERYDEMO
>> >SETTCOMPET        COMPETENZA
>> >hw                                fpga
>> >hw                                dsp
>> >sw                                c++
>> >sw                                java
>> >sw                                assembler
>> >
>> >Nel report vorrei vedere:
>> >
>> >hw        fpga; dsp
>> >sw        c++; java; assembler
>> >
>> >Grazie
>>
>> fai una un report e raggruppi per settcompet
>> Saluti.
>> Emanuele.
>
>Scusatemi,  mi sono espresso male.
>Vorrei riuscire a concatenare in una sola linea (o in una sola text box)
> per ogni settore di competenza.
>
>Pių o meno cosė:
>|hw |         |fpga; dsp|
>|sw |         |c++; java; assembler|
>
>Come fareste?
>
>Grazie comunque.
>
>
>
so farlo solo da codice scorrendo e creando una tabella temporanea per
la stampa
Saluti.
Emanuele.


title: File txt

author: Giorgio

text:
Salve,
Ho una tabella contenente circa 500 records
Dovrei esportare ogni record della tabella in formato file testo cambiando
pero il nome del file testo per ogni records (magari usando la data e l'ora)
Esempio
27081045.txt
27081046.txt
27081047.txt .....
Grazie se qualcuno puň aiutarmi.
Ciao
Giorgio


title: File txt

text:
>Ho una tabella contenente circa 500 records
>Dovrei esportare ogni record della tabella in formato file testo cambiando
>pero il nome del file testo per ogni records (magari usando la data e
l'ora)
>Esempio
>27081045.txt
>27081046.txt
>27081047.txt .....
>Grazie se qualcuno può aiutarmi.
>Ciao Giorgio
Intanto occorre sapere cosa poi devi fare con i dati perchè ci sono almeno 2
modi veloci per salvare in un File.TXT
che però danno origine ad una formato differente.
A parte questo, il tuo problema è solo generare il nome del File, quindi
occorre lavorare con le Stringhe e comporre
il Nome=Str(Int(now()) & NomeCampo, poi esegui un ciclo che utilizzando Open
Nome as XXX (dipende dalla modalità)
Random o Output o Append(se devi accodare dati, ma non credo ti serva).
Il ciclo lo esegui con creandoti un RST con DAO
'************* Questo Genera i Nomi dei File e li mette in un Array
************
Dim arrayNomi() as String
Dim RST as Recordset
Dim x as integer
RST=Currentdb.OpenRecordset("NomeTabella o Query")
Do Until RST.EOF
    Redim Preserve arrayNomi(x)
    arrayNomi(x)=Str(Int(now()) & RST.Fields("Campo")
    RST.Movenext
    x=x+1
Loop
'****************************************************************
Poi per scriverli occorre sapere cosa devi fare, es:
Se hai N° campi forse ti conviene definire una Varibile così:
Type CampiFile
    Nome as String
    Cognome as String
    Indirizzo as String
    ecc.....
    ecc...
End Type
e quando leggi i dati dal RST li metti in un array CampiFile()
Poi utilizzi Open ArrayNomi(X) for Output as #1
Write #1, CampiFile.Nome, CampiFile.Cognome, ecc......
Forse ti ho confuso??? Scusa ma non sò a che livello di programmazione sei??
Alex...
>--------------------------------------------------------------------------<
Alessandro B.
E-Mail        ----->
ik2...@libero.it
Sito web    ----->
http://digilander.iol.it/ik2zok/
>--------------------------------------------------------------------------<
--
Posted from
mailrelay3.inwind.it
 [212.141.54.103]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: abbinare al tasto ESC una funzione

author: Giorgia

text:
Ciao a tutti,
vorrei che nella maschera A usando il tasto ESC, mi si aprisse la maschera
B.
Dove posso inserire questa funzione?
Grazie
--
Giorgia


title: abbinare al tasto ESC una funzione

author: Pablitomf

text:
"Giorgia" <
gio...@vitaletrasporti.com
> ha scritto nel messaggio
news:47b31aa6$0$37204$4faf...@reader3.news.tin.it...

Help - Macro autokeys
;-)
--
---
Ciao
Pablitomf (Maurizio Facciuti)
Web Master
www.accessgroup.it


title: abbinare al tasto ESC una funzione

author: geppo

text:

nelle proprieta' della form devi impostare "Anteprima tasti" a "SI" poi
sotto
l'evento KeyDown della form:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
   KeyCode = 0
   DoCmd.OpenForm "NomeMascheraB"
End If
End Sub
--
Ciao
Geppo


title: abbinare al tasto ESC una funzione

author: vedotondo

text:
"Giorgia" <
gio...@vitaletrasporti.com
> ha scritto nel messaggio
news:47b31aa6$0$37204$4faf...@reader3.news.tin.it...

Potresti mettere un pulsante e sull'evento click inserire:
        DoCmd.Close
        DoCmd.OpenForm "nomemascheradaaprire"
Saluti @ndrea


title: abbinare al tasto ESC una funzione

text:
"vedotondo" <
vedoto...@alice.it
> ha scritto nel messaggio
news:47b3796c$0$36440$4faf...@reader5.news.tin.it...

Grazie, avevo pensato anch'io al pulsante ma ci devi andare appositamente
con mouse o scorenndo con l'INVIO fino ad attivarlo, mentre usando per es il
tasto ESC in qualsiasi campo della form l'apertura della maschera B sarebbe
piů immediato
Grazie, proverň il suggerimento di Geppo.
Ciao
--
Giorgia


title: abbinare al tasto ESC una funzione

author: Massimo Piubelli

text:
Giorgia wrote:
> Grazie, avevo pensato anch'io al pulsante ma ci devi andare
> appositamente con mouse o scorenndo con l'INVIO fino ad attivarlo,
> mentre usando per es il tasto ESC in qualsiasi campo della form
> l'apertura della maschera B sarebbe più immediato
Penso che intendesse poi impostando la proprietà "Annulla" (scheda altro) del pulsante a Sì
>
> Ciao
Ciao,
Max


title: abbinare al tasto ESC una funzione

author: Franco

text:

Ci sono delle convenzioni in informatica, assai consolidate, che valgono per
quasi tutti i programmi; tra queste l'utilizzo di alcuni tasti, per cui il
tasto "Esc" è legato all'annullamento di un'operazione o alla chiusura di
una maschera, e il tasto "F1" richiama l'help di sistema. Per ottenere
quello che chiedi puoi seguire il suggerimento di Geppo, utilizzando però
uno qualsiasi degli altri tasti funzione, da F2 a F12.
Saluti
Franco
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Problema anteprima e stampa report

text:
Nel corpo di un report ho inserito una textbox "Articolo" non associata
con proprietà visible true. Poi ho inserito n.4 textbox associate
(gruppo;sottogruppo;formato;colore) con proprietà visible false.
Nell'evento SuStampa del corpo ho generato il seguente codice VBA:
Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
If Me.gruppo_new.Value = "" Then
    Me.Articolo.Value = ""
Else
    Me.Articolo.Value = [gruppo_new] & " " & "s/" & [sottogruppo_new] &
_
    " " & "
f.to
" & " " & [formato_new] & " " & [colore]
End If
End Sub
C'è qualcuno che può chiarirmi il perchè in Anteprima di stampa il
comportamento è corretto, mentre quando eseguo fisicamente la stampa,
sulla carta mi vengono comunque stampate "s/" ed "
f.to
" con
[gruppo_new]=""?
Grazie.


title: Problema anteprima e stampa report

author: Roberto dalla campagna

text:
<
mau...@ripaspa.it
> ha scritto nel messaggio
news:1121699232.0...@f14g2000cwb.googlegroups.com...

Se invece di eseguire i report in anteprima lo esegui direttamente in stampa
cosa succede?
Sei sicuro che devi verificare che gruppo_new debba contenere una stringa
vuota e non devi invece verificare che sia Null?
Nel dubbio io modificherei la prima riga di codice in:
If Nz(Me!gruppo_new, "") = "" Then
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Problema anteprima e stampa report

text:
Allora ho fatto le seguenti prove: se lancio la stampa direttamente, va
tutto bene.
Se invece inserisco la modifica che mi hai segnalato e mando l'output
di stampa in anteprima, non mi fa vedere in nessun caso il contenuto
della txtbox "Articolo".
Sarebbe meglio visualizzarlo in anteprima, ma anche così va bene.
Ciao e grazie


title: evidenziare informazione

author: Vita

text:
buongiorno a tutti
In una maschera ho inserito due campi
DATADISPONIBILITA'(campo data)
DUPLICATO(campo SI/NO)
il mio problema č:
Trattandosi di record diversi, ogni volta che inserisco il flag in
DUPLICATO sono costretta ad inserire anche la data che precedentemente
avevo inserito in DATADISPONIBILITA'.
C'č un modo che all'inserimento del flag mi evidenzi la stessa data nel
nuovo record
Grazie anticipatamente
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: evidenziare informazione

author: Shanty

text:
<C'è un modo che all'inserimento del flag mi evidenzi la stessa data
nel
<nuovo record
basta impostarlo sul valore predefinito del campo ...
<Grazie anticipatamente
Prego
Sha


title: calendario

author: italo palanza

text:
ho una maschera con 2 calendari ( quelli in activeX di access per
intenderci), come faccio che dopo l'inserimento di una data nel primo
calendario , nel secondo calendario mi parte dalla data inserita nel
primo calendario ma con un anno in piu ?!? ( es: 10/10/2000 =>
10/10/2001 )
e poi come faccio a visualizzare in una casella di testo solo l'anno
inserito nel primo calendario ?!? ( Es: 2000 )
grazie


title: calendario

text:
italo palanza ha scritto:

La funzione per aggiungere un anno alla tua data è:
DateAdd("yyyy", 1, me.tuadata)  da codice VBA
=DateAdd("yyyy"; 1; [tuadata])    da generatore di espressioni
La funzione per visualizzare solo l'anno è:
Year(Me.tuadata)  da codice VBA
=Year([tuadata])  da generatore di espressioni
Non ho idea di quale sia l'activeX in oggetto, devi arrangiarti a
mettere il codice sopracitato nel posto giusto (penso che l'activeX
abbia l'evento dopo aggiornamento).


title: calendario

author: sv

text:
italo palanza ha scritto:

> grazie
Il controllo calendario ha la proprietą Year che puoi sfruttare.
Se la Classe del controllo calendario che usi č la MSCAL.Calendar.7, e
supponendo due controlli chiamati
CtlActiveX0
CtlActiveX1

metterai nell'evento dopo aggiornamento del controllo CtlActiveX0
Private Sub CtlActiveX0_AfterUpdate()
Me.CtlActiveX1.Year = Me.CtlActiveX0.Year + 1
Me.Testo0= Me.CtlActiveX0.Year
End Sub
e "Su corrente" della maschera
Private Sub Form_Current()
Me.Testo2 = Me.CtlActiveX0.Year
End Sub
--
Sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: [3/5 OT] Che formato per simboletto IT CE.. stabilimento produzione

author: RobertoA

text:
Dopo aver cercato un po' dappertutto, disperato mi rivolgo qua, magari e'
gia' capitato a qualcuno
Devo inserire su alcune stampe il simboletto a forma ovale con dentro la
sigla  IT CE 123
Questo qua, quello sulla destra..
http://web.tiscali.it/montu/conosci/proetichette.htm
E' l'identificazione dello stabilimento di produzione per chi lavora con gli
alimentari
Esistono delle normative per la forma, font da usare, posizione delle
lettere per questo simbolo?
Ciao e grazie
RobertoA


author: LinoFornaro

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:4908194b$1...@newsgate.x-privat.org...

Io creerei il simbolo e il testo con Photoshop o programmi similari e lo
metterei, come immagine, nel report finale.
Lino Fornaro


text:
>> Dopo aver cercato un po' dappertutto, disperato mi rivolgo qua, magari e'
>> gia' capitato a qualcuno
>> Devo inserire su alcune stampe il simboletto a forma ovale con dentro la
>> sigla  IT CE 123
>> Questo qua, quello sulla destra..
>>
http://web.tiscali.it/montu/conosci/proetichette.htm
>> E' l'identificazione dello stabilimento di produzione per chi lavora con
>> gli alimentari
>> Esistono delle normative per la forma, font da usare, posizione delle
>> lettere per questo simbolo?
>> Ciao e grazie
>> RobertoA
>>
> Io creerei il simbolo e il testo con Photoshop o programmi similari e lo
> metterei, come immagine, nel report finale.
> Lino Fornaro
Anch'io
Il problema e' COME crearlo, con che dimensioni, che spessore linee, che
font, la posizione delle scritte possono essere in verticale o devono essere
in orizzonatale una dietro l'altra?
Mi servirebbe sapere se esiste della normativa specifica per la costruzione
di questo simbolo oppure qualche fonte ufficiale che dica "..fatevelo un po'
come vi pare..." o giu' di li
Ciao e grazie
RobertoA


text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:4908289c$1...@newsgate.x-privat.org...

Non so se esiste una normativa specifica ma se vuoi la stesso marchio te lo
posso fare io, dimmi solo come, e te lo rimando con posta elettronica.
Lino Fornaro


text:

Lo stesso marchio di cosa ?
Come fai a prenderne uno e dire "questo e' quello giusto" ?
Il problema non e' la realizzazione materiale del logo ma sapere come deve
essere costruito
E' sicuro che ci vuole l'ovale, il simbolo dell'Italia, im simbolo CE
(oppure CEE ???), ed il numero dello stabilimento
Ma come devono essere posizionati ?
Quanto grandi i caratteri?
Si mette IT oppure I per indicare l'Italia?
Si mette CE oppure CEE per indicare la Comunita Europea?
Che dimensioni deve avere l'ovale?
Ciao
RobertoA


text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:49083f50$1...@newsgate.x-privat.org...

Ti ho detto che non conosco la normativa pensavo ti servisse la costruzione
grafica, e per quello non c'è problema per il resto non lo so.
Ciao, Lino Fornaro.


author: Carlo Costarella

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:4908194b$1...@newsgate.x-privat.org...

Le normative ci sono, eccome.
A questo link puoi trovarnedi tutti i colori...sito molto complesso:
http://oami.europa.eu/ows/rw/pages/index.it.do
Questo č il tuo logo (pag.7):
http://www.regione.piemonte.it/governo/bollettino/abbonati/2005/07/attach/padano.pdf
Da quel poco che ho letto mi sembra che si tratta di un ovale che contiene
tre indicazioni: Stato, ID Stabilimento e C.E.E.
Per realizzarlo in Access credo tu debba usare un'immagine di un ovale dove
metterai, sopra, tre etichette di testo...
Ciao, Carlo


text:

Quello che cerco io e' un po' differente, vedi qua:
http://www.cirenaica.it/cee/cee.htm
il loghetto in alto a destra, ecco, quello devo riprodurre
Solo che non volevo farlo alla minchia selvaggia, ma cum forma normativaem
Purtroppo finora non so ancora se ci sono regole da seguire o se basta farlo
"..piu' o meno come quello.."
Ciao
RobertoA


author: AleC

text:
On 29 Ott, 22:40, "RobertoA" <
amoro...@tiscalinet.it
> wrote:
> > "RobertoA" <
amoro...@tiscalinet.it
> ha scritto nel messaggio
> >news:4908194b$1...@newsgate.x-privat.org...
> >> Dopo aver cercato un po' dappertutto, disperato mi rivolgo qua, magari e'
> >> gia' capitato a qualcuno
> >> Devo inserire su alcune stampe il simboletto a forma ovale con dentro la
> >> sigla  IT CE 123
> >> Questo qua, quello sulla destra..
> >>
http://web.tiscali.it/montu/conosci/proetichette.htm
> >> E' l'identificazione dello stabilimento di produzione per chi lavora con
> >> gli alimentari
> >> Esistono delle normative per la forma, font da usare, posizione delle
> >> lettere per questo simbolo?
> >> Ciao e grazie
> >> RobertoA
>
> > Le normative ci sono, eccome.
> > A questo link puoi trovarnedi tutti i colori...sito molto complesso:
> >
http://oami.europa.eu/ows/rw/pages/index.it.do
>
> > Questo è il tuo logo (pag.7):
> >
http://www.regione.piemonte.it/governo/bollettino/abbonati/2005/07/at.
..
>
> > Da quel poco che ho letto mi sembra che si tratta di un ovale che contiene
> > tre indicazioni: Stato, ID Stabilimento e C.E.E.
> > Per realizzarlo in Access credo tu debba usare un'immagine di un ovale
> > dove metterai, sopra, tre etichette di testo...
>
> Quello che cerco io e' un po' differente, vedi qua:
http://www.cirenaica.it/cee/cee.htm
> il loghetto in alto a destra, ecco, quello devo riprodurre
> Solo che non volevo farlo alla minchia selvaggia, ma cum forma normativaem
> Purtroppo finora non so ancora se ci sono regole da seguire o se basta farlo
> "..piu' o meno come quello.."
> Ciao
> RobertoA- Nascondi testo citato
>
> - Mostra testo citato -
Nella pagina del tuo link c'è scritto che la bollatura consegue al
decreto legislativo (vedi il numero) il quale è stato abrogato (fai
qualche ricerca su google) dal D.Lgs. 6 novembre 2007, n. 193 dove
all'art. 4 dice
4. Macellazioni d'urgenza al di fuori del macello.
1. Le carcasse, le mezzene, i quarti e le mezzene tagliate in massimo
tre parti, ottenute da macellazioni d'urgenza di ungulati domestici al
di fuori del macello, di cui all'allegato III, sezione I, capitolo VI
del regolamento (CE) n. 853/2004, devono recare un bollo sanitario di
forma rettangolare che misuri almeno 6 cm in larghezza e 4 cm in
altezza recante le seguenti indicazioni:
a) nella parte superiore l'indicazione dell'unità sanitaria locale nel
cui territorio si trova il macello in cui le carni, ottenute da
macellazione d'urgenza, vengono trasportate;
b) al centro la sigla MSU seguita dal numero d'identificazione del
macello;
c) nella parte inferiore il nome della regione o provincia autonoma
nel cui territorio si trova il macello.
2. Le carni ottenute dalle carcasse, dalle mezzene, dai quarti e dalle
mezzene tagliate in massimo tre parti di cui al comma 1, devono recare
un marchio d'identificazione di forma rettangolare che misuri almeno 6
cm in larghezza e 4 cm in altezza recante le seguenti indicazioni:
a) nella parte superiore l'indicazione dell'unità sanitaria locale nel
cui territorio si trova il macello in cui le carni, ottenute da
macellazione d'urgenza, vengono trasportate;
b) al centro la sigla MSU seguita dal numero d'identificazione del
macello;
c) nella parte inferiore il nome della regione o provincia autonoma
nel cui territorio si trova il macello
Questa invece è la norma abrogata:
[49. La bollatura sanitaria deve essere effettuata sotto la
sorveglianza del veterinario ufficiale. A tal fine quest'ultimo deve
controllare:
a) la bollatura sanitaria;
b) le etichette ed i materiali di confezionamento qualora questi
ultimi portino già il bollo previsto nel presente capitolo.
50. La bollatura sanitaria deve essere praticata:
a) a mezzo di un bollo di forma ovale, delle dimensioni di almeno 6,5
cm di larghezza e di 4,5 cm di altezza. Sul bollo devono figurare, in
caratteri perfettamente leggibili, le indicazioni seguenti:
- nella parte superiore, la sigla di identificazione del paese
speditore in lettere maiuscole, vale a dire:
B - DK - D - EL - E - F - IRL - I - L - NL - AT - P - FI - SE - UK
seguita dal numero di riconoscimento veterinario dello stabilimento;
- nella parte inferiore, una delle sigle CEE, EOF, EWG, EOK, EEC, EEG
ecc.
b) oppure a mezzo di un bollo di forma ovale, delle dimensioni di
almeno 6,5 cm di larghezza e di 4,5 cm di altezza. Sul bollo devono
figurare, in caratteri perfettamente leggibili, le indicazioni
seguenti:
- nella parte superiore, il nome del paese speditore a lettere
maiuscole; per le carni prodotte in Italia la scritta «Repubblica
Italiana»;
- al centro, il numero di riconoscimento veterinario dello
stabilimento;
- nella parte inferiore, una delle sigle CEE, EOF, EWG, EOK, EEC, EEG
ecc.
I caratteri a stampa devono avere un'altezza di almeno 0,8 cm per le
lettere e di almeno 1 cm per le cifre.
Le dimensioni e i caratteri a stampa del bollo possono essere ridotti
per la bollatura sanitaria degli agnelli, dei capretti e dei
suinetti.
La bollatura sanitaria può inoltre comportare un'indicazione che
permetta di identificare il veterinario che ha proceduto all'ispezione
sanitaria delle carni.
Dovrebbe essere questo quello che cerchi, ma siamo un bel po' OT !!!


text:
Dovrebbe essere questo quello che cerchi, ma siamo un bel po' OT !!!
--------------------
Si, difatti l'oggetto del 3d e' "[3/5 OT]..."  mica pe' gente
Ciao e grazie
RobertoA


title: creare query di articoli sostituiti

author: Bello Vito & C. s.r.l.

text:
Ho bisogno di creare da una tabella di articoli sostituiti una query con la
sequenza delle varie sostituzioni di un articolo.
La tabella è del seguente tipo:
Campo 1            Campo 2 (sostituito)
    A                       B
    ...                       ...
    B                       C
    ...                       ...
    C                       D
    ...                       ...
    D                       E
Cioe': B sostituisce A; C sostituisce B ... E sostituisce D
Nella query vorrei una rappresentazione del tipo:
Campo 1            Campo 2
    A                       B
    B                       C
    C                       D
    D                       E
Si puo' fare?


title: creare query di articoli sostituiti

author: Operatore

text:
Una piccola specificazione:
Sia che chieda A, B o C devo comunque avere:



title: query complessa mi aiutate? record che non ci sono in una tabella

text:
ho una tabella tabella1 con id, nome  e cognome
e un altra    tabella2    con idcomponente e presente o assente
dovrei avere la lista record della tabella 1 con i soli nomi e cognomi il
cui id non campare mai nella tabella
sapete come potrei fare?
ggrazie.


author: Cinzia

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:ck1k89$ppn$1...@lacerta.tiscalinet.it...

Ciao Simba883,
hai provato la creazione guidata Query ricerca dati non corrispondenti?
Nuova Query  -    creazione guidata Query ricerca dati non corrispondenti
Saluti
Cinzia


text:
> Ciao Simba883,
> hai provato la creazione guidata Query ricerca dati non corrispondenti?
> Nuova Query  -    creazione guidata Query ricerca dati non corrispondenti
> Saluti
> Cinzia
>
>
fantastico


title: Valori di una query in un modulo.

author: ThaiChi

text:
Salve a tutti,
ho creato una query di selezione su Access 2000 con raggruppamento per banca
e con la somma dei valori.
Devo fare una routine che mi vada ad inserire nella Tabella movimenti delle
banche un record per con il codice della banca ed il totale delle operazioni
fatte con quella banca preso dalla query.
Come posso fare per lanciare la query e prendere i valori totali che la
query mi restituisce dalla routine ???
Grazie anticipate!!!!
ThaiChi


title: Valori di una query in un modulo.

author: Roberto da casa

text:
"ThaiChi" <
011...@bigfoot.com
> ha scritto nel messaggio
news:a96biu$74g$1...@fe1.cs.interbusiness.it...

E' contro ogni regola memorizzare in un campo di una tabella di un database
relazionale un valore calcolato; ogni volta che ti serve quel valore puoi
calcolartelo con l'ausilio di una query e/o delle funzioni di aggregazioni
dui dominii (DSum, DCount, ... vedi help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Valori di una query in un modulo.

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:sxCt8.23600$m41.6...@twister2.libero.it...
>
> "ThaiChi" <
011...@bigfoot.com
> ha scritto nel messaggio
> news:a96biu$74g$1...@fe1.cs.interbusiness.it...
> > Salve a tutti,
> >
> > ho creato una query di selezione su Access 2000 con raggruppamento per
> banca
> > e con la somma dei valori.
> >
> > Devo fare una routine che mi vada ad inserire nella Tabella movimenti
> delle
> > banche un record per con il codice della banca ed il totale delle
> operazioni
> > fatte con quella banca preso dalla query.
> >
> > Come posso fare per lanciare la query e prendere i valori totali che la
> > query mi restituisce dalla routine ???
> >
> > Grazie anticipate!!!!
> >
> > ThaiChi
>
> E' contro ogni regola memorizzare in un campo di una tabella di un
database
> relazionale un valore calcolato; ogni volta che ti serve quel valore puoi
> calcolartelo con l'ausilio di una query e/o delle funzioni di aggregazioni
> dui dominii (DSum, DCount, ... vedi help).
>
> --
> Roberto
In questo caso la Tabella ContoCorrente è quella che mi gestisce tutti i
movimenti delle varie banche, questi movimenti dovranno essere controllati
con l'estratto conto delle banche.
Quando si ritirano dei documenti in banca, la banca effettua un solo
accredito/addebito relativo a tutti i documenti ritirati in una giornata,
per cui, sull'estratto conto avrò solo il totale, questo mi obbliga a fare
una registrazione unica per ogni banca (che in realtà sono due: una per il
movimento sul conto corrente ordinario in avere e l'altra per il movimento
del conto anticipi in dare).
Risolto questo, posso abbandonare definitivamente l'uso di foxpro e file
.dbf e creare database e tabelle native di access.
Grazie
ThaiChi


title: Valori di una query in un modulo.

text:
"ThaiChi" <
011...@bigfoot.com
> ha scritto nel messaggio
news:7VOt8.25252$SR5.6...@twister1.libero.it...
[CUT]
>
> In questo caso la Tabella ContoCorrente è quella che mi gestisce tutti i
> movimenti delle varie banche, questi movimenti dovranno essere controllati
> con l'estratto conto delle banche.
> Quando si ritirano dei documenti in banca, la banca effettua un solo
> accredito/addebito relativo a tutti i documenti ritirati in una giornata,
> per cui, sull'estratto conto avrò solo il totale, questo mi obbliga a fare
> una registrazione unica per ogni banca (che in realtà sono due: una per il
> movimento sul conto corrente ordinario in avere e l'altra per il movimento
> del conto anticipi in dare).
> Risolto questo, posso abbandonare definitivamente l'uso di foxpro e file
> .dbf e creare database e tabelle native di access.
>
> Grazie
> ThaiChi
Se la tua query di raggruppamento contiene già tutti i dati per creare i
nuovi record, trasforma la tua query da query di selezione in una query di
accodamento.
Se la query di raggruppamento non contiene invece tutti i dati per inserire
i nuovi record, creati una maschera che contiene solamente un pulsante di
comando; a fronte dell'evento "Su clic" del pulsante di comando genera una
routine in VBA che apre un recordset sulla tabella in cui vuoi inserire i
nuovi record: per popolare i campi dei nuovi record con i valori contenuti
nella query di raggruppamento usa la funzione di aggregazione sui dominii
DLookup, che naturalmente avrà come dominio la tua query di raggruppamento.



title: Valori di una query in un modulo.

author: Emyr

text:
On Fri, 12 Apr 2002 12:13:44 +0200, "ThaiChi" <
011...@bigfoot.com
>
wrote:

vedi openrecordset
Saluti.
Emanuele.


title: Casella di riepilogo

author: Stefano Pozzaglio

text:
Ciao,
ho una casella di riepilogo con selezione semplice (in una maschera) che
punta ad un elenco di centri.
Qual'è la procedura secondo la quale io posso eseguire una query su una
tabella dati che mi filtri solo i centri selezionati nella casella di
riepilogo?
Grazie


title: Casella di riepilogo

text:
"Stefano Pozzaglio" <
spozz...@mondoita.com
> ha scritto nel messaggio
news:b34k81$7vj$1...@fata.cs.interbusiness.it...

Se la maschera che contiene la casella di riepilogo si chiama Maschera1.
Se la casella di riepilogo si chiama Elenco.
Se la casella di riepilogo ha più di una colonna.
Imposta la proprietà Colonna associata della casella di riepilogo sulla
colonna che vuoi usare come parametro per il criterio di selezione della
query.
Nel criterio della tua query scrivi:
[Forms]![Maschera1]![Elenco]
Se l'origine record di Maschera1 è la query in questione, a fronte
dell'evento "Su clic" della casella di riepilogo genera la seguente riga di
codice VBA:
Me.Requery
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: MDW e MDA

author: Sandrobi

text:
Qualcuno può spiegarmi cosa sono i file MDW e MDA, come si creano e se
possono servire per proteggere maggiormente un MDE?
Grazie, Sandro


title: MDW e MDA

author: George

text:
"Sandrobi" <
sand...@libero.it
> ha scritto nel messaggio
news:bhwAa.35344$lK4.1...@twister1.libero.it...
> Qualcuno può spiegarmi cosa sono i file MDW e MDA, come si creano e se
> possono servire per proteggere maggiormente un MDE?
> Grazie, Sandro
>
>
I file mdw sono i file dei gruppi di lavoro.
In realtà quando usi Access ne usi implicitamente uno base, il System.mdw,
che contiene un unico user senza passwored: l'Administrator.
In esso sono stipati i dati di accesso degli utenti (user id, username e
password) che si accompagnano ai criteri di protezione del database.
Servono per definire i livelli di accesso agli oggetti del db (tabelle,
query, form, report, moduli di codice) da parte dei singoli utenti.
I file mda sono file di librerie. Di norma si usano per immagazzinare parti
di codice, maschere o report da richiamare da vari progetti, in modo da
limitare i disagi degli aggiornamenti. Non hanno relazione con il modello di
protezione di Access. Non direttamente quantomeno.
Ciao.


title: acquisto

author: Massimo

text:
Salve
Qual è il modo più economico per entrare in possesso di access full
(escludendo vie poco lecite),
nel senso: qual è il negoziante che lo vende a prezzo più basso
oppure: se acquisto un pc, la versione oem dà un efficace risparmio?
ciao


title: Come faccio un DB online con interfaccia web? e senza interfaccia web? ho tanti dubbi...

author: MarcoMax

text:
Salve
mi chiedevo come potrei realizzare un DB online con interfaccia di
consultazione/inserimento dati via web....
leggendo dei messaggi mi vien da pensare che ci sia da usare qualcosa
dipo SQL server, o mySQL, od un'altro programma che non ricordo....
ma sinceramente non ho la più pallida idea di che cosa facciano questi
programmi, di come funzionino, di quali strumenti mettano a
disposizione....
supponendo quindi che ho un DB creato con access, come faccio a
metterlo on-line?
ok, deve essere su un web server... ma li che programma è che mi
permette di renderlo on-line?e su quali piattaforme?
e l'interfaccia per l'utente finale come la faccio? dipende dal
programma che uso per mettere on-line il DB? oppure va fatta in
qualcosa tipo java/javascript/non-so-cosa?
le pagine ASP hanno qualcosa a che fare con tutto questo?
poi, cambiando leggermente argomento....
posso connettermi ad un DB remoto tramite internet?
ad esempio avere un'interfaccia client su PC locale, che quando sono
collegato ad internet mi permetta di interagire con il DB remoto?
e per avere il DB remoto che programma deve essere che lo usa e che
funziona da server?
ODBC centra qualcosa in tutto questo?
capperi quante domande.... perdonate la mia 'nioranza... :-)
grazie
ciao, Max


author: Maurizio Sordo

text:
Domanda 1:
Ok, sei la buona strada, ASP e la risposta, argomento abbastanza vasto da
essere discusso
qui. Se vuoi dai un occhiata a
www.aspitalia.com
 trovi tutto, in tutti i
casi non generare pagine asp
usando access potresti sentirti male.
Concettualmente la cosa funziona cosi: dato un web server , magari su NT con
IIS 4 o superiori (che è gratis), crei una connessione ODBC al tuo file mdb
e la chiami "miodb", prendi un bel editor di testo o frontpage e scrivi:
<%
    DSN = "miodb"
    set db = Server.CreateObject ("ADODB.Recordset")
    sql = "SELECT * FROM miatabella"
    tb.Open sql, dsn
   do until tb.EOF
             response.write tb("campo1")
             response.write tb("campo2")
             response.write tb("campoN")
            tb.movnext
    loop
%>
salvi il file, lo chiami prova.asp e poi lo apri con l'explorer  e vedrai
stampato il contenuto dei
tuoi campi . In pratica il principio consiste nel scrivere un'aplicazione
che gira sul lato server
e che genera una pagina "HTML" statica, semplice no! ma se fai generare
questo all'access
(esporta - asp) potresti vomitare, perchè per arrivare fin quà ci mette 3000
righe
In pratica non ti server nessun software specifico, a parte le licenze
dell'NT.
Domanda 2:
Ok, anche qui sei sulla strada giusta, ODBC con pero un database
Client/Server , questo
perche via internet tu hai a disposizione solo un rete TCP/IP quindi i dati
su computer remoti
li vedi solo sel il database in questione fornisce servizi di accesso in
quale porta TCP
Spero di essere stato chiaro


author: FaSer

text:
Il giorno Thu, 1 Jun 2000 20:15:06 +0200, "Maurizio Sordo"
<
maur...@seldatiservice.it
> scrisse:
>Domanda 2:
>Ok, anche qui sei sulla strada giusta, ODBC con pero un database
>Client/Server , questo
>perche via internet tu hai a disposizione solo un rete TCP/IP quindi i dati
>su computer remoti
>li vedi solo sel il database in questione fornisce servizi di accesso in
>quale porta TCP
>
>Spero di essere stato chiaro
Wow forse ho trovato quello che mi risponde.
Access o meglio JET fornisce questo accesso ?
Posso costruire un'applicazione Client/Server con access in FE e un
file .mbd su un server internet  a cui posso accedere o in FTP o in
ODBC ?
Ormai ho scavato a fondo e so già che la risposta è no...però non si
sa mai.
Questa domanda tormentone l'avevo già fatta qui con qualche dettaglio
in più:
Message-ID: <FzssOTA2dW=4+dXUqBvFD=
DI3...@4ax.com
>
Ciao.
P.s: complimenti per le risposte, non so perchè ma mi pare che nel
campo client/server, sincronizzazione e repliche non  siano in molti
che ci capiscono qualcosa. Qualche buon libro da consigliare ?
Fabio Serra
***********
Per rispondere in e-mail cancella "the." e sostituisci
"whitehouse" con "faser".
***********


text:
Cercherò di rispondere ad entrambi.
Se utilizzate il JET di microsoft di fatto si sta parlando di canali ODBC e
non specificatamente di TCP/IP, perchè su NT , tramite le ADODB, avviene
l'accesso ai dati tipo client server. In realtà il database non è e continua
a non essere client server, è solo che Windows si prende carico del processo
di elaborazione, questo fa si che il mdb deve stare necessariamente sulla
stessa macchina. In caso di database Client/Server, il database può
risiedere su una qualunque macchina della rete, indipendentemente dal
sistema operativo, ad esempio in una mia installazione uso due macchine, su
una ho NT con IIS4 , e su l'altra ho RedHat Linux 6.1 con DBMaker 3.6, in
questo caso via ODBC attivo il client di DBMaker che passa le query al DB su
linux e aspetta i risultati, quindi il carico di lavoro è distribuito su due
macchine, in questo caso sto utilizzando servizi TCP/IP nel senso che il
client di DBMaker parla con il server tramite una porta specifica, ad
esempio la 1025 ma il numero a questo punto è del tutto indifferente (quì mi
fermo altrimenti ci troviamo a parlare di reti)
Quindi rispondendo alla domanda "se si puo utilizzare access vi FTP" , la
risposta è no perche access non essendo client server, funziona in rete
utilizzando la condivisione di file e di dischi microsoft e per questo deve
gestire i lock scrivendoli nel file .ldb dove tutti i PC collegati accedono
per controllare e variare lo stato... e per logica  via ftp (dove posso solo
fare get e put ESCLUSIVI)
come gestirei i lock ???  ma questo è solo uno dei problemi...
Se sul tuo server internet installi un database Client Server (SQL Server o
DBMaker etc.) allora puoi accedervi usando il suo client e dicendogli che
l'iindirizzo e quello internet e che la porta e quella che hai scelto.... ma
hai presente cosa sono gli Hacker??, allora per leggere i dati non potresti
usar ODBC perchè fa passare i dati in chiaro ma Corba con JDBC e quindi
dovresti scrivere in Java...
Mi fermo quì perchè l'argomento è interminabile... e rischio che quando ho
finito si cambiato qualcosa..


text:
"Maurizio Sordo" <
maur...@seldatiservice.it
> ha scritto:
[CUUUUUUUUUUUT]
>Mi fermo quì perchè l'argomento è interminabile... e rischio che quando ho
>finito si cambiato qualcosa..
miiii inizio a capire qualcosina.... grazie :-)
c'è mica qualche buon libro sull'argomento?
ciao, max


text:
trovi tutto su
www.aspitailia.com


title: confronto su campo date

author: IvanDaBologna

text:
in un DB ho dei campi di tipo data dove i valori vengono raccolti tramite Now().
Mi sono dovuto arrendere davanti al confronto di queste date rispetto al solo giorno.
E' possibile azzerare la parte 'oraria' della data per restituire un giorno del tipo : 12/10/2012 per tutte le date del 12/10/2012 ?

grz per ogni lume


title: confronto su campo date

text:

Invece di now() prova con Date() e poi fai il confronto
Saluti
M7a1x


title: confronto su campo date

author: Karl Donaubauer

text:

http://www.donkarl.com/it?FAQ3.13

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


title: confronto su campo date

text:

purtroppo stanno raccogliendo dati in questa maniera da 5 anni almeno ....

adesso provo se riesco a utilizzare qualche metodo tipo ROUND() sulle date.

grz  Ivan


title: confronto su campo date

text:
anzi ... trovo ottimo il suggerimento di Karl su come impostare il filtro:

>= "#" & Format(giorno;"MM/DD/YYYY") & "#" And < "#" & Format(giorno + 1;"MM/DD/YYYY") & "#"

grazie a tutti Ivan


title: confronto su campo date

author: Marco Pizzamiglio

text:
IvanDaBologna ha scritto:

Visto che i campi data memorizzano i giorni nella parte intera e le ore
nei
decimali ti basta un semplice Int([campo]) per estrarre la data senza ora.
Ciao.
-Marco-

--

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


title: confronto su campo date

text:
[..]
> Visto che i campi data memorizzano i giorni nella parte intera e le ore
>
> nei
>
> decimali ti basta un semplice Int([campo]) per estrarre la data senza ora.
>
> Ciao.
>
> -Marco-
>

oops ! allora provo ad aggiornare tutti i valori in tabella !!!

grazie


title: confronto su campo date

text:
[..]
>
> > -Marco-
>
> >
>
>
>
> oops ! allora provo ad aggiornare tutti i valori in tabella !!!
>
>
>
> grazie

inoltre ho modificato tutte le occorrenze nel codice sostituendo :

dataUltimaModifica = Now()

con

dataUltimaModifica = Int(Now())

e adesso tutte le date sono 'spaccate' alle ore 0:00:00.

grazie a tutti


title: Creare dns utente

author: Carlo D.

text:
ho la necesstità di creare un dns utente (ODBC) per un database access,
la domanda
come si crea uno script per creare un dns utente?
in poche parole, quando faccio l'installazione del software vorrei creare
automaticamente in DNS utente.
Grazie
Carlo


title: Creare dns utente

author: ALESSANDRO Baraldi

text:
"Carlo D." <
carlo....@dblan.it
> ha scritto nel messaggio
news:1_ukd.152337$b5.75...@news3.tin.it...

Sei sicuro che sia NECESSARIO un DNS...?
Acess supporta connessioni DNS_LESS, vedi la corretta
composizione della Connection String.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Creare dns utente

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:cmu0sq$m0t$1...@lacerta.tiscalinet.it...

scusa ma sono all'inizio con access e non capisco cosa intendi con dns_less
connection string ??


title: Creare dns utente

author: Alessandro Baraldi

text:
"Carlo D." <
carlo....@dblan.it
> wrote in message
news:g8xkd.304922$
35.13...@news4.tin.it
[CUT]
> scusa ma sono all'inizio con access e non capisco cosa intendi con dns_less
> connection string ??
Ho dato per scontato che la necessità di avere un DNS fosse
inteso per la connessione Tabelle o l'estrazione Recordset.
Detto ciò è possibile effettuare un Link delle Tabelle passando
una stringa di connessione che non necessita di DNS, ma nella
quale devi inserire le coordinate del Server ecc....!
Le modalità(la stringa relativa) sono differenti a seconda
del Server usato piuttosto che del tipo di Oggetto al quale
ti appoggi: ADO o DAO ecc...!
Sul sito sotto nella sezione Tabelle trovi sia le Routine per
Collegare Tabelle che il modo di costruzione delle stringhe di
Connessione più usate.
http://www.mantuanet.it/alessandro.baraldi/
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Creare dns utente

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:e6f71474fe64b8828b...@mygate.mailgate.org...

ti ringrazio, ora vado a dare un'occhiata.
carlo


title: cambiare puntatore del mouse da codice...Ho trovato se interessa...

author: Lindbergh

text:
Tempo fa avevo postato questo quesito ma nessuno mi aveva risposto...
ovviamente non ho mai capito se era perche' nessuno lo sapeva o se a nessuno
interessava :-)
Comunque ho trovato la solution....fatta da un programmatore  amerrecano..se
vi interessa fatemelo sapere...
"Lindbergh" <
lind...@libero.it
> ha scritto nel messaggio
news:<hQZF6.1125$
sb5.1...@news.infostrada.it
>...
> Avrei un problemuccio..uccio..uccio
> Mi servirebbe che all'azione su MouseMove su un controllo il puntatore
> assumesse l'aspetto della manina di Internet.
> Per dire la verità è una cosa che ottengo già mettendo nelle propietà del
> controllo il riferimento alla maschera stessa come "sottoindirizzo
> collegamento ipertestuale".
> IL problema è che con questo metodo appare sempre un testo(tipo
descrizione
> controllo) quando si va sul controllo stesso....ed è fastidioso perchè
appare la
  classica riga gialla che da' il nome della maschera....
> Vorrei evitare proprio questo!!!!
> Qualcuno conosce un metodo per modificare l'icona del puntatore
sull'evento Mouse spostato?????
> (ho già provato Docmd.hourglass...ma appare appunto la clessidra)
> Grazie in Advance a tutti.
> Eddie


author: Silvio Berruti

text:
"Lindbergh" <
lind...@libero.it
> ha scritto nel messaggio
news:kdYH6.90$s.4...@news.infostrada.it...
> Tempo fa avevo postato questo quesito ma nessuno mi aveva risposto...
> ovviamente non ho mai capito se era perche' nessuno lo sapeva o se a
nessuno
> interessava :-)
> Comunque ho trovato la solution....fatta da un programmatore
amerrecano..se
> vi interessa fatemelo sapere...
A qualcuno interessa senz'altro, tu postalo.
Anzi, prepara una FAQ sull'argomento, riportando oltre al codice trovato,
anche l'autore e invialo alla Sacra Triade (indirizzo sul SC) per farlo
pubblicare sul SC.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


author: Simone Calligaris

text:
"Lindbergh" <
lind...@libero.it
> ha scritto nel messaggio
news:kdYH6.90$s.4...@news.infostrada.it...
> Tempo fa avevo postato questo quesito ma nessuno mi aveva risposto...
> ovviamente non ho mai capito se era perche' nessuno lo sapeva o se a
nessuno
> interessava :-)
> Comunque ho trovato la solution....fatta da un programmatore
amerrecano..se
> vi interessa fatemelo sapere...
In realtà sul sito comune c'è già un esempio di personalizzazione del
puntatore del mouse: si trova in un visualizzatore d'immagini nella sezione
FAQ.
Ciao, Simone


text:
"Simone Calligaris" <
simo...@libero.it
> ha scritto nel messaggio
news:zDaI6.5753$eJ6.2...@news.infostrada.it...

In effetti c'è gia' anche se ben nascosto...credo che seguiro' il consiglio
di Silvio.Faro' una faq e la mandero' alla Triade.Poi vedranno loro.
Grazie
Ciao


title: Export della definizione di una tabella

author: Pisinho

text:
Salve,
so che è possibile esportare la definizione delle tabelle in un file di
testo tramite le istruzioni:
For Each td In db.TableDefs
If Left(td.Name, 4) <> "MSys" Then
DoCmd.TransferText acExportDelim, ,td.Name, sExportLocation & "Table_" &
td.Name & ".txt", True
End If
Next td
Ho provato ma senza esito positivo, mi da errore dicendo che il separatore
di campo corrisponde al separatore decimale o al delimitatore di testo.
Ho provato anche ad aggiungere ";" o ":" o "|" ma senza risultato....
Dove sbaglio, oppure, c'è un altro metodo per avere su file la definizione
della tabella ?
Altra domanda, si può avere anche se la tabella è collegata ?
Grazie mille.


title: Export della definizione di una tabella

author: MA

text:
"Pisinho"  ha scritto nel messaggio news:4da4...@news.x-privat.org...






Grazie mille.
_______________Risposta:
Su AccessGroup.it c'è un esempio
MA


title: Export della definizione di una tabella

text:
>
> Altra domanda, si può avere anche se la tabella è collegata ?
>
> Grazie mille.
> _______________Risposta:
> Su AccessGroup.it c'è un esempio
> MA
>
Grazie MA, non riesco a trovarlo, mi sai dire in quale sezione guardare ?
Thanks


title: Export della definizione di una tabella

text:
"Pisinho"  ha scritto nel messaggio news:4da44d34$1...@news.x-privat.org...


Thanks
__________Risposta:
Pisi, anche io non lo ricordavo e l'ho cercato...
se vuoi quando finisci in ufficio, vengo a fare un pò di pulizie...
http://lnx.accessgroup.it/community/vba/elenco-delle-tabelle-e-campi-del-db.html
MA


title: Export della definizione di una tabella

text:
>
> Grazie MA, non riesco a trovarlo, mi sai dire in quale sezione guardare ?
>
> Thanks
> __________Risposta:
> Pisi, anche io non lo ricordavo e l'ho cercato...
> se vuoi quando finisci in ufficio, vengo a fare un pò di pulizie...
>
http://lnx.accessgroup.it/community/vba/elenco-delle-tabelle-e-campi-del-db.html
> MA
>
Grazie MA, questo l'avevo visto ma l'ho saltato dato che mi restituisce solo
l'elenco delle tabelle e campi.
Mi serve la definizione completa.
Grazie lo stesso anche per le pulizie...


title: Export della definizione di una tabella

author: Alessandro Cara

text:
Il 12/04/2011 12.31, Pisinho ha scritto:
> Salve,
> so che è possibile esportare la definizione delle tabelle in un file di
> testo tramite le istruzioni:
>
> For Each td In db.TableDefs
> If Left(td.Name, 4) <> "MSys" Then
> DoCmd.TransferText acExportDelim, ,td.Name, sExportLocation & "Table_" &
> td.Name & ".txt", True
> End If
> Next td
>
>
> Ho provato ma senza esito positivo, mi da errore dicendo che il
> separatore di campo corrisponde al separatore decimale o al delimitatore
> di testo.
>
> Ho provato anche ad aggiungere ";" o ":" o "|" ma senza risultato....
>
> Dove sbaglio, oppure, c'è un altro metodo per avere su file la
> definizione della tabella ?
usa l'analizzatore.
--
ac (x=y-1)


title: Export della definizione di una tabella

text:
....
>
> Grazie MA, questo l'avevo visto ma l'ho saltato dato che mi restituisce solo
> l'elenco delle tabelle e campi.
>
> Mi serve la definizione completa.
>
> Grazie lo stesso anche per le pulizie...
Vedi questo esempio...
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=196
non è completo, ma, siccome usa DAO, e vedendone la struttura, sarà
semplice eventualmente completarlo, sostanzialmente di ogni Tabella
estrae Campi e Tipologia di campo con indicazione di PK e FK ed
Indici...
@Alex


title: Export della definizione di una tabella

text:
>>
>> Ho provato ma senza esito positivo, mi da errore dicendo che il
>> separatore di campo corrisponde al separatore decimale o al delimitatore
>> di testo.
>>
>> Ho provato anche ad aggiungere ";" o ":" o "|" ma senza risultato....
>>
>> Dove sbaglio, oppure, c'è un altro metodo per avere su file la
>> definizione della tabella ?
> usa l'analizzatore.
Grazie a tutti.
Ok per l'analizzatore, l'ho usato ma mi serve qualcosa da usare via VBA.


title: Problema con i sub-report

text:
Avrei un problema con i sub-report:
in fase di stampa, se i record del sub-report non riescono ad entrare
nella pagina, vengono "tagliati" ovvero, la stampa non continua nella
nuova pagina.
Premetto di aver abilitato le opzioni 'espandi', sia nel report che nel
sub report e l'opzione 'tiene unito' e' disabilitata.
Grazie!
Sent via Deja.com
http://www.deja.com/
Before you buy.


title: Testare se una sezione di una maschera esiste

author: marcod

text:
Ho necessità di sapere utilizzando vba se una sezione di una maschera
esiste oppure no.
Ho provato con:

    Dim frm As Form, cntr As Control, criteria As String, sect As
Integer
    Dim PROP As Property, obj As AccessObject, dbs As Object
    Dim db0 As Object, partenza As Integer, testo As String
    Set db0 = Application.CurrentProject

    For Each obj In db0.AllForms

      DoCmd.OpenForm obj.Name, acDesign
      For Each frm In Forms
            for i = 0 to 4
                 For Each prop In frm.Section(i).Properties
                      .....
                      .....
                 next prop
            next i

      Next frm

Ma quando viene testata una sezione che non esiste il programma si
blocca cin un errore.
Come posso testare a priori l'esestenza di una sezione di una
maschera?

Come posso fare?

Grazie per qualsiasi suggerimento

Marco


text:

Dopo un po' di lavoro e ricerca ho trovato la soluzione.
Se a qualcuno interessa ecco come:
Ho creato una maschera con un pulsante (Comando40) e l'ho inserito in
un database con tre o quattro maschere.

--------------------------------------------------------------------------------------------------------------------
Private Sub Comando40_Click()
    Dim frm As Form, cntr As Control, criteria As String, Sect As
Section, I As Integer
    Dim PROP As Property, obj As AccessObject, dbs As Object, trovata
As Boolean
    Dim db0 As Object, partenza As Integer, testo As String
    Set db0 = Application.CurrentProject

    For Each obj In db0.AllForms
        If obj.Name = Me.Name Then
                    GoTo 400
        End If
        DoCmd.OpenForm obj.Name, acDesign
        For Each frm In Forms
        If frm.Name = Me.Name Then GoTo 300
             For I = 0 To 4
                 trovata = CercaSezione(frm, I)
                      If I = 0 Then
                        If trovata = True Then MsgBox "Trovata sezione
acdetail.", vbInformation + vbOKOnly
                        If trovata = False Then MsgBox "Non Trovata
sezione acdetail.", vbInformation + vbOKOnly
                      End If
                      If I = 1 Then
                        If trovata = True Then MsgBox "Trovata sezione
acHeader.", vbInformation + vbOKOnly
                        If trovata = False Then MsgBox "Non Trovata
sezione acHeader.", vbInformation + vbOKOnly
                      End If
                      If I = 2 Then
                        If trovata = True Then MsgBox "Trovata sezione
acFooter.", vbInformation + vbOKOnly
                        If trovata = False Then MsgBox "Non Trovata
sezione acFooter.", vbInformation + vbOKOnly
                      End If
                      If I = 3 Then
                        If trovata = True Then MsgBox "Trovata sezione
acPageHeader.", vbInformation + vbOKOnly
                        If trovata = False Then MsgBox "Non Trovata
sezione acPageHeader.", vbInformation + vbOKOnly
                      End If
                      If I = 4 Then
                        If trovata = True Then MsgBox "Trovata sezione
acPageFooter.", vbInformation + vbOKOnly
                        If trovata = False Then MsgBox "Non Trovata
sezione acPageFooter.", vbInformation + vbOKOnly
                      End If
             Next I
300     Next frm
        DoCmd.Save acForm, obj.Name
        DoCmd.Close acForm, obj.Name, acSaveYes
400 Next obj
    'db0.Close
    DoCmd.Close acForm, Me.Name
    Exit Sub
err_Comando30_Click:
End Sub
------------------------------------------------------------------------------------------------------------------

Function CercaSezione(NomeMaschera As Form, sezione As Integer)
    On Error Resume Next
    Dim Sect As Section
    Set Sect = NomeMaschera.Section(sezione)
    If Err > 0 Then
        CercaSezione = False
    Else
        CercaSezione = True
    End If
End Function
-----------------------------------------------------------------------------------------------------

Vengono visualizzate tutte le maschere e mi viene segnalato se le
sezioni delle maschere esistono oppure no.

Questo mi servirà per poter modificare i controlli nelle sezioni delle
maschere o i colori di fondo delle maschere stasse.

Saluti

Marco


title: access e protocollo

author: Luigi

text:
vorrei creare un programmino per la gestione del protocollo di ingresso e
uscita della posta con i seguenti campo: numero protocollo (progressivo e
unico), data (automatica), entrata o uscita (E o U), mittente o destinatario
e oggetto.
Fin ora niente di speciale, ma quello che chiedo è : per gestirlo in rete?
senza la preoccupazione di accavallamento di numeri mentre si inseriscono i
dati?.
grazie
luigi


title: access e protocollo

author: CDM da casa

text:
"Luigi" <
onof...@tin.it
> ha scritto nel messaggio
news:9gSY5.10054$x_2.8...@twister1.tin.it...

Per poterlo gestire in rete l'importante è che hai un unico archivio
condiviso (es. sul server), ovvero sui Client devi avere il DB con tabelle
collegate allo atesso files di archivio.
Ciao Claudio


title: access e protocollo

author: Carlo Ve

text:
Luigi ha scritto nel messaggio <9gSY5.10054$
x_2.8...@twister1.tin.it
>...

Per quanto riguarda la gestione credo ti convenga inserire anche  un campo
anno che potrai
utilizzare assieme  al numero protocollo per creare un campo chiave univoco
(cosi' da poter tenere piu anni ed una numrazione che si azzera ogni anno)
per quanto rifguarda la numerazione hai varie strade ma cmq ti consiglio
una tabella
"contatori" dove andrai ad inserirti per ogni anno l'ultimo numero di
protocollo
(campi anno e numero)
Adesso il problema e' come gestire e aggiornare il numero di protocollo
cosi' da evitare che  se piu' utenti  inseriscono contemporaneamente  un
protocollo il prg  tenga conto della numerazione e non crei doppioni
Supponendo che le maschere contengano controlli non associati (per una
migliore riuscita)
potresti o assegnare il numero di protocollo solamente quando vai a salvare
il record
prelevando il numero dalla tabella contatori e aggiungendo 1
oppure quando apri la maschera vai a leggere l'ultimo numero dalla tabella e
l'aggiorni subito
Devi comunque gestire eventuali buchi di numerazione dovuti a riepensamenti
ecc ecc ecc
e decidere se mettere a disposizione dell'operatore la possibilita' di
modificare manualmente il numero di
protocollo nella tabella contatori
Carlo Ve


title: Codici di errori restituiti dall' oggetto ERR

text:
Avete sicuramente notato che se l' errore e' di data base
come per esempio un conflitto di chiave, allora
ERR del debug  assume spesso la forma -21... 8 (800 ...)
Dove il numero tra parentesi credo sia aggiunto dal DBMS.
Pero' intercettando l' errore, quel' informazione viene persa.
Cioe' il numero tra parentesi non c'e'.
C'e' modo di recuperarlo con VBA ?
Accade poi che allo stesso ERR.number siano associati piu'
errori.
Si distinguono sfruttando la ERR.description ?
Sareste cosi' gentili da farmi un po' di chiarezza sull' argomento ?
Grazie molte a tutti.


text:
On 16 Lug, 09:41, "radicale.002" <
radicale....@gmail.com
> wrote:
>
> Sareste cosi' gentili da farmi un po' di chiarezza sull' argomento ?
> Grazie molte a tutti.
Possibile che esperti come voi (senza ironia) non sappiano dire
nulla su un argomento cosi' importante ?
O forse non si capisce bene quello che intendo ?
(chiedo eh ! Chiedo soltanto, non vi irritate ...)


title: Esempio Do Loop.

author: Rob

text:
Buongiorno a tutti, ho la seguente necessità,
Ho una form con due campi numerici: INIZIO; FINE e un pulsante GENERA
devo attribuire all'evento click del pulsante un codice che mi popola una
tabella VALORI con un campo numerico NUMERO, i record con i valori compresi
da INIZIO FINE.
INIZIO 2
FINE 9
Risultato Tabella
NUMERO
2
3
4
5
6
7
8
9
grazie per l'aiuto


title: Esempio Do Loop.

author: Pablitomf (Maurizio Facciuti)

text:
"Rob" <
r...@libero.it
> ha scritto nel messaggio
news:wH0Xg.142688$zy5.1...@twister1.libero.it...
> Buongiorno a tutti, ho la seguente necessità,
>
> Ho una form con due campi numerici: INIZIO; FINE e un pulsante GENERA
>
> devo attribuire all'evento click del pulsante un codice che mi popola una
> tabella VALORI con un campo numerico NUMERO, i record con i valori
> compresi da INIZIO FINE.
>
> INIZIO 2
> FINE 9
Ti basta un "For... To"
Dim x as integer
Dim inizio as integer
Dim fine as integer
inizio = 2
fine = 9
For x = inizio To fine
 "apri il recordset e inserisci il valore x nel record"
Next x
--
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."


title: Esempio Do Loop.

text:
"Pablitomf (Maurizio Facciuti)" <
keiko...@libero.it
> ha scritto nel
messaggio news:egi5h3$53s$1...@area.cu.mi.it...

Grazie per il suggerimento, ma volendo utilizzare i comandi do.. loop..
if... then...??
mi puoi fare un esempio ??
Set db = currentdb
Set rs = db.openrecordset("TABELLA")
numero = 0
I = 1
rs.addnew
rs!numero = I + 1
rs.update
rs.movenext
volevo arrivare a 25 ed uscire
Scusa ma non sono pratico di vba :(


title: Esempio Do Loop.

author: Nicola Di Martino

text:
[cut
]> Grazie per il suggerimento, ma volendo utilizzare i comandi do.. loop..
> if... then...??
>
> mi puoi fare un esempio ??
>
> Set db = currentdb
> Set rs = db.openrecordset("TABELLA")
>
> numero = 0
>
> I = 1
>
> rs.addnew
> rs!numero = I + 1
> rs.update
> rs.movenext
>
> volevo arrivare a 25 ed uscire
>
> Scusa ma non sono pratico di vba :(
>
Alur...
Do
     rs.addnew
     rs!numero = I + 1
     rs.update
     I=I+1
    if I=25 then exit do
Loop
oppure
Do Until I=26
     rs.addnew
     rs!numero = I + 1
     rs.update
     I=I+1
Loop
26 perché senno il 25 non te lo fa
Cmq una occhiatina all'Help ciclo do.. loop trovi ottimi esempi...
Ciao
Nik


title: Esempio Do Loop.

text:
> Grazie per il suggerimento, ma volendo utilizzare i comandi do.. loop..
Dim rs As Recordset
Set rs = CurrentDb.openrecordset("TABELLA")
Di conta as integer
Do While conta< 25
    conta=conta+1
    rs.addnew
    rs!numero = conta
    rs.update
    rs.movenext
Loop
rs.Close
Set rs = Nothing
conta=0
if... then lascialo perdere...



title: Esempio Do Loop.

text:
"Nicola Di Martino" <
nic.dim...@libero.it
> ha scritto nel messaggio
news:6s7Xg.143225$zy5.1...@twister1.libero.it...

Tante Grazie funziona perfettamente !!
posso sostituire le variabili con i campi della tabella
esempio se voglio partire, anziche da zero dal valore contenuto nel campo
"INIZIO" della form e finire con il Campo "FINE" della stessa Form ??


title: Esempio Do Loop.

text:
> > Alur...
> > Do
> >     rs.addnew
> >     rs!numero = I + 1
> >     rs.update
> >     I=I+1
> >    if I=25 then exit do
> > Loop
> >
> > oppure
> >
> > Do Until I=26
> >     rs.addnew
> >     rs!numero = I + 1
> >     rs.update
> >     I=I+1
> > Loop
> > 26 perché senno il 25 non te lo fa
> >
> > Cmq una occhiatina all'Help ciclo do.. loop trovi ottimi esempi...
> > Ciao
> > Nik
> Tante Grazie funziona perfettamente !!
>
> posso sostituire le variabili con i campi della tabella
>
> esempio se voglio partire, anziche da zero dal valore contenuto nel campo
> "INIZIO" della form e finire con il Campo "FINE" della stessa Form ??
>
Certo è la lezione n.2 che penso puoi provare a fare da solo...
gli indizi li hai...
i=inizio
e al posto del 25 o del 26, dipende dall'esempio ci metti fine...
Try
Nik


title: Esempio Do Loop.

text:
"Nicola Di Martino" <
nic.dim...@libero.it
> ha scritto nel messaggio
news:MZ7Xg.143276$zy5.1...@twister1.libero.it...

Ok
    Do
    rs.addnew
     rs!numero = DataInizio
     rs.update
     DataInizio = DataInizio + 1
    if  DataInizio = DataFine then exit do
 Loop
alla fine per aggiungere anche il record con Datafine ho scritto:
rs.addnew
rs!numero = DataFine
rs.update
ho aggunto un altro campo "test" alla tabella
come faccio a dirgli che durante l'esecuzione del ciclo
If  DataInizio = 20-ott-06
    rs!update = si
  Else rs!update =no
ossia se il record numero contiene il valore 20-ott-06 scrivi si altrimenti
scrivi no su tutti i record ???


title: Esempio Do Loop.

text:
[cut
>
> If  DataInizio = 20-ott-06
>     rs!update = si
>
>   Else rs!update =no
>
> ossia se il record numero contiene il valore 20-ott-06 scrivi si
altrimenti
> scrivi no su tutti i record ???
>
Scusa ma Datainizio contiene un numero e poi gli passi una data?
Datainizio è la data odierna? o è una data che imposti/selezioni tu?
Il campo test è booleano? (si/no)
questa --> rs!update = si <-- non la capisco: deve fare l'update?
Nik


title: Esempio Do Loop.

text:
"Nicola Di Martino" <
nic.dim...@libero.it
> ha scritto nel messaggio
news:9drXg.457$uv5...@twister1.libero.it...

Hai ragione, mi sono fatto prendere dalla frenesia:
nella tabella "TABELLA" ho il campo data "numero" campo di testo "Test"
Ho una maschera con due caselle di testo, DataInizio e DataFine, ho inserito
il codice all'evento click di un tasto e correttamente mi valorizza il campo
numero con la data compresa tra i campi DataInizio e DataFine. e il campo
test vuoto.
ora vorrei fare in modo che nel momento in cui il codice scrive la data su
ogni record "numero"  della tabella ,scriva nel campo "Test" NO, se il
record "numero" è uguale ad X scriva nel campo "Test" SI....
poi avrei altri milioni di domande.....


title: Esempio Do Loop.

text:
"Rob" <
r...@libero.it
> ha scritto nel messaggio
news:BvrXg.556$Fk...@twister2.libero.it...

allora...
Ok
Do until Datainizio=Datafine+1
    rs.addnew
     rs!numero = DataInizio
     rs!test=(datainizio=X)
     rs.update
     DataInizio = DataInizio + 1
 Loop
Spiego:
--Do until Datainizio=Datafine+1 serve per fare il ciclo comprendendo anche
Datafine
-- rs!test=(datainizio=X) esegue un confronto booleano tra Datainizio e il
valore X che serve da controllo: se il confronto è vero assume valore TRUE
cioè SI cioè -1, se il confronto non va a buon fine e quindi datainizio e X
sono diversi... assume valore FALSE cioè 0 cioè NO
spero funzioni...
Attendo notizie
ciao
Nik


title: Esempio Do Loop.

text:
PRE scriptum
> Hai ragione, mi sono fatto prendere dalla frenesia:
> nella tabella "TABELLA" ho il campo data "numero" campo di testo "Test"
il campo test impostalo come boolean


title: Esempio Do Loop.

text:
"Nicola Di Martino" <
nic.dim...@libero.it
> ha scritto nel messaggio
news:ZPrXg.514$uv5...@twister1.libero.it...

mmm .non va , ho messo come DataInizio 01-10-2006 e DataFine 31-10-2006,
rs!test=(datainizio='10-10-2006')
mi crea la tabella con tutti i valori ma nel campo Test, sostituito con
casella di testo con Si/no ma non mi flegga la data del 10-10-2006....


title: Esempio Do Loop.

text:

provo:
il campo numero è impostato a campo data!!! giusto?
prova a passare il dato come #10/10/2005#
retry


title: Archivio di documenti Word

author: Mister Magoo

text:
Ciao a tutti. Sto muovendo i primi passi nella programmazione in Access
(ergo: ho comperato un librone e lo sto leggendo tutto :-) perche' devo
creare un'applicazione di database per fare un piacere ad una persona.
Sono ancora agli inizi della fase di apprendimento, pero' vorrei sapere se
e' possibile con Access ottenere una "prestazione" particolare. Da quel che
ho capito "andando avanti" nel libro dovrebbe essere possibile, ma vorrei
una conferma. La "prestazione" e'questa: io vorrei, un bel domani, poter
avere una maschera Access con un *pulsante* che, premuto, mi faccia queste
cose:
1) crei un nuovo file Word in una directory sul server di rete (pensavo di
fargli creare il file con un nome composto da una parte "fissa" ed una parte
"numerica", che si incrementi di volta in volta).
2) lo apra con Word
3) l'utente puo'modificare a suo piacimento questo file, usando Wod
4) dopo che l'utente ha salvato e chiuso il documento, Access e' in grado
AUTOMATICAMENTE di salvarne il percorso in un database: un database, quindi,
contenente solo percorsi di file.
In seguito io dovrei poter "esplorare'" questo database di file con Access,
e dovrei potere, premendo un altro pulsante, aprire e modificare con Word i
singoli documenti gia'archiviati.
E' possibile tutto questo, vero? E per ottenere questo dovro'per forza
utilzzare routines in VB for applications, vero?
Chi mi rispondera' (ma mi basta anche il solo "si'" o "no") sarebbe cosi'
gentile da spiegarmi a grandi linee come potro' ottenere tutto questo?
Grazie!
Ciao,
Angelo.-


title: Archivio di documenti Word

author: Sergio MAZZA

text:
"Mister Magoo" <
angelo...@tin.it
> ha scritto nel messaggio
news:8ri7sm$hel$1...@nslave3.tin.it...

Sě e possibile e dovrai necessariamente utilizzare VBA e il modello ad
oggetti di Word. Se vuoi un esempio guarda nel sito comune all'indirizzo
http://members.xoom.it/_XOOM/it_db_access/tips34.htm
.
Ciao.


title: Turni

author: Mercurio

text:
Secondo voi è possibile visualizzzare una sequenza grafica di turni
(1,2,3,4) dando ad ognuno di questi un'ora di inizio ed una di fine
memorizzati in una tab con chiave primaria il num. turno e campi data le ore
di inizio e fine ???


title: Turni

text:

Ciao


title: Turni

author: Emyr

text:


non è chiaro cosa vuoi fare cosa intendi per sequenza grafica?
Saluti.
Emanuele.


title: Turni

text:
Se ho il turno 1 cosě composto:
inizio alle 8.00 finisco alle 12.00
inizio alle 15.00 finisco alle 18.30
vorrei rappresentrlo in access graficamento con delle barre orizzontali con
le ore in ascisse, il numero turni in ordinata e il valore dei turni
rappresentati cosě:
                      8.00_______________12.00
15.00______________18,30
Ciao


title: Turni

text:


puoi provare con le barre di progressione....
vedi
sitocomune.com
Saluti.
Emanuele.


title: prova

author: Claudio


title: Inserimento data manuale!

author: Noce

text:
Ciao!
In un report dove ci sono solo fotografie, ( Non collegato a nessuna tabella
o query), avrei la necessità di inserirvi un campo che contenga una data
inserita da me manualmente.
E' possibile fare in maniera, che quanto il report viene aperta appaia un
controllo in cui inserire questa data e che questa venga riportata in un
campo del report?
Ciao e Garzie


title: Inserimento data manuale!

text:
"Noce" <xxx...@xxxxx.xx> ha scritto nel messaggio
news:GqGk9.15214$Eu.2...@twister1.libero.it...
> E' possibile fare in maniera, che quanto il report viene aperta appaia un
> controllo in cui inserire questa data e che questa venga riportata in un
> campo del report?
Mah, supponendo che il campo del report si chiami MiaData, potresti scrivere
nell'evento "Su Formattazione" una riga del tipo "MiaData = InputBox("Inserire
la data:")."
Non è una gran soluzione, perché non controllerebbe in nessun modo l'attinenza
del dato immesso con un formato data, ma avrebbe il vantaggio di poterci
scrivere quello che vuoi. Magari ti è sufficiente...
Ciao. Claudio.


title: Inserimento data manuale!

text:
"Claudio" <cld@NOSPAM&COsupereva.it> ha scritto nel messaggio
news:SNGk9.172006$pX1.6...@news2.tin.it...
> Mah, supponendo che il campo del report si chiami MiaData, potresti
scrivere
> nell'evento "Su Formattazione" una riga del tipo "MiaData =
InputBox("Inserire
> la data:")."
Non funzia...appare la casella dove digitare il testo ma nell' anteprima
report nel campo "MiaData non appare niente.
Tieni presente che nel database non vi è alcun elemento all'infuori del
Report.
In questo report vorrei creare delle etichette (10 per l'esattezza), dove in
ognuna è presente un logo, e sotto al quale vorrei inserire la data
Per cui in definitiva dovrei creare 10 campi "MiaData" che devono essere
aggiornati alla data che io immettero all'apertura del report
Altra soluzione?
Ciao e Grazie


title: Inserimento data manuale!

text:
"Noce" <xxx...@xxxxx.xx> ha scritto nel messaggio
news:r9Hk9.15499$Eu.3...@twister1.libero.it...
> Non funzia...appare la casella dove digitare il testo ma nell' anteprima
> report nel campo "MiaData non appare niente.
> Tieni presente che nel database non vi č alcun elemento all'infuori del
> Report.
Per scrupolo ho provato, e mi funziona perfettamente.
Ho aperto un db vuoto, creato un report in visualizzazione struttura, aggiunto
un controllo "Casella di testo" chiamato "MiaData", e aggiunto il codice che ti
ho detto all'evento "Su formattazione" della sezione contenente il controllo
(Corpo). Doppio click sul report, mi chiede la data, Ok e quello che ho scritto
compare nel report. Prova anche tu a fare queste operazioni.
> In questo report vorrei creare delle etichette (10 per l'esattezza), dove in
> ognuna č presente un logo, e sotto al quale vorrei inserire la data
Faresti meglio a farlo appoggiandoti a una tabella, con il report che attinge
da quest'ultima. Sarebbe molto piů flessibile.
> Per cui in definitiva dovrei creare 10 campi "MiaData" che devono essere
> aggiornati alla data che io immettero all'apertura del report
>
> Altra soluzione?
Riprovaci Sam :-)
Ciao. Claudio.


title: Inserimento data manuale!

author: Maurizio Borrelli

text:
> "Claudio" news:XSHk9.172368$pX1.6...@news2.tin.it...:
> > "Noce" news:r9Hk9.15499$Eu.3...@twister1.libero.it...:
> > Non funzia...appare la casella dove digitare il testo ma nell' anteprima
> > report nel campo "MiaData non appare niente.
> > Tieni presente che nel database non vi è alcun elemento all'infuori del
> > Report.
> Per scrupolo ho provato, e mi funziona perfettamente.
    Confermo.
    La stessa formula potrebbe essere anche immessa come valore della
proprieta' Origine controllo della Casella di testo:
        =InputBox("<testo messaggio>")
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: Inserimento data manuale!

author: Roberto da casa

text:
"Noce" <xxx...@xxxxx.xx> ha scritto nel messaggio
news:GqGk9.15214$Eu.2...@twister1.libero.it...

Inserisci nel report una casella di testo non associata e nella sua origine
controllo scrivi:
=[Digita la tua data:]
Quando aprirai il report Access aprirà una finestra di dialogo in cui ti
chiederà di digitare la data che vuoi stampare nella tua casella di testo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Inserimento data manuale!

text:
> "Roberto da casa" news:LdVk9.17323$e31.3...@twister2.libero.it...:
> =[Digita la tua data:]
    :-)



title: Inserimento data manuale!

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:LdVk9.17323$e31.3...@twister2.libero.it...
>
> Inserisci nel report una casella di testo non associata e nella sua origine
> controllo scrivi:
>
> =[Digita la tua data:]
>
> Quando aprirai il report Access aprirą una finestra di dialogo in cui ti
> chiederą di digitare la data che vuoi stampare nella tua casella di testo.
>
Ho provato ma non mi funziona... restituisce #Nome? nel campo relativo, senza
chiedere nulla...
L'idea č carina... tu l'hai provata?
Ciao. Claudio.


title: Inserimento data manuale!

text:
> "Claudio" news:FWVk9.176489$pX1.6...@news2.tin.it...:
> > "Roberto da casa" news:LdVk9.17323$e31.3...@twister2.libero.it...:
[...]
> > =[Digita la tua data:]
> Ho provato ma non mi funziona... restituisce #Nome? nel campo relativo,
> senza chiedere nulla...
> L'idea è carina...
    Infatti.
    Pero' funziona solo se la proprieta' Origine record del Report ha un
valore valido.



title: Inserimento data manuale!

text:
"Claudio" <cld@NOSPAM&COsupereva.it> ha scritto nel messaggio
news:XSHk9.172368$pX1.6...@news2.tin.it...
> "Noce" <xxx...@xxxxx.xx> ha scritto nel messaggio
> Riprovaci Sam :-)
Ho riprovato e funzia alla grande...Grazie


title: Inserimento data manuale!

text:
"Claudio" <cld@NOSPAM&COsupereva.it> ha scritto nel messaggio
news:FWVk9.176489$pX1.6...@news2.tin.it...

Mi hai fatto venire lo scrupolo e l'ho provata e dal sorriso di Maurizio
Borrelli sembrerebbe che risulta anche a lui funzionante.
Ma tu =[Digita la tua data:] dove lo hai scritto???
Io ti ho suggerito di farlo nell'origine controllo di una casella di testo
non associata del tuo report.
> Ciao. Claudio.



title: Inserimento data manuale!

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:N5Xk9.17762$e31.3...@twister2.libero.it...
> Mi hai fatto venire lo scrupolo e l'ho provata e dal sorriso di Maurizio
> Borrelli sembrerebbe che risulta anche a lui funzionante.
> Ma tu =[Digita la tua data:] dove lo hai scritto???
> Io ti ho suggerito di farlo nell'origine controllo di una casella di testo
> non associata del tuo report.
Roberto,
ho capito perché non va. Come dice giustamente Maurizio, la cosa funziona solo
se l'origine record del report contiene qualcosa di valido. Per come è stato
posto il problema iniziale, la soluzione non funziona, poiché il report non si
appoggia a nessuna tabella o query esistente.
Ciao. Claudio.


title: Inserimento data manuale!

text:
"Claudio" <cld@NOSPAM&COsupereva.it> ha scritto nel messaggio
news:gFXk9.177270$pX1.6...@news2.tin.it...

Nulla ti vieta di dichiare l'origine record del report (una qualsiasi delle
tabelle o query del database) anche se poi non esisteranno controlli
associati a campi di tale oggetto.
Naturalmente non dovrai usare il corpo del report (al quale assegnerai
un'Altezza zero), e tutti i controlli dovranno essere contenuti
nell'intestazione pagina o nell'intestazione report.



title: Inserimento data manuale!

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:L1Yk9.18675$Eu.3...@twister1.libero.it...
>
> Nulla ti vieta di dichiare l'origine record del report (una qualsiasi delle
> tabelle o query del database) anche se poi non esisteranno controlli
> associati a campi di tale oggetto.
Sě, sě... adesso č chiaro. Mi sembrava una precisazione doverosa :-) Grazie.
Ciao. Claudio.


title: Contatore di stampa ... si può...

author: SuperPippo®

text:
salve a tutti di NG...
volevo chiedere se vi č qualche maniera di inserire in
una maschera la quale ha un bottone di stampa report
oppure anche in un report un conteggio delle stampe effettuate..
chiaramente da inserire in un controllo della maschera...
ciao


title: Contatore di stampa ... si può...

text:
" SuperPippo®" <ik0qddT...@TOGLISPAMlibero.it> ha scritto nel messaggio
news:yxiOa.154948$lK4.4...@twister1.libero.it...
> salve a tutti di NG...
> volevo chiedere se vi è qualche maniera di inserire in
> una maschera la quale ha un bottone di stampa report
> oppure anche in un report un conteggio delle stampe effettuate..
> chiaramente da inserire in un controllo della maschera...
> ciao
Non ho capito vorresti una form nella quale inserire quante stampe
effettuare..??
Usa l'istruzione PrintOut e sfrutta
Dim NumStamp as Integer
NumStamp = InputBox("Numero Stampe..?")
Docmd.OpenReport Nomereport
DoCmd.PrintOut , , , NumStamp
Ciao.
@Alex.


title: Contatore di stampa ... si può...

text:
@Alex wrote:
> " SuperPippo®" <ik0qddT...@TOGLISPAMlibero.it> ha scritto nel
>> volevo chiedere se vi è qualche maniera di inserire in
>> una maschera la quale ha un bottone di stampa report
>> oppure anche in un report un conteggio delle stampe effettuate..
>> chiaramente da inserire in un controllo della maschera...
>> ciao
>
>
> Non ho capito vorresti una form nella quale inserire quante stampe
> effettuare..??
>
> Usa l'istruzione PrintOut e sfrutta
> Dim NumStamp as Integer
> NumStamp = InputBox("Numero Stampe..?")
> Docmd.OpenReport Nomereport
> DoCmd.PrintOut , , , NumStamp
---------------
no... mi sono spiegato male...
mi servirebbe un contatore di stampe..
ogni stampa effettuata si dovrebbe registrare
in un contatore...
esempio se oggi effettuo 10 stampe si devono poter
aggiungere alle altre che ho fatto ieri...
ciao


title: Contatore di stampa ... si può...

author: yQy

text:
On Tue, 08 Jul 2003 17:55:53 GMT, " SuperPippo®"
<ik0qddT...@TOGLISPAMlibero.it> wrote:
>> Usa l'istruzione PrintOut e sfrutta
>> Dim NumStamp as Integer
>> NumStamp = InputBox("Numero Stampe..?")
>> Docmd.OpenReport Nomereport
>> DoCmd.PrintOut , , , NumStamp
>---------------
>no... mi sono spiegato male...
>mi servirebbe un contatore di stampe..
>ogni stampa effettuata si dovrebbe registrare
>in un contatore...
>esempio se oggi effettuo 10 stampe si devono poter
>aggiungere alle altre che ho fatto ieri...
>ciao
Usa una query di aggiornamento che incrementa un campo in una tabella
Tipo:
Dim SQLIncr as String
Dim Cont as Integer
DIm NuovoCont as Integer
Cont = Dlookup("[CampoContatore]","TabellaContenenteIlContatore")
If IsNull(Cont) Then
  NuovoCont = 1
Else
  NuovoCont = Cont + 1
End IF
SQLIncr ="UPDATE TabellaContenenteIlContatore " & _
"Set CampoContatore='" & NuovoCont & "'"
DoCmd.RunSql SQLIncr
....non ho fatto debug....:)
Io di solito vado cosi
Ciao :)


title: Contatore di stampa ... si può...

text:
On Tue, 08 Jul 2003 19:01:30 GMT, yQy <
fabrizi...@tin.it
> wrote:
Corrige:
>Usa una query di aggiornamento che incrementa un campo in una tabella
>
>Tipo:
>
>Dim SQLIncr as String
Dim Cont as Variant



title: Contatore di stampa ... si può...

author: Antonio Biso

text:
" SuperPippo®" <ik0qddT...@TOGLISPAMlibero.it> ha scritto nel messaggio
news:JADOa.156622$Ny5.4...@twister2.libero.it...

Usa una tabella dove leggi e scrivi il numero di stampe
Antonio


title: Contatore di stampa ... si può...

text:
Antonio Biso wrote:
>> no... mi sono spiegato male...
>> mi servirebbe un contatore di stampe..
>> ogni stampa effettuata si dovrebbe registrare
>> in un contatore...
>> esempio se oggi effettuo 10 stampe si devono poter
>> aggiungere alle altre che ho fatto ieri...
>
> Usa una tabella dove leggi e scrivi il numero di stampe
------------
scusa Antonio... che intendi.. ??
manualmente scrivere se oggi ho fatto 25 stampe ...??
ciao...


title: Contatore di stampa ... si può...

text:
yQy wrote:
>> Usa una query di aggiornamento che incrementa un campo in una tabella
>> Tipo:
>>
>> Dim SQLIncr as String
> Dim Cont as Variant
>> DIm NuovoCont as Integer
>> Cont = Dlookup("[CampoContatore]","TabellaContenenteIlContatore")
>> If IsNull(Cont) Then
>>  NuovoCont = 1
>> Else
>>  NuovoCont = Cont + 1
>> End IF
>> SQLIncr ="UPDATE TabellaContenenteIlContatore " & _
>> "Set CampoContatore='" & NuovoCont & "'"
>>
>> DoCmd.RunSql SQLIncr
--------------
Ciao yQy... non ho capito se usi anche tu questa funzione
di contare le stampe...
vediamo se ho capito...
in sostanza dovrei fare una tabella con un campo contatore
supponiamo chiamata NumStampe
e poi il codice sopra citato come lo utilizzo ???
grazie...


title: Contatore di stampa ... si può...

text:
" SuperPippo®" <ik0qddT...@TOGLISPAMlibero.it> ha scritto nel messaggio
news:j_TOa.160252$lK4.4...@twister1.libero.it...

Ma scusa eh?
C'avrai un codice dove fai
docmd.openreport
dove fai questo fai anche una
docmd.runsql "UPDATE tab SET tab.cont = [cont]+1;"
Antonio


title: Contatore di stampa ... si può...

author: MA

text:

Valuta quest'idea.
Tu hai un controllo sulla maschera che ti dice il numero di copie da
stampare.
Accoda questo valore in una tabella all'upo creata in cui ci inserisci anche
il giorno e l'ora di stampa.
Per sapere le varie stampe dovrai solo sommare questo valore e magari sai
anche in quali giorni l'hai fatto. come ti è stato suggerito tu perdi la
progressione delle stampe.
Sta a te valutare quale ti conviene.
MAssimiliano


title: Contatore di stampa ... si può...

text:
MA wrote:
>> yQy wrote:
[cut]
>> e poi il codice sopra citato come lo utilizzo ???
>
> Valuta quest'idea.
> Tu hai un controllo sulla maschera che ti dice il numero di copie da
> stampare.
> Accoda questo valore in una tabella all'upo creata in cui ci
> inserisci anche il giorno e l'ora di stampa.
> Per sapere le varie stampe dovrai solo sommare questo valore e magari
> sai anche in quali giorni l'hai fatto. come ti è stato suggerito tu
> perdi la progressione delle stampe.
> Sta a te valutare quale ti conviene.
------------
Ciao Ma... certo mi occorre la progressione delle stampe...
ma il fatto è che non sò come applicarla...allora...
ho una maschera principale e vi è questo codice
nel bottone di Stampa....
Private Sub Comando80_Click()
On Error GoTo Err_Comando80_Click
    Dim stDocName As String
    stDocName = "Stampa Scheda"
    DoCmd.OpenReport stDocName, acNormal
Exit_Comando80_Click:
    Exit Sub
Err_Comando80_Click:
    MsgBox Err.Description
    Resume Exit_Comando80_Click
 End Sub
poi nella stessa maschera ho un bottone di comando
che apre un'altra maschera ed il bottone di Stampa ha questo
codice...
Private Sub Comando11_Click()
On Error GoTo Err_Comando11_Click
    Dim stDocName As String
    stDocName = "Stampa Sottocodici"
    DoCmd.OpenReport stDocName, acNormal
Exit_Comando11_Click:
    Exit Sub
Err_Comando11_Click:
    MsgBox Err.Description
    Resume Exit_Comando11_Click
    End Sub
quindi come fare ad applicare il tuo codice
per queste routine di stampa ???
Ciao...
ps-- se mi puoi spiegare in pratica il procedimento...
grazie...


title: Contatore di stampa ... si può...

text:
" SuperPippo®" <ik0qddT...@TOGLISPAMlibero.it> ha scritto nel messaggio
news:YEYOa.159760$Ny5.4...@twister2.libero.it...
> MA wrote:
> >> yQy wrote:
>
> [cut]
>
> Private Sub Comando80_Click()
> On Error GoTo Err_Comando80_Click
>     Dim stDocName As String
>     stDocName = "Stampa Scheda"
>     DoCmd.OpenReport stDocName, acNormal
docmd.runsql "UPDATE tab SET tab.cont = [cont]+1;"
CAZZAROLA!!!
Antonio


title: Contatore di stampa ... si può...

text:
> MA wrote:
> >> yQy wrote:
>
> [cut]
>
> >> e poi il codice sopra citato come lo utilizzo ???
> >
> > Valuta quest'idea.
> > Tu hai un controllo sulla maschera che ti dice il numero di copie da
> > stampare.
> > Accoda questo valore in una tabella all'upo creata in cui ci
> > inserisci anche il giorno e l'ora di stampa.
> > Per sapere le varie stampe dovrai solo sommare questo valore e magari
> > sai anche in quali giorni l'hai fatto. come ti č stato suggerito tu
> > perdi la progressione delle stampe.
> > Sta a te valutare quale ti conviene.
> ------------
> Ciao Ma... certo mi occorre la progressione delle stampe...
> ma il fatto č che non sň come applicarla...allora...
> ho una maschera principale e vi č questo codice

Allora se tu esegui piů stampe alla volta del report  dovrai inserire una
casella di testo "n_stampe" anceh non associata e dopo "on error" del tuo
pulsante inserisci
dim i as integer
For i=0 to n_stampe
con questo gli dici di stampare tabte volte quanto il valore in n_stampe
poi, ot crei una query di accodamento


title: Contatore di stampa ... si può...

text:

Scusami, mi č partito un ctrl+Enter non voluto.
dicevo poi ti accodi questo valore in una tabella creata ad hoc con un campo
data impostato a now() come predefinito
MAssimiliano


title: Contatore di stampa ... si può...

text:
On Mon, 07 Jul 2003 17:58:54 GMT, " SuperPippo®"
<ik0qddT...@TOGLISPAMlibero.it> wrote:
>salve a tutti di NG...
>volevo chiedere se vi è qualche maniera di inserire in
>una maschera la quale ha un bottone di stampa report
>oppure anche in un report un conteggio delle stampe effettuate..
>chiaramente da inserire in un controllo della maschera...
>ciao
Mon pensavo che avrei scatenato tutto sto panico :))))))


title: Contatore di stampa ... si può...

text:
On Wed, 09 Jul 2003 12:35:28 GMT, " SuperPippo®"
<ik0qddT...@TOGLISPAMlibero.it> wrote:
>--------------
>Ciao yQy... non ho capito se usi anche tu questa funzione
>di contare le stampe...
>vediamo se ho capito...
>in sostanza dovrei fare una tabella con un campo contatore
>supponiamo chiamata NumStampe
>e poi il codice sopra citato come lo utilizzo ???
>grazie...
Hai 2 strade, una + semplice e l'altra un po' + professionale e
carina:
Strada 1:
Crea una tabella ContaStampe con un campo NumStampe di tipo numerico
Al clic del bottone che lancia la stampa gli associ il codice che ti
ho mandato io, che provo ad ottimizzare:
--------------------------------
Private Sub Comando80_Click()
On Error GoTo Err_Comando80_Click
    Dim stDocName As String
    stDocName = "Stampa Scheda"
    DoCmd.OpenReport stDocName, acNormal
    Dim SQLIncr as String
    Dim Cont as Variant
    DIm NuovoCont as Integer
    Cont = Dlookup("[NumStampe]","ContaStampe")
    If IsNull(Cont) Then
      NuovoCont = 1
    Else
      NuovoCont = Cont + 1
    End IF
    SQLIncr ="UPDATE ContaStampe" & _
    "Set NumStampe" & NuovoCont & "'"

    docmd.setwarnings false 'evita il messaggio verranno inseriti..
    DoCmd.RunSql SQLIncr
    docmd.setwarnings true 'reimposta gli avvisi di access, IMPORTANTE
Exit_Comando80_Click:
    Exit Sub
Err_Comando80_Click:
    MsgBox Err.Description
    Resume Exit_Comando80_Click
End Sub
-----------------------------
Strada 2:
Come la strada 1 solo ke puoi contare quante stampe ottieni se per
stampare usi il comando docmd.printout....3 (che 3 e' il numero copie)
Non posto il codice per non fare un posto immenso, ma se ti serve lo
metto su un altro post...
Ciao :)


title: Contatore di stampa ... si può...

text:
On Thu, 10 Jul 2003 11:31:13 GMT, yQy <
fabrizi...@tin.it
> wrote:
Correzione alla stringa SQL
>--------------------------------
>Private Sub Comando80_Click()
>On Error GoTo Err_Comando80_Click
>
>    Dim stDocName As String
>    stDocName = "Stampa Scheda"
>    DoCmd.OpenReport stDocName, acNormal
>
>    Dim SQLIncr as String
>    Dim Cont as Variant
>    DIm NuovoCont as Integer
>    Cont = Dlookup("[NumStampe]","ContaStampe")
>    If IsNull(Cont) Then
>      NuovoCont = 1
>    Else
>      NuovoCont = Cont + 1
>    End IF
>
    SQLIncr ="UPDATE ContaStampe Set NumStampe='" & NuovoCont & "'"
>
>    docmd.setwarnings false 'evita il messaggio verranno inseriti..
>    DoCmd.RunSql SQLIncr
...ecc...ecc...
scusami! :))


title: Contatore di stampa ... si può...

text:
Antonio Biso wrote:
> " SuperPippo®" <ik0qddT...@TOGLISPAMlibero.it> ha scritto nel
>
> docmd.runsql "UPDATE tab SET tab.cont = [cont]+1;"
>
> CAZZAROLA!!!
----------------
Ok... Antonio.. mi hai convinto.. vista la soluzione + semplice..
ho inserito la stringa nel codice...ma cosa dovrei fare ora...
creare una Tabella "Tab"...
Private Sub Comando11_Click()
On Error GoTo Err_Comando11_Click
    Dim stDocName As String
    stDocName = "Stampa Sottocodici"
    DoCmd.OpenReport stDocName, acNormal
Exit_Comando11_Click:
    Exit Sub
Err_Comando11_Click:
    MsgBox Err.Description
    Resume Exit_Comando11_Click
    DoCmd.RunSQL "UPDATE tab SET tab.cont = [cont]+1;"
End Sub


title: Contatore di stampa ... si può...

text:
yQy wrote:
> On Thu, 10 Jul 2003 11:31:13 GMT, yQy <
fabrizi...@tin.it
> wrote:
>
> Correzione alla stringa SQL
-------------------
Ciao.. ho provato la tua routine... ecco il codice...
Private Sub Comando11_Click()
On Error GoTo Err_Comando80_Click
    Dim stDocName As String
    stDocName = "Stampa Sottocodici"
    DoCmd.OpenReport stDocName, acNormal
    Dim SQLIncr As String
    Dim Cont As Variant
    Dim NuovoCont As Integer
    Cont = DLookup("[NumStampe]", "ContaStampe")
    If IsNull(Cont) Then
      NuovoCont = 1
    Else
      NuovoCont = Cont + 1
    End If
SQLIncr = "UPDATE ContaStampe Set NumStampe='" & NuovoCont & "'"
    DoCmd.SetWarnings False 'evita il messaggio verranno inseriti..
    DoCmd.RunSQL SQLIncr
    DoCmd.SetWarnings True 'reimposta gli avvisi di access, IMPORTANTE
Exit_Comando80_Click:
    Exit Sub
Err_Comando80_Click:
    MsgBox Err.Description
    Resume Exit_Comando80_Click
End Sub
------------------------
ho stampato un paio di fogli ma non ho visto alcun incremento
nel campo della Tabella...
come mai ???


title: Contatore di stampa ... si può...

text:
Questa era la mia idea.
Ho una tebella conta_stampe
> Private Sub Comando11_Click()
> On Error GoTo Err_Comando80_Click
    Dim Miorst As DAO.Recordset
    dim pippo as string

    pippo = "tuoreport"

for i = 0 to me.quantenevuoi
    docmd.openreport pippo etc.....
next
    Set Miorst = CurrentDb.OpenRecordset("conta_stampe")
    Miorst.AddNew
    Miorst!quantecacchio = me.quantenevuoi
    Miorst![quandolhaistampato] = now
    Miorst.Update
    Miorst.Close

    Set Miorst = Nothing

 Exit_Comando80_Click:
     Exit Sub
 Err_Comando80_Click:
     MsgBox Err.Description
     Resume Exit_Comando80_Click
 End Sub
cos' hai anche la pprogressione delle stampe
MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Contatore di stampa ... si può...

text:
" SuperPippo®" <ik0qddT...@TOGLISPAMlibero.it> ha scritto nel messaggio
news:3GdPa.162167$Ny5.4...@twister2.libero.it...
> yQy wrote:
> > On Thu, 10 Jul 2003 11:31:13 GMT, yQy <
fabrizi...@tin.it
> wrote:
> >
> > Correzione alla stringa SQL
> -------------------
> Ciao.. ho provato la tua routine... ecco il codice...
>
> Private Sub Comando11_Click()
> On Error GoTo Err_Comando80_Click
>     Dim stDocName As String
>     stDocName = "Stampa Sottocodici"
>     DoCmd.OpenReport stDocName, acNormal
>     Dim SQLIncr As String
>     Dim Cont As Variant
>     Dim NuovoCont As Integer
>     Cont = DLookup("[NumStampe]", "ContaStampe")
Questo lo eviterei solo per purismo.
E' un accesso ulteriore alla tabella che non serve.
>     If IsNull(Cont) Then
>       NuovoCont = 1
>     Else
>       NuovoCont = Cont + 1
>     End If
> SQLIncr = "UPDATE ContaStampe Set NumStampe='" & NuovoCont & "'"
> ------------------------
> ho stampato un paio di fogli ma non ho visto alcun incremento
> nel campo della Tabella...
> come mai ???
Perchè tutto prevedeva che nella tabella già ci fosse un record
inizializzato a 1 la prima volta.
Se tu invece usi la tecnica del isnull sulla dlookup, devi anche cambiare la
query, che sarà di accodamento di un record con valore 1.
Antonio


title: Contatore di stampa ... si può...

text:
Antonio Biso wrote:
> " SuperPippo®" <ik0qddT...@TOGLISPAMlibero.it> ha scritto nel
>
> Perchè tutto prevedeva che nella tabella già ci fosse un record
> inizializzato a 1 la prima volta.
> Se tu invece usi la tecnica del isnull sulla dlookup, devi anche
> cambiare la query, che sarà di accodamento di un record con valore 1.
-------------
Ok... allora procediamo con ordine....
ho tolto il codice che tu dicevi era in eccesso ...
ho fatto la query di accodamento e comincia da 1...
la stampa funziona ma la tabella viene aggiornata
inserendo sempre un numero uno in maniera progressiva
mentre mi servirebbe che il numero si sommi a quello precedente...
il massimo della perfezione sublime sarebbe........
magari con un campo data nella tabella...
tipo...          data          Stampa
             10/07/2003   -    15
etc. etc...
cmq.. se è troppo complicato lasciamo perdere...
inoltre
e mi esce un errore che dice...
"Istruzione SQL non valida. Previsto Delete, Insert, Select
Update...
il codice SQL è :
INSERT INTO ContaStampe ( NumStampe )
SELECT ContaStampe.NumStampe
FROM ContaStampe;
mentre il codice utilizzato è...
Private Sub Comando11_Click()
On Error GoTo Err_Comando80_Click
    Dim stDocName As String
    stDocName = "Stampa Sottocodici"
    DoCmd.OpenReport stDocName, acNormal
    Dim SQLIncr As String
    Dim Cont As Variant
    Dim NuovoCont As Integer
    Cont = DLookup("[NumStampe]", "ContaStampe")
    DoCmd.SetWarnings False 'evita il messaggio verranno inseriti..
    DoCmd.RunSQL SQLIncr
    DoCmd.SetWarnings True 'reimposta gli avvisi di access, IMPORTANTE
Exit_Comando80_Click:
    Exit Sub
Err_Comando80_Click:
    MsgBox Err.Description
    Resume Exit_Comando80_Click
End Sub
----------------------
ciao...


title: Contatore di stampa ... si può...

text:


In questo modo inserisci ogni volta un record...quindi e' naturale che
ti trovi tanti record con valore 1 o 2...
Devi fare la prima volta INSERT se non c'e' nulla nel
campo..altrimento UPDATE il valore di quel campo.
Quindi:
Il comando80 e' il pulsante di stampa ovviamente eh !!!!!
-----------------------------
Provate Sub Comando80_Click()
On Error GoTo Err_Comando80_Click
Dim stDocName As String
stDocName = "Stampa Sottocodici"
Dim RS as Recordset
Dim DB as Database
Dim Cont as Integer
Dim SQL as String
Dim SQLi as String
SQL ="SELECT NumStampe FROM ContaStampe"
Set DB = Applicaiton.CurrentDB
Set RS = db.OpenRecordset(SQL)
'Se non trova nessun conteggio, cioe' e' nullo o Zero
'allora fa questo
If RS.Eof AND rs.bof Then
  DoCmd.OpenReport stDocName, acNormal
  Cont = 1
  SQLi = "INSERT INTO ContaStampe(NumStampe) VALUES('" & Cont & "')"
  Docmd.RunSQL SQLi
'Altrimenti il campo contatore ha un valore
'e lo incrementa di 1
Else
  DoCmd.OpenReport stDocName, acNormal
  Cont = RS("NumStampe") + 1
  SQLi = "UPDATE ContaStampe Set NumStampe='" & Cont & "'"
  DoCmd.RunSQL SQLi
End If
Exit_Comando80_Click:
    Exit Sub
Err_Comando80_Click:
    MsgBox Err.Description
    Resume Exit_Comando80_Click
End Sub
---------------------------------
>ciao...
Ciao :)