title: Ricezione dati da Word

author: Sergio MAZZA

text:
"cristiano 1972" <
crist...@virgilio.it
> ha scritto nel messaggio
news:nTSS6.942$Cq3....@news2.tin.it...
>
------------- omissis ----------------
>
> Non mi sono spiegato, io voglio fare esattamente il contrario, costruire
un
> foglio di Word con le tabelle dove l'utente inserisce i dati che vengono
> registrati in Access (naturalmente senza controlli, sarebbero tutti campi
> testo).
>
> Ciao Cristiano 1972
>
Una via potrebbe essere quella di costruirti la tabella che deve riempire
l'utente; quando deve salvare il file devi entrare in gioco tu con una
routine che:
- seleziona tutta la tabella;
- trasforma la tabella in testo utilizzando il punto e virgola come
separatore di campo;
- salvare il file in txt
- aprire access;
- collegare il file txt salvando le impostazioni;
quest'ultima parte la fai solo la prima volta, una volta collegato il file
txt il gioco è fatto.
L'unica "scocciatura" è la routine predetta da eseguire al momento del
salvataggio del documento word; la cosa migliore è crearsi un modello con un
bottone "Salva" che sostituisca quello originale.
Altra via (molto più semplice) è quella di utilizzare excel e collegare
direttamente il foglio ad access...
Ciao.


title: Ricezione dati da Word

author: cristiano 1972

text:
Sergio MAZZA ha scritto nel messaggio <9gl822$qda$
1...@canarie.caspur.it
>...
>
>"cristiano 1972" <
crist...@virgilio.it
> ha scritto nel messaggio
>news:nTSS6.942$Cq3....@news2.tin.it...
>>
>------------- omissis ----------------
>>
>> Non mi sono spiegato, io voglio fare esattamente il contrario, costruire
>un
>> foglio di Word con le tabelle dove l'utente inserisce i dati che vengono
>> registrati in Access (naturalmente senza controlli, sarebbero tutti campi
>> testo).
>>
>> Ciao Cristiano 1972
>>
>
>Una via potrebbe essere quella di costruirti la tabella che deve riempire
>l'utente; quando deve salvare il file devi entrare in gioco tu con una
>routine che:
>- seleziona tutta la tabella;
>- trasforma la tabella in testo utilizzando il punto e virgola come
>separatore di campo;
>- salvare il file in txt
>- aprire access;
>- collegare il file txt salvando le impostazioni;
>quest'ultima parte la fai solo la prima volta, una volta collegato il file
>txt il gioco č fatto.
>
>L'unica "scocciatura" č la routine predetta da eseguire al momento del
>salvataggio del documento word; la cosa migliore č crearsi un modello con
un
>bottone "Salva" che sostituisca quello originale.
>
>Altra via (molto piů semplice) č quella di utilizzare excel e collegare
>direttamente il foglio ad access...
>
>Ciao.
>
Ottimi suggerimenti, cercherň di metterli in pratica; se ci riesco bene
altrimenti mi farň risentire.
Grazie infinite.
Cristiano 1972


title: Re: Variazione colore sfondo controllo.

author: Salvatore

text:
"DEL_REC" <domanda...@rispoderecortes.ia> ha scritto nel messaggio
news:d9c1l5$1b3$1...@news.newsland.it...
> Ciao a tutti. Vi chiedo una dritta.
> WXP, A03.
>
> Quando clicco su di una list box passo il codice dell'articolo evidenziato
> ad una maschera popup che si apre mostrandomi le taglie abilitate per
> quell'articolo. La maschera ha 32 controlli (corrispondenti al massimo
> numero di taglie ammesse) che si riempiono con la taglia o rimangono vuote
> se essa non è abilitata per quel modello. Vorrei che le textbox con taglia
> abilitata avessero uno sfondo di colore diverso.
> Grazie.
> DEL_REC
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
>
>
>
Usa la formattazione condizionale.
Ciao
Salvatore


Re: Variazione colore sfondo controllo.


title: Re: Variazione colore sfondo controllo.

text:
Salvatore ha scritto:

Gracias,
mi è venuto in mente mentre me ne tornavo a casa. E pensare che non è da
ieri che la utilizzo e che ne ho sentito parlare prorio qui.



title: Perchè si spegne il led del tastierino numerico?

author: Rosario Calě

text:
Vi rubo un po’ di tempo per un problema che non riesco a risolvere:
Nell’evento SU INVIO di alcune caselle combinate ho inserito il seguente
codice:
CdC.Dropdown  ‘ apre la casella a discesa
SendKeys "{DOWN}"  ‘ Tasto giù per selezionare il primo dato
SendKeys "~"   ‘ Invio per passare al successivo
Questo per far sì che in automatico vengano selezionati i prodotti che si
trovano in cima alla lista delle varie caselle combinate. Andrebbe tutto
bene se non fosse per il fatto che si spegne NumLock e non riesco a farlo
riaccendere in automatico neanche inserendo alla fine la riga
SendKeys " {NUMLOCK}"
Pensavo di aver finito il mio database e invece sono qui con questo problema
da quattro giorni e non riesco a risolverlo.
Grazie in anticipo a chiunque mi voglia dare una mano.


author: Rolando Vonlanthen

text:
Rosario Calì ha scritto nel messaggio ...

Ciao Rosario
Si tratta di un bug di Access che viene provocato dal comando SendKeys.
La soluzione migliore sarebbe di non usare questo comando.
Nel tuo caso specifico potresti usare per esempio le proprietà
CdC.ItemData(0) 'primo valore della lista
CdC.ItemData(1) 'secondo
CdC.ItemData(2) 'terzo
.....
per cercare i valori dei prodotti
Se invece vuoi restare con il SendKeys guarda sotto l'FAQ 7.8 di
http://www.donkarl.com
Se hai problemi per il tedesco ti posso fare un piccolo riassunto.
Buon Natale a tutti
Rolando


text:
Rolando, ti ringrazio per il tuo consiglio: è stato prezioso e risolutivo.
No, non conosco il tedesco ma per questa volta penso di poterne fare a meno…
Ciao e ancora grazie
Buone Feste a tutti…
Rosario
Rolando Vonlanthen ha scritto nel messaggio
<925sjd$dhr$
1...@pollux.ip-plus.net
>...
>Rosario Calì ha scritto nel messaggio ...
>>Vi rubo un po’ di tempo per un problema che non riesco a risolvere:
>>
>>Nell’evento SU INVIO di alcune caselle combinate ho inserito il seguente
>>codice:
>>
>>CdC.Dropdown  ‘ apre la casella a discesa
>>SendKeys "{DOWN}"  ‘ Tasto giù per selezionare il primo dato
>>SendKeys "~"   ‘ Invio per passare al successivo
>>*****************************************************



title: Runtime access 2007

author: vedotondo

text:
Ho installato il runtime di access e devo dire che sono stupito benevolmente
da microsoft!
Purtroppo però ho un problema, non riesco a togliere tutti gli avvisi di
protezione: eliminazione record ect.
Come mi devo comportare?
Ringrazio anticipatamente
Saluti @ndrea


title: Runtime access 2007

author: Cinzia

text:
"vedotondo" <
vedoto...@alice.it
> ha scritto nel messaggio
news:47b76e95$0$10624$4faf...@reader2.news.tin.it...

Ciao Andrea,
intendi i messaggi quando cancelli dei record o fai degli
aggiornamenti, quelli che si eliminano impostando Docmd.SetWarnings
False ? o quelli relativi alla Trusted location, nel qual caso può
servirti questo link
http://accessdaziacin.spaces.live.com/blog/cns!1889C8F1671B10DC!424.entry
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
http://accessdaziacin.spaces.live.com
----------------------------------------


title: Runtime access 2007

text:
"Cinzia" <
cinziapagani-...@tiscali.it
> ha scritto nel messaggio
news:47b7fe23$0$16040$5fc...@news.tiscali.it...
> Ciao Andrea,
Ciao Cinzia
> intendi i messaggi quando cancelli dei record o fai degli aggiornamenti,
> quelli che si eliminano impostando Docmd.SetWarnings False ?
Si questi ed ho già corretto, grazie!
 o quelli relativi alla Trusted location, nel qual caso può
> servirti questo link
>
http://accessdaziacin.spaces.live.com/blog/cns!1889C8F1671B10DC!424.entry
Ho provato a fare anche questo, domani controllo se funziona.
Grazie!
Certo che con il runtime tutto diventa più facile.......
Saluti @ndrea


title: Inserire un record

author: Andrea

text:
Ciao a tutto l'NG
problemuzzo....
ho una tabella es..
campo1   campo2   campo3
a              a             a
b              b             b
c               c             c
d               d             d
nn è ordinata secondo un criterio, devo vedere i dati cosi' come li
inserisco (potrei usare il contatore)
mi servirebbe di inserire una riga tra il secondo e il terzo dato e
mantenere l'ordine di quelle successive.
Penso che si tratti di creare un loop che prende tutti i successivi li copia
in una temp e li recupera dopo l'inserimento ma nn saprei proprio come fare.
Se potete aiutarmi........
(spero di essere stato esauriente)
Bye bye
CP


title: OFFERTA ONESTA!!!!

author: 360 Modena

text:
!!Salve !
    PER CHI DOVESSE ESSERE GIA' AL CORRENTE  DEL MESSAGGIO E
NON DOVESSE ESSERE D'ACCORDO SUL SUO CONTENUTO  PUO' SCORRERE IN FONDO ALLA
PAGINA E LEGGERE LA PARTE SCRITTA COMPLETAMENTE IN MAIUSCOLO CHE RAPPRESENTA
LA RISPOSTA CHE DIEDI PERSONALMENTE A CHI MI AVEVA PRESO PER UN
"DELINQUENTE".
So che odi la spam ma questa NON E' PUBBLICITA' ma un offerta di
lavoro , più precisamente un telelavoro offerto dalla "SPEDIA".
Se avrai la pazienza di leggere queste righe capirai che ne vale
veramente la pena.
Volevo renderti partecipe di una interessante proposta:
ho aderito quasi per scherzo all'iniziativa di Spedia e devo dire che
poi
l'ho trovata estremamente redditizia ed interessante, visto che comunque
non
costa nulla e non si rischia nulla e si può guadagnare parecchio
mandando
unicamente delle e-mail ! Senza fare nulla di impegnativo, come metodo
per arrotondare lo stipendio
non è male e conta che io mi applico poco: ho sentito di persone che
sono
riuscite a guadagnare anche quasi 4 milioni in un mese con questo
telelavoro! Se avrai la pazienza di leggere queste righe capirai che ne
vale
la pena, anche perchè tu non firmi niente, non hai obblighi legali e
puoi,
se ne vorrai far parte, staccarti dall'iniziativa quando vorrai. In
poche
parole si può guadagnare e l'unico requisito richiesto è la pazienza di
spedire delle E- mail (mandarne una decina al giorno dovrebbe
assicurarti
una buona probabilità di riuscita, quindi 10 minuti del tuo tempo!).
Nel mio caso mi piace usare il pc e lo trovo più un hobby che un tele-
lavoro. Conta che ti da anche la possibilità di conoscere gente nuova!
La Spedia è una società americana di pubblicità che ha studiato un
sistema
unico di fare promozione in Internet. Spedia ci chiede unicamente di
guardare il Banner mentre siamo collegati ad Internet. Il Banner è una
piccola finestra nella quale compaiono delle pubblicità di vario genere
(altezza 2 cm e larghezza come lo schermo del tuo pc): Spedia
immediatamente
dopo la tua registrazione ti permette di scaricare questo banner (a
differenza di altre società come la All Advantage che ti fa aspettare
parecchie settimane, quindi con la Spedia inizi a guadagnare subito),
che è
di dimensione veramente ridotte (210 Kb) quindi nel giro di pochi
secondi lo
scarichi tranquillamente. Ovviamente mentre navighi puoi ridurre questa
finestra a icona in modo che non ti occupi lo schermo. Tramite questo
banner
che noi installiamo sul nostro pc e facciamo installare dalle persone
che
entrano nella società tramite noi, la Spedia ci calcola un guadagno.
Tramite
il banner infatti lei conteggia le ore che stiamo connessi in rete e le
ore
di connessione delle persone che noi abbiamo introdotto nell'iniziativa
e di
conseguenza da un compenso.
Il Banner non rallenta la connessione e non causa rallentamenti o
conflitti
al sistema operativo.
La logica di tale iniziativa è che le ditte pagano Spedia un tot per le
loro pubblicità, che è decisamente superiore a quanto Spedia
ridistribuisca
a chi fa parte dell'iniziativa, con guadagno diretto per lei e per noi!
Le
pubblicità sul banner sono per il 90% di prodotti di informatica o di
servizi in rete.Il fastidio della pubblicità è minimo, io non la guardo
nemmeno, stò solo attento ad una luce verde sulla barra. Quando questa è
verde ti accredita soldi, quando è rossa no. In pratica per far rimanere
la
luce verde bisogna dare alla spedia bar l'impressione che si stia
navigando
attivamente, altrimenti pensa che non ci sia nessuno davanti allo
schermo e
di conseguenza non paga. Ma ripeto,nella maggior parte del tempo la spia
rimane verde.
La renumerazione è organizzata così:
a.. $ 0,02 per ogni tuo minuto di collegamento , il che vuol dire $
1.200 per ogni ora (circa L. 2220) che ti saranno accreditate
mensilmente
Ora, il guadagno di soldi avviene per "ad point": 1000 ad point = 20 $ ;
1
ad point ogni minuto; 0,02 $ ogni minuto. Quant' è in lire? Se 1 $ =
1850 £,
in 1 minuto avremmo 37 £, in 1 ora 2220 £ . Ovviamente Spedia ti da una
percentuale (il 25 %) del guadagno di tutte le persone che tu farai
iscrivere a questa società tramite il codice che ti verrà comunicato
all'iscrizione. Alle persone che si iscrivono tramite il mio codice non
viene tolto nulla, ci tengo a precisarlo !!! E' veramente molto semplice
e
come sistema ti propongo qui di sotto un rapido calcolo sulla situazione
degli iscritti che puoi generare e i possibili guadagni:
Facciamo conto che tu iscriva a questa iniziativa 100 persone, e che
ognuna
di queste persone stia connessa ad internet per 1 ora e mezzo mediamente
al
giorno e che tu stia connesso per 1 ora al giorno.
Risulta :
(tu) £ 2220 x 30 = £66.600 +
(iscritti) £ 555(25%) x 100 (n°utenti iscritti) x 30(giorni in un mese)
x
1,5(tempo) = £2.497.500
----------------------------------------------------------------------------
----
TOT. 2.564.100 mensili
IL GUADAGNO TUO DERIVATO E' IL SEGUENTE CIRCA 2 MILIONI E MEZZO AL MESE
E 31
MILIONI ANNUALI.........BELLO NON TROVI !!!!!!
Ovvio che se riuscirai a iscrivere più gente guadagnerai.
Il pagamento avviene
tramite assegno bancario mensile che ti arriverà direttamente a
domicilio
riscuotibile presso qualsiasi banca
Ora se sei interessato all ' iscrizione, sappi che è gratuita, veloce da
effettuare (3 minuti), e può essere cancellata o inutilizzata (basta che
quando ti colleghi non inserisci login e password, o non apri la spedia
bar). Per l' iscrizione segui questi punti:
1)Vai al sito
http://www.spedia.net
2) Clicca su "Member Services", "Register Now", "Next", inserisci i tuoi
dati compilando OGNI parte del modulo, dando l' indirizzo a cui arriverà
l'
assegno ogni fine mese e il nome di chi lo potrà ritirare, IMPORTANTE:
quando ti viene richiesto "Reference number of your sponsor" inserisci
230571, è il mio codice e ti permette di avere un tuo codice col quale
poter far iscrivere altre persone e guadagnare quel 25% . Se lascerai lo
spazio bianco o metterai un codice sbagliato te ne verrà dato uno non
valido
col quale non potrai farci nulla, questo per tutelare quelle persone che
come me fanno pubblicità alla Spedia. Ora, dopo aver compilato tutto
puoi
fare "Submit registration". Comparirà un' altra pagina e altre
istruzioni
per scaricare la spedia bar e poter guadagnare. Se vorrai vedere in ogni
momento il totale di "ad point" e perciò dei soldi che hai accumulato
basterà che tu clicchi sull'icona forma di "$"sulla spedia
bar.........MEGLIO DI COSI :)
STRATEGIE:
1.. Contatta i tuoi amici e iscrivili al tuo indirizzo CHE TI VERRA'
ASSEGNATO DOPO ESSERTI REGISTRATO A
http://www.spedia.net
 mettendo il
codice 230571 nella casella "Reference number of your sponsor.
L'indirizzo
del tuo sito e i dati del tuo account ti verranno comunicati
immediatamente
dopo la registrazione.
1.. Manda E-MAIL a utenti Internet con uno schema simile al mio (puoi
fare copia e incolla dalla mia E mail) convincendoli ad iscriversi
tramite
il codice che ti verrà assegnato dopo la registrazione : ti consiglio di
scovarli negli iscritti sui vari provider e/o sui siti personali
gratuiti
tipo quelli che offrono home page gratuite fino a 12 MB. Per correttezza
non
scrivere alla stessa persona più di un E mail, se non è interessata è
inutile seccarla (io adotto questa filosofia).
2.. Vai su IRC e chiedi agli utenti se sono interessati a quesa proposta
con un messaggio di questo tipo : Telelavoro offresi, tutto gratis,
tutto
automatico, ottimi guadagni !!!
E' VERAMENTE SEMPLICE E DIVERTENTE, SENZA IMPEGNO E GRATUITO, L'UNICA
"FATICA" E' MANDARE E-MAIL SE VUOI ACCRESCERE IL TUO NUMERO DI ISCRITTI
DIRETTI (NON NECESSARIO MA IMPORTANTE SE VUOI GUADAGNARE DI PIU')
Visto che il sito di Spedia è in Inglese, se dovessi trovare delle
difficoltà contattami tramite mail !!!.Nel caso questa iniziativa non ti
interessi ti chiedo scusa per il tempo e i
bytes che ti ho rubato :)
Anche io adesso sto provando e mi sembra molto intaressante
Ricordati il codice: 230571
Cordiali saluti
PAOLO
----------------------------------------------------------------------------
--------------------------------------------
LA VERITA' E' CHE LA MAGGIOR PARTE DELLE PERSONE NON CREDE A QUESTI TIPI DI
MESSAGGI (COMPRESO ME). E' IMPOSSIBILE ARRICCHIRSI GRATIS GIUSTO? DECISI LO
STESSO DI REGISTRARMI, TANTO CHE MALE C'ERA, STO SEMPRE A PERDERE TEMPO CON
INTERNET.
    ALLA FINE DEL MESE  AVEVO, SENZA NEANCHE ESSERMENE ACCORTO, SUPERATO IL
PUNTEGGIO MINIMO (1500 PUNTI) PER RICEVERE LA MIA "PARCELLA" E SENZA AVER
CONVINTO NESSUN ALTRO AD ISCRIVERSI. 2 SETTIMANE DOPO MI GIUNGE L'ASSEGNO
ASSOLUTAMENTE LEGALE CHE IO CONVERTO IN CONTANTE PRESSO LA MIA BANCA. NON
ERA CERTO CHISSA' CHE CIFRA, MA E' STATA COMUNQUE UNA PICCOLA SODDISFAZIONE.
    IL TUTTO E' AVVENUTO NELLA PIù TOTALE INDIFFERENZA DA PARTE MIA; E'
COLPA MIA SE QUESTI SOLDI MI SONO ARRIVATI?!
    LA GENTE PURTROPPO SE NON VEDE CON I PROPRI OCCHI NON CREDE. SONO CERTO
CHE SE TU AVESSI LA CERTEZZA DI RICEVERE QUEI SOLDI TI REGISTRERESTI, NE
SONO CONVINTO (E' PER CASO UN MALE RICEVERE SOLDI, L'IMPORTANTE E' CHE LA
PROCEDURA SIA LEGALE, GIUSTO?).
    LA MIA PROPOSTA, INSIEME A QUELLA DI ALTRI NON NUOCE A NESSUNO E
CHIUNQUE NON NE SIA INTERESSATO PUO' FARE A MENO DI LEGGERLA; QUANDO SI
LEGGE "GUADAGNARE SOLDI" O "OFFERTA TELELAVORO" SI PASSA AL RIGO SUCCESSIVO
PUNTO E BASTA. NON STO SPONSORIZZANDO LA MIA DITTA O IL MIO NEGOZIO E NON
SONO NEANCHE UN DIPENDENTE DELLA SPEDIA. COME ALLA TELEVISIONE GUARDO LA
PUBBLICITA' CHE MI MANDANO CON LA DIFFERENZA CHE SU INTERNET TI PAGANO. LORO
MI MANDANO I SOLDI E...GRAZIE E ARRIVEDERCI. LA MIA SALUTE E' OTTIMA E NON
SONO STATO VITTIMA DI NESSUN MESSAGGIO SUBLIMINALE CHE MI HA COSTRETTO AD
ACQUISTARE UN LORO PRODOTTO...OK? NON ME NE RICORDO NEANCHE UNA DI
PUBBLICITA' (PENSANDOCI ME LA RIDO PURE).
    SO SOLO CHE LA SPEDIA SI E' DIMOSTRATA UNA SOCIETA' SERIA PERCHE' SE IL
DENARO NON MI FOSSE GIUNTO A QUEST'ORA AVREI PIU' SPAZIO SULLO SCHERMO
(PENSO CHE MI HAI CAPITO).
    TI RINGRAZIO PER LA TUA DENUNCIA E PER EVENTUALI DENUNCIE FUTURE, SPERO
SOLO CHE QUALCUNO MI APPOGGI IL PIU' PRESTO POSSIBILE PERCHE' APPENA SI
VERRA' A SAPERE IN GIRO CHE LA FACCENDA FUNZIONA, ALLORA TUTTI SI LEVERANNO
LE MASCHERE DA MORALISTA E PIANO PIANO LE ISCRIZIONI CRESCERANNO,
NATURALMENTE FACENDO FINTA DI NIENTE PERCHE' IL MESE PRIMA QUALCUNO AVEVA
FATTO QUALCHE SIMPATICA DENUNCIA E LA COSCIENZA NON RISULTEREBBE DEL TUTTO
PULITA.
    ALLORA SE TI HO DISTURBATO SPERO PER TE CHE LA TUA DENUNCIA ABBIA
EFFETTO (TI HO DANNEGGIATO GIUSTO? PRECISAMENTE I TUOI TESTICOLI SE NON
ERRO), IN CASO CONTRARIO SII GENTILE E LASCIAMI STARE, GRAZIE.
Distinti saluti
                Paolo


title: Cambio Euro

text:
Se nel pannello di controllo in impostazioni internazionali, cambio valuta
mettendo euro, in tutti i campi valuta del mio database viene messo nella
proprità FORMATO la seguente "L. "#.##0;"-L. "#.##0, a questo punto se io
volessi effettivamente euro nel campo valuta, dovrei andare a selezionare il
formato TESTO per esempio e poi ancora VALUTA, ma siccome i campi sono
molti, vi chiedo, c'è un modo per far si che i campi seguano il mio cambio
valuta dal pannello? grazie.


title: Cambio Euro

author: Silvio Berruti

text:
"Tosto73" <
tos...@libero.it
> ha scritto nel messaggio
news:l%PA7.70887$1H1.7...@news.infostrada.it...

Se hai messo il formato Valuta nei controlli della maschera, questi
modificano automaticamente la visualizzazione in base alle impostazioni
internazionali del Pannello di Controllo.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: [Quasy OT] File MDB e Legge Privacy

author: AEOM

text:
Ciao a tutti
tanto per sondare l'ambiente, come vi state comportando per il tema in
oggetto, che modifiche state apportando ai vs software ?
io non ci capisco niente di quello che dice sta benedetta legge
ciao, AEOM


title: [Quasy OT] File MDB e Legge Privacy

author: Antonio Biso

text:
"AEOM" <
fuck...@motherfucker.it
> ha scritto nel messaggio
news:y5%wc.294654$hc5.12...@news3.tin.it...

Perchè, secondo te chi realizza un SW ha di questi problemi?
E quali?
Antonio


title: [Quasy OT] File MDB e Legge Privacy

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:t8%wc.96846$Qc.37...@twister1.libero.it...

ciao Antonio,
da quello che ho capito (poco) devo fare in modo che per accedere al
software si digiti user e psw, e in base all'user programmare quali dati
questo può visualizzare. Mi sbaglio?
Inoltre l'mdb o msde che contiene i dati non deve essere "apribile" da parte
di chiunque
sbaglio?
ciao, AEOM


title: [Quasy OT] File MDB e Legge Privacy

author: sv

text:
AEOM ha scritto:
> Ciao a tutti


> ciao, AEOM
Ti consiglierei, frattanto, di leggerti su:
http://www.garanteprivacy.it/garante/navig/jsp/index.jsp
"Prime riflessioni sui criteri di redazione del Documento Programmatico
sulla sicurezza"
E poi l'Allegato B.Disciplinare Tecnico che trovi su:
http://www.garanteprivacy.it/garante/doc.jsp?ID=488497
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: [Quasy OT] File MDB e Legge Privacy

author: pixel

text:
"AEOM" <> > >
> ciao Antonio,
> da quello che ho capito (poco) devo fare in modo che per accedere al
> software si digiti user e psw, e in base all'user programmare quali dati
> questo puň visualizzare. Mi sbaglio?
> Inoltre l'mdb o msde che contiene i dati non deve essere "apribile" da
parte
> di chiunque
>
> sbaglio?
Tu la vedi cosě?
Bene, allora come vedi la situazione in rapporto ai milioni di documenti
word o excel che contengono dati "sensibili"?
Non mi risulta proprio che si possa settare la protezione utente su un doc.
word!
Il problema č a monte dell'applicativo: riguarda l'accesso al PC-
Pixel


title: [Quasy OT] File MDB e Legge Privacy

text:
"AEOM" <
fuck...@motherfucker.it
> ha scritto nel messaggio
news:Gf%wc.294688$hc5.12...@news3.tin.it...
>
> > > tanto per sondare l'ambiente, come vi state comportando per il tema in
> > > oggetto, che modifiche state apportando ai vs software ?
> > >
> > > io non ci capisco niente di quello che dice sta benedetta legge
> > >
> > > ciao, AEOM
> > >
> >
> > Perchè, secondo te chi realizza un SW ha di questi problemi?
> > E quali?
> >
> > Antonio
> >
> >
>
> ciao Antonio,
> da quello che ho capito (poco) devo fare in modo che per accedere al
> software si digiti user e psw, e in base all'user programmare quali dati
> questo può visualizzare. Mi sbaglio?
> Inoltre l'mdb o msde che contiene i dati non deve essere "apribile" da
parte
> di chiunque
Ma questi saranno problemi dell'utilizzatore del sw, mica tuo!!!
Se te lo commissiona, bene, altrimenti...
Antonio


title: [Quasy OT] File MDB e Legge Privacy

author: stefano (kabisa)

text:
"AEOM" <
fuck...@motherfucker.it
> ha scritto nel messaggio
news:y5%wc.294654$hc5.12...@news3.tin.it...

Ciao
Io faccio principalmente applicativi medici (cartelle cliniche, interfacce
con laboratori, programmi decisionali ecc..)
La normativa che devo aplicare è molto rigida.
I dati medici sono classificati abbastanza riservati.
ti illustro:
Programma all'apertura chiede login e password
ad ogni login è associato un livello utenza:
1 amministratore
2 livello1
3 livello 2
4 livello 3
amministratore può dare nuove login e ha un controllo completo sul programma
(comprensivo di report in cui vengono visualizzati tutte le operazioni fatte
dagli altri utenti)
gli altri livelli anno la possibilità di cambiare la pw e hanno solo acesso
ai dati decisi dall'amministratore.
L'identificativo del paziente (nome cognome ecc. viene visualizzato
correttamente nelle form, ma viene registrato criptato negl'mdb BE)
in caso qualcuno lo riesca a trafugare.)
Con la nuova normativa i medici sono tenuti a cambiare la pw ogni 4-5 giorni
(nell'ospedale dovo lavoro principalmente regione veneto)
quindi dalla mia parte io non ho responsabilità in quanto ho dato la
possibilità del cambio pw.
per quanto riguarda i dati critici es pazieni affetti da patologie tipo HIV
ecc
protezione su tutti i dati e stringa di criptaggio variabile per
segnalazione protocoli internazionali
La spiegazione dell'algoritmo per la creazione di un codice univoco non
identificabile (lo uso per i protocolli internazionali
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.
.
Stefano Kabisa


title: Casella di riepilogo.

author: Romeo Tramontano

text:
Salve ragazzi, io ho un problema con una casella di riepilogo che prende i
dati ovviamente da una tabella "Nominativo" con i seguenti campi
Id,Nominativo,Si/no. A fronte dell'evento clic sulla casella di riepilogo,
ho messo il seguente codice:
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [Nominativo] SET [Nominativo].Seleziona =
IIf([Nominativo]!Seleziona=Yes,No,Yes)  WHERE
((([Nominativo].[Nominativo])=[Forms]![Maschera]![Nomi]));  ", -1
Me!Elenco.Requery
succede che quando clicco su un nominativo mi viene aggiornato il campo a si
o no a seconda di come lo trovo e fin qui tutto bene. Se io alla pressione
di un pulsante, volessi solo far cambiare da si a no tutti i nomi tranne uno
come potrei fare?
Spero di essermi spiegato, è una cosa che mi riesce sempre molto male.
Grazie.


title: Casella di riepilogo.

author: Fabrizio yQy

text:
Romeo Tramontano ha scritto:
> Salve ragazzi, io ho un problema con una casella di riepilogo che prende i
> dati ovviamente da una tabella "Nominativo" con i seguenti campi
> Id,Nominativo,Si/no. A fronte dell'evento clic sulla casella di riepilogo,
> ho messo il seguente codice:
>
> DoCmd.SetWarnings False
> DoCmd.RunSQL "UPDATE [Nominativo] SET [Nominativo].Seleziona =
> IIf([Nominativo]!Seleziona=Yes,No,Yes)  WHERE
> ((([Nominativo].[Nominativo])=[Forms]![Maschera]![Nomi]));  ", -1
> Me!Elenco.Requery
per evitare di mettere warning=false e warning=true potresi fare
sql = "select...."
currentdb.execute(sql)
al posto di docmd.runsql...
> succede che quando clicco su un nominativo mi viene aggiornato il campo a si
> o no a seconda di come lo trovo e fin qui tutto bene. Se io alla pressione
> di un pulsante, volessi solo far cambiare da si a no tutti i nomi tranne uno
> come potrei fare?
update nominativo set seleziona=-1
where nominativo <> [Forms]![Maschera]![Nomi][Nominativo].Seleziona =
...non ho verificato e spero di aver capito quello che ti serve.
ciao, fammi sapere


title: Casella di riepilogo.

text:
"Fabrizio yQy" <
yqy_...@yahoo.it
> ha scritto nel messaggio
news:1129068104.3...@g47g2000cwa.googlegroups.com...

Ciao, ti ringrazio per la dritta per l'SQL e devo dirti che questa tua
soluzione, (per sql) mi ha fatto venire un'idea, cioč
dim sAggiornaTab as String
sAggiornaTab = "UPDATE [Nominativo] SET [Nominativo].Seleziona = No WHERE
((([Nominativo].[Nominativo])<>'Antonio'));"
currentdb.execute(sAggiornaTab)
Me.Elenco.Requery
con questo ho risolto il mio problema.
Grazie infinite,
Romeo.


title: Ricerca Record in Maschere continue...

author: Jason

text:
Ciao a tutti.
In una sottomaschera impostata a maschera continua, con codice VBA devo
verificare de un valore contenuto in un campo è presente o no.
Ho provato con:
Me.Barre.SetFocus
DoCmd.FindRecord Mid(Tutto, 1, InStr(1, Tutto, ",") - 1)
If Me.Barre = Mid(Tutto, 1, InStr(1, Tutto, ",") - 1) Then
  <<Cut>>
Else
  DoCmd.GoToRecord acActiveDataObject, , acNewRec
  <<Cut>>
End If
ma non funziona, qualche suggerimento.
Grazie Mille.
Jason
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Ricerca Record in Maschere continue...

text:
Jason ha scritto:
> Ciao a tutti.
> In una sottomaschera impostata a maschera continua, con codice VBA devo
> verificare de un valore contenuto in un campo č presente o no.
> Ho provato con:
> Me.Barre.SetFocus
> DoCmd.FindRecord Mid(Tutto, 1, InStr(1, Tutto, ",") - 1)
> If Me.Barre = Mid(Tutto, 1, InStr(1, Tutto, ",") - 1) Then
>   <<Cut>>
> Else
>   DoCmd.GoToRecord acActiveDataObject, , acNewRec
>   <<Cut>>
> End If
> ma non funziona, qualche suggerimento.
> Grazie Mille.
> Jason
Ho risolto filtrando la sottomaschera per il confronto ed eliminando poi
il filtro dopo l'operazione.
Grazie



title: Aiuto MA_Rinomina file

author: CiccioR

text:
Se nella cartella C:Documenti, ho diciamo 3 file da
rinominare:
File_1.doc
File_2.doc
File_3.doc
e nella tabella T_Nomi ho le seguenti righe con i nuovi nomi file:
FileA.doc
FileB.doc
FileC.doc
E' fattibile?
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Aiuto MA_Rinomina file

author: Alessandro Cara

text:
CiccioR wrote:
> Se nella cartella C:Documenti, ho diciamo 3 file da
> rinominare:
>
> File_1.doc
> File_2.doc
> File_3.doc
>
>
> e nella tabella T_Nomi ho le seguenti righe con i nuovi nomi file:
>
> FileA.doc
> FileB.doc
> FileC.doc
>
>
> E' fattibile?
Perche' non segui nel 3d che gia' hai aperto? Soprattutto se lo rivolgi
a MA?
Comunque e' fattibile. Ma non mi intrometto.
--
ac
y-1=x


title: fattura

author: Zinko

text:
cerco un esempio di fattura, in access. Qualcuno mi saprebbe dire dove posso
trovarla?
grazie 1000
Zinko


title: fattura

author: Luciano

text:
Zinko ha scritto nel messaggio <8ckrf3$8dh$
1...@nslave1.tin.it
>...

Northwind, database di esempio fornito con Access.
Saluti.
Luciano


title: Tasto ESC o tasto annulla predefinito??

text:
Scusate l'oggetto. ma meglio di così nn sapevo esprimermi.....Mi succede
questo: se imposto la proprietà Annulla = si sul tasto ESCI di una form, 9/10
mi si pianta il programma, nel senso che la subform perde l'origine dati (che
è una query memorizzata nel QBE) e va tutto in malora (esce un "Oggetto non
valido o non impostato" e devo killare da task). Se premo il pulsante Esci va
tutto bene. Se da li apro il report relativo e lo chiudo con ESC succede la
stessa cosa di prima. Se premo il pulsante chiudi tutto ok......Non so cosa
pensare......
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


title: Tasto ESC o tasto annulla predefinito??

author: Dino

text:

Se non ho capito male il tuo problema e' disabilitare il tasto ESC. Se
e' così segui le mie istruzioni che ti riporto di seguito, funzionano
alla grande.
Nel form in esame :
SULL’EVENTO TASTO GIU’ :
Select Case KeyCode
    Case vbKeyEscape, vbKeyPageDown
        KeyCode = 0
    End Select
SU ANTWPRIMA TASTI :Sì
Si crea poi controllo che potrai utilizzare come tasto ESC e
sull’evento click :Me.Undo
Dino


title: Tasto ESC o tasto annulla predefinito??

text:
Dino ha scritto:
>On 16 Mar, 16:41, Fair87<roby....@gmail,com > wrote:
>> Scusate l'oggetto. ma meglio di cos=EC nn sapevo esprimermi.....Mi succed=
>e
>> questo: se imposto la propriet=E0 Annulla =3D si sul tasto ESCI di una fo=
>rm, 9/10
>> mi si pianta il programma, nel senso che la subform perde l'origine dati =
>(che
>> =E8 una query memorizzata nel QBE) e va tutto in malora (esce un "Oggetto=
> non
>> valido o non impostato" e devo killare da task). Se premo il pulsante Esc=
>i va
>> tutto bene. Se da li apro il report relativo e lo chiudo con ESC succede =
>la
>> stessa cosa di prima. Se premo il pulsante chiudi tutto ok......Non so co=
>sa
>> pensare......
>>
>> --
>> Questo articolo e` stato inviato dal sito web http :// www .nonsolonews,it
>
>Se non ho capito male il tuo problema e' disabilitare il tasto ESC. Se
>e' cos=EC segui le mie istruzioni che ti riporto di seguito, funzionano
>alla grande.
>Nel form in esame :
>SULL=92EVENTO TASTO GIU=92 :
>
>Select Case KeyCode
>    Case vbKeyEscape, vbKeyPageDown
>        KeyCode =3D 0
>    End Select
>
>
>
>SU ANTWPRIMA TASTI :S=EC
>
>
>Si crea poi controllo che potrai utilizzare come tasto ESC e
>sull=92evento click :Me.Undo
>
>Dino
Grazie Dino per la risposta, ma nn ho bisogno di disabilitare l'ESC!!! Anzi,
mi piacerebbe utilizzarlo sempre (è il mio predefinito per la chiusura delle
maschere)! Sarebbe carino capire PERCHE' 'sta cosa succede....dopo
innumerevoli tentativi, posso dire (se servisse a qualcuno) che SEMBRA dipenda
dal resize della form, cioè quando passi da una form all'altra senza chiudere
nulla, Access comincia a fare resize di un botto di cose.....ho su attivazione
di ogni form la proprietà maximise x le visualizzazioni corrette. E' questa
catena la responsabile. Ponenendo dimensioni automatiche = si SEMBRA che il
baco (mio!!!!) non si presenti +.....mah...le cose segrete di Access
RobertoF



title: Tasto ESC o tasto annulla predefinito??

text:

> Questo articolo e` stato inviato dal sito webhttp://www.nonsolonews.it- Nascondi testo citato
>
> - Mostra testo citato -
OK se va bene cos' ...continua.Io pero ' ti consiglerei di non
lasciare troppi form aperti.Cioe' all'aperture di una si chiudel
'altra e vic.Poi dipende dalla tua esigenza
Dino


title: Tasto ESC o tasto annulla predefinito??

text:
Dino ha scritto:
>On 17 Mar, 11:17, Fair87<roby....@gmail,com > wrote:
>> Dino ha scritto:
>>
>>
>>
>>
>>
>> >On 16 Mar, 16:41, Fair87<roby....@gmail,com > wrote:
>> >> Scusate l'oggetto. ma meglio di cos=3DEC nn sapevo esprimermi.....Mi s=
>ucced=3D
>> >e
>> >> questo: se imposto la propriet=3DE0 Annulla =3D3D si sul tasto ESCI di=
> una fo=3D
>> >rm, 9/10
>> >> mi si pianta il programma, nel senso che la subform perde l'origine da=
>ti =3D
>> >(che
>> >> =3DE8 una query memorizzata nel QBE) e va tutto in malora (esce un "Og=
>getto=3D
>> > non
>> >> valido o non impostato" e devo killare da task). Se premo il pulsante =
>Esc=3D
>> >i va
>> >> tutto bene. Se da li apro il report relativo e lo chiudo con ESC succe=
>de =3D
>> >la
>> >> stessa cosa di prima. Se premo il pulsante chiudi tutto ok......Non so=
> co=3D
>> >sa
>> >> pensare......
>>
>> >> --
>> >> Questo articolo e` stato inviato dal sito web http :// www
nonsolonew=
>s,it
>>
>> >Se non ho capito male il tuo problema e' disabilitare il tasto ESC. Se
>> >e' cos=3DEC segui le mie istruzioni che ti riporto di seguito, funzionan=
>o
>> >alla grande.
>> >Nel form in esame :
>> >SULL=3D92EVENTO TASTO GIU=3D92 :
>>
>> >Select Case KeyCode
>> > =A0 =A0Case vbKeyEscape, vbKeyPageDown
>> > =A0 =A0 =A0 =A0KeyCode =3D3D 0
>> > =A0 =A0End Select
>>
>> >SU ANTWPRIMA TASTI :S=3DEC
>>
>> >Si crea poi controllo che potrai utilizzare come tasto ESC e
>> >sull=3D92evento click :Me.Undo
>>
>> >Dino
>>
>> Grazie Dino per la risposta, ma nn ho bisogno di disabilitare l'ESC!!! An=
>zi,
>> mi piacerebbe utilizzarlo sempre (=E8 il mio predefinito per la chiusura =
>delle
>> maschere)! Sarebbe carino capire PERCHE' 'sta cosa succede....dopo
>> innumerevoli tentativi, posso dire (se servisse a qualcuno) che SEMBRA di=
>penda
>> dal resize della form, cio=E8 quando passi da una form all'altra senza ch=
>iudere
>> nulla, Access comincia a fare resize di un botto di cose.....ho su attiva=
>zione
>> di ogni form la propriet=E0 maximise x le visualizzazioni corrette. E' qu=
>esta
>> catena la responsabile. Ponenendo dimensioni automatiche =3D si SEMBRA ch=
>e il
>> baco (mio!!!!) non si presenti +.....mah...le cose segrete di Access
>>
>> RobertoF
>>
>> --
>> Questo articolo e` stato inviato dal sito web http :// www .nonsolonews,it
- N=
>ascondi testo citato
>>
>> - Mostra testo citato -
>
>OK se va bene cos' ...continua.Io pero ' ti consiglerei di non
>lasciare troppi form aperti.Cioe' all'aperture di una si chiudel
>'altra e vic.Poi dipende dalla tua esigenza
>Dino
Purtroppo è inevitabile per come l'applicazione è stata pensata.......prendi x
es una maschera di ricerca....da li vuoi modificare il dato (II° maschera) che
ha al suo interno delle combo in cui puoi inserire/modificare dati (IIIà o IV°
form).....ecc ecc ecc
Quello che mi lascia perplesso è che non è sempre riproducibile......i bachi
peggiori......Cmq grazie per l'interessamento....
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


title: RANDOM

author: simposio

text:
Ciao,
da una table di nome "scuolaX" devo estrarre casualmente un record. Cosa
devo fare? Ho provato con SELECT DFIRST..... ma non sono riuscito (forse
perchè non lo uso correttamente?).
Qualcuno può aiutarmi?
grazie
Stefano


title: RANDOM

text:
"simposio" <
dnt...@tin.it
> ha scritto nel messaggio
news:F88u9.31275$aL4.9...@news1.tin.it...

Se vuoi fare uina cosa veramente random, metti un campo numerico che numera
i record da 1 a n.
poi usa le funzioni random e randomize per ottenre un numero da 1 a n,
quindi prendi quel record
Antonio


title: RANDOM

text:
ok,
ma come funzionerebbe, invece, DFIRST? Inoltre non pernsi che sia
"realmente" random?


title: RANDOM

text:
"simposio" <
dnt...@tin.it
> ha scritto nel messaggio
news:jb9u9.31482$aL4.9...@news1.tin.it...
> ok,
> ma come funzionerebbe, invece, DFIRST? Inoltre non pernsi che sia
> "realmente" random?
Se usi dfirst, non è realmente random.
Dfirst ti da il primo record, poi è casuale quello che sta al primo posto,
ma sarà sempre lui il primo, anche ad interrogazioni successive.
Con random avrai un numero sempre causale ad ogni interrogazione.
Antonio


title: RANDOM

author: Claudio

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:jCau9.74734$RO.18...@twister1.libero.it...

Se ti può essere utile (ovviamente mi sto rivolgendo a simposio), potresti fare una cosa
del genere, per posizionarti su un record a caso all'interno di una maschera:
DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, Int(Rnd * Me.Recordset.RecordCount) + 1
Ciao. Claudio.


title: [QUERY] Selezione Record Casuale - Dove ho sbagliato?

author: MC

text:
Salve,
la seguente query ha un errore, mi ritorna l'errore
Tipi di dati non corrispondenti nell'espressione criterio. (3464).
Avete idee in merito?
SELECT TOP 1 Int(Rnd([idConcorrente])*100) AS
Finalista,tblConcorrente.idConcorrente  FROM tblConcorrente WHERE
(((tblConcorrente.concPremiato)<>True)) ORDER BY
Int(Rnd([idConcorrente])*100);
Grazie!
--
MC


author: Pablitomf (Maurizio Facciuti)

text:
"MC" <
mauro.c...@gmail.com
> ha scritto nel messaggio
news:di048a$74o$1...@domitilla.aioe.org...

Forse, o sicuramente avrò saltato qualche punto già trattato di tale tuo
problema, ma perchè usi una query per estrarre un record casuale?...
Ripeto, che "la premessa di non aver seguito il precedente è fondamentale",
ma mi chiedo, se a una Tabella aggiungi un campo, e a questo campo
attribuisci un valore casuale, e butti giù una Routine che in questo range
di codici casuali attribuiti (a tutti i record), tiri fuori uno a caso di
questi? Ecco perchè ti parlavo a suo tempo della Tombola.
Fammi sapere.
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97 e 2000
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."


text:
[cut]
se guardi il mio post di ieri titolato:
[Help] Estrazione record casuale - Analisi problematica
avrai sufficenti spiegazioni!!!
Se poi hai idee in merito, ben vengano, il povero MA credo di averlo
distrutto psicologicamente e gli chiedo scusa *pubblicamente* ... ma come
gia dette e ridetto, trito e ritrito, questa cosa mi ha bloccato ;o)))
Ciao
--
MC


author: namor

text:
MC ha scritto:


> Grazie!
Questo tipo di errore lo dà quando confronti due valori di tipo diverso,
per esempio un campo di tipo testo con un numero.
Di che tipo è il campo tblConcorrente.concPremiato? Se è un boolean puoi
cambiare il criterio in WHERE Not(tblConcorrente.concPremiato)
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
[cut]
SELECT TOP 1 Int(Rnd([idConcorrente])*100) AS Finalista,
tblConcorrente.idConcorrente
FROM tblConcorrente
WHERE not (tblConcorrente.concPremiato)
ORDER BY Int(Rnd([idConcorrente])*100);
se intendevi così comunque non funziona ...
tblConcorrente.concPremiato è un campo booleano di tipo Si\No.
Ciao
--
MC


text:
[cut]
niente da fare????
:o(
--
MC


text:
MC ha scritto:
> [cut]


> tblConcorrente.concPremiato è un campo booleano di tipo SiNo.
> Ciao
> --
> MC
Se togli tutta la riga del WHERE funziona?
Giusto per capire se il problema è nel criterio, che a prima vista sembra
corretto.



text:
[cut]
SELECT TOP 1 str(Rnd([idConcorrente])*100) AS Finalista
FROM tblConcorrente;
 cosě niente da fare ...
ps: idConcorrente č una stringa.
--
MC


text:
MC ha scritto:

Allora č lě il problema, Rnd() accetta solo numeri. Convertila con Val().
  Rnd(Val([idConcorrente]))*100



text:
[cut]
SELECT TOP 1 Rnd(Val([idConcorrente]))*100 AS Finalista,
tblConcorrente.idConcorrente
FROM tblConcorrente
WHERE (((tblConcorrente.concPremiato)=False))
ORDER BY Rnd(Val([idConcorrente]))*100;
cosě funziona ma estrae tutti i record della tabella e non uno solo e per di
piů a caso tra quelli della tabelle ...
... questa cosa mi sta tirando matto!!!!!!!
--
MC


text:
[cut]
cambiamo il focus ... se volessi estrarre un record a caso tra quelli della
tabella tblConcorrente dove il campo booleano concEstratto = falso come
potrei fare?
...
n.d.r.:E' cosě complicato quello che stň cercando di fare?
Grazie Namor e grazie a chiunque possa rispondermi!
--
MC


text:
PROBLEMA RISOLTO!!!!!!!!
--
MC


author: MA

text:

MC, guarrda che io avevo aggiunto un campo contatore denominato id e rnd
l'ho calcolato su quello...
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


text:
MC wrote:
> [cut]
> SELECT TOP 1 Rnd(Val([idConcorrente]))*100 AS Finalista,
> tblConcorrente.idConcorrente
> FROM tblConcorrente
> WHERE (((tblConcorrente.concPremiato)=False))
> ORDER BY Rnd(Val([idConcorrente]))*100;
>
> cosě funziona ma estrae tutti i record della tabella e non uno solo e
> per di piů a caso tra quelli della tabelle ...
Se idconcorrente č contatore, non dvrebbe fare prorpio quello????
>
> ... questa cosa mi sta tirando matto!!!!!!!
Mi sa di sě



title: query parametrica errore in richiamo da VBA

author: pfm

text:
salve

ho creato una query paramentrica

SELECT Sum(Peso) AS TotPeso, Count(Peso) AS NumOggetti, TIPOOggetto, DescOggetto
FROM miaTabella
WHERE (((CDate([DArrivo] & " " & TimeValue([oarrivo])))<[Filtro]) AND ((DescOggetto) Like 'color*') AND ((DScarico) Is Null))
GROUP BY TIPOOggetto;

se la lancio da Access tutto ok
digito per il filtro --> 7/1/2016 12:00

se provo da vba a richiamare

   Dim qdf As DAO.QueryDef
   Dim rs As DAO.Recordset
   Set qdf = CurrentDb.QueryDefs("qParm_TotOggettoColorInMaga")
   qdf.Parameters![Filtro] = (txtDRiferimento) & " " & TimeValue(CDate(txtOraRiferimento))
   Set rs = qdf.OpenRecordset

mi filtra sbagliato

come devo comporre il filtro ?


text:
Inverti mm/gg da VBA nella [txtDRiferimento].

@Alex


author: Karl Donaubauer

text:
Salve,

Pfm ha scritto:
> ...

http://www.donkarl.com/it?FAQ6.8

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


title: VBA: prelevare un oggetto e metterlo su un report...

author: sd

text:
Salve a tutti,
avrei la necessita di prelevare da una
tabella un solo oggetto OLE (documento word)
e inserirlo in un report.
Che sintassi devo usare?
La tabella contenente i docuemnti è cosi:
descrizione      docuemento
---------------------------
     a                    doc1
    b                    doc2
........
...........
..........


title: Impossibile aggiungere

author: Salva

text:
Ciao a tutti!
Vorrei per favore un aiuto. Ho creato un db con Access XP convertito
successivamente in formato 97 per poterlo manipolare con VB 5 e i
datacontrol, solo che quando tento di aggiungere un record con Addnew,
compare il messaggio d'errore 3027 per dirmi che è impossibile
aggiungere e che il db o gli oggetti sono read-only, ma questo non è
vero perché ho controllato le proprietà readonly di tutti i data
control. Cosa posso fare? Grazie mille.


title: Impossibile aggiungere

text:

Cambiale comunque da codice all'apertura... anche a me lo ha fatto e così
l'ho risolto.


title: Impossibile aggiungere

text:


Grazie ma non funziona. Ho provato a reinstallare anche la DLL DAO
3.51 ma nulla.
Sono disperato! Che posso fare?
Ciao!
>


title: [DEMO UPL] On-line Demo GEstore Tabelle

text:
Dategli uno sguardo... potrebbe essere e esservi utile.
www.geviservices.it/files/db/Gestione_Tab2.zip
Ovviemente è in fase di sviluppo.
Fatemi sapere cosa ne pensate.
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access 97 -  2000
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
Quotare :
http://wiki.news.nic.it/QuotarBene
http://www.krisopea.it/mvp/Quoting.htm
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."


title: [DEMO UPL] On-line Demo GEstore Tabelle

author: Nick

text:
Pablitomf (Maurizio Facciuti) ha detto: in data 11/11/2005 10.01:
> Dategli uno sguardo... potrebbe essere e esservi utile.
>
>
www.geviservices.it/files/db/Gestione_Tab2.zip
>
> Ovviemente è in fase di sviluppo.
>
> Fatemi sapere cosa ne pensate.
>
>
se provi ad aprire un db protetto da password va in loop (errore di
password non valida)
idem va in loop se apri db con tabelle collegate e il collegamento non è
disponibile
per il resto pare funzioni bene ;)
ciao
Nick


title: [DEMO UPL] On-line Demo GEstore Tabelle

author: Alessandro Baraldi

text:
"Nick" <senz...@chedetesul.NG> wrote in message
news:%M_cf.55665$
Pe2.1...@twister2.libero.it
[CUT]
> se provi ad aprire un db protetto da password va in loop (errore di
> password non valida)
>
> idem va in loop se apri db con tabelle collegate e il collegamento non è
> disponibile
>
> per il resto pare funzioni bene ;)
>
> ciao
> Nick
Se poi è protetto da MDW...!!!
;-)
Se non ricordo male avevo sviluppato una Classe per
la connessione ad un MDB protetto da MDW, ovviamente
se MDW=System funzionava ugualmente, ed anche se
c'è la PWD.
Se la trovo la mando a Maurizio per implementarla
nel caso possa servire.
Per il 2° problema(Linked non disponibili) basta gestire
l'errore.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: [DEMO UPL] On-line Demo GEstore Tabelle

author: Sergio MAZZA

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio news:d19c4103cfca403756...@mygate.mailgate.org...
>
> Se poi è protetto da MDW...!!!
> ;-)
>
> Se non ricordo male avevo sviluppato una Classe per
> la connessione ad un MDB protetto da MDW, ovviamente
> se MDW=System funzionava ugualmente, ed anche se
> c'è la PWD.
>
> Se la trovo la mando a Maurizio per implementarla
> nel caso possa servire.
>
> Per il 2° problema(Linked non disponibili) basta gestire
> l'errore.
>
> @Alex
No, non mandargliela tanto ha deciso di partire per un luuungo viaggio...
Ciao.
--
Sergio MAZZA


title: [DEMO UPL] On-line Demo GEstore Tabelle

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> wrote in message
news:dl1ui3$1fv$
1...@area.cu.mi.it
[CUT]
> No, non mandargliela tanto ha deciso di partire per un luuungo viaggio...
>
> Ciao.
Anch'io....., lunedě da Malpensa.
Come mi annoierň senza il NG.
;-)



title: [DEMO UPL] On-line Demo GEstore Tabelle

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:e005aa47310eab4c85...@mygate.mailgate.org...
> "Sergio MAZZA" <
sergi...@tiscali.it
> wrote in message
> news:dl1ui3$1fv$
1...@area.cu.mi.it
>
> [CUT]
>> No, non mandargliela tanto ha deciso di partire per un luuungo viaggio...
>>
>> Ciao.
>
>
> Anch'io....., lunedě da Malpensa.
si, ma il mio č meglio (fidati)... ora ti invio qualcosa a riguardo (l'ho
inviata anche a Sergio che č stato invidiosissimo!!!!). :-)



title: [DEMO UPL] On-line Demo GEstore Tabelle

text:
"Pablitomf (Maurizio Facciuti)" <
maurizio...@accessgroup.it
> ha scritto nel messaggio news:dl221h$dgh$1...@domitilla.aioe.org...
>
> si, ma il mio č meglio (fidati)... ora ti invio qualcosa a riguardo (l'ho inviata anche a Sergio che č stato invidiosissimo!!!!).
> :-)
>
Sgrunt!
Ciao.
--
Sergio MAZZA


title: [DEMO UPL] On-line Demo GEstore Tabelle

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio news:e005aa47310eab4c85...@mygate.mailgate.org...
>
> Anch'io....., lunedě da Malpensa.
> Come mi annoierň senza il NG.
> ;-)
>
> @Alex
Sě eh?
Ciao.
--
Sergio MAZZA


title: [DEMO UPL] On-line Demo GEstore Tabelle

text:
"Pablitomf \(Maurizio Facciuti\)" <
maurizio...@accessgroup.it
>
wrote in message news:dl221h$dgh$
1...@domitilla.aioe.org
[CUT]
> si, ma il mio č meglio (fidati)... ora ti invio qualcosa a riguardo (l'ho
> inviata anche a Sergio che č stato invidiosissimo!!!!). :-)
Diciamo che allora non ti mando nulla...! ;-)



title: [DEMO UPL] On-line Demo GEstore Tabelle

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> wrote in message
news:dl22i4$8jm$
1...@area.cu.mi.it
[CUT]
> Sě eh?
>
> Ciao.
Hi..Hi...Hi.....!!!
Se giuso mi credi...?



title: [DEMO UPL] On-line Demo GEstore Tabelle

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> wrote in message
news:dl22i4$8jm$
1...@area.cu.mi.it
[CUT]
> Sě eh?
>
> Ciao.
Hi..Hi...Hi.....!!!
Se giuro mi credi...?



title: [DEMO UPL] On-line Demo GEstore Tabelle

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio news:59581b47f6cbd8d9f7...@mygate.mailgate.org...
>
>
> Hi..Hi...Hi.....!!!
> Se giuro mi credi...?
>
> @Alex
Attento con quel naso!
Ciao.
--
Sergio MAZZA


title: stamare 2 righe sin report

author: BC

text:
Ho una tabella anagrafica correlata ad una tabella  farmaci.
Devo stampare delle impegnative (quelle cose maledette con le quali si
va in farmacia...)
Vorrei, una volta assegnati i farmaci al paziente, stampare solo due
righe per ogni farmaco. Ho visto l'esempio sul sito comune, ma in
effetti fa cose un po' diverse (stampa righe vuote, considera le
sezioni, ecc).
Mi dareste qualche suggerimento -semplice- per fare quello che
-confusamente- ho descritto?

grazie in anticipo

BC


title: utilizzo dei segnalibri con Word

text:
ho letto un po' di post vecchi e guardato sul sitocomune ma non sono riuscito a capire una cosa:
se io seleziono un bookmark in un file di word con l'azione .bookmarks("nomeBook").select
se successivamente al mio segnalibro volessi inserire un testo devo perforza inserire un finto
segnalibro che vado a sostituire o esiste un'istruzione tipo "insert text" ?
purtroppo non sono riuscito a trovare una soluzione.
grazie
Ciao Nick


title: utilizzo dei segnalibri con Word

text:
Nick ha scritto:
> ho letto un po' di post vecchi e guardato sul sitocomune ma non sono
riuscito a capire una cosa:
> se io seleziono un bookmark in un file di word con l'azione
bookmarks("nomeBook").select
> se successivamente al mio segnalibro volessi inserire un testo devo perforza
inserire un finto
> segnalibro che vado a sostituire o esiste un'istruzione tipo "insert text" ?
> purtroppo non sono riuscito a trovare una soluzione.
> grazie
> Ciao Nick
Puoi usare .Selection.InsertAfter che inserisce il testo dopo la selezione
senza cancellarne il contenuto.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: utilizzo dei segnalibri con Word

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio news:c1kch6$fc9$1...@news.newsland.it...

ma in questo caso devo comunque usare lo strumento ricerca testo.....
quindi la mia domanda diventa:
i segnalibri a cosa servono se devo comunque usare la ricerca testo?
la ricerca funziona anche sui segnalibri? (quindi se io ho il segnalibro pippo ma nel documento non
c'è la parola pippo, con la ricerca si posiziona cmq in pippo?)
grazie


title: utilizzo dei segnalibri con Word

text:
Nick ha scritto:
> "namor" <
do...@spam.me
> ha scritto nel messaggio
news:c1kch6$fc9$1...@news.newsland.it...
> > Nick ha scritto:
> > > ho letto un po' di post vecchi e guardato sul sitocomune ma non sono
> > riuscito a capire una cosa:
> > > se io seleziono un bookmark in un file di word con l'azione
> > bookmarks("nomeBook").select
> > > se successivamente al mio segnalibro volessi inserire un testo devo
perforza
> > inserire un finto
> > > segnalibro che vado a sostituire o esiste un'istruzione tipo "insert
text" ?
> > > purtroppo non sono riuscito a trovare una soluzione.
> > > grazie
> > > Ciao Nick
> > Puoi usare .Selection.InsertAfter che inserisce il testo dopo la selezione
> > senza cancellarne il contenuto.
> > Namor
> > --
> > namor at inwind punto it
> ma in questo caso devo comunque usare lo strumento ricerca testo.....
> quindi la mia domanda diventa:
> i segnalibri a cosa servono se devo comunque usare la ricerca testo?
> la ricerca funziona anche sui segnalibri? (quindi se io ho il segnalibro
pippo ma nel documento non
> c'è la parola pippo, con la ricerca si posiziona cmq in pippo?)
> grazie
Ti serve per posizionarti velocemente sul punto in cui devi inserire il
testo senza dover fare ricerche, come hai già fatto (con
bookmarks.select), e poi ci inserisci il testo subito dopo:
bookmarks("nomeBook").select
wordapp.selection.insertafter "Testo da aggiungere dopo il segnalibro"
Come vedi non c'è nessuna ricerca da fare. La prima riga posiziona il
cursore (la selezione) sul segnalibro e la seconda inserisce il nuovo
testo.
(wordapp è il nome del tuo oggetto di tipo word.application)



title: utilizzo dei segnalibri con Word

text:
[CUT]
>
>
> Ti serve per posizionarti velocemente sul punto in cui devi inserire il
> testo senza dover fare ricerche, come hai già fatto (con
> bookmarks.select), e poi ci inserisci il testo subito dopo:
>
> bookmarks("nomeBook").select
> wordapp.selection.insertafter "Testo da aggiungere dopo il segnalibro"
>
> Come vedi non c'è nessuna ricerca da fare. La prima riga posiziona il
> cursore (la selezione) sul segnalibro e la seconda inserisce il nuovo
> testo.
> (wordapp è il nome del tuo oggetto di tipo word.application)
> Namor
>
>
> --
> namor at inwind punto it
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
>
ecco!!!
grazie!!!
avevo collegato il ".selection"
con la ricerca
Grazie ancora


title: ERRORE sul Default Value dei .adp

author: lucianab64 on libero

text:
Salve al NG!
Sto facendo la conversione di un applicativo da mdb Access 2000 a adp con
SQL Server.
Ho trovato un errore molto fastidioso.
I valori predefiniti sui campi delle maschere danno molti problemi.
Infatti per le stringhe viene richiesto un valore che abbia la stessa
lunghezza del campo del db.
Esempio:
La proprietą Valore Predefinito del campo Nazione era impostata a "I"
nell'mdb dove era lungo 3.
Nell'adp deve essere "I  " cioč I seguito da 2 blank.
Mostruoso.
Devo ritoccare tutto qua e lą
Luciana
Grazie e fatemi sapere.


title: ERRORE sul Default Value dei .adp

author: Antonio Biso

text:
lucianab64 on libero <
lucia...@libero.it
> wrote in message
1fPU5.7112$CH3.2...@news.infostrada.it...
> Salve al NG!
> Sto facendo la conversione di un applicativo da mdb Access 2000 a adp con
> SQL Server.
> Ho trovato un errore molto fastidioso.
> I valori predefiniti sui campi delle maschere danno molti problemi.
> Infatti per le stringhe viene richiesto un valore che abbia la stessa
> lunghezza del campo del db.
> Esempio:
> La proprietà Valore Predefinito del campo Nazione era impostata a "I"
> nell'mdb dove era lungo 3.
> Nell'adp deve essere "I  " cioè I seguito da 2 blank.
>
> Mostruoso.
> Devo ritoccare tutto qua e là
Con una funzioncina ti fai tutto in automatico.
Cicli sulle tabelle interesste, apri ogni volta il recordset, cicli su tutto
il recordset, e per ogni record cicli sui field. Quindi per ogni campo
aggiorni il valore con la trim dello stesso valore.
Sarà un po' lento però è automatico...
Antonio


title: ERRORE sul Default Value dei .adp

text:
Antonio Biso <
ch...@etruria.net
> wrote in message
962V5.3355$tS2.1...@news.infostrada.it...

Ti ringrazio per il suggerimento, ma questa funzione l'ho già fatta.
Tutto OK.
Era solo una scocciatura in piu'.
Grazie mille.
Luciana


title: ERRORE sul Default Value dei .adp

author: Guido dal Faro

text:
On Tue, 28 Nov 2000 14:25:01 GMT, "lucianab64 on libero"
<
lucia...@libero.it
> wrote:
>Salve al NG!
>Sto facendo la conversione di un applicativo da mdb Access 2000 a adp con
>SQL Server.
>Ho trovato un errore molto fastidioso.
>I valori predefiniti sui campi delle maschere danno molti problemi.
>Infatti per le stringhe viene richiesto un valore che abbia la stessa
>lunghezza del campo del db.
>Esempio:
>La proprietą Valore Predefinito del campo Nazione era impostata a "I"
>nell'mdb dove era lungo 3.
>Nell'adp deve essere "I  " cioč I seguito da 2 blank.
>
>Mostruoso.
>Devo ritoccare tutto qua e lą
>
>Luciana
>Grazie e fatemi sapere.
>
Devi cambiare il tipo dati nella tabella SQL Server:
stai usando char(3)
devi usare varchar(3)
Ciao.
---------------
Guido
light...@flashnet.it


title: ERRORE sul Default Value dei .adp

text:
Guido dal Faro <
light...@flashnet.it
> wrote in message
3a29d69...@news.flashnet.it...

No! Ho controllato. I campi sono tutti dichiarati varchar e non char.
Grazie
Luciana


title: Grazie al grande ONEDP, oggi son riuscito a fare query su DB2 mvs ...

text:
Grande OneDp, grazie.
Piano piano, lemme lemme, leggendo con attenzione quello che m' hai
scritto piu' altri cazzilli trovati in internet, dopo aver installato
il driver IBM
e dopo averlo configurato con l' aiuto dei sistemisti (altrimenti il
numero di
porta e il nome del catalogo lo sapevo col c*zo, e non solo quelli), e
dopo
innumerevoli tentativi ATQUE errori scemi e meno scemi, dopo infine
un
periodo di sconforto della serie "niente, non ci riusciro' MAI", alla
fine
ci sono riuscito e adesso faccio query che faccio PAURA ! :D
Grazie One.
Un abbraccio.


title: Esecuzione Recordset: elemento non trovato in questo insieme

author: Samantha Cicch

text:
Buongiorno NG.
In una sottomaschera ho inserito un comando, che dovrebbe copiare il
risultato di controlli calcolati in una tabella.
La SUB che uso per fare l'inserimento è questa, ma appena faccio click
sul comando mi da l'errore "elemento non trovato in questo insieme":
Private Sub SavePrzListino_Click()
On Error GoTo Err_SavePrzListino_Click
Dim dbfly As Database
Dim rstfly As Recordset
Dim qdffly As QueryDef
Set dbfly = CurrentDb
Set qdffly = dbfly.QueryDefs("q_saveprzlistino")
qdffly.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]") =
Parent![cboCliente]
Set rstfly = qdffly.OpenRecordset()
Set rst = Me.RecordsetClone
If rst.EOF And rst.BOF Then Exit Sub
If rst.RecordCount <> 0 Then
Me.Refresh
    rst.MoveFirst
   Do Until rst.EOF
     rst.Edit
     rst.Fields("dist_fissatodata") = Me!datafly
     rst.Fields("dist_tot1") = Me!fly1
     rst.Fields("dist_totlav") = Me!FLY4
     rst.Fields("dist_totcstvari") = Me!FLY5
     rst.Fields("dist_margf") = Me!FLY9
     rst.Fields("dist_scartopercf") = Me!FLY6
     rst.Fields("dist_tottrasp") = Me!FLY7
     rst.Fields("dist_przlistino") = Me!PRZFLY
     rst.Update
     rst.MoveNext
  Loop
  rst.Close
  rstfly.Close
  Set rstfly = Nothing
  Set rst = Nothing
  Me.Requery
End If
End Sub
***********************************
La query parametrica dovrebbe funzionare, perchè la uso con successo
quando carico la sottomaschera filtrata con prodotti per cliente.
Grazie x qls suggerimento,
Samantha


text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1172504897.0...@a75g2000cwd.googlegroups.com...
Buongiorno NG.
     rst.Fields("dist_fissatodata") = Me!datafly
     rst.Fields("dist_tot1") = Me!fly1
     rst.Fields("dist_totlav") = Me!FLY4
     rst.Fields("dist_totcstvari") = Me!FLY5
     rst.Fields("dist_margf") = Me!FLY9
     rst.Fields("dist_scartopercf") = Me!FLY6
     rst.Fields("dist_tottrasp") = Me!FLY7
     rst.Fields("dist_przlistino") = Me!PRZFLY
     rst.Update
     rst.MoveNext
Impara a indicare il punto dove dà il messaggio di errore.
Probabilmente uno di questi campi non esiste nella query o è scritto male
Antonio


text:
On 26 Feb, 17:14, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel messaggionews:1172504897.0...@a75g2000cwd.googlegroups.com...
> Buongiorno NG.
>
>      rst.Fields("dist_fissatodata") = Me!datafly
>      rst.Fields("dist_tot1") = Me!fly1
>      rst.Fields("dist_totlav") = Me!FLY4
>      rst.Fields("dist_totcstvari") = Me!FLY5
>      rst.Fields("dist_margf") = Me!FLY9
>      rst.Fields("dist_scartopercf") = Me!FLY6
>      rst.Fields("dist_tottrasp") = Me!FLY7
>      rst.Fields("dist_przlistino") = Me!PRZFLY
>      rst.Update
>      rst.MoveNext
>
> Impara a indicare il punto dove dà il messaggio di errore.
> Probabilmente uno di questi campi non esiste nella query o è scritto male
>
> Antonio
Buongiorno Antonio
non ho indicato il punto dove dà il messaggio di errore su vba, perchè
non so debuggare correttamente.
Ho guardato i vecchi messaggi, visualizzo la finestra immediata ma non
capisco come si deve usare. Nel codice ho provato a scrivere
debug.print... ma ho ottenuto l'impallamento dell'applicazione (mi
diceva che non va bene formattata x la mia stampante,e chiedeva se
impostarla per PDF...)
Insomma come faccio x vedere il debug di ogni riga clicckando su un
comando che lancia una sub?
Grazzzzzzzzzzzzzie
Samantha
p.s.: l'errore me lo da proprio su FLY1, e FLY1 in origine controllo
ha:
=Iif(IsError(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]=
" & [DISTINTAID]);0));0;
(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]= " &
[DISTINTAID]);0)))
è questo il problema?
Grazie bis


text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1172507041....@v33g2000cwv.googlegroups.com...
On 26 Feb, 17:14, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel
messaggionews:1172504897.0...@a75g2000cwd.googlegroups.com...
> Buongiorno NG.
>
>      rst.Fields("dist_fissatodata") = Me!datafly
>      rst.Fields("dist_tot1") = Me!fly1
>      rst.Fields("dist_totlav") = Me!FLY4
>      rst.Fields("dist_totcstvari") = Me!FLY5
>      rst.Fields("dist_margf") = Me!FLY9
>      rst.Fields("dist_scartopercf") = Me!FLY6
>      rst.Fields("dist_tottrasp") = Me!FLY7
>      rst.Fields("dist_przlistino") = Me!PRZFLY
>      rst.Update
>      rst.MoveNext
>
> Impara a indicare il punto dove dà il messaggio di errore.
> Probabilmente uno di questi campi non esiste nella query o è scritto male
>
> Antonio
Buongiorno Antonio
non ho indicato il punto dove dà il messaggio di errore su vba, perchè
non so debuggare correttamente.
Quando si pianta e dà il messaggio, dovrebbe anche dare i due pulsanti
Debug e termina
Se vai in debug ti si pianta sulla riga che dà il problema
Antonio


text:
On 26 Feb, 18:01, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel messaggionews:1172507041....@v33g2000cwv.googlegroups.com...

Ciao Antonio,
solitamente quando si piantava mi dava debug  e termina, e infatti
nella finestra visual basic vedevo il cursore sulla riga incriminata.
In questo caso invece, ora mi da una finestrella msgbox che dice
"necessario oggetto".
Il codice l'ho cambiato così (commentando tutti i fields meno uno) ma
dice necessario oggetto:
Dim dbfly As Database
Dim rst As Recordset
Dim qdffly As QueryDef
Set dbfly = CurrentDb
Set qdffly = dbfly.QueryDefs("q_saveprzlistino")
qdffly.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]") =
Parent![cboCliente]
Set rst = qdffly.OpenRecordset()
'Set rst = Me.RecordsetClone
If rst.EOF And rst.BOF Then Exit Sub
If rst.RecordCount <> 0 Then
Me.Refresh
rst.MoveFirst
   Do Until rst.EOF
     rst.Edit
     Debug.Print rst.Fields("dist_fissatodata") = Me!datafly
    rst.Update
     rst.MoveNext
  Loop
  rst.Close
  rstfly.Close
  Set rstfly = Nothing
  Set rst = Nothing
  Me.Requery
End If
Non riesco a capire dove si ferma...
Grazie
Samantha


text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1172568827.4...@k78g2000cwa.googlegroups.com...



Lezione di debugging.
Se la funzione è lanciabile standalone, sarebbe molto più facile, ma tu hai
bisogno di riferimenti alla maschera aperta.
Allora, vai sul codice e mettiti sulla prima riga non di dichiarazione
variabili del codice da debuggare.
A questo punto premi F9.
Te la evidenzia in rosso. Serve per far bloccare l'elaborazione lì.
A questo punto, senza uscire dalla tua applicazione, lancia la maschera e
esegui le solite cose.
Quando viene lanciato il codice si blocca dove hai messo il blocco.
A questo punto con F8 esegui un "trace" passo passo del codice e puoi vedere
dove ti dà errore.
Tra l'altro in questa fase puoi verificare il contenuto delle variabili
mettendoci sopra il mouse o nella finestra immediata scrivendo ?nome_var
Antonio


text:
On 27 Feb, 11:19, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel messaggionews:1172568827.4...@k78g2000cwa.googlegroups.com...

Zei un mito, procedo


text:
> > Lezione di debugging.
> > Se la funzione è lanciabile standalone, sarebbe molto più facile, ma tu hai
> > bisogno di riferimenti alla maschera aperta.
> > Allora, vai sul codice e mettiti sulla prima riga non di dichiarazione
> > variabili del codice da debuggare.
> > A questo punto premi F9.
> > Te la evidenzia in rosso. Serve per far bloccare l'elaborazione lì.
> > A questo punto, senza uscire dalla tua applicazione, lancia la maschera e
> > esegui le solite cose.
> > Quando viene lanciato il codice si blocca dove hai messo il blocco.
> > A questo punto con F8 esegui un "trace" passo passo del codice e puoi vedere
> > dove ti dà errore.
> > Tra l'altro in questa fase puoi verificare il contenuto delle variabili
> > mettendoci sopra il mouse o nella finestra immediata scrivendo ?nome_var
>
> > Antonio
La query filtrata contiene 3 record.
Per 3 volte fa il loop, e per tre volte nella finestra immediata mi da
falso in questa riga:
Debug.Print rst.Fields("dist_fissatodata") = Me!datafly
Ieri ho controllato e ricontrollato la query, ho stampato le relazioni
e i nomi campi sono giusti. Per qual motivo mi da falso?
Forse è locked non editabile?
Ma ho gia usato il codice in questo modo, con CBODATA e funziona alla
grande...
Non so che pesci pigliare...


text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1172572663.5...@t69g2000cwt.googlegroups.com...
La query filtrata contiene 3 record.
Per 3 volte fa il loop, e per tre volte nella finestra immediata mi da
falso in questa riga:
Debug.Print rst.Fields("dist_fissatodata") = Me!datafly
Ieri ho controllato e ricontrollato la query, ho stampato le relazioni
e i nomi campi sono giusti. Per qual motivo mi da falso?
Samà.... SIGH
GROAN
Tu c'hai veramente bisogno di una cena con me!!!
Ma dà falso perchè hai messo una espressione logica!!!!
hai detto di stamparti il risultato dell'espressione A = B
Se A = B dà vero, evidentemente non è = e quindi da falso!!!
Primo, non ha senso quello che hai scritto.
Secondo, non ti serve adesso la debug.print, perchè ti ho detto che per
vedere il contenuto delle variabili, lo puoi fare in qualunque momento con
la finestra immediata
Allora, andiamo a vedere se rst è usato bene?
Antonio


text:
On 27 Feb, 11:45, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel messaggionews:1172572663.5...@t69g2000cwt.googlegroups.com...

mmm ma io vorrei assegnare il valore di me!datafly a dist_fissatodata.
se  con la casella combinata, dove scelgo la data e tramite recordset
copio il valore della data scelta nella casellacombinata in tutti i
record filtrati, perchè altrettanto ora non posso prendere i valori
dei campi calcolati  e cacciarli dentro alla tabella dist?
cioè
rst.fields("cstmp_data") = Me!CBODATA  -> funziona
mentre
rst.fields("dist_fissatodata") = ME!DATAFLY -> NON VA
perchè?
Allora, è il caso che andiamo a vedere se rst è usato bene. Perciò mi
riprendo in mano cosa sono i recordset... ma è sempre obbligatorio
lavorare con il recordsetclone? è questa l'unica differenza tra codice
CBODATA che funziona e l'altro FLY che non va
Grazie,
Samantha


text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1172574201.8...@h3g2000cwc.googlegroups.com...
On 27 Feb, 11:45, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel
messaggionews:1172572663.5...@t69g2000cwt.googlegroups.com...
>
> La query filtrata contiene 3 record.
> Per 3 volte fa il loop, e per tre volte nella finestra immediata mi da
> falso in questa riga:
> Debug.Print rst.Fields("dist_fissatodata") = Me!datafly
>
> Ieri ho controllato e ricontrollato la query, ho stampato le relazioni
> e i nomi campi sono giusti. Per qual motivo mi da falso?
>
> Samà.... SIGH
> GROAN
> Tu c'hai veramente bisogno di una cena con me!!!
>
> Ma dà falso perchè hai messo una espressione logica!!!!
> hai detto di stamparti il risultato dell'espressione A = B
> Se A = B dà vero, evidentemente non è = e quindi da falso!!!
>
> Primo, non ha senso quello che hai scritto.
> Secondo, non ti serve adesso la debug.print, perchè ti ho detto che per
> vedere il contenuto delle variabili, lo puoi fare in qualunque momento con
> la finestra immediata
> Allora, andiamo a vedere se rst è usato bene?
>
> Antonio
mmm ma io vorrei assegnare il valore di me!datafly a dist_fissatodata.
->E va bene
se  con la casella combinata, dove scelgo la data e tramite recordset
copio il valore della data scelta nella casellacombinata in tutti i
record filtrati, perchè altrettanto ora non posso prendere i valori
dei campi calcolati  e cacciarli dentro alla tabella dist?
cioè
rst.fields("cstmp_data") = Me!CBODATA  -> funziona
mentre
rst.fields("dist_fissatodata") = ME!DATAFLY -> NON VA
perchè?
E così a naso, evidentemente questo nome di campo dist_fissatodata
all'interno del recordset usato non esiste!!!
Eseguendo il codice, ti si pianta su quell'assegnamento?
Con oggetto non presente nell'insieme?
Se è così, l'oggetto field che referenzi all'interno del recordset, non
esiste perchè magari scritto male o te lo sei dimenticato nella query
Antonio


text:
On 27 Feb, 12:12, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> mmm ma io vorrei assegnare il valore di me!datafly a dist_fissatodata.
>
> ->E va bene
>
> se  con la casella combinata, dove scelgo la data e tramite recordset
> copio il valore della data scelta nella casellacombinata in tutti i
> record filtrati, perchè altrettanto ora non posso prendere i valori
> dei campi calcolati  e cacciarli dentro alla tabella dist?
>
> cioè
> rst.fields("cstmp_data") = Me!CBODATA  -> funziona
> mentre
> rst.fields("dist_fissatodata") = ME!DATAFLY -> NON VA
>
> perchè?
>
> E così a naso, evidentemente questo nome di campo dist_fissatodata
> all'interno del recordset usato non esiste!!!
>
> Eseguendo il codice, ti si pianta su quell'assegnamento?
> Con oggetto non presente nell'insieme?
> Se è così, l'oggetto field che referenzi all'interno del recordset, non
> esiste perchè magari scritto male o te lo sei dimenticato nella query
>
> Antonio
La query q_saveprzlistino contiene dist_fissatodata, ho controllato +
volte e poi lo posto qui sotto.
L'unica cosa x cui mi viene il dubbio possa dare problemi, è che il
campo ME!Datafly ha come origine record cstmp_data.
la query:
SELECT TBL_DIST.dist_id, TBL_CLIENTE.cli_id, TBL_DIST.cli_id,
TBL_DIST.dist_tot1, TBL_DIST.dist_fissatodata, TBL_DIST.dist_vendita,
TBL_DIST.dist_totlav, TBL_DIST.dist_totcstvari, TBL_DIST.dist_margf,
TBL_DIST.dist_scartopercf, TBL_DIST.dist_tottrasp,
TBL_DIST.dist_przlistino
FROM TBL_CLIENTE INNER JOIN TBL_DIST ON TBL_CLIENTE.cli_id =
TBL_DIST.cli_id
WHERE (((TBL_DIST.cli_id)=[forms]![Msc_generalistinovendita]!
[cbocliente]));


text:
On 27 Feb, 14:05, "Samantha Cicch" <
samantha.ci...@gmail.com
> wrote:
Ola,
non so cosa sia successo, fatto sta che ho cambiato queste righe del
codice
Set rst = qdffly.OpenRecordset()
'Set rst = Me.RecordsetClone
'If rst.EOF And rst.BOF Then Exit Sub
Non lavoro sul clone e ho commentato queste due, e ora va. Mi cicla x
i tre prodotti filtrati del cliente MTS è una maschera continua.
Va ma non come dovrebbe. purtroppo
Se il prodotto BLU costa 1,4589
il prodotto ROSSO costa 2,4589
e quello VERDE costa 0,4589
lui imposta il costo di BLU, il primo che trova nel campo calcolato, a
tutti i prodotti.
Perciò  BLU ROSSO VERDE costano tutti 1,4589 ????????
Come origine campo del costo ("dist_tot1") -> ME!FLY1 ho l'espressione
=IIf(IsError(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]=
" & [DISTINTAID]);0));0;
(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]= " &
[DISTINTAID]);0)))
Come posso fare per farsì che lui prenda il valore corretto?
Grazie,
Samantha


text:

Per me Me!Fly1 non è un valore statico ma va ricalcolato ogni volta...


text:
Ciao Antonio,
so che mi odierai, ti chiarisco meglio il background della situazione
Maschera con casella combinata cliente. Sottomaschera continua che
presenta i prodotti filtrati in base al cliente.
I valori della sottomaschera sono
FLY1=  costo materie prime -
>=IIf(IsError(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]=
" & [DISTINTAID]);0));0;
(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]= " &
[DISTINTAID]);0)))
FLY4= costolavorazioni ->
=IIf(IsError(nz(DSum("[cstlavo]";"[q_smdlavo]";"[dlavo_distid]= " &
[DISTINTAID]);0));0;
(nz(DSum("[cstlavo]";"[q_smdlavo]";"[dlavo_distid]= " & [DISTINTAID]);
0)))
Il DSUM funziona solo se in origine controllo dei campi calcolati. Se
lo facevo tramite VBA, mi trovava la somma del primo record... e gli
altri erano uguali.
Ora tramite pulsante alla fine della maschera, vorrei prendere i
valori e salvarli all'interno di una tabella. Solo che la DSUM viene
fatta per il primo record, e per gli altri non viene ricalcolata.
Forse dentro il recordset, prima del .movenext devo fare Me!
fly1.recalc
Ora provo
Samantha


text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1172581548....@q2g2000cwa.googlegroups.com...
On 27 Feb, 12:12, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> mmm ma io vorrei assegnare il valore di me!datafly a dist_fissatodata.
>
> ->E va bene
>
> se  con la casella combinata, dove scelgo la data e tramite recordset
> copio il valore della data scelta nella casellacombinata in tutti i
> record filtrati, perchč altrettanto ora non posso prendere i valori
> dei campi calcolati  e cacciarli dentro alla tabella dist?
>
> cioč
> rst.fields("cstmp_data") = Me!CBODATA  -> funziona
> mentre
> rst.fields("dist_fissatodata") = ME!DATAFLY -> NON VA
>
> perchč?
>
> E cosě a naso, evidentemente questo nome di campo dist_fissatodata
> all'interno del recordset usato non esiste!!!
>
> Eseguendo il codice, ti si pianta su quell'assegnamento?
> Con oggetto non presente nell'insieme?
> Se č cosě, l'oggetto field che referenzi all'interno del recordset, non
> esiste perchč magari scritto male o te lo sei dimenticato nella query
>
> Antonio
La query q_saveprzlistino contiene dist_fissatodata, ho controllato +
volte e poi lo posto qui sotto.
L'unica cosa x cui mi viene il dubbio possa dare problemi, č che il
campo ME!Datafly ha come origine record cstmp_data.
la query:
SELECT TBL_DIST.dist_id, TBL_CLIENTE.cli_id, TBL_DIST.cli_id,
TBL_DIST.dist_tot1, TBL_DIST.dist_fissatodata, TBL_DIST.dist_vendita,
TBL_DIST.dist_totlav, TBL_DIST.dist_totcstvari, TBL_DIST.dist_margf,
TBL_DIST.dist_scartopercf, TBL_DIST.dist_tottrasp,
TBL_DIST.dist_przlistino
FROM TBL_CLIENTE INNER JOIN TBL_DIST ON TBL_CLIENTE.cli_id =
TBL_DIST.cli_id
WHERE (((TBL_DIST.cli_id)=[forms]![Msc_generalistinovendita]!
[cbocliente]));
Continui a non dirmi dove ti si pianta e con che messaggio
Antonio


text:
On 27 Feb, 15:46, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel messaggionews:1172581548....@q2g2000cwa.googlegroups.com...
> On 27 Feb, 12:12, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
>
>
>
> > mmm ma io vorrei assegnare il valore di me!datafly a dist_fissatodata.
>
> > ->E va bene
>
> > se  con la casella combinata, dove scelgo la data e tramite recordset
> > copio il valore della data scelta nella casellacombinata in tutti i
> > record filtrati, perchè altrettanto ora non posso prendere i valori
> > dei campi calcolati  e cacciarli dentro alla tabella dist?
>
> > cioè
> > rst.fields("cstmp_data") = Me!CBODATA  -> funziona
> > mentre
> > rst.fields("dist_fissatodata") = ME!DATAFLY -> NON VA
>
> > perchè?
>
> > E così a naso, evidentemente questo nome di campo dist_fissatodata
> > all'interno del recordset usato non esiste!!!
>
> > Eseguendo il codice, ti si pianta su quell'assegnamento?
> > Con oggetto non presente nell'insieme?
> > Se è così, l'oggetto field che referenzi all'interno del recordset, non
> > esiste perchè magari scritto male o te lo sei dimenticato nella query
>
> > Antonio
>
> La query q_saveprzlistino contiene dist_fissatodata, ho controllato +
> volte e poi lo posto qui sotto.
>
> L'unica cosa x cui mi viene il dubbio possa dare problemi, è che il
> campo ME!Datafly ha come origine record cstmp_data.
>
> la query:
> SELECT TBL_DIST.dist_id, TBL_CLIENTE.cli_id, TBL_DIST.cli_id,
> TBL_DIST.dist_tot1, TBL_DIST.dist_fissatodata, TBL_DIST.dist_vendita,
> TBL_DIST.dist_totlav, TBL_DIST.dist_totcstvari, TBL_DIST.dist_margf,
> TBL_DIST.dist_scartopercf, TBL_DIST.dist_tottrasp,
> TBL_DIST.dist_przlistino
> FROM TBL_CLIENTE INNER JOIN TBL_DIST ON TBL_CLIENTE.cli_id =
> TBL_DIST.cli_id
> WHERE (((TBL_DIST.cli_id)=[forms]![Msc_generalistinovendita]!
> [cbocliente]));
>
> Continui a non dirmi dove ti si pianta e con che messaggio
>
> Antonio
Ciao Antonio,
ora non si pianta + nel messaggio delle 14:58 ti ho scritto che
modificando il codice ora mi trova il campo
PROBLEMA ATTUALE:
Maschera continua con 10 record
Il valore di ME!FLY1 che è una DSUM        da VBA lo vedo uguale per
tutti e 10 i record.
Non dovrebbe essere così :(
Lui accoda in tabella rst.fields("dist_tot1") = ME!FLY1  per tutti i
10 record il valore del primo record che legge, nel campo calcolato ME!
FLY1
ok è un casino, nel mio msg delle 15:29 cercavo di spiegarti il
background dove dovrebbe lavorare il comando.


text:

Antonio, meglio che apro un altro tread... cmq, il recordset ora gira
e non mi da + errori. Questo è il codice utilizzato
Private Sub SavePrzListino_Click()
On Error GoTo Err_SavePrzListino_Click
Dim dbfly As Database
Dim rstfly As Recordset
Dim qdffly As QueryDef
Set dbfly = CurrentDb
Set qdffly = dbfly.QueryDefs("q_saveprzlistino")
qdffly.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]") =
[Parent]![cboCliente]
Set rst = qdffly.OpenRecordset()
'Set rst = Me.RecordsetClone
If rst.RecordCount = 0 Then
  MsgBox "Non ci sono record"
  Exit Sub
  Else
    Me.Refresh
    rst.MoveLast
    rst.MoveFirst
    Do Until rst.EOF
         rst.Edit
     rst.Fields("dist_fissatodata") = Me!datafly
     rst.Fields("dist_tot1").Value = Me!fly1
     rst.Update
     rst.MoveNext
  Loop
  rst.Close
  Set rst = Nothing
  Me.Requery
End If
Exit_SavePrzListino_Click:
    Exit Sub
Ciao e buon lavoro
Samantha


text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1172590795.8...@p10g2000cwp.googlegroups.com...
On 27 Feb, 15:53, "Samantha Cicch" <
samantha.ci...@gmail.com
> wrote:
> On 27 Feb, 15:46, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
>
> ok è un casino, nel mio msg delle 15:29 cercavo di spiegarti il
> background dove dovrebbe lavorare il comando.
Antonio, meglio che apro un altro tread... cmq, il recordset ora gira
e non mi da + errori. Questo è il codice utilizzato
Cmq, non è un bel metodo quello di lavorare cambiando metodologia a casaccio
senza capire dove era il problema e confidando nella buona sorte
Antonio


text:
On 27 Feb, 17:22, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel messaggionews:1172590795.8...@p10g2000cwp.googlegroups.com...

Ciao Antonio,
premettendo che ti sono grata dei suggerimenti, prima non andava il
recordset. Non ho ancora  capito cosa mi dava problemi, ma a forza di
lavorarci ora funziona.
A questo punto, è sorto un ulteriore problema, con il quale mi ero
scontrata qualche thread fa, per la funzione DSUM, che in VBA x le
maschere a visualizzazione continua  non funziona.
Tutto qui,
Un sentito ringraziamento,
Samantha


text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1172594983.9...@j27g2000cwj.googlegroups.com...
> Cmq, non è un bel metodo quello di lavorare cambiando metodologia a
casaccio
> senza capire dove era il problema e confidando nella buona sorte
premettendo che ti sono grata dei suggerimenti, prima non andava il
recordset. Non ho ancora  capito cosa mi dava problemi, ma a forza di
lavorarci ora funziona.
Quoto.
Ho detto la stessa cosa
Antonio


text:
On 27 Feb, 18:03, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel messaggionews:1172594983.9...@j27g2000cwj.googlegroups.com...
>
>
>
> > Cmq, non è un bel metodo quello di lavorare cambiando metodologia a
> casaccio
> > senza capire dove era il problema e confidando nella buona sorte
>
> premettendo che ti sono grata dei suggerimenti, prima non andava il
> recordset. Non ho ancora  capito cosa mi dava problemi, ma a forza di
> lavorarci ora funziona.
>
> Quoto.
> Ho detto la stessa cosa
>
> Antonio
Ok, non è la mia giornata.
Buona serata Antonio
Samantha


text:
On 27 Feb, 11:19, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel messaggionews:1172568827.4...@k78g2000cwa.googlegroups.com...

DANNATI RECORDSET
Private Sub SavePrzListino_Click()
On Error GoTo Err_SavePrzListino_Click
Dim rst As Recordset, intI As Integer
Dim fld As Field
Set rst = Me.RecordsetClone
If rst.RecordCount = 0 Then
     MsgBox "Non ci sono Record"
     Exit Sub
Else
    MsgBox "I record sono " & rst.RecordCount
    rst.MoveLast
    rst.MoveFirst
    Do Until rst.EOF
            Me.Bookmark = rst.Bookmark
            Debug.Print rst.Bookmark
            For Each fld In rst.Fields
            Debug.Print fld.Name
            Debug.Print fld.Value
            Next
    Debug.Print Me!fly1
    Debug.Print Me!FLY7
    rst.MoveNext
    Loop
  rst.Close
  Set rst = Nothing
End If
Così ho scoperto come farlo muovere... certo che è peggio di un mulo


text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1172660439.6...@z35g2000cwz.googlegroups.com...
DANNATI RECORDSET
Disse il vecchietto guidando una Formula 1
Antonio


text:
On 28 Feb, 12:03, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel messaggionews:1172660439.6...@z35g2000cwz.googlegroups.com...
>
> DANNATI RECORDSET
>
> Disse il vecchietto guidando una Formula 1
>
> Antonio
Sotto il VBA va
I due recordset funzionano,  hanno query che si basano sulla stessa
Tabella TBL_DIST, perciò hanno lo stesso campo contatore. Quindi
filtrati per cliente mi danno lo stesso nr. di record, in questo caso
3
CURIOSITA': i due recordset hanno lo stesso recordcount, ma quando
stampo questo in msgbox, msc dice di avere 3 recordcount, mentre
rstfly uno solo??????. Tu sapresti il perchè?
 MsgBox "I record sono " & msc.RecordCount & " e " &
rstfly.RecordCount
Private Sub SavePrzListino_Click()
On Error GoTo Err_SavePrzListino_Click
Dim msc As Recordset, intI As Integer
Dim fld As Field
Dim dbfly As Database
Dim rstfly As DAO.Recordset
Dim qdffly As QueryDef
Set dbfly = CurrentDb
Set qdffly = dbfly.QueryDefs("q_saveprzlistino")
qdffly.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]") =
[Parent]![cboCliente]
CurrentDb.QueryDefs.Refresh
Me.Refresh
Set rstfly = qdffly.OpenRecordset()
Set msc = Me.RecordsetClone
If msc.RecordCount = 0 And rstfly.RecordCount = 0 Then
    MsgBox "Non ci sono prodotti per questo cliente"
    Exit Sub
 Else
    MsgBox "I record sono " & msc.RecordCount & " e " &
rstfly.RecordCount
    rstfly.MoveLast
    rstfly.MoveFirst
    msc.MoveLast
    msc.MoveFirst
    Do Until msc.EOF And rstfly.EOF
        rstfly.Edit
        Me.Bookmark = msc.Bookmark
        Debug.Print Me!fly1
        rstfly.Fields("dist_tot1").Value = Me!fly1
        Debug.Print Me!FLY7
        rstfly.Fields("dist_tottrasp") = Me!FLY7
        rstfly.Fields("dist_fissatodata") = Me!datafly
        rstfly.Update
        rstfly.MoveNext
        msc.MoveNext
    Loop
    msc.Close
    Set msc = Nothing
    rstfly.Close
    Set rstfly = Nothing
End If


author: Alessandro Cara

text:
Samantha Cicch wrote:
[cut]
>
> DANNATI RECORDSET
Perche'? Prova ad immaginare un mondo senza maschi
>
> Private Sub SavePrzListino_Click()
> On Error GoTo Err_SavePrzListino_Click
>
> Dim rst As Recordset, intI As Integer
> Dim fld As Field
>
> Set rst = Me.RecordsetClone
>
> If rst.RecordCount = 0 Then
if rst.bof : forse e' meglio
>      MsgBox "Non ci sono Record"
>      Exit Sub
> Else
>     MsgBox "I record sono " & rst.RecordCount
?????  prima dici quanti sono e poi ti assicuri che il valore sia esatto?
>     rst.MoveLast
>     rst.MoveFirst
>     Do Until rst.EOF
>
>             Me.Bookmark = rst.Bookmark
>             Debug.Print rst.Bookmark
>
>             For Each fld In rst.Fields
>
>             Debug.Print fld.Name
>             Debug.Print fld.Value
>             Next
>     Debug.Print Me!fly1
>     Debug.Print Me!FLY7
>     rst.MoveNext
>     Loop
>   rst.Close
>   Set rst = Nothing
> End If
>
> Cosě ho scoperto come farlo muovere... certo che č peggio di un mulo
>
non ho compreso la storia del bookmark ed il fatto di volare.
prova a non metterci la movenext e diventa Varenne.
E' solo per partecipare ;<)
--
ac
y-1=x


text:
On 28 Feb, 13:21, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:
[cut]
> > DANNATI RECORDSET
>
> Perche'? Prova ad immaginare un mondo senza maschi
Come la mortadella senza i pistacchi...
> > Private Sub SavePrzListino_Click()
> > On Error GoTo Err_SavePrzListino_Click
>
> > Dim rst As Recordset, intI As Integer
> > Dim fld As Field
>
> > Set rst = Me.RecordsetClone
>
> > If rst.RecordCount = 0 Then
>
> if rst.bof : forse e' meglio
>
> >      MsgBox "Non ci sono Record"
> >      Exit Sub
> > Else
> >     MsgBox "I record sono " & rst.RecordCount
>
> ?????  prima dici quanti sono e poi ti assicuri che il valore sia esatto?
No sto testando le funzionalità...
Se hanno tutti e due lo stesso numero di record, perchè msc è a 3 e
rstfly è a 1?
> >     rst.MoveLast
> >     rst.MoveFirst
> >     Do Until rst.EOF
>
> >             Me.Bookmark = rst.Bookmark
> >             Debug.Print rst.Bookmark
>
> >             For Each fld In rst.Fields
>
> >             Debug.Print fld.Name
> >             Debug.Print fld.Value
> >             Next
> >     Debug.Print Me!fly1
> >     Debug.Print Me!FLY7
> >     rst.MoveNext
> >     Loop
> >   rst.Close
> >   Set rst = Nothing
> > End If
>
> > Così ho scoperto come farlo muovere... certo che è peggio di un mulo
>
> non ho compreso la storia del bookmark ed il fatto di volare.
>
> prova a non metterci la movenext e diventa Varenne.
>
> E' solo per partecipare ;<)
>
> --
> ac
> y-1=x
Ciao Alessandro
la storia del bookmark mi ha fatto impazzire. Senza bookmark e senza
movenext, il recordset legge i valori del controllo calcolato ME!FLY1
del primo record.
Mi spiego
FLY1 origine controllo
=IIf(IsError(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]=
" & [DISTINTAID]);0));0;
(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]= " &
[DISTINTAID]);0))) -> è una DSUM
Anche fly7 ha come origine controllo una DSUM,
Per ogni record il FLY1(DSUM) cambia di valore
Senza bookmark e movenext, lui legge FLY1 del primo record, e assegna
lo stesso valore a tutti gli altri
es1. con bookmark e movenext
dist_id  codice    dist_trasp   fly7     fly1
10        blu                  1      1         1,14
25         rosso              2      2         0,50
26         giallo               3     3          0,30
es2. senza bookmark e movenext
dist_id  codice    dist_trasp   fly7     fly1
10        blu                 1      1         1,14
25         rosso             2     1         1,14
26         giallo             3     1         1,14
Tutto ciò mi serviva, perchè devo ricalcolare i prezzi di vendita dei
prodotti, al variare del costo delle materie prime, delle
lavorazioni... Ogni prodotto è formato da + materie prime, e ho creato
un listino costi delle materie prime, che può essere giornaliero.
Ora, cambiando la data del listino costi, ricalcolo anche il prezzo di
vendita.
ah.... magari riuscissi a spiegarmi il perchè del recordcount, x msc a
3 e rstfly a 1
;) Ciao e buon lavoro
Samantha


text:
Samantha Cicch wrote:
> On 28 Feb, 13:21, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
> wrote:
> [cut]
>>> DANNATI RECORDSET
>> Perche'? Prova ad immaginare un mondo senza maschi
>
> Come la mortadella senza i pistacchi...
o gli spaghetti aglio&oglio&peperoncino senza il peperoncino
o sempre i suddetti cacio&pepe o senza il cacio o senza il pepe
>
>>> Private Sub SavePrzListino_Click()
>>> On Error GoTo Err_SavePrzListino_Click
>>> Dim rst As Recordset, intI As Integer
>>> Dim fld As Field
>>> Set rst = Me.RecordsetClone
>>> If rst.RecordCount = 0 Then
>> if rst.bof : forse e' meglio
>>
>>>      MsgBox "Non ci sono Record"
>>>      Exit Sub
>>> Else
>>>     MsgBox "I record sono " & rst.RecordCount
>> ?????  prima dici quanti sono e poi ti assicuri che il valore sia esatto?
>
> No sto testando le funzionalità...
>
> Se hanno tutti e due lo stesso numero di record, perchè msc è a 3 e
> rstfly è a 1?
cos'e' msc? cos'e' rstfly?

che "legga" il primo record e' chiaro, anzi dovrebbe leggere, non il
primo, ma il valore del record che ha il focus. Senza movenext va
direttamente in loop, mi sembra strano che in questo caso possa rispondere
> Mi spiego
> FLY1 origine controllo
> =IIf(IsError(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]=
> " & [DISTINTAID]);0));0;
> (nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]= " &
> [DISTINTAID]);0))) -> è una DSUM
>
> Anche fly7 ha come origine controllo una DSUM,
>
> Per ogni record il FLY1(DSUM) cambia di valore
>
> Senza bookmark e movenext, lui legge FLY1 del primo record, e assegna
> lo stesso valore a tutti gli altri
Questo era chiaro. Personalmente non avrei usato il recordsetclone ma il
recordset (ha un'altra controindicazione che ritengo superabile)
>
> es1. con bookmark e movenext
> dist_id  codice    dist_trasp   fly7     fly1
> 10        blu                  1      1         1,14
> 25         rosso              2      2         0,50
> 26         giallo               3     3          0,30
>
> es2. senza bookmark e movenext
> dist_id  codice    dist_trasp   fly7     fly1
> 10        blu                 1      1         1,14
> 25         rosso             2     1         1,14
> 26         giallo             3     1         1,14
>
>
> Tutto ciò mi serviva, perchè devo ricalcolare i prezzi di vendita dei
> prodotti, al variare del costo delle materie prime, delle
> lavorazioni... Ogni prodotto è formato da + materie prime, e ho creato
> un listino costi delle materie prime, che può essere giornaliero.
> Ora, cambiando la data del listino costi, ricalcolo anche il prezzo di
> vendita.
Piu' o meno avevo letto i tuoi post sull'argomento.
>
> ah.... magari riuscissi a spiegarmi il perchè del recordcount, x msc a
> 3 e rstfly a 1
Non ho compreso a quali controlli ti riferisci (msc/rstfly).
se fai cosi'
  ? r.recordcount
  r.movelast
  ? r.recordcount
i due valori "printati" possono essere diversi
>
> ;) Ciao e buon lavoro
> Samantha
>
--
ac
y-1=x