text:
La tua soluzione in effetti non è male ma così facendo non riesco ad
impostare la mia form principale a maschere continue (se inserisco nel corpo
sotto la mia riga riepilogo saldo scadenza la subform ............)  cosa
che mi serve per rendere la maschera funzionale ..........
penso quindi che sia meglio provare la seconda strada .........sono quindi a
chiederti se per cortesia, puoi dirmi la sintassi vb per assegnare i campi
master e a quale evento mi conviene legarla?
Come ti sarai accorto sono ancora alle prime armi, spero di riuscire ad
imparare qualcosa prima di cadere in depressione ed abbandonare, scherzi a
parte, hai qualche libro su vb per access da consigliarmi?
Grazie ancora ciao
Stefano
"Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:9e75bb59b768fcd2cc...@mygate.mailgate.org...



title: passare un parametro ad una sottomaschera

text:
"Alfabex" <
alf...@libero.it
> ha scritto nel messaggio
news:09pAa.33733$Ny5.1...@twister2.libero.it...
> La tua soluzione in effetti non è male ma così facendo non riesco ad
> impostare la mia form principale a maschere continue (se inserisco nel
corpo
> sotto la mia riga riepilogo saldo scadenza la subform ............)  cosa
> che mi serve per rendere la maschera funzionale ..........
> penso quindi che sia meglio provare la seconda strada .........sono quindi
a
> chiederti se per cortesia, puoi dirmi la sintassi vb per assegnare i campi
> master e a quale evento mi conviene legarla?
>
> Come ti sarai accorto sono ancora alle prime armi, spero di riuscire ad
> imparare qualcosa prima di cadere in depressione ed abbandonare, scherzi a
> parte, hai qualche libro su vb per access da consigliarmi?
>
> Grazie ancora ciao
> Stefano
>
C'è sostanzialmente una contraddizione in quello che hai chiesto.......!
Poichè parlavi di SottoMaschera era implicito lavorassi con Form-SubForm
e non con Form in visualizzazione Continue.......!!!!
Ovviamente questo non ti permette di realizzare la struttura così come ti
avevo indicato.
A questo punto devi sfruttare la Condizione Where nella funzione
Docmd.OpenForm
Se vedi nell'esempio c'è la possibilità di filtrare all'apertura della Form,
che non è una
SottoMaschera come erroneamente l'hai chiamata, ma una Maschera con campi
dipendenti.
Prova a vedere l'esempio nell'help di Openform, eventualmente se non riesci
ad adattarlo
lo vediamo................!!!
P.S. Credo ci sia Biso in ferie, ma in questo NG c'è l'abitudine di
rispondere successivamente
al Post precedente, per dare più fluidità alla cronologia del POST.
Ciao.
@Alex.


author: Alfabex

text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:1wsAa.34347$Ny5.1...@twister2.libero.it...

Scusami, ho provato e riprovato, ma non riesco a passarlo sto' parametro
.......
ho provato ad impostarlo sull'evento 'su apertura' della mia maschera
dipendentecon questa condizione:
Private Sub Form_Open(Cancel As Integer)
[id_scadenza] = Forms![Registro_pagamenti_1]![id_scadenza]
End Sub
e mi segnala <impossibile trovare la maschera 'Registro_pagamenti_1'>
.


text:
"Alfabex" <
alf...@libero.it
> ha scritto nel messaggio
news:5XvAa.35159$Ny5.1...@twister2.libero.it...
[CUT]
> >
> Scusami, ho provato e riprovato, ma non riesco a passarlo sto' parametro
> .......
> ho provato ad impostarlo sull'evento 'su apertura' della mia maschera
> dipendentecon questa condizione:
> Private Sub Form_Open(Cancel As Integer)
> [id_scadenza] = Forms![Registro_pagamenti_1]![id_scadenza]
> End Sub
>
> e mi segnala <impossibile trovare la maschera 'Registro_pagamenti_1'>
>
Allora per aprire la Form filtrando i dati dalla Principale devi usare come
ti accennavo il
Metodo OpenForm:
DoCmd.OpenForm "NomeFormDaAPRIRE", , ,"id_scadenza = " & Me.id_scadenza
In modo automatico viene aperta la Form chiamata ?????? e filtrata in base
all'id_scadenza
del RECORD CORRENTE che coincide con la posizione del Pulsante.
@Alex.


text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:cYLAa.37178$lK4.1...@twister1.libero.it...

Grazie, adesso si apre correttamente, filtrando i dati in base al mio
Id_scadenza;
se posso ti chiedo un'ulteriore cosa ............... come faccio a
predefinire l'id_scadenza nei nuovi record che aggiungo? (attualmente, mi
vengono si filtrate le scadenze inserite, ma per i nuovi record mi viene
richiesto di inserirlo manualmente)
[scusa se approfitto della tua consulenza, ma finire e rendere ottimale
questa maschera è molto importante per me ........]


title: assegnare valore 1 a campi

author: Mike Dens

text:
ciao...ho questo dilemma: ho 2 tabelle, la A e la B; nella tab B ho valori
estratti dalla tabella A. quel che vorrei fare è 'evidenziare' nella tab A
tramite l'inserimento di un valore numerico i valori estratti in tab B.
Grazie per chi saprà darmi dei suggerimenti!!!
ciao
mike
--
Posted from
na.cache.garr.it
 [193.206.141.36]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: assegnare valore 1 a campi

author: Silvio Berruti

text:
"Mike Dens" <
ra...@tiscalinet.it
> ha scritto nel messaggio
news:6b612b43ea4b44ed75...@mygate.mailgate.org...
> ciao...ho questo dilemma: ho 2 tabelle, la A e la B; nella tab B ho valori
> estratti dalla tabella A. quel che vorrei fare č 'evidenziare' nella tab A
> tramite l'inserimento di un valore numerico i valori estratti in tab B.
Alla tua domanda rimango perplesso: nel mio modo di ragionare, la tabella B
non dovrebbe esistere.
Puoi aggiungere un campo Sě/No nella tabella A e gestirti una virtuale
Tabella B con una query di selezione.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: assegnare valore 1 a campi

text:
"Silvio Berruti" <
sber...@libero.it
> wrote in message
news:yCEq7.12602$Lp6.4...@news.infostrada.it...

-----------------------------------------------
forse mi son spiegato male: l'estrazione dei valori da tab A viene fatta con
excel ottenendo la tab B...io dei valori contenuti in tab B voglio poter
associare un
nuovo valore in tab A in modo tale da poter sapere quali valori escludere per
una
nuova estrazione..spero di esser stato piů chiaro su quel che deisidero
fare...sempre che sia possibile!!
ciao



title: assegnare valore 1 a campi

author: Antonio Biso

text:
Mike Dens <
ra...@tiscalinet.it
> wrote in message
d1d547ef5e09a7a2e6...@mygate.mailgate.org...

Senza valori aggiuntivi, se tu leghi la tabella B con la A sui campi chiave,
metti il join dalla tabella A alla B, selezioni tutti i record di A e metti
come criterio su uno dei campi della tabella B che sicuramente deve
contenere un valore "is null", la query ti restituisce solo i record di A
che non sono contenuti in B. A quel punto potresti riaccodarli in B o farci
quello che ti pare!!!
Antonio


title: assegnare valore 1 a campi

text:
"Mike Dens" <
ra...@tiscalinet.it
> ha scritto nel messaggio
news:d1d547ef5e09a7a2e6...@mygate.mailgate.org...
> -----------------------------------------------
> forse mi son spiegato male: l'estrazione dei valori da tab A viene fatta
con
> excel ottenendo la tab B...io dei valori contenuti in tab B voglio poter
> associare un
> nuovo valore in tab A in modo tale da poter sapere quali valori escludere
per
> una
> nuova estrazione..spero di esser stato più chiaro su quel che deisidero
> fare...sempre che sia possibile!!
Non mi è chiaro perché fai l'estrazione con Excel se hai una tabella in
Access.
Se mi spieghi meglio, forse riesco a capire l'obiettivo e a darti una
risposta.



title: assegnare valore 1 a campi

text:
"Silvio Berruti" <
sber...@libero.it
> wrote in message
news:2BIq7.14341$Lp6.4...@news.infostrada.it...
X Silvio
-------------------------------------------------
dunque Silvio.il punto è questo.....da excel ho una tabella A da cui estraggo
dei valori ( tab B ).
Non sapendo come fare ad evidenziare in excel i valori estratti in modo
automatico
ho pensato ad access.
Quindi ho importato la tab A ( tutti i valori )ed una tab B( costituita dai
valori estratti tramite excel).
Quel che vorrei è poter evidenziare in tab A tramite l'inserimento di un nuovo
campo e quindi l'assegnazione di un valore, per es. 1, tutti i valori di tab B,
in modo tale che una volta esportata la tab A in excel, sapere im modo
immediato
i valori da escludere per una ulteriore estrazione.
ciao e grazie MIKE
--
Posted from
pi1-257.dialup.tiscalinet.it
 [62.11.1.1]



title: assegnare valore 1 a campi

text:
"Mike Dens" <
ra...@tiscalinet.it
> ha scritto nel messaggio
news:1f3603143c1919cd7f...@mygate.mailgate.org...
> "Silvio Berruti" <
sber...@libero.it
> wrote in message
> news:2BIq7.14341$Lp6.4...@news.infostrada.it...
>
> X Silvio
> -------------------------------------------------
> dunque Silvio.il punto è questo.....da excel ho una tabella A da cui
estraggo
> dei valori ( tab B ).
> Non sapendo come fare ad evidenziare in excel i valori estratti in modo
> automatico
> ho pensato ad access.
> Quindi ho importato la tab A ( tutti i valori )ed una tab B( costituita
dai
> valori estratti tramite excel).
> Quel che vorrei è poter evidenziare in tab A tramite l'inserimento di un
nuovo
> campo e quindi l'assegnazione di un valore, per es. 1, tutti i valori di
tab B,
> in modo tale che una volta esportata la tab A in excel, sapere im modo
> immediato
> i valori da escludere per una ulteriore estrazione.
Da Access invece di importare la tab A da Excel, allegala.
Nella tab A in Excel aggiungi una colonna (se vuoi nascondila) con valore 0
in tutti i record.
Da Access, quando crei la tab B (e mi sembra sempre inutile farla, basta la
query), nella tab A aggiorna con una query il nuovo campo al valore -1.
Inoltre, quando crei la tab B aggiungi come criterio che il valore del nuovo
campo sia =0 in modo da escludere i record già selezionati.



title: assegnare valore 1 a campi

text:
"Mike Dens" <
ra...@tiscalinet.it
> wrote in message
news:6b612b43ea4b44ed75...@mygate.mailgate.org...

-------------------------------------------------------------------------
Ci son riuscito :-) grazie a tutti...P.S. silvio hai ragione la tab B non
serve!!!!



title: EXPORT QUERY

author: Morfeus

text:
Ciao Ragazzi,
ho un recorset (query) e vorrei esportare il risultato in excell...ma nn mi
ricordo come si fà... potete aiutarmi ?
Non posso replicare la qry (da vba) in una qry fisica xchè ho troppe
condizioni....
che istruzione posso usare ?
grazie mille ciao


title: EXPORT QUERY

author: Roberto da casa

text:
"Morfeus" <
luca_c...@hotmail.com
> ha scritto nel messaggio
news:vE_Ff.72319$av6....@tornado.fastwebnet.it...

Prova a registrare i dati del recordset in unaq tabella di comodo e poi
esporta quella, naturalmente dopo puoi eliminare la tabella di comodo.
>
> grazie mille ciao
Prego
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: CONCORSO "COMESI FA"

author: Govardo Libero

text:
Il concorso consiste nel trovare il metodo più elegante per calcolare i
valori progressivi in un campo di valori.
Es. saldo progressivo del campo saldo.
Sui report nessun problema ma con i form o le query?
In palio il titolo di "access.little.champion" e una passeggiata con la
sorella di missItalia.


title: CONCORSO "COMESI FA"

author: Gianfry

text:
Govardo Libero <
gov...@libero.it
> wrote in message
9pubau$bhv$1...@pegasus.tiscalinet.it...

A parte che la soluzione è gia presente da qualche parte nel 'Sito Comune',
io comunque l'ho in un certo senso 'perfezionata' aggiungendo la possibilità
di avere nel 1° record della query anche la partenza comprensiva del saldo
parziale degli eventuali record precedenti che non rientrano nei criteri
della query.
Per spiegarmi meglio, in una query che presenti i movimenti progressivi di
un determinato articolo nell'arco di un anno, posso partire da giugno
iniziando con il saldo aggiornato a fine maggio.
se a qualcuno interessa...


title: CONCORSO "COMESI FA"

text:
Certo che interessa, ricordati del premio!
"Gianfry" <
gianf...@vardanega.com
> ha scritto nel messaggio
news:9pudb0$4cr$1...@lacerta.tiscalinet.it...



title: CONCORSO "COMESI FA"

author: ferdiprimo

text:
CUT|
> A parte che la soluzione è gia presente da qualche parte nel 'Sito
Comune',
> io comunque l'ho in un certo senso 'perfezionata' aggiungendo la
possibilità
> di avere nel 1° record della query anche la partenza comprensiva del saldo
> parziale degli eventuali record precedenti che non rientrano nei criteri
> della query.
> Per spiegarmi meglio, in una query che presenti i movimenti progressivi di
> un determinato articolo nell'arco di un anno, posso partire da giugno
> iniziando con il saldo aggiornato a fine maggio.
>
> se a qualcuno interessa...
> A me interessa ti dispiace postarlo.
Grazie Ferdinando
>


title: CONCORSO "COMESI FA"

text:
Gianfry <
gianf...@vardanega.com
> wrote in message
9pudb0$4cr$1...@lacerta.tiscalinet.it...

Abbiate pazienza ancora un pò...
devo limare alcune cose,
appena pronto lo posto e vedrò di inserirlo anche nel Sito Comune


title: CONCORSO "COMESI FA"

text:
Govardo Libero <
gov...@libero.it
> wrote in message
9pukcl$6j5$1...@lacerta.tiscalinet.it...
> Certo che interessa, ricordati del premio!
Concorso come si fa a quotare in questa maniera obbrbbriosa: tu vinci
sicuramente!!!
Antonio


title: Oracle, ODBC, schema, chiavi

author: Lucio Munazio Planco

text:
Una applicazione Access prende alcune tabelle da un database Oracle 9.2,
tramite i driver ODBC di oracle.

Il database Oracle ha uno schema PROD "di produzione", e uno schema
INTERR di sola interrogazione, read only. La mia applicazione, per
sicurezza, dovrebbe usare solo lo schema di interrogazione, read only.

Succede questo:

se io collego le tabelle usando lo schema di produzione (login PROD e
password di produzione), quando seleziono le tabelle che mi interessano,
tali tabelle mi vengono collegate direttamente senza altre domande. In
particolare se vado a esaminare la struttura delle tabelle, ci trovo gia'
marcate in grassetto (= chiavi) le colonne decise dal database oracle.

Se invece io collego le tabelle usando lo schema di interrogazione (login
INTERR e password di interrogazione), quando seleziono le tabelle, Access
mi chiede di decidere io, tabella per tabella, le chiavi da assegnare, e
le chiavi possono differire da quelle presenti nello schema di produzione.

Domande:

1) perche' ODBC mi permette di assegnare delle chiavi a scelta, diverse
da quelle native di Oracle?

2) se le chiavi sono diverse, fra la tabella nativa di Oracle e le
tabelle collegate, chi decide l'ordinamento effettivo delle righe?

3) come mai due schemi dello stesso database (uno schema r/w e l'altro
solo r) hanno comportamenti diversi (uno mi dice gia' le chiavi, l'altro
mi chiede di deciderle io)?

4) e' corretto dire che con ODBC prima si legge tutta la tabella del
database oracle (mettendola nella ram), e poi Access fa le query sulla
copia in memoria delle tabelle?

grazie


title: Oracle, ODBC, schema, chiavi

author: Paolo opg

text:
Lucio Munazio Planco <
pla...@alice.it
> wrote in
news:jfrp25$kmi$
1...@tdi.cu.mi.it
:

1) odbc chiede a te utente perche' non riceve l'informazione dal
sottostante driver e quindi non sa quali siano le chiavi native di
oracle

2) la chiave e' una cosa, l'ordinamento un'altra e non necessariamente
sono collegate (spesso lo sono ma non e' obbligatorio). access di solito
ti mostra le righe come gli arrivano, a meno che tu non abbia impostato
un ordinamento nella maschera.

3) devi chiederlo a chi ha scritto il driver odbc che utilizzi

4) devi chiederlo a chi ha scritto il driver odbc che utilizzi

cosa dice la kb oracle al riguardo?

--
Paolo opg

BE AWARE that this post uses a fake reply-to address
to contact me write to:
janickg ( at ) hotmail ( dot ) com
--


title: Oracle, ODBC, schema, chiavi

text:
On day Fri, 27 Jan 2012 07:47:31 +0000, Paolo opg <
spamc...@tiscali.it
>
wrote:

> 1) odbc chiede a te utente perche' non riceve l'informazione dal
> sottostante driver e quindi non sa quali siano le chiavi native di
> oracle

Evidentemente la vista (schema) di interrogazione oracle e' incompleta o
e' malconfigurata. La vista di produzione le chiavi le passa.

> sono collegate (spesso lo sono ma non e' obbligatorio). access di solito
> ti mostra le righe come gli arrivano, a meno che tu non abbia impostato
> un ordinamento nella maschera.

A quanto capisco, la chiave locale di Access ha significato solo se
esiste una tabella locale (popolata collegando via ODBC), e questa
tabella-copia puo' avere usanze locali diverse dalla chiave nativa di
Oracle. nella mia comprensione di cio' che succede, questo implica che la
tabella oracle collegata da Access prima venga caricata da qualche parte,
e dopo venga riordinata secondo le chiavi locali impostate da Access.

> 3) devi chiederlo a chi ha scritto il driver odbc che utilizzi
> 4) devi chiederlo a chi ha scritto il driver odbc che utilizzi
> cosa dice la kb oracle al riguardo?

Sono gli ODBC forniti da Oracle 9.2,

vedro' se nella knowledge base trovo di descrizione di cosa succede.

Purtroppo mi trovo delle query che a volte vanno come una scheggia e
altre volte danno errore di Runtime dicendo che non e' stato possibile
elaborare l'informazione. Non capisco dov'e' l'inghippo e non so neanche
dove ottimizzare, spesso faccio delle query empiriche scaricando delle
tabelle locali temporanee altrimenti la query (che sintatticamente e' ok)
si impianta.

Molto dei problemi li ho con i campi data (selezione per data, peggio
ancora con criteri del tipo  "> date()-3"

grazie ciao


title: Chi aggiorna prima???

author: Stefano Ferrari

text:
Come faccio a gestire l' upgrade di una tabella condivisa ad 2 PC??
Se sono sul PC(0) e dò l'input per scrivere 3 record di cui gestisco la
chiave (numero precedente + 1) e nel frattempo il PC(1) si inserisce e cerca
di scrivere 3 record  (che di fatto hanno la stessa chiave dei miei), come
faccio ad impedirgli la scrittura almeno sino a quando non ho finito io ????
Grazie a tutti
Stefano


title: Chi aggiorna prima???

author: Sib dal portatile

text:
"Stefano Ferrari" <
stefa...@libero.it
> ha scritto nel messaggio
news:E27X6.60856$Cq5.5...@news.infostrada.it...

Il problema non e' impedire la scrittura, tanto Access non te lo fa fare.
Semmai potresti avere il problema di non fare reinserire i dati daccapo
all'utente quando l'aggiornamento non gli va a buon fine.
Sib
--


title: Intestazione Pagina Report

author: Peter

text:
In un report fronte/retro è possibile alternare la stampa dell'intestazione
pagina (una pagina si e la seguente no).
Grazie


title: Intestazione Pagina Report

author: Bruno Campanini

text:
Peter explained :
> In un report fronte/retro è possibile alternare la stampa dell'intestazione
> pagina (una pagina si e la seguente no).
> Grazie

Buono a sapersi.

Bruno


title: automatizzare l'inserimento dati

author: clavius

text:
Salve a tutti, vorrei creare un semplice database in Access 2003 per
eseguire ad esempio dei preventivi. Vorrei crearlo esattamente (o
quasi) come un programma che ho per le mani fatto con FileMaker5.
Ora, con FileMaker non ne ho mai avuto l’occasione nemmeno di usarlo,
mentre con access ho una
minima domestichezza, d’altra parte, non ne vengo a capo nel cercare
di far eseguire l’operazione che vado a descrivervi:
(a questo link vi è uno screenshot del programma fatto con FileMaker,
ecco, io vorrei fare una cosa simile
http://www.sbs114.com/preventivo.jpg
)
Praticamente, vorrei avere una maschera dove sia possibile inserire le
prime parole di un elenco
(o selezionabili da una lista) di tipi di lavori (vedi campo
Descrizione) ed automaticamente almeno in altre 2 caselle compaia il
codice relativo del lavoro selezionato ed il prezzo unitario,
ovviamente immagino di creare daprima una tabella dove ho già inserito
i vari lavori,codice e prezzi.
Poi il resto penso di riuscirci da solo, cioè far calcolare l‘importo
in base alla quantità dei lavori scelti
e derivarne il subtotale.
Poi ultima cosa ma non meno importante, questa scelta dovrebbe essere
possibile in diverse righe
sottostanti allo stesso modo in quanto il preventivo logicamente
potrebbe prevedere altri lavori aggiuntivi o ad esempio i materiali
usati.
Qualcuno può darmi una mano? Grazie mille!


title: automatizzare l'inserimento dati

author: CIDI

text:
"clavius" <
in...@sbs114.com
> ha scritto nel messaggio
news:72c8b9d1-2b20-4a3c...@w18g2000vbe.googlegroups.com...






ti servono almeno due tabelle:
1) Anagrafica cliente
2) Lavorazioni
tralascio la struttura dell'anagrafica perchè semplice.
TabLavorazioni
IDLavorazione            contatore
Lavorazione                testo
Importo                     Valuta
quindi nella maschera che hai postato, avrà come origine record
la tabLavorazioni. cambia la casella di testo Lavorazione con una
casella combinata cboLavorazione (puoi usare l'autocomposizione)
la cui origine riga abbia i tre campi
della tabella e su evento dopo Aggiornamento della combo:
me.Importo = Me.cboLavorazione.Column(2)
la combo deve avere 3 colonne e la larghezza  0cm;2cm;2cm
per farti un'idea, migliore, apri il db di esempio Northwind e guarda la
struttura della maschera Ordini.
ciao
Daniele


title: automatizzare l'inserimento dati

text:
Ciao Daniele, scusa il ritardo ma ho avuto impegni inderogabili.
Ho provato ma purtroppo non funge.
Forse non mi sono spiegato bene nel mio post, eppure non saprei
che altro scrivere per spiegare ciò che vorrei realizzare:
“vorrei avere una maschera dove sia possibile inserire le
prime parole di un elenco
(o selezionabili da una lista) di tipi di lavori (vedi campo
Descrizione) ed automaticamente almeno in altre 2 caselle compaia il
codice relativo del lavoro selezionato ed il prezzo unitario”.
La cosa credo sia più semplice di quanto posso aver erroneamente
illustrato,
quindi questo è il link ad uno screenshot della semplice maschera
che stò realizzando
www.sbs114.com/maschera.jpg


title: automatizzare l'inserimento dati

text:
"clavius" <
in...@sbs114.com
> ha scritto nel messaggio
news:025c99d4-be65-4ead...@p11g2000vbn.googlegroups.com...



Infatti è molto semplice...
ma questo codice e prezzo ce l'hai in qualche tabella?...
ti ho preparato un demo che puoi scaricare da qui:
http://cid-a50bb504f8a0cf6d.office.live.com/browse.aspx/Pubblica?uc=1
vedi se riesci ad adattarlo alle tue esigenze.
inoltre puoi anche aprire il db di esempio, che hai nella tua copia di
access,
Northwind e vedere la struttura
ciao
Daniele


title: automatizzare l'inserimento dati

text:
Grazie Daniele, sei molto gentile!!! e mi hai mostrato anche troppo!
infatti, forse è proprio ciò che mi fa perdere :-)
Comunque quello che mi hai mandato, è quasi esattamente ciò che voglio
fare, d'altra parte ci stò provando a replicare i tuoi esempi
sul mio db, ma niente da fare! lo so, immagino sia semplice, in fondo
per ora mi serve solo
fare in modo che selezionando la “Descrizione” del lavoro si auto
compilano anche i campi “N°Art”,
”PrezzoUnitario” e ovviamente “ID” (contatore), poi al resto ci
penserò dopo :-)
Poi parlando del codice VB che hai inserito, mi sembra di capire che
sia ininfluente allo scopo sopracitato vero?
Pensa che 10 anni fa ho studiato parecchio su access (e visual basic),
ho diversi libri ed ho realizzato almeno 6 o 7 db per gestione e
stampa di fatture per liberi professionisti, ma ora sono veramente
arrugginito!, pensavo fosse proprio come andare in bicicletta, invece
mi son dimenticato molto.
PS: ma l’hai vista l’immagine che ti ho postato precedentemente?
quella della maschera?
       forse il link era errato! beh, per esibirti meglio la mia
situazione, ti posto un immagine
       con la tabella, la query e la maschera:
http://www.sbs114.com/db.jpg
Grazie ancora.


title: automatizzare l'inserimento dati

text:
"clavius" <
in...@sbs114.com
> ha scritto nel messaggio
news:786eb3a1-4aa2-4668...@22g2000prx.googlegroups.com...



contento tu....allora prima di tutto ti consiglio di cambiare il nome
Descrizione perchè è una parola riservata di access. chiamala cboDescrizione
metti su evento dopo aggiornamento:
me.PrezzoUnitario = Me.cboDescrizione.Column(1)
e modifica queste proprietà:
numero colonne = 2
larghezza colonne 0cm;2cm
spero sia quanto volevi
ciao
Daniele


title: automatizzare l'inserimento dati

text:
Mi spiace ma non funziona nulla e per di più mi esce il messaggio che
non trova la macro "me"  !!!


title: automatizzare l'inserimento dati

