text:
> Ti ringrazio per la risposta, ho provato a cercare il messaggio suggerito,
> ma non sono riuscito a trovar niente.
> Mi potresti magari indicare esattamente il sito??
>
> Grazie Max
>
Il sito Google del nostro NG è
http://groups.google.com/groups?hl=it&lr=&ie=UTF-8&group=it.comp.appl.access
in alto c'è la casella per la ricerca inserisci
 "Problema del SendObject che non funziona"
e cerca solo all'interno di it.comp.appl.access
Leggi il thread con 7 messaggi
(dovrebbe essere il primo tra i risultati)
Silvia


title: filtro in una casella combinata

author: PLOLLO

text:
Salve Ragazzi,
sto facendo una maschera per l'emissione delle bolle di accompagnamento dal
magazzino ai vari cantieri a cui la merce è destinata.
Per far questo ho creato una sottomaschera con i campi che compilano la
bolla. I codici degli articoli ora però sono diventati davvvero tanti, come
potrei fare per filtrare i codici all'interno della casella combinata
digitando le iniziali dei codici.
Per meglio dire, se volessi trovare tutti i materiali elettrici che hanno
questa struttura di codice ELE-****** vorrei che nella casella combinata
alla composizione della parola ELE, apparissero solo i codici che cominciano
per quella parola.
Oppure se avete qualche altro consiglio da darmi per filtrare al meglio i
codici per la composizione della bolla saranno accettati molto volentieri.
Vi ringrazio fin d'ora per coloro che volessero darmi aiuto.
--
______________________________________________
FAERO Contractor Srl
Via G.P. da Palestrina, 63
00193 - ROMA
Tel. 06-5237.07.12
Fax  06-5237.31.75
www.faero.it


title: filtro in una casella combinata

author: MA

text:
"PLOLLO" <
p.l...@faero.it
> ha scritto nel
messaggio
news:cjbnar$11cr$1...@newsreader2.mclink.it...

Scusa ma li hai ordinati in maniera crescente???
Oppure se hai categorie che comprendono gli
articoli creati due combo
di cui la seconda è filtratat dalla prima.
MAssimiliano


title: filtro in una casella combinata

text:
Grazie per i suggerimenti, però sono poco preparato su come applicare questa
cosa.....non è che hai qualche suggerimento pratico da applicare?......so
che ti chiedo una scocciatura....già grazie sin d'ora.
Saluti
Pierpaolo
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:dUd6d.20963$B06....@news.edisontel.com...



title: filtro in una casella combinata

author: Osvaldo

text:


Un buon libro di access no?
Mi pare tu sia veramente a corto di nozioni di base.
----------------------
Saluti
Osvaldo


title: [OT] X Sergio MAZZA

author: Gaspare

text:
Ciao Sergio,
come va? Mi hai abbandonato?
Non ho piů tue notizie da un pň e sono in pena :-(
Con Affetto ;-)
Gaspare


title: [OT] X Sergio MAZZA

author: Sergio MAZZA

text:
"Gaspare" <
break...@email.it
> ha scritto nel messaggio news:JFCse.36226$75.20...@news4.tin.it...
> Ciao Sergio,
> come va? Mi hai abbandonato?
Come faccio ad abbandonarti che non t'ho mai preso?
> Non ho piů tue notizie da un pň e sono in pena :-(
Perché IO LAVORO!... IO!
> Con Affetto ;-)
Guarda che qui Zapatero non c'č...
> Gaspare
Ciao.
--
Sergio MAZZA


title: [OT] X Sergio MAZZA

text:
[CUT]
> Come faccio ad abbandonarti che non t'ho mai preso?
Mi hai preso sin da quando mi hai risposto per la prima volta ed adesso che
ti ho "trovato" non ti lascerò mai più ;-)
> Perché IO LAVORO!... IO!
E va beh...cosa costa un sorriso od una battuta: non trovi del tempo per
quelle? La faccenda diventa seria allora...:-)
> Guarda che qui Zapatero non c'è...
E meno male! Lasciamo perdere...altrimenti come mi disse una persona che
stimo in questo NG si scatena un "FLAME" ;-)
Buona giornata e BUON LAVORO...A DOPO ;-) ;-) ;-)
Gaspare


title: [OT] X Sergio MAZZA

text:
"Gaspare" <
break...@email.it
> ha scritto nel messaggio news:qbyte.21489$b5.10...@news3.tin.it...
> [CUT]
>
>> Guarda che qui Zapatero non c'č...
>
> E meno male! Lasciamo perdere...altrimenti come mi disse una persona che stimo in questo NG si scatena un "FLAME" ;-)
Mannaggia non ci sei cascato...
> Buona giornata e BUON LAVORO...A DOPO ;-) ;-) ;-)
>
> Gaspare
Ciao.
--
Sergio MAZZA


title: indicazione s barra menu principale

author: Giuseppe

text:
qualcuno mi sa indicare qualche buona lettura magari in rete sulla creazione
del menu principale di una applicazione.
Ho visto che molti comandano l'applicazione da una maschera che ha una sorta
di pulsantiera.
io vorrei utilizzare il menu classico sotto la barra del titolo
Grazie
saluti Giuseppe


title: indicazione s barra menu principale

author: Roberto da casa

text:
"Giuseppe" <
gcondoLev...@libero.it
> ha scritto nel messaggio
news:fmxx9.114333$RO.29...@twister1.libero.it...

Hai provato sull'help a leggere Proprietą BarraMenu e Creare una barra dei
menu personalizzata per il database corrente e tutti gli altri argomenti che
l'help ti sottopone digitando come parola da cercare MenuBar?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: indicazione s barra menu principale

text:
Una volta c'era un generatore di menu.
Adesso non lo trovo piů.
E poi vorrei leggere qualcosa di ragionato sull'argomento per non rischiare
di immettermi in un strada sbagliata e combinare casini.
Una volta ricordo, tempo fa, ci avevo provato col risultato di scombinare
tutto il menu di access al punto che non riuscivo piů a lavorare.
A me invece mi serve qualcosa che quando lancio l'applicazione, questa
funzioni con la barra menu persoanlizzata, mentre in fase di sviluppo
rimanga quella solita.
Saluti Giuseppe


title: indicazione s barra menu principale

author: Roberto Marini

text:
"Giuseppe" <
gcondoLev...@libero.it
> ha scritto nel messaggio
news:fmxx9.114333$RO.29...@twister1.libero.it...

Prova a cliccare il tasto destro del mouse su una barra degli strumenti
all'interno del MDB dove vuoi creare la tua barra dei menu, dovrebbe
comparire il solito menu contestuale, scegli "Personalizza", compare la
finestra con i tre TAB "Barre degli strumenti", "Comandi", "Opzioni" scegli
la prima e clicca il pulsante "Nuova...", ti verrà così aggiunta una nuova
barra.
A questo punto puoi aggiungerci pulsanti o voci di menu.
Per aggiungere un nuovo menu vai sul TAB "Comandi" scorri l'elenco fino in
fondo e troverai "Nuovo menu" scegli quello di di destra e trascinalo nella
nuova barra che hai creato, quindi con il tasto destro del mouse cliccato
sul "Nuovo menu" che hai appena posizionato nella nuova barra procedi alle
personalizzazioni.
Puoi associare nuove voci di menu a tabelle, maschere, report, macro, ecc.
ecc. cercando bene nell'elenco che trovi sul TAB "Comandi".
Una volta creata la tua barra dei menu devi solo fare in modo che
sostituisca quella di Access ogni volta che apri il tuo mdb. Quindi vai nel
menu Strumenti -> Avvio... ed inserisci alla voce "Barra menu" la barra che
hai appena creato.
Spero di essere stato sufficientemente chiaro ...
Ciao
Roberto Marini


title: indicazione s barra menu principale

text:

Chiarissimo. Ma una volta modificata la barra dei menu e levando le cose che
all'utente non interessano perchè relative all'ambiente di sviluppo poi non
ci puoi lavorare più o mi sbaglio?
Tu come ti regoli di solito.
Mi puoi mandare qualche esempio o mi sai indicare qualche doc dove se ne
parla?


title: Problema con DLL

author: Nedo

text:
Salve,
avevo scritto alcuni giorni fa per un problema tra Access 2000 su Me e su
XP. Ho risolto la cosa sovrascrivendo una dll (MSJRO.DLL che si trova sotto
C:\Programmi\File comuni\SYSTEM\ADO).
Su un computer con XP non ho avuto problemi, su un altro invece ogni volta
che sovrascrivo la dll, dopo 3 sec me la modifica e rimette la sua. (La
differenza tra le 2 dll è la dimensione; quella di Me è 92 Kb e quella di XP
è 88.)
Come posso fare per impedirgli di cambiarla?
Sul primo computer mi comparve un messaggio in cui mi veniva chiesto se
conservare la dll che avevo inserito io; sull'altro non mi compare nulla...
SOMEBODY HELP ME!! :)
Nedo


title: Problema con DLL

text:
"Nedo" <
ned...@inwind.it
> ha scritto nel messaggio
news:vr42a.219582$AA2.8...@news2.tin.it...

Delete.....!
Se la elimini non la sovrascrive.....!
@Alex.


title: Problema con DLL

author: Giorgio prx

text:
"Nedo" <
ned...@inwind.it
> ha scritto nel messaggio
news:vr42a.219582$AA2.8...@news2.tin.it...

Prova ad avviare il sistema in modalità provvisoria o meglio riavvia in
MSDOS (se esiste in ME) quindi sostituisci la dll,
controlla anche se esiste nella cartella C:\WINDOWS\SYSBCKUP, nel caso
esistesse copiala anche li.
Ciao Giorigo.


title: Query di accodamento

author: SunnyBear

text:
Ciao a tutti!
Vorrei poter creare una query di accodamento/eliminazione che possa
copiare dei record di un database, in relazione alla data odierna in un
altro database.
Vorrei poter fare così:
Da un pulsante avviare una procedura automatica che rilevata la data
odierna cercherà tutti i record di una tabella (che ha un campo data
"dd/mm/yyyy") cha hanno un valore di 15 giorni minore e accodarli in un
database esterno.
Mi spiego meglio: Partendo da un database, dove è presente un campo
data, che giornalmente viene modificato, vorrei creare una procedura di
Backup e snellimento Database che mi permetta di avere: nel database
corrente solo gli ultimi 15gg di record e avere tutto lo storico su un
altro database esterno (che piano piano verrà riempito dalla procedura
che vorrei creare)
Spero di ever reso un pò chiara la mia idea!!!


title: Query di accodamento

author: Marco Tosto

text:
"SunnyBear" <
robert...@libero.it
> ha scritto nel messaggio
news:1139491475.2...@g43g2000cwa.googlegroups.com...
Ciao a tutti!
Vorrei poter creare una query di accodamento/eliminazione che possa
copiare dei record di un database, in relazione alla data odierna in un
altro database.
Vorrei poter fare cosě:
Da un pulsante avviare una procedura automatica che rilevata la data
odierna cercherŕ tutti i record di una tabella (che ha un campo data
"dd/mm/yyyy") cha hanno un valore di 15 giorni minore e accodarli in un
database esterno.
Mi spiego meglio: Partendo da un database, dove č presente un campo
data, che giornalmente viene modificato, vorrei creare una procedura di
Backup e snellimento Database che mi permetta di avere: nel database
corrente solo gli ultimi 15gg di record e avere tutto lo storico su un
altro database esterno (che piano piano verrŕ riempito dalla procedura
che vorrei creare)
Spero di ever reso un pň chiara la mia idea!!!
hai reso l'idea io farei cosi
crei un collegamento della tabella esterna all'interno del db
all'apertura del tuo db, oppure su click di un pulsante di nome "archivia
vecchi"
inserisci il seguente codice da controllare
setwarnings false
docmd.openquery "accodavecchi"
docmd.openquery "eliminavecchi"
accodavecchi č una query di accodamento da tua tabella a tabella collegata e
nei criteri del campo data ci metti
<=now()-15
eliminavecchi č una query di eliminazione con origine la tabella dei tuoi
record e nei criteri del campo data ci metti
<=now()-15
cosi dovrebbe andare provalo e fammi sapere ciao.


title: Query di accodamento

text:
Grazie! Era proprio quello che cercavo!
L'unica differenza è che ho necessità di esportare i dati su un
database esterno (l'archivio non deve mai stare nel PC locale)
Grazie Ancora!!!!


title: Query di accodamento

text:
"SunnyBear" <
robert...@libero.it
> ha scritto nel messaggio
news:1139554289.3...@g44g2000cwa.googlegroups.com...


Grazie Ancora!!!!
non ha importanza dove si trova il database, puoi condividere la cartella in
cui si trova il tuo db esterno
e quindi creare un collegamento alla tabella esterna attraverso le risorse
di rete nel tuo db originario.
ciao.


title: obdc con access

text:
ciao a tutti ho un problema che mi sta snervando da due giorni........
ho fatto un db che tramite gli odbc punta ad alcuni file su as e fin qui
tutto ok.
quando gli faccio fare alcune query su altri file funziona ancora bene, ma
ad un certo punto mi restituisce quest'errore :
ODBC : chiamata non riuscita.
[IBM][iseries Access ODBC Driver][DB" UDB]SQL0666- Il tempo stimato di
elaborazione query 72 supera il limite 60 (#-666)
che cosa posso fare e soprattutto dove posso intervenire???
premetto che ho su AS la V5R2 e come client access la medesima!
grazie mille.
--------------------------------
Inviato via
http://usenet.libero.it


title: obdc con access

text:
<
roby-g...@libero.it
> ha scritto nel messaggio
news:195Z103Z254Z132Y...@usenet.libero.it...
> ciao a tutti ho un problema che mi sta snervando da due giorni........
> ho fatto un db che tramite gli odbc punta ad alcuni file su as e fin qui
> tutto ok.
> quando gli faccio fare alcune query su altri file funziona ancora bene, ma
> ad un certo punto mi restituisce quest'errore :
>
> ODBC : chiamata non riuscita.
> [IBM][iseries Access ODBC Driver][DB" UDB]SQL0666- Il tempo stimato di
> elaborazione query 72 supera il limite 60 (#-666)
>
> che cosa posso fare e soprattutto dove posso intervenire???
> premetto che ho su AS la V5R2 e come client access la medesima!
>
> grazie mille.
Strumenti opzioni e aumenti gli intervalli
MAssimiliano


title: obdc con access

text:
cut
> > ODBC : chiamata non riuscita.
> > [IBM][iseries Access ODBC Driver][DB" UDB]SQL0666- Il tempo stimato di
> > elaborazione query 72 supera il limite 60 (#-666)
> >
> > che cosa posso fare e soprattutto dove posso intervenire???
> > premetto che ho su AS la V5R2 e come client access la medesima!
> >
> > grazie mille.
>
> Strumenti opzioni e aumenti gli intervalli
non funzica!!!



title: obdc con access

author: OneEDP

text:
<
roby-g...@libero.it
> ha scritto nel messaggio
news:195Z103Z254Z132...@usenet.libero.it...

Se si tratta di una query pass-through devi impostare 0 nelle proprietą
Timeout ODBC e non avrai problemi
Ciao


title: obdc con access

author: Giorgio Prx

text:
<
roby-g...@libero.it
> ha scritto nel messaggio
news:195Z103Z254Z132...@usenet.libero.it...

Ciao roby
Sembra un problema di time out. Il time out dei drivers ODBC è memorizzato
nel registro di Windows, per quanto riguarda i drivers della microsoft (Jet
4.0)  la chiave da modificare è
HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\Engines\ODBC\QueryTimeout
Dovresti cercare qualcosa di analogo per il tuo driver [IBM] e aumentare il
valore di QueryTimeout che normalmente è impostato a 60 secondi
Ciao Giorgio


title: obdc con access

text:
cut
> Se si tratta di una query pass-through devi impostare 0 nelle proprietą
> Timeout ODBC e non avrai problemi
> Ciao
dove ???



title: obdc con access

text:
<
roby-g...@libero.it
> ha scritto nel messaggio
news:195Z103Z254Z132...@usenet.libero.it...

Visualizza la query in modalitą struttura senza massimizzare la finestra,
poi clicca col pulsante destro del mouse e scegli proprietą. Troverai una
serie di informazioni utili.
Ciao


title: obdc con access

text:
cut
 > dove ???
> >
> > --------------------------------
> > Inviato via
http://usenet.libero.it
>
> Visualizza la query in modalità struttura senza massimizzare la finestra,
> poi clicca col pulsante destro del mouse e scegli proprietà. Troverai una
> serie di informazioni utili.
> Ciao
grande!!!!
pare che funzichi ora!!!
pero ti dò conferma oggi



title: obdc con access

text:
"Giorgio Prx" <
giorgio...@nospamtiscali.it
> ha scritto nel messaggio
news:bjpfv6$8id$1...@lacerta.tiscalinet.it...
>
> <
roby-g...@libero.it
> ha scritto nel messaggio
> news:195Z103Z254Z132...@usenet.libero.it...
> > cut
> > > > ODBC : chiamata non riuscita.
> > > > [IBM][iseries Access ODBC Driver][DB" UDB]SQL0666- Il tempo stimato
di
> > > > elaborazione query 72 supera il limite 60 (#-666)
> > > >
> > > > che cosa posso fare e soprattutto dove posso intervenire???
> > > > premetto che ho su AS la V5R2 e come client access la medesima!
> > > >
> > > > grazie mille.
> > >
> > > Strumenti opzioni e aumenti gli intervalli
> >
> >
> > non funzica!!!
> >
> >
> > --------------------------------
> > Inviato via
http://usenet.libero.it
>
> Ciao roby
>
> Sembra un problema di time out. Il time out dei drivers ODBC č memorizzato
> nel registro di Windows, per quanto riguarda i drivers della microsoft
(Jet
> 4.0)  la chiave da modificare č
> HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\Engines\ODBC\QueryTimeout
>
> Dovresti cercare qualcosa di analogo per il tuo driver [IBM] e aumentare
il
> valore di QueryTimeout che normalmente č impostato a 60 secondi
>
> Ciao Giorgio
>
Infatti questo č quello di default, comunque personalizzabile nelle
proprietŕ di ogni singola query.


title: ODBC: connessione non riuscita ....

author: Zef

text:
ciao a tutti,
posto problema e risposta sperando sia di aiuto a qualcuno,
FE basato su tabelle in un DB di rete (MSDE/SQL)
ad un certo punto appare la scritta in oggetto!!!
la query incriminata non restituisce niente e non ne vengo a capo!!!
la cosa strana č che le tabelle funzionano tutte ... "la" query no!!
per farla breve ....
avevo cancellato un campo nella tabella del DB di rete
senza ... riallegare le tabelle nel FE ... e perchč mai dovrei?
da quel che ho capito ogni FE ha un "immagine" della tabella allegata,
immagine che viene aggiornata SOLO quando si riallegano le tabelle,
infatti sul FE esistevano dei campi che sulle tabelle originali erano
spariti del tutto perchč eliminati ... scoperta dell'acqua calda?
sta di fatto che nella query dove le tabelle erano inserite con *
il DB cercava quei campi che di fattto non esistevano piů ...
restituendo un ... NIET generale (per ogni campo appariva "..nome?")
morale:
ogni volta che si modifica anche marginalmente il BE
... riallegare le tabelle in ogni FE!!!
tolgo il disturbo
ciao a tutti, Zef
PS: BE= BackEnd,  FE FrontEnd


title: ODBC: connessione non riuscita ....

author: Oscar Manfredini

text:
"Zef"
> morale:
> ogni volta che si modifica anche marginalmente il BE
> ... riallegare le tabelle in ogni FE!!!
Vero, ma lo scrivi come se fosse un grande problema!
I Databases, terminato lo sviluppo, non si modificano a ogni piè sospinto,
come fosse un gioco  :-)
Ciao, Oscar


title: Nelle maschere, esiste un metodo per gestire la tabulazione non automatica?

author: Michele (Giò)

text:
Salve a tutti..
Forse Vi sarà capitato più di una volta che la tabulazione automatica
(Strumenti > Opzioni > Tastiera > Con Invio passa a: 1: nessuno spostamento
2: campo successivo 3: record successivo) Vi abbia creato non pochi
grattacapi quando la convalida di un campo dovesse essere gestita a livello
di codice, perchè la regola di convalida nelle proprietà del controllo non
permetteva certi tipi di verifiche.
Nel caso difatti la regola di convalida avesse dato esito negativo per un
qualsiasi campo, bisognava inventarsi (almeno parlando per me)
stratosferiche strutture di eventi LostFocus, GotFocus e metodo Setfocus,
per ogni controllo o qualsiasi altro oggetto di maschera che potesse essere
puntato dal mouse o selezionato da tastiera, e questo per stare leggeri. Vai
tranquillo poi che tutto non ancora funzionava come nei presupposti.
Come già qualcuno avrà sicuramente provato, se l'opzione scelta per l'invio
è "campo successivo" (predefinita e usata da quasi tutti) e se la convalida
via codice restituisce esito negativo, il far restare il cursore all'interno
del controllo richiede non poco dispendio. Certo, si disabilitano tutti i
controlli che non c'entrano (così il cursore resta all'interno del
controllo) e poi si gestisce l'abilitazione e disabilitazione per tutti i
controlli man mano che si inseriscono i dati, costruendo una sorta di
"percorso obbligato". A volte però questo non sempre è possibile, può
diventare una martoriazione per l'utente per svariati motivi (o perchè deve
modificare un dato già disabilitato, o per qualsiasi altro voglia motivo) e
la gestione della cosa diventa ad un certo punto pesante fino a scappare di
mano.
Io ho adottato un sistema che abilita e disabilita da codice il passaggio o
meno al campo successivo con le funzioni (che già qualcuno conoscerà):
Function Blocca_Cursore()
Application.SetOption "Move After Enter", 0
End Function
Function Sblocca_Cursore()
Application.SetOption "Move After Enter", 1
End Function
e una funzione, che se a qualcuno può interessare, accetta in ingresso un
controllo e sposta il focus al controllo successivo, gestendo, se il
controllo è l'ultimo in ordine di tabulazione, la ripartenza dal primo.
La mia domanda è:
qualcuno di Voi adotta soluzioni moooooolto più semplici di questa o tutto
l'ambaradan che ho scritto può veramente interessare a qualcuno ( e in
questo caso faccio pervenire il tutto al Sito Comune)?
Cordiali saluti


author: Alessandro Baraldi

text:
Michele (Giò) ha scritto:

Scusa ma io gestisco in altro modo la validazione dati, quindi non mi
è chiarissimo.
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=157
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=156
In ogni caso perchè nel tuo sistema non sfrutti
Screen.PrevousControl.SetFocus...
in caso di errore nel DataEntry....?
@Alex


text:
"Michele (Giò)" <
joyl...@alice.it
> ha scritto nel messaggio
news:44fb3cae$0$35074$4faf...@reader4.news.tin.it...

Io faccio la validazione prima della scrittura dei dati...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:edghu2$6vv$1...@area.cu.mi.it...
> "Michele (Giò)" <
joyl...@alice.it
> ha scritto nel messaggio
> news:44fb3cae$0$35074$4faf...@reader4.news.tin.it...
>> Salve a tutti..
> Io faccio la validazione prima della scrittura dei dati...
>
> Ciao.
> --
> Sergio MAZZA
Eh si Sergio, è proprio vero.... certa gente ama complicarsi la vita quando,
vuoi per il caso o per la superficialità, non dà subito un significato a
quel (Cancel as Integer) che si trova sull'evento BeforeUpdate. Adesso che
ho dato un significato a quella variabile, mi rendo conto di aver penato un
anno per niente...... Non si è nati maestri e c'è sempre da imparare.
Ho provato a giocare un pò con il Cancel, e devo dire che con un pò di
ricami mi può fornire lo stesso servizio della parapiglia che ho scritto....
beh dai, mi consolo con il fatto che comunque una via d'uscita l'avevo
trovata lo stesso....
Saluti
Michele


text:
"Michele (Giò)" <
joyl...@alice.it
> ha scritto nel messaggio
news:44fdb968$0$47955$4faf...@reader3.news.tin.it...
>
> Eh si Sergio, è proprio vero.... certa gente ama complicarsi la vita
> quando, vuoi per il caso o per la superficialità, non dà subito un
> significato a quel (Cancel as Integer) che si trova sull'evento
> BeforeUpdate. Adesso che ho dato un significato a quella variabile, mi
> rendo conto di aver penato un anno per niente...... Non si è nati maestri
> e c'è sempre da imparare.
E meno male che c'è sempre da imparare; sai che noia altrimenti?
Giusto per la cronaca; la decisione di effettuare un controllo alla fine ci
sono arrivato perché per 10 anni ho sperimentato (mansioni precedenti) su me
stesso l'inserimento dati. Con più di 30.000 record mensili (pagamenti
competenze accessorie) non potevo certo permettermi il lusso di essere
bloccato ogni volta che avevo riempito un campo: fai la verifica della
matricola (7.500 dipendenti), fai la verifica della indennità (in media 3
per dipendente), fai la verifica del tetto indennità se => valore
inserito... Da pazzi!
A chi sviluppava gli ho detto che non avrei accettato un metodo del genere,
mi andava benissimo un inserimento massivo dei dati e alla fine un batch che
verificava tutto.
> Ho provato a giocare un pò con il Cancel, e devo dire che con un pò di
> ricami mi può fornire lo stesso servizio della parapiglia che ho
> scritto.... beh dai, mi consolo con il fatto che comunque una via d'uscita
> l'avevo trovata lo stesso....
Vedila da un altro punto di vista; hai sicuramente compreso l'utilizzo delle
routine evento e dei parametri che ti restituiscono (Cancel)...
> Saluti
>
> Michele
Ciao.
--
Sergio MAZZA


title: Ultimi record

author: AG

text:
Cari amici,
con Me.Count riesco associato ad una casella di testo NumeroRecord riesco ad
ottenere il numero di record del recordset:
NumeroRecord=Me.Count
Ora volendo inserire in un'altra casella un valore numerico X, come faccio
ad estrarre gli ultimi X records che vorrei associare alla proprietà
RowSource di una casella di riepilogo.
Mi farebbe comodo anche una versione SQL di questi comandi.
Grazie par l'ascolto
Alesandro


title: Ultimi record

text:
"AG" <
age...@tin.it
> ha scritto nel messaggio
news:8v7r8n$717$1...@nslave3.tin.it...
> Cari amici,
> con Me.Count riesco associato ad una casella di testo NumeroRecord riesco
ad
> ottenere il numero di record del recordset:
>
> NumeroRecord=Me.Count
>
> Ora volendo inserire in un'altra casella un valore numerico X, come faccio
> ad estrarre gli ultimi X records che vorrei associare alla proprietą
> RowSource di una casella di riepilogo.
>
> Mi farebbe comodo anche una versione SQL di questi comandi.
>
> Grazie par l'ascolto
> Alesandro
>
>
Ipotizzando che:
1) l'oggetto del data base che contiene i record da vedere nella casella di
riepologo si chiami Tabella1
2) il nome della casella di riepilogo sia Elenco ed abbia 4 colonne
3) tu voglia vedere nella casella di riepilogo i campi Campo1, Campo2,
Campo3 e Campo4 di Tabella1
4) la casella di testo non associata che contiene X si chiami Pippo
5) che vuoi vedere in Elenco gli ultimi X record di Tabella1 qualora essa
risulti ordinata per Campo1
6) che la tua maschera si chiami Maschera1
a fronte dell'evento "Dopo aggiornamento" del controllo Pippo genera il
seguente codice VBA:
Dim strOttieniSQL As String
strOttieniSQL = "SELECT TOP " & Str([Forms]![Maschera1]![Pippo]) & "
Tabella1.[Campo1] " _
    & "AS UltimiRecord, Tabella1.Campo2, Tabella1.Campo3, Tabella1.Campo4
FROM Tabella1 " _
    & "ORDER BY Tabella1.[Campo1] DESC;"
Me![Elenco].RowSource = strOttieniSQL
Per maggiori dettagli vedi sull'help "Proprietą PrimiValori" e relativo
esempio
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Ultimi record

author: Silvio Berruti

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:GURR5.90963$BF.32...@news.infostrada.it...
>
> "AG" <
age...@tin.it
> ha scritto nel messaggio
> news:8v7r8n$717$1...@nslave3.tin.it...
> > Ora volendo inserire in un'altra casella un valore numerico X, come
faccio
> > ad estrarre gli ultimi X records che vorrei associare alla proprietà
> > RowSource di una casella di riepilogo.
> >
> strOttieniSQL = "SELECT TOP " & Str([Forms]![Maschera1]![Pippo]) & "
> Tabella1.[Campo1] " _
>     & "AS UltimiRecord, Tabella1.Campo2, Tabella1.Campo3, Tabella1.Campo4
> FROM Tabella1 " _
>     & "ORDER BY Tabella1.[Campo1] DESC;"
> Me![Elenco].RowSource = strOttieniSQL
>
Solo un'aggiunta.
Nel caso che AG desideri ottenere non gli ultimi X record alfabeticamente,
ma in ordine cronologico di inserimento, dovrebbe ordinare in base ad un
contatore progressivo o in base ad un campo data (che nell'esempio di
Roberto sarebbero sempre il [Campo1].
Ciao
--
Silvio



title: Ultimi record

text:
> Solo un'aggiunta.
>
> Nel caso che AG desideri ottenere non gli ultimi X record alfabeticamente,
> ma in ordine cronologico di inserimento, dovrebbe ordinare in base ad un
> contatore progressivo o in base ad un campo data (che nell'esempio di
> Roberto sarebbero sempre il [Campo1].
>
> Ciao
>
> Silvio
>
Grazie Silvio, in effetti al codice di Roberto ho dovuto aggiungere un campo
contatore che determinasse la sequenza di ingresso dei record. Chissà perchè
credevo si potesse cercare una specie di indice naturale che li
classificasse, in fondo, Access riconosce cosa è Previous e Next.
Ma la cosa che mi sfugge, è un fatto di natura logica (credo): Come mai SQL
fornisce una SELECT TOP e non anche una SELECT BOTTOM: questo eviterebbe il
lavoro di riordino.
Adesso, solo per discutere, secondo te è più veloce l'SQL suggerita oppure
una soluzione del tipo : apertura della tabella, (conteggio dei record - il
numero desiderato), estrazione dei record derivanti da questo risultato,
collocazione dei record in una tabella temporanea, associazione della
tabella temporanea ad un controllo.
Ahimè SQL è come il latino: mi rendo conto che non conoscerlo è un problema.
Grazie
Alessandro


title: Ultimi record

text:
"AG" <
age...@tin.it
> ha scritto nel messaggio
news:8vahpb$7ue$1...@nslave3.tin.it...
> Ma la cosa che mi sfugge, è un fatto di natura logica (credo): Come mai
SQL
> fornisce una SELECT TOP e non anche una SELECT BOTTOM: questo
Perché riordinare è il pane x un db
> Adesso, solo per discutere, secondo te è più veloce l'SQL suggerita oppure
> una soluzione del tipo : apertura della tabella, (conteggio dei record -
il
> numero desiderato), estrazione dei record derivanti da questo risultato,
> collocazione dei record in una tabella temporanea, associazione della
> tabella temporanea ad un controllo.
Non ho provato, ma a pelle direi che fa MOLTO prima l'istruzione SQL.
> Ahimè SQL è come il latino: mi rendo conto che non conoscerlo è un
problema.
Anch'io lo sto imparando poco x volta e ti assicuro che non è poi così
ostico; sicuramente meglio del latino (quanto tempo perso!!!)



title: Query Tariffe

author: Roberto Corengia

text:
La mia domanda č in fondo alla pagina ma per capire il problema ho
inserito anche la precedente risposta:
>> Ho una tabella con le seguenti colonne:
>> Corriere;Provincia;capoluogo/provincia;kg;tariffa
>> Vorrei costruire un query che dando la provincia e la ultiriore
>> precisazione provincia o capoluogo la query deve estrarre i corrieri che
>> in quella provincia e per ogni chilo hanno la tariffa minore.
> [cut]
>>
>> Quindi la query riporta solo quei corrieri che pur avendo la stessa
>> provincia e lo stesso aumento di Kg hanno la tariffa minore
>
> select corriere,provincia,capoluogo,kg, min(tariffa) from balzelli
> where (icriterichevuoi)
> group by corriere,provincia,capoluogo,kg
>
> visto che come criterio vorresti impostare provincia/capoluogo tali
> attributi potrebbero essere omessi dalla select e dalla group by
>
Ho provato a fare nel modo descritto:
SELECT principale.Corriere, principale.Provincia, principale.P_C,
principale.da, Min(principale.Tariffa) AS MinDiTariffa
FROM principale
WHERE ( ???????????????? )
GROUP BY principale.Corriere, principale.Provincia, principale.P_C,
principale.da
HAVING (((principale.Provincia)=[Digitare la provincia]) AND
((principale.P_C)=[P o C ?]))
ORDER BY principale.da, Min(principale.Tariffa);
Come posso inserire il criterio Where che mi deve estrarre solo i
corrieri con tariffa minore ??
Grazie 1000
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Impostare data su apertura db

author: Giorgia

text:
Buongiorno a tutti.
In seguito al mio post "accettare data solo se del mese corrente" per chi
l'avesse letto, ho pensato che sarebbe pi� utile per le mie esigenze
impostare IO all'apertura del db la data di now.
Perch� per es oggi 03/08, ho delle difficolt� a registrare le ft di Luglio
avendo indicato questo nella data di registrazione iva
If Month([REGISTRAZIONE IVA]) <> Month(Date) Or Year([REGISTRAZIONE IVA]) <>
Year(Date) Then MsgBox "Data fuori periodo IVA"
quindi avrei preferito dire al db che oggi � ancora il 31/07....
Suggerimenti?
--
Giorgia


title: Impostare data su apertura db


title: Impostare data su apertura db

author: almorel

text:
On 3 Ago, 10:07, "Giorgia" <
gior...@vitaletrasporti.com
> wrote:
> Buongiorno a tutti.
> In seguito al mio post "accettare data solo se del mese corrente" per chi
> l'avesse letto, ho pensato che sarebbe più utile per le mie esigenze
> impostare IO all'apertura del db la data di now.
> Perchè per es oggi 03/08, ho delle difficoltà a registrare le ft di Luglio
> avendo indicato questo nella data di registrazione iva
>
> If Month([REGISTRAZIONE IVA]) <> Month(Date) Or Year([REGISTRAZIONE IVA]) <>
> Year(Date) Then MsgBox "Data fuori periodo IVA"
>
> quindi avrei preferito dire al db che oggi è ancora il 31/07....
>
> Suggerimenti?
> --
> Giorgia
Puoi mettere Date() o Now () come valore predefinito del text box (ti
funziona, però, solo se il record è nuovo e non se è già esistente e
deve essere aggiornato).
Altrimenti puoi fare in modo che il warning rimanga tale e non ti
impedisca di inserire mesi diversi dall'attuale.
Ancora, potresti accettare il mese precedente:
If Month([REGISTRAZIONE IVA]) = Month(Date)-1  then
ok = MsgBox  ("Registrazione mese precedente, confermi ?", vbyesno)
if ok <> vbyes then
..... fai quello che vuoi...
exit sub            'devi uscire per evitare il secondo controllo
endif
' poi passi al controllo della data
If Month([REGISTRAZIONE IVA]) <> Month(Date) Or Year([REGISTRAZIONE
IVA]) <>
Year(Date) Then MsgBox "Data fuori periodo IVA"
Prova se ti funziona .
Ciao.
Alberto


title: Impostare data su apertura db

author: Valerio Valentini

text:

Posto che questo � un problema che ti aveva gi� rilevato BFS nel post a cui
ti riferisci, al posto tuo seguirei il suo suggerimento. Cambiare la data
del computer mi sembra una pessima idea, finiresti sicuramente con combinare
casini nelle registrazioni.
Piuttosto segui la strada indicata a mio parere in questo modo:
una tabella in cui metti mese ed anno del periodo IVA ed un campo chiuso o
no. poi i confronti li fai con quel valore, cos� il messaggio fuori periodo
lo puoi lasciare, tipo IVA luglio il mese 6 per < te lo segnala, poi se vuoi
aggiungi un confronto > per non permettere la registrazione di fatture di
agosto fino alla chiusura del periodo 7.
Al contrario imbrogliando il computer sul mese in cui stai lavorando rischi
di registrare fatture di agosto in luglio senza accorgertene.
Se invece vuoi proprio modificare la data con cui registri all'apertura,
allora non usare quella del computer ma una che salvi in tabella o variabile
quando accedi e fagli mettere quella come data di registrazione aggiungendo
per� un campo ulteriore con data effettiva per poter risalire ai casini che
puoi fare.
Ad un computer poi chiedere molto ma non di correggere gli errori che
volutamente gli facciamo fare.
Ciao, Valerio.


title: Impostare data su apertura db

text:
> Se invece vuoi proprio modificare la data con cui registri all'apertura,
> allora non usare quella del computer ma una che salvi in tabella o
> variabile quando accedi e fagli mettere quella come data di registrazione
> aggiungendo per� un campo ulteriore con data effettiva per poter risalire
> ai casini che puoi fare.
Grazie Valerio, mi sembra questa la soluzione che pi� si avvicina alle mie
esigenze, ci lavoro su.
> Ad un computer poi chiedere molto ma non di correggere gli errori che
> volutamente gli facciamo fare.
>
> Ciao, Valerio.
>
ciao, Giorgia


title: Impostare data su apertura db

text:
"almorel" <
alm...@gmail.com
> ha scritto nel messaggio
news:02f92d83-15bf-4f1f...@o32g2000yqm.googlegroups.com...
On 3 Ago, 10:07, "Giorgia" <
gior...@vitaletrasporti.com
> wrote:
> Buongiorno a tutti.
> In seguito al mio post "accettare data solo se del mese corrente" per chi
> l'avesse letto, ho pensato che sarebbe pi� utile per le mie esigenze
> impostare IO all'apertura del db la data di now.
> Perch� per es oggi 03/08, ho delle difficolt� a registrare le ft di Luglio
> avendo indicato questo nella data di registrazione iva
>
> If Month([REGISTRAZIONE IVA]) <> Month(Date) Or Year([REGISTRAZIONE IVA])
> <>
> Year(Date) Then MsgBox "Data fuori periodo IVA"
>
> quindi avrei preferito dire al db che oggi � ancora il 31/07....
>
> Suggerimenti?
> --
> Giorgia
Puoi mettere Date() o Now () come valore predefinito del text box (ti
funziona, per�, solo se il record � nuovo e non se � gi� esistente e
deve essere aggiornato).
Altrimenti puoi fare in modo che il warning rimanga tale e non ti
impedisca di inserire mesi diversi dall'attuale.
Ancora, potresti accettare il mese precedente:
If Month([REGISTRAZIONE IVA]) = Month(Date)-1  then
ok = MsgBox  ("Registrazione mese precedente, confermi ?", vbyesno)
if ok <> vbyes then
..... fai quello che vuoi...
exit sub            'devi uscire per evitare il secondo controllo
endif
' poi passi al controllo della data
If Month([REGISTRAZIONE IVA]) <> Month(Date) Or Year([REGISTRAZIONE
IVA]) <>
Year(Date) Then MsgBox "Data fuori periodo IVA"
Prova se ti funziona .
Ciao.
Alberto
Grazie per le diverse alternative!
penso che la terza sia quella che pi� mi consenta di ottenere quello che
desidero e allo stesso tempo di controllare i possibili errori.
Buona giornata.
Giorgia


title: mi SPIEGO MEGLIO...aiutatemi!!!!

author: Roberto dal portatile

text:
"Ferdinando" <
ferdin...@ciaoweb.it
> ha scritto nel messaggio
news:TCJT6.556$on1....@news1.tin.it...
> Sto cercando di creare un programma con excel o visual basic o con Acces
che
> faccia
> questo:
>
> -Inseriti una serie di  numeri ,  es.  10 numeri
>
> -Di questi numeri una volta inseriti bisogna che il computer trovi i 2
> numeri più piccoli ed i 2 numeri  più grandi
>
> -Dopo averli trovati toglierli dal gruppo dei 10 e fare la somma di quelli
> che sono rimasti .
>
>
> ESEMPIO
>  gruppo di 10 numeri : 2 -5-7-9-1-10-20-15-12-4
>
> 1  e 2  sono  i più piccoli
> 15 e 20 sono i più grandi
>
> quindi si somma 5+7+9+10+12+4 = 47
>
> I numeri inseriti in ogni gruppo devono essere da un minimo di 5 ad un
> massimo di 10
>
> -GRUPPO---NUMERI----------somma-----classifica
> gruppo 1-----5+7+9+10+12+4 = 47----------1
> gruppo 2-----5+1+9+10+12+4 = 41----------5
> gruppo 3-----5+7+7+10+12+4 = 44----------4
> gruppo 4-----5+5+9+10+12+4 = 45----------3
> gruppo 5-----4+7+9+10+12+4 = 46----------2
>
> Dalla somma ricavata dai singoli gruppi deve venire fuori affianco la
> rispettiva classifica in base al numero più grande.
>
> SE ESISTE QUALCUNO CHE GENTILMENTE MI PUO FARE IL FILE DIRETTAMENTE DA
> INVIARMI LO RINGRAZIO , PERCHE' FINO ADESSO A CHIUNQUE HO DOMANDATO NONè
> RIUSCITO A FARMI L'ULTIMA PARTE QUELLA DELLA CLASSIFICA.
> La classifica mi dovrebbe dare i piazzamenti anche con tre numeri uguali ,
> perchè è capitato con excel con due o tre numeri uguali mi saltava un
posto.
> E poi bastavo che c'erano solo tre o quattro somme non mi dava la
> classifica(questo con il Rango in excel)
>
> Se si riesce a risolvere con un altro programma è meglio , perchè io non
ci
> riesco.
> Mandatemi il file già pronto perchè è da giorni che mi mandano dei
spezzoni
> di formule che io non riesco a mettere insieme.
> GRAZIE a chiunque voglia AIUTARMI.
>
Se i dati da elaborare sono contenuti in una tabella chiamata Tabella1 che
ha la seguente struttura:
ID                Contatore e chiave primaria
Gruppo        Numerico
Pippo           Numerico
nella quale in Gruppo digiti il codice del gruppo ed in Pippo valori da
sommare, creati una query chiamata Query1 (attenzione che per funzionare
occorre che la query si chiami proprio Query1) che abbia il seguente codice
SQL:
SELECT Tabella1.Gruppo, Sum(IIf(DCount("Pippo","Tabella1","Gruppo=" &
[Gruppo] & " And Pippo<" &
[Pippo])<2,0,IIf(DCount("Pippo","Tabella1","Gruppo=" & [Gruppo] & " And
Pippo>" & [Pippo])<2,0,[Pippo]))) AS Somma,
DCount("Gruppo","Query1","Somma>" & [Somma])+1 AS Classifica
FROM Tabella1
GROUP BY Tabella1.Gruppo;
Facci sapere se va bene.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: mi SPIEGO MEGLIO...aiutatemi!!!!

text:
Tante volte non fossi stato chiaro, in Tabella1 avrai un record per ogni
numero da elaborare.



title: mi SPIEGO MEGLIO...aiutatemi!!!!

author: Ferdinando

text:
Il programma l'ho completato , grazie a tutti voi.
N.B.
Non inviatemi più niente


title: Proprietà "Compressione UNICODE"

author: Alessandro Tealdi

text:
Creando un campo di una tabella da Codice,
qualcuno sa come si imposta da VBA la proprietà "Compressione UNICODE"
(che viene per default impostata=SI  nella creazione manuale)  ?????
Grazie, buon lavoro ed Auguri a tutti !!!!!
                                                            Alessandro
Tealdi


title: Proprietà "Compressione UNICODE"

author: Carlo Costarella

text:
"Alessandro Tealdi" <
s.te...@sistemidue.it
> ha scritto nel messaggio
news:a0fecd$6r9$1...@fe1.cs.interbusiness.it...

Valido a partire dalla versione 2000:
CREATE TABLE TableName (FieldName CHARACTER(255) WITH COMPRESSION)
E questo è quello che riporta MSDN:
All string data type fields can be defined to store data in a compressed
format. If you have defined a string data type field with this attribute,
data will be compressed as it is stored, and uncompressed when retrieved
from the field.
This attribute was added for Character fields because of the change to the
Unicode character representation format. Unicode characters uniformly
require two bytes for each character. For existing Microsoft Jet databases
that predominantly contain character data, this could mean that the database
file would nearly double in size when converted to the Microsoft Jet 4.0
format. Yet the Unicode representation of many character sets (those
formerly denoted as Single-Byte Character Sets, SBCS) can easily be
compressed to a single byte. The following is an example of how to define a
field that is to be compressed: CREATE TABLE TableName (FieldName
CHARACTER(255) WITH COMPRESSION)
Ciao, Carlo
Un abbonamento a MSDN è costoso ma spesso trovi anche quello che non è
documentato.


title: Quanti record !!

author: LiviaeIlario

text:
Ciao a tutti,
ancora un piccolo aiuto dal mondo dei maghi.
Come  faccio a far stampare dal report ( che prende i dati da una tabella )
un record alla volta, attualmente mi stampa tutti e record sullo stesso
foglio.
Grazie mille
Ilario


title: Quanti record !!

author: Sergio MAZZA

text:
"LiviaeIlario" <
liviae...@libero.it
> ha scritto nel messaggio
news:hUFP4.80579$xt2.9...@news.infostrada.it...

Vale a dire un record per pagina?
Imposta la proprietą "Interruzione pagina" a "Dopo sezione"...
Ciao.


title: Requery

author: Cogo R.

text:
Data una maschera che mostra i record di una tabella, dopo una Requery il
puntatore si riposiziona sul primo record ,mentre vorrei riposizionare il
puntatore su un determinato campo con un valore (memorizzato in precedenza).
Qualcuno mi può suggerire l'istruzione opportuna?
Grazie
Cogo R


title: Requery

author: Karl Donaubauer

text:

www.donkarl.com/it
 FAQ 4.5  Lo stesso record dopo un Requery
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)


title: Stampa da file

author: borrant

text:
Qualcuno sa per piacere come si fa, dopo aver lanciato un stampa con opzione
stampa su file, a ricavare la stampa su carta dal file generato ?
Grazie


title: Stampa da file

text:
"borrant" <
bor...@libero.it
> ha scritto nel messaggio
news:8nun8l$rmf$1...@serv1.albacom.net...
> Qualcuno sa per piacere come si fa, dopo aver lanciato un stampa con
opzione
> stampa su file, a ricavare la stampa su carta dal file generato ?
>
Vai al prompt di MsDos e digiti:
copy nomefile.ext lpt1: /b
oppure ti puoi fare un file batch tipo:
@echo off
if "%1" == "" goto Esci
if exist %1 copy %1 lpt1: /b
:Esci
cls
che puoi chiamare ad es. stampa.bat e lanciarlo anche da Access con il
comando Shell, specificando dopo stampa.bat il nome del file generato.
Ciao
Silvio


title: The Greatest News Ever!

text:
http://www.jcil.blogspot.com
 << The Greatest News Ever!


title: Databasa gestioni ordini

author: Roberto Betori

text:
Volevo farvi una domandinia,
Possiedo un database creato da me per gestire ordini a clienti, quindi pieno
di tabelle e query di vario genere.
A fine anno il mio amico che lo utilizza, vuole che io gli azzeri tutto
eccetto il recordset dei clienti, dei prodotti e dei fornitori, pero vuole
anche poter andare a vedere i dati relativi all'anno precedente. Quindi non
posso azzerare il database principale, secondo voi quale è la soluzioni piu
pratica?
ho pensato di creargli una copia del programmino e azzarare quella, in caso
di bisogno dei vecchi dati basterebbe aprire il database vecchio, diciamo
che questo è un sistema semplice ma grezzo, esiste qualcosa di piu fino?


title: Databasa gestioni ordini

text:
"Roberto Betori" <
roby...@tin.it
> ha scritto nel messaggio
news:8vkitk$35t$1...@nslave2.tin.it...

Una possibile soluzione e' utilizzare le date per visualizzare alcuni dati
contenuti nelle tue tabelle. Esempio : se vuoi vedere o utilizzare i dati
del 1999, magari ti crei una maschera con una casella di controllo con
valore predefinito = 1999. questa la utilizzi come filtro per eventuali
visualizzazionei di movimenti. Oppure utilizzi un valore predefinito =
"year" in questo modo visualizzerai solo i movimenti dell'anno in corso.
Ciao. Luca.


title: Databasa gestioni ordini

author: Graziano Franchi (Dal Client)

text:
ID ORDINE  100001
Dove 1 è l'anno 2000 e 00001 è il numero ordine
Nel 2001 ID ORDINE 200001
Saluti
"Roberto Betori" <
roby...@tin.it
> ha scritto nel messaggio
news:8vkitk$35t$1...@nslave2.tin.it...



title: Databasa gestioni ordini

author: Luigi-R

text:
"Roberto Betori" <
roby...@tin.it
> ha scritto nel messaggio
news:8vkitk$35t$1...@nslave2.tin.it...

Aggiungi un campo Si/No nella tabella principale. A differenza che questo
campo sia o meno selezionato, utilizzando opportunamente delle query, i dati
relativi all'anno precedente possono semplicemente essere fatti sparire, pur
essendo ancora al loro posto. Con altre query, ovviamente, sarà possibile
procedere anche alle ricerche.
Questà è la possibilità che preferisco. Ciao


title: Databasa gestioni ordini

author: Sib

text:
"Roberto Betori" <
roby...@tin.it
> ha scritto nel messaggio
news:8vkitk$35t$1...@nslave2.tin.it...

Due soluzioni:
1.    Filtri i dati in base alla data.
2.    Crei una tabella "storica" per ogni tua tabella (qualcosa come
NomeTabellaStorico) e annualmente trasferisci tutti i record accodandoli
alle tabelle storiche e svuotando le tabelle di lavoro.
Sib


title: form aperto?

author: Odo

text:
Un saluto al gruppo
sara' l'uovo di colombo.. ma proprio.. non riesco ad arrivarci..
come faccio a verificare che un form sia aperto?
e visto che mi trovo a postare, spiego un po' tutto.. cosi' magari qualcuno
ne trae spunto o viceversa.
Autokeys = gran bella trovata, ed e' tutto lisci finchè hai una sola form,
ma se poi hai varie form? allora o hai fatto davvero del bel codice, oppure
sei messo come me e  devi mettere una bella condizione in ogni tasto
predefinito, tipo:
Se la form "pincopallino" e' aperta allora esegui il resto..
se e' chiusa.. non fare niente..
o mettere un "else" fai quest'altra cosa..
:)
Ciao e Thx


title: form aperto?

text:
Odo wrote:
> ...
> come faccio a verificare che un form sia aperto?
> ...
www.donkarl.com/it
 FAQ 4.19 Verificare se una maschera è aperta
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
 + iscriviti alla prima Conferenza
Italiana per Sviluppatori di Access (CISA 1), Arezzo, 4+5/6/2005


title: form aperto?

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:3c1iuhF...@individual.net...

Grazie!  chiaramente risolto.. :)


title: access e lettore di barcode

author: Arold

text:
ho comprato da poco un lettore emulazione tastiera,  ho scaricato da un sito
un fogli che stampato riporta 3 tipi di barcode,
li ho stampati e ho provato il lettore ma questo fà solo bip ma non riporta
nessun carattere sul computer?
non dovrebbe scrivere il codice del barcode?
sapete dove è possibile reperire i fonts per i codici barcode usati qui in
italia e come si chiamano i più usati? grazie.


title: access e lettore di barcode

text:
"Arold" <
ar...@libero.it
> ha scritto nel messaggio
news:bbq9vo$mu5$1...@lacerta.tiscalinet.it...

Immagino avrai aperto notepad o usato un controllo in una maschera di Access
per visualizzare il barcode, dopo aver premuto il pulsante sul lettore.
Se è così e non vedi una serie di numeri o lettere vuol dire che il lettore
non è stato settato per leggere quel particolare barcode o che il barcode è
stato stampato in modo illegibile per lo scanner.
Se poi pensi di vedere le classiche linee che compongono il BarCode...
Per i font basta cercare con Google: Font BarCode o CodeBar Font o Free
BArCode Font e qualcosa trovi.
Ciao, Carlo


title: access e lettore di barcode

text:
"Arold" <
ar...@libero.it
> ha scritto nel messaggio
news:bbq9vo$mu5$1...@lacerta.tiscalinet.it...

Questo un font gratuito (Code39) :
http://www.bizfonts.com/free/IDAutomationCode39.zip
Ciao, Carlo


title: aiuto maschera

author: borti

text:
ciao a tutti
Innazitutto tanti auguri a tutti
vorrei chiedere se è possibile visualizzare le maschere direttamente sul
desktop senza dover apri l'ambiente di access
grazie mille
marco


title: aiuto maschera

author: Drops

text:
"borti" <
m_bor...@tiscali.it
> ha scritto nel messaggio
news:aucge3$hpm$1...@lacerta.tiscalinet.it...

ci vuole un programma apposta della microsoft che io sappia
Auguri
Drops


title: aiuto maschera

text:
"Drops" <
Drop...@hotmail.com
> ha scritto nel messaggio
news:L_jO9.7326$%p6.5...@news.edisontel.com...

L'alternativa fattibile con poca spesa è di rendere invisibile la Finestra
MDI di Access
e lavorare con Form POPUP direttamente sul Desktop.......
@Alex.


title: Come si contano i record?

author: Antonio

text:
Salve amici .Ho urgentemente bisogno di trovare un metodo per reperire
informazioni riguardo il numero di record complessivi che ho memorizzato in
una tabella del mio programma.Se conosci qualche macro o funzione o
qualsiasi altro metodo , mi fai la cortesia di spedirmi la soluzione.Grazi
mille.


title: Come si contano i record?

author: Graziano Franchi (Da Casa)

text:
Leggi Help dcount
ciao
"Antonio" <
anf...@tin.it
> ha scritto nel messaggio
news:8mcu52$fnp$1...@nslave2.tin.it...



title: Come si contano i record?

author: Rabozzi Luigi

text:
Ciao,
Il NG non e' un pronto soccorso, ma un posto dove si chiedono consigli su
come affrontare i problemi e/o i dubbi relativi ad Access.
Nel tuo caso guarda sull'help la proprietą RecordCount.
<LuigI>
Antonio <
anf...@tin.it
> wrote in message 8mcu52$fnp$1...@nslave2.tin.it...



title: Come si contano i record?

author: Clint

text:
select count(*) as conteggio from nometabella
Apri un recordset passandogli questo sql, ritorna un record solo con un
campo conteggio che contiene il numero che cerchi.
la prop. RecordCount non funziona sempre, dipende dal provider.



title: Come si contano i record?

author: Carlo Ve

text:
Clint ha scritto nel messaggio <8meadb$pmc$
1...@fe2.cs.interbusiness.it
>...
>select count(*) as conteggio from nometabella
>
>Apri un recordset passandogli questo sql, ritorna un record solo con un
>campo conteggio che contiene il numero che cerchi.
>la prop. RecordCount non funziona sempre, dipende dal provider.
Scusa Clint, toglimi una curiosita'
secondo te uno che posta una simile domanda e' in grado di
utilizzare e capire la tua soluzione seppure corretta?
Carlo Ve



title: Agenda

author: Gremlin

text:
Devo scrivere un applicativo per poter gestire appuntamenti, una agenda
insomma, ma con la possibilita' di poter condividere gli appuntamenti o di
poterli far gestire da un "Amministratore di agende".
Qualcuno sa dirmi se e dove poter scaricare un mdb con caratteristiche
simili, che poi andro' a personalizzare, onde evitarmi di scrivere da 0
Grazie


title: Consigli per piccolo applicativo

author: N! Xau

text:
Ciao a tutti,
sono un novizio di Access,
vorrei realizzare un piccolo applicativo
che permetta di inserire dati in una o due tabelle e eseguire query con
un'interfaccia grafica carina.
Come ripeto, non conosco ancora Access,
qualcuno puo' darmi qualche informazione generale, o link utili?
grazie
N! Xau


title: Consigli per piccolo applicativo

author: Roberto da casa

text:
"N! Xau" <
xne...@hotmail.com
> ha scritto nel messaggio
news:b54mum$25gndm$1...@ID-183966.news.dfncis.de...

Penso che per prima cosa dovrai comprarti una buona guida all'uso di Access
e studiare un po'.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Consigli per piccolo applicativo

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message
news:2amda.21834$Lr4.7...@twister2.libero.it...
>
> "N! Xau" <
xne...@hotmail.com
> ha scritto nel messaggio
> news:b54mum$25gndm$1...@ID-183966.news.dfncis.de...
> > Ciao a tutti,
> >
> > sono un novizio di Access,
> > vorrei realizzare un piccolo applicativo
> > che permetta di inserire dati in una o due tabelle e eseguire query con
> > un'interfaccia grafica carina.
> > Come ripeto, non conosco ancora Access,
> > qualcuno puo' darmi qualche informazione generale, o link utili?
> >
> > grazie
> > N! Xau
>
> Penso che per prima cosa dovrai comprarti una buona guida all'uso di
Access
> e studiare un po'.
Ok Roberto, sai se c'e' qualche tutorial on-line?
grazie


title: Consigli per piccolo applicativo

text:
"N! Xau" <
xne...@hotmail.com
> ha scritto nel messaggio
news:b54u3n$2554l4$1...@ID-183966.news.dfncis.de...

No che sappia io.
Hai provato con l'help in linea?



title: Consigli per piccolo applicativo

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message
news:P%nda.21320$7y3.7...@twister1.libero.it...
>
> "N! Xau" <
xne...@hotmail.com
> ha scritto nel messaggio
> news:b54u3n$2554l4$1...@ID-183966.news.dfncis.de...
> >
> > "Roberto da casa" <
r.ma...@libero.it
> wrote in message
> > news:2amda.21834$Lr4.7...@twister2.libero.it...
> > >
> > > "N! Xau" <
xne...@hotmail.com
> ha scritto nel messaggio
> > > news:b54mum$25gndm$1...@ID-183966.news.dfncis.de...
> > > > Ciao a tutti,
> > > >
> > > > sono un novizio di Access,
> > > > vorrei realizzare un piccolo applicativo
> > > > che permetta di inserire dati in una o due tabelle e eseguire query
> con
> > > > un'interfaccia grafica carina.
> > > > Come ripeto, non conosco ancora Access,
> > > > qualcuno puo' darmi qualche informazione generale, o link utili?
> > > >
> > > > grazie
> > > > N! Xau
> > >
> > > Penso che per prima cosa dovrai comprarti una buona guida all'uso di
> > Access
> > > e studiare un po'.
> >
> > Ok Roberto, sai se c'e' qualche tutorial on-line?
> >
> > grazie
> >
>
> No che sappia io.
> Hai provato con l'help in linea?
Certo.
Per ora ho fatto un paio di tabelle, qualche query, report eccetera.
E' possibile creare una pagina di inserimento che usa una listbox per
selezionare tra i vari record di una certa colonna?
Voglio dire, Access prevede questo tipo di controlli dinamici? Listbox,
Textbox ecc. ?
saluti
N! Xau


title: Consigli per piccolo applicativo

text:
"N! Xau" <
xne...@hotmail.com
> ha scritto nel messaggio
news:b55ec3$25p3nf$1...@ID-183966.news.dfncis.de...

Certo che è possibile.
> Voglio dire, Access prevede questo tipo di controlli dinamici? Listbox,
> Textbox ecc. ?
Se usi la versione italiana di Access, le Listbox si chiamano Caselle di
riepilogo (vedi help) e le Textbox si chiamano Caselle di testo.
>
> saluti
> N! Xau



title: Modifica dati in automatico da codice

author: Lo

text:
Buongiorno a tutti,

vi presento il mio ennesimo problema:

Ho una tabella Materiali con i campi: Materiale, Fornitore, UM, Costo
Ho una form Bef con una subform SubBef.
Uso questa form Bolle Emesse da Fornitore (Bef) per inerire tutti i
prodotti che ricevo dai fornitori proprio come se facessi una bolla in
uscita.
Nella subform ho i seguenti campi: Quantita, Descrizione. UM,
PrezzoUnitario, Totale
Descrizione è una combo che prende i dati dalla tabella Materiali:

SELECT Materiali.Materiale, Fornitori.Fornitore, Materiali.UM,
Materiali.Costo FROM Materiali INNER JOIN Fornitori ON
Materiali.IdFornitore = Fornitori.IdFornitore ORDER BY
Materiali.Materiale;

che mi permette di caricare i prodotti prendendoli dalla tabella
Materiali e mi aggiorna i campi così:

Private Sub CmbDescrizione_AfterUpdate()
Me.UnitaMisura = Me.CmbDescrizione.Column(2)
Me.PrezzoUnitario = Me.CmbDescrizione.Column(3)
End Sub

Ora, il problema nasce quando il prezzo di acquisto è variato rispetto
a quello precedentemente inserito in tabella Materiali.
Mi piacerebbe quindi riuscire a modificare la tabella Materiali
automaticamente e ho provato così, scopiazzando a destra e a manca, ma
non funziona (errore runtime operatore mancante):

Private Sub PrezzoUnitario_Change()

Dim rst
Set rst = CurrentDb.OpenRecordset("SELECT Materiali.Materiale,
Fornitori.Fornitore, Materiali.UM, Materiali.Costo FROM Materiali
INNER JOIN Fornitori ON Materiali.IdFornitore = Fornitori.IdFornitore
where Materiali.Materiale =  " & Me.CmbDescrizione & " and
Fornitori.Fornitore = " & Forms!Bef!CmbFornitore & " ")

With rst
.MoveFirst
If .EOF Then
.Change
.Fields("Costo") = Form("PrezzoUnitario")
.Update
MsgBox ("Aggiornato prezzo in tabella prodotti"), vbOKOnly
End If
.Close
End With

End Sub

Qualcuno ha tempo di dirmi dove sto sbagliando?

Grazie mille


title: Modifica dati in automatico da codice

author: Popi - TheBadHabits

text:
Il giorno lunedì 12 marzo 2012 12:00:31 UTC+1, Lo ha scritto:
> Set rst = CurrentDb.OpenRecordset("SELECT Materiali.Materiale,
> Fornitori.Fornitore, Materiali.UM, Materiali.Costo FROM Materiali
> INNER JOIN Fornitori ON Materiali.IdFornitore = Fornitori.IdFornitore
> where Materiali.Materiale =  " & Me.CmbDescrizione & " and
> Fornitori.Fornitore = " & Forms!Bef!CmbFornitore & " ")

Ciao!

Non è che devi mettere descrizione e fornitore fra apici così?

where Materiali.Materiale =  '" & Me.CmbDescrizione & "' and
Fornitori.Fornitore = '" & Forms!Bef!CmbFornitore & "' ")

HTH
Popi


title: Modifica dati in automatico da codice

author: Alessandro Cara

text:
Il 12/03/2012 12.00, Lo ha scritto:
> Buongiorno a tutti,
>
> vi presento il mio ennesimo problema:
>
> Ho una tabella Materiali con i campi: Materiale, Fornitore, UM, Costo
> Ho una form Bef con una subform SubBef.
> Uso questa form Bolle Emesse da Fornitore (Bef) per inerire tutti i
> prodotti che ricevo dai fornitori proprio come se facessi una bolla in
> uscita.
> Nella subform ho i seguenti campi: Quantita, Descrizione. UM,
> PrezzoUnitario, Totale
> Descrizione č una combo che prende i dati dalla tabella Materiali:
>
> SELECT Materiali.Materiale, Fornitori.Fornitore, Materiali.UM,
> Materiali.Costo FROM Materiali INNER JOIN Fornitori ON
> Materiali.IdFornitore = Fornitori.IdFornitore ORDER BY
> Materiali.Materiale;
>
> che mi permette di caricare i prodotti prendendoli dalla tabella
> Materiali e mi aggiorna i campi cosě:
>
> Private Sub CmbDescrizione_AfterUpdate()
> Me.UnitaMisura = Me.CmbDescrizione.Column(2)
> Me.PrezzoUnitario = Me.CmbDescrizione.Column(3)
> End Sub
>
> Ora, il problema nasce quando il prezzo di acquisto č variato rispetto
> a quello precedentemente inserito in tabella Materiali.
> Mi piacerebbe quindi riuscire a modificare la tabella Materiali
> automaticamente e ho provato cosě, scopiazzando a destra e a manca, ma
> non funziona (errore runtime operatore mancante):
>
> Private Sub PrezzoUnitario_Change()
>
> Dim rst
> Set rst = CurrentDb.OpenRecordset("SELECT Materiali.Materiale,
> Fornitori.Fornitore, Materiali.UM, Materiali.Costo FROM Materiali
> INNER JOIN Fornitori ON Materiali.IdFornitore = Fornitori.IdFornitore
> where Materiali.Materiale =  "&  Me.CmbDescrizione&  " and
> Fornitori.Fornitore = "&  Forms!Bef!CmbFornitore&  " ")
>
> With rst
> .MoveFirst
> If .EOF Then
> .Change
> .Fields("Costo") = Form("PrezzoUnitario")
> .Update
> MsgBox ("Aggiornato prezzo in tabella prodotti"), vbOKOnly
> End If
> .Close
> End With
>
> End Sub
>
> Qualcuno ha tempo di dirmi dove sto sbagliando?
Non lo so, se Materiale e Fornitore sono numerici. Altrimenti "Could be".
Hai provato a mettere il campo in integrita' referenziale?
> Grazie mille
Prego (uno solo)

--

ac (x=y-1)


title: Modifica dati in automatico da codice

author: Karl Donaubauer

text:
Lo wrote:
> ...
> Ora, il problema nasce quando il prezzo di acquisto è variato
> rispetto a quello precedentemente inserito in tabella Materiali.
> Mi piacerebbe quindi riuscire a modificare la tabella Materiali
> automaticamente e ho provato così, scopiazzando a destra e
> a manca, ma non funziona (errore runtime operatore mancante):
>
> Private Sub PrezzoUnitario_Change()
>
> Dim rst
> Set rst = CurrentDb.OpenRecordset("SELECT Materiali.Materiale,
> Fornitori.Fornitore, Materiali.UM, Materiali.Costo FROM Materiali
> INNER JOIN Fornitori ON Materiali.IdFornitore =
> Fornitori.IdFornitore where Materiali.Materiale =  " &
> Me.CmbDescrizione & " and Fornitori.Fornitore = " &
> Forms!Bef!CmbFornitore & " ")
>
> With rst
> .MoveFirst
> If .EOF Then

Ci sono diversi sbagli. Soprattutto queste due righe:

> .Change
> .Fields("Costo") = Form("PrezzoUnitario")

> .Update
> MsgBox ("Aggiornato prezzo in tabella prodotti"), vbOKOnly
> End If
> .Close
> End With
>
> End Sub

L'evento Change non serve per questo che vuoi fare.
Invece usa "Dopo aggiornamento" (AfterUpdate) del controllo
e prova così:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT Materiali.Costo" & _
        " FROM Materiali INNER JOIN Fornitori" & _
        " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
        " WHERE Materiali.Materiale =  " & Me!CmbDescrizione & _
        " And Fornitori.Fornitore = " & Forms!Bef!CmbFornitore

'Questa sintassi è giusta se i campi Materiale e Fornitore hanno
'un tipo di dato numerico. Altrimenti devi usare degli apici come
'già scritto dagli altri.

Set db = Currentdb
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

With rs
    If Not .BOF Then
        .Edit
            !Costo = Me!PrezzoUnitario
        .Update
        MsgBox ("Aggiornato prezzo in tabella prodotti"), vbOKOnly
    End If

    .Close
End With

Se tutto questo codice funziona puoi sostituirlo complettamente ;-)
con:

Currentdb.Execute "UPDATE Materiali" & _
        " SET Materiale.Costo=" & str(Me!PrezzoUnitario) & _
        " FROM Materiali INNER JOIN Fornitori" & _
        " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
        " WHERE Materiali.Materiale =  " & Me!CmbDescrizione & _
        " And Fornitori.Fornitore = " & Forms!Bef!CmbFornitore _
        , dbFailOnError

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


title: Modifica dati in automatico da codice

text:

> Access FAQ:
http://www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -

Ciao,

grazie mille per i suggerimenti ma non funziona.
Cosa devo mettere se i campi non sono numerici? mi sto perdendo nel
codice...
Grazie


title: Modifica dati in automatico da codice

text:
On 12 Mar, 12:47, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:

> Access FAQ:
http://www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -

Niente da fare, provo, modifico ma non funziona mi da errore di
runtime 3075 operatore mancante nell'espressione della query 150 from
Materiali

150 ho scoperto essere il prezzo che provo ad aggiornare...


title: Modifica dati in automatico da codice

text:
Lo wrote:
> Karl Donaubauer wrote:
>> ...
>> 'Questa sintassi č giusta se i campi Materiale e Fornitore hanno
>> 'un tipo di dato numerico. Altrimenti devi usare degli apici come
>> 'gią scritto dagli altri.
>> ...
>> Currentdb.Execute "UPDATE Materiali" & _
>> " SET Materiale.Costo=" & str(Me!PrezzoUnitario) & _
>> " FROM Materiali INNER JOIN Fornitori" & _
>> " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
>> " WHERE Materiali.Materiale = " & Me!CmbDescrizione & _
>> " And Fornitori.Fornitore = " & Forms!Bef!CmbFornitore _
>> , dbFailOnError
> ...
> Cosa devo mettere se i campi non sono numerici?

Currentdb.Execute "UPDATE Materiali" & _
        " SET Materiale.Costo=" & str(Me!PrezzoUnitario) & _
        " FROM Materiali INNER JOIN Fornitori" & _
        " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
        " WHERE Materiali.Materiale =  '" & Me!CmbDescrizione & _
        "' And Fornitori.Fornitore = '" & Forms!Bef!CmbFornitore & "'"_



title: Modifica dati in automatico da codice

text:
On 12 Mar, 14:50, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> Lo wrote:
> > Karl Donaubauer wrote:
> >> ...
> >> 'Questa sintassi è giusta se i campi Materiale e Fornitore hanno
> >> 'un tipo di dato numerico. Altrimenti devi usare degli apici come
> >> 'già scritto dagli altri.
> >> ...
> >> Currentdb.Execute "UPDATE Materiali" & _
> >> " SET Materiale.Costo=" & str(Me!PrezzoUnitario) & _
> >> " FROM Materiali INNER JOIN Fornitori" & _
> >> " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
> >> " WHERE Materiali.Materiale = " & Me!CmbDescrizione & _
> >> " And Fornitori.Fornitore = " & Forms!Bef!CmbFornitore _
> >> , dbFailOnError
> > ...
> > Cosa devo mettere se i campi non sono numerici?
>
> Currentdb.Execute "UPDATE Materiali" & _
>         " SET Materiale.Costo=" & str(Me!PrezzoUnitario) & _
>         " FROM Materiali INNER JOIN Fornitori" & _
>         " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
>         " WHERE Materiali.Materiale =  '" & Me!CmbDescrizione & _
>         "' And Fornitori.Fornitore = '" & Forms!Bef!CmbFornitore & "'"_
>         , dbFailOnError
>
> --
> Ciao
> Karl
> *********
> Access FAQ:
http://www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -

Ciao
ho provato a modificare come segue:

CurrentDb.Execute "UPDATE Materiali" & _
        " SET Materiale.Costo=" & Str(Me!PrezzoUnitario) & _
        " FROM Materiali INNER JOIN Fornitori" & _
        " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
        " WHERE Materiali.Materiale =  '" & Me!CmbDescrizione & _
        "' And Materiali.IdFornitore = '" & Forms!Bef!IdFornitore &
"'", dbFailOnError

ma non funziona lo stesso.
In questo modo IdFornitore sia in tabella che in form sono numerici,
mentre Materiale e CmbDescrizioni sono testo.
Continua a darmi errore di runtime 3075 errore di sintassi (operatore
mancante) nell'espressione della query '150 FROM materiali INNER JOIN
Fornitori on Materiali.IdFornitori = Fornitori.IdFornitore

se vado in debag del codice e passo sopra a Me!CmbDescrizione e Forms!
Bef!IdFornitore vedo il prodotto giusto con il fornitore giusto.
Qualche altro suggerimento?


title: Modifica dati in automatico da codice

text:

> > Access FAQ:
http://www.donkarl.com/it-Nascondi
 testo citato
>
> > - Mostra testo citato -
>
> Ciao
> ho provato a modificare come segue:
>
> CurrentDb.Execute "UPDATE Materiali" & _
>         " SET Materiale.Costo=" & Str(Me!PrezzoUnitario) & _
>         " FROM Materiali INNER JOIN Fornitori" & _
>         " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
>         " WHERE Materiali.Materiale =  '" & Me!CmbDescrizione & _
>         "' And Materiali.IdFornitore = '" & Forms!Bef!IdFornitore &
> "'", dbFailOnError
>
> ma non funziona lo stesso.
> In questo modo IdFornitore sia in tabella che in form sono numerici,
> mentre Materiale e CmbDescrizioni sono testo.
> Continua a darmi errore di runtime 3075 errore di sintassi (operatore
> mancante) nell'espressione della query '150 FROM materiali INNER JOIN
> Fornitori on Materiali.IdFornitori = Fornitori.IdFornitore
>
> se vado in debag del codice e passo sopra a Me!CmbDescrizione e Forms!
> Bef!IdFornitore vedo il prodotto giusto con il fornitore giusto.
> Qualche altro suggerimento?
>
>

Il prezzo ha virgole al posto del punto?


title: Modifica dati in automatico da codice

text:

> > > Access FAQ:
http://www.donkarl.com/it-Nasconditesto
 citato
>
> > > - Mostra testo citato -
>
> > Ciao
> > ho provato a modificare come segue:
>
> > CurrentDb.Execute "UPDATE Materiali" & _
> >         " SET Materiale.Costo=" & Str(Me!PrezzoUnitario) & _
> >         " FROM Materiali INNER JOIN Fornitori" & _
> >         " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
> >         " WHERE Materiali.Materiale =  '" & Me!CmbDescrizione & _
> >         "' And Materiali.IdFornitore = '" & Forms!Bef!IdFornitore &
> > "'", dbFailOnError
>
> > ma non funziona lo stesso.
> > In questo modo IdFornitore sia in tabella che in form sono numerici,
> > mentre Materiale e CmbDescrizioni sono testo.
> > Continua a darmi errore di runtime 3075 errore di sintassi (operatore
> > mancante) nell'espressione della query '150 FROM materiali INNER JOIN
> > Fornitori on Materiali.IdFornitori = Fornitori.IdFornitore
>
> > se vado in debag del codice e passo sopra a Me!CmbDescrizione e Forms!
> > Bef!IdFornitore vedo il prodotto giusto con il fornitore giusto.
> > Qualche altro suggerimento?
>
> Il prezzo ha virgole al posto del punto?- Nascondi testo citato
>
> - Mostra testo citato -

il prezzo ha formato valuta Euro.
Nella form lo vedo con la virgola e pure nella tabella materiali.

Hai un suggerimento?
Grazie a tutti.
Lo


title: Modifica dati in automatico da codice

text:
Lo wrote:
> ...
> ho provato a modificare come segue:
>
> CurrentDb.Execute "UPDATE Materiali" & _
>         " SET Materiale.Costo=" & Str(Me!PrezzoUnitario) & _
>         " FROM Materiali INNER JOIN Fornitori" & _
>         " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
>         " WHERE Materiali.Materiale =  '" & Me!CmbDescrizione & _
>         "' And Materiali.IdFornitore = '" & Forms!Bef!IdFornitore &
> "'", dbFailOnError
>
> ma non funziona lo stesso.
> In questo modo IdFornitore sia in tabella che in form sono numerici,
> mentre Materiale e CmbDescrizioni sono testo.
> Continua a darmi errore di runtime 3075 errore di sintassi (operatore
> mancante) nell'espressione della query '150 FROM materiali INNER JOIN
> Fornitori on Materiali.IdFornitori = Fornitori.IdFornitore
> ...

Al posto del Execute esegua questo codice:

Debug.Print "UPDATE Materiali" & _
        " SET Materiale.Costo=" & Str(Me!PrezzoUnitario) & _
        " FROM Materiali INNER JOIN Fornitori" & _
        " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
        " WHERE Materiali.Materiale =  '" & Me!CmbDescrizione & _
        "' And Materiali.IdFornitore = '" & Forms!Bef!IdFornitore & "'"

Apri la finestra debug e copia/incolla il testo nel tuo prox messaggio.

Puoi anche copiare il testo nella vis. SQL di una nuova query.
Spesso l'errore che viene da Access è più chiaro.



title: Modifica dati in automatico da codice

text:

Se il prezzo è con la virgola è sbagliato. Devi fare una replace
(TuoPrezzo,',','.'). Ovviamente l'SQL interpreta la virgola come un
altro campo (che non esiste). da qui l'errore (forse.....)


title: Modifica dati in automatico da codice

text:

> Access FAQ:
http://www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -

Ciao,
scusa ma non ho capito. Da dove devo aprire la finestra di debug?
Non capisco la tua frase "Apri la finestra debug e copia/incolla il
testo nel tuo prox messaggio."
Quale mio prox messaggio? scusa la mia tontaggine ma non l'ho mai
fatto... porta pazienza!
Ho provato a creare una nuova query da sql copiando quello che mi hai
scritto tu ma mi dice che devo mettere almeno un select o ecc.....


title: Modifica dati in automatico da codice

text:

> altro campo (che non esiste). da qui l'errore (forse.....)- Nascondi testo citato
>
> - Mostra testo citato -

Scusa quindi questo codice come lo scriveresti?

CurrentDb.Execute "UPDATE Materiali" & _
        " SET Materiale.Costo=" & Str(Me!PrezzoUnitario) & _
        " FROM Materiali INNER JOIN Fornitori" & _
        " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
        " WHERE Materiali.Materiale =  '" & Me!CmbDescrizione & _
        "' And Materiali.IdFornitore = '" & Forms!Bef!IdFornitore &
"'", dbFailOnError
Ho provato Str(Me!PrezzoUnitario,',','.') ma mi da errore di sintassi.
Dove ho sbagliato?


title: Modifica dati in automatico da codice

text:

Replace non Str!!!!


title: Modifica dati in automatico da codice

text:
Lo wrote:
> On 12 Mar, 16:27, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
>> Lo wrote:
>>> ...
>>> ho provato a modificare come segue:
>>
>>> CurrentDb.Execute "UPDATE Materiali" & _
>> ...
>>> ma non funziona lo stesso.
>>> In questo modo IdFornitore sia in tabella che in form sono numerici,
>>> mentre Materiale e CmbDescrizioni sono testo.
>>> Continua a darmi errore di runtime 3075 errore di sintassi
>>> (operatore mancante) nell'espressione della query '150 FROM
>>> materiali INNER JOIN Fornitori on Materiali.IdFornitori =
>>> Fornitori.IdFornitore ...
>>
>> Al posto del Execute esegua questo codice:
>>
>> Debug.Print "UPDATE Materiali" & _
>> " SET Materiale.Costo=" & Str(Me!PrezzoUnitario) & _
>> " FROM Materiali INNER JOIN Fornitori" & _
>> " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
>> " WHERE Materiali.Materiale = '" & Me!CmbDescrizione & _
>> "' And Materiali.IdFornitore = '" & Forms!Bef!IdFornitore & "'"
>>
>> Apri la finestra debug e copia/incolla il testo nel tuo prox
>> messaggio.
>>
>> Puoi anche copiare il testo nella vis. SQL di una nuova query.
>> Spesso l'errore che viene da Access è più chiaro.
> ...
> scusa ma non ho capito. Da dove devo aprire la finestra di debug?
> Non capisco la tua frase "Apri la finestra debug e copia/incolla il
> testo nel tuo prox messaggio."
> Quale mio prox messaggio? scusa la mia tontaggine ma non l'ho mai
> fatto... porta pazienza!
> Ho provato a creare una nuova query da sql copiando quello che mi hai
> scritto tu ma mi dice che devo mettere almeno un select o ecc.....

- vai al tuo codice e inserisci un apice prima del CurrentDb.Execute
per disattivarlo, cioè:

' CurrentDb.Execute "UPDATE Materiali" & _

- una riga sopra di questo codice inserisci il codice di prova
che ti ho scritto

Debug.Print "UPDATE Materiali" & _
ecc.

- esegui il codice come prima, cioè fai un aggiornamento
del controllo PrezzoUnitario

- premi <Strg>+<G> per aprire la finestra immediata,
in alternativa puoi anche aprire l'editore di VBA e scegliere
la voce di menù Visualizza - Finestra Immediata

- nella finestra Immediata trovi il risultato del Debug.Print...,
cioè il tuo testo SQL, ma pronto per l'esecuzione con i valori
dei variabili ecc.

- questo codice puoi incollare sia nella vis. SQL di una
nuova query sia nel tuo prossimo messaggio in questo
newsgroup per mostrarlo alla gente qui



title: Modifica dati in automatico da codice

text:

> Access FAQ:
http://www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -

Ecco cosa mi appare nella finestra immediata:

UPDATE Materiali SET Materiale.Costo= 100 FROM Materiali INNER JOIN
Fornitori ON Materiali.IdFornitore = Fornitori.IdFornitore WHERE
Materiali.Materiale =  '000895 BOMBOLA 1450 (600ML)' And
Materiali.IdFornitore = '120'
UPDATE Materiali SET Materiale.Costo= 100 FROM Materiali INNER JOIN
Fornitori ON Materiali.IdFornitore = Fornitori.IdFornitore WHERE
Materiali.Materiale =  '000895 BOMBOLA 1450 (600ML)' And
Materiali.IdFornitore = '120'
UPDATE Materiali SET Materiale.Costo= 100 FROM Materiali INNER JOIN
Fornitori ON Materiali.IdFornitore = Fornitori.IdFornitore WHERE
Materiali.Materiale =  '000895 BOMBOLA 1450 (600ML)' And
Materiali.IdFornitore = '120'
UPDATE Materiali SET Materiale.Costo= 100 FROM Materiali INNER JOIN
Fornitori ON Materiali.IdFornitore = Fornitori.IdFornitore WHERE
Materiali.Materiale =  '000895 BOMBOLA 1450 (600ML)' And
Materiali.IdFornitore = '120'

La descrizione del materiale e l'IdFornitore sono giusti. Il prezzo
che io volevo modificare è 100,00 € e nella finestra viene indicato
solo 100.
Cosa suggerisci?
Grazie ciao


title: Modifica dati in automatico da codice

text:

> Replace non Str!!!!- Nascondi testo citato
>
> - Mostra testo citato -

Da errore di sintassi anche con replace...


title: Modifica dati in automatico da codice

text:
Lo wrote:
> ...
> Ecco cosa mi appare nella finestra immediata:
>
> UPDATE Materiali SET Materiale.Costo= 100 FROM Materiali INNER JOIN
> Fornitori ON Materiali.IdFornitore = Fornitori.IdFornitore WHERE
> Materiali.Materiale =  '000895 BOMBOLA 1450 (600ML)' And
> Materiali.IdFornitore = '120'
> UPDATE Materiali SET Materiale.Costo= 100 FROM Materiali INNER JOIN
> ...
> La descrizione del materiale e l'IdFornitore sono giusti. Il prezzo
> che io volevo modificare è 100,00 € e nella finestra viene indicato
> solo 100.
> Cosa suggerisci?

Prima controlla perché ti dà il testo 4 volte.
Quale evento usi? "Dopo aggiornamento" del controllo
come suggerito?

Poi cambia il codice a:

Currentdb.Execute "UPDATE Materiali INNER JOIN Fornitori" & _
        " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
        " SET Materiale.Costo=" & str(Me!PrezzoUnitario) & _
        " WHERE Materiali.Materiale =  '" & Me!CmbDescrizione & _
        "' And Fornitori.Fornitore = '" & Forms!Bef!CmbFornitore & "'"_
        , dbFailOnError




title: Modifica dati in automatico da codice

text:
Lo wrote:
> Fair87 wrote:
> ...
>>> Ho provato Str(Me!PrezzoUnitario,',','.') ma mi da errore di
>>> sintassi. Dove ho sbagliato?
>>
>> Replace non Str!!!!- Nascondi testo citato
>>
>> - Mostra testo citato -
>
> Da errore di sintassi anche con replace...

Sì, il problema dev'essere diverso. Ti ho già suggerito
Str() solamente per gestire il separatore decimale.
Vedi anche:

Passare un numero decimale ad una stringa SQL
http://www.donkarl.com/it?FAQ6.21




title: Modifica dati in automatico da codice

text:

Leggendo con attenzione la finestra immediata mi accorgo che
scrive ... Costo= 100. Inizialmente 100 era il prezzo che provavo a
modificare, adesso però scrive sempre 100 anche se modifico con un
prezzo diverso che io scriva 250 o 200,00 ecc.
Ho chiuso e riaperto il db per evitare che tenesse in memoria in
qualche modo 100 ma non serve a nulla... sempre 100 rimane!


title: Modifica dati in automatico da codice

text:

Ciao Ho provato a sostituire con il nuovo codice. Adesso cambia
l'errore. Errore runtime 3061. Parametri insufficienti. Previsto 1.
Il tutto è stato messo dopoaggiornamento


title: Modifica dati in automatico da codice

text:
Lo wrote:
> Karl Donaubauer wrote:
>> ...
>> Quale evento usi? "Dopo aggiornamento" del controllo
>> come suggerito?
>>
>> Poi cambia il codice a:
>>
>> Currentdb.Execute "UPDATE Materiali INNER JOIN Fornitori" & _
>> " ON Materiali.IdFornitore = Fornitori.IdFornitore" & _
>> " SET Materiale.Costo=" & str(Me!PrezzoUnitario) & _
>> " WHERE Materiali.Materiale = '" & Me!CmbDescrizione & _
>> "' And Fornitori.Fornitore = '" & Forms!Bef!CmbFornitore & "'"_
>> , dbFailOnError
>
> Leggendo con attenzione la finestra immediata mi accorgo che
> scrive ... Costo= 100. Inizialmente 100 era il prezzo che provavo a
> modificare, adesso però scrive sempre 100 anche se modifico con un
> prezzo diverso che io scriva 250 o 200,00 ecc.
> Ho chiuso e riaperto il db per evitare che tenesse in memoria in
> qualche modo 100 ma non serve a nulla... sempre 100 rimane!

Prova di leggere con attenzione cosa ti ho scritto e chiesto. ;-)
Se usi ancora l'evento falso (Change) non mi meraviglia che
ti dà il vecchio valore.



title: Modifica dati in automatico da codice

text:

Grazie per l'aiuto, dunque abbiamo fatto passi in avanti: nella
finestra immediata appare una sola volta però cambia l'errore adesso
mi da:
errore runtime 3061 Parametri insufficenti. Previsto 1
Nella finestra invece:

UPDATE Materiali SET Materiale.Costo= 100 FROM Materiali INNER JOIN
Fornitori ON Materiali.IdFornitore = Fornitori.IdFornitore WHERE
Materiali.Materiale =  '000895 BOMBOLA 1450 (600ML)' And
Materiali.IdFornitore = '120'

Idee?


title: Modifica dati in automatico da codice

text:

> qualche modo 100 ma non serve a nulla... sempre 100 rimane!- Nascondi testo citato
>
> - Mostra testo citato -

Ora la finestra mi scrive:

UPDATE Materiali SET Materiali.Costo= 3.28 FROM Materiali INNER JOIN
Fornitori ON Materiali.IdFornitore = Fornitori.IdFornitore WHERE
Materiali.Materiale =  'C73141 CART SEGN INTERR GENERALE' And
Materiali.IdFornitore = '120'              128

Cosa vuol dire?
Grazie ciao


title: Modifica dati in automatico da codice

text:
Lo wrote:
> ...
> adesso mi da:
> errore runtime 3061 Parametri insufficenti. Previsto 1
> Nella finestra invece:
>
> UPDATE Materiali SET Materiale.Costo= 100 FROM Materiali INNER JOIN
> Fornitori ON Materiali.IdFornitore = Fornitori.IdFornitore WHERE
> Materiali.Materiale =  '000895 BOMBOLA 1450 (600ML)' And
> Materiali.IdFornitore = '120'
>
> Idee?

Questo è la versione vecchia non la nuova che ti scritto.
Certo devi anche cambiare il testo che segue Debug.Print.

Poi se ti dà ancora l'errore, procedi come già descritto:
Incolla il testo (aggiornato!) dalla finestra immediata alla
vis. SQL di una nuova query e prova di eseguirla.
Forse così trovi l'errore.



title: Modifica dati in automatico da codice

text:

Ciao Scusa ma sono disperata. Non riesco a venirne a capo dopo due
giorni di prove...
Ho fatto modifiche sulla base del tuo ultimo suggerimento. Mi sono
accorta di un errore Materiali.Costo e non Materiale.Costo come
scrivevamo prima.
Ho fatto delle simulazione con debug.print sia in dopoaggiornamento
Prezzo unitario sia nella SubBef dopoaggiornamento.
I risultati sono questi:

UPDATE Materiali INNER JOIN Fornitori ON Materiali.IdFornitore =
Fornitori.IdFornitore SET Materiali.Costo= 3.28 WHERE
Materiali.Materiale =  'C73141 CART SEGN INTERR GENERALE' And
Fornitori.IdFornitore = '120'               128
UPDATE Materiali INNER JOIN Fornitori ON Materiali.IdFornitore =
Fornitori.IdFornitore SET Materiali.Costo= 3.28 WHERE
Materiali.Materiale =  'C73141 CART SEGN INTERR GENERALE' And
Fornitori.IdFornitore = '120'               128
UPDATE Materiali INNER JOIN Fornitori ON Materiali.IdFornitore =
Fornitori.IdFornitore SET Materiali.Costo= 3.28 WHERE
Materiali.Materiale =  'C73141 CART SEGN INTERR GENERALE' And
Materiali.IdFornitore = '120'               128
UPDATE Materiali INNER JOIN Fornitori ON Materiali.IdFornitore =
Fornitori.IdFornitore SET Materiali.Costo= 250 WHERE
Materiali.Materiale =  '000895 BOMBOLA 1450 (600ML)' And
Materiali.IdFornitore = '120'       128

Considera che il materiale che sto cercando di modificare è 000895
BOMBOLA... e non C73141 CART...
In più la cosa strana è che nelle prime tre prove il costo 3.28 è
effettivamente il costo di origine del materiale dello stesso rigo,
mentre 250 è il prezzo che io cerco di modificare nel materiale
000895...
Cosa sta succedendo?
Ne verrò mai a capo?
Grazie per l'immensa pazienza che hai con me!


title: Modifica dati in automatico da codice

text:
Lo wrote:
> ...
> Considera che il materiale che sto cercando di modificare è 000895
> BOMBOLA... e non C73141 CART...
> In più la cosa strana è che nelle prime tre prove il costo 3.28 è
> effettivamente il costo di origine del materiale dello stesso rigo,
> mentre 250 è il prezzo che io cerco di modificare nel materiale
> 000895...
> Cosa sta succedendo?
> ...

Non conosco i tuoi svolgimenti e il tuo programma.
Puoi solo sapere tu quando e dove hai i dati giusti per questo
che vuoi fare.

Puoi ancora provare se funziona meglio per te di usare
l'altro codice più lungo con il DAO recordset, ma in principio
non cambia niente alla successione degli eventi e dati.

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


title: Modifica dati in automatico da codice

text:

Ciao Karl,
sono senza speranza ma non voglio mollare.
Ho fatto alcune prove: ho creato una query
SELECT Materiali.Materiale, Materiali.Costo, Materiali.IdFornitore
FROM Fornitori INNER JOIN Materiali ON Fornitori.IdFornitore =
Materiali.IdFornitore
WHERE (((Materiali.Materiale)=[Forms]![Bef]![SubBeniBef]!
[CmbDescrizione]) AND ((Materiali.IdFornitore)=[Forms]![Bef]!
[IdFornitore]));
che mi funziona
PERO' solo se la form SubBeniBef è impostata a Maschera singola, se
impostata come maschera continua non mi funziona.
Torno quindi a fare le prove nel codice dopoaggiornamento del campo
PrezzoUnitario della SubBeniBef e continua a darmi errore di sintassi
sia che imposto la maschera a maschera continua o sia che la imposto a
maschera singola.
Come posso fare?


title: Report con mappa Italia

author: Fabio Fucci

text:
Buongiorno,
ho una tabella con l'elenco delle regioni/province con dati numerici relativi; avrei bisogno di fare un report con la cartina dell'Italia suddivisa per regioni / province (magari colorare le singole province a secondo della consistenza).
Qualcuno sa indicarmi quale potrebbe essere la soluzione migliore?
Vi ringrazio


title: Report con mappa Italia

author: BFS

text:

vedi qui per una soluzione fica (l'esempio dell'africa è quello che chiedi)

https://developers.google.com/chart/interactive/docs/gallery/geochart

altrimenti vai di classica immagine messa in un report, con le relative
caselline contenenti il valore numerico apportunamente posizionate in
centro ad ogni regione.
ovviamente con questa soluzione la vedo dura colorare le regioni in modo
differente

ciao
BFS


title: VBA: sottoreport

author: ringo


title: routine per criptare file di testo

author: AEOM

text:
ciao a tutti
qualcuno ha qualche semplice routine per criptare/decriptare un file di
testo?
thanks
AEOM


title: routine per criptare file di testo

author: . chiarello @gmail.com strano...mavero

text:
"AEOM" <
fuck...@motherfucker.it
> ha scritto nel messaggio
news:NNnmd.340183$35.15...@news4.tin.it...

http://groups.google.it/groups?q=criptare+file+di+testo&hl=it&lr=&group=it.comp.appl.access&selm=83t8jj%24be4%242%40nslave1.tin.it&rnum=1
Ciao, guarda se questo link può esserti utile.
--
strano...mavero
L'universo è cambiamento; la nostra vita è il risultato dei nostri pensieri.
Marco Aurelio


title: routine per criptare file di testo

text:
"strano...mavero" <mauro . chiarello @ gmail . com> ha scritto nel messaggio
news:cndaen$2ht$1...@lacerta.tiscalinet.it...

ciao e grazie per la risposta...ma cercavo qualcosa di un pochino meno
banale.
comunque l'esempio sul post non funziona correttamente
ciao, AEOM


title: routine per criptare file di testo

author: stefano (kabisa)

text:
"AEOM" <
fuck...@motherfucker.it
> ha scritto nel messaggio
news:5Hqmd.343487$35.15...@news4.tin.it...

Questa è la traccia su cui ho creato la criptazione dei dati di un db medico
ad alto rischio privacy
ora  il concetto è semplice stringhe di codifica alfabetiche che invertono
le lettere e i numeri
naturalmente usando circa 500 stringhe di criptazione che corrispondo ad
altre 500 per la ricodifica
pultroppo non posso postare l'algoritmo implementato ma penso che sia
semplice da creare con questa specifica.
Le scrivo la spiegazione dell'algoritmo per la creazione di un codice
univoco non identificabile.
1)      Ad ogni centro viene assegnato un codice es PE01 VR01 VR02 (pescara
01 verona 01 verona 02 )
2)      Il codice paziente sarà così composto:
·        Codice centro + numero lettere del nome + 4 lettere nome + numero
lettere del cognome + 4 cognome + anno nascita + giorno nascita +mese
nascita + CODICE DELLA STRINGA DI CODIFICA
·        Sia l'anno e il giorno di nascita vengono modificati da un
algoritmo che li tramuta in testo cifrato.
·        Le quattro lettere del nome e del cognome sono le prime ma
trasformate con un algoritmo di codifica; se il nome o il cognome sono più
corti di 4 lettere vengono generate random le altre (naturalmente nei
controlli per duplicati non vengono considerate le lettere generate random)
3)      Quando si inserisce un nuovo paziente il computer genera il codice,
omette il codice centro e controlla se il paziente è stato già inserito da
un altro centro (non considera il codice del centro per la ricerca di
duplicati). I codici dei centri servono per poter risalire dalla bancadati
centrale ad una casistica per regione o provincia ecc..
4)      Se si vuole si può inserire nella generazione del codice anche altri
dati del paziente es: la provincia di nascita parte del codice sanitario
ecc... (naturalmente opportunamente codificati)
Esempio di codifica
Stefano Laganà 29 06 1972   visitato a negrar verona
VR017AXSM6TPYP04222612X18
VR01 = CODICE VERONA 01 (Centro di NEGRAR)
7 =  numero caratteri che compongono il nome
AXSM = codifica delle prime 4 lettere del nome
6 =  numero caratteri che compongono il cognome
TPYP =  codifica delle prime 4 lettere del cognome
0422 = anno codificato
26 = giorno codificato
12 = mese codificato
X18= codice della stringa di codifica
I controlli per evitare i dati duplicati vengono fatti sulla seguente
stringa:
7AXSM6TPYP04222612X18
Naturalmente aumentando il numero delle stringhe di codifica aumenta la
sicurezza della privacy e diminuisce la velocità del controllo dei
duplicati.


title: Casella si/no e query

text:
Ho creato una tabella clienti con una casella di spunta si/no.
La tabella viene interrogata con una query che deve trovare solo i record
con la spunta (si).
Non so che criteri mettere nella query per selezionare solo i recond con
"si" (con la spunta).
Se mi potete dare un suggerimento vi ringrazio.
Flavio


title: Casella si/no e query

author: Antonio Biso

text:
"Flavio_tv" <
cancella_fl...@yahoo.it
> ha scritto nel messaggio
news:LfDac.34289$zm5....@nntpserver.swip.net...

E magari metterci sě, come la vedi?
Antonio


title: Casella si/no e query

author: ALESSANDRO Baraldi

text:
"Flavio_tv" <
cancella_fl...@yahoo.it
> ha scritto nel messaggio
news:LfDac.34289$zm5....@nntpserver.swip.net...

Metti nei criteri della Query  ---->  Vero
sotto il campo Si/No relativo.
Ciao.
@Alex.


title: Casella si/no e query

author: knives

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:phDac.100552$Kc3.3...@twister2.libero.it...

Ciao :)
io ho usato anche 0 e -1
ma sinceramente mi son sempre chiesto: perchč -1 e non magari 0 e 1?


title: Casella si/no e query

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:c4f0a6$ndo$1...@lacerta.tiscalinet.it...

Molto bene. Funziona sia con "Vero" o "-1" nei criteri della query.
Grazie a tutti.
Flavio


title: Casella si/no e query

text:
"knives" <x@x.x> ha scritto nel messaggio
news:2xDac.163046$O31.6...@news4.tin.it...

Perchč access valuta true come -1 e false come 0
Antonio


title: giostra di record

author: Tucano

text:
e' quella che vedo se inavvertitamente tocco la rotellina centrale del
mouse...
come posso evitarla? ho dato un'occhiata alle faq [anche perche', saro'
sincero, sto scrivendo da un mac e il font utilizzato e' quasi
illeggibile :(] e non mi sembra di aver trovato nulla...
grazie e ciao
Tucano


title: giostra di record

author: Federico Luciani

text:

per quanto riguarda il tuo problema non saprei, non uso mouse con ruote
invece mi interessa la visibilita' del sito,
quali problemi hai riscontrato?
che risoluzione video usi?
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Controllo formato data

author: Napoleone

text:
Un saluto ai partecipanti,
nel mio controllo non associato "MiaData", vorrei mi comparisse soltanto
l'anno della data corrente: ad Esempio, 2004 e non la data corrente di
sistema.
Salutissimi Napoleone


title: Controllo formato data

author: barbun

text:
"Napoleone" <
Napol...@libero.it
> ha scritto nel messaggio
news:pnPqc.10162$Wc.3...@twister2.libero.it...

    vai in Formato e scrivi
    aaaa
ciao !


title: Controllo formato data

text:
"barbun" <
arist...@yahoo.it
> ha scritto nel messaggio
news:2h1up0F...@uni-berlin.de...

Gentilissimo
Napoleone


title: Controllo formato data

author: MA

text:
"Napoleone" <
Napol...@libero.it
> ha scritto nel
messaggio
news:A4Qqc.10236$Wc.3...@twister2.libero.it...

Perchè gli ridi in faccia???
> >
> >
> > ciao !
> >
> Gentilissimo
> Napoleone
Mi sa che non l'ha presa tanto bene. A ragione,
secondo me.
MAssimiliano


title: Controllo formato data

text:
"Napoleone" <
Napol...@libero.it
> ha scritto nel messaggio
news:pnPqc.10162$Wc.3...@twister2.libero.it...

Funzione year
Ma sei già il secondo che chiede questo in un giorno e mezzo...
Compitino per casa?
Antonio


title: Controllo formato data

text:
"Napoleone" <
Napol...@libero.it
> ha scritto nel messaggio
news:A4Qqc.10236$Wc.3...@twister2.libero.it...

Solo che non succede niente.
Napoleone


title: Controllo formato data

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:CYZqc.63241$Qc.25...@twister1.libero.it...

Non'e un compito, altrimenti avremmo copiato senza chiederlo....
semplicemente allungando il collo.
Ciao Napoleone


title: Controllo formato data

author: Carlo Costarella

text:
cut
> Non'e un compito, altrimenti avremmo copiato senza chiederlo....
> semplicemente allungando il collo.
> Ciao Napoleone
>
In "origineControllo" del controllo "MiaData" scrivi:
=Format(Date();"aaaa")
Ciao, Carlo


title: Controllo formato data

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:mQ1rc.300669$rM4.12...@news4.tin.it...

Grazie Carlo!


title: Problemi con filtro selezione

author: Dino

text:
Ciao a tutti sono Dino.Ho impostato in una form per ogni campo un
filtro in base a selezione.Infatti cliccando 2 volte sul campo scelto
i record vengono appunto filtrati per il contenuto del campo.
Per fare cio' nell'evento DblClick del campo ho inserito il codice:
Private Sub campo_DblClick(Cancel As Integer)
strFilter = strFilter & "and campo='" & Me.campo & "'"
ApplicaIlFiltro
End Sub
Nel modulo della form ho invece inserito la Sub ApplicaIlFiltro:
Public Sub ApplicaIlFiltro()
Dim nrCaratteriTgl As Integer
nrCaratteriTgl = Len(strFilter)
nrCaratteriTgl = nrCaratteriTgl - 4
If Left(strFilter, 4) = "and " Then
    strFilter = Right(strFilter, nrCaratteriTgl)
End If
Me.Filter = strFilter
Me.FilterOn = True
End Sub
Il tutto funziona correttamente nella prima form in cui l'ho inserito.
Decido di inserirlo in altre form con la stessa procedura ma il
risultato e' diverso.Cliccando infatti 2 volte sul campo in esame il
filtro non funziona.Come controprova ho provato il filtro della barra
strumenti e ovviamente funziona correttamente.
Dove posso aver sbagliato????(Premetto che ho ricontrollato la
sintassi del codice + volte)
Grazie in anticipo
Dino


title: Problemi con filtro selezione

text:

Prima di applicare un nuovo filtro, cancella quello vecchio
altrimenti applica uno sull'altro
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: Problemi con filtro selezione

text:

> Cisa - Conferenza Italiana Sviluppatori Access- Nascondi testo citato
>
> - Mostra testo citato -
Ciao MA grazie per la risp.Forse non mi sono spiegato bene.Quando io
clicco due volte sul campo non vi e' applicato nessun filtro.
Non capisco perche' funziona da una parte e non da l'altra.
Grazie Dino


title: Problemi con filtro selezione

author: Alessandro Cara

text:
Dino ha scritto:

Dal tuo post non ho compreso un paio di cose:
1) Dove come e quamdo e' dichiarata strFilter
2) A cosa ti serve quella "and" messa nella stringa per il filtro
Io l'avrei fatta cosi'
Private Sub campo_DblClick(Cancel As Integer)
    ApplicaIlFiltro "campo='" & me.campo & "'"
End Sub
Public Sub ApplicaIlFiltro(sParam as string)
Me.Filter = sParam
Me.FilterOn = True
End Sub
se poi volessi generalizzare "ApplicaIlFiltro" lo metterei i un modulo
e farei:
Private Sub campo_DblClick(Cancel As Integer)
    ApplicaIlFiltro me,"campo='" & me.campo & "'"
End Sub
Public Sub ApplicaIlFiltro(f as form,sParam as string)
f.Filter = sParam
f.FilterOn = True
End Sub
--
ac


title: Problemi con filtro selezione

text:

> ac- Nascondi testo citato
>
> - Mostra testo citato -
Funziona tutto correttamente con la tua soluzione.Prob.non avevo
dichiarato strFilter.
Volevo chiederti.Quindi come ha scritto per generalizzare questo
filtro a tutte le form.Scrivo in un modulo nuovo il cod.del post.e
cos' funziona???
Grazie ancora.
Dino


title: Problemi con filtro selezione

text:

> Dino- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Sono sempre io.Volevo ancora aggiungere.Se dopo aver filtrato il
campo1(con il doppio clik) i record avuti volessi filtrarli ancora
ulteriormente per un altro
campo pur mantenendo il filtro in essere come posso fare???.
Grazie
Dino


title: Problemi con filtro selezione

text:

Ho risolto il problema.Inizialmente non funzionava il mio codice
perche' mi ero dimenticato di dichiarare srtFilter(convinto di averlo
fatto).
Grazie Dino


title: Conteggio parziale in report (checkbox)

author: Sandro CH

text:
Ciao a tutti,
ho un problemino riguardate il conteggio di record in un report di
Access 97. Ho creato un report che visualizza le presenze degli
allievi tramite dei checkbox: AssenzaMattina, AssenzaPomeriggio e
Presenza. Se per esempio un allievo risulta assente il mattino di un
determinato giorno, viene visualizzato il checkbox vistato (=true) se
invece il valore é =false il checkbox é reso invisibile.
Il report riguarda un solo allievo ed é raggruppato per mese o per
settimana (scelta fatta tramite una form precedente). Io vorrei
contare per ogni mese o settimana (pié di pagina Data) solo i valori
TRUE dei tre checkbox. Ho provato con la funzione
*conteggio([AssenzaMattina]=true)* ma niente, mi calcola comunque il
totale di tutti i records.
Qualcuno ha qualche idea? Grazie
Sandro


title: Conteggio parziale in report (checkbox)

text:

Dcount(tuocontatore;tuatabella;assenzamattina = -1)
un suggerimento usa il gruppo di opzioni così da evitare errori perchè il
tuo alunno o è presente oppure è presente solo la mattina o solo il
pomeriggio. Così facendo tu ha il valore 1, 2 o 3 in un solo controllo e poi
gestirlo ancora meglio.
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Conteggio parziale in report (checkbox)

text:
"Sandro CH" <
nsa...@freesurf.ch
> ha scritto nel messaggio
news:57aec240.03022...@posting.google.com...
> Ciao a tutti,
>
> Il report riguarda un solo allievo ed é raggruppato per mese o per
> settimana (scelta fatta tramite una form precedente). Io vorrei
> contare per ogni mese o settimana (pié di pagina Data) solo i valori
> TRUE dei tre checkbox. Ho provato con la funzione
> *conteggio([AssenzaMattina]=true)* ma niente, mi calcola comunque il
> totale di tutti i records.
=conteggio(iif([assenzamattina]=true;1;0))
Antonio


title: Conteggio parziale in report (checkbox)

author: Roberto da casa

text:
"Sandro CH" <
nsa...@freesurf.ch
> ha scritto nel messaggio
news:57aec240.03022...@posting.google.com...

Prova con la funzione di aggrgazione sui dominii DCount (vedi help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Conteggio parziale in report (checkbox)

text:
massimilia...@kksrl.com
 (MA) wrote in message news:<
151Z26Z50Z147Y1...@usenet.libero.it
>...

Ho provato con la DCount ma mi restituisce il totale
p.es
. delle
AssenzaMattina=true.Io invece vorrei il conteggio suddiviso x mese
(livello di gruppo del report(pié di pagina gruppo)).Ho messo il campo
con la DCount nello spazio riservato al pié di pag gruppo ma mi da
comunque il totale..
Grazie per il consiglio riguardante il gruppo d'opzioni ma comunque io
posso selezionare contemporaneamente AssenzaMattina e
AssenzaPomeriggio (dunque tutto il giorno) e non avrei potuto
utilizzare i radio buttons.A meno che inserivo una 4a opzione:
AssenteGiornata Ma adesso sono gia in avanti con il lavoro e sarebbe
un macello :-)
Comunque grazie per il consiglio.