mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Funzionamento di RUNSQL

SELECT Count(anagrafe.codice) AS numcli, settori.descrizion
FROM anagrafe INNER JOIN settori ON anagrafe.settore = settori.codice
WHERE (((anagrafe.codice) Like "C*" And (anagrafe.codice) Not Like
"*L"))
GROUP BY settori.descrizion
ORDER BY settori.descrizion;
Ho tentato di trasformare questa select in un formula, x averla a
portata di mano senza richiamare sempre la query ed ho provato con
Runsql; ho sbattuto il naso contro una miriade di errori.
Non conosco il linguaggio sql di solito mi limito a creare query con
la visualizzazione struttura (infatti ne ho troppe), avete una dritta?
Grazie.


Scusatemi, è una query di selezione, ed un vecchio post di Roberto
 (solo le query di comando possono essere eseguite con il metodo
RunSQL)
mi ha già risposto.
Sono troppo ignorante!
Giuro che mi stampo questa e la studio
http://www.accessgroup.it/Bld_HTML/home.asp
(nei preferiti l'ho rinominata tempo fa "guida oro!").
Ciao

Newsgroup: it.comp.appl.access
Titolo: Creazione bookmark

Salve ;)
Volevo sapere se è possibile creare dei bookmark su un foglio word
direttamente da access e se si possono anche posizionare all'interno
del documento word!
Mi sapete dare qualche dritta?
Un indizio da dove partire? ;)
Grazie!
Lau

Lau ha scritto:

A memoria non ricordo come si fà, ma prova a sfruttare un metodo
semplicissimo quanto efficace...!
Attiva la registrazione MACRO in WORD, creati un Bookmark manualmente,
STOPPA
la registrazione Macro e vai a vedere il codice VBA che è stato
scritto...!
Quello lo puoi usare da Access direttamente...!
@Alex

Alessandro Baraldi ha scritto:

Grazie mille! :)
Ho fatto la macro ora provo a mettere il codice in access x vedere che
mi combina :D

Lau ha scritto:

A quanto pare funziona :)
Ho messo così:
    Doc.Activate
    'Mi crea il nuovo Bookmark Test
    Doc.Bookmarks.Add Range:=Selection.Range, Name:="Test"
    'Lo seleziona
    Doc.Bookmarks("Test").Select
    'Scrive li ciao mondo :P
    Wrd.Selection.TypeText ("Ciao mondo")
Ora cerco di posizionarlo in giro per il foglio word :D
Newsgroup: it.comp.appl.access
Titolo: Problema: accopparsi con NAOMI

Problema:
Ho un Gruppo di Opzioni  a due pulsanti  Sě No.
Ovviamente questo controllo č Associato ad un campo di una Tabella.
E' possibile "automatizzare" queste opzioni e allo stesso tempo renderle
"manuali"?
Mi spiego:
Io devo poter selezionare Sě o No manualmente  e fino a qui ci siamo.
Se perň inserisco una qualsiasi condizione iif, IL CONTROLLO NON E' PIU'
ASSOCIATO!!!
Come si fa a risolvere questo  dilemma??? Come Bypassarlo???
...A volte mi sento un impotente idiota!
Es. Devo registrare tutti gli uomini che vorebbero accoppiarsi con Naomi
Cambel     Controllo = Sě
        E gli uomini che NON vorrebbero accoppiarsi con Naomi Cambel
Controllo= No
Se pero un uomo candidato ad accoppiarsi con Naomi Cambell č brutto; č piů
basso di mt 1,50 e ama "I Cugini di Campagna" NON HA NESSUNA PROBABILITA' DI
ACCOPPIARSI CON NAOMI! Quindi il controllo DEVE automaticamente impostarsi a
NO....
puglis...@hotmail.com


Nell'evento "Prima di aggiornare" della tua maschera vai a vedere se è più
basso di mt 1,50 e ama "I Cugini di Campagna" (naturalmente con delle
funzioni if e non iif) e se le condizioni si verificano setti a False il tuo
Controllo; se preferisci lo puoi fare nell'evento "Dopo aggiornamento" del
campo che ti dice se ama "I Cugini di Campagna", sempre che sia un campo
obbligatorio digitato sempre dopo gli altri due.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


Cavolo! L'avevo detto io di non far vedere le foto del gruppo...
Ciao.

 Di che parli ? quali foto? quale gruppo?  ?:-)  ?:-)   ?:-)  Ciao.


Ma in quale mondo vivi??
Vai sul Sito Comune (il link č qui sotto) e guarda come sono fatte le donne
degli "Accessisti".
Altro che Naomi Cambel che ama "I Cugini di Campagna".
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


Ben detto!
Ciao.
Newsgroup: it.comp.appl.access
Titolo: trasferimento in foglio Excel





Ciao a tutti


ho un piccolo problema in access usando la macro 
per trasferire una query in un file di excel. come devo fare a trasferire i dati 
sullo stesso foglio di excel ma in accodamento con altri dati già inseriti 
?.attualmente la macro mi trasferisce i dati sullo stesso foglio, e la stessa 
posizione. ho cercato anche farlo in codice Vba ma non mi riesce. se qualcuno 
può rispondermi lo ringrazio anticipatamente.  



 ha scritto nel messaggio
news:001801c0b4bc$e35195c0$e7350b3e@e6z7e4...

RISPOSTA:
Non inviare messaggi in formato HTML, grazie.
Qual'è il codice VBA che hai utilizzato? Tanto per farci un'idea...
Comunque potresti fare quello che dici ma risulta laborioso; e se invece di
accodare i dati in excel li accodi prima in una tabella temporanea e poi
spari i dati sul foglio excel?
Ciao.

 Ciao
  Grazie per aver risposto la mia domanda cerco di fare conqueso metodo .Ma
mi semra strano che in vba non si possa fare un cosa simile, comunque il
codice che avevo scritto è il seguente ma non ho pouto implementarlo più di
così : " DoCmd.TransferSpreadsheet acExport, 8, "nome query o tabella",
"Drive", True, (Variable /i).
Se si trova un altro metodo ti sarò grato.
  il messaggio per la verità non so perchè arrivato in html.Io uso formato
testo forse perche lo mandato dal sito Mailgate. Ciao Shari


Ma non utilizzi un server news? Se hai una connessione ad internet gratuita
(e non solo) con (esempio) tiscali o wind il server per leggere le news č
(rispettivamente): 
news.tiscalinet.it
 o 
news.inwind.it
; poi ci sono i server
gratuiti che ora non ricordo ma qualcun'altro qui nell'ng sicuramente lo
utilizza e te lo puň comunicare...
Ciao.

Newsgroup: it.comp.appl.access
Titolo: impossibile aggiornare il recordset... (con tabelle linkate via odbc)... perche' ?

impossibile aggiornare il recordset... (con tabelle linkate via
odbc)... perche' ?
ciao all !
in ufficio ho linkato in un db access alcune tabelle esterne ( su un
server ms sql server 2000 ).
su queste tabelle ho fatto delle query.
ora... noto che quando apro la query, nella barra si stato in basso a
sinistra appare per un attimo una scritta simile a (è velocissima, e
scompare subito , quindi potrei non essere preciso).... "impossibile
aggiornare il recordset"...
credo che abbia a che fare con il modo in cui sono state linkate...
qualcuno potrebbe darmi qualche ragguaglio?
già che ci sono... 
sapreste dirmi come linkare ste tabelle esterne  mettendole in "sola
lettura", per evitare casini imprevisti?
grazie a tutti anticipatamente!

 ha scritto nel messaggio
news:1vj190p0qpt119ur5...@4ax.com...

Hai controllato i permessi ed i Ruoli della connessione....??
Sembra una sciocchezza ma un gg ho impiegato 3 ore
a capire che era quello il Problema.....!!!!
@Alex.

 ha scritto nel messaggio
news:1vj190p0qpt119ur5...@4ax.com...

Controlla anche le primary key  cioe' se la tabella non ne ha e quando hai
linkato non  hai dato un identificatore univoco allora non puoi aggiornare.
Lo stessi dicasi a maggior ragione se si tratta di view
Ciao Nicola
Newsgroup: it.comp.appl.access
Titolo: Compattare BE da FE

Ciao a tutti,
Utilizzando il codice pubblicato sulla FAQ di Federico Luciani 
prelevata dal Sito Comune ho avuto qualche problema che, come 
consigliatomi, ho risolto aggiungento i rigerimenti alla libreira DAO 
al DB e sostituendo la riga:
Dim rs As Recordset
Con
 Dim rs As DAO.Recordset
ora però mi dà il seguente errore:
Errore 3251-Operazione non supportata per questo tipo di oggetto.
Cosa devo fare?
Grazie
Giuseppe
Inviato da 
www.mynewsgate.net

 ha scritto nel messaggio
news:200410081...@mynewsgate.net...

hai inserito i riferimenti DAO
In un modulo
strumenti
riferimenti
Mettili prima di quelli ado
MAssimiliano

 ha scritto nel messaggio
news:6Tw9d.23751$B06....@news.edisontel.com...

Li avovo già aggiunti, ora li ho inseriti prima di quelli ado ma il
messaggio è sempre lo stesso:
Errore 3251-Operazione non supportata per questo tipo di oggetto
Grazie dell'aiuto
ciao

 ha scritto nel messaggio
news:200410081...@mynewsgate.net...

Se non ricordo male non si tratta di CODICE da inserire in VBA, ma
di uno SCRIPT esterno da lanciare pertanto non capisco bene come
relazionare quanto scritto da Federico Luciani con quanto stai chiedendo.
Premetto oltretutto che sempre l'esempio in questione serve per formattare
il FE dallo stesso FE, se devi formattare il BE ti basta usare quanto
scritto
nell'HELP a riguardo del METODO CompactDatabase ovviamente di DAO
l'alternativa è JRO per ADO ma forse mi sfugge qualche cosa.......
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:ck71dc$r7$1...@lacerta.tiscalinet.it...

Intanto grazie,
ci ho dato un'occhiata e studierò, però è possibile "estrarre" da VBA il
percorso ed il nome del BE del database corrente?
Grazie
Ciao
Giuseppe

 Giuseppe
Certo che si.... ci sono più sistemi....!
1)Usare una CHIAVE DI REGISTRO
    checchè se ne dica i REGISTRI servono proprio a questo
2)Usare una Proprietà personalizzata del DATABASE nella quale salvare
    il percorso delle Tabelle(Linkate) che solitamente conviene fare
all'apertura.
3)Aprire un Recordset con le Tabelle Linkate e leggere la Proprietà Connect
    estraendo la Stringa con il PATH del BE.
4)Un file INI nel quale salvi il percorso
Ciao
-- 
@Alex (Alessandro Baraldi)



Tutto troppo in là per me, dovrò rinunciare e studiare ancora parecchio.
grazie
Giuseppe

Newsgroup: it.comp.appl.access
Titolo: Usare TextBox in un Report

Salve,
vorrei creare un Report contenente delle TextBox
che carico all'apertura.
Mi dice sempre che è impossibile assegnare un valore.
Come posso risolvere il problema.
Grazie

 ...
Invece dell'evento "Su Apertura" del report (che è troppo presto)
usi "Su Formattazione" della sezione.
Se non funziona devi rivelare dettagli sul tuo codice e
sulle proprietà delle caselli di testo.
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: Errore importazione file di testo

Salve a tutti,
Ho sviluppato un'applicazione in Access97 che importa ogni giorno dei dati
prelevati da file di testo, creando delle specifiche per ogni tipo di file.
Il codice che ho scritto funziona bene, ma negli ultimi giorni, Access non
vuole saperne + di importare file di testo.
Anche se procedo manualmente, ricevo il messaggio "Impossibile aggiornare.
Database o oggetto di sola lettura (3027)". Questo anche su altri database
creati ex-novo.
Qualche idea in proposito?

 wrote in message
6VYv6.2758$yU4.4...@news.infostrada.it...

L'ultima volta che ho saputo di un applicativo che ha sempre funzionato fino
ad un certo punto e da li' in poi non ha piu' voluto saperne ... ebbene
c'era l'mdb da compattare.
Ciao
Luciana

 ha scritto...

Da questo problema ci sono passato un annetto fa.
Dopo aver installato il Service Pack 3 per il Jet Engine (direttamente o in
seguito ad un'installazione di altri programmi), la libreria MSTEXT35.DLL
funziona diversamente.
L'importazione e l'esportazione su file di testo funzionano solo se il file
ha un'estensione tra: txt , csv, tab, asc, htm, html.
Per intenderci, se nel programma si esegue l'istruzione:
DoCmd.TransferText acExportDelim, "MySpec", "MyTbl", "PIPPO.FIL"
il messaggio di errore che si riceve č:
"Can't Update. Database is read-only. "
L'istruzione va cambiata in:
DoCmd.TransferText acExportDelim, "MySpec", "MyTbl", "PIPPO.TXT"
L'alternativa č di scrivere nel registro di Windows delle chiavi per fargli
accettare altre estensioni. Secondo me, se proprio si vuole utilizzare
un'estensione custom, la via piů semplice č di rinominare il file .TXT dopo
averlo esportato (o prima dell'importazione).
L'articolo della KB Microsoft che descrive il problema (secondo loro č una
miglioria) č:
Article ID: Q239105 Jet 3.5 Text ISAM Allows Users to Append Lines to System
Files
--
Ciao, AntoGal
*************************************************
Gestione punti vendita (casse e pos NCR)
 
www.powerretail.it
-------------------------------------------------------------
per scaricare un gioco di DAMA ITALIANA
http://volftp.mondadori.com/italiani/galletta/
*************************************************

Newsgroup: it.comp.appl.access
Titolo: Errore di Compilazione

Salve a tutti, ho un problema con la compilazione da un file .mdb ad .mde;
il file .mdb funziona bene, in tutte le sue funzioni, ma nel momento di
compilarlo mi esce una finestra con il seguente messaggio:
Errore di compilazione nel modulo nascosto: Form_mMioForm
cosa vuol dire?
Non posso di certo rilasciare il file .mdb, cosa posso fare?
Ringrazio tanto per l'aiuto.
Andrea.

 cosa vuol dire?
Significa che nella form c'è del codice la cui sintassi è sbagliata.
Prova a compilarlo (analisi sintattica) e correggere l'errore!
Antonio
Newsgroup: it.comp.appl.access
Titolo: help !!!

Chi mi puņ aiutare ???
Devo importare una tabella Paradox in access.
Ho sempre fatto : importa ecc. ecc. e ha funzionato.
Adesso invece mi rimanda questo avviso :
Errore non previsto del driver del database esterno <numero errore>. (3275).
cosa vuole dire ?
Cosa faccio ??
Grazie
David 

 David
Ciao David; leggiti le regole di questo NG, le trovi su:
www.sitocomune.com
 - Sezione ICAA - Come comportarsi in questo NG...
Ciao.
-- 
Sergio MAZZA 

> Dove vado? Chi sono? Un fiorino, due fiorini...
Veramente la sequenza del film era: Altola!!!! Chi siete? Dove andate? Cosa 
portate? Si, ma chi siete? Altola!!!!
Mi sto scapicollando dal ridere al solo ricordo.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution

 skype:pbsoftsolution
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: ACCESS - VISUAL BASIC

Buongiorno a tutti,
Sto cercando di fare delle applicazioni in Visual Basic sfruttando gli
archivi creati
con ACCESS, ma mi ritrovo con il seguente problema: Il controllo Data di
Visual Basic mi legge gli archivi di ACCESS97, ma non quelli di ACCESS2000.
Come mai???? (sto usando Visual Basic 6)
Ho fatto le installazioni complete di tutti gli applicativi (Visul Basic è
la versione enterprise)
Grazie a tutti coloro che mi daranno un suggerimento.
Raffaele Alberoni.

 Come mai???? (sto usando Visual Basic 6)
credo ti convenga chiedere sull'NG di VB.
Comunque forse devi installare i service pack (VB SP5 / Office 2k SP2)
Max

 ha scritto nel messaggio
news:VpDN8.33774$5i1.1...@news2.tin.it...

Probabilmente hai usato per la connessione al db il provider oledb microsoft
jet 3.51: prova ad usare il microsoft jet 4.0
ciao
Galliano
Newsgroup: it.comp.appl.access
Titolo: recuperare valori...

ciao,
in una maschera ho un menu a tendina che recuperea i dati da una query, i
valori sono i nomi dei miei clienti.
naturalmente ogni cliente ha un suo ID, e il tutto è presente nella query e
nella tabella 'anagrafica clienti'.
ora nella maschera di cui sopra vorrei che scegliendo il cliente x , il
campo relativo al suo id si aggiornasse....
qualcuno sa come posso fare?
in pratica devo recperare ad ogni chiusura della tendina il valore dell'id
del cliente e farlo apparire a lato....
su northwind non ho trovato niente...
grazie a tutti
confido in voi......

 ha scritto nel messaggio
news:adq4e0$rap$1...@lacerta.tiscalinet.it...

Leggi la mia risposta al messaggio inviato da 
giorgi...@excite.it
 con
oggetto: Casella combinata MALE...
Ciao.
--
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: Flincatura su un report

Buonasera.
Mi presento, sono Stefano e da un pò che utilizzo Access, senza purtroppo
saper scrivere una linea di codice, comunque utilizzando i comandi che ci
sono sono riuscito ad ottenere un applicativo che risponde alle mie esigenze
di gestione della fatturazione e commesse.
Il problema nasce ora in un report, appunto di una fattura.
Imposto le dimensioni della pagina lasciando un buon margine a sinistra e
tuto il corpo della fattura nel corpo rimanente.
Nello spazio rimanente dal margine del foglio e margine sinistro del report
vorrei mettere una serie di caselle di testo che spieghi le attività che
svolgo. Per spiegarmi meglio pensate ad una pagima HTML con 2 frame.
In quello di sinistra c'è la descrizione dell'azienda, il quello di dx il
corpo della fattura.
HO provato ad esportare come HTML e creare un modello HTML e specificarlo ma
non ne vuol sapere di utilizzarlo.
Esporto il report in RTF, lo apro con Word con il normal.dot modificato
all'occorrenza ma nella conversione che mi fa Word non mi compare questo
modello.
Sapete consigliarmi?
Grazie, Stefano

 Grazie, Stefano
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: A97 query di aggiornamento o che altro?

Ciao a tutti. 
Ecco il mio problema
Ho una tabella che si presenta cosě
Campo1    Campo2
A10           A10
1
3
4
17
T1             T1
2
3
....
devo ottenre il seguente risultato
Campo1    Campo2
A10           A10
1                A10
3                A10
4                A10
17              A10
T1             T1
2               T1
3               T1
....             ......
Qualcuno ha qualche idea?
Grazie
Emilio

 ha scritto nel messaggio
news:c0fum9$sm3$1...@newsreader.mailgate.org...

Con una query di aggiornamento non saprei come fare; io in una routine VBA
che fa riferimento a DAO aprirei un recordset sulla tabella, memorizzerei il
valore del Campo2 dei record che ce l'anno significativo, aggiornerei il
valore del Campo2 se Null con il valore memorizzato.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Ho una tabella che si presenta così


 ha scritto nel messaggio
news:c0g9rv$qq3$1...@news.tiscali.fr...
Quando rispondi scrivi DOPO e non prima del testo dei messaggi precedenti.


Newsgroup: it.comp.appl.access
Titolo: Problema data su esportazione query in XML

Come da oggetto con il comado
Application.ExportXML
esporto una query in formato XML
Nella query c'è un campo Data, che nella
tabella è impostato come "Data in cifre"
es. 29/05/2008
Funziona tutto, ma nel file XML esportato
la data compare come:
2008-01-31T00:00:00
Vorrei togliere la parte riguardante l'ora (T00:00:00)
E possibile?
Grazie
WS 


Esporta Format(tuadata;"Formato hce vuoi")
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

Esporta Format(tuadata;"Formato hce vuoi")
Application.ExportXML acExportQuery, Query, Path
questa e la riga di comando che uso per esportare il file
inserita in un modulo.
Non riesco a capire dove devo usare la funzione Format
WS
Newsgroup: it.comp.appl.access
Titolo: Problema ACCESS 97

Ho appena acquistato un PC
nuovo con XPSP2 partizione NTFS
e 1 GIGA di memoria RAM.
Ho installato office 97 su questo PC
però ha un problema:
Access non parte e mi dà un errore:
memoria insufficiente... e si chiude l'applicazione...
(con office 2003 funziona...)
Potrei sapere perchè non funziona ???
Ciao, Davide


ciao davide,
ti prego di usare un subject significativo.
Poi il tuo problema si risolve
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 _ _
**************************
MAssimiliano, grazie per la tua risposta.
Come faccio a risolvere questo problema ??
*****************************************************



davide, copia tutta la richiesta in un post con un subject
"Memoria Insufficiente"
e vedrai che ti verrà data la risposta
-- 
_ _


 >>>
ciao Davide,
mi sembra di capire che hai installato prima Access 2003 e poi la versione
97. Se e cosi devi fare alla rovescia, prima installa 97 e poi 2003.
Versioni multiple sul stesso hard disk fanno certi casini...
Dave
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.appl.access
Titolo: caselle combinate!!

ciao a tutti....
Dove posso trovare informazioni per realizzare una casella combinata dove
selezionando un dato in casella.... automaticamente mi dia un filtro sui
dati di una tabella o query????.
   Grazie anticipate
               Angelo

 dati di una tabella o query????.
E' una delle domande più ricorrenti qua dentro. Ti basta leggere un po' di
thread
Antonio

 ha scritto nel messaggio
news:%D7u9.74497$%M1.18...@twister2.libero.it...


 ha scritto nel messaggio
news:h29u9.74712$%M1.18...@twister2.libero.it...




su evento lostfocus
me.filter= "nomecampo=""" & me.nomecasellacontrollo & """"
Saluti.
Emanuele.

 ha scritto nel messaggio
news:l4qpru0unae9je01s...@4ax.com...

Newsgroup: it.comp.appl.access
Titolo: Selezionare criterio query da maschera

Immetto nel criterio di una query la seguente espressione:
Maschere![Pulsantiera]![sceltaselettiva]
nella speranza che sia imposto il criterio contenuto nella casella combinata
"sceltaselettiva" della maschera "pulsantiera"...
Purtroppo mi compare sempre l'errore: "il modulo di gestione di database
microsoft jet non riconosce ' [Maschere]![Pulsantiera]![sceltaselettiva]'
come nome di campo o espressione valida.
Cosa sto sbagliando?!
Grazie

 ha scritto nel messaggio
news:wCb7a.240768$0v.67...@news1.tin.it...

Giustamente
[forms]![tuaform]![tuocontrollo]
Antonio

 Io ho trovato delle indicazioni qui:
http://support.microsoft.com/support/kb/articles/Q122/2/94.asp?PR=ACC
Ciao

 ha scritto nel messaggio
news:i5k7a.159560$YG2.4...@twister1.libero.it...

Uguale, stesso errore.  :(

 ha scritto nel messaggio
news:r4q7a.244565$0v.68...@news1.tin.it...

Tu cosa hai scritto di grazia?
Antonio


[Query]
 nella casella "criteri" della tabella in cui voglio fare la selezione ho
inserito la tua espressione [forms]![Pulsantiera]![sceltaselettiva]
Pulsantiera e' la maschera e sceltaselettiva la casella combinata che
dovrebbe imporre il criterio...
Non so piu' che fare!

 dovrebbe imporre il criterio...
Ma la maschera pulsantiera è aperta quando lanci la query?
DEVE esserlo!!!
Antonio

Newsgroup: it.comp.appl.access
Titolo: query a campi incrociati

Salve a tutti
Ho un problema con una query a campi incrociati: mi serve a creare una
matrice oggetti/variabili in cui il numero di oggetti è molto elevato.
Superati i 256 oggetti access si rifiuta di andare avanti
Messaggio di errore: troppe intestazioni per la query a campi incrociati
Esiste un modo per costringerlo? E' il caso di cambiare programma?
Grazie a tutti
zilvia

 ha scritto nel messaggio
news:btun12$iq3$1...@canarie.caspur.it...

O trasformi le query in codice VBA
(cioè invece di docmd.openquery "cancellatutto"
ci metti un docmd.runsql "delete * from tuatabella") oppure cambi strumento.
255 è il limite dichiarato, ritenuto difficilmente raggiungibile.. finora.
MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: Report per numerare pagine di registro in bianco

Salve a tutti,
Il mio problema è questo: devo creare un report che riporti solamente nella 
prima riga in alto la ragione sociale dell'azienda e il numero di pagina 
progressivo, in più dovrò stabilire io da che numero partire (es. la prima 
volta stampo 100 pagine numerate da 1 a 100 e la seconda da 101 a 200 e cosi 
via) La mia difficoltà stà prorpio qui: come faccio a creare un report che 
abbia tante pagine quante ne voglio io e numerate progresivamente come dico 
io non avendo in effetti recods da inserire se non un capo testo con il nome 
dell'azienda?
Questa cosa mi serve perchè le pagine saranno poi vidimate, il resto del 
foglio (che rimane ovviamente bianco) sarà riempito successivamente quando 
stamperò i movimenti di un registro .
spero che qualcuno mi possa dare qualche spunto per andare avanti e vi 
ringrazio caldamente
GIS 


regalo dal buon sv
http://www.accessgroup.it/HomeArgomenti.asp?ID=233&Oggetto2=Piccolo
 demo di stampa di Giornali Bollati
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

 ha scritto nel messaggio 
news:gn40e3$v5t$1...@tdi.cu.mi.it...


Grazie mille Massimiliano,
Mi sento anche un pò bischero perchè ho perso una mattinata a cercare nei 
vari siti di riferimento, tra cui anche access group, senza trovare nulla 
perchè sbagliavo metoto: io cercavo "numerare" "numerazione" e cose simili e 
invece bastava usare il nome cognome di quello che mi serviva "Giornali 
Bollati"! :-)
Mi sà che sono quasi fuso.
Rigrazie e buona giornata
GIS
Newsgroup: it.comp.appl.access
Titolo: trasformare campo testo in tabella in stringa

salve a tutti, il mio quesito è il seguente:
in una tabella inserisco dei dati, i campi sono tre (codice,
descrizione, colli).
Il campo colli è in formato testo(ma potrebbe anche essere numerico
volendo).
Ho la necessità poi di trasformare questa tabella (lo faccio con una
macro) in un file di testo, ma il campo colli (ad esempio 2) deve
diventare una stringa (0002), altro esempio il campo colli 10 deve
diventare 0010.
Mi aiutate? è molto importante.
grazie a tutti

 ha scritto nel messaggio 
news:1175857804.5...@w1g2000hsg.googlegroups.com...

grazie a tutti
Usa una query dove nel campo interessato metti:
MioCampoFormattato: format([MioCampo];"0000")
Ciao, Carlo


Se il campo Colli è numerico usa la funzione Format$:
se Colli=2, 
con Format$(Colli,"000000") otterrai "000002"
con Format$(Colli,"00") otterrai "02"
se Colli = 10
con Format$(Colli,"000000") otterrai "000010"
con Format$(Colli,"00") otterrai "10"
e così via.
Se Colli è testo e vale 2:
con Right$("000000" & Trim$(Colli),6) otterrai "000002"
con Right$("00" & Trim$(Colli),2) otterrai "02"
se Colli = 10
con Right$("000000" & Trim$(Colli),6) otterrai "000010"
con Right$("00" & Trim$(Colli),2) otterrai "10"
e così via.

Newsgroup: it.comp.appl.access
Titolo: query con autocad 2000

Ciao a tutti. Per caso sapete dirmi se è possibile aprire una query di
access direttamente cliccando all'interno di un disegno dwg?


Penso si possa solo aprire un db di access e non una query.
Per fare aprire il db su una query, crea la macro autoexec nel tuo db in Access.
Da Autocad -> Inserisci -> Oggetto OLE -> Crea da file -> Percorso tuo DB.
Davide

 ha scritto nel messaggio
news:335i6.40530$eQ5.8...@twister2.tin.it...


Newsgroup: it.comp.appl.access
Titolo: riferimenti

qualcuno puņ aiutarmi a risolvere questo pbm?
Public Sub ProvaDB()
Dim dbs As Database
Dim rst As Recordset
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("clienti1", dbOpenTable)
    rst.Close
    dbs.Close
End Sub
l'errore run time 13: tipo non corrispondente
si verifica assegnando alla variabile rst l'istanza dell'oggetto ...
la sub provaDB č stata associata all'evento clic di un pulsante di comando
saranno i riferimenti?
Vi ringrazio

 wrote in message
ipxy4.14475$O3.1...@news.infostrada.it...


saranno i riferimenti?
cosa sono i riferimenti?
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
Newsgroup: it.comp.appl.access
Titolo: [OT] Aiuto RUN-TIME Crystal Report

Ciao a tutti,
ho "ereditato" un applicazione fatta in vb che richiede
l'installazione del "Crystal Report Run-Time" per le stampe.
Almeno così mi hanno detto, infatti per il funzionamento
installo un "setup.exe" che mi chiede un path dove installarlo
e null'altro.
Su Windows 2003 (inizialmente usavamo questo "coso" solo via
Terminal server), sia con SP1 che SP2, funziona senza problemi.
Recentemente è stato necessario installarlo sui client
(indifferentemente 2K e XP piuttosto aggiornati di Windows update)
e gli stessi report non funzionano per nulla. Mi restituisce un'errore
sulla formula. Eppure gli rpt sono gli stessi, sono condivisi in rete
e tutti i client puntano agli stessi rpt (è un parametro
dell'applicazione) che su Win2003 funzionano.
Il messaggio d'errore è qualcosa tipo:
Error in File \\nomeserver\nomecartella\nomereport.rpt:
Error in formula <TOT_PROVV>
'CDBL({DettaglioProvv.TotProvv})'
The string in non-numeric.
Grazie.
Ganimede Dignan.

 The string in non-numeric.
Ciao,
Mancherà il NET framework ?
(1.1 almeno)
vedi anche qui pero'   
http://www.andreavb.com/forum/viewboard_21.html
--
Lorenzo

 vedi anche qui pero'  
http://www.andreavb.com/forum/viewboard_21.html
La versione 1.1 c'era... ho provato a far mettere la 2.0 e poi la
3.0 ... senza risultato.
Vorrei piangere!!!
Grazie cmq.
Ganimede Dignan.

 Vorrei piangere!!!
No che ha gia' piovuto non poco ;-)
Se usate ODBC come connessione, verifica che *non*
vengano usati i regional setting.
Sono fonte di traslazione per lo piu' indesiderata.
--
Lorenzo
Newsgroup: it.comp.appl.access
Titolo: Filtro con casella combinata non associata per inserimento dati in altra casella combinata.

Access 2010.
 
Ciao a tutti, non riesco a trovare una soluzione per il seguente problema.
 
Ho due caselle di combinate non associate, una mi permette di filtrare le 
regioni d'Italia ed una le Province; naturalmente, filtrata una provincia in 
altra casella combinata di una sottomaschera vengono inserite un certo 
numero di località, sino a qui tutto ok, ma se cambio provincia con il 
filtro per inserire altre località, le precedenti località inserite 
scompaiono e non vengonopiu' visualizzate, salvo che non venga selezionato 
il filtro della provincia precedente. Io vorrei riuscire a filtrare le varie 
province una alla volta per non trovarmi tutte le località d'Italia, 
inserendo le località senza che queste scompaiano quando seleziono una nuova 
provincia da filtrare.
 
Grazie, Bruno 
 
 

 una nuova provincia da filtrare.
 
http://groups.google.com/group/it.comp.appl.access/msg/2dbbadc426d64f99
 
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 

 ha scritto nel messaggio 
news:9nb3rh...@mid.individual.net...

Mille, Mille grazie Karl
 
Bruno

Newsgroup: it.comp.appl.access
Titolo: collegare ad access tabelle paradox ma porca................

ma è possibile collegare tabelle paradox a access ?
in un determinato pc riesco a collegare 1 tabella
per le altre mi dice "sequenza di ordinamento non corretta 3220
che dovrebbe significare che devo cambiare la sequenza da ascii a
international ma de che ???
(tra le altre cose access sentenzia "impossibile usare ODBC per collegare al
database una tabella esterna di microsoft jet o isam per importare o
esportare dati") quando tento di usare un odbc che tra le altre cose non
funge
ciao
ps
problematiche analoghe provando a collegarmi da visual basic

 in un determinato pc riesco a collegare 1 tabella
(windows 98)
su windows2000 nooooo neanche quella misera tabella
almeno la misera tabella come posso vederla ???
ciao


la misera tabella non la vedo piů ma
porcap.......................................
forse per colpa di crystal report (c.... non riesco a rimuoverlo)
Newsgroup: it.comp.appl.access
Titolo: riprendo qui messaggio: problema livello utente db access

Scusate se lo riprendo qui sopra un messaggio postato piu sotto, ma non mi
ero spiegato bene
il messaggio era:
"avevo impostato una password per un db access. In seguito il pc era
completamente andato e ho dovuto formattare e installare un nuovo sistema
operativo.
Ora non mi fa piu entrare in alcun modo e
non mi ricordo il pid"
preciso che io la password la conosco, ma in seguito alla formattazione e al
cambiamento di sistema operativo, ho riportato il db sull' hard disk, ma il
fatto č che mi viene solo la scritta tipo "questo database č protetto da
password" PERO' NON ME LA FA INSERIRE!!! Mi hanno detto che probabilmente la
password era a livello utente, e che ora quell'utente non c'č piů, e che
quindi devo conoscere il PID che sinceramente non so se sono io a non
ricordarmelo o se non lo  ho mai saputo. Ma ripeto che la password di
accesso la conosco, il db č mio, ma non riesco ad inserirla. Cosa posso
fare? Per la precisione, prima c'era windows millennium, ora c'č windows xp
professional
Grazie

 Grazie
Ho chiamato un tecnico, ma mi ha detto che senza il pid non si può fare
niente...
Voglio solo capire una cosa: se ad esempio io spedissi a qualcuno di voi il
db fornendo la password, e chiaramente dietro pagamento, voi riuscireste ad
aprirlo? Oppure se rimettessi il millennium che c'era prima? Oppure
aiutatemi dicendomi a chi mi posso rivolgere...Io avevo impostato una
password perchè si aprisse solo in lettura e una perchè si aprisse in
lettura/scrittura. Tanto per sapere se devo buttare via tre anni di dati o
se posso ancora fare qualcosa.
Per favore rispondetemi
Grazie
Newsgroup: it.comp.appl.access
Titolo: Impostare le chiavi da codice

Con access 2, quando si faceva il copyobject di una tabella allegata, veniva
creata una tabella non allegata.
Con access 97 invece si ottiene un'altra tabella allegata che punta alla
stessa remota della prima.
Per continuare a fare una copia di una tabella allegata ma ottenendone una
non allegata ho cominciato ad usare query di creazione tabella. A questo
punto però le proprietà della tabella non mi vengono ereditate, proprietà
tipo i valori di default dei campi e le chiavi sui campi chiave.
Domanda 1: per i valori predefiniti so come si fa, c'è un modo invece di
settare i campi di una tabella esistente come campi chiave, via codice?
Domanda 2: possibile che non ci sia un modo per copiare una tabella allegata
come tabella non allegata come si faceva con l'access 2 tramite la
copyobject?
[polemico mode ON]
Questa è proprio una ca£%$ata M$!!!
[polemico mode OFF]
Antonio

Pseudo Biso della mutua, non ho mai avuto di questi problemi!
Identificazione: il Bettini era lampadato.
Antonio   (DOC)
p.s.:  studiati gli oggetti DAO (se sai cosa sono) e risolverai il punto n° 1

 copyobject?
Questo non lo so.
Ciao Nicola
--
email:sostituire tin a NOSPAM

 Pseudo Biso della mutua, non ho mai avuto di questi problemi!
Ma che t'ha fatto Antonio? Perche' ce l'hai tanto con lui da scassargli la
minchia (visto che sei siculo ti parlo con termini a te familiari!:-) cosi'
a lungo???
Saluti.
Luciano
(DOC)
Comunque,
151.21.XXX.XXX    Biso originale
151.20.XXX.XXX     Biso fake
Facile, no?:-)

Newsgroup: it.comp.appl.access
Titolo: blocca routin su riga

Ciao a tutti.......
Mi date una dritta sulla funzione call o simele?......
Su una maschera Movimenti Contabili con un pulsante denominato Salva,
confermo l'inserimento del movimento e allo stesso tempo apro un'altra
maschera Movimenti Magazzino con un pulsante Ok, e fin qui tutto bene......
Vorrei interrompere l'esecuzione del codice nella determinata riga del
pulsante Salva, e farlo continuare alla pressione del pulsante Ok della
maschera Movimenti Magazzino....
Esempio:
Private Sub salva_Click()
If Me.TipoDocumento= "Fattura" then
Docmd.OpenForm "MovimentiMagazzino",
End If
DoCmd.GoToRecord , , acNewRec
End Sub
Bloccare il codice su End If se l'istruzione è vera, e al clik del pulsante
Ok della maschera Movimenti Magazzino continuare il codice da
DoCmd.GoToRecord, , acNewRec.
Mi Mandate un esempio?
Grazie a tutti
Ciao

 ha scritto nel messaggio
news:bnjp98$b6q$1...@lacerta.tiscalinet.it...

Se apri la maschera MovimentiMagazzino in questa maniera:
Docmd.OpenForm "MovimentiMagazzino", , , , , acDialog
il codice VBA di cui sopra viene arrestato all'apertura della maschera e
riprenderà solo alla chiusura della maschera.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Recuperare il nome della Stampante Predefinita

Buongiorno,
� possibile stampare e ricavare il nome della Stampante che un PC st� usando 
come predefinita ?
Ho visto che si pu� usare application.printer o l'insieme printers, ma non 
ho trovato l'informazione sulla stampante predefinita di sistema.
Devo distribuire una applicazione e la stampante varia da PC a PC.
Grazie mille. 

 Grazie mille.
Declare Function GetProfileString& Lib "kernel32" Alias
"GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As
String, ByVal lpDefault As String, ByVal lpReturnedString As String,
ByVal nSize As Long)
Function fctLeggiStpDefault() As String
On Error GoTo Err_fctLeggiStpDefault
Dim intScratch As Integer
Dim strScratch As String
strScratch = Space$(255)
intScratch = GetProfileString("windows", "device", "?", strScratch,
255)
fctLeggiStpDefault = Left$(strScratch, intScratch)
Exit_fctLeggiStpDefault:
    Exit Function
Err_fctLeggiStpDefault:
    MsgBox Err.Number & " " & Err.Description
    Resume Exit_fctLeggiStpDefault
End Function
HTH, mpio

ByVal nSize As Long)
Grazie mille, e soprattutto VELOCISSIMO.
Dato che ci sei, hai un sito o qualche link con le API magari commentate ?
Saluti

 ha scritto nel messaggio 
news:4b0c...@news.x-privat.org...

magari gi� conosci il sito del nosto allevatore di Api ;-))
http://www.alessandrobaraldi.it/TabellaFaq.asp?sezione=Api
ciao
Daniele 

 ha scritto nel messaggio 
news:4b0cdb52$1...@news.x-privat.org...

Pi� Semplice
Left$(GetDefaultPrinter, 18)
Ciao
Graziano 

 ha scritto nel messaggio 
news:4b0cdb52$1...@news.x-privat.org...

Public Function GetDefaultPrinter() As String
  'ritorna il nome della stampante predefinita
  Dim x As Integer
  Dim buffer As String
  buffer = Space$(255)
  x = GetProfileString("windows", "device", "?", buffer, 255)
  GetDefaultPrinter = Left$(buffer, x)
End Function
Newsgroup: it.comp.appl.access
Titolo: Ricavare Percorso

Salve a tutti eccomi con un'altro problema ;
in un campo di una tabella ho il percorso del server come ad esempio c:
\cartella\filemdb.mdb
essendo suddiviso il db in be e fe , questo percorso si aggiorna
allacciando le tabelle .
Ora il mio problema è questo mi serve ricavare solo il percorso del
server come ad esempio \\127.0.0.0\ o nel caso di nome host il
percorso del nome \\pippofranco\
Mi sapete dare una dritta?


Ho utilizzato una funzione poco fine ma per il momento mi serviva
risolvere il problema , sapendo che il nome del file mdb e da 8
caratteri compresa l'estinzione , ho usate Left(Me!Testo0, Len(Me!
Testo0) - 8) , anche se e poco utile , visto che se qualche mano lunga
potrebbe cambiarmi il nome file .Altre soluzioni?

 ha scritto nel messaggio 
news:5f444091-3484-4970...@q18g2000vbk.googlegroups.com...


 Left(testo0;InStrRev(testo0;"\")-1)
ciao
amx 

 amx
Grazie mille max Ottimo ;)

Newsgroup: it.comp.appl.access
Titolo: SOMMA query: AIUTO

ciao, dato che uso access da pochissimo, mi sono bloccato su un punto
per la costruzione di un semplice programma di gestione magazzino
(semplice perchè sto usando i comandi basilari predefiniti in Access
:-)  ). Ok, vengo al punto:
ho 2 tabelle una per l'entrata ed una per l'uscita di merce (con ID
contatore messo in automatico dal prg), in entrambe le tabelle sono
inseriti 6 campi (tipo,fornitore(destinatario), data, quantità, lotto
e corriere); IL MIO PROBLEMA è quello di sommare le quantità in
entrata meno quelle in uscita di un tipo di merce da digitare in una
finestra (a proposito io uso =[INSERISCI] ma non so se è giusto). Il
report mi riporta la somma (presa dalla relativa query che somma le
quantità) di tutte le quantità, e non solo del tipomerce inserito
nella finesra. 
Per voi che conoscete VBA sarà sicuramente una banalità ma io sto
perdendo gli occhi davanti al PC! AIUTATEMI PERFAVORE
Daniele

 ha scritto nel messaggio
news:3b3caa50...@pubnews.netcom.net.uk...

Newsgroup: it.comp.appl.access
Titolo: ampliare le immagini per i pulsanti si può?

si può ampliare la lista immagini assegnabili ai pulsanti? se si come?
grazie a tutti. 

 grazie a tutti.
No... quelle di default Office, no... poi ovviamente puoi fare un bel
"sfoglia" e ti scegli quel che ti pare come immagine tra i bmp.
Ammeno che qualcuno non mi smentisca è così.
-- 
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Pablitomf (Maurizio Facciuti)
Le Icone di Windows sono BMP a 256 Colori con dimensioni 16x16Pixel.
Ovviamente l'assegnazione standard non ne consente ridimensionamento.
Per le Immagini personalizzate, magari derivate da ICONE occorre fare
attenzione
ai File.Ico in quanto contengono, o meglio possono contenere, differenti
formati
di ICONE e di conseguenza non è detto che Access utilizzi quello che a noi
fa comodo.
Supponiamo di avere un'icona che contiene 3 Icone(3 Formati)
1)16x16 256 Colori
2)48x48 TrueColor
3)96x96 TrueColor
Access sceglie la n°1 in quanto il TrueColor non è supportato...!
Per questo essistono programmi come MicroAngelo per la gestione ICONE
Considerazioni banali ma alcune volte possono servire.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: manipolazione dati

salve a tutti , stò cercando una soluzione per il seguente problema.
in una tabella ho una serie di campi i quali identificano delle analisi di
laboratorio  ( glucosio creatinina ect.....)
vorrei che quando introduco un dato venisse confrontato con un range   ,se
il valore esce dal range dovrei forzare un carattere ( un asterisco )
assieme al dato.
Es.      ANALITA       DATO      RANGE           NUOVO DATO
          GLUCOSIO       180        70 - 110                180 *
Ringrazio anticipatamente dell'aiuto.
roberto r.

           GLUCOSIO       180        70 - 110                180 *
Ho "Buttato giů" due righe al volo che possono darti un'idea di come agire:
Mi sono basato sulla presenza di una tabella che contiene i nomi delle
sostanze (Campo Sostanza) ed i valori di range (campo Range1 per il minimo,
campo Range2 per il massimo).
Function ControllaRange(strNomeSostanza As String, numValore As Double)
Dim strCondizione As String
Dim varMax As Variant
Dim varMin As Variant
strCondizione = "Sostanza = '" & strNomeSostanza & "'"
varMin = DLookup("Range1", "ValoriRange", strCondiz)
varMax = DLookup("Range2", "ValoriRange", strCondiz)
If numValore > varMax Or numValore < varMin Then
' il valore č fuori range e diventa Valore & " *"
ControllaRange = numValore & " * "
Else
' il valore č nel range e rimane uguale
ControllaRange = numValore
End If
End Function
Ciao.

      GLUCOSIO   180  70 - 110    180 * 
  Ciao,
ti dico cosa farei io.
  Anzitutto ridisegnerei la tabella in modo che ogni suo campo 
contenga valori 'atomici' (un campo <-> un'informazione; campi 
numerici per i numeri, campi testo per le lettere). Questo, 
oltre ad essere 'deontologicamente' + correttto ;), ti eviterà 
numerosi grattacapi in fase di elaborazione delle informazioni.
  Dunque riscriverei la tabella in questo modo:
      Tabella1
 ID        (contatore)
 ANALITA   (testo)
 minVal    (numerico)
 MaxVal    (numerico)
 Valore    (numerico)
 Asterisco (Si/No)
  A parte questo, per ottenere ciò che chiedi, potresti 
semplicemente inserire, in corrispondenza dell'evento 'Prima di 
aggiornare' (BeforeUpdate) della maschera utilizzata per 
l'inserimento dei numeri, il seguente codice:
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If ([Valore] < [minVal]) Or ([Valore] > [maxVal]) Then
       [Asterisco] = True
    End If
    ' oppure, più brevemente:
    ' 
    '[Asterisco] = (([Valore] < [minVal]) _
    '            Or ([Valore] > [MaxVal]))
End Sub
 
--------------------------------------------
http://digilander.iol.it/winses/
Recensioni di programmi freeware e shareware
--------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Parametri a query

Devo aggiornare una tabella con dei dati presenti su delle caselle di testo
appartenenti ad una maschera... qualcuno può dirmi come cavolo si fa???
Grazie

 ha scritto nel messaggio
news:QEbz8.29537$W9.7...@twister2.libero.it...

Spiegati un pochino meglio.
Le caselle di testo della maschera sono associate a campi della tabella o
sono non associate, nel qual caso quali record e quali campi vuoi
aggiornamre?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Copia file

Buon Anno a tutti!
 
Ho sviluppato un software in A2003 e super collaudato in XP.
 
Quando faccio una modifica al db ho un pulsante che copia il file su un'altro pc.
il codice che riporto sotto funziona bene su xp, su windows 8 invece NO!!!
 
Qualcuno mi sa dare una dritta?
 
 
ecco il codice:
 
    'Copia il file selezionato e visualizza l'avanzamento dell'operazione.
    Const BUFSIZE As Long = 1024 'Imposta la dimensione del buffer.
    Dim buf As String
    Dim BTest As Single, FSize As Single
    Dim Chunk As Integer, iOldValue As Long
    Dim valore As Long
    Set Pb.Form = Me
    Pb.ProgressInStatus Sb.hwnd, 1
    Pb.Value 0
    Sb.SetText 0, "Copia Magazzino in Corso......!", SBT_POPOUT
    Open Origine For Binary As #1 ' Apre il file.
    FSize = LOF(1)  ' Ottiene la lunghezza del file.
    Pb.Max = FSize
    Open Destinazione For Binary As #2 ' Apre il file.
        BTest = FSize - LOF(2)
        Do
            If BTest < BUFSIZE Then
                Chunk = BTest
            Else
                Chunk = BUFSIZE
            End If
            buf = String(Chunk, " ")
            Get 1, , buf
            Put 2, , buf
            BTest = FSize - LOF(2)
            'Valore = (100 - Int(100 * BTest / FSize))
            Pb.Value LOF(2) 'Valore  'Fa avanzare la barra.
            'Se passato un centesimo, Rilascia un po' di risorse.
            If BTest <> iOldValue Then
                DoEvents
                iOldValue = BTest
            End If
        Loop Until BTest = 0
        Sb.SetText 0, "Copia OK...!", SBT_POPOUT
 
        MsgBox "File Copiato con successo...!", vbExclamation, "Magazzino"
        Sb.SetText 0, "Magazzino", SBT_POPOUT
    Close 1 'Chiude il file di origine.
    Close 2 'Chiude il file di destinazione.
 
Ciao
Chita

> Chita
 
il codice dove si ferma?...
 
cmq a prescindere, senza saper ne leggere ne scrivere, mi butto...
potrebbe essere in generale (da Win7 in poi) un problema sulla scrittura
diretta in C: ad es.
 
 
-- 
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.
 
TheSpaceCowboy : 
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12
 


nessun tipo di messaggio strano ...il codice viene eseguito......
il comando che lancio nella routine evento e che "non viene eseguito" è il seguente:
 
Call CopiaFile(Me.campo_nomefile_MagazzinoModificato,Me.campo_nomefile_MagazzinoSuServer)
 
 
proverò il tuo suggerimento....
 
Ciao 
Chita

 Call
CopiaFile(Me.campo_nomefile_MagazzinoModificato,Me.campo_nomefile_MagazzinoSuServer)
 
e che risposta e'?... ovvio che CopiaFile non funziona, altrimenti non
avresti scritto e chiesto... sto chiedendo su quale parte del codice di
"COPIAFILE" va in errore (per cui non la esegue).