text:
"clavius" <
in...@sbs114.com
> ha scritto nel messaggio
news:f21eb764-1b89-4142...@f20g2000yqi.googlegroups.com...
Mi spiace ma non funziona nulla e per di più mi esce il messaggio che
non trova la macro "me"  !!!
ma  soprattutto, non lasciando parte di quoting significativo, non si
capisce a cosa rispondi
Antonio


title: automatizzare l'inserimento dati

text:
"clavius" <
in...@sbs114.com
> ha scritto nel messaggio
news:f21eb764-1b89-4142...@f20g2000yqi.googlegroups.com...
Mi spiace ma non funziona nulla e per di più mi esce il messaggio che
non trova la macro "me"  !!!
in visualizzazione struttura della maschera
seleziona la casella di testo cboDescrizione
scheda evento
cerca dopo aggiornamento>clic sulla linguetta a dx
scegli: routine evento> clic sui puntini a dx
si aprirà l'editor di VBA con qualcosa di simile:
Private Sub cboDescrizione_AfterUpdate()
qua inserisci:
me.PrezzoUnitario = Me.cboDescrizione.Column(1)
visto che non riesco a farti capire come fare,
se vuoi mandami il minimo possibile del tuo db che ci vedo
come modificare. al mio indirizzo di posta devi togliere:
NO prima di @ e SPAM dopo
ciao
Daniele
come ti è già stato detto lascia parte del post precedente
attinente alla discussione. qua trovi indicazioni sul quoting:
http://wiki.news.nic.it/QuotarBene


title: automatizzare l'inserimento dati

text:
On 27 Nov, 14:34, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "clavius" <
i...@sbs114.com
> ha scritto nel messaggionews:f21eb764-1b89-4142...@f20g2000yqi.googlegroups.com...
> Mi spiace ma non funziona nulla e per di più mi esce il messaggio che
> non trova la macro "me"  !!!
>
> in visualizzazione struttura della maschera
> seleziona la casella di testo cboDescrizione
> scheda evento
> cerca dopo aggiornamento>clic sulla linguetta a dx
> scegli: routine evento> clic sui puntini a dx
> si aprirà l'editor di VBA con qualcosa di simile:
> Private Sub cboDescrizione_AfterUpdate()
> qua inserisci:
> me.PrezzoUnitario = Me.cboDescrizione.Column(1)
lo so che non c'è molto da capire, tu CIDI sei stato molto chiaro, ma
stà di fatto che "l'automatizzazione dell'inserimento dati" non mi
funziona.
> visto che non riesco a farti capire come fare,
> se vuoi mandami il minimo possibile del tuo db che ci vedo
> come modificare. al mio indirizzo di posta devi togliere:
> NO prima di @ e SPAM dopo
Ti invio quindi il file.
> ciao
> Daniele
>
> come ti è già stato detto lascia parte del post precedente
> attinente alla discussione. qua trovi indicazioni sul quoting:
http://wiki.news.nic.it/QuotarBene
Scusate per il NON quoting! non mi ci sono mai abituato, mi sembra di
incasinare ancor di piu le domande/risposte! comunque da ora lo farò.


title: Scorrere qry origine report

text:
Ciao a tutti,
sono abituata ad usare l'evento 'Nodata' sui report quando l'origine
(query) non contiene record da stampare.
In questo caso la mia query (costruita sull'evento click di un pulsante in
una form) non è definitiva ma deve essere scorsa per effettuare delle
verifiche sui record (attuale e precedente) e solo in presenza di verifica
corretta il record è da stampare.
Come posso procedere per non stampare inutilmente un report vuoto in caso
che nessuno dei record soddisfi le mie condizioni?
In pratica:
Rec1  cod,orainizio,orafine
Rec2  cod,orainizio,orafine
Se orainizio di Rec2= orafine di Rec1 devo stampare la riga altrimenti no.
La mia idea era scorrere normalmente il mio recordset facendo le
verifiche, ma non so poi che origine record dare al mio report.
Qualcuno può suggerirmi qualcosa?
Nicoletta
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Scorrere qry origine report

author: Pablitomf

text:
"Nicoletta2" <
frt...@virgilio.it
> ha scritto nel messaggio
news:fstcvm$m70$1...@news.newsland.it...
> Ciao a tutti,
>
> sono abituata ad usare l'evento 'Nodata' sui report quando l'origine
> (query) non contiene record da stampare.
> In questo caso la mia query (costruita sull'evento click di un pulsante in
> una form) non è definitiva ma deve essere scorsa per effettuare delle
> verifiche sui record (attuale e precedente) e solo in presenza di verifica
> corretta il record è da stampare.
> Come posso procedere per non stampare inutilmente un report vuoto in caso
> che nessuno dei record soddisfi le mie condizioni?
> In pratica:
> Rec1  cod,orainizio,orafine
> Rec2  cod,orainizio,orafine
>
> Se orainizio di Rec2= orafine di Rec1 devo stampare la riga altrimenti no.
>
> La mia idea era scorrere normalmente il mio recordset facendo le
> verifiche, ma non so poi che origine record dare al mio report.
>
> Qualcuno può suggerirmi qualcosa?
>
Dim var1
Dim var2
var1=""
var2=""
Dim db As Dao.Database
Dim rs As Dao.Recordset
Set db= currentdb
Set rs = db.Openrecordset("Select cod, orainizio, orafine from Tua_Tabella")
with rs
    while rs.eof = true then
        if var1="" then
            var1=rs!orafine
        else
            var2=rs!orainizio
        end if
        if var1<>"" and var2<>"" then
            if var2=var1 then
                tuoreport.recordsource = ("Select cod, orainizio, orafine
from Tua_Tabella where cod=" & rs!cod)
                exit sub
        else
            .movenext
        end if
    wend
end with
qualcosa di simile può andare? o ho capito male?


title: Scorrere qry origine report

text:
Pablitomf ha scritto:
> "Nicoletta2" <
frt...@virgilio.it
> ha scritto nel messaggio
> news:fstcvm$m70$1...@news.newsland.it...
> > Ciao a tutti,
> >
> > sono abituata ad usare l'evento 'Nodata' sui report quando l'origine
> > (query) non contiene record da stampare.
> > In questo caso la mia query (costruita sull'evento click di un pulsante in
> > una form) non è definitiva ma deve essere scorsa per effettuare delle
> > verifiche sui record (attuale e precedente) e solo in presenza di verifica
> > corretta il record è da stampare.
> > Come posso procedere per non stampare inutilmente un report vuoto in caso
> > che nessuno dei record soddisfi le mie condizioni?
> > In pratica:
> > Rec1  cod,orainizio,orafine
> > Rec2  cod,orainizio,orafine
> >
> > Se orainizio di Rec2= orafine di Rec1 devo stampare la riga altrimenti no.
> >
> > La mia idea era scorrere normalmente il mio recordset facendo le
> > verifiche, ma non so poi che origine record dare al mio report.
> >
> > Qualcuno può suggerirmi qualcosa?
> >
Credo di non essermi spiegata bene, forse solamente perchè non conosco
bene come il report manipola il recorset di origine.
La mia qry principale estre dei record in base ad un tot di criteri
Scorrendo questi record devo verificare che l'ora di inizio del record 2
sia uguale all'ora di fine del record precedente (che mi sono salvata in
MiaVar); solo al verificarsi di questa condizione il record 2 è da
stampare.
Quindi potrebbe succedere che nessun record soddisfi tale condizione.
La mia prima prova è stata creare il report con origine MiaQry e
nell'evento format del corpo in caso di condizione on rispettata fare un
printsection=false.
Così riuscivo a non stampare nessun record (in caso di condizione non
vera), ma le intestazioni report e pagina purtroppo si.
Altra soluzione sarebbe una tabella temporanea dove scrivere solo i record
che soddisfano le condizioni per poi avere questa tabella come origine del
report.
Ma non vorrei arrivarci per i problemi conosciuti nell'uso di tabelle
temporanee nel db



title: riempimento automatico controlli da valore di altri  controlli

author: Giuseppe

text:
Buongiorno a tutti.
Espongo il mio problema.
Sinora per registrare l'incasso delle fatture, nella sottomaschera inserivo il numero di registrazione della fattura (NProtocollo - formato testo) e i controlli prendevano i dati da una combo.
il codice è:
Dim rs As DAO.Recordset
If IsNull(Me.Nprotocollo) Then Exit Sub
Set rs = CurrentDb.OpenRecordset("select count(NProtocollo)" & _
" from fatturedaincassare where NProtocollo ='" & _
Replace(Me.Nprotocollo, "'", "''") & "'")
If rs.Fields(0) > 0 Then
Me.cbofattura2 = Me.cbofattura2.ItemData(0)
Me.Id = Me.cbofattura2.Column(0)
Me.Cbofattura.Requery
If (Me.Cbofattura.Column(1) = 1) Or (Me.Cbofattura.Column(1) = 10) Then
Me.Nprotocollo = Me.Cbofattura.Column(2)
Me.NDocumento = Me.Cbofattura.Column(4)
Me.datafattura = Me.Cbofattura.Column(6)
ecc.........
Ora con la fattura elettronica ho inserito un nuovo campo IdTipoFattura nella tabella tblfatture.
Per cui vorrei che dopo aver inserito 1 (fatture ordinarie) o 2 (fatture elettroniche) nel controllo IdTipoFattura e dopo aver inserito la data della fattura nei rispettivi controlli, inserendo il numero della fattua (formato numerico) ottengo il medesimo risultato.
Come devo modificare la condizione where su più controlli in formato numerico e formato data?
Grazie in anticipo.
Giuseppe.


title: Trova lo stesso record in un altra maschera

author: Rovena

text:
Ho una maschera con campi "bloccati". Ho un'altra maschera con gli stessi
campi ma non bloccati. Sulla prima maschera c'č un pulsante che apre la
seconda maschera. In pratica se devo modificare dei dati mi č sufficiente
cliccare su questo tasto e fare le opportune modifiche.
Il problema č che se nella maschera "bloccata" sto per esempio sul record 37
e premo il pulsante sarň riportata sulla nuova maschera sbloccata ma al
record 1. E quindi ogni volta dovrň ricercare il record dove ero
precedentemente posizionata.
Ho provato a cercare su sitocomune, ma mi sembra tutto molto complicato.
Spero che esiste un sistema facile per ottenere ciň: forse basta una routine
di poche righe? o c'č ancora un sistema piů facile?
Grazie a quanti vorranno aiutarmi.
Rovena


author: sv

text:
Rovena ha scritto:




Con l'autocomposizione ti crei un pulsante sulla maschera bloccata che ti
apra la maschera non bloccata scegliendo l'opzione "Record specifici da
visualizzare". Generalmente si usa "ID" come legame dei record. Nella
maschera non bloccata utilizza una query come origine che abbia in ID il
criterio di selezione. Esempio:
Se la tua maschera bloccata si chiama MiaBloccata ed ha un campo ID
metterai nell'ID della query origine della maschera sbloccata
"Forms!MiaBloccata!ID!
--
rgrds
SC
> Rovena
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: namor

text:
Rovena ha scritto:

Ti conviene usare sempre la stessa maschera e sbloccare i campi quando ti
serve (vedi sull'help .locked .enabled .allowedits).
Se proprio vuoi usare una seconda maschera la crei con l'autocomposizione,
oppure quando la apri passi in OpenArgs l'ID del record corrente e
nell'evento form_open, con recordsetclone.findfirst e .bookmark ti
posizioni sul record con quell'ID.
Namor
--
namor at inwind punto it



text:
Grazie!!!!
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bphvpf$ct$1...@news.newsland.it...



text:
Rovena ha scritto:
[cut]
> Grazie!!!!
Prego. Perň si scrive DOPO al messaggio originale (quoting).



title: [OT] Internet Explorer ed Outlook Express versione 5.5

author: Roberto dal portatile

text:
Sto adoperando la versione in ogetto di IE e OE.
Quanto a IE la novità più significativa mi sembra essere l'anteprima di
stampa; mi sembra inoltre mooolto più stabile della versione precedente. Non
esiste la versione in italiano, ma solo quella in inglese.
Quanto a OE, finalmente la sincronizzazione con i NG sembra funzionare bene;
ovvero non mi succede più che segnali che non ha effettuato il download di
nn messaggi, come avveniva nella versione precedente. Anche lui solo in
inglese (speriamo solo per ora :-)) ).
Roberto


author: lbo dal portatile

text:
>Quanto a OE, finalmente la sincronizzazione con i NG sembra funzionare bene;
usa ancora il fuori standard R: invece che Re: nelle repliche?
(rispondi a questo messaggio che vediamo).
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


text:
Gią la versione 5.01 usava Re: ; io per ora lo ho installato solo sul
portatile, č per questo che quando rispondo dal PC di casa compare ancora la
R:
Fra l'altro la versione che sto adoperando in questo momento č quella in
italiano.
Roberto
"lbo dal portatile" <
l...@NOSPAM.blunet.it
> ha scritto nel messaggio
news:397c41a0...@news.interbusiness.it...



author: Giovanni Albertone

text:
On Mon, 24 Jul 2000 17:57:33 GMT,
l...@NOSPAM.blunet.it
 (lbo dal
portatile) wrote:
>usa ancora il fuori standard R: invece che Re: nelle repliche?
Quello e' un problema per la sola versione italiana, che mi sembra non
sia ancora uscita.
Ciao,
Giovanni
---
Inferno e paradiso mi sembrano sproporzionati. Le azioni degli
uomini non meritano tanto - JLBorges


text:
"Giovanni Albertone" <
giovanni_...@hotmail.com
> ha scritto nel
messaggio news:0ufrnskkdjp7rr2ma...@4ax.com...
> On Mon, 24 Jul 2000 17:57:33 GMT,
l...@NOSPAM.blunet.it
 (lbo dal
> portatile) wrote:
>
> >usa ancora il fuori standard R: invece che Re: nelle repliche?
>
> Quello e' un problema per la sola versione italiana, che mi sembra non
> sia ancora uscita.
> Ciao,
> Giovanni
In questo momento sto adoperndo la versione 5.5 italiana; è uscita.
Roberto


title: requery

author: Remigio

text:
Buongiorno a tutti,
uso A03
su una form che visualizza l'anagrafica degli utenti ho messo un pulsante che apre una maschera per l'inserimento di alcuni dati correlati, per esempio il numero ordine.
Quando premo il pulsante "inserisci" sulla seconda form, viene eseguita una query di accodamento ed un requery della maschera anagrafica principale.
Il problema è che dopo il requery la form anagrafica si sposta sull'ultimo record inserito e non rimane su quello su cui sto lavorando.
Come si fa per fare requery della form e farla rimanere sullo stesso record su cui si trovava prima del requery?
Ciao e grazie

Remigio


title: requery

text:

Memorizzi l'id del record su cui stai lavorando, fai il requery, ti
riposizioni sul record giusto

http://www.donkarl.com/it?FAQ4.5


title: requery

text:

Grazie infinite, molto gentile.
Un saluto.

Remigio


title: testo troppo lungo nelle casella combinata

author: Maurizio Giri

text:
Ciao
ho un testo di circa 80 caratteri, opportunamente settato sulla tabella
nella dimensione campo,
tuttavia quando lo seleziono nella casella combinata mi da il seguente
messaggio:
"Impossibile aggiungere la quantità di dati desiderata. Inserire o incollere
meno dati"
Ho provato a vedere cosa modificare nelle caratteristiche della casella
combinata ma non so
esattamente cosa modificare, ho provato a modificare anche Larhgezza colonne
che di dafault è
così:
Larhgezza colonne=0cm;4,26cm
senza nessun risultato
eppure dovrebbe essere una cosa semplice!!
Maurizio


author: Sergio MAZZA

text:
"Maurizio Giri" <
mg...@omniway.sm
> ha scritto nel messaggio
news:8uufhg$lre$1...@fe2.cs.interbusiness.it...

Puoi ovviare creando una maschera con origine dati la tua tabella e magari
solo una casella di testo (del campo da 80 caratteri) opportunamente
dimensionata. Gli imposti la visualizzazione a 'maschere continue'. La
grafica è la stessa e la gestione è più semplice...
Ciao.


text:
> Puoi ovviare creando una maschera con origine dati la tua tabella e magari
> solo una casella di testo (del campo da 80 caratteri) opportunamente
> dimensionata. Gli imposti la visualizzazione a 'maschere continue'. La
> grafica è la stessa e la gestione è più semplice...
>
> Ciao.
>
>
premetto che non sono un esperto e che per il momento sto solo smanettando
il fatto è che nella mia maschera ho diverse caselle combinate dalla quali
ricavo degli indirizzi presenti su alcune tabelle, indirizzi che metto poi
in label o
caselle di testo oltre le selezioni del testo sulle caselle combinate
(quelle che mi
danno errore)
in pratica seleziono il nome o l'intestazione dalla casella combinata e
tutti gli altri dati che
fanno parte dell'indirizzo li estraggo dalle tabelle
il guaio è che ho qualche intestazione troppo lunga
una cosa strana è che allungando la casella combinata mi da lo stesso errore
ci dovrà pur essere un settaggio da qualche parte
Maurizio


text:
"Maurizio Giri" <
mg...@omniway.sm
> ha scritto nel messaggio
news:8v053d$527$1...@fe1.cs.interbusiness.it...
> premetto che non sono un esperto e che per il momento sto solo smanettando
> il fatto è che nella mia maschera ho diverse caselle combinate dalla quali
> ricavo degli indirizzi presenti su alcune tabelle, indirizzi che metto poi
> in label o
> caselle di testo oltre le selezioni del testo sulle caselle combinate
> (quelle che mi
> danno errore)
> in pratica seleziono il nome o l'intestazione dalla casella combinata e
> tutti gli altri dati che
> fanno parte dell'indirizzo li estraggo dalle tabelle
> il guaio è che ho qualche intestazione troppo lunga
> una cosa strana è che allungando la casella combinata mi da lo stesso
errore
> ci dovrà pur essere un settaggio da qualche parte
>
> Maurizio
>
Non è un problema l'esperienza, quella l'acquisisci proprio lavorando e
scontrandoti con i problemi; il problema è non trovare soluzione allo
stesso, cosa quasi impossibile perché c'é sempre una soluzione basta
cercarla.
Non credo che sia un problema di settaggio, penso invece che hai toccato il
limite della casella combinata, quindi devi trvare un'altra via per
risolvere il problema.
Se mi spieghi meglio è possibile trovare insieme una soluzione; praticamente
da queste caselle combinate tu vuoi scegliere un indirizzo cliccandoci due
volte sopra al prescelto o no?
Ciao.


text:
> Non č un problema l'esperienza, quella l'acquisisci proprio lavorando e
> scontrandoti con i problemi; il problema č non trovare soluzione allo
> stesso, cosa quasi impossibile perché c'é sempre una soluzione basta
> cercarla.
>
> Non credo che sia un problema di settaggio, penso invece che hai toccato
il
> limite della casella combinata, quindi devi trvare un'altra via per
> risolvere il problema.
>
> Se mi spieghi meglio č possibile trovare insieme una soluzione;
praticamente
> da queste caselle combinate tu vuoi scegliere un indirizzo cliccandoci due
> volte sopra al prescelto o no?
>
> Ciao.
>
>
un'idea ce l'avrei ma forse č fantascienza
Da un elenco che si trova nella casella combinata devo selezionare una
parola (che puň essere piů o meno lunga) ottenuta da un Recordset
Come sai quando si seleziona una parora nell'elenco della casella combinata,
la parola selezionata dovrebbe rimanere scritta nella casella
č questa l'operazione che col teso lungo non mi permette di fare
pensavo se č possibile, considerando come dici l'eventuale limite della
casella combinata, di fare comparire solo una parte di testo, quello che
ovviamente ci puň stare, cioč interrompere un testo oltre una data
lungehezza, l'importante č che io possa sempre verificare la selezione anche
se non č sritta per intero.
A questo punto perň dovrei mettere la parola selezionata, questa volta perň
per intero in una variabile, cosě potrň utilizzate la parola completa dove
voglio.
in definitiva se ciň fosse possibile, dovrei sapere come fare per tagliare
la parola o il testo solo in visione nella casella di testo
Maurizio


text:
"Maurizio Giri" <
mg...@omniway.sm
> ha scritto nel messaggio
news:8v0o5f$aj3$1...@fe1.cs.interbusiness.it...
> un'idea ce l'avrei ma forse č fantascienza
> Da un elenco che si trova nella casella combinata devo selezionare una
> parola (che puň essere piů o meno lunga) ottenuta da un Recordset
> Come sai quando si seleziona una parora nell'elenco della casella
combinata,
> la parola selezionata dovrebbe rimanere scritta nella casella
> č questa l'operazione che col teso lungo non mi permette di fare
> pensavo se č possibile, considerando come dici l'eventuale limite della
> casella combinata, di fare comparire solo una parte di testo, quello che
> ovviamente ci puň stare, cioč interrompere un testo oltre una data
> lungehezza, l'importante č che io possa sempre verificare la selezione
anche
> se non č sritta per intero.
> A questo punto perň dovrei mettere la parola selezionata, questa volta
perň
> per intero in una variabile, cosě potrň utilizzate la parola completa dove
> voglio.
> in definitiva se ciň fosse possibile, dovrei sapere come fare per tagliare
> la parola o il testo solo in visione nella casella di testo
> Maurizio
>
>
Beh direi che hai trovato la via;
se come origine dati, della casella combinata ci metti una query che
contiene (per esempio) due campi, il primo che continene una parte del testo
e l'altro il campo con tutto il testo.
Poi nell'evento 'dopo aggiornamento' (della casella combinata) scrivi il
codice che popola la casella di testo:
'------------
if not isnull(me!nomeCasellaDiTesto) then
    me!nomeCasellaDiTesto = me!nomeCasellaDiTesto.columns(1)
end if
'------------
Ciao.


text:
> Beh direi che hai trovato la via;
> se come origine dati, della casella combinata ci metti una query che
> contiene (per esempio) due campi, il primo che continene una parte del
testo
> e l'altro il campo con tutto il testo.
> Poi nell'evento 'dopo aggiornamento' (della casella combinata) scrivi il
> codice che popola la casella di testo:
> '------------
> if not isnull(me!nomeCasellaDiTesto) then
>     me!nomeCasellaDiTesto = me!nomeCasellaDiTesto.columns(1)
> end if
> '------------
>
> Ciao.
Così funziona
ho creato i 2 campi, uno ridotto e l'altro completo
i due campi contengono degli indirizzi che quando sono corti corrispondono
oppure uno è
la versione abbreviata dell'altro
ti chiedo un'altra cosa per ragioni di comodità, è possibile nella casella
di testo della maschera
di inserimento indirizzi, digitare solo una volta il campo completo e fare
in modo che questo testo
vada anche in una variabile ma in forma abbreviata, cioè che si interrompa
oltre un certo numero di caratteri?
se ciò fosse possibile farei solo un inserimento dei miei dati evitando
troppe digitalizzazioni (molte uguali perchè corte) all'operatore
ciao
Maurizio


text:
"Maurizio Giri" <
mg...@omniway.sm
> ha scritto nel messaggio
news:8v2uqs$ig9$1...@fe1.cs.interbusiness.it...
>
> Così funziona
> ho creato i 2 campi, uno ridotto e l'altro completo
> i due campi contengono degli indirizzi che quando sono corti corrispondono
> oppure uno è
> la versione abbreviata dell'altro
> ti chiedo un'altra cosa per ragioni di comodità, è possibile nella casella
> di testo della maschera
> di inserimento indirizzi, digitare solo una volta il campo completo e fare
> in modo che questo testo
> vada anche in una variabile ma in forma abbreviata, cioè che si interrompa
> oltre un certo numero di caratteri?
> se ciò fosse possibile farei solo un inserimento dei miei dati evitando
> troppe digitalizzazioni (molte uguali perchè corte) all'operatore
> ciao
> Maurizio
>
Scusa ma credo di non aver capito; tu vuoi che l'operatore inserendo dei
dati (parziali) in una casella di testo, questo venga automaticamente
completato con la parte non digitata?
Ciao.


text:
> Scusa ma credo di non aver capito; tu vuoi che l'operatore inserendo dei
> dati (parziali) in una casella di testo, questo venga automaticamente
> completato con la parte non digitata?
>
> Ciao.
>
>
il contrario, digitando un dato totale in una casella di testo, mi deve
creare una variabile che contenga un dato parziale, quello che poi andrebbe
casella combinata
Maurizio


text:
"Maurizio Giri" <
mg...@omniway.sm
> ha scritto nel messaggio
news:8v3dn5$bts$1...@fe2.cs.interbusiness.it...
>
> il contrario, digitando un dato totale in una casella di testo, mi deve
> creare una variabile che contenga un dato parziale, quello che poi
andrebbe
> casella combinata
> Maurizio
>
>
Mi sembra che tu voglia complicarti la vita; devi considerare che più è
lungo il testo inserito e maggiore è la possibilità di errore, quindi il
confronto che dovresti fare (testo lungo inserito = testo lungo in
tabella -> testo corto) potrebbe non funzionare. Comunque puoi utilizzare la
funzione dlookup (vedi l'help) nell'evento 'dopo aggiornamento' della
casella di testo (testo lungo):
es.
'------------
me!testoCorto =
dlookup("NomeCampoTestoCorto","NomeTabella","[campoTestoLungo]='" &
me!testoLungo & "'")
'------------
Ciao.


title: record successivi non contigui

author: Marco

text:
In una tabella desiderei poter trovare se dei valori sono presenti in record
successivi non contigui.
La tabella ha
ID, campodata, campotesto, campo1, campo2, campo3, campo4, campo5
 1 01/01/06 aaa 1 2 3 4 10
2 01/01/06 bbb 1 2 3 4 5
....
12 03/01/06 aaa 10 4 7 1 2
13 03/01/06 ccc 7 8 9 3 4
....
16 05/01/06 aaa 4 3 10 2 6
....
26 07/01/06 aaa 2 8 7 6 9
1) in una casella di testo digito i numeri da cercare e cerco nella tabella
se sono presenti
aaa numero 1 è presente nel record 1 12
2) data una coppia di numeri di record diversi ma con data successiva
trovare se sono presenti in coppie di record successive
10 del record 1 e 7 del record 3 presente in 16 26
Il tutto sarebbe simile a:        fatto su un solo campo e record contigui.
Dim strSql As String
strSql = "SELECT * " & _
" FROM tblTabella AS A " & _
" WHERE 1=1"
If Not IsNull(Me!txtText70) And Not IsNull(Me!txtText90) Then
strSql = strSql & _
" AND Campo1=" & Me!txtText70 & _
" AND (SELECT Campo1 FROM tblTabella WHERE IDTabella=A.IDTabella+1 AND
CampoTesto= [Forms]![StatisticheTabella]![cboCombo70])=" & Me!txtText90 & _
" OR Campo1=" & Me!txtText90 & _
" AND (SELECT Campo1 FROM tblTabella WHERE IDTabella=A.IDTabella-1 AND
CampoTesto= [Forms]![StatisticheTabella]![cboCombo70])=" & Me!txtText70
End If
-------
If Not IsNull(Me!txtText70) And Not IsNull(Me!txtText90) Then
strSql = strSql & _
" AND Campo1 In(" & Me!txtText70 & "," & Me!txtText90 & ")" & _
" AND ((SELECT Campo1 FROM tblTabella WHERE IDTabella=A.IDTabella-1 AND
CampoTesto= [Forms]![StatisticheTabella]![cboCombo70] )=Campo1" & _
    " OR (SELECT Campo1 FROM tblTabella WHERE IDTabella=A.IDTabella+1 AND
CampoTesto= [Forms]![StatisticheTabella]![cboCombo70])=Campo1)"
End If
grazie


title: record successivi non contigui

author: PBsoft

text:
> In una tabella desiderei poter trovare se dei valori sono presenti in
> record successivi non contigui.
Azz....una cosina pesantuccia a livello computazionale.
Sempre che Giorgio non mi sgridi, credo che in Jet SQL questo non sia possibile.
Passando invece per i recordset di ADO, puoi farlo normalmente.
Ti apri un recordset ADO e lo sfogli.
Quando hai trovato la prima occorrezza del numero desiderato, ti salvi un
riferimento al record corrente (la chiave primaria oppure un bookmark, anche
se i bookmark fanno un po' a cazzotti con ADO)
A questo punto continui a scorrere i record, cercando la prossima occorrenza
del numero desiderato e stando attento che non capiti nel record successivo
a quello della prima occorrenza.
> 2) data una coppia di numeri di record diversi ma con data successiva
> trovare se sono presenti in coppie di record successive
Ri-azz.
Stavolta anche con ADO diventa una cosa complessa da gestire.
Ma che per caso vuoi arrivare ad utilizzare Access come se fosse un ipercubo?
 :-)
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


title: record successivi non contigui

text:
"PBsoft" wrote
>> In una tabella desiderei poter trovare se dei valori sono presenti in
>> record successivi non contigui.
>
> Azz....una cosina pesantuccia a livello computazionale.
>
> Sempre che Giorgio non mi sgridi, credo che in Jet SQL questo non sia
> possibile.
> Passando invece per i recordset di ADO, puoi farlo normalmente.
> Ti apri un recordset ADO e lo sfogli.
> Quando hai trovato la prima occorrezza del numero desiderato, ti salvi un
> riferimento al record corrente (la chiave primaria oppure un bookmark,
> anche se i bookmark fanno un po' a cazzotti con ADO)
> A questo punto continui a scorrere i record, cercando la prossima
> occorrenza del numero desiderato e stando attento che non capiti nel
> record successivo a quello della prima occorrenza.
Senza una traccia è difficile che possa proseguire.
>
>> 2) data una coppia di numeri di record diversi ma con data successiva
>> trovare se sono presenti in coppie di record successive
>
> Ri-azz.
> Stavolta anche con ADO diventa una cosa complessa da gestire.
>
> Ma che per caso vuoi arrivare ad utilizzare Access come se fosse un
> ipercubo? :-)
>
> --
> PBsoft di Gabriele Bertolucci
>
www.pbsoft.it
> skype: pbsoftsolution
>
>
ciao
PS conteneva un errore:
-------
If Not IsNull(Me!txtText90) Then
strSql = strSql & _
" AND Campo1 In(" & Me!txtText90 & ")" & _



title: record successivi non contigui

author: Michele (Giò)

text:
"Marco" <
marco.w-no-...@email.it
> ha scritto nel messaggio
news:451eda9d$0$25882$4faf...@reader1.news.tin.it...

Sicuramente Gabriele dice bene che con ADO (o anche con DAO) la cosa è risolvibilissima.....è che
devi scrivere e collaudare parecchio VBA
Michele


title: record successivi non contigui

text:
> Senza una traccia  difficile che possa proseguire.
Hai ragione. Scusami.
Puoi consultare il modello ad oggetti esposto da ADO all'indirizzo
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmscadoobjmod.asp
.
Puoi trovare una marea di codice VBA che sfrutta i recordset di ADO all'indirizzo
http://groups.google.com/groups/search?hl=en&lr=&q=ado+recordset+vba
.



title: record successivi non contigui

text:
"PBsoft" <in...@REMOVEpbsoft.it> ha scritto nel messaggio
news:875ea35543dad8...@news.tin.it...

Scusa Gabriele, una domanda: siccome vedo che sei un personagio molto attivo nel NG, nel senso che
hai sempre un consiglio per tutti, questo fatto che consigli solo ADO è perchè personalmente hai
deciso di abbandonare DAO in quanto ormai datato e lasciato al suo destino da Microsoft?
Michele


title: record successivi non contigui

text:
> Scusa Gabriele, una domanda: siccome vedo che sei un personagio molto
> attivo nel NG, nel senso che hai sempre un consiglio per tutti, questo
> fatto che consigli solo ADO  perch personalmente hai deciso di
> abbandonare DAO in quanto ormai datato e lasciato al suo destino da
> Microsoft?
Molto più semplicemente, io non ho mai utilizzato il modello ad oggetti DAO.
Diversi anni fa, insieme ad altre persone, ho creato un database di libreria
con Access ed abbiamo scelto di adottare ADO piuttosto che DAO per le routine
da sviluppare.
Questo alla luce soprattutto del fatto che la libreria in questione avrebbe
dovuto funzionare anche con gli ADP, dove DAO non è utilizzabile.
Venendo poi alla tua affermazione sull'abbandono di DAO, posso comunque dirti
che esso rimane, a mio parere, la libreria di accesso ai dati più performante
per il motore Jet.
Certo, Microsoft ha scelto la via di ADO, ADOCE,
ADO.NET
 e non credo proprio
che torneranno sui loro passi.



title: record successivi non contigui

text:
"PBsoft" <in...@REMOVEpbsoft.it> ha scritto nel messaggio
news:875ea35543db58...@news.tin.it...
>> Scusa Gabriele, una domanda: siccome vedo che sei un personagio molto
>> attivo nel NG, nel senso che hai sempre un consiglio per tutti, questo
>> fatto che consigli solo ADO  perch personalmente hai deciso di
>> abbandonare DAO in quanto ormai datato e lasciato al suo destino da
>> Microsoft?
>
> Molto più semplicemente, io non ho mai utilizzato il modello ad oggetti DAO.
> Diversi anni fa, insieme ad altre persone, ho creato un database di libreria con Access ed abbiamo
> scelto di adottare ADO piuttosto che DAO per le routine da sviluppare.
> Questo alla luce soprattutto del fatto che la libreria in questione avrebbe
> PBsoft di Gabriele Bertolucci
>
www.pbsoft.it
> skype: pbsoftsolution
Io invece ho sviluppato tutto il mio db con DAO, che in effetti devo dire è molto performante....
quasi ogni limite di gestione dati fornito dagli oggetti di Access, in una maniera o nel'altra l'ho
risolto con DAO. Inoltre ho preferito sviluppare con DAO anche le operazioni che potevano essere
risolte con query....diciamo che ho preferito concentrare gli sforzi e l'apprendimento su questo
strumento.
Siccome il manuale che ho studiato illustra sia DAO che ADO, alla lettura del concetto "se state
costruendo da zero un db valutate attentamente l'utilizzo di ADO in quanto Microsoft sta spingendo
in questa direzione", ho provato anche ad utilizzare ADO, con successo, fino al punto di dover
aprire un recordset con query di selezione, dove la clausola WHERE conteneva un criterio abbastanza
pesante, costrutito da vari AND OR e NOT.
Ho provato a scrivere la clausola in mille salse, utilizzando il teorema di De Morgan e tutto quello
che mi veniva in mente.... Risultato? Non c'è stato verso di aprire il recordset. Siccome non
conoscevo ancora il NG e MSDN library, da una ricerca in internet ho trovato uno stralcio di un NG
straniero, dove un personaggio affermava che in effetti la digestione da parte di ADO di criteri
complessi, generava errore, e niente si poteva fare. Adesso non ricordo che errore, ma fattostà che
sono tornato a DAO e tuttora lavoro con DAO.
Il fatto di aprire un recordset con enunciato SQL con clausola WHERE, oppure di aprire il recordset
e di applicare poi su di esso il filtro, portava allo stesso risultato.
Ti riporto l'help di msdn per adodb.recordset a proposito del filter, in effetti dei limiti ci sono:
------------------------------------------------------------------------------------------
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/his_2004main/htm/_sna_filter_property_oledb.asp
------------------------------------------------------------------------------------------
.......
An example of illegal Criteria is:
  a.. recordset.Filter = "(Title='Associate' OR Salary >30000) AND (Title='Administrator')"
......
-----------------------------------------------------------------------------
Tu cosa ne pensi a riguardo? E' una cosa che da Microsoft è stata risolta, oppure è tuttora una
limitazione?
Michele


title: record successivi non contigui

author: giorgio rancati

text:
"PBsoft" <in...@REMOVEpbsoft.it> ha scritto nel messaggio
news:875ea35543c568...@news.tin.it...
> > In una tabella desiderei poter trovare se dei valori sono presenti in
> > record successivi non contigui.
>
> Azz....una cosina pesantuccia a livello computazionale.
>
> Sempre che Giorgio non mi sgridi, credo che in Jet SQL questo non sia
possibile.
non saprei, manca un esempio dei risultati che si vuole ottenere, con la
sola spiegazione non ho capito il problema :(
Ciao
--
Giorgio Rancati
[Office Access MVP]


title: record successivi non contigui

text:
"PBsoft" <in...@REMOVEpbsoft.it> ha scritto nel messaggio
news:875ea35543db58...@news.tin.it...
> Venendo poi alla tua affermazione sull'abbandono di DAO, posso comunque
dirti
> che esso rimane, a mio parere, la libreria di accesso ai dati piů
performante
> per il motore Jet.
> Certo, Microsoft ha scelto la via di ADO, ADOCE,
ADO.NET
 e non credo
proprio
> che torneranno sui loro passi.
sě che sono tornati sui loro passi, il nuovo Access2007 ha come libreria
predefinita il nuovo DAO ovvero ACEDAO
:-)



title: record successivi non contigui

text:
"Michele (Giò)" <
joyl...@alice.it
> ha scritto nel messaggio
news:451faa38$0$4577$4faf...@reader2.news.tin.it...
>
Ciao Michele,
[CUT]
> Siccome il manuale che ho studiato illustra sia DAO che ADO, alla lettura
del concetto "se state
> costruendo da zero un db valutate attentamente l'utilizzo di ADO in quanto
Microsoft sta spingendo
> in questa direzione", ho provato anche ad utilizzare ADO, con successo,
fino al punto di dover
> aprire un recordset con query di selezione, dove la clausola WHERE
conteneva un criterio abbastanza
> pesante, costrutito da vari AND OR e NOT.
>
> Ho provato a scrivere la clausola in mille salse, utilizzando il teorema
di De Morgan e tutto quello
> che mi veniva in mente.... Risultato? Non c'è stato verso di aprire il
recordset.
l'esecuzione della query viene effettuata da Jet , non ha importanza se usi
DAO o ADO che sono librerie di oggetti che interfacciano il motore..
> Il fatto di aprire un recordset con enunciato SQL con clausola WHERE,
oppure di aprire il recordset
> e di applicare poi su di esso il filtro, portava allo stesso risultato.
>
> Ti riporto l'help di msdn per adodb.recordset a proposito del filter, in
effetti dei limiti ci sono:
> --------------------------------------------------------------------------
----------------
>
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/his_2004main/htm/_sna_filter_property_oledb.asp
> --------------------------------------------------------------------------
----------------
> .......
> An example of illegal Criteria is:
>   a.. recordset.Filter = "(Title='Associate' OR Salary >30000) AND
(Title='Administrator')"
> ......
>
> --------------------------------------------------------------------------
---
> Tu cosa ne pensi a riguardo? E' una cosa che da Microsoft è stata risolta,
oppure è tuttora una
> limitazione?
facciamo un esempio con un filtro meno assurdo
----
(City='Milano' OR Salary >30000) AND (Title='Administrator')
----
se apri il recordset passando il filtro nella clausola Where della query
tutto funziona, ci mancherebbe altro :-)
----
Dim Rs As New ADODB.Recordset
Rs.Open "Select * From FindTest WHERE (City='Milano' OR Salary >30000) AND
(Title='Administrator')", CurrentProject.Connection
----
se applichi il filtro alla proprietà Filter del recordset allora da errore
----
Dim Rs As New ADODB.Recordset
Rs.Open "Select * From FindTest", CurrentProject.Connection
Rs.Filter = "(City='Milano' OR Salary >30000) AND (Title='Administrator')"
----
il perchè dell'errore non lo so, probabilmente è un bug che puoi risolvere
sviluppando la moltiplicazione (A+B)*C presente nel filtro ovvero A*C+B*C
ovvero
----
Dim Rs As New ADODB.Recordset
Rs.Open "Select * From FindTest", CurrentProject.Connection
Rs.Filter = "(City='Milano' AND Title='Administrator') OR (Salary>30000 AND
Title='Administrator')"
----
così funziona
Ciao



title: record successivi non contigui

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:451fb580$0$29082$5fc...@news.tiscali.it...
> > Tu cosa ne pensi a riguardo? E' una cosa che da Microsoft è stata
risolta,
> > oppure è tuttora una
> > limitazione?
ho trovato una Kb che parla del problema
----
PRB: Mixing "And" and "Or" Criteria in the Same Filter Returns a 3001 Error
Message
http://support.microsoft.com/kb/280811/en-us
----
in fondo c'è scritto
----
STATUS
This behavior is by design.
----
questo fa supporre che il comportamento rimarrà tale e quale, infatti
l'ultima revisione dell'articolo è stata fatta il 23/08/2001, da allora sono
usciti diversi aggiornamenti e nuove versioni ma nulla è stato fatto in
proposito.
:-)



title: record successivi non contigui

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel messaggio
news:451fb579$0$29080$5fc...@news.tiscali.it...
> "PBsoft" <in...@REMOVEpbsoft.it> ha scritto nel messaggio
> news:875ea35543db58...@news.tin.it...
>
>> Venendo poi alla tua affermazione sull'abbandono di DAO, posso comunque
> dirti
>> che esso rimane, a mio parere, la libreria di accesso ai dati più
> performante
>> per il motore Jet.
>> Certo, Microsoft ha scelto la via di ADO, ADOCE,
ADO.NET
 e non credo
> proprio
>> che torneranno sui loro passi.
>
> sì che sono tornati sui loro passi, il nuovo Access2007 ha come libreria
> predefinita il nuovo DAO ovvero ACEDAO
>
> :-)
> --
> Giorgio Rancati
> [Office Access MVP]
>
Che dire Giorgio, io quella volta, prima di abbandonare ADO per questo problema, avevo provato ad
inserire il filtro nell'enunciato SQL e non mi funzionava. Ovviamente non si parla di criterio
blando, bensì una cosa molto articolata con date, ID, clienti, ecc... Non sono riuscito ad uscirne
lo stesso.
Avevo detto "Vabbè, il filter del recordset non funziona, prepariamo l'SQL con la clausola WHERE a
mano, così almeno funzionerà..... "e invece niente e ho abbandonato ADO.
Sono contento che il 2007 riprende DAO, almeno i db di tutti avranno un futuro senza tanti problemi.
Una curiosità: ma con ACEDAO viene supportato il blocco a livello di record o come con DAO3.6 viene
bloccato non solo il record in questione ma anche quelli vicini?
C'è un topic discusso da me e da Sandrobi a proposito di questo. Da una prova fatta da me, DAO 3.6
non supporta il blocco a livello di record, mentre ADODB sì.
Michele


title: record successivi non contigui

text:
"Michele (Giò)" <
joyl...@alice.it
> ha scritto nel messaggio
news:451ff2d2$0$39891$4faf...@reader4.news.tin.it...
[CUT]
> Una curiosità: ma con ACEDAO viene supportato il blocco a livello di
record o come con DAO3.6 viene
> bloccato non solo il record in questione ma anche quelli vicini?
>
> C'è un topic discusso da me e da Sandrobi a proposito di questo. Da una
prova fatta da me, DAO 3.6
> non supporta il blocco a livello di record, mentre ADODB sì.
non ho visto la vostra discussione, forse aprite il database da una sessione
esterna a quella di Access ?
Come puoi vedere nel capitolo Record-level locking di questa Kb, il blocco a
livello di record è valido anche per DAO purchè venga utilizzato dentro una
sessione di Access che abbia abilitata l'opzione.
----
Description of the new features that are included in Microsoft Jet 4.0
http://support.microsoft.com/kb/275561/en-us
----
stiamo andando troppo fuori tema, forse è meglio aprire un nuovo 3d. :-)
Ciao



title: record successivi non contigui

text:
"giorgio rancati"  wrote
> non saprei, manca un esempio dei risultati che si vuole ottenere, con la
> sola spiegazione non ho capito il problema :(
La tabella di origine è del tipo
id, campodata, campotesto, campo1, campo2, campo3 ,campo4, campo5
es
40997 12/09/2006  aaaa 88 90 35 15 17
40998 12/09/2006  bbbb 22 12 68 17 40
40999 12/09/2006  cccc 30 25 85 81 58
41000 12/09/2006  dddd 36 6 30 19 53
41001 12/09/2006  eeee 86 66 42 8 4
41002 12/09/2006  ffff 8 47 21 90 20
41003 12/09/2006  gggg 76 20 26 1 68
41004 12/09/2006  hhhh 77 68 88 37 60
41005 12/09/2006  iiii 43 58 87 85 5
41006 12/09/2006  llll 86 30 24 18 42
41007 12/09/2006  mmmm 23 74 10 24 25
41008 14/09/2006  aaaa 29 64 4 45 39
41009 14/09/2006  bbbb 10 53 84 14 80
41010 14/09/2006  cccc 57 70 88 77 82
41011 14/09/2006  dddd 22 57 82 12 62
41012 14/09/2006  eeee 69 54 61 70 62
41013 14/09/2006  ffff 34 74 35 61 29
41014 14/09/2006  gggg 27 5 85 49 40
41015 14/09/2006  hhhh 85 82 51 22 64
41016 14/09/2006  iiii 56 27 73 78 13
41017 14/09/2006  llll 1 8 83 26 75
41018 14/09/2006  mmmm 16 54 66 29 83
A) per semplicità  cerco in tutta la tabella un due soli numerì
se cerco i dati in tabella filtrati attraverso una casellacombinata  (dddd)
e attraverso le caselleditesto il numero 1 e 59
troverò 2 record
1751 20/06/2000 dddd 1 7 11 65 59
1761 27/06/2000 dddd 87 60 1 59 89
tra le due date non ci sono altri record dddd, quindi considero i record
come successivi
>
B) si considerano 2 record successivi es
38743 07/05/2005  bbbb 70 27 80 18 59
38754 11/05/2005  bbbb 11 9 85 82 6
non ci sono altri record bbbb tra le due date; si cerca in tutta la tabella
per semplicità ho usato un solo numero per record
70; 11
risultato troverò due record
2505 15/01/1990  bbbb 46 19 70 59 40
2514 22/01/1990  bbbb 48 81 7 11 20
anche qui non ci sono altri record bbbb tra le due date
Spero di aver chiarito un pò ciò che desideravo poter fare.
> Ciao
ciao



title: carattere & in file XML

text:
ciao,
nel file xml ci sono alcuni caratteri non accettati.
In particolare nella ragiorne sociale alle volte compare la &

ho provato a sostituirla con:
Carattere = Replace(Carattere, "&", "&")

pero' nel file finale mi scrive solo &amp senza il punto e virgola finale.
Quindi il file xml non si riesce a leggere
Manca qualcosa ?

grazie
Maurizio


title: carattere & in file XML

text:

Risolto ! ho sbagliato io. Scusate


title: attiva/disattiva shift

author: marco veronesi

text:
Ciao a tutti,
anche oggi ho bisogno del vostro cortese aiuto quindi vi sottopongo il
mio problema.
ho un database al quale attivo o disattivo lo shift servendomi di
questa della maschera e modulo attivabili dall'interno del DB stesso.
Per una maggiore sicurezza, anche in virtù che in passato è capitato
che la maschera iniziale di un db si è corrotta  impedendomi di fatto
di accedere al db, vorrei implemantare la sottindicata l'utility
esterna della possibilità di disattivare il blocco dello shift del mio
db.
allego i codici che utilizzo per il blocco/sblocco shift interno al db
e i codici dell'utility per l'attiva/disattiva shift esterno al db
Vi ringrazio anticipatamente
Private Sub Pass_AfterUpdate()
If Pass.value = "Paperino" Then
  ChangeProperty "AllowBypassKey", DB_Boolean, True
  MsgBox "Ora chiudi il DB e riaprilo tenendo premuto il tasto Shift",
vbInformation, "Password Corretta"
  DoCmd.Close
         Else
        ChangeProperty "AllowBypassKey", DB_Boolean, False
        MsgBox "Password ERRATA", vbCritical, "AVVISO"
      DoCmd.Close
      DoCmd.OpenForm "PasswordStruttura", acNormal
        End If
End Sub
codice modulo:
Option Compare Database
Sub SetBypassProperty()
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Function ChangeProperty(strPropName As String, varPropType As Variant,
varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
Change_Bye:
    Exit Function
Change_Err:
    If err = conPropNotFoundError Then
        Set prp = dbs.CreateProperty(strPropName, varPropType,
varPropValue)
dbs.Properties.Append prp
        Resume Next
    Else
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function
utility esterna al database
maschera:
Option Compare Database
Option Explicit
Private Sub cmdSelFile_Click()
    Dim strDatabase As String
    strDatabase = cmdlg_file
    If strDatabase = "" Then Exit Sub
    Me.txtDatabase = strDatabase
End Sub
Private Sub Esegui_Click()
Dim a As String
    If AD = 0 Then
      a = "disabilitato"
    ElseIf AD = -1 Then
      a = "abilitato"
    End If
    If IsNull(txtDatabase) Then
      MsgBox ("Inserire il percorso, il nome e l'estensione del
database"), vbExclamation
    Else
      Call BypassKey([AD], [txtDatabase])
        If BypassKey([AD], [txtDatabase]) = True Then
          MsgBox ("Tasto shift " & a), vbOKOnly
        Else
          MsgBox ("Database o percorso non validi!"), vbCritical
        End If
    End If
End Sub
Private Sub Comando10_Click()
On Error GoTo Err_Comando10_Click
    DoCmd.Quit
Exit_Comando10_Click:
    Exit Sub
Err_Comando10_Click:
    MsgBox Err.Description
    Resume Exit_Comando10_Click
End Sub
codice modulo:
Option Compare Database
Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
            Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME)
As Long
Private Type OPENFILENAME
   lStructSize As Long
   hwndOwner As Long
   hInstance As Long
   lpstrFilter As String
   lpstrCustomFilter As String
   nMaxCustFilter As Long
   nFilterIndex As Long
   lpstrFile As String
   nMaxFile As Long
   lpstrFileTitle As String
   nMaxFileTitle As Long
   lpstrInitialDir As String
   lpstrTitle As String
   flags As Long
   nFileOffset As Integer
   nFileExtension As Integer
   lpstrDefExt As String
   lCustData As Long
   lpfnHook As Long
   lpTemplateName As String
End Type
Public Function cmdlg_file() As String
     'Restituisce: il percorso completo del file selezionato
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   Dim sFilter As String
   OpenFile.lStructSize = Len(OpenFile)
   sFilter = "Database di Microsoft Access (*.mdb)" & Chr(0) & "*.mdb"
& Chr(0)
   OpenFile.lpstrFilter = sFilter
   OpenFile.nFilterIndex = 1
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   OpenFile.lpstrInitialDir = "C:\"
   OpenFile.lpstrTitle = "Seleziona file"
   OpenFile.flags = 0
   lReturn = GetOpenFileName(OpenFile)
   If lReturn = 0 Then
      cmdlg_file = ""
   Else
      cmdlg_file = Left(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile,
Chr$(0)) - 1)
   End If
End Function
Public Function BypassKey(bolVal As Boolean, Optional strMdb As
String) As Boolean
'Autore: Federico Luciani dal sito comune del newsgroup di
it.comp.app.access
'Accetta:
'bolVal = True: abilita; False: disabilita
'strMdb = [Opz.] percorso+nome del database
'Restituisce: True l'operazione e' stata eseguita correttamente
On Error GoTo bypass_Err
    Dim wrk As Workspace
    Dim dbs As Database
    Set wrk = DBEngine.Workspaces(0)
    If strMdb = "" Then
        Set dbs = CurrentDb()
    Else
        Set dbs = wrk.OpenDatabase(strMdb)
    End If
    dbs.Properties("AllowBypassKey") = bolVal
    BypassKey = True
    Set dbs = Nothing
    Set wrk = Nothing
    Exit Function
bypass_Err:
    If Err = 3270 Then
        Dim prp As Property
        Set prp = dbs.CreateProperty("AllowBypassKey", dbBoolean,
True)
        dbs.Properties.Append prp
        Resume
    Else
        BypassKey = False
    End If
End Function


title: attiva/disattiva shift

text:

buon giorno a tutti
ho risolto grazie


title: attiva/disattiva shift

author: Geppo

text:
Ciao "marco veronesi" <
spazio...@gmail.com
> ha scritto nel messaggio
news:eb2e987a-d9ff-4d86...@m3g2000yqf.googlegroups.com...
On 4 Dic, 22:54, marco veronesi <
spazionew...@gmail.com
> wrote:
----cut----
buon giorno a tutti
ho risolto grazie
ma perch� avevi un problema?
--
Ciao
Geppo


title: Numero record

author: Stefano LD

text:
ciao a tutti.
qualcuno sa dirmi quali sono i nomi delle proprietà che mi restituiscono il
numero totale di record presenti in un database e il numero del record
corrente... sono gli stessi valori che vedo su ogni maschera che ha un
databese collegato.
grazie.


title: Numero record

author: CarloCos

text:
"Stefano LD" <
lodu...@yahoo.it
> ha scritto nel messaggio
news:Hcqh7.26622$vC1.2...@news1.tin.it...

Il numero totale di record presenti in una TABELLA in un database è sempre
presente nella maschera alimentata da quella tabella: record 1 di
....Nrecords in basso a sinistra.
Puoi contare i record di una tabella, per esempio, aprendo un Recordset,
muovendoti all'ultimo record e poi con RecordCount...
Da una query raggruppata alimentata sempre dalla stessa tabella e impostando
a "Conteggio" la Formula.
Per il record corrente dipende da dove ti trovi: nella maschera è quello che
vedi.
Ciao, Carlo


title: Numero record

text:
"Stefano LD" <
lodu...@yahoo.it
> ha scritto nel messaggio
news:Hcqh7.26622$vC1.2...@news1.tin.it...
> ciao a tutti.
> qualcuno sa dirmi quali sono i nomi delle proprietą che mi restituiscono
il
> numero totale di record presenti in un database e il numero del record
> corrente... sono gli stessi valori che vedo su ogni maschera che ha un
> databese collegato.
>
>
> grazie.
>
Il numero totale dei record contenuti nel recordset che č origine record
della maschera lo trovi in :
Me.RecordsetClone.RecordCount
mentre il numero del record corrente lo trovi in:
Me.CurrentRecord
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: 2 Perplessità

author: cristiano 1972

text:
Ho 2 perlessità che spero che qualcuno di voi mi aiuti a risolvere.
Oggi stavo impostando una query contenente una formula sui campi piuttosto
complessa, così mi sono deciso a creare una function.
Tutto bene, nessun problema tranne che per un particolare, ho un campo che
può essere un valore o null, il dim è stato fatto con un variant proprio per
questo motivo.
Ad un certo punto devo far una divisione per questo valore, ma solo se è un
valore (non è mai 0)
Non riesco a creare un if capace di capirlo, ho provato paragonandolo a:
<>"",   is null,   null,    not null.
Ho creato una variabile imponendola = null ma niente.
Seguendo il calcolo passo per passo e posizionandomi sopra con il mouse vedo
che il valore è null, ma non riesco a trovare un termine di paragone per il
mio if.
Alla fine ho risolto intercettando l'errore che avevo nella divisione e
facendola escludere in qesto modo ma qualcuno sa spiegarmi perché o come
fare?
Secondo:
Ho costruito una query parametrica che effettua delle selezioni con dei
valori posti in una maschera.
La query funziona perfettamente.
Però quando parto da questa query per costruirne un'altra a campi incrociati
mi restituisce errore dicendo che non può farlo.
Sottolineo che se la stessa selezione la faccio direttamente sulla query di
partenza togliendo il legame con la maschera il tutto funziona
perfettamente.
L'help in linea non mi ha aiutato.
Anche in questo caso ho risolto con un piccolo trucco il problema ma non
capisco il perché??
Io uso A97.
Grazie.
Cristiano 1972


title: 2 Perplessità

author: fidirico

text:
"cristiano 1972" <
crist...@virgilio.it
> ha scritto nel messaggio
news:CLFgb.182233$hE5.6...@news1.tin.it...

Prima di tutto ti invito a usare, per il futuro, subject più significativi per le tue
richieste: aumenterà di molto la probabilità di ricevere aiuto. Per il primo quesito
ti consiglio di testare il valore, anzichè con IsNull,  con la arcinota funzione
IsNothing (io l'ho tratta dai sacri testi del Viescas):
Function IsNothing(varToTest As Variant) As Integer
'  Tests for a "logical" nothing based on data type
'  Empty and Null = Nothing
'  Number = 0 is Nothing
'  Zero length string is Nothing
'  Date/Time is never Nothing
    IsNothing = True
    Select Case VarType(varToTest)
        Case vbEmpty
            Exit Function
        Case vbNull
            Exit Function
        Case vbBoolean
            If varToTest Then IsNothing = False
        Case vbByte, vbInteger, vbLong, vbSingle, vbDouble, vbCurrency
            If varToTest <> 0 Then IsNothing = False
        Case vbDate
            IsNothing = False
        Case vbString
            If (Len(varToTest) <> 0 And varToTest <> " ") Then IsNothing = False
    End Select
End Function
Per il secondo quesito, vista l'ora e il fatto che hai comunque risolto, difficile
dire senza vedere la struttura delle query :)
Ciao
Galliano


title: 2 Perplessità

author: namor

text:
cristiano 1972 ha scritto:
> Ho 2 perlessità che spero che qualcuno di voi mi aiuti a risolvere.
Sarebbe bene mandare due distinte richieste al newsgroup, una per ogni
quesito, ed usando un oggetto attinente all'argomento, in modo che chi
legge capisca subito di che argomento si sta parlando senza dover per
forza aprire e leggersi tutto il msg.
> Oggi stavo impostando una query contenente una formula sui campi piuttosto
> complessa, così mi sono deciso a creare una function.
> Tutto bene, nessun problema tranne che per un particolare, ho un campo che
> può essere un valore o null, il dim è stato fatto con un variant proprio per
> questo motivo.
> Ad un certo punto devo far una divisione per questo valore, ma solo se è un
> valore (non è mai 0)
> Non riesco a creare un if capace di capirlo, ho provato paragonandolo a:
> <>"",   is null,   null,    not null.
> Ho creato una variabile imponendola = null ma niente.
> Seguendo il calcolo passo per passo e posizionandomi sopra con il mouse vedo
> che il valore è null, ma non riesco a trovare un termine di paragone per il
> mio if.
> Alla fine ho risolto intercettando l'errore che avevo nella divisione e
> facendola escludere in qesto modo ma qualcuno sa spiegarmi perché o come
> fare?
Prova if Nz(valore)<>0 Then .....
> Secondo:
> Ho costruito una query parametrica che effettua delle selezioni con dei
> valori posti in una maschera.
> La query funziona perfettamente.
> Però quando parto da questa query per costruirne un'altra a campi incrociati
> mi restituisce errore dicendo che non può farlo.
> Sottolineo che se la stessa selezione la faccio direttamente sulla query di
> partenza togliendo il legame con la maschera il tutto funziona
> perfettamente.
> L'help in linea non mi ha aiutato.
> Anche in questo caso ho risolto con un piccolo trucco il problema ma non
> capisco il perché??
> Io uso A97.
> Grazie.
> Cristiano 1972
Ma la maschera è aperta quando lanci le query? E come hai risolto?
Namor
--
------------------------------
Siamo tutti nella stessa barca (alcuni incatenati ai remi, altri con la
frusta in mano)!
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: 2 Perplessità

text:
"namor" <
na...@nospm.inwind.it
> ha scritto nel messaggio
news:bm0e69$jmi$1...@news.newsland.it...
> cristiano 1972 ha scritto:
> > Ho 2 perlessità che spero che qualcuno di voi mi aiuti a risolvere.
>
> Sarebbe bene mandare due distinte richieste al newsgroup, una per ogni
> quesito, ed usando un oggetto attinente all'argomento, in modo che chi
> legge capisca subito di che argomento si sta parlando senza dover per
> forza aprire e leggersi tutto il msg.
>
Avete ragione, la prossima volta starò più attento.
>
> > Oggi stavo impostando una query contenente una formula sui campi
piuttosto
> > complessa, così mi sono deciso a creare una function.
> > Tutto bene, nessun problema tranne che per un particolare, ho un campo
che
> > può essere un valore o null, il dim è stato fatto con un variant proprio
per
> > questo motivo.
> > Ad un certo punto devo far una divisione per questo valore, ma solo se è
un
> > valore (non è mai 0)
> > Non riesco a creare un if capace di capirlo, ho provato paragonandolo a:
> > <>"",   is null,   null,    not null.
> > Ho creato una variabile imponendola = null ma niente.
> > Seguendo il calcolo passo per passo e posizionandomi sopra con il mouse
vedo
> > che il valore è null, ma non riesco a trovare un termine di paragone per
il
> > mio if.
> > Alla fine ho risolto intercettando l'errore che avevo nella divisione e
> > facendola escludere in qesto modo ma qualcuno sa spiegarmi perché o come
> > fare?
>
> Prova if Nz(valore)<>0 Then .....
Ho risolto con il codice di fidirico ma proverò anche con il tuo.
>
>
> > Secondo:
> > Ho costruito una query parametrica che effettua delle selezioni con dei
> > valori posti in una maschera.
> > La query funziona perfettamente.
> > Però quando parto da questa query per costruirne un'altra a campi
incrociati
> > mi restituisce errore dicendo che non può farlo.
> > Sottolineo che se la stessa selezione la faccio direttamente sulla query
di
> > partenza togliendo il legame con la maschera il tutto funziona
> > perfettamente.
> > L'help in linea non mi ha aiutato.
> > Anche in questo caso ho risolto con un piccolo trucco il problema ma non
> > capisco il perché??
> > Io uso A97.
> > Grazie.
> > Cristiano 1972
>
>
> Ma la maschera è aperta quando lanci le query? E come hai risolto?
> Namor
>
Si la maschera è aperta.
Ho risolto convertendo la query di selezione in query di creazione tabella
"Temp-01"
La query a campi incrociati punta a questa nuova tabella "Temp-01" e
funziona benissimo
Nel codice del bottone che mi apre la query a campi incrociati ho agginto un
disabilita avvisi e un lancia la query di creazione tabella.
Metodo poco ortodosso ma funzionante.
Cristiano 1972



title: 2 Perplessità

text:
"namor" <
na...@nospm.inwind.it
> ha scritto nel messaggio
news:bm0e69$jmi$1...@news.newsland.it...
> cristiano 1972 ha scritto:
> > Ho 2 perlessità che spero che qualcuno di voi mi aiuti a risolvere.
>
> Sarebbe bene mandare due distinte richieste al newsgroup, una per ogni
> quesito, ed usando un oggetto attinente all'argomento, in modo che chi
> legge capisca subito di che argomento si sta parlando senza dover per
> forza aprire e leggersi tutto il msg.
>
Avete ragione, la prossima volta starò più attento.
>
> > Oggi stavo impostando una query contenente una formula sui campi
piuttosto
> > complessa, così mi sono deciso a creare una function.
> > Tutto bene, nessun problema tranne che per un particolare, ho un campo
che
> > può essere un valore o null, il dim è stato fatto con un variant proprio
per
> > questo motivo.
> > Ad un certo punto devo far una divisione per questo valore, ma solo se è
un
> > valore (non è mai 0)
> > Non riesco a creare un if capace di capirlo, ho provato paragonandolo a:
> > <>"",   is null,   null,    not null.
> > Ho creato una variabile imponendola = null ma niente.
> > Seguendo il calcolo passo per passo e posizionandomi sopra con il mouse
vedo
> > che il valore è null, ma non riesco a trovare un termine di paragone per
il
> > mio if.
> > Alla fine ho risolto intercettando l'errore che avevo nella divisione e
> > facendola escludere in qesto modo ma qualcuno sa spiegarmi perché o come
> > fare?
>
> Prova if Nz(valore)<>0 Then .....
Ho risolto con il codice di fidirico ma proverò anche con il tuo.
>
>
> > Secondo:
> > Ho costruito una query parametrica che effettua delle selezioni con dei
> > valori posti in una maschera.
> > La query funziona perfettamente.
> > Però quando parto da questa query per costruirne un'altra a campi
incrociati
> > mi restituisce errore dicendo che non può farlo.
> > Sottolineo che se la stessa selezione la faccio direttamente sulla query
di
> > partenza togliendo il legame con la maschera il tutto funziona
> > perfettamente.
> > L'help in linea non mi ha aiutato.
> > Anche in questo caso ho risolto con un piccolo trucco il problema ma non
> > capisco il perché??
> > Io uso A97.
> > Grazie.
> > Cristiano 1972
>
>
> Ma la maschera è aperta quando lanci le query? E come hai risolto?
> Namor
>
Si la maschera è aperta.
Ho risolto convertendo la query di selezione in query di creazione tabella
"Temp-01"
La query a campi incrociati punta a questa nuova tabella "Temp-01" e
funziona benissimo
Nel codice del bottone che mi apre la query a campi incrociati ho agginto un
disabilita avvisi e un lancia la query di creazione tabella.
Metodo poco ortodosso ma funzionante.
Cristiano 1972
>



title: Restrizione da applicare ad una funzione

author: sled

text:
Ciao a tutti da Sled.
Il mio problema è il seguente:
ho la seguente FUNZIONE in un Modulo
----------------------------------------------------------
Function Calendario_Cerca_Giornata()
On Error GoTo Calendario_Cerca_Giornata_Err
    DoCmd.ApplyFilter " ", "[n_giornata]![n_giornata]=[Inserire un valore da
1 a 34]"
Calendario_Cerca_Giornata_Exit:
    Exit Function
Calendario_Cerca_Giornata_Err:
    MsgBox Error$
    Resume Calendario_Cerca_Giornata_Exit
End Function
----------------------------------------------------------
Questa, viene lanciata all'evento click di un tasto.
Sul click del tasto mi compare una finestra di immissione valori.
Vorrei limitare l'inserimento dei dati ai numeri che vanno da 1 a 34.
Se il dato imputato non dovesse verificare la mia condizione, allora si
aprirebbe una MsgBox.
Comunque sia la Vs risposta, grazie comunque per l' aiuto.
A presto!!!!


author: Emyr

text:


vedi imputbox
Saluti.
Emanuele.


title: Automazione Access-Word. Esportazione di record contenuti in sottomaschera.

text:
Access 2003 / 2010

Buongiorno a tutti.
Spero in un vostro aiuto; mi sono bloccato e non riesco ad andare avanti,
pur provando a modificare il codice.
Il codice che segue prende i dati da una form basata su query e tutto
funziona correttamente per quanto riguarda i singoli campi di un record,
mentre per quanto riguarda
L'esportazione dell'equipaggio (vedasi in fondo al codice "INIZIO
esportazione Equipaggio") da altra sottomaschera mi prende solo il primo
recor; in realta l'equipaggio pu� essere conposto da tre o pi� persone,
quindi dovrebbe accodare nel file .dot di word tutte le persone che sono
presenti come record nella sottomaschera.
Mille grazie, Bruno

Private Sub ApriScheda_Click()
    'Associazione tardiva (late binding)
'Dim word As Object
'Set word = CreateObject("Word.Application")

    Dim wordApp As Object
    Dim wordDoc As Object
    Dim blOpen As Boolean
    On Error Resume Next
    blOpen = True
    Set wordApp = GetObject(, "Word.Application")
    If Err.Number = 429 Then
        Set wordApp = CreateObject("Word.Application")
        blOpen = False
        Err.Number = 0
    End If
    With wordApp
        'Make the application visible.
        .Visible = True

        'Open the document. Riferimenti MSWord 2010: Microsoft Word 14.0
Object Library
        .Documents.Open
("\\XX1015152Z001\SezOpz\GESREP\DATABASE\ODS\PreavvisoMissione.dot")

        .ActiveDocument.Bookmarks("DataOraDecollo").Select
        .Selection.Text =
(CStr([PreavvisoMissione].Form![DataODS_Preavviso])) & " - " &
(CStr([PreavvisoMissione].Form![HRInServ_Preavviso]))
        .ActiveDocument.Bookmarks.Add Name:="DataOraDecollo",
range:=Selection.range
        '-----
        .ActiveDocument.Bookmarks("ELC").Select
        .Selection.Text = (CStr([PreavvisoMissione].Form![ELC_Preavviso]))
        .ActiveDocument.Bookmarks.Add Name:="ELC", range:=Selection.range
        '-----
        .ActiveDocument.Bookmarks("Reparto").Select
        .Selection.Text =
(CStr([PreavvisoMissione].Form![RepartoSupportato_Preavviso]))
        .ActiveDocument.Bookmarks.Add Name:="Reparto",
range:=Selection.range
        '-----
        .ActiveDocument.Bookmarks("AmbitoOp").Select
        .Selection.Text =
(CStr([PreavvisoMissione].Form![AmbitoOp_Preavviso]))
        .ActiveDocument.Bookmarks.Add Name:="AmbitoOp",
range:=Selection.range
        '-----
        .ActiveDocument.Bookmarks("MixRich").Select
        .Selection.Text =
(CStr([PreavvisoMissione].Form![CompPart_Preavviso]))
        .ActiveDocument.Bookmarks.Add Name:="MixRich",
range:=Selection.range
        '-----
        .ActiveDocument.Bookmarks("RepSpec").Select
        .Selection.Text =
(CStr([PreavvisoMissione].Form![RepartoSpeciale_Preavviso]))
        .ActiveDocument.Bookmarks.Add Name:="RepSpec",
range:=Selection.range
        '-----
        .ActiveDocument.Bookmarks("NoteAggiuntive").Select
        .Selection.Text =
(CStr([PreavvisoMissione].Form![NoteAggiuntive_Preavviso]))
        .ActiveDocument.Bookmarks.Add Name:="NoteAggiuntive",
range:=Selection.range
                '-----
        .ActiveDocument.Bookmarks("Data").Select
        .Selection.Text = (CStr(Date))
        .ActiveDocument.Bookmarks.Add Name:="Data", range:=Selection.range

            '^^^^^^^^^^^
   'INIZIO esportazione Equipaggio:

            'selezione del punto di inserimento
            .ActiveDocument.Bookmarks("Equipaggio").Select
            .Selection.Text =
(CStr([Sfrm_141_Equip].Form![IdMil].Column(0)))
            .ActiveDocument.Bookmarks.Add Name:="Equipaggio",
range:=Selection.range
            '.vbCrLf 'scrivi la riga
            '.MoveNext 'passa al prossimo record

     'FINE esportazione Equipaggio

    End With

    'Porta in primo piano il documento Word aperto
    'objWord.Activate
    'objWord.Visible = True
    'objWord.WindowState = wdWindowStateMaximize

     If Not blOpen Then
        wordDoc.Close savechanges:=False
        wordApp.Application.Quit
    End If
esci:
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.description
    GoTo esci
End Sub


title: quasi uno screensaver

author: ab

text:
Ciao a tutti
conoscete un modo per attivare un evento in seguito al non uso per un
determinato tempo di una form?
Ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: quasi uno screensaver

author: Roberto da casa

text:
"ab" <
abia...@libero.it
> ha scritto nel messaggio
news:blttes$7lu$1...@news.newsland.it...
> Ciao a tutti
> conoscete un modo per attivare un evento in seguito al non uso per un
> determinato tempo di una form?
>
> Ciao
>
Vai sul Sito Comune (link qui sotto) e nella Sezione Forms fai il download
del database di esempi allegato alla FAQ intitolata "Esempi di utilizzo
delle forms".
Apri il databse che hai scaricato e seleziona il Topic intitolato How to
Detect User Idle Time or Inactivity.
Pigiando il pulsante di comando Show Example ti verrą mostrato un esempio di
quello che ti serve.
Per maggiori ragguagli di come č stato realizzato quell'esempio vai al link:
http://support.microsoft.com/default.aspx?scid=kb;en-us;128814
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: quasi uno screensaver

text:
Roberto da casa ha scritto:
> "ab" <
abia...@libero.it
> ha scritto nel messaggio
> news:blttes$7lu$1...@news.newsland.it...
> > Ciao a tutti
> > conoscete un modo per attivare un evento in seguito al non uso per un
> > determinato tempo di una form?
> >
> > Ciao
> >
> Vai sul Sito Comune (link qui sotto) e nella Sezione Forms fai il download
> del database di esempi allegato alla FAQ intitolata "Esempi di utilizzo
> delle forms".
> Apri il databse che hai scaricato e seleziona il Topic intitolato How to
> Detect User Idle Time or Inactivity.
> Pigiando il pulsante di comando Show Example ti verrà mostrato un esempio di
> quello che ti serve.
> Per maggiori ragguagli di come è stato realizzato quell'esempio vai al link:
>
http://support.microsoft.com/default.aspx?scid=kb;en-us;128814
Grazie



title: quasi uno screensaver

text:
"ab" <
abia...@libero.it
> ha scritto nel messaggio
news:blu03n$j79$1...@news.newsland.it...
[CUT]
>
> Grazie
>
Prego



title: quasi uno screensaver

author: Antonio Biso

text:
"ab" <
abia...@libero.it
> ha scritto nel messaggio
news:blttes$7lu$1...@news.newsland.it...
> Ciao a tutti
> conoscete un modo per attivare un evento in seguito al non uso per un
> determinato tempo di una form?
Vedi evento su timer
Antonio


title: dati che si aggiornano

author: golfers

text:
Ciao. Qualcuno mi aiuta ? Ho una maschera ARTICOLI nella quale metto il
prezzo dell'articolo. Poi inserisco i vari ordini. Ma quando vado ad
aggiornare il prezzo, mi si aggiornano anche i prezzi degli ordini gia
evasi. ho provato a togliere l'integr. refer. ma mi si aggiornano
comunque...Che faccio ? mi sparo ?
Grazie
MAX
--------------------------------
Inviato via
http://usenet.iol.it


title: dati che si aggiornano

author: JBad

text:
In article <
62Z11Z51Z144Y9...@usenet.iol.it
>,
MAX...@HOTMAIL.COM
 says...
> Ciao. Qualcuno mi aiuta ? Ho una maschera ARTICOLI nella quale metto il
> prezzo dell'articolo. Poi inserisco i vari ordini. Ma quando vado ad
> aggiornare il prezzo, mi si aggiornano anche i prezzi degli ordini gia
> evasi. ho provato a togliere l'integr. refer. ma mi si aggiornano
> comunque...Che faccio ? mi sparo ?
Questo significa che il prezzo nell'ordine non e' un campo della tabella
ordini (controlla nel tuo DB) ma e' il risultato di una query e quindi ti
da' sempre il prezzo corrente dell'articolo.
La soluzione e' creare un campo prezzo nella tabella degli ordini e
impostarlo al prezzo dell'articolo quando carichi la riga di ordine, in
questo modo ti rimane sganciato dalle successive modifiche al prezzo
dell'articolo.
Ciao
--
JBad


title: dati che si aggiornano

author: LaLo

text:
"golfers" <
MAX...@HOTMAIL.COM
> ha scritto nel messaggio
news:62Z11Z51Z144Y9...@usenet.iol.it...

Potresti essere più esplicito nella definizione del database?
Hai una tabella ARTICOLI che contiene il prezzo del relativo articolo;
presumo che esista una tabella ordini (strutturata come?); quale prezzo
aggiorni? E' presente il duplicato del prezzo sulla tabella ordini?
Ciao
LaLo


title: report e grafici temporali - antogal

author: David

text:
Ciao a tutti
    sto cercando di analizzare il progetto di antogal che rappresenta
graficamente dei periodi temporali.
Trovo nel codice una sub Detail_Format che fa riferimento all'oggetto
detail, evento format!!!!
Non riesco a capire a che si riferisce di conseguenza non riesco ad
utilizzarlo con A2000!
Chi mi sa dare un consiglio?
Grazie
* David *


title: report e grafici temporali - antogal

author: AntoGal

text:
"David" <
davi...@yahoo.it
> ha scritto...
>     sto cercando di analizzare il progetto di antogal che rappresenta
> graficamente dei periodi temporali.
>
> Trovo nel codice una sub Detail_Format che fa riferimento all'oggetto
> detail, evento format!!!!
>
> Non riesco a capire a che si riferisce di conseguenza non riesco ad
> utilizzarlo con A2000!
E' l'evento "Su formattazione" del Corpo del Report. Quel nome glielo dà
Access automaticamente.
--
Ciao, AntoGal
*************************************************
Gestione punti vendita (casse e pos NCR)

www.powerretail.it
-------------------------------------------------------------
per scaricare un gioco di DAMA ITALIANA
http://volftp.mondadori.com/italiani/galletta/
*************************************************


title: [?] aggiungere valori a una combo box...

text:
Volevo aggiungere valori ad una combo box da VBA con il metodo additem ma mi
dice che non lo trova. Qual'è la sintassi corretta?
Ad ogni modo se la combo è impostata su un origine SQL posso aggiungervi da
codice dei valori a mano?
grazie
--
<***********************************>
Vigna Federico...CED L'Abbondanza
Email:
in...@labbondanza.it
Http:
www.labbondanza.it
<***********************************>


author: Andrea Sciamanna

text:
> Volevo aggiungere valori ad una combo box da VBA con il metodo additem ma
mi
> dice che non lo trova. Qual'è la sintassi corretta?
La sintassi corretta non è, sicuramente, quella di Visual Basic.
> Ad ogni modo se la combo è impostata su un origine SQL posso aggiungervi
da
> codice dei valori a mano?
No.
Per aggiungere valori, ad una combo basata su una query, quei valori devono
trovarsi nella query, quindi, al limite, li accodi alla tabella di
riferimento e fai un requery della combobox (nomecombo.requery).
Se la combo si basa su un elenco di valori, la sintassi è la seguente:
"valore1";"valore2";"....";"valoreN";
Quindi, se vuoi aggiungere un valore, scrivi:
nomecombo.RowSource = nomecombo.RowSource & "valorenuovo;"


author: Roberto dal portatile

text:
"°_Bova_°" <
in...@labbondanza.it
> ha scritto nel messaggio
news:8mm07c$9mj$1...@fe2.cs.interbusiness.it...
> Volevo aggiungere valori ad una combo box da VBA con il metodo additem ma
mi
> dice che non lo trova. Qual'è la sintassi corretta?
> Ad ogni modo se la combo è impostata su un origine SQL posso aggiungervi
da
> codice dei valori a mano?
>
> grazie
Invece che a mano anche con del codice VBA, ma non nella query che è origine
riga della combo, ma nella tabella che è dietro la query.
Roberto