title: Aprire file con excel via codice

author: MA

text:
"Nao+" <
XXXna...@inwind.it
> ha scritto nel messaggio
news:212Z159Z223Z113Y...@usenet.libero.it...
> Utilizzando questa stringa ottengo errori dovuti alla presenza di spazi
nel
> path del file .xls, come si puo fare?
>
> Shell "C:\Program Files\Microsoft Office\Office\excel.exe "& "_
> \\server\file shared\prova 1\pippo.xls", vbMaximizedFocus
>
>
> Grazie Nadir
Usa il collegamento ipertestuale al file, gestirą lui con quale programma
aprirlo
MAssimiliano


title: Aprire file con excel via codice

author: Nao+

text:

Ma come faccio a farlo sul click del bottone?
graize Nadir



title: Aprire file con excel via codice

text:
> > > Utilizzando questa stringa ottengo errori dovuti alla presenza di
spazi
> > nel
> > > path del file .xls, come si puo fare?
> > >
> > > Shell "C:\Program Files\Microsoft Office\Office\excel.exe "& "_
> > > \\server\file shared\prova 1\pippo.xls", vbMaximizedFocus
> > >
> > >
> > > Grazie Nadir
> >
> > Usa il collegamento ipertestuale al file, gestirą lui con quale
programma
> > aprirlo
> > MAssimiliano
> >
>
>
> Ma come faccio a farlo sul click del bottone?
>
> graize Nadir
Guardati Hyperlinkaddress
con Hyperlinksubaddress puoi scegliere anche il foglio
MAssimiliano


title: Aprire file con excel via codice

text:
Il 09 Set 2003, 16:01, "MA" <
keiko...@libero.it
> ha scritto:
> > > > Utilizzando questa stringa ottengo errori dovuti alla presenza di
> spazi
> > > nel
> > > > path del file .xls, come si puo fare?
> > > >
> > > > Shell "C:\Program Files\Microsoft Office\Office\excel.exe "& "_
> > > > \\server\file shared\prova 1\pippo.xls", vbMaximizedFocus
> > > >
> > > >
> > > > Grazie Nadir
> > >
> > > Usa il collegamento ipertestuale al file, gestirà lui con quale
> programma
> > > aprirlo
> > > MAssimiliano
> > >
> >
> >
> > Ma come faccio a farlo sul click del bottone?
> >
> > graize Nadir
>
> Guardati Hyperlinkaddress
> con Hyperlinksubaddress puoi scegliere anche il foglio
> MAssimiliano
>
Ho guardato, ma mi spiega solo come settare il collegamento via codice, ma
non come eseguirlo via codice.
Tipo clicco bottone e si collega a
www.microsoft.it



title: Aprire file con excel via codice

text:
> > > > > Utilizzando questa stringa ottengo errori dovuti alla presenza di
> > spazi
> > > > nel
> > > > > path del file .xls, come si puo fare?
> > > > >
> > > > > Shell "C:\Program Files\Microsoft Office\Office\excel.exe "& "_
> > > > > \\server\file shared\prova 1\pippo.xls", vbMaximizedFocus
> > > > >
> > > > >
> > > > > Grazie Nadir
> > > >
> > > > Usa il collegamento ipertestuale al file, gestirą lui con quale
> > programma
> > > > aprirlo
> > > > MAssimiliano
> > > >
> > >
> > >
> > > Ma come faccio a farlo sul click del bottone?
> > >
> > > graize Nadir
> >
> > Guardati Hyperlinkaddress
> > con Hyperlinksubaddress puoi scegliere anche il foglio
> > MAssimiliano
> >
>
> Ho guardato, ma mi spiega solo come settare il collegamento via codice, ma
> non come eseguirlo via codice.
>
> Tipo clicco bottone e si collega a
www.microsoft.it
sul tuo pulsante o sul tuo controllo
If Dir(tuo_percorso.xls)<> "" Then
    Me.TuoPulsanteOTuoControllo.HyperlinkAddress = tuopercorso.xls
End If
ciao MAssimiliano


title: Permettere modifiche solo SE...

text:
Vorrei creare un controllo di questo tipo.
L'utente deve poter aprire la maschera [AGGIORNAMENTO VERBALE] in
funzione modifica, SOLO se il campo [Nr P_Verbale] NON è compilato.
Quindi se è stato già assegnato un nr. di Verbale non si posso fare
modifiche ma solo visualizzare.
Attualmente apro una maschera che pesca i dati da una query; devo
metterci un Filtro sull'apertura?
In che maniera?
Grazie a tutti.


title: Permettere modifiche solo SE...

author: CIDI

text:
"skate2k5" <
skat...@fastwebnet.it
> ha scritto nel messaggio
news:8e3ef1ac-34d7-4d8c...@e5g2000yqn.googlegroups.com...



si, qualcosa di simile:
if isnull (me.Nr P_Verbale) then
me.AllowEdits = false
else
me.AllowEdits = true
end if
sarebbe meglio eliminare gli spazi nei nomi.
prova a vedere Help(F1) nella proprietà maschera:
consenti modifiche
ciao
Daniele


title: Permettere modifiche solo SE...

text:
On 14 Lug, 14:40, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "skate2k5" <
skate...@fastwebnet.it
> ha scritto nel messaggionews:8e3ef1ac-34d7-4d8c...@e5g2000yqn.googlegroups.com...

Ok, ma dove andrei a scriverla la condizione? All'evento apertura?
Grazie


title: Permettere modifiche solo SE...

text:
"skate2k5" <
skat...@fastwebnet.it
> ha scritto nel messaggio
news:f6b7dd28-b6a3-45d3...@i28g2000yqa.googlegroups.com...


si
Daniele


title: Permettere modifiche solo SE...

text:
On 14 Lug, 15:06, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "skate2k5" <
skate...@fastwebnet.it
> ha scritto nel messaggionews:f6b7dd28-b6a3-45d3...@i28g2000yqa.googlegroups.com...

Dove sbaglio?..ho anche tolto lo spazio nel nome campo da verificare:
Private Sub Form_Current()
If IsNull(Me.NrP_Verbale) Then
Me.AllowEdits = False
Else
Me.AllowEdits = True
End If
End Sub


title: Permettere modifiche solo SE...

text:

Ops...funziona...basta invertire True con False.
Denghiu!!!!


title: Programma Access quanto costi?

author: PuntoBat

text:
Ciao al NG,
Una domanda semplice, almeno spero, a termine di un lavoro Vi chiedete
quanto vale?
Mi è stato chiesto di sviluppare in Access un programma per la
gestione di una produzione, tempi di lavoro, cicli, report, ecc ecc.
Quanto devo chiedere ?
Devo valutare le ore dedicate, le modifiche o cosa ?
Grazie
.bat


title: Programma Access quanto costi?

author: Gaspare

text:
[CUT]
Ciao,
1 domanda da 1 milione di dollari -> come sul dirsi!
Prova un pò a leggerti il seguente articolo
http://www.visual-basic.it/areaarticoli.asp
 - Il prezzo di un software
di Flavio Firmo -> può darsi che ti serva o magari ti crei maggiore
confusione...in ogni caso alla fine devi essere tu a decidere! ;-)
Buona Serata :-)


title: Programma Access quanto costi?

text:
Magari 1MLD. :)
grazie per la risposta, passo a leggermi l'articolo.
Ciao
.bat


title: Programma Access quanto costi?

text:
[CUT]
Cmq battute a parte ci sono tante cose da considerare -> una delle quali è
quella secondo trattandosi di un nuovo cliente consideri il lavoro da
svolgere = solo ritorno economico o = ritorno + investimento ! ;-)


title: Programma Access quanto costi?

text:
Ho filetto l'articolo.
E devo dire che una idea c'è già.
Beh spero che un buon software alla fine sia un investimento per
entrambi sviluppatore e cliente.
Magari nel contempo si può trovare altre soluzioni tipo : manutenzione
annuale e, aggiornamento del software che ne so...


title: Programma Access quanto costi?

text:
[CUT]
> Beh spero che un buon software alla fine sia un >investimento per
>entrambi sviluppatore e cliente.
Quello sě -> spesso perň il cliente non lo capisce e quindi bisogna
spiegarglielo con dei paragoni tangibili etc...
>Magari nel contempo si puň trovare altre soluzioni tipo : >manutenzione
>annuale e, aggiornamento del software che ne so...
sě certo -> superata la fase iniziale e cioč quando il cliente bene o male
si vincola a te puoi sempre avere qualcosa in piů da dire ! Penso che una
cosa fondamentale sia la massima personalizzazione del prodotto/serivizio
che va dall'analisi dei bisogni anche piů piccoli all'assistenza ad hoc x la
quale il cliente ti possa considerare un valido riferimento su cui poter
contare -> sempre disponibile e reperibile! ;-)
Cmq ripeto -> č una considerazione del tutto personale ...io mi sono
ritrovato ad investire molto su gente che acquista materialmente poco ma
pubblicizza molto e viceversa! ;-)
Notte :-)


title: Come ci si dovrebbe comportare in un newsgroup, ovvero 'Istruzioni per l'uso' (f)

author: Roberto dal portatile

text:
Alcune regole sono generali e di elementare educazione, altre proprie di
questo gruppo di discussione cresciute e consolidate nel tempo soprattutto
con il contributo dei frequentatori piu' anziani.
Premesso che
il ng e' gestito da 'volontari' che mettono a disposizione gratuitamente il
proprio tempo, le proprie conoscenze e la loro professionalita' per aiutare
chiunque, persone che spesso non conoscono e che dalle quali non riceveranno
alcun compenso, per cui qualsiasi forma di pretesa o obbligo da parte di chi
scrive sono decisamente fuori luogo:
- prima di inviare la propria richiesta provate a verificare se nei messaggi
dei giorni precedenti non siano gia' presenti delle soluzioni al quesito che
si vuole porre.
Non e' il massimo delle figure fare una domanda a cui e' gia' stata data
ampia ed esauriente risposta magari il giorno prima, di sicuro poi
l'eventuale replica difficilmente potra' essere piu' completa.
Si possono effettuare delle ricerche nell'archivio storico del Sito Comune.
- provate anche a verificare che i vostri dubbi e le relative soluzioni non
siano gia' presenti sul Sito Comune di questo newsgroup:
http://www.sitocomune.com
Se si decide comunque di scrivere al ng sarebbe bene tenere presente:
Il SUBJECT
-------------------
Nello scrivere l'oggetto del messaggio si dovrebbe dare maggiore importanza
perche' contribuisce ad identificare immediatamente l'argomento e il tipo
diproblema, attirando subito l'attenzione di chi legge.
Si sconsiglia di inserire subject insignificanti come:
'AIUTO','URGENTE','PROBLEMA ACCESS', 'SOLO PER ESPERTI' 'SONO PRINCIPIANTE',
'SONO DEFICIENTE', 'come si fa...' ECC.,
nel marasma generale dei messaggi perdono visibilita'.
Ecco invece alcuni esempi da considerarsi corretti:
- Gestire il tasto Applica Filtro/Rimuovi Filtro
- Sincronizzare repliche via Internet con Access 2000
- Formattazione diversa per il solo record selezionato
- Come ricercare in una casella combinata
- Formato Numerico Nelle query
- Copia e incolla di piu' dati nello stesso campo
TESTO DEL MESSAGGIO
-------------------
Anche qui, soprattutto nell'interesse di chi posta il messaggio, il suo
contenuto dovrebbe essere pensato e redatto con attenzione al fine di
evitare la spedizione di messaggi incomprensibili, che non potranno avere
risposte immediate soddisfacenti.
E' consigliabile indicare la versione di MSAccess a cui ci si riferisce ed
il sistema operativo utilizzato (A2/W95, A95/W98, A97/NT4, A00/W00).
Se dopo aver inviato un messaggio non si dovessero ricevere risposte si puo'
provare a riformularlo evitando pero' di assumere un tono polemico del tipo
'Possibile che nessuno sappia come ...', 'Perche' non mi volete rispondere'
I motivi per cui certi messaggi non ricevono risposte possono essere i
piu'svariati, dalla domanda mal posta, al fatto che nessuno effettivamente
abbia una risposta da dare.
*Alcuni consigli per chi risponde*
- Scrivere dopo il quoting
Quando si replica (risponde) ad un messaggio si dovrebbe iniziare a scrivere
sempre dopo il testo del precedente.
Lasciare il contenuto del testo originario se breve, oppure riassumere il
contenuto tagliando le parti meno significative, lasciando quelle
piu'interessanti per la comprensione del discorso.
- Non farsi coinvolgere in polemiche con altri partecipanti ed eventuali
disaccordie sarebbe meglio proseguirle in e-mail private.
Alcune richieste o comportamenti *sicuramente* non graditi in questo ng:
- chiedere di programmi per 'sproteggere' database e quindi presumibilmente
il lavoro di altre persone.
Oltre a non essere moralmente corretto, e' illegale, inoltre, considerando
che in questo ng possono esserci persone che si guadagnano la pagnotta
sviluppando programmi con Access, non ci sembra corretto contribuire a
diffondere questo tipo di informazioni;
- richiedere risposte personalizzate al proprio indirizzo e-mail e' contro
lo spirito di questo ng in cui si presuppone che tutte le domande e tutte le
risposte debbano essere visibili perche' potrebbero interessare a tutti;
- contattare direttamente altri frequentatori del ng inviando richieste di
informazioni via e-mail, magari a quelli che sembrano piu' bravi e piu'
disponibili di tutti ad aiutare gli altri;
- chiedere del compilatore di access, semplicemente perche' non esiste, lo
sanno anche i bambini ormai;
- chiedere l'invio di programmi gia' fatti con la scusa di dover imparare,
vedere, bla bla bla;
- inviare messaggi con pubblicita' commerciale anche se riferita all'oggetto
del ng. (ben vengano segnalazioni di siti o iniziative free che parlano di
Access, anche se personali, ma il tutto deve sempre essere senza scopo di
lucro;
Alcune regole legate invece alla netiquette, dove con il termine netiquette
'retichetta', si intende l'insieme di regole nate col tempo per autoregolare
il comportamento degli utenti delle news.
- EVITARE DI SCRIVERE IN MAIUSCOLO sia gli oggetti e soprattutto il testo
dei messaggi che nelle regole equivale ad urlare;
- Scrivere in formato testo e non in HTLM (quindi con formattazioni varie),
questo perche' non tutti i lettori di messaggi (newsreader) visualizzano
correttamente questo formato;
- Evitate le polemiche personali con gli altri partecipanti.
Se proprio non potete farne a meno cercate di trasferirle in privato.
Alcuni link per chi volesse approfondire:
The Net: Guida per l'utente e Netiquette, di Arlene Rinaldi
http://www.inferentia.it/netiquette/
Etica e norme di buon uso dei servizi di rete
http://web.tiscalinet.it/enterprise_videotext/itamidi/netiquette/netiquetteit.htm
ATTENZIONE
I successivi sono testi carichi d'ironia, cioe' sono suggerimenti da
EVITARE!
GALAMAILEO di John of the Homepage
http://www.mamofaq.usenet.eu.org/FAQ-galamalileo.txt
Cara Emily Postnews...
http://uniper.unimo.it/uniper/cara_emily_postnews.htm
Grazie per la collaborazione
Questo documento e' stato redatto da Carlo VE
----------------------------------------------------------------------------
      Alcune utili abbreviazioni (acronimi)
      AFAIK As Far As I Know
      BTW By The Way
      CU See You
      CUL8R See You Later
      CUT Taglio (quando non si riporta tutto il testo a cui si risponde)
      HTH Hope This Helps
      IMO In My Opinion
      IMHO In My Humble Opinion
      LOL Laughing out loud
      NEWBIE Nuovo arrivato, persona nuova per il NG
      NG Newsgroup
      OT Off-Topic: fuori argomento
      ROTFL Rolling on the floor laughing
      ROTFLASTC Rolling on the floor laughing and scaring the cat
      ROTFLMAO Rolling on the floor laughing my ass off
      RTFM Read the fuckin' manual
      SPAM Messaggio pubblicitario fortemente OT, sui NG è assolutamente
vietato
      TIA Thanks In Advance
      TROLL Persona che vuole solo creare disturbo e scompiglio
Ce ne sono tanti altri, li trovate qui:
http://www.acronymfinder.com


title: BackUp di dati

author: shari

text:
 Ciao  a tutti  Vorrei sapere se possibile fare backup dei dati in A2000? e
se possibile come bisogna fare anche per via del codice. Ciao Grazie
_Shari


title: BackUp di dati

author: Silvio Berruti

text:
"shari" <
shi...@tiscalinet.it
> ha scritto nel messaggio
news:9sqvh5$17j$1...@pegasus.tiscalinet.it...
> Ciao  a tutti  Vorrei sapere se possibile fare backup dei dati in A2000? e
> se possibile come bisogna fare anche per via del codice. Ciao Grazie
Se hai suddiviso l'applicazione in FE e BE, ti basterà fare la copia del BE,
facendo attenzione che non ci siano oggetti del DB che facciano riferimento
alle tabelle allegate.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: BackUp di dati

text:
Ciao
E come si fa a dividere in FrontEnd e BackEnd ? Grazie
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
news:ot8I7.82687$sq5.3...@news.infostrada.it...



title: BackUp di dati

text:
"shari" <
shi...@tiscalinet.it
> ha scritto nel messaggio
news:9su9lb$2og$1...@lacerta.tiscalinet.it...
> "Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
> news:ot8I7.82687$sq5.3...@news.infostrada.it...
> >
> > "shari" <
shi...@tiscalinet.it
> ha scritto nel messaggio
> > news:9sqvh5$17j$1...@pegasus.tiscalinet.it...
> > > Ciao  a tutti  Vorrei sapere se possibile fare backup dei dati in
A2000?
> e
> > > se possibile come bisogna fare anche per via del codice. Ciao Grazie
> >
> > Se hai suddiviso l'applicazione in FE e BE, ti basterà fare la copia del
> BE,
> > facendo attenzione che non ci siano oggetti del DB che facciano
> riferimento
> > alle tabelle allegate.
> Ciao
> E come si fa a dividere in FrontEnd e BackEnd ? Grazie
Innanzi tutto, rispondi dopo il testo dei messaggi precedenti.
Grazie.
Dalla versione di Access 97, mi risulta che ci sia un'apposita
autocomposizione che lo faccia: in A97 la trovi in
Strumenti/Aggiunte/Divisione Database.
Se vuoi farlo a manina (come si faceva una volta) crei un nuovo MDB vuoto,
importi le tabelle e le relazioni e lo salvi come "nomedb_BE.MDB"; apri il
.MDB contenente la tua applicazione, cancelli le tabelle, le alleghi (o
colleghi) dal BE, compatti.
Ecco fatto (se non mi sono dimenticato altre cose...).



title: BackUp di dati

text:
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
news:LtyI7.92913$sq5.4...@news.infostrada.it...

Grazie ,e alla prossima .Ciao
_Shari


title: barra applicazioni scomparsa

author: roon

text:
Ho access 2003. E' improvvisamente scomparsa la barra del menu ( quello dove
c'è Strumenti, converti, ripristina ,allineamento orizzontale, verticale,
spazio uguale ecc.) ho provato di tutto ma non trovo il modo per farlo
ricomparire. Qualcuno ha avuto lo stesso problema?
Grazie!!!


title: barra applicazioni scomparsa

author: Karl Donaubauer

text:
roon wrote:
> Ho access 2003. E' improvvisamente scomparsa la barra del menu (
> quello dove c'è Strumenti, converti, ripristina ,allineamento
> orizzontale, verticale, spazio uguale ecc.) ho provato di tutto ma
> non trovo il modo per farlo ricomparire. ...
http://groups.google.com/group/it.comp.appl.access/browse_frm/thread/f6dd20a6eaee5c28/c4bf4c3b1d035f19
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: barra applicazioni scomparsa

text:
Non funziona. Credo che bisogna reinstallare tutto perchè ogni volta che
apro Access appare Windows installer che cerca di riconfigurare Office ma
non ci riesce !
Grazie comunque.
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:50i9h4F...@mid.individual.net...



title: Valore predefinito per casella combinata

author: JeanLoup

text:
Salve,
E' possibile impostare un valore predefinito in un controllo casella
combinata con origine riga in una query?
Grazie, Ciao.


text:
"JeanLoup" <v722...@NOSPAMhotmail.it> ha scritto nel messaggio
news:4396a995$0$344$5fc...@news.tiscali.it...

Mi spiego meglio:
vorrei che in una casella combinata popolata da una tabella, mi desse come
valore predefinito, una determinata riga.
Forse cosě č piů chiaro.
Ciao,JeanLoup


text:
"JeanLoup" <v722...@NOSPAMhotmail.it> ha scritto nel messaggio
news:4396aa92$0$338$5fc...@news.tiscali.it...

> Forse così è più chiaro.
> Ciao,JeanLoup
>
ciao JeanLoup.
in modalità struttura della maschera visualizza le proprietà del tuo
controllo e imposta l'opzione Valore predefinito a: "ValoreCheVuoiAppaia"
(valore che sarà presente nella tabella/query di riferimento).
oppure, via codice, con DefaultValue:
Forms!TuaForm!TuoControllo.DefaultValue = "ValoreCheVuoiAppaia".
em.an


title: Richiamare SQL e gestirne il risultato in una form.

text:
Ciao a tutto il NG,
desideravo inserire una istruzione SQL sull'evento AfterUpdate di un
controllo in una form per verificare l'esistenza di record in una Tabella
e, in base al risultato, gestire l'evento. In pratica:
1. scelgo un valore in una ComboBox della Form;
2. viene eseguita un'istruzione SQL di selezione in base al valore scelto;
3. se il risultato della query è nullo allora mostro un messaggio e apro
una form PopUp altrimenti proseguo l'iserimento nella Form.
Le domande sono: come posso scrivere l'istruzione in VBA e, quindi, come
riconosco un risultato nullo per la query?
Grazie,
NEMO2K
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Nick

text:
"NEMO2K" <
naut...@ventimilaleghe.com
> ha scritto nel messaggio news:cibovt$paf$1...@news.newsland.it...
> Ciao a tutto il NG,
>
> desideravo inserire una istruzione SQL sull'evento AfterUpdate di un
> controllo in una form per verificare l'esistenza di record in una Tabella
> e, in base al risultato, gestire l'evento. In pratica:
>
> 1. scelgo un valore in una ComboBox della Form;
> 2. viene eseguita un'istruzione SQL di selezione in base al valore scelto;
> 3. se il risultato della query č nullo allora mostro un messaggio e apro
> una form PopUp altrimenti proseguo l'iserimento nella Form.
>
> Le domande sono: come posso scrivere l'istruzione in VBA e, quindi, come
> riconosco un risultato nullo per la query?
> Grazie,
>
> NEMO2K
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
>
>
al posto di un'istruzion sql interroga il db con il dlookup (vedi help) cosě hai un risultato, poi di conseguenza fai il resto
ciao
Nick


text:
Nick ha scritto:
> "NEMO2K" <
naut...@ventimilaleghe.com
> ha scritto nel messaggio
news:cibovt$paf$1...@news.newsland.it...
> > Ciao a tutto il NG,
> >
> > desideravo inserire una istruzione SQL sull'evento AfterUpdate di un
> > controllo in una form per verificare l'esistenza di record in una Tabella
> > e, in base al risultato, gestire l'evento. In pratica:
> >
> > 1. scelgo un valore in una ComboBox della Form;
> > 2. viene eseguita un'istruzione SQL di selezione in base al valore scelto;
> > 3. se il risultato della query è nullo allora mostro un messaggio e apro
> > una form PopUp altrimenti proseguo l'iserimento nella Form.
> >
> > Le domande sono: come posso scrivere l'istruzione in VBA e, quindi, come
> > riconosco un risultato nullo per la query?
> > Grazie,
> >
> > NEMO2K
> >
> > --
> >
> > questo articolo e` stato inviato via web dal servizio gratuito
> >
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
> >
> >
> al posto di un'istruzion sql interroga il db con il dlookup (vedi help) così
hai un risultato, poi di conseguenza fai il resto
> ciao
> Nick
Potresti, cortesemente, esemplificare con riferimento alla mia precedente
come impostare la tua soluzione? Tieni conto che dovrò confrontare il dato
scelto nella ComboBox con un altro valore contenuto in Tabella non
esistente.
In verità sono riuscito a creare la query e questo è il codice SQL
sottostante:
SELECT DettagliOrdini.IDMateriale, DettagliOrdini.Misura,
DettagliOrdini.Colore, DistintaBase.Materiale, DistintaBase.Taglia,
DistintaBase.Colore
FROM DistintaBase LEFT JOIN DettagliOrdini ON DistintaBase.Materiale =
DettagliOrdini.IDMateriale
WHERE (((DettagliOrdini.Misura)=[DistintaBase]![Taglia]) AND
((DettagliOrdini.Colore)=[DistintaBase]![Colore]));
ma non riesco a trasferirla nella Form in modo "trasparente" e tale per
cui possa intercettare un risultato nullo da gestire come ho spiegato
prima.
Ciao,



text:
[CUT]
>> > desideravo inserire una istruzione SQL sull'evento AfterUpdate di un
>> > controllo in una form per verificare l'esistenza di record in una Tabella
>> > e, in base al risultato, gestire l'evento. In pratica:
>> >
>> > 1. scelgo un valore in una ComboBox della Form;
>> > 2. viene eseguita un'istruzione SQL di selezione in base al valore scelto;
>> > 3. se il risultato della query è nullo allora mostro un messaggio e apro
>> > una form PopUp altrimenti proseguo l'iserimento nella Form.
>> >
>> > Le domande sono: come posso scrivere l'istruzione in VBA e, quindi, come
>> > riconosco un risultato nullo per la query?
[CUT]
>> al posto di un'istruzion sql interroga il db con il dlookup (vedi help) così
> hai un risultato, poi di conseguenza fai il resto
>
>> ciao
>> Nick
>
> Potresti, cortesemente, esemplificare con riferimento alla mia precedente
> come impostare la tua soluzione? Tieni conto che dovrò confrontare il dato
> scelto nella ComboBox con un altro valore contenuto in Tabella non
> esistente.
> In verità sono riuscito a creare la query e questo è il codice SQL
> sottostante:
>
> SELECT DettagliOrdini.IDMateriale, DettagliOrdini.Misura,
> DettagliOrdini.Colore, DistintaBase.Materiale, DistintaBase.Taglia,
> DistintaBase.Colore
> FROM DistintaBase LEFT JOIN DettagliOrdini ON DistintaBase.Materiale =
> DettagliOrdini.IDMateriale
> WHERE (((DettagliOrdini.Misura)=[DistintaBase]![Taglia]) AND
> ((DettagliOrdini.Colore)=[DistintaBase]![Colore]));
>
> ma non riesco a trasferirla nella Form in modo "trasparente" e tale per
> cui possa intercettare un risultato nullo da gestire come ho spiegato
> prima.
casellcombinata_afterupdate()
dim Controllo as integer ' credo che il tuo colore sia intero, se no è così cambia il tipo
dim IstrSQL as string
istrsql = "SELECT DettagliOrdini.IDMateriale, DettagliOrdini.Misura, "
& "DettagliOrdini.Colore, DistintaBase.Materiale, DistintaBase.Taglia, "
& "DistintaBase.Colore"
& "FROM DistintaBase LEFT JOIN DettagliOrdini ON DistintaBase.Materiale = DettagliOrdini.IDMateriale;"
controllo = dlookup ("colore",istrsql,"(((DettagliOrdini.Misura)=[DistintaBase]![Taglia]) AND
((DettagliOrdini.Colore)=[DistintaBase]![Colore]))")
if isnull (controllo) then
    msgbox "nullo"
else
    msgbox"c'è"
end if
salvo errori dovuti al non capire se i nomi di campi li ho azzeccati dovrebbe funzionare
>
> Ciao,
>
> NEMO2K
ciao
Nick


text:
Nick ha scritto:

> [CUT]






> >
> > Ciao,
> >
> > NEMO2K
> ciao
> Nick
Ho cambiato il tipo dato di "Controllo" perchè, in effetti, era una
stringa e "colore" con DettagliOrdini.Colore nel primo parametro di
DLookup ma quando aggiorno la Combo mi appare un messaggio che dice "The
field is to small to accep the amount of data you attempted to add. Try
inserting or pasting less data". Sai dirmi perchè?
grazie,
Nemo2K.



text:
[CUTTONE]
>
>> casellcombinata_afterupdate()
>> dim Controllo as integer ' credo che il tuo colore sia intero, se no č cosě
> cambia il tipo
>> dim IstrSQL as string
>
>> istrsql = "SELECT DettagliOrdini.IDMateriale, DettagliOrdini.Misura, "
>> & "DettagliOrdini.Colore, DistintaBase.Materiale, DistintaBase.Taglia, "
>> & "DistintaBase.Colore"
>> & "FROM DistintaBase LEFT JOIN DettagliOrdini ON DistintaBase.Materiale =
> DettagliOrdini.IDMateriale;"
>
>
>> controllo = dlookup
> ("colore",istrsql,"(((DettagliOrdini.Misura)=[DistintaBase]![Taglia]) AND
>> ((DettagliOrdini.Colore)=[DistintaBase]![Colore]))")
>
>> if isnull (controllo) then
>>     msgbox "nullo"
>> else
>>     msgbox"c'č"
>> end if
>
>> salvo errori dovuti al non capire se i nomi di campi li ho azzeccati
> dovrebbe funzionare
>
>
>> >
>> > Ciao,
>> >
>> > NEMO2K
>
>> ciao
>> Nick
>
> Ho cambiato il tipo dato di "Controllo" perchč, in effetti, era una
> stringa e "colore" con DettagliOrdini.Colore nel primo parametro di
> DLookup ma quando aggiorno la Combo mi appare un messaggio che dice "The
> field is to small to accep the amount of data you attempted to add. Try
> inserting or pasting less data". Sai dirmi perchč?
> grazie,
>
> Nemo2K.
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
>
>
strano, prova a cambiare la istrsql con una query e vedi se ti da cmq l'errore..
oppure nel campo colore ci son troppi caratteri ma mi pare strano...
non capisco, prova a postare il tuo codice finale


text:
[CUT]
> strano, prova a cambiare la istrsql con una query e vedi se ti da cmq
l'errore..
> oppure nel campo colore ci son troppi caratteri ma mi pare strano...
> non capisco, prova a postare il tuo codice finale
Ho provato una modifica, per la quale ti posto il codice della routine:
Dim strSQl As String, Estrazione As Recordset, Conteggio As Integer,
DBAttuale As Object
strSQl = " SELECT SELECT DettagliOrdini.IDMateriale,
DettagliOrdini.Misura, DettagliOrdini.Colore,
DistintaBase.MaterialeComposto, DistintaBase.TagliaComposto,
DistintaBase.ColoreComposto" & _
" FROM DistintaBase LEFT JOIN DettagliOrdini ON
DistintaBase.MaterialeComposto = DettagliOrdini.IDMateriale" & _
" WHERE (((DettagliOrdini.Misura)=[DistintaBase]![TagliaComposto]) AND
((DettagliOrdini.Colore)=[DistintaBase]![ColoreComposto]))"
Set DBAttuale = CurrentDb
Set Estrazione = DBAttuale.OpenRecordset(strSQl, dbOpenDynaset)
Estrazione.MoveLast
Conteggio = Estrazione.RecordCount
Me.Prova = Conteggio
"Prova" è il mio campo nella form.
Mi restituisce "Sintax error in query expression 'SELECT DettagliOrdini.
IDMateriale'
Any idea?
Muchas gracias,
NEMO2K



text:
"NEMO2K" <
naut...@ventimilaleghe.com
> ha scritto
nel messaggio
news:cicbna$8fj$1...@news.newsland.it...

Fossi in lui mi incacchierei anche io se tu
scrivessi
SELECT SELECT ...
MAssimiliano



text:
MA ha scritto:


> MAssimiliano
Ops! Mi era completamente sfuggito; delle volte il copia/incolla crea più
danni che vantaggi.
Ho apportato la correzione ma, ora mi appare il messaggio "Errore di
run-time '3021': No current record" e, aprendo la finestra di Debug viene
evidenziata l'istruzione Estrazione.MoveLast.
L'Help in linea mi dice:
 "Questo errore si verifica dopo l'applicazione non riuscita di uno dei
metodi Find o del metodo Seek, quando l'oggetto Recordset sottostante non
contiene nessun record oppure il record è stato eliminato. Spostarsi su un
altro record o selezionarlo, quindi ritentare l'operazione. Se l'oggetto
Recordset è vuoto, non è possibile posizionarsi su un record corrente.
Verificare le proprietà BOF e EOF."
Dal momento che, per i valori che utilizzo in fase di test, sia
DistintaBase che DettagliOrdini contengono dati, qual'è il senso di non
trovare alcun record?
Grazie,



text:
"NEMO2K" <
naut...@ventimilaleghe.com
> ha scritto
nel messaggio
news:cie93a$8r2$1...@news.newsland.it...

Perchè invece non usi una query parametrica per
caricare il rst??
c'è un esempio sul sitocomune.
MAssimiliano


text:
[CUT]
> Perchè invece non usi una query parametrica per
> caricare il rst??
> c'è un esempio sul sitocomune.
> MAssimiliano
Diciamo la verità,
mi sto perdendo per strada e, forse, complicando la vita. In verità, il
mio intento era solo quello di verificare (attraverso un conteggio dei
record) se un materiale avesse o meno la Di.Ba.: in caso negativo avrei
chiesto se si voleva caricarla e, in caso affermativo, avrei aperto una
Form di caricamento.
Parzialmente ho trovato l'inizio della strada da percorrere:
ho creato un controllo non associato che mi conta i record in DistintaBase
che abbiano come codice materiale (MaterialeComposto) il valore del
materiale dell'ordine (IDOrdine). Non è sufficiente, perchè devono
esistere anche la TG ed il Colore dell'ordine. Come posso sostituire il
criterio singolo con tutti e tre?
Grazie,
NEMO2K
Me!Prova = DCount("[ColoreComposto]", "DistintaBase",
"[MaterialeComposto]=" & Me!IDMateriale)



text:
"NEMO2K" <
naut...@ventimilaleghe.com
> ha scritto
nel messaggio
news:cievig$set$1...@news.newsland.it...

Fatti una query con i criteri che ti servono e
contane i record
MAssimiliano


title: query %avanzamenti

author: piocanet

text:
Salve. Devo implementare la gestione di stati avanzamento lavori per
degli appalti. Ho già la tabella appalti ma sono libero per quanto
riguarda le strutture delle tabelle relative agli stati.
Avrò una struttura del genere
tabellaAppalto (lato uno) <-> tabellaPosizioniAppalto (lato molti)
e successivamente
tabellaPosizioniAppalto (lato uno) <-> tabellaAvanzamentoPosizione
(lato molti)
La tabellaAvanzamentoPosizione dovrà memorizzare la posizione attuale
dello stato d'avanzmento (in %)
Es.
Appalto 190
---Posizione 001
--- --- Avanzamento  attuale 10%
--- --- Avanzamento attuale 20%
---Posizione 002
--- --- avanzamento attuale 5%
ecc...
Quello che io debbo poter visualizzare nella maschera che andrò a
creare è una struttura del genere (ipotizzando la posizione 001)
% precedente - % attuale - % totale
0%                    10%           10%
10%                  20%           30%
In pratica debbo costruire una query che mi mostri nella stessa riga
la % precedente e la % totale a partire da quella attuale (e
ovviamente dalle righe già presenti)
Spero di esser stato chiaro e chiedo scusa per eventuali
disallineamenti delle righe
Chi mi può indirizzare nella strada + corretta da percorrere?
Grazie
C.


title: query %avanzamenti

text:
piocanet wrote:
> ...
> Quello che io debbo poter visualizzare nella maschera che andrò a
> creare è una struttura del genere (ipotizzando la posizione 001)
> % precedente - % attuale - % totale
> 0%                    10%           10%
> 10%                  20%           30%
>
> In pratica debbo costruire una query che mi mostri nella stessa riga
> la % precedente e la % totale a partire da quella attuale (e
> ovviamente dalle righe già presenti)
> ...
Vedi il link per "Somma incrementale" nell'articolo:
www.donkarl.com/it?FAQ3.11
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: query %avanzamenti

text:

Grazie per l'aiuto. Ho risolto!!!
:-)


title: Funzione Msg Box

author: Andrea C.

text:
Saluti a tutti,
a fronte dell'evento non in elenco di un controllo casella combinata ho
scritto il seguente codice vba:
Private Sub Microarea_NotInList(NewData As String, Response As Integer)
Dim strMsg As String
    strMsg = "Si vuole inserire '" & NewData & "' come nuova microarea?" &
Chr(10) & "Premere Sě per aprire la maschera Microaree, No per ridigitare."
     If MsgBox(strMsg, vbExclamation + vbYesNo, "'" & NewData & "' non č una
microarea nota!") = vbNo Then
        Response = acDataErrContinue
    Else: DoCmd.OpenForm "Microaree", , , acAdd
    End If
End Sub
come posso fare per impedire che mi appaia anche il messaggio predefinito di
access????
grazie, andrea


title: Funzione Msg Box

author: Steve

text:
"Andrea C." <
dk...@tin.it
> ha scritto nel messaggio
news:VaPR6.8676$Ww.1...@news2.tin.it...

DoCmd.SetWarnings False prima
e
DoCmd.SetWarnings true dopo
ciao
steve


title: Funzione Msg Box

author: Guycho

text:
Andrea C. <
dk...@tin.it
> wrote in message
VaPR6.8676$Ww.1...@news2.tin.it...

la riga che hai scritto  :  Response = acDataErrContinue
 dovrebbe servire proprio allo scopo.Forse devi aggiungerla anche nella
clausola "else"
ciao


title: Funzione Msg Box

text:
"Andrea C." <
dk...@tin.it
> ha scritto nel messaggio
news:VaPR6.8676$Ww.1...@news2.tin.it...

Response = acDataErrContinue
toglilo da dove sta e mettilo dopo la End If, che equivale a fare ciň che ti
ha consigliato Guycho.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Funzione Msg Box

author: kismet

text:
Grasssssssie ;-))))
andrea


title: Funzione Msg Box

text: Grassssie ;-)))))


title: Sintassi criterio campo data in una query

author: Massimo Lista

text:
Filtro una query assegnando ad un CampoData tra i criteri il riferimento ad
un controllo di una maschera.
IIf([Forms]![Maschera]![MioCon] Is
Null;[CampoData];[Forms]![Maschera]![MioCon])
e funziona in modo corretto.
Ma qual'è l'esatta sintassi se voglio selezionare tutti i records con data
maggiore di MioCon.
Con la seguente sintassi non funziona:
IIf([Forms]![Maschera]![MioCon] Is
Null;[CampoData];>[Forms]![Maschera]![MioCon])
Sarà un problema banale ma non trovo la soluzione .Chi mi può aiutare ?
Grazie max


author: Roberto da casa

text:
"Massimo Lista" <
lis...@tiscalinet.it
> ha scritto nel messaggio
news:%EHh8.14668$5z3.4...@twister2.libero.it...

Se la tabella su cui è basata la query di selezione e che contiene il campo
CampoData si chiama Tabella1.
Come criteri di CampoData prova a scrivere:
> Nz([Forms]![Maschera]![MioCon];DMin("CampoData";"Tabella1")-1)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Massimo Lista" <
lis...@tiscalinet.it
> ha scritto nel messaggio
news:%EHh8.14668$5z3.4...@twister2.libero.it...
Se anziché  la funzione Nz, come indicato nel mio messaggio precedente,
preferisci usare le funzione IIf:
>IIf(IsNull([Forms]![Maschera]![MioCon]);DMin("CampoData";"Tabella1")-1;[For
ms]![Maschera]![MioCon])
Perň, a mio avviso, con la funzione Nz č piů elegante. ;-)



text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:hQIh8.15012$5z3.4...@twister2.libero.it...
>
> "Massimo Lista" <
lis...@tiscalinet.it
> ha scritto nel messaggio
> news:%EHh8.14668$5z3.4...@twister2.libero.it...
> > Filtro una query assegnando ad un CampoData tra i criteri il riferimento
> ad
> > un controllo di una maschera.
> > IIf([Forms]![Maschera]![MioCon] Is
> > Null;[CampoData];[Forms]![Maschera]![MioCon])
> > e funziona in modo corretto.
> > Ma qual'è l'esatta sintassi se voglio selezionare tutti i records con
data
> > maggiore di MioCon.
> > Con la seguente sintassi non funziona:
> > IIf([Forms]![Maschera]![MioCon] Is
> > Null;[CampoData];>[Forms]![Maschera]![MioCon])
> > Sarà un problema banale ma non trovo la soluzione .Chi mi può aiutare ?
> > Grazie max
> >
>
> Se la tabella su cui è basata la query di selezione e che contiene il
campo
> CampoData si chiama Tabella1.
>
> Come criteri di CampoData prova a scrivere:
>
> > Nz([Forms]![Maschera]![MioCon];DMin("CampoData";"Tabella1")-1)
>
Ti ringrazio per la soluzione e per avermi fatto conoscere la funzione Nz()
Max


title: pulsanti di opzione

author: luca fastweb

text:
ciao!
invece della solita combobox, volevo provare ad usare i pulsanti di opzione,
ma come faccio a controllare quale pulsante di opzione č selezionato?
grazie Luca


title: pulsanti di opzione

author: Alex

text:
"luca fastweb" <
rgt...@fastwebnet.it
> wrote in message
news:8ES6a.5196$%
1.15...@tornado.fastwebnet.it
> ciao!
> invece della solita combobox, volevo provare ad usare i pulsanti di opzione,
> ma come faccio a controllare quale pulsante di opzione è selezionato?
>
> grazie Luca
Il controllo in questione ha la proprietà Value, che su Evento
After Update assume l'indice dell'Opzione.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: pulsanti di opzione

text:
>
> Il controllo in questione ha la proprietą Value, che su Evento
> After Update assume l'indice dell'Opzione.
>
ehm...
non ho capito cosa devo fare...
io ho 4 pulsanti di opzione
opz1
opz2
opz3
opz4
ne seleziono uno e schiaccio un bottone che
deve far stampare a video la selezione scelta
grazie mille per l'aiuto
Luca


title: pulsanti di opzione

text:
"luca fastweb" <
rgt...@fastwebnet.it
> ha scritto nel messaggio
news:rdT6a.5229$%1.15...@tornado.fastwebnet.it...
>
> >
> > Il controllo in questione ha la proprietà Value, che su Evento
> > After Update assume l'indice dell'Opzione.
> >
>
> ehm...
> non ho capito cosa devo fare...
>
> io ho 4 pulsanti di opzione
> opz1
> opz2
> opz3
> opz4
> ne seleziono uno e schiaccio un bottone che
> deve far stampare a video la selezione scelta
>
> grazie mille per l'aiuto
> Luca
>
I pulsanti Opzione sono contenuti all'interno del Box Opzioni.
Questo "Box" ha Eventi, uno dei quali è Dopo Aggiornamento.
I pulsanti Opz hanno dei Valori Integer corrispondenti ai loro indici, basta
leggere il valore rilasciato dal Box.
Private Sub BoxOpzioni_AfterUpdate()
    Select Case BoxOpzioni.Value
        Case 1
            ...........
        Case 2
            ...........
        Case 3
            ...........
        Case 4
    End Select
End Sub
@Alex.


title: pulsanti di opzione

text:
grazie mille alex!
il mio problema era quello di trovare il Box Opzioni, il mio si chiamava
Cornice34 e quindi l'avevo confuso con un bordo...
veramente grazie grazie
Luca
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:niT6a.155875$YG2.4...@twister1.libero.it...



title: [Sito Comune] Aggiornato

author: Luciano (DOC)

text:
Trovate le novita' al link.....novita'!:-)
saluti.
Luciano


title: [Sito Comune] Aggiornato

text:
Per chi non lo sapesse:
www.sitocomune.com
Saluti.
Luciano


title: [Sito Comune] Aggiornato

author: oliones

text:
Luciano (DOC) <
lucia...@sitocomune.com
> wrote in message
9p22en$ftu59$1...@ID-86073.news.dfncis.de...

E' online l'archivio storico di it.comp.appl.access
il 2001 ???


title: [Sito Comune] Aggiornato

text:
oliones ha scritto nel messaggio <9p2kp3$5pg$
1...@lacerta.tiscalinet.it
>...
>E' online l'archivio storico di it.comp.appl.access
>il 2001 ???
Non ancora, ma lo sara' a breve. Ne abbiamo parlato giusto oggi con
Federico.
Saluti.
Luciano


title: Trasformare coordinate lat/long a utm ?

author: RobertoA

text:
Qualcuno ha avuto a che fare con gis/gps e simili?
Sapete dove trovare una funzione vba per convertire da coordinate wgs84
(le classiche latitudie e longitudine che escono dai gps) a utm (usate
nelle cartografie) ?
Si parla di pappa pronta ovviamente
Ciao e grazie
RobertoA


title: Trasformare coordinate lat/long a utm ?

text:

https://www.uwgb.edu/dutchs/UsefulData/UTMFormulas.HTM

Questo è un foglio che implementa le Formule:
https://www.google.it/url?sa=t&rct=j&q=&esrc=s&source=web&cd=3&cad=rja&uact=8&ved=0ahUKEwj__KbyyY3QAhULBiwKHXbxBwoQFggsMAI&url=http%3A%2F%2Fwww.uwgb.edu%2Fdutchs%2FUsefulData%2FUTMConversions1.xls&usg=AFQjCNE5gDT3aToy0F3g1A4vGIiKamHc6g&sig2=Q8OP6SxGO6-mtZkfDDOohA&bvm=bv.137132246,d.bGg

https://gist.github.com/kissmygritts/70a294687513de982a07

Ecc...

@Alex


title: Trasformare coordinate lat/long a utm ?

text:

I primi due li conoscevo
Il terzo e' proprio quello che cercavo
Molte molte grazie


title: Agenda

author: Paolo Soldani

text:
C'è qualcosa di già fatto per fare una agenda in access ?
Grazie e Ciao.


title: Agenda

author: ciroteo

text:
"Paolo Soldani" <
p.so...@katamail.com
> ha scritto nel messaggio
news:40b1...@x-privat.org...
> C'è qualcosa di già fatto per fare una agenda in access ?
>
> Grazie e Ciao.
>
>
Si ma di certo non gratis!
Se magari provi a fare qualcosina da solo, poi gratis troverai tutto l'aiuto
che vorrai!


title: umorismo

author: Ammammata

text:
da un altro ng:
Web-comic per infomatici e roba simile.
Mamma Hacker (richiesta conoscenza dell'SQL)
http://xkcd.com/327/
--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\


title: umorismo

author: Massimo Piubelli

text:
Ammammata wrote:
> da un altro ng:
>
> Web-comic per infomatici e roba simile.
>
> Mamma Hacker (richiesta conoscenza dell'SQL)
>
http://xkcd.com/327/
Spettacolare!!!!!!


title: problemi con setfocus

author: skizzato

text:
Non mi è chiara sooolo una cosa ho impostato sull'evento afterupdate di
una textbox il setfocus prima su un'altra casella e poi il setfocus
sulla casella dove c'è l'evento.
La cosa che non mi spiego è perchè se faccio il setfocus su una casella
su cui non ho agito io mi evidenzia il testo contenuto, mentre nella
casella a seguito dell'evento afterUpdate non solo non mi evidenzia il
testo ma non posso usare il tasto canc per cancellare il testo, devo
prima inserire qualcosa e poi cancellare (il cursdore lampeggia ma è
cvome se in realtà la casella non fosse attiva.)
se mi sposto con i tsti freccia avanti e indietro mi seleziona il testo
contenuto.
C'è un modo per uscire dall'empasse?


title: problemi con setfocus

author: Roberto dalla campagna

text:
skizzato <
skiz...@libero.it
> wrote in message 3F304FB6...@libero.it...

Onestamente non è che abbia capito bene il tuo problema, ma per selezionare
da codice VBA una parte o tutto il testo di una casella di testo attiva
prova ad usare le Proprietà SelLength e SelStart (vedi help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: problemi con setfocus

text:

In pratica io tramite setfocus "ritorno" sulla casella di testo ma non
mi seleziona il testo contenuto nella txt.
(se provi con il setfocus a spostarti da una casella ad un'altra con del
testo contenuto, automaticamente mi seleziona il testo).
con sellenght ho provato ma comunque non mi seleziona il testo.
Il cursore lampeggia all'inizio del testo ma se premo canc ad esempio
non mi cancella il tersto.
Puoi provare in una mascherea con due caselle di testo associando il
setfocus sull'evento afterupdate di una.
Tutto stò casino mi servirebbe xchè con la pistola per i codici a barre
vorrei sparare il codice e fare in modo che mi ritorni sul testo dove
c'è il codice inserito, selezionandolo in modo che se risparo non devo
premere nulla e lui automaticamente mi sostituisce il codice.
Grazie cmq


title: problemi con setfocus

text:
skizzato <
skiz...@libero.it
> wrote in message 3F314BC5...@libero.it...

Il comportamento che hai non è spiegabile; per me è inspiegabile che
intervenendo sulle proprietà SelStart e SelLength tu non riesca a
selezionare il testo della casella di testo attiva.



title: problemi con setfocus

text:
>>>
>>
>>In pratica io tramite setfocus "ritorno" sulla casella di testo ma non
>>mi seleziona il testo contenuto nella txt.
>>(se provi con il setfocus a spostarti da una casella ad un'altra con del
>>testo contenuto, automaticamente mi seleziona il testo).
>>con sellenght ho provato ma comunque non mi seleziona il testo.
>>Il cursore lampeggia all'inizio del testo ma se premo canc ad esempio
>>non mi cancella il tersto.
>>Puoi provare in una mascherea con due caselle di testo associando il
>>setfocus sull'evento afterupdate di una.
>>Tutto stò casino mi servirebbe xchè con la pistola per i codici a barre
>>vorrei sparare il codice e fare in modo che mi ritorni sul testo dove
>>c'è il codice inserito, selezionandolo in modo che se risparo non devo
>>premere nulla e lui automaticamente mi sostituisce il codice.
>>Grazie cmq
>
>
> Il comportamento che hai non è spiegabile; per me è inspiegabile che
> intervenendo sulle proprietà SelStart e SelLength tu non riesca a
> selezionare il testo della casella di testo attiva.
>
> --
> Roberto
>
Private Sub txtCodice_EAN_AfterUpdate()
Dim rs, rst As Recordset, pre As Recordset, que As Recordset
Dim sqlstr As String
Dim datastr As String
Dim valore As Integer
Dim qryvisart As QueryDef
If IsNull(txtCodice_EAN.Value) Or txtCodice_EAN.Value = "" Then Exit Sub
     sqlstr = "[Codice_EAN]= '" & CStr(txtCodice_EAN.Value) & "' "
....
txtvia.SetFocus
txtCodice_EAN.SetFocus
End Sub
Dal codice sopra io sparo il Codice_EAN, facci setfocus prima su una
casella di testo (txtvia) e poi sefocus su txtCodice_EAN.
Il cursore ritorna su txtCodice_EAN ma:
1 il codice non è selezionato;
2 se premo il tasto canc non mi cancella il numero (il cursore è
all'inizio della casella, allineamento testo a sinistra). Però, posso
inserire dei caratteri.
sull'evento got_focus della txtCodice_EAN
ho anche provato ad inserire
txtCodice_EAN.SelLength = 10
e
txtCodice_EAN.SelStart =10
per selezionare tutto il codice ma non funziona.
Ri_saluti sperando di essermi finalmente spiegato


title: problemi con setfocus

text:
skizzato <
skiz...@libero.it
> wrote in message 3F33455...@libero.it...

Se la stringa contenuta in txtCodice_EAN è lunga 10 caratteri con
txtCodice_EAN.SelStart =10
sposti il cursore dopo l'ultima cifra senza selezionare nulla, e non mi
sembra che volessi fare questo.
Prova così:
txtCodice_EAN.SelStart = 0
txtCodice_EAN.SelLength = Len(txtCodice_EAN)



title: problemi con setfocus

text:

Scusa il 10 in selstart era un refuso.
Comunque ho anche provato a fare come mi hai suggerito ma continua  a
fare lo stesso.
Pazienza


title: Unire tre campi in uno!

author: Massimiliano Auguadro

text:
Ho una tabella contenete tre campi:
Campo A: tipo data/ora
Campo B: tipo memo
Campo C: tipo testo.
Questi tre campi li voglio unire in un solo campo D di tipo testo.
Come faccio?
Grazie!


title: Unire tre campi in uno!

author: OndaMax

text:
Massimiliano Auguadro wrote in message ...

Dovresti riuscirci creando un nuovo campo sulla tabella ed effettuando una
Query di Aggiornamento su quel campo. L'espressione dovrebbe essere ...
[CampoData] & [CampoMemo] & [CampoTesto]
OndaMax


title: Unire tre campi in uno!

author: Silvio Berruti

text:
"OndaMax" <
ond...@liberox.it
> ha scritto nel messaggio
news:Cdhl6.19693$k55.5...@news.infostrada.it...

Suggerirei di fare il campo D di tipo Memo anche lui, altrimenti rischi di
perderti dei dati.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Unire tre campi in uno!

author: Antonio Biso

text:
Massimiliano Auguadro <
m.aug...@tin.it
> wrote in message
pXcl6.1542$Mx3....@twister2.tin.it...

Come fai a mettere in un campo testo un campo memo che puň avere piů
caratteri di quelli supportati dal campo testo?
Antonio


title: Unire tre campi in uno!

text:
Grazie ho risolto il rpoblema come mi avete indicato con [campoa] &
[campoa]&[campob]
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:37vl6.29231$k55.6...@news.infostrada.it...
> Massimiliano Auguadro <
m.aug...@tin.it
> wrote in message
> pXcl6.1542$Mx3....@twister2.tin.it...
> > Ho una tabella contenete tre campi:
> > Campo A: tipo data/ora
> > Campo B: tipo memo
> > Campo C: tipo testo.
> > Questi tre campi li voglio unire in un solo campo D di tipo testo.
> > Come faccio?
>
> Come fai a mettere in un campo testo un campo memo che può avere più



title: Cancellare Record selezionato da casella di riepilogo

author: Sthepan

text:
Ho la necessità di cancellare un record che viene visualizzato in una
casella di riepilogo.
Il record è visualizzato "ID"  e "Dato".
Come fare?
ciao Sthepan


author: Alessandro Baraldi

text:
"Sthepan" <
sth...@supereva.it
> wrote in message
news:1pq7sbcq1yo30$.
1drsyo85...@40tude.net

Se la ListBox non è a selezione Multipla fai così:
CurrentDb.EXECUTE "DELETE * FROM NomeTabella " & _
                  "WHERE [ID]=" & Me!NomeListBox
Se è a selezione Multipla dimmelo.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
In data Mon, 18 Apr 2005 16:40:08 +0000 (UTC), Alessandro Baraldi ha
scritto:
> "Sthepan" <
sth...@supereva.it
> wrote in message
> news:1pq7sbcq1yo30$.
1drsyo85...@40tude.net
>
>>
>> Ho la necessità di cancellare un record che viene visualizzato in una
>> casella di riepilogo.
>> Il record è visualizzato "ID"  e "Dato".
>>
>> Come fare?
>>
>> ciao Sthepan
>
> Se la ListBox non è a selezione Multipla fai così:
>
> CurrentDb.EXECUTE "DELETE * FROM NomeTabella " & _
>                   "WHERE [ID]=" & Me!NomeListBox
>
> Se è a selezione Multipla dimmelo.
>
> Ciao
> @Alex
Ciao,
La selezione e singola, quindi ora provo.
grazie ciao
Sthepan


author: Roberto da casa

text:
"Sthepan" <
sth...@supereva.it
> ha scritto nel messaggio
news:1pq7sbcq1yo30$.1drsyo85aneo5.dlg@40tude.net...

Se ID è un campo di tipo Contatore o Numerico ed è la chiave primaria della
tabella chiamata MiaTabella
Se la casella di riepilogo si chiama Elenco, ha due colonne e una origine
riga tipo questa:
SELECT ID, Dato FROM MiaTabella;
Se la colonna associata alla casella di riepilogo è impostata a 1.
A fronte dell'evento "Su clic" della casella di riepilogo genera il seguente
codice VBA:
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM MiaTabella " _
& "WHERE ID = " & Me!Elenco
DoCmd.SetWarnings True
Me!Elenco.Requery
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


text:
In data Mon, 18 Apr 2005 18:15:44 GMT, Roberto da casa ha scritto:
> "Sthepan" <
sth...@supereva.it
> ha scritto nel messaggio
> news:1pq7sbcq1yo30$.1drsyo85aneo5.dlg@40tude.net...
>>
>> Ho la necessità di cancellare un record che viene visualizzato in una
>> casella di riepilogo.
>> Il record è visualizzato "ID"  e "Dato".
>>
>> Come fare?
>>
>> ciao Sthepan
>
> Se ID è un campo di tipo Contatore o Numerico ed è la chiave primaria della
> tabella chiamata MiaTabella
> Se la casella di riepilogo si chiama Elenco, ha due colonne e una origine
> riga tipo questa:
>
> SELECT ID, Dato FROM MiaTabella;
>
> Se la colonna associata alla casella di riepilogo è impostata a 1.
> A fronte dell'evento "Su clic" della casella di riepilogo genera il seguente
> codice VBA:
>
> DoCmd.SetWarnings False
> DoCmd.RunSQL "DELETE * FROM MiaTabella " _
> & "WHERE ID = " & Me!Elenco
> DoCmd.SetWarnings True
> Me!Elenco.Requery
Ciao,
ho provato il tuo esempio,
ma mi da errore nella proposizione FROM
Private Sub IDDeC_DblClick(Cancel As Integer)
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM tblDecorazioni" & "WHERE IDDecorazioni=" &
Me!IDDeC

End Sub
ciao Sthepan


text:
In data Mon, 18 Apr 2005 16:40:08 +0000 (UTC), Alessandro Baraldi ha
scritto:
> "Sthepan" <
sth...@supereva.it
> wrote in message
> news:1pq7sbcq1yo30$.
1drsyo85...@40tude.net
>
>>
>> Ho la necessità di cancellare un record che viene visualizzato in una
>> casella di riepilogo.
>> Il record è visualizzato "ID"  e "Dato".
>>
>> Come fare?
>>
>> ciao Sthepan
>
> Se la ListBox non è a selezione Multipla fai così:
>
> CurrentDb.EXECUTE "DELETE * FROM NomeTabella " & _
>                   "WHERE [ID]=" & Me!NomeListBox
>
> Se è a selezione Multipla dimmelo.
>
> Ciao
> @Alex
Ciao, ho provato ma mi da errore di compialazione e non capisco perchè
Private Sub IDDeC_DblClick(Cancel As Integer)
    CurrentDb.Execute "DELETE" * FROM tblDecorazioni" &_"WHERE
[IDDecorazioni]=" & Me!IDDeC

End Sub
ciao
Sthepan


author: Karl Donaubauer

text:
Sthepan wrote:
>Roberto da casa ha scritto:
>...
>> DoCmd.RunSQL "DELETE * FROM MiaTabella " _
>> & "WHERE ID = " & Me!Elenco
>> DoCmd.SetWarnings True
>> Me!Elenco.Requery
>
> ho provato il tuo esempio,
> ma mi da errore nella proposizione FROM
>
> Private Sub IDDeC_DblClick(Cancel As Integer)
>    DoCmd.SetWarnings False
>    DoCmd.RunSQL "DELETE * FROM tblDecorazioni" & "WHERE
> IDDecorazioni=" & Me!IDDeC
>
> End Sub
Manca uno spazio tra il nome della tabella e il WHERE.
DoCmd.RunSQL "DELETE * FROM tblDecorazioni" & " WHERE...
Certo manca anche:
DoCmd.SetWarnings True
O invece di SetWarnings qui e qua puoi usare:
Currentdb.Execute "DELETE * FROM tblDecorazioni" & " WHERE...
Vedi anche
www.donkarl.com/it
 FAQ 2.4 Eliminare i messaggi d'avviso.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
 + iscriviti alla prima Conferenza
Italiana per Sviluppatori di Access (CISA 1), Arezzo, 4+5/6/2005


text:
Sthepan wrote:
>Roberto da casa ha scritto:
>...
>> DoCmd.RunSQL "DELETE * FROM MiaTabella " _
>> & "WHERE ID = " & Me!Elenco
>> DoCmd.SetWarnings True
>> Me!Elenco.Requery
>
> ho provato il tuo esempio,
> ma mi da errore nella proposizione FROM
>
> Private Sub IDDeC_DblClick(Cancel As Integer)
>    DoCmd.SetWarnings False
>    DoCmd.RunSQL "DELETE * FROM tblDecorazioni" & "WHERE
> IDDecorazioni=" & Me!IDDeC
>
> End Sub
Manca uno spazio tra il nome della tabella e il WHERE.
DoCmd.RunSQL "DELETE * FROM tblDecorazioni" & _
    " WHERE IDDecorazioni=" & Me!IDDeC
O se già scrivi tutto in una riga:
DoCmd.RunSQL "DELETE * FROM tblDecorazioni WHERE ID...
Certo dopo manca anche:



text:
"Sthepan" <
sth...@supereva.it
> ha scritto nel messaggio
news:1iqawejnqpwkm.t...@40tude.net...

Hai copiato male il mio esempio; aggiungi uno spazio dopo il nome tabella o
prima della parola WHERE.
>
> ciao Sthepan



title: Ciclo for...next

text:
Ciao a tutti i n.g.
In una maschera tipo foglio di lavoro di excel formato da 11 righe e 10
colonne, ho la necessità di visualizzare in colonna solo i numeri che
si ripetono per tre e quattro volte, eliminando quelli singoli e quelli
che si ripetono per due volte.
Public m(11, 10) As Byte
Dim d(11, 10) As Byte
Sub eliminaSingolieDoppi()
Dim i As Integer
Dim j As Integer
Dim k As Integer
    For i = 0 To 9
        For j = 1 To 11
            d(j, i) = 0
        Next
    Next
    For k = 0 To 9
        For i = 1 To 11
            For j = i + 1 To 11
                If m(i, k) = m(j, k) Then
 ' elimino i numeri singoli
                    d(i, k) = m(i, k)
                    d(j, k) = m(i, k)
                End If
            Next
        Next
    Next
    For k = 0 To 9
        For i = 1 To 11
            For j = i + 1 To 11
                If m(i, k) = m(j, k) Then
 ' elimino i numeri doppi
                    d(i, k) = (m(i, k) - d(i, k))
                    d(j, k) = (m(i, k) - d(j, k))
                End If
            Next
        Next
    Next
    For i = 0 To 9
        For j = 1 To 11
            m(j, i) = d(j, i)
        Next
    Next
End Sub
Il problema che non riesco a risolvere è che in questo modo, pur
visualizzando (in colonna) solo i numeri ripetuti tre volte vengono
eliminati i numeri ripetuti quattro volte.
Come posso fare?
BUON 2007  a tutti.
Ciao Vladimiro.


title: Ciclo for...next

author: Alessandro Cara

text:
vlad...@alice.it
 wrote:
[cut]
qual'e' il dominio dei numeri?
--
ac
y-1=x


title: Ciclo for...next

text:
Ciao Alessandro.
Se per dominio dei numeri intendi la provenienza di essi, il modo più
semplice che mi riesce di spiegarlo è così:
Da una maschera principale proveniente dalla tabella"Archivio" dove
visualizzo i 5 numeri del lotto (spero sai qualcosa in merito) per le
11 ruote, apro la maschera in questione implementando i risultati nella
tabella "Somme" in questo modo:
Dim dd As Recordset
    Dim ss As Recordset
Sub generasomme()
    Dim dd As Recordset
    Dim ss As Recordset
    Set dd = CurrentDb.OpenRecordset("Select * from archivio where data
= #" & Format(Me.data, "mm/dd/yyyy") & "#")
    If dd.EOF Then Exit Sub
    popolaMatS dd
    eliminaSingolieDoppi
    CurrentDb.Execute "Delete * from somme"
    Set ss = CurrentDb.OpenRecordset("somme")
    For i = 1 To 11
        If Val(dd(i)) > 0 Then
            ss.AddNew
            ss!data = dd!data
            ss!IdRuota = i
            For j = 1 To 10
                ss(j + 2) = m(i, j - 1)
            Next
            ss.Update
        End If
    Next
End Sub
Dove popalaMats mi somma i numeri ( 11 righe per dieci colonne) in
questo modo:
Sub popolaMatS(ss As Recordset)
    For r = 1 To 11
        If ss(r) <> "0000000000" Then
            str2array (ss(r))
            x = 0
            For i = 1 To 5
                For j = i + 1 To 5
                    m(r, x) = estr(i) + estr(j)
                        If m(r, x) > 90 Then m(r, x) = m(r, x) - 90
                    x = x + 1
                Next
            Next
        Else
            For i = 1 To 10
                m(r, i) = 0
            Next
        End If
    Next
End Sub
Spero di non averti rovinato il capodanno!
Ciao Vladimiro
Alessandro Cara ha scritto:



title: Ciclo for...next

text:
Scusami, avevo dimenticato l'altra Sub.
Public estr(5) As Byte
Sub str2array(s As String)
    Dim i As Integer
    For i = 0 To 4
        estr(i + 1) = Val(Mid(s, i * 2 + 1, 2))
    Next
End Sub
Ciao Vladimiro.
vlad...@alice.it
 ha scritto:



title: Ciclo for...next

text:
vlad...@alice.it
 wrote:
> Scusami, avevo dimenticato l'altra Sub.
Il codice l'ho visto. Per dominio intendo qual'e' l'intervallo di valori
che i tuoi numeri possono assumere. Potrebe cambiare la strategia di
soluzione
--
ac
y-1=x


title: Ciclo for...next

text:
I numeri vanno da 1 a 90. Prendiamo in considerazione una sola colonna
con gli undici campi. Ad es.ruota di Bari n.37 ruota di Genova n.37
ruota di Torino n.37 (fin quì i numeri si visualizzano) ma se subentra
un'altra ruota con il n. 37, i numeri scompaiono; cioè si annullano
come gli altri numeri doppi.
Ciao.
Alessandro Cara ha scritto:



title: Ciclo for...next

text:

Per favore rispondi dopo  il  "quote" (quote=parte del messaggio/i
precedente)
dim nNum(90) as long
for i = 1 to 10
     for x = 1 to 11
         myIndex = myArray(i,x)
	nNum(myIndex) = nNum(myIndex) + 1
     next
next
for i = 1 to 90
    if nNum(i) > 2 and nNum(i) < 5 then "questo e' bono il numero e'"  & i
next
--
ac
y-1=x


title: Ciclo for...next

text:
Rispondo a quello che ricevo, non ai post precedenti, è cosi no?
Scusami, mia moglie mi sta tirando per i capelli e non posso neanche
provare quello che mi hai suggerito.
Di nuovo BUON ANNO a tutti voi.
A domani!!!!!!!!!!!!!



title: Ciclo for...next

text:
Scusami Alessandro, perchè hai inserito delle variabili (x) e delle
matrici(myArray) nuove, avendole già  nella routine che ti ho fatto
vedere?
Poi myIndex che cos'è?
if nNum(i) > 2 and nNum(i) < 5 then "questo e' bono il numero e'"  & i
Quì mi esce: errore di compilazione, errore di sintassi.
Ciao Vladimiro.



title: Ciclo for...next

text:
Per favore rispondi dopo  il  "quote" (quote=parte del messaggio/i
precedente)
Adesso ho capito.
Ciao Vladimiro.


title: Ciclo for...next

text:
Non so se c'è stato un malinteso: ho capito il "quote" ma non la
routine che mi hai suggerito!
Ciao Vladimiro.
vlad...@alice.it
 ha scritto:
> Per favore rispondi dopo  il  "quote" (quote=parte del messaggio/i



title: Ciclo for...next

text:
vlad...@alice.it
 wrote:
> Non so se c'è stato un malinteso: ho capito il "quote" ma non la
> routine che mi hai suggerito!
> Ciao Vladimiro.
Oltre la routine neanche il quote. Continui a scrivere in testa al post.
Come vedi io sto scrivendo "dopo"
La routine e' abbastanza semplice.
Non ho ripreso alcuna parte delle tue routines, ho quindi definito nuove
variabili che devono essere prese come linea guida. Puoi assegnare i
nomi che piu' ti garbano
Il quesito era questo:
"Come faccio a rilevare da una matrice bidimensionale (10*11) fatta di
numeri che vanno da 1 a 90 quelli che si ripetono 3 o 4 volte?"
dim nNum(90) as long
dim myIndex as long
'-------Definisco una matrice con 90 caselle
' -----definisco una variabile di lavoro
for i = 1 to 10
     for x = 1 to 11
'  ciclo sulle due dimensioni di matrice
         myIndex = myArray(i,x)
'prelevo il "numero"  presente su una casella di matrice
     nNum(myIndex) = nNum(myIndex) + 1
addiziono 1 alla casella dei 90 usando come indice il numero estratto
     next
next
' scorro la matrice di 90 e per tutte le caselle che contengono il
valore  3 0 4 (numero delle uscite) rilevo il numero che e' pari
all'indice di scorrimento



title: Ciclo for...next

text:
Alessandro Cara ha scritto:
>
vlad...@alice.it
 wrote:
> > Non so se c'è stato un malinteso: ho capito il "quote" ma non la
> > routine che mi hai suggerito!
> > Ciao Vladimiro.
>
> Oltre la routine neanche il quote. Continui a scrivere in testa al post.
> Come vedi io sto scrivendo "dopo"
Anch'io adesso ti sto scrivendo dopo. Non vedo quando l'avrei dovuto
fare se dopo che l'ho capito, non mi hai più risposto!
>
> La routine e' abbastanza semplice.
> Non ho ripreso alcuna parte delle tue routines, ho quindi definito nuove
> variabili che devono essere prese come linea guida. Puoi assegnare i
> nomi che piu' ti garbano
>
> Il quesito era questo:
> "Come faccio a rilevare da una matrice bidimensionale (10*11) fatta di
> numeri che vanno da 1 a 90 quelli che si ripetono 3 o 4 volte?"
>
> dim nNum(90) as long
> dim myIndex as long
> '-------Definisco una matrice con 90 caselle
> ' -----definisco una variabile di lavoro
>
>
> for i = 1 to 10
>      for x = 1 to 11
> '  ciclo sulle due dimensioni di matrice
>          myIndex = myArray(i,x)
Vuoi dire:Public myArray(10,11) as byte ?
> 'prelevo il "numero"  presente su una casella di matrice
>      nNum(myIndex) = nNum(myIndex) + 1
> addiziono 1 alla casella dei 90 usando come indice il numero estratto
>      next
> next
> ' scorro la matrice di 90 e per tutte le caselle che contengono il
> valore  3 0 4 (numero delle uscite) rilevo il numero che e' pari
> all'indice di scorrimento
> for i = 1 to 90
>     if nNum(i) > 2 and nNum(i) < 5 then "questo e' bono il numero e'"  & i
Mi dà tutta la riga in rosso e se provo a lasciare solo la "i" mi esce
l'errore.
> next
>
Ciao Vladimiro
>
> --
> ac
> y-1=x


title: Ciclo for...next

text:
vlad...@alice.it
 wrote:
> Alessandro Cara ha scritto:
>
>>
vlad...@alice.it
 wrote:
>>> Non so se c'è stato un malinteso: ho capito il "quote" ma non la
>>> routine che mi hai suggerito!
>>> Ciao Vladimiro.
>> Oltre la routine neanche il quote. Continui a scrivere in testa al post.
>> Come vedi io sto scrivendo "dopo"
> Anch'io adesso ti sto scrivendo dopo. Non vedo quando l'avrei dovuto
> fare se dopo che l'ho capito, non mi hai più risposto!
capita di non stare attaccato al pc h24
>> La routine e' abbastanza semplice.
>> Non ho ripreso alcuna parte delle tue routines, ho quindi definito nuove
>> variabili che devono essere prese come linea guida. Puoi assegnare i
>> nomi che piu' ti garbano
>>
>> Il quesito era questo:
>> "Come faccio a rilevare da una matrice bidimensionale (10*11) fatta di
>> numeri che vanno da 1 a 90 quelli che si ripetono 3 o 4 volte?"
>>
>> dim nNum(90) as long
>> dim myIndex as long
>> '-------Definisco una matrice con 90 caselle
>> ' -----definisco una variabile di lavoro
>>
>>
>> for i = 1 to 10
>>      for x = 1 to 11
>> '  ciclo sulle due dimensioni di matrice
>>          myIndex = myArray(i,x)
> Vuoi dire:Public myArray(10,11) as byte ?
si
>
>> 'prelevo il "numero"  presente su una casella di matrice
>>      nNum(myIndex) = nNum(myIndex) + 1
>> addiziono 1 alla casella dei 90 usando come indice il numero estratto
>>      next
>> next
>> ' scorro la matrice di 90 e per tutte le caselle che contengono il
>> valore  3 0 4 (numero delle uscite) rilevo il numero che e' pari
>> all'indice di scorrimento
>> for i = 1 to 90
>>     if nNum(i) > 2 and nNum(i) < 5 then "questo e' bono il numero e'"  & i
ohh.... Vladimiro  non conosci la programmazione evidentemente
Nella riga c'e' un errore
if nNum(i) > 2 and nNum(i) < 5 then msgbox "questo e' bono il numero e'"



title: Ciclo for...next

text:
Alessandro Cara ha scritto:
[CUT]
> >>     if nNum(i) > 2 and nNum(i) < 5 then "questo e' bono il numero e'"  & i
>
> ohh.... Vladimiro  non conosci la programmazione evidentemente
> Nella riga c'e' un errore
> if nNum(i) > 2 and nNum(i) < 5 then msgbox "questo e' bono il numero e'"
>   & i
> > Mi dà tutta la riga in rosso e se provo a lasciare solo la "i" mi esce
> > l'errore.
> >> next
> >>
> > Ciao Vladimiro
> --
> ac
> y-1=x
Aaaaaaaaaa adesso è colpa sua che non conosce il codice...!
Beh meno male che l'hai scritto tu...
;-)
@Alex


title: Ciclo for...next

text:
Alessandro Cara ha scritto:
>
vlad...@alice.it
 wrote:
> > Alessandro Cara ha scritto:
> >
> >>
vlad...@alice.it
 wrote:
> >>> Non so se c'è stato un malinteso: ho capito il "quote" ma non la
> >>> routine che mi hai suggerito!
> >>> Ciao Vladimiro.
> >> Oltre la routine neanche il quote. Continui a scrivere in testa al post.
> >> Come vedi io sto scrivendo "dopo"
> > Anch'io adesso ti sto scrivendo dopo. Non vedo quando l'avrei dovuto
> > fare se dopo che l'ho capito, non mi hai più risposto!
> capita di non stare attaccato al pc h24
>
> >> La routine e' abbastanza semplice.
> >> Non ho ripreso alcuna parte delle tue routines, ho quindi definito nuove
> >> variabili che devono essere prese come linea guida. Puoi assegnare i
> >> nomi che piu' ti garbano
> >>
> >> Il quesito era questo:
> >> "Come faccio a rilevare da una matrice bidimensionale (10*11) fatta di
> >> numeri che vanno da 1 a 90 quelli che si ripetono 3 o 4 volte?"
Oltre a rilevarli, li dovrei anche visualizzare, lasciando al posto dei
numeri singoli e doppi, lo 0 (come puoi vedere dalla sub
"EliminaSingolieDoppi")
> >>
> >> dim nNum(90) as long
> >> dim myIndex as long
> >> '-------Definisco una matrice con 90 caselle
> >> ' -----definisco una variabile di lavoro
> >>
> >>
> >> for i = 1 to 10
> >>      for x = 1 to 11
> >> '  ciclo sulle due dimensioni di matrice
> >>          myIndex = myArray(i,x)
> > Vuoi dire:Public myArray(10,11) as byte ?
E' vero che le variabili e le matrici le posso chiamare come voglio,
però se non gli do lo stesso valore della sub "Popolamats" non
implemento il risultato voluto e mi fa vedere la maschera o con tutte
le caselle piene di numeri o completamente vuota (tutti 0). Peccato non
posso farti degli esempi concreti per dimostrarti che tra Public
m(10,11) as byte e Public d(10,11)as byte , sempre nel caso mio, c'è
una bella differenza.
>
> si
>
> >
> >> 'prelevo il "numero"  presente su una casella di matrice
> >>      nNum(myIndex) = nNum(myIndex) + 1
> >> addiziono 1 alla casella dei 90 usando come indice il numero estratto
> >>      next
> >> next
> >> ' scorro la matrice di 90 e per tutte le caselle che contengono il
> >> valore  3 0 4 (numero delle uscite) rilevo il numero che e' pari
> >> all'indice di scorrimento
> >> for i = 1 to 90
> >>     if nNum(i) > 2 and nNum(i) < 5 then "questo e' bono il numero e'"  & i
>
> ohh.... Vladimiro  non conosci la programmazione evidentemente
> Nella riga c'e' un errore
> if nNum(i) > 2 and nNum(i) < 5 then msgbox "questo e' bono il numero e'"
>   & i
non pensavo certo ci volessi mettere un msgbox, anche perchè, che ci
faccio?
Comunque ho provato con un'estrazione dove il risultato in tutto il
"tabellone" è solo il n.61 ripetuto tre volte, ma l'msgbox mi dà
altri risultati.
> > Mi dà tutta la riga in rosso e se provo a lasciare solo la "i" mi esce
> > l'errore.
> >> next
> >>
> > Ciao Vladimiro
>
Se pensi di aver pazienza (anche rivolto agli altri), posso più
dettagliatamente riepilogare il tutto perchè ho la vaga sensazione di
non essere riuscito a spiegare bene il programma.
Grazie comunque vada.
Vladimiro
>
>
> --
> ac
> y-1=x


title: Ciclo for...next

text:
vlad...@alice.it
 wrote:
> Alessandro Cara ha scritto:
[cut]
>>> Ciao Vladimiro
> Se pensi di aver pazienza (anche rivolto agli altri), posso più
> dettagliatamente riepilogare il tutto perchè ho la vaga sensazione di
> non essere riuscito a spiegare bene il programma.
> Grazie comunque vada.
Il tuo problema lo hai esposto correttamente. Mi sembra abbastanza chiaro.
"Il fatto e'" (*) che il mio esempio voleva essere  una indicazione di
massima  di come risolvere il problema. Tra l'altro non avevo messo la
msgbox proprio ad indicare che in quel punto potevi fare quello che
ritenevi opportuno. Per quanto riguarda il problema dell'azzeramento
delle caselle con uscite < 3 o > 4 e' sufficiente inserire 0 nella
casella corrispondente sulla else della if (qui non ho compreso la
esigenza).
Mediamente sul NG si risolvono le situazioni a livello logico, la
scrittura del codice e la applicazione della soluzione deve essere a
carico del richiedente. Nel caso si richieda la "soluzione finale"
trattasi di "prestazione professionale" che segue altre regole.
Ho riguardato il codice. Posso aver sbagliato, non e' che abbia fatto
test di funzionamento, ma non mi sembra di aver commesso errori logici.
Se il risultato che da' non e' conforme a quanto aspettato i casi sono:
1) Il codice e' errato in qualche sua parte (49%)
2) Le verifiche da te fatte sono errate (50%)
3) Hai fatto qualche "piccola" modifica che ha incasinato il codice (1%)
Nota:(*) "che sempre allegri bisogna stare che il nostro piangere fa
male al re, fa male al ricco e al cardinale...(etc)" (Jannaci-Fo "Ho
visto un re")
--
ac
y-1=x


title: Ciclo for...next

text:
Alessandro Cara ha scritto:
>
vlad...@alice.it
 wrote:
> > Alessandro Cara ha scritto:
> [cut]
> >>> Ciao Vladimiro
> > Se pensi di aver pazienza (anche rivolto agli altri), posso più
> > dettagliatamente riepilogare il tutto perchè ho la vaga sensazione di
> > non essere riuscito a spiegare bene il programma.
> > Grazie comunque vada.
>
> Il tuo problema lo hai esposto correttamente. Mi sembra abbastanza chiaro.
> "Il fatto e'" (*) che il mio esempio voleva essere  una indicazione di
> massima  di come risolvere il problema. Tra l'altro non avevo messo la
> msgbox proprio ad indicare che in quel punto potevi fare quello che
> ritenevi opportuno. Per quanto riguarda il problema dell'azzeramento
> delle caselle con uscite < 3 o > 4 e' sufficiente inserire 0 nella
> casella corrispondente sulla else della if (qui non ho compreso la
> esigenza).
>
> Mediamente sul NG si risolvono le situazioni a livello logico, la
> scrittura del codice e la applicazione della soluzione deve essere a
> carico del richiedente. Nel caso si richieda la "soluzione finale"
> trattasi di "prestazione professionale" che segue altre regole.
>
> Ho riguardato il codice. Posso aver sbagliato, non e' che abbia fatto
> test di funzionamento, ma non mi sembra di aver commesso errori logici.
Assolutamente, anzi sei stato molto cortese nello spiegare in maniera
dettagliata.
Peccato(per me) che non siamo riusciti ad imbroccare la strada giusta.
Ciao



title: Ciclo for...next

text:
Alessandro Cara ha scritto:
> [cut]
> Nota:(*) "che sempre allegri bisogna stare che il nostro piangere fa
> male al re, fa male al ricco e al cardinale...(etc)" (Jannaci-Fo "Ho
> visto un re")
>
> --
> ac
> y-1=x
"Povero re.... e povero il suo cavallo...."... ma non ci stava male
anche qualla del Magnifico L.
@Alex


title: weekdayname non funziona più

author: daniele

text:
Salve a tutti
In una query avevo inserito la funzione weekdayname che dal numero del
giorno della settimana mi ricavava il nome del giorno e funzionava a
meraviglia.
Ora che mi hanno cambiato il pc e da windows 98 sono passato a xp ogni volta
che cerco di aprire la query un messaggio mi dice che la funzione è
sconosciuta.
Cosa è successo? come posso fare per ovviare al problema?
Grazie a tutti quelli che mi vorranno aiutare....ciao


weekdayname non funziona più


title: weekdayname non funziona più

author: Lorenzo(pyx)

text:

Ciao,
prova a vedere a questa KB
http://support.microsoft.com/kb/225956/en-us
Al limite puoi sempre creare una funzione che restituisce il giorno
e quindi usare la nuova funzione all'interno della query, ad esempio:
Public Function GiornoE(gr%)
GiornoE = Choose(gr, "Lunedi", "Martedi", "Mercoledi", "Giovedi", "Venerdi",
"Sabato", "Domenica")
End Function
Ciao
--
Lorenzo


title: weekdayname non funziona più

text:
Ti ringrazio per l'aiuto però io non
sono un grande esperto di access.

Questa funzione dove dovrei inserirla?

Forse nel mio primo messaggio non mi
sono spiegato bene.

La mia è una query di selezione dove
da una tabella ho preso il campo "data" e l'ho utilizzato per
ottenere i seguenti valori:

Settimana:Format([data];"ii";2;0)

NumGiorno:Format([data];"i"2;0)

Giorno:WeekdayName([NumGiorno];0)

Dal:([data]-[NumGiorno]+1)

Al:([Dal]+5)

Tutti esempi presi dai link indicati
dal sito comune

Devo convertire la query in VBA? Come
faccio?

grazie di nuovo.........ciao


title: weekdayname non funziona più

text:
ca...@flag.it
 wrote:
> Ti ringrazio per l'aiuto perň io non sono un grande esperto di access.
> Questa funzione dove dovrei inserirla?
> Forse nel mio primo messaggio non mi sono spiegato bene.
> La mia č una query di selezione dove da una tabella ho preso il campo
> "data" e l'ho utilizzato per ottenere i seguenti valori:
> Settimana:Format([data];"ii";2;0)
> NumGiorno:Format([data];"i"2;0)
> Giorno:WeekdayName([NumGiorno];0)
> Dal:([data]-[NumGiorno]+1)
> Al:([Dal]+5)
> Tutti esempi presi dai link indicati dal sito comune
> Devo convertire la query in VBA? Come faccio?
> grazie di nuovo.........ciao
Ciao,
Vai nella sezione moduli, fai un copia incolla della funzione in un nuovo
modulo che puoi salvare con qualsiasi nome ma diverso dal nome
della funzione .
Nella query puoi sostituire la chiamata alla funzione:
> Giorno:WeekdayName([NumGiorno];0)
diventa
Giorno:GiornoE([NumGiorno])
--
Lorenzo


title: weekdayname non funziona più

text:
funziona perfettamente.............mille
grazie di nuovo

ciao


title: stringa Euro

author: comune anguillara

text:
salve ho un piccolo problema uso regolarmente la funzione che mi restituisce
la stringa da un valore in lire,(ora mi da 100.000 = centomila/ ) quella sul
sito comune per capirci, come faccio per adattarla all'euro?
mi potete aiutare? vi ringrazio in anticipo
Giorgio


title: stringa Euro

text:
comune anguillara <
angui...@tiscalinet.it
> wrote in message
9s5lcr$ghi$1...@pegasus.tiscalinet.it...

100.000 lire  = centomila lire
100.000 euro = centomila euro
Antonio


title: stringa Euro

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:qatF7.18624$sq5.9...@news.infostrada.it...

> scusa e i decimali??
34,38 euro come faccio a scrivere ? trentaquatto,trentotto
Giorgio


title: stringa Euro

author: Roberto dal portatile

text:
"comune anguillara" <
angui...@tiscalinet.it
> ha scritto nel messaggio
news:9s5o8i$ht0$1...@pegasus.tiscalinet.it...

Se usi la vesione aggiornata che si trova ora sul Sito Comune non dovresti
avere problemi: ti restituirą trentaquattro/38 , che sembra sia una forma
corretta: puņ scrivere anche in varie lingue, oltre all'italiano.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: stringa Euro

text:
comune anguillara <
angui...@tiscalinet.it
> wrote in message
9s5o8i$ht0$1...@pegasus.tiscalinet.it...

Veramente i decimali di valuta, da che mondo è mondo, non si traducono in
lettere...
Antonio


title: stringa Euro

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:hMuF7.19050$sq5.9...@news.infostrada.it...

vero! scusate la mia ignoranza ma ho risolto con l'ultima versione trovata
sul sito comune ora è tutto a posto grazie siete tutti molto gentili


title: Riga maschere continue

text:
Avrei bisogno di sapere qual'è il record sotto il puntatore del mouse in una
maschera continua, qualche idea per come fare?


title: Riga maschere continue

author: Sergio MAZZA

text:
"N@dir" <
s.nadi...@libero.it
> ha scritto nel messaggio
news:47316f2b$0$4791$4faf...@reader4.news.tin.it...
> Avrei bisogno di sapere qual'è il record sotto il puntatore del mouse in
> una maschera continua, qualche idea per come fare?
Traduci: "...il record sotto il puntatore del mouse..."...
Ciao.
--
Sergio MAZZA


title: Riga maschere continue

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:fgrtjd$dqe$1...@tdi.cu.mi.it...

nelle maschere continue se ad esempio metto un solo textbox avro una singola
colonna di textbox, ognuno corrispondente ad un record, se io sono con il
mouse sul primo controllo, sarà il record uno, se la freccetta del mouse
sarà sul secondo controllo vuol dire che sono sul record 2....


title: Riga maschere continue

text:
"N@dir" <
s.nadi...@libero.it
> ha scritto nel messaggio
news:47317e55$0$17950$4faf...@reader1.news.tin.it...
>
> nelle maschere continue se ad esempio metto un solo textbox avro una
> singola colonna di textbox, ognuno corrispondente ad un record, se io sono
> con il mouse sul primo controllo, sarà il record uno, se la freccetta del
> mouse sarà sul secondo controllo vuol dire che sono sul record 2....
E quindi?
Ciao.
--
Sergio MAZZA


title: Riga maschere continue

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:fgs0ef$ha6$1...@tdi.cu.mi.it...

quindi in base a dove si trova il puntatore del mouse voglio sapere a che
record corrisponde il controllo sottostante!


title: Riga maschere continue

text:
"N@dir" <
s.nadi...@libero.it
> ha scritto nel messaggio
news:4731893d$0$17952$4faf...@reader1.news.tin.it...
>
> quindi in base a dove si trova il puntatore del mouse voglio sapere a che
> record corrisponde il controllo sottostante!
Cioé? Vuoi vedere il numero del record passando col mouse sopra un
controllo?
L'utilità non la vedo; se viene cancellato un record o solo modificato
l'ordinamento, il numero non ti indicherà più nulla di significativo.
Comunque non ne ho idea se si possa fare, almeno con i mezzi "tradizionali"
o quelli che conosco io.
Quindi passo...
Ciao.
--
Sergio MAZZA


title: Riga maschere continue

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:fgs2e6$js7$1...@tdi.cu.mi.it...

nel controllo sotto il mouse ho un ID e devo visualizzare un tooltiptext con
la descrizione corrispondente solo che non posso associare tooltip diversi
allo stesso controllo di record diversi...


title: Riga maschere continue

text:
"N@dir" <
s.nadi...@libero.it
> ha scritto nel messaggio
news:473199f5$0$36438$4faf...@reader5.news.tin.it...
>
> nel controllo sotto il mouse ho un ID e devo visualizzare un tooltiptext
> con la descrizione corrispondente solo che non posso associare tooltip
> diversi allo stesso controllo di record diversi...
Non è quello il problema perché l'istruzione potrebbe essere:
Me!nomeControllo.ControlTipText = Me!id
Ma lo dovresti associare all'evento che "legge" la posizione del mouse e in
una maschera continua, e la cosa (per me) risulta problematica...
Ciao.
--
Sergio MAZZA


title: Riga maschere continue

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:fgs791$qpq$1...@tdi.cu.mi.it...

con Me!nomeControllo.ControlTipText = Me!id ottengo l'ID della riga
selezionata e non quella su cui mi trovo, è ptroprio questo il problema!


title: Riga maschere continue

text:
N@dir wrote:
>
> con Me!nomeControllo.ControlTipText = Me!id ottengo l'ID della riga
> selezionata e non quella su cui mi trovo, è ptroprio questo il
> problema!
Non mi sono capito.
Access, visualizza il tooltip solo del record che ha il focus. Quindi, su
una maschera continua se sposti il mouse su un record che non ha il fuoco,
vedrai il tooltip del record che ha il fuoco.
Non è un problema del codice di esempio, è un problema di funzionalità di
access che non prevede quello che chiedi...
Ciao.
--
Sergio MAZZA


title: Riga maschere continue

author: Gabriele Bertolucci

text:
> Access, visualizza il tooltip solo del record che ha il focus. Quindi, su
> una maschera continua se sposti il mouse su un record che non ha il fuoco,
> vedrai il tooltip del record che ha il fuoco.
> Non è un problema del codice di esempio, è un problema di funzionalità di
> access che non prevede quello che chiedi...
Il problema nasce dal fatto che, in una maschera continua, Access non
gestisce la multiistanza dei controlli visualizzati per ogni record, quindi
il tooltip, una volta impostato in qualche modo via codice (ammesso anche
di avere il codice che recupera il record sopra il quale si trova il mouse
in ogni momento), mantiene quell'impostazione per tutti i record
visualizzati.
E' lo stesso problema che si riscontra provando a formattare il layout di
un controllo in una maschera a schede continue: la modifica si ripercuote
su tutti i record visualizzati.
Credo anche che il problema non possa essere risolto nemmeno utilizzando i
moduli di Classe perché, allo stesso modo, Access creerebbe una sola
istanza: quella per il record corrente.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: Riga maschere continue

text:
On 7 Nov, 08:54, "N@dir" <
s.nadirNOS...@libero.it
> wrote:
> Avrei bisogno di sapere qual'è il record sotto il puntatore del mouse in una
> maschera continua, qualche idea per come fare?
La cosa è possibile se ho captio bene, io sono riuscito a farlo ma è
un pò complesso, si tratta di usare qualche secchio di API
ma se scarichi questo mio DEMO lo trovi già fatto.
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=284
Se non hai una buona dimestichezza con la programmazione e con le API
avrai vita dura.
@Alex


title: Chiarimento su data

author: Maurizio

text:
Salve a tutti, ho creato un piccolo gestionale in cui registrare tutte le
spese mediche sostenute nell'acro dell'anno(visite specialistiche, ticket
medicinali ecc) e dopo aver creato il report di stampa mi sono chiesto: è
possibile impostare come campo iniziale di selezione delle spese, il primo
giorno dell'anno corrente?
Ringraziando per la spiegazione
Maurizio


title: Chiarimento su data

text:
"Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
news:JzVU9.3614$ZE.9...@twister2.libero.it...
> Salve a tutti, ho creato un piccolo gestionale in cui registrare tutte le
> spese mediche sostenute nell'acro dell'anno(visite specialistiche, ticket
> medicinali ecc) e dopo aver creato il report di stampa mi sono chiesto: č
> possibile impostare come campo iniziale di selezione delle spese, il primo
> giorno dell'anno corrente?
> Ringraziando per la spiegazione
> Maurizio
>
Scusate il post, ma ragionandoci ci sono arrivato
="01/01/" & Right(Date();4)
Saluti a tutti, comunque č bello sapere che qualcuno ti spinge a migliorare
Maurizio


title: Chiarimento su data

author: Carlo Costarella

text:
"Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
news:JzVU9.3614$ZE.9...@twister2.libero.it...

Forse non ho capito...
comunque: TuoControllo = "01/01/" & format(TuaData,"aaaa").
Lo stesso per una eventuale ricerca senza dimenticare i cancelletti prima e
dopo (#) se il campo ha un formato data.
Ciao, Carlo


title: Chiarimento su data

text:
"Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
news:LNVU9.3663$ZE.1...@twister2.libero.it...

Da come hai scritto usi il valore in un controllo.
In questo caso potrebbe non funzionarti a runtime specie se distribuisci un
file .mde.
Ti consiglio di impostare il valore da codice e usare la formula:
TuoControllo = "01/01/" & format(TuaData,"aaaa")
pittosto che ="01/01/" & Right(Date();4). Infatti non sempre Right(Date(),4)
restituisce le 4 cifre dell'anno.
Ciao, Carlo


title: Chiarimento su data

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:1UVU9.38600$AA2.1...@news2.tin.it...
>
> "Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
> news:LNVU9.3663$ZE.1...@twister2.libero.it...
> > "Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
> > news:JzVU9.3614$ZE.9...@twister2.libero.it...
> > > Salve a tutti, ho creato un piccolo gestionale in cui registrare tutte
> le
> > > spese mediche sostenute nell'acro dell'anno(visite specialistiche,
> ticket
> > > medicinali ecc) e dopo aver creato il report di stampa mi sono
chiesto:
> è
> > > possibile impostare come campo iniziale di selezione delle spese, il
> primo
> > > giorno dell'anno corrente?
> > > Ringraziando per la spiegazione
> > > Maurizio
> > >
> > Scusate il post, ma ragionandoci ci sono arrivato
> > ="01/01/" & Right(Date();4)
> > Saluti a tutti, comunque è bello sapere che qualcuno ti spinge a
> migliorare
> > Maurizio
> >
> >
>
> Da come hai scritto usi il valore in un controllo.
> In questo caso potrebbe non funzionarti a runtime specie se distribuisci
un
> file .mde.
> Ti consiglio di impostare il valore da codice e usare la formula:
> TuoControllo = "01/01/" & format(TuaData,"aaaa")
> pittosto che ="01/01/" & Right(Date();4). Infatti non sempre
Right(Date(),4)
> restituisce le 4 cifre dell'anno.
>
> Ciao, Carlo
>
L'applicativo è stato costruito unicamente per me, e quindi per il momento
non ho intenzione non solo di distribuirlo, ma neanche di farne troppa
pubblicità. Comunque grazie per le tue precisazioni.
Maurizio


title: Chiarimento su data

author: Enrico T.S.

text:
[cut]
>
> Da come hai scritto usi il valore in un controllo.
> In questo caso potrebbe non funzionarti a runtime specie se distribuisci
un
> file .mde.
> Ti consiglio di impostare il valore da codice e usare la formula:
> TuoControllo = "01/01/" & format(TuaData,"aaaa")
> pittosto che ="01/01/" & Right(Date();4). Infatti non sempre
Right(Date(),4)
> restituisce le 4 cifre dell'anno.
>
> Ciao, Carlo
>
>
A titolo puramente formale vi rammento anche
la funzione Year() che ritorna l'anno di un campo data.
Cosi come Day() e Month()
bye :o)


title: Catturare testi browser, così come sono

author: MC

text:
Salve, ho sviluppato una procedura che sulla base delle parole chiavi
apre apre la pagina dei risultati come da esempio che segue:
http://www.google.it/search?as_q=target+sms&hl=it&num=100&btnG=Cerca+con+Google&as_epq=&as_oq=&as_eq=&lr=lang_it&cr=&as_ft=i&as_filetype=&as_qdr=m&as_occt=any&as_dt=i&as_sitesearch=&as_rights=&safe=images
Ho una procedura che recupera l'html della pagina, però mi prende
proprio tutto, tag, header, body e compagnia bella...volevo sapere se
da codice esiste un modo per "catturare" solo il testo che vedo in
risposta alla mia query di interrogazione.
Grazie e buon proseguimento,
MCX


title: Catturare testi browser, così come sono

author: Pablitomf

text:
MC ha scritto:
> Salve, ho sviluppato una procedura che sulla base delle parole chiavi
> apre apre la pagina dei risultati come da esempio che segue:
>
http://www.google.it/search?as_q=target+sms&hl=it&num=100&btnG=Cerca+con+Google&as_epq=&as_oq=&as_eq=&lr=lang_it&cr=&as_ft=i&as_filetype=&as_qdr=m&as_occt=any&as_dt=i&as_sitesearch=&as_rights=&safe=images
> Ho una procedura che recupera l'html della pagina, per� mi prende
> proprio tutto, tag, header, body e compagnia bella...volevo sapere se
> da codice esiste un modo per "catturare" solo il testo che vedo in
> risposta alla mia query di interrogazione.
> Grazie e buon proseguimento,
Si, sar� pure bello sapere "cosa f�", ma per risponderti, dovremmo capire
"come fai" a fare quello che fai... ;)
--
Ciao
Pablitomf
----------------------------
http://www.accessgroup.it/
----------------------------
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.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Catturare testi browser, così come sono

author: Mauro

text:
[cut]
Giusto!
Private Sub Comando0_Click()
   Dim oHttp As Object
    Dim txtRequestString As String
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    txtRequestString = Me!Testo3
    oHttp.Open "GET", txtRequestString, False
    oHttp.send
    txtHTML = oHttp.responseText
End Sub
MCX


title: Catturare testi browser, così come sono

text:
Mauro ha scritto:
> [cut]
> Giusto!

> End Sub
Azzzzzz... hai preso il mio esempio di Accessgroup! :D
Me!Testo3 credo sia il link alla pagina...
Vabb�, quindi valorizzi cos� txtHTML, e del contenuto cosa vuoi farne?



title: Catturare testi browser, così come sono

text:
[cut]
Il mitico access group!
Ecco, avrei bisogno di tabellare i dati di risposta della pagina
google a seguito dell'invio del link citato nel primo post.
Poi all'interno di questi dati dovrei effettuare una serie di
controlli come ad esempio:
1. Verifica presenza della parola "abc" nei singoli contenuti (da
eseguire per più parole)
2. Sulla base dei risultati del punto 1 andare a generare dei grafici
Il mio problema è gestire questi risultati (intendo quelli ottenuti in
google) in modo tale da poterli:
1. trovare "leggibili" in tabella
2. il TOP sarebbe un record per ogni risultato ... la mia query mostra
i top 100 di periodo, quindi al massimo dovrei ottenere 100 record
Scusa se lascio trascorrere del tempo fra una risposta e l'altra ma
sono spesso fuori sede.
Buona giornata,
MCX


title: Catturare testi browser, così come sono

text:
Mauro ha scritto:
> [cut]
> Il mitico access group!
> Ecco, avrei bisogno di tabellare i dati di risposta della pagina
> google a seguito dell'invio del link citato nel primo post.
> Poi all'interno di questi dati dovrei effettuare una serie di
> controlli come ad esempio:
> 1. Verifica presenza della parola "abc" nei singoli contenuti (da
> eseguire per pi� parole)
> 2. Sulla base dei risultati del punto 1 andare a generare dei grafici
> Il mio problema � gestire questi risultati (intendo quelli ottenuti in
> google) in modo tale da poterli:
> 1. trovare "leggibili" in tabella
> 2. il TOP sarebbe un record per ogni risultato ... la mia query mostra
> i top 100 di periodo, quindi al massimo dovrei ottenere 100 record
> Scusa se lascio trascorrere del tempo fra una risposta e l'altra ma
> sono spesso fuori sede.
Se tu hai letto bene il mio esempio al link :
http://www.accessgroup.it/HomeArgomenti.asp?ID=120&Oggetto2=Recuperare%20DATI%20da%20SERVER%20REMOTO
avrai notato gi� nel titolo "Recuperare DATI da SERVER REMOTO" una sorta
di risposta a ci� che chiedi...
praticamente il mio codice altro non f� che recuperare in una variabile
locale il contenuto di "qualcosa" da remoto... che sia un remoto pubblico
(web) o privato (propria intranet).
Nel mio caso necessitavo acquisire una "data certa" dal mio webserver
affinch� rispettassi lo scopo del mio demo. Per cui avevo preparato ad hoc
il mio file asp che rispondeva proprio alle mie esigenza... processava la
data del server e me la riproponeva come risultato. Ecco perch� ottenevo
nella mia variabile esclusivamente quel che cercavo in risposta al mio
problema.
Il tuo problema per� a st� punto � un tantinino diverso... tu non puoi con
questo metodo avere ci� che cerchi in maniera diretta e nativa, perch�
stai utilizzanto mezzi altrui (non il mio codice s'intenda, ma la pagina
google), costruito con logiche e obbiettivi che giustamente rispondono
alle loro esigenze e non alle tue.
Ecco che allora, la tua variabile si popola di tutto il risultato html
della pagina in questione.
Praticamente tu da questo punto dovresti partire per avere ci� che
richiedi.
Dovresti crearti una function di PARSE, che rispecchi il tuo "modello di
ricerca"...
Avere ci� che chiedi (tipo ogni risultato in un record) potrebbe essere
anche fattibile se ti studi la struttura della pagina, ma avrebbe dei
limiti insiti in s� stessa :
1) dovresti costruire un PARSE per ogni tipologia di pagina che intendi
tirar gi� (google sar� strutturata in un modo, virgilio in un altro, yahoo
in un altro ancora)...cosa che mi f� rabbrividire (ma se � solo di google
che ti interessa, � anche pensabile)
2) dovresti "star dietro" alle variazioni che eventualmente lo staff
google apporta alle sue pagine (oggi funzionerebbe, domani no)
Ti ho fatto passare la voglia? :D



title: Catturare testi browser, così come sono

text:
[cut]
> Ti ho fatto passare la voglia? :D
Assolutamente no!
Devo solo capire come meglio organizzare questa attività di "copia
incolla" lato web!
MCX


title: Catturare testi browser, così come sono

text:
[cut]
Dici che sarebbe possibile da codice, lanciare il copia\incolla da
browser verso una tabella o anche xls esterno della pagina risultati
di google?
MCX


title: Catturare testi browser, così come sono

text:
Mauro ha scritto:
> [cut]
> Dici che sarebbe possibile da codice, lanciare il copiaincolla da
> browser verso una tabella o anche xls esterno della pagina risultati
> di google?
Ma scusa, una volta che hai valorizzato una variabile, dei dati che son
contenuti, puoi farne ci� che ti pare... quindi si.



title: strano errore

text:
in una maschera sull'evento click di un pulsante "salva" faccio
verificare il seguente codice:
...
On Error GoTo Err_Comando15_Click
If data_contabile < data_operazione Or data_operazione < "31/12/1994" Or
data_operazione > Now() Or data_contabile < "31/12/1994" Or
data_contabile > Now() Then
messaggio = MsgBox("La data immessa" & " " & data_contabile & " " & "non
è corretta!", vbCritical, "! A T T E N Z I O N E !")
Else
DoCmd.RunSQL sql
Form_frm_master!contenitore!elenco.Requery
Form_frm_master!contenitore!totali.Requery
messaggio = MsgBox("movimento registrato correttamente!", vbInformation,
"REGISTRAZIONE")
DoCmd.Close
End If
Exit_Comando15_Click:
     Me.Undo
     Exit Sub
Err_Comando15_Click:
     MsgBox Err.Description
     Resume Exit_Comando15_Click
End Sub
Il tutto funzione fino ad un certo punto in quanto nel momento in cui la
maschera si dovrebbe chiudere una volta verificate le varie condizioni
(if), mi esce il seguente errore:
"l'oggetto a cui si fa riferimento nell'espessione è stato chiuso o
eliminato"
Che significa?


title: strano errore

text:
In news:44f0b44e$0$47974$
4faf...@reader3.news.tin.it
,
Maurizio <*@.it> typed:
> in una maschera sull'evento click di un pulsante "salva" faccio
> verificare il seguente codice:
[...]
> messaggio = MsgBox("movimento registrato correttamente!",
> vbInformation, "REGISTRAZIONE")
> DoCmd.Close
Exit Sub
>
> End If
>
> Exit_Comando15_Click:
>     Me.Undo
>     Exit Sub
[...]
Ciao,
--
Lorenzo


title: Mio 1° lavoro in Access

text:
Salve a tutti.
Vorrei fare 1 tabella con gli ordini presi ed una con gli ordini
realizzati.
Una maschera per inserire i dati con un pulsante che mi fa passare un
ordine una volta realizzato dalla 1° tabella alla 2°.
Le tabelle devono avere i seguenti campi:  idordine,cliente,dt
ordine,dt consegna, articolo,montatore.
Qualcuno mi sa dire come iniziare?
Grazie


title: Mio 1° lavoro in Access

author: Pablitomf (Maurizio Facciuti)

text:
amb32326 ha scritto:

Iniziamo con il darti il Benvenuto.
Prima di tutto un consiglio generale... per evitare errori o
fraintendimenti nell'utilizzo di questo fantastico strumento dell'NG, ti
consiglio di leggerne prima la netiquette...
http://www.sitocomune.com/
(sez. ICAA)...
a noi...
Io non credo tu abbia bisogno di 2 tabelle, ma di una sola... con
l'aggiunta di un campo di spunta per gli ORDINI PRESI...
ovvero, da una stessa tabella potrai sapere quali di essi sono stati
ORDINI fine a se stessi o ORDINI PRESI.
Se non sono stato chiaro sono quì.
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------
http://www.accessgroup.it/
----------------------------
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.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Mio 1° lavoro in Access

author: manula

text:
Ma, potresti semplicemente mettere uno stato di evasione dell'ordine.
Ossia una campo evaso che venga compilato automaticamente su qta
richiesta == qta evasa oppure che venga compilato manualmente es
tramite checkbox.
Così hai un unica tabella da gestire.
Nella maschera puoi quindi, in apertura, filtrare i dati per ordini non
ancora evasi, e mettere a disposizione un pulsante per modificare il
filtro e visualizzare quelli ancora da evadere.


title: Mio 1° lavoro in Access

text:
"Pablitomf (Maurizio Facciuti)" <
maurizio...@accessgroup.it
> ha scritto
nel messaggio news:efd8va$58l$1...@news.newsland.it...
>
> Iniziamo con il darti il Benvenuto.
Bene.
> a noi...
Azz...
> Se non sono stato chiaro sono quì.
Aho'! Chiarissimo!
> --
> Ciao
> Pablitomf (Maurizio Facciuti)
> Access : Ver.97 - 2K
>
> ----------------------------
>
http://www.accessgroup.it/
> ----------------------------
Ciao.
--
Sergio MAZZA


title: Mio 1° lavoro in Access

author: cidi

text:
"amb32326" <
au...@aertecno2.com
> ha scritto nel messaggio
news:1159340106....@b28g2000cwb.googlegroups.com...

Ciao amb32326
il mio consiglio, aggiunto agli altri, è quello di studiare il
database di esempio Northwind che trovi nella cartella di installazione
di Office.
Daniele


title: Mio 1° lavoro in Access

text:
manula ha scritto:
> Ma, potresti semplicemente mettere uno stato di evasione dell'ordine.
> Ossia una campo evaso che venga compilato automaticamente su qta
> richiesta == qta evasa oppure che venga compilato manualmente es
> tramite checkbox.
> Cosě hai un unica tabella da gestire.
> Nella maschera puoi quindi, in apertura, filtrare i dati per ordini non
> ancora evasi, e mettere a disposizione un pulsante per modificare il
> filtro e visualizzare quelli ancora da evadere.
Manuč, che fai, duplichi il consiglio? :-D
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------
http://www.accessgroup.it/
----------------------------
Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno



title: Mio 1° lavoro in Access

text:
Sergio MAZZA ha scritto:
[CUT]
> > Se non sono stato chiaro sono quì.
> Aho'! Chiarissimo!
A proposito... ci si vede allo SMAU il Sabato con te, vero? I fratelli
Capone si stanno organizzando da quel di NEAPOLIS, quindi non dire di no,
altrimenti ti prendo lo SCALPO! OPS!!!!! :-D
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------
http://www.accessgroup.it/
----------------------------
