text:
Alessandro Baraldi wrote:
[cut]
> Ciao Alessandro.
>
> Ti segnalo un mio demo che usa quel sistema, poi ti spiego
> i problemi incontrati e come ho risolto:
>
> Nel mio SITO alla Sezione [GENERAL]
>
> 1.32 Compattatore MDB esterno tramite Command(/cmd)
>
> Il problema è che se non recuperi come prima funzione
> il parametro Command, questo viene resettato, se vedi
> nel mio demo(in quel caso è usato per discriminare la riapertura
> o meno del FE dopo il Compacr in A97).
>
> Pertanto il recupero del Command lo devi eseguire in una funzione su
> AutoExec, in quanto anche l'apertura del Form frega.
>
> Dai un'occhiata al mio Demo e vedi se ti ho dato una dritta
> corretta.
>
> Ciao
> @Alex
>
>
ciao Alessandro. Grazie.
La chiamata via autoexec gia' la faccio.
Recupero il tuo demo e "comparo" le cose.
Dai fai un piccolo sforzo. Metti il link al tuo sito in firma.
Sono dovuto andare sul sitocomune per reperirlo
--
a.cara


title: Ricezione parametri linea comando (command)

author: Alessandro Cara

text:

> ù
Alors! Risolto.
Il fatto e' che, in questo caso non so se access o il win2003 Server, e'
un po' "steronzo".
Eseguivo la chiamata citando semplicemente l'mdb. Il tutto partiva ma
non venivano passati i parametri. Ho modificato la linea di lancio
mettendoci tutta la pippa del path di access e come per miracolo le cose
  funzionano. Ahhh!? non c'e' neanche bisogno della "autoexec" posso farlo
direttamente nella load del form di lancio.
Questa e' la chiamata
"C:\Programmi\Microsoft Office\OFFICE11\MSACCESS.EXE"
"D:\Pack\NewAccess\xxx.mdb"  ;"Gestione,Anagrafica"
vs
D:\Pack\NewAccess\xxx.mdb  ;"Gestione,Anagrafica"
--
a.cara


author: Alessandro Baraldi

text:
"Alessandro Cara" <
al...@puntablunet.it
> wrote in message
news:SNZpf.17031$
Cn4....@tornado.fastwebnet.it
[CUT]
> Alors! Risolto.
> Il fatto e' che, in questo caso non so se access o il win2003 Server, e'
> un po' "steronzo".
> Eseguivo la chiamata citando semplicemente l'mdb. Il tutto partiva ma
> non venivano passati i parametri. Ho modificato la linea di lancio
> mettendoci tutta la pippa del path di access e come per miracolo le cose
>   funzionano. Ahhh!? non c'e' neanche bisogno della "autoexec" posso farlo
> direttamente nella load del form di lancio.
> Questa e' la chiamata
> "C:\Programmi\Microsoft Office\OFFICE11\MSACCESS.EXE"
> "D:\Pack\NewAccess\xxx.mdb"  ;"Gestione,Anagrafica"
> vs
> D:\Pack\NewAccess\xxx.mdb  ;"Gestione,Anagrafica"
> --
> a.cara
Ottimo.
P.S. non posso mettere il Link al mio sito poichè partecipo
via MAILGATE, non avendo un provider delle NEWS non ho alternative.
Il mio PROV non supporta più le NEWS da un anno.
Ciao
@ALex



text:
Alessandro Baraldi wrote:
> "Alessandro Cara" <
al...@puntablunet.it
> wrote in message
[cut]
> P.S. non posso mettere il Link al mio sito poichè partecipo
> via MAILGATE, non avendo un provider delle NEWS non ho alternative.
>
> Il mio PROV non supporta più le NEWS da un anno.
Allora mi ricordavo bene che per un periodo c'era.
Ora che la citi, anche sta cosa di mailgate la devo aver letta
recentemente e come piu' frequentemente capita dimenticata.
;<)
--
a.cara


title: problemi con UPDATE SQL

author: Kappa

text:
ciao a tutto il NG
Questo è il problema:
Faccio un UPDATE SQL del tipo
sql="Update Codici Set Codice='" & codice & "', Descr='" & descr & "' where
id=" & id & ";"
Il tutto fila liscio fino a quando non ho una descr che mi contiene un
apostrofo (es. modifica dell'area...) che mi genera l'errore, in quanto la
stringa sql diventa:
sql="Update Codici Set Codice='12', Descr='modifica dell'area' where id="5;"
quindi mi trovo ad avere un'altro ' non voluto che mi genera l'errore.
Esiste un carattere da sostituire al ' (come il % per *) oppure devo
arrangiarmi in qualche altro modo (come ??)
ciao e grazie
--
Kappa
kappa**nospam**@
webngo.net
www.webngo.net


title: problemi con UPDATE SQL

author: Paolo A.

text:
Kappa wrote:

sul sito comune
http://members.xoom.it/it_db_access/
c'è una funzione che fà al caso in questione all'interno della  FAQ dal titolo
'Come posso risolvere il problema degli apici quando creo una stringa SQL con
filtro su campo testo?'
ciao
Paolo
--
-------------------------------------------------------------------------------
Un giorno le macchine riusciranno a risolvere tutti i nostri problemi.
Ma nessuna macchina sarà in grado di porne uno.
-------------------------------------------------------------------------------


title: problemi con UPDATE SQL

text:
grazie molte
kappa


title: problemi con UPDATE SQL

author: Antonio Misericordia

text:
Devi semplicemente cambiare l'sql:
sql="Update Codici Set Codice='" & codice & "', Descr='" & descr & "' where
id=" & id & ";"
in quest'altro:
sql="Update Codici Set Codice=" & chr(34)  & codice & chr(34) & ", Descr=" &
chr(34) & descr & chr(34) & " where
id=" & id & ";"
Nel quale inserisci l'equivalente ASCII dei doppi apici, che è appunto
chr(34)
Ciao e buon lavoro
Antonio Misericordia
--
Posted from
smtp1.libero.it
 [193.70.192.51]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Antonio chi?

author: moglie di Antonio Biso

text:
Scusate ma Antonio al "raduno"?
Allora chi ha passato la notte con me Sabato?


title: Antonio chi?

author: Federico Luciani

text:
moglie di Antonio Biso wrote:
>
> Scusate ma Antonio al "raduno"?
> Allora chi ha passato la notte con me Sabato?
Alessia,
almeno non inviare la tua Card ;-)
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Antonio chi?

author: Silvio Berruti

text:
"moglie di Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:8u6jlh$ogu$1...@pc1.spin.it...
> Scusate ma Antonio al "raduno"?
> Allora chi ha passato la notte con me Sabato?
>
Ma ero io!!!    :=)))
Ho mandato il mio clone alla festa....
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: Antonio chi?

author: Luciano (DOC)

text:
SDAG!!!!:-))
Luciano
(DOC)
moglie di Antonio Biso ha scritto nel messaggio
<8u6jlh$ogu$
1...@pc1.spin.it
>...



title: Antonio chi?

author: Alessia

text:
Luciano (DOC) <
mc5...@mclink.it
> wrote in message
8u7crt$68o$1...@news.mclink.it...

Non volevo incorrere nelle ire di Antonio.
Sembrava buonino buonino sabato, ma vai tu a capire . . .
Riciao Ale


title: Antonio chi?

author: Antonio Biso

text:
Alessia <
sd...@sdag.it
> wrote in message 8u8d9d$h84$1...@pc1.spin.it...
>
>
> Non volevo incorrere nelle ire di Antonio.
> Sembrava buonino buonino sabato, ma vai tu a capire . . .
> Riciao Ale
Pių che buonino, ero disorientato: non sapevo decidermi su chi puntare delle
tre, ed ho fatto la fine dell'asino di Buridano...
Antonio


title: Antonio chi?

author: Sib

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:4gRN5.7405$BF.2...@news.infostrada.it...
> Alessia <
sd...@sdag.it
> wrote in message 8u8d9d$h84$1...@pc1.spin.it...
> >
> >
> > Non volevo incorrere nelle ire di Antonio.
> > Sembrava buonino buonino sabato, ma vai tu a capire . . .
> > Riciao Ale
>
> Più che buonino, ero disorientato: non sapevo decidermi su chi puntare
delle
> tre, ed ho fatto la fine dell'asino di Buridano...
Morto di sete per non sapere da quale pozzo bere?
;-P
Sib


title: Casella combinata

author: Santoni

text:
Ciao a tutti
come sempre ho trovato un altro problema:
Ho creato una casella combinata che acquisisce record da una query ( filtra
i prodotti
e restituisce solo i vendibili). Ora quando sono nella sezione di vendita e
scarico il primo record tutto va bene
ma quando vado a scaricarne un altro vorrei che dalla casella combinata
venga aggiornata e sparisca il record gia scaricato e quindi venduto.
il sistema funziona lo stesso perché quando finisco di fare le vendite
chiudo la sezione e la ri-apro,
nella casella combinata mancano i prodotti venduti.
Avete una soluzione....
Altro problema:
Come faccio ad eliminare l'errore di fuori elenco (Ho creato una finestra
messaggio errore(che mi visualizza) ho impostato "imposta avvisi su no" con
una macro, non cambia niente, l'errore di access c'è sempre).
Hooo vi ringrazio tutti per gli aiuti che mi avete dato....(Soprattutto
Roberto)
Ciao Ciao


title: Casella combinata

author: Roberto da casa

text:
"Santoni" <
santo...@tiscali.it
> ha scritto nel messaggio
news:bPXq9.7384$o7.2...@news2.tin.it...
> Ciao a tutti
> come sempre ho trovato un altro problema:
> Ho creato una casella combinata che acquisisce record da una query (
filtra
> i prodotti
> e restituisce solo i vendibili). Ora quando sono nella sezione di vendita
e
> scarico il primo record tutto va bene
> ma quando vado a scaricarne un altro vorrei che dalla casella combinata
> venga aggiornata e sparisca il record gia scaricato e quindi venduto.
> il sistema funziona lo stesso perché quando finisco di fare le vendite
> chiudo la sezione e la ri-apro,
> nella casella combinata mancano i prodotti venduti.
> Avete una soluzione....
>
Dopo che hai aggiornato la tabella su cui è basata la query che è origine
riga della casella combinata, fai un Requery della casella combinata.
> Altro problema:
> Come faccio ad eliminare l'errore di fuori elenco (Ho creato una finestra
> messaggio errore(che mi visualizza) ho impostato "imposta avvisi su no"
con
> una macro, non cambia niente, l'errore di access c'è sempre).
>
Imposta a No la proprietà Solo in elenco della casella combinata.
>
> Hooo vi ringrazio tutti per gli aiuti che mi avete dato....(Soprattutto
> Roberto)
> Ciao Ciao
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Casella combinata

author: Gigi

text:
C'é qualcuno che mi può passare il codice Vba che su evento "doppio clik" mi
possa far cambiare il valore di una casella combinata con il valore
successivo presente nella tabella origine dati ? (senza cioé far aprire il
menu a tendina)
Grazie in anticipo Gigi
--------------------------------
Inviato via
http://usenet.libero.it


title: Casella combinata

text:
"Gigi" <
gi_g...@libero.it
> ha scritto nel messaggio
news:151Z30Z11Z28Y1...@usenet.libero.it...
> C'é qualcuno che mi può passare il codice Vba che su evento "doppio clik"
mi
> possa far cambiare il valore di una casella combinata con il valore
> successivo presente nella tabella origine dati ? (senza cioé far aprire il
> menu a tendina)
> Grazie in anticipo Gigi
>
Me!CasellaCombinata0.ListIndex = Me!CasellaCombinata0.ListIndex + 1
Se la casella combinata si chiama Pippo, a fronte dell'evento "Su doppio
clic" di Pippo genera il seguente codice VBA:
Private Sub Pippo_DblClick(Cancel As Integer)
If Me!Pippo.ListIndex < Me!Pippo.ListCount - 1 Then
Me!Pippo.ListIndex = Me!Pippo.ListIndex + 1
End If
End Sub



title: Snapcom.dll ????????

author: Ljuba Lagomarsino

text:
Ciao a tutti!
Ho convertito un progetto in Access 2000 (però con il riferimento al DAO) in
XP e mi dice che non trova la libreria in oggetto.... qualcuno mi sa dare
una spiegazione?
Grazie.....
Ljuba


title: Snapcom.dll ????????

author: Roberto dal portatile

text:
"Ljuba Lagomarsino" <
lagom...@email.it
> ha scritto nel messaggio
news:qV6I7.82180$sq5.3...@news.infostrada.it...

Nell'elenco dei riferimenti del tuo database, il riferimento alla libreria
DAO deve precedere il riferimento alla libreria ADO.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: file xml secondo specifiche predefinite.

author: mak

text:
Buona serata a tutti,
mi chiedevo se qualcuno di voi ha mai affrontato il problema di creare
una esportazione di record secondo delle specifiche tecniche
predefinite e con validazione XSD.
Se non sbaglio il metodo ExportXML dell' oggetto application non
prevvede l' esportazione secondo un file di specica predefinito?!?
Saluti


author: Massimo Piubelli

text:

Se è per fondoest prova questo esempio
www.piubelli.net/download/fondoest.zip
Se no, devi partire da delle specifiche che ti devono essere date nell'xsd, tipo di dato, campi obbligatori o no ecc.
Ciao,
Max


text:
On 22 Dic 2006, 18:03, "Massimo Piubelli"
<massimo_to...@accessgroup.it.invalid> wrote:
> makwrote:
> > Buona serata a tutti,
> > mi chiedevo se qualcuno di voi ha mai affrontato il problema di creare
> > una esportazione di record secondo delle specifiche tecniche
> > predefinite e con validazione XSD.
> > Se non sbaglio il metodo ExportXML dell' oggetto application non
> > prevvede l' esportazione secondo un file di specica predefinito?!?Se è per fondoest prova questo
esempiowww.piubelli.net/download/fondoest.zip
>
> Se no, devi partire da delle specifiche che ti devono essere date nell'xsd, tipo di dato, campi obbligatori o no ecc.
>
> Ciao,
> Max
Anche se in ritardo ti ringrazio, per l' esempio inviatomi.
Per informazione l' xsd richistomi sono presenti su Ebay versione
riservata ai venditori di automobili con vetrina,che prevvede anche il
carico diretto con file XML, appunto, per aggiornare la vendita su web.
http://developer.ebay.com/developercenter/xml/
Saluti


title: problema con l'apertura maschera

author: Wiking Derek

text:
ciao a tutti, ho il seguente problema: ho creato un routine event sull'aggiornamento di una maschera con il seguente codice:
DoCmd.GoToRecord acForm, Me.Name, acNewRec
Funzionava all'apertura, all'aggiornamento. Adesso voglio che all'apertura ci sia un altra maschera, ho cancellato il codice in VBA, fatto un nuovo routine event sulla nuova maschera, ma niente. Ogni volta mi apre la vecchia maschera.
Qualcuno riesce aiutarmi?


title: problema con l'apertura maschera

text:
ho cambiato il nome alla vecchia maschera che si chiamava REGISTRO e adesso ha un altro nome, e quando ho compattato e ripristinato è uscita la seguente finestra di errore:
https://drive.google.com/file/d/0BwgmhMj3124JZXJhUW94Qzc0TDQ/edit?usp=sharing

non so dove trovare la finestra di dialogo azione non riuscita, e nel VBA non vedo nessuna macro.
Qualche idea? grazie gia per le vostre risposte


title: problema con l'apertura maschera

text: che coglione scusate tutti quanti, tasto file-opzioni-database corrente-visualizza maschera.....


title: [A2003] Pulsanti che magicamente scompaiono ...

author: MC

text:
Giuro che nonostante sia da poco finita la pausa pranzo, nelle mie vene non
scorre del vinello!!!
Apro una maschera, vedo x pulsanti, la apro in struttura per modificare
alcune caratteristiche, la salvo e riapro la maschera ...
PUFFFF
... mi scopaiono dei pulsanti.
Compatto e ripristino il DBase, riapro la maschera e come per magia ci sonpo
ancora ... apro la maschera in struttura e chiudo la struttura della
maschera e ... non ci sono più.
Cosa succede a vostro avviso??????
--
MC


author: Sergio MAZZA

text:
"MC" <
mauro.c...@gmail.com
> ha scritto nel messaggio news:di355q$ju$1...@domitilla.aioe.org...

Prova a creare un nuovo mdb e reimportarci tutto dentro...
Ciao.
--
Sergio MAZZA


text:
[cut]
>
> Prova a creare un nuovo mdb e reimportarci tutto dentro...
>
> Ciao.
>
> --
> Sergio MAZZA
Giusto,
cosě facendo il problema sembra essersi risolto ... si era quindi corrotto
l'mdb allora?
Grazie.
Ciao,
--
MC


text:
"MC" <
mauro.c...@gmail.com
> ha scritto nel messaggio news:did6eb$iri$1...@domitilla.aioe.org...
> Giusto,
> cosě facendo il problema sembra essersi risolto ... si era quindi corrotto
> l'mdb allora?
> Grazie.
> Ciao,
> --
> MC
Non č ho idea; questo č solo uno dei tentativi per cercare di ripristinare l'ambiente iniziale...
Ciao.
--
Sergio MAZZA


title: eseguire calcolo su prezzo in query se e solo se

text:
sapete dirmi come posso calcolare un campo calcolato solo se un campo si/no
vale meno -1
mi spiego meglio
possiedo un magazzino in cui alcuni articoli hanno il prezzo ivato se il
campo "ivato" di tipo si/no vale -1
mentre il prezzo è da ivare se tale campo "ivato" vale zero.
quind nella query che uso per importare i dati da magazzino alla fattura
devo scorporare l'iva solo hai
campi che hanno il campo "ivato" a -1 posso usare iif? avete un esempio da
farmi?
Grazie mille.


text:
> Creati il campo calcolato nel seguente modo:
>
> TuoCampoCalcolato: IIf([TuoCampoSiNo] = -1; <prima formula>; <seconda
> formula>)
>
> --
> Roberto
>
grazie mille provo.


text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:425aa770$0$31956$5fc...@news.tiscali.it...

Creati il campo calcolato nel seguente modo:
TuoCampoCalcolato: IIf([TuoCampoSiNo] = -1; <prima formula>; <seconda
formula>)
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Opzione in doCmd.OpenReport

author: Rosario

text:
Salve, e' possibile assegnare ad una variabile l'arogemto di apertura
di un report in modo da ottenere il pezzo di codice seguente
Codice attuale
If PA = 1 Then
       DoCmd.OpenReport "ProveAudio", acPreview
    End If
A seconda di una condizione assegnare o meno il preview alla variabile
Condizione
Condiz=""
if verificaevento
   Condiz="AcPreview"
endif
If PA = 1 Then
       DoCmd.OpenReport "ProveAudio", Condizione
End If
Grazie
Saluti
Rosario Ciotola


title: Opzione in doCmd.OpenReport

text:
"Rosario" <
rcio...@gmail.com
> ha scritto nel messaggio
news:1159184118.8...@i3g2000cwc.googlegroups.com...

Vedi help (attivabile con ALT-F11 poi F1) alla voce Metodo OpenReport e poi
utilizzi il parametro OpenArgs...
Ciao.
--
Sergio MAZZA


title: Opzione in doCmd.OpenReport

text:

Scusa Sergio ma il parametro OpenArgs puo' essere un avariabile e di
che tipo?
cioe
parametro="acPreview"
e' corretto ?  a me se inserisco una variabile stringa mi da errore
grazie
Rosario


title: Opzione in doCmd.OpenReport

text:

Scusa Sergio,
ma il parametro di OpenArgs , puo essere un avariabile , e di che tipo
?
Grazie
Rosario


title: Opzione in doCmd.OpenReport

text:
"Rosario" <
rcio...@gmail.com
> ha scritto nel messaggio
news:1159186216.1...@m73g2000cwd.googlegroups.com...
>
>
> Scusa Sergio,
> ma il parametro di OpenArgs , puo essere un avariabile , e di che tipo
> ?
>
> Grazie
> Rosario
No gli passi un valore e lo leggi e, se necessario, lo riassegni alla
variabile; altrimenti utilizzi una variabile globale...
Ciao.
--
Sergio MAZZA


title: Opzione in doCmd.OpenReport

text:

Scusa Sergio come faccio a passargli un valore, nel mio esempio
COND="AcPreview"
doCmd  openReport "Nome del Report", COND
e' corretto? di che tipo deve essere la variabile COND
A rigrazie
Rosario


title: Opzione in doCmd.OpenReport

text:
"Rosario" <
rcio...@gmail.com
> ha scritto nel messaggio
news:1159187110.0...@k70g2000cwa.googlegroups.com...
> Scusa Sergio come faccio a passargli un valore, nel mio esempio
> COND="AcPreview"
> doCmd  openReport "Nome del Report", COND
>
> e' corretto? di che tipo deve essere la variabile COND
>
> A rigrazie
> Rosario
Guarda che il tipo di visualizzazione lo imposti al momento dell'apertura:
Docmd.openreport "nomereport",acpreview
Ciao.
--
Sergio MAZZA


title: Opzione in doCmd.OpenReport

text:

Si ho capito, volevo sapere se posso fare :
Docmd.openreport "nomereport", VARIABILE
dove variabile gli do io il valore, ma che tipo di variabile usare?
(stringa, numerica etc)
Grazie


title: Opzione in doCmd.OpenReport

text:
"Rosario" <
rcio...@gmail.com
> ha scritto nel messaggio
news:1159189162....@e3g2000cwe.googlegroups.com...
>
> Si ho capito, volevo sapere se posso fare :
>
> Docmd.openreport "nomereport", VARIABILE
>
> dove variabile gli do io il valore, ma che tipo di variabile usare?
> (stringa, numerica etc)
>
> Grazie
Numerica; il parametro è 2 per acpreview...
Ciao.
--
Sergio MAZZA


title: Opzione in doCmd.OpenReport

text:

Grazie 1000
Rosario


title: Importazione nomi files

author: Le Roi

text:
Ciao a tutti..
il mio problema č questo:
ho una tabella con i seguenti campi:
Id,Titolo,Autore
sull' hard-disk ho una cartella con dei files musicali...
esiste un modo per importare automaticamente il nome dei file nella tabella?
cosě evito di scrivere quasi 500 files a mano...
grazie
--------------------------------
Inviato via
http://usenet.libero.it


title: Importazione nomi files

text:
Ciao a tutti!
il mio problema è questo:
ho una casella di riepilogo e dei pulsanti di ricerca(ricerca per titolo,
per autore, etc..)
la ricerca viene effettuata in una tabella che ha i seguenti campi:
Id Titolo Autore
come faccio ad importare nella tabella tutti i nomi dei files contenuti in
una cartella?
per evitare di scrivere tutto a mano dato che sono quasi 500!
dato che non credo sia possibile distinguere il titolo dall'autore..andrebbe
anche bene un nome unico..nel caso modifico la tabella..



title: Importazione nomi files

text:

scusate non volevo postare 2 volte



title: Importazione nomi files

text:
Esperti aiutatemi!
Bisio dove sei? :-(



title: Importazione nomi files

author: SimonenomiS

text:
luk_...@libero.it
 (Le Roi) wrote in news:151Z38Z7Z193Y1033378803X1700
@
usenet.libero.it
:
> Esperti aiutatemi!
  C'č gią un esempio pronto sul Sito Comune (
http://www.sitocomune.com/
 ).
>
> Bisio dove sei? :-(
  Zelig?
--
http://digilander.libero.it/SimonenomiS/


title: Importazione nomi files

author: Riccardo M.

text:
"Le Roi" <
luk_...@libero.it
> ha scritto nel messaggio
news:151Z38Z7Z193Y1...@usenet.libero.it...
> Ciao a tutti..
> il mio problema č questo:
> ho una tabella con i seguenti campi:
> Id,Titolo,Autore
>
> sull' hard-disk ho una cartella con dei files musicali...
>
> esiste un modo per importare automaticamente il nome dei file nella
tabella?
>
> cosě evito di scrivere quasi 500 files a mano...
>
> grazie
_________
A me funziona cosě:
Dim rst As Recordset
Dim i As Integer
    With Application.FileSearch
        .LookIn = "c:\tmp"
        If .Execute() > 0 Then
            Set rst = CurrentDb.OpenRecordset("Tabella2")
            For i = 1 To .FoundFiles.count
              rst.AddNew
                rst!Titolo = miD(Application.FileSearch.FoundFiles(i),
Len(Application.FileSearch.LookIn) + 2, _
                            Len(Application.FileSearch.FoundFiles(i)) -
(Len(Application.FileSearch.LookIn) + 5))
              rst.Update
            Next
            rst.Close
        End If
    End With
ciao Riccardo


title: Importazione nomi files

text:
"Le Roi" <
luk_...@libero.it
> ha scritto nel messaggio
news:151Z38Z7Z193Y1...@usenet.libero.it...
> Ciao a tutti..
> il mio problema č questo:
> ho una tabella con i seguenti campi:
> Id,Titolo,Autore
>
> sull' hard-disk ho una cartella con dei files musicali...
>
> esiste un modo per importare automaticamente il nome dei file nella
tabella?
>
> cosě evito di scrivere quasi 500 files a mano...
>
> grazie
>
Se la tabella si chiama Tabella1 ed ha la struttura che hai sopra scritto.
Se vuoi caricare nel campo Titolo i nomi dei file mp3 che si trovano nella
cartella MiaMusica del disco C:, prova cosě:
Dim MyName As String
MyName = Dir("C:\MiaMusica\*.mp3")
DoCmd.SetWarnings False
Do While MyName <> ""
    DoCmd.RunSQL "INSERT INTO Tabella1 ( Titolo ) SELECT " & _
    Chr$(34) & MyName & Chr$(34) & " AS Espr1;"
    MyName = Dir
Loop
DoCmd.SetWarnings True
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Importazione nomi files

text:
> Se la tabella si chiama Tabella1 ed ha la struttura che hai sopra scritto.
> Se vuoi caricare nel campo Titolo i nomi dei file mp3 che si trovano nella
> cartella MiaMusica del disco C:, prova cosě:
>
> Dim MyName As String
> MyName = Dir("C:\MiaMusica\*.mp3")
> DoCmd.SetWarnings False
> Do While MyName <> ""
>     DoCmd.RunSQL "INSERT INTO Tabella1 ( Titolo ) SELECT " & _
>     Chr$(34) & MyName & Chr$(34) & " AS Espr1;"
>     MyName = Dir
> Loop
> DoCmd.SetWarnings True
>
> --
> Roberto
_______
sei troppo forte Roberto!
io mi sono impazzito con la risposta che ho dato, e tu con molte meno righe
hai ottenuto lo stesso!
ciao Riccardo


title: Importazione nomi files

text:
> > Dim MyName As String
> > MyName = Dir("C:\MiaMusica\*.mp3")
> > DoCmd.SetWarnings False
> > Do While MyName <> ""
> > DoCmd.RunSQL "INSERT INTO Tabella1 ( Titolo ) SELECT " & _
> > Chr$(34) & MyName & Chr$(34) & " AS Espr1;"
> > MyName = Dir
> > Loop
> > DoCmd.SetWarnings True
> >
> > --
> > Roberto
> _______
grazie funziona!
mentre crea la tabella è possibile inserire una percentuale di
caricamento?..è solo un fatto estetico questo..mi chiedevo se fosse
possibile..
grazie 1000!



title: Importazione nomi files

text:
i nomi dei files che importo nella tabella vengono poi inseriti in una
casella di riepilogo..è possibile fare in modo che cliccando sul nome del
file nella casella di riepilogo si apra il file?
grazie



title: Importazione nomi files

text:
"Le Roi" <
luk_...@libero.it
> ha scritto nel messaggio
news:151Z38Z7Z193Y1...@usenet.libero.it...
>
> > > Dim MyName As String
> > > MyName = Dir("C:\MiaMusica\*.mp3")
> > > DoCmd.SetWarnings False
> > > Do While MyName <> ""
> > > DoCmd.RunSQL "INSERT INTO Tabella1 ( Titolo ) SELECT " & _
> > > Chr$(34) & MyName & Chr$(34) & " AS Espr1;"
> > > MyName = Dir
> > > Loop
> > > DoCmd.SetWarnings True
> > >
> > > --
> > > Roberto
> > _______
>
>
> grazie funziona!
>
> mentre crea la tabella č possibile inserire una percentuale di
> caricamento?..č solo un fatto estetico questo..mi chiedevo se fosse
> possibile..
>
> grazie 1000!
>
Innanzitutto mi ero dimenticato, nel codice VBA che ti avevo postato
precedentemente l'esecuzione di una query di eliminazione che elimina tutti
i record eventualmenye presenti in Tabella1, pertanto dopo la riga di
codice:
DoCmd.SetWarnings False
inserisci questa riga di codice:
DoCmd.RunSQL "DELETE * FROM TAbella1;"
Per risolvere il tuo fatto estetico potresti usare una barra di
progressione: nella Sezione General del Sito Comune (link qui sotto) leggiti
la FAQ di Harry Evans intitolata "Creare barre di progressione":
naturalmente scaricati il database di esempio in essa allegato.
Molto piů facile, anche di minor effetto, č usare la barra di progressione
che č incorporata nella barra di stato (quella in basoo alla videata) di
Access.
Se ti va bene quest'ultima soluzione, per prima cosa dal menu Strumenti
scegli Avvio: nella finestra di dialogo che ti compare attiva la casella di
controllo Visualizza barra di stato nel caso fosse disattivata.
Quindi modifica l codice VBA che ti avevo postatto la volta scorsa in questa
maniera:
Dim MyName As String
Dim imax As Integer, ret As Variant, i As Integer
imax = 0
MyName = Dir("C:\Documenti\My Music\*.mp3")
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM TAbella1;"
Do While MyName <> ""
    imax = imax + 1
    MyName = Dir
Loop
MyName = Dir("C:\Documenti\My Music\*.mp3")
ret = SysCmd(acSysCmdInitMeter, "Carica i nomi dei file musicali in
tabella", imax)
i = 1
Do While MyName <> ""
    DoCmd.RunSQL "INSERT INTO Tabella1 ( NomeFile ) SELECT " & _
    Chr$(34) & MyName & Chr$(34) & " AS Espr1;"
    ret = SysCmd(acSysCmdUpdateMeter, i)
    i = i + 1
    MyName = Dir
Loop
ret = SysCmd(acSysCmdClearStatus)



title: Importazione nomi files

text:
"Le Roi" <
luk_...@libero.it
> ha scritto nel messaggio
news:151Z38Z7Z193Y1...@usenet.libero.it...
> i nomi dei files che importo nella tabella vengono poi inseriti in una
> casella di riepilogo..è possibile fare in modo che cliccando sul nome del
> file nella casella di riepilogo si apra il file?
>
> grazie
>
Il modo per eseguire da codice VBA il suono di un file WAV lo trovi sul Sito
Comune (link qui sotto), nella Sezione General, nella FAQ di Stefano Bettini
intitolata Come gestire i "suoni" in VBA? (32 bit) .
Per i file musicali .MID e .AVI trovi la API da usare nella Sezione APIs nel
sito
http://www.mvps.org/access/api/index.htm
 .
Non ho da darti indicazioni per eseguire da VBA file musicali di tipo mp3.
Però puoi ricorrere ad un trucchetto.
Se la casella di riepilogo si chiama Elenco.
Se la tabella è Tabella1 degli esempi discussi nei messaggi precedenti e nel
campo Titolo contiene solo il nome del file musicale ma non il suo
indirizzo.
Se la cartella che contiene i file musicali ha il seguente indirizzo
C:\Documenti\My Music\ .
Se la casella di riepilogo contiene una sola colonna ed ha come origine riga
il seguente codice SQL:
SELECT DISTINCTROW Tabella1.Titolo FROM Tabella1 ORDER BY Tabella1.Titolo;
Inserisci nella tua maschera anche un pulsante di comando chiamato Suona.
A fronte dell'evento "Su clic" della casella di riepilogo genera la seguente
riga di codice VBA:
Me!Suona.HyperlinkAddress = "C:\Documenti\My Music\" & Me!Elenco
In questa maniera puoi eseguire qualsiasi tipo di file musicale, però prima
verà aperto l'applicativo che è in grado di eseguirlo.



title: Importazione nomi files

text:
la casella di riepilogo ha questa origine:
SQL = "SELECT * FROM Lista WHERE titolo LIKE '*" & ric & "*' ORDER BY
titolo"
elenco.rowsource=SQL
elenco.requery
anche se si apre Windows Media Player per esempio non importa va bene
comunque.
e per gli altri tipi di file come funziona?(jpg, bmp x esempio)
ti ringrazio



title: Importazione nomi files

text:
"Le Roi" <
luk_...@libero.it
> ha scritto nel messaggio
news:151Z38Z7Z193Y1...@usenet.libero.it...
> la casella di riepilogo ha questa origine:
>
> SQL = "SELECT * FROM Lista WHERE titolo LIKE '*" & ric & "*' ORDER BY
> titolo"
> elenco.rowsource=SQL
> elenco.requery
>
Per darti una risposta avrei bisogno di sapere:
1) La struttura della tabella Lista
2) Quante colonne ha la casella di riepilogo (sia visibili che non visibili)
> anche se si apre Windows Media Player per esempio non importa va bene
> comunque.
>
> e per gli altri tipi di file come funziona?(jpg, bmp x esempio)
Per gli altri tipi di file (anche non musicali) pigiando il pulsante di
comando viene prima aperto l'applicativo e poi il file.
>
> ti ringrazio



title: Importazione nomi files

text:
> Per darti una risposta avrei bisogno di sapere:
>
> 1) La struttura della tabella Lista
> 2) Quante colonne ha la casella di riepilogo (sia visibili che non
visibili)
>
> > anche se si apre Windows Media Player per esempio non importa va bene
> > comunque.
> >
> > e per gli altri tipi di file come funziona?(jpg, bmp x esempio)
>
> Per gli altri tipi di file (anche non musicali) pigiando il pulsante di
> comando viene prima aperto l'applicativo e poi il file.
la casella di riepilogo ha 2 colonne (0;6;50;4)
la tabella lista ha 2 campi Id e titolo
mentre ho una tabella Origine che ha i campi Id e percorso(in questo campo
salvo il percorso nel quale cercare i file che può essere cambiato)
come devo fare?
grazie



title: Importazione nomi files

text:
"Le Roi" <
luk_...@libero.it
> ha scritto nel messaggio
news:151Z38Z7Z193Y1...@usenet.libero.it...
>
>
> > Per darti una risposta avrei bisogno di sapere:
> >
> > 1) La struttura della tabella Lista
> > 2) Quante colonne ha la casella di riepilogo (sia visibili che non
> visibili)
> >
> > > anche se si apre Windows Media Player per esempio non importa va bene
> > > comunque.
> > >
> > > e per gli altri tipi di file come funziona?(jpg, bmp x esempio)
> >
> > Per gli altri tipi di file (anche non musicali) pigiando il pulsante di
> > comando viene prima aperto l'applicativo e poi il file.
>
>
> la casella di riepilogo ha 2 colonne (0;6;50;4)
> la tabella lista ha 2 campi Id e titolo
> mentre ho una tabella Origine che ha i campi Id e percorso(in questo campo
> salvo il percorso nel quale cercare i file che puň essere cambiato)
>
> come devo fare?
>
> grazie
>
E le due tabelle (Lista e Origine) in base a quale campi sono in relazione
tra di loro; si, insomma, come leghi il titolo di un brano al percorso del
suo file?
Non č per caso che dovresti lavorare con un'unica tabella che contiene Id,
Titolo e Percorso.
Penso che la tabella Origine te la crei con la routine che ti ho postato nei
messaggi precedenti. E' cosě?
Mentre immagino che il campo Id della tabella Origine sia di tipo Contatore,
quello della tabella Lista che tipo di campo ha?
Il campo Percorso contiene il path completo del file (indirizzo + nome file
+ extention) oppure solamente il nome file + la sua extention come avevamo
discusso nei messaggi precedenti?
E poi i numeri (0;6;50;4) cosa sono?
Scusa se ti faccio tante domande, ma mi sembra che da quando abbiamo
iniziato la chiacchierata tu hai cambiato molte cose che solo tu conosci, ma
che sono importanti ai fini della soluzione complessiva del problema.
Ad esempio il fatto che tu vuoi spostare fisicamente il file cambia un po'
tutto lo scenario, specialmente per la creazione dei record delle due
tabelle.



title: Importazione nomi files

text:
>
> E le due tabelle (Lista e Origine) in base a quale campi sono in relazione
> tra di loro; si, insomma, come leghi il titolo di un brano al percorso del
> suo file?
> Non è per caso che dovresti lavorare con un'unica tabella che contiene Id,
> Titolo e Percorso.
> Penso che la tabella Origine te la crei con la routine che ti ho postato
nei
> messaggi precedenti. E' così?
> Mentre immagino che il campo Id della tabella Origine sia di tipo
Contatore,
> quello della tabella Lista che tipo di campo ha?
> Il campo Percorso contiene il path completo del file (indirizzo + nome
file
> + extention) oppure solamente il nome file + la sua extention come avevamo
> discusso nei messaggi precedenti?
> E poi i numeri (0;6;50;4) cosa sono?
>
> Scusa se ti faccio tante domande, ma mi sembra che da quando abbiamo
> iniziato la chiacchierata tu hai cambiato molte cose che solo tu conosci,
ma
> che sono importanti ai fini della soluzione complessiva del problema.
> Ad esempio il fatto che tu vuoi spostare fisicamente il file cambia un po'
> tutto lo scenario, specialmente per la creazione dei record delle due
> tabelle.
>
> --
> Roberto
ciao! hai ragione ho cambiato alcune cose...
il programmino funziona così:
si scegli un origine dati(una sola) nella quale cercare i files...quindi la
tabella origine avrà sempre e solo un record(quando si cambia l'origine dati
viene prima svuotata la tabella origine)
le due tabelle quindi non sono in relazione...la tabella origine mi serve
solo per andare a leggere il percorso
forse non è molto funzionale...vabbè...
come posso fare?



title: Importazione nomi files

author: Le roi

text:
> > E poi i numeri (0;6;50;4) cosa sono?
sono "LARGHEZZA COLONNA"



title: Importazione nomi files

text:
"Le roi" <
luk_...@libero.it
> ha scritto nel messaggio
news:151Z38Z7Z193Y1...@usenet.libero.it...
> > > E poi i numeri (0;6;50;4) cosa sono?
>
> sono "LARGHEZZA COLONNA"
>
Penso che hai deciso di mandarmi al manicomio!
Hai scritto precedentemente che le colonne della casella di riepilogo sono 2
e poi mi dai QUATTRO larghezze?
Beh, uno di noi due ha le traveggole.



title: Importazione nomi files

text:
"Le Roi" <
luk_...@libero.it
> ha scritto nel messaggio
news:151Z38Z7Z193Y1...@usenet.libero.it...
[CUT]
>
>
> ciao! hai ragione ho cambiato alcune cose...
> il programmino funziona così:
> si scegli un origine dati(una sola) nella quale cercare i files...quindi
la
> tabella origine avrà sempre e solo un record(quando si cambia l'origine
dati
> viene prima svuotata la tabella origine)
>
> le due tabelle quindi non sono in relazione...la tabella origine mi serve
> solo per andare a leggere il percorso
> forse non è molto funzionale...vabbè...
>
> come posso fare?
>
> grazie
>
Comincia ad esserci un po' di luce! :-)
Se la casella di riepilogo si chiama Elenco ed ha DUE colonne e l'origine
riga che hai postato tu nei messaggi precedenti.
Se la la tabella Lista ha solo due campi: id (Contatore e chiave primaria) e
Titolo (Testo).
Se la tabella Origine ha due campi : Id (Contatore e chiave primaria) e
Percorso (Testo)
Se il pulsante di comando si chiama Suona.
A fronte dell'evento "Su clic" della casella di riepilogo genera il seguente
codice VBA:
Private Sub Elenco_Click()
Me!Suona.HyperlinkAddress = _
DLookup("percorso", "Origine") & _
Me!Elenco.Column(1)
Me!Suona.SetFocus
SendKeys "{ENTER}"
End Sub
Ho apportato una modifica per cui non devi più pigiare il pulsante Suona
dopo che hai scelto il titolo del brano sulla casella di riepilogo, Access
se lo pigia da solo.



title: Importazione nomi files

text:
mi da questo errore:
Errore di sintassi (Operatore mancante) nell'espressione della query
'c:\prova\'.
ecco il listato:
Me.suona.HyperlinkAddress = DLookup("c:\prova\", "Origine") &
Me.Elenco.Column(1)
Me.suona.SetFocus
SendKeys "{ENTER}"
ma in Origine che devo metterci?



title: Importazione nomi files

text:
"Le Roi" <
luk_...@libero.it
> ha scritto nel messaggio
news:151Z38Z7Z193Y1...@usenet.libero.it...
> mi da questo errore:
>
> Errore di sintassi (Operatore mancante) nell'espressione della query
> 'c:\prova\'.
>
> ecco il listato:
>
> Me.suona.HyperlinkAddress = DLookup("c:\prova\", "Origine") &
> Me.Elenco.Column(1)
> Me.suona.SetFocus
> SendKeys "{ENTER}"
>
> ma in Origine che devo metterci?
Mi spieghi per quale cavolo di motivo hai sostituito nella DLookup
"percorso" con "c:\prova\".
Non hai scritto tu che il campo della tabella Origine si chiama
"percorso"???
Forse č bene che vai sull'help e ti leggi cosa c'č scritto riguardo la
funzione DLookup.
Capisco che hai ancora difficoltą a capire ciņ che scrivo, ma almeno copia
bene; io fossi in te farei un banalissimo copia/incolla di quello che ti ho
postato nel mio messaggio precedente.



title: Importazione nomi files

text:
ok funziona grazie..
e scusa x l'iniziativa..pensavo che bisognava specificare il percorso...
sbagliando s'impara no?



title: Convertire collegamento ipertestuale in testo

author: Andrea

text:
Come da oggetto ho la necessità di effettuare la conversione del formato
ipertestuale in formato testo per poter sfruttare il path di immagini
memorizzate in tabella come collegamenti ipertestuali.
Non sono riuscito a trovare la mia risposta in nessun NG, nessun manuale di
Access e nemmeno tra amici....
Come posso estrarre il path di tale link in un altro campo (testo) in una
query?
Mi spiego meglio:
Il campo Path_f1 è di tipo "collegamento ipertestuale" e contiene
'immagini\foto\img1.jpg' se lo porto direttamente in formato testo me lo
scrive così: immagini\foto\img1.jpg#immagini\foto\img1.jpg# e io voglio
mantenere solo il contenuto tra #
In maschera ci sono riuscito:
Private Sub Form_Current()
Dim catstor_name As Double
Dim partpathstor As String
    If Me.Path_cat_stor = "" Or IsNull(Me.Path_cat_stor) Then
      assopathstor = "C:\Gis\noimg.tif"
       Else
      catstor_name = InStr(Me!Path_cat_stor, "#") + 1
      partpathstor = Mid(Me!Path_cat_stor, catstor_name,
Len(Me!Path_cat_stor) - catstor_name)
      assopathstor = Percorso & partpathstor
        With Forms!TBLSchede
        !catsto.Picture = assopathstor
        '.Caption = Mid(Me!Path_cat_stor, catstor_name,
Len(Me!Path_cat_stor) - catstor_name)
        End With
    End If
End Sub
La variabile Percorso contiene il path corrente del MDB; assopathstor
contiene il path completo dell'immagine che mi interessa
Non sono riuscito a replicare questa routine in un report (Perchè???? me lo
stò domandando ma senza risposte accetabili!!!) e ora mi trovo imbottigliato
a meno che non riesca a scrivere il path completo in tabella a partire dal
valore in maschera o semplicemente con una routine.
Ringrazio tutti per la disponibilità.
Andrea


author: Setec Astronomy

text:
Andrea wrote:
> Come da oggetto ho la necessit` di effettuare la conversione del
> formato ipertestuale in formato testo per poter sfruttare il path di
> immagini memorizzate in tabella come collegamenti ipertestuali.
> Non sono riuscito a trovare la mia risposta in nessun NG, nessun
> manuale di Access e nemmeno tra amici....
> Come posso estrarre il path di tale link in un altro campo (testo) in
> una query?
Creati un funzione pubblica che estrae il contenuto della stringa tra #
ed # ed utilizzalo nella query.


text:
"Setec Astronomy" <
se...@freemail.it
> ha scritto nel messaggio
news:2x1Ma.136188$lK4.3...@twister1.libero.it...

Il problema mi rimane nel creare la funzione.... e soprattutto nel
richiamarla dalla query che non ho mai fatto!!


text:
Andrea wrote:
>
> "Setec Astronomy" <
se...@freemail.it
> ha scritto nel messaggio
> news:2x1Ma.136188$lK4.3...@twister1.libero.it...
[cut]
> > Creati un funzione pubblica che estrae il contenuto della stringa
> > tra # ed # ed utilizzalo nella query.
>
> Il problema mi rimane nel creare la funzione.... e soprattutto nel
> richiamarla dalla query che non ho mai fatto!!
1^ se avessi cercato su internet o sull'help in linea di Access avresti
trovato tutte le risposte ai tuoi problemi.
2^ la pappa pronta e' facile da usare, ma se non capisci il
funzionamento e' solo un lavoro di copiatura inutile.
La funzione che ti serve e' del tipo:
Public Function Fuck(Value As String)
Dim tmp As Integer
tmp = InStr(Value, "#")
If tmp <> 0 Then
    Value = Mid(Value, tmp + 1)
End If
tmp = InStr(Value, "#")
If tmp <> 0 Then
    Value = Left(Value, tmp - 1)
End If
Fuck = Value
End Function
La query una cosa del tipo
INSERT INTO Tabella2 ( Url2 )
SELECT Fuck([url]) AS Espr1
FROM Tabella1;


title: Errori all'apertura del DB con Access XP

author: Antonello P.

text:
Ciao a tutti
ho sviluppato un DB con Access 2000 e va tutto bene sp2.
Se loprovo su un pc con Access XP(2002) mi va in crash presentandomi
la maschera per la segnalazione dell'errore ala microsoft dopo di che
si chiude.
Ho qualche speranza di farlo funzionare in entrambe le versioni?
Grazie


author: MA

text:
"Antonello P." <
antonell...@tiscali.it
> ha scritto nel messaggio
news:efacde40.04121...@posting.google.com...

Normalmente non ci sono problemi.
Però converti in xp, compila e trasformalo in mde.
MAssimiliano


text:
> Ciao a tutti
> ho sviluppato un DB con Access 2000 e va tutto bene sp2.
> Se loprovo su un pc con Access XP(2002) mi va in crash presentandomi
> la maschera per la segnalazione dell'errore ala microsoft dopo di che
> si chiude.
>
> Ho qualche speranza di farlo funzionare in entrambe le versioni?
> Grazie
mi č stato consigliato di convertirlo in Access e XP e creare il file mde.
Perň ho 7 Front End replicati e 2 Back end replicati.
Posso sempre farlo?
Se apporto delle modiche ai master che devo fare?
Cmq va subito in crash non si apre proprio


title: Impedire modifiche involontarie

author: Giacomo Ciani

text:
Ciao di nuovo, questa volta il problema è:
ho una maschera associata ad una tabella, e contenente una casella di
riepilogo che elenca tutti i record della tabella: quando se ne seleziona
uno, la maschera si sposta su quello.
Ora, voglio impedire modifiche accidentali, permettendo di farle solo dopo
la pressione di un'apposito pulsante: per evitare di dover "bloccare" e
"sbloccare" tutti i singoli controlli alla pressione del pulsante, ho
pensato di impostare all'apertura della maschera la proprietà Consenti
modifiche su NO, e cambiarla alla pressione del pulsante per la modifica. La
cosa sembrava funzionare, ma poi mi sono accorto che blocca anche la
selezione della casella di riepilogo, benchè questo non comporti una
modifica ai records...
Avete suggerimenti? C'è un modo per escludere la casella di riepilogo dal
blocco? Oppure l'unico modo è quello di bloccare i singoli controlli e
sbloccarli alla pressione del pulsante per la modifica?
Grazie ancora a tutti.


title: Impedire modifiche involontarie

author: warp

text:
Giacomo Ciani ha scritto nel messaggio


Se i controlli sono molti e ti secca sbloccarli uno ad uno, puoi "marcarli" con un Tag e  poi
ciclare per sbloccarli/ribloccarli.
Ciao, warp


title: Impedire modifiche involontarie

text:
Ok, buon consiglio... ma come si fa?
In particolare come si scrive il codice relativo?
Grazie
"warp" <
war...@libero.it
> ha scritto nel messaggio
news:9ogbhh$17j$1...@fe1.cs.interbusiness.it...



title: Impedire modifiche involontarie

text:
Giacomo Ciani ha scritto nel messaggio <
>Ok, buon consiglio... ma come si fa?
>
>In particolare come si scrive il codice relativo?
Crea una funzione in un modulo globale come la seguente:
Public Function AttivaControlli(Frm As Form)
  Dim Ctr As Control
   For Each Ctr In Frm.controls
            If Ctr.Tag = "OnOff" Then           'Tag che identifica il campo
                     Ctr.enabled = true              'oppure locked
            End If
   Next Ctr
End Function
Poi la chiami su click del bottone.
Se non vuoi passare il parametro "form" puoi usare Screen.ActiveForm
Ciao, warp


title: Impedire modifiche involontarie

text:
Grazie mille!
"warp" <
war...@libero.it
> ha scritto nel messaggio
news:9ohvgt$r2r$1...@fe2.cs.interbusiness.it...



title: Impedire modifiche involontarie

text:
"Giacomo Ciani" <
giacom...@inwind.it
> ha scritto nel messaggio
news:9og7e4$ued$1...@nreadb.inwind.it...

Io credo che i suggerimenti siano buoni, ma personalmente ritengo che il
sistema migliore
sia di lavorare con maschere non associate.
Vale a dire Crei una Form non associata con controlli non associati, un bel
pulsante Salva
e con DAO o ADO scrivi i dati nelle Tabella dopo aver chiesto la
conferma.....
OPPURE se sei  più esperto inserisci nel TAG l'origine controllo dati e crei
una Routine che al "SALVA" riassocia
i controlli alla Tabella con il NomeCampo relativo.
Il vantaggio della prima soluzione è la possibilità di gestire Tranzazioni
con tutti i vantaggi del RollBack.....
Tutto questo è più complicato di quanto voi avete detto fino ad ora, ma
personalmente lo ritengo più funzionale.
Sarebbe possibile realizzare un Modulo di classe per gestire la Proprietà
TAG di tutti i Controlli in un Form e
realizzare la Riassociazione alla Tabella.
Bye @Alex.


title: Impedire modifiche involontarie

text:
@Alex ha scritto nel messaggio <
>Io credo che i suggerimenti siano buoni, ma personalmente ritengo che il
>sistema migliore
>sia di lavorare con maschere non associate.
>Vale a dire Crei una Form non associata con controlli non associati, un bel
>pulsante Salva
>e con DAO o ADO scrivi i dati nelle Tabella dopo aver chiesto la
>conferma.....
>OPPURE se sei  più esperto inserisci nel TAG l'origine controllo dati e crei
>una Routine che al "SALVA" riassocia
>i controlli alla Tabella con il NomeCampo relativo.
>Il vantaggio della prima soluzione è la possibilità di gestire Tranzazioni
>con tutti i vantaggi del RollBack.....
IMHO per maschere di data entry è una soluzione un tantino macchinosa.
Il vantaggio reale delle transazioni lo apprezzi con elaborazioni batch ... questo se le transazioni
con ms-jet fossero affidabili  :-)
Ma quando i clients aumentano il rollback lascia a desiderare.
A parte questo è così comodo l'autosave record per record...
Ciao, warp


title: Impedire modifiche involontarie

text:
"Giacomo Ciani" <
giacom...@inwind.it
> ha scritto nel messaggio
news:9oi45t$p52$1...@nreadb.inwind.it...
soluzione a mio avviso buona e modulabile su tutte le maschere....
fai un modulo cosě
--------------
Public Function sbloccamask(mask As String)
Dim risposta
risposta = MsgBox("Attenzione si stanno per sbloccare i dati del cliente per
eventuale modifica", vbYesNo, "Sblocco i dati?")
If risposta = vbYes Then
Forms(mask).AllowEdits = True
ElseIf risposta = vbNo Then
Forms(mask).AllowEdits = False
End If
End Function
---------------------
Public Function bloccaon(mask As String)
    If DLookup("block_mask", "setup") = True Then
       Forms(mask)!pls_modifica.Visible = True
       Forms(mask).AllowEdits = False
    Else
       Forms(mask)!pls_modifica.Visible = False
    End If
End Function
----------------
e sulla maschera/maschere su cui vuoi un controllo antimodifica inserisci:
-----------
Private Sub Form_Current()
Call bloccaon(Form.Name)
End Sub
-----------------
poi sulla maschera vera e propria fai un pulsante chiamato pls_modifica
(sblocca maschera) con evento su click cosě....
--------
Private Sub pls_modifica_Click()
Call sbloccamask(Form.Name)
End Sub
----------------
io ti consiglio poi di fare una tabella nel database chiamata SETUP, con la
sua eventuale maschera...dove inserirai un campo SI/NO chiamato block_mask
che serve per abilitare la funzione di bloccaggio delle maschere o
disabilitarla.
Se la l'abiliti compare il pulsante Sblocca maschera se no non appare e la
maschera non č bloccata.
Non solo nella maschera SETUP puoi poi inserire una serie di controlli di
programma come le directory di lavoro, valori predefiniti ecc. che tu
attraverso la funzione Dlookup vai a prelevare di volta in volta nella
tabella...
ciao e spero di esserti stato utile


title: Impedire modifiche involontarie

author: Silvio Berruti

text:
"Giacomo Ciani" <
giacom...@inwind.it
> ha scritto nel messaggio
news:9oht8v$fte$1...@nreadb.inwind.it...
> Ok, buon consiglio... ma come si fa?
Basta imparare a rispondere dopo il testo dei messaggi precedenti.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Impedire modifiche involontarie

text:
"### CH v2.001 ###" <
ngma...@genio-af.it
> ha scritto nel messaggio
news:9okmqj$fso$1...@fe2.cs.interbusiness.it...
>
> "Giacomo Ciani" <
giacom...@inwind.it
> ha scritto nel messaggio
> news:9oi45t$p52$1...@nreadb.inwind.it...
>
> soluzione a mio avviso buona e modulabile su tutte le maschere....
>
> fai un modulo così
> --------------
> Public Function sbloccamask(mask As String)
> Dim risposta
>
> risposta = MsgBox("Attenzione si stanno per sbloccare i dati del cliente
per
> eventuale modifica", vbYesNo, "Sblocco i dati?")
>
> If risposta = vbYes Then
> Forms(mask).AllowEdits = True
>
> ' ElseIf risposta = vbNo Then
    Else
> Forms(mask).AllowEdits = False
>
> End If
[CUT]



title: Impedire modifiche involontarie

author: Alessandro Baraldi

text:
"warp" <
war...@libero.it
> wrote in message
news:9okjtl$e69$1...@fe2.cs.interbusiness.it...

Mi permetto di Replicare, ma non per imporre nulla, io spesso ricorro
a questa Funzione che posto giusto per non fraintendere l'utilizzo
della proprietà TAG, raramente utilizzata, e che, secondo me, non è
alquanto macchinosa, basta richiamarla nel caso di Nuovo Record, e al
salvataggio dello stesso, ovviamente con le dovute modalità.
*******************************************************
Public Function Associa(Frm As Form, Bl As Boolean)
   Dim ctl As Control
   For Each ctl In Frm.Controls
      If Len(ctl.Tag) > 0 Then
         If Bl Then
            ctl.ControlSource = ctl.Tag
         Else
            ctl.ControlSource = ""
         End If
      End If
   Next
End Function
*******************************************************
Se la richiami associa me,false dopo il comando Docmd...AcNewRecords
, i controlli sono non Associati, sul Comando Salva la richiami associa me,true
ovviamente chiedendo conferma del salvataggio ecc..., e il Nuovo Record è
salvato
Se vuoi utilizzarla anche per le modifiche dei Record esistenti basta
implementare
la copia del Valore del Controllo prima di Disassociare....
Mi pare veloce e funzionale....!
@Alex.
non associati, poi se
--
Posted from  [62.98.12.118]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Impedire modifiche involontarie

text:
"Alessandro Baraldi" <
ik2...@libero.it
> wrote in message
news:0ccc29ed628b73640e...@mygate.mailgate.org...
> "warp" <
war...@libero.it
> wrote in message
> news:9okjtl$e69$1...@fe2.cs.interbusiness.it...
>
> >
> > @Alex ha scritto nel messaggio <
> >
> > >Io credo che i suggerimenti siano buoni, ma personalmente ritengo che il
> > >sistema migliore
> > >sia di lavorare con maschere non associate.
> > >Vale a dire Crei una Form non associata con controlli non associati, un bel
> > >pulsante Salva
> > >e con DAO o ADO scrivi i dati nelle Tabella dopo aver chiesto la
> > >conferma.....
> > >OPPURE se sei  più esperto inserisci nel TAG l'origine controllo dati e crei
> > >una Routine che al "SALVA" riassocia
> > >i controlli alla Tabella con il NomeCampo relativo.
> > >Il vantaggio della prima soluzione è la possibilità di gestire Tranzazioni
> > >con tutti i vantaggi del RollBack.....
> >
> > IMHO per maschere di data entry è una soluzione un tantino macchinosa.
> > Il vantaggio reale delle transazioni lo apprezzi con elaborazioni batch ... questo se le transazioni
> > con ms-jet fossero affidabili  :-)
> > Ma quando i clients aumentano il rollback lascia a desiderare.
> >
> > A parte questo è così comodo l'autosave record per record...
> >
> > Ciao, warp
>
Chiedo scusa e Retifico parte del Codice precedente per chiarezza,
mi rendo conto che quello postato non è sufficiente per dimostrare
il Funzionamento: Maschera con 2 Pulsanti
1)Nuovo
2)Salva
Manca il Modifica, saprete sicuramente come supplire la carenza...!
************************************************
Private Sub CmdNuovo_Click()
   DoCmd.GoToRecord , , acNewRec
   Associa Me, False
End Sub
Public Function Associa(Frm As Form, Bl As Boolean)
   Dim ctl As Control
   Dim strName As String
   For Each ctl In Frm.Controls
      strName = ctl.Name
      If Len(ctl.Tag) > 0 Then
         If Bl Then
            ctl.ControlSource = ctl.Tag
            ctl.SetFocus
         Else
            ctl.ControlSource = ""
         End If
      End If
   Next
End Function
Private Sub cmdSave_Click()
   Associa Me, True
   Me.Dirty = True
End Sub
******************************************
Spero di aver chiarito ciò che intendevo....
@Alex.
--
Posted from  [62.98.10.142]



title: Impedire modifiche involontarie

author: Antonio Biso

text:
Silvio Berruti <
sber...@libero.it
> wrote in message
CJor7.30680$Lp6.1...@news.infostrada.it...
>
> "Giacomo Ciani" <
giacom...@inwind.it
> ha scritto nel messaggio
> news:9oht8v$fte$1...@nreadb.inwind.it...
> > Ok, buon consiglio... ma come si fa?
>
> Basta imparare a rispondere dopo il testo dei messaggi precedenti.
Eheheh hehehe
M'hai copiato lo stile eh?
Antonio


title: Impedire modifiche involontarie

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:0eNr7.3244$jT5.1...@news.infostrada.it...

A forza di leggerti, sono rimasto influenzato...



author: Ivan

text:
  salve a tutti, sto impazzendo col collegamento di maschere e sottomaschere
attraverso dei pulsanti....
considerate che ho 2 tabelle:
- Dealer: Codice Dealer (String), Cognome, Nome, P.IVA...
- Contratti: Numero Contratto (Contatore), Id_Dealer (String), Imnporti,...
le tabelle sono collegate tramita una relazioni 'uno a molti' (Codice Dealer
-> Id_Dealer)
ho screato 2 distinte maschere:
- Dealer (relativa alla tabella Dealer) con pulsante che dovrebbe richiamare
le sottomaschera e 'pre-compilare' il campo 'Id_Dealer' in funzione del
campo 'Codice Dealer?
- Agguingi Contratto Dealer (relativa alla tabella Contratti)
ho inserito le seguenti righe di codice:
- nella maschera Dealer:
Option Compare Database
Option Explicit
Private Sub AggiungiContratto_Click()
On Error GoTo Err_AggiungiContratto_Click
    Dim strNomeDoc As String
    strNomeDoc = "Aggiungi Contratto Dealer"
    DoCmd.OpenForm strNomeDoc, , , , acAdd, , Me![Codice Dealer]
    Forms![Aggiungi Contratto Dealer]!Numero_Contratto.SetFocus

Esci_AggiungiContratto_Click:
    Exit Sub

Err_AggiungiContratto_Click:
    MsgBox Err.Description
    Resume Esci_AggiungiContratto_Click
End Sub
- nella sottomaschera Aggiungi Contratti Dealer
Option Compare Database
Option Explicit
Private Sub Id_Dealer_BeforeUpdate(Cancel As String)
End Sub
Private Sub Id_Dealer_AfterUpdate()
    If IsNull(Forms![Aggiungi Contratto Dealer].OpenArgs) Then
        Exit Sub
    Else
        Me![Id_Dealer] = Forms![Aggiungi Contratto Dealer].OpenArgs
    End If

End Sub
aprendo la sottomaschera, mi compare un errore: Metodo 'Item' dell'oggetto
'Forms' non riuscito
cosa sbaglio????????????????????????
please aiutatemi ;-)
thanks
Ivan
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Metodo 'Item' dell'oggetto 'Forms' non riuscito

text:
Risolto il tutto !!!!!!!!!!!!!!!!!!!!!!!! ;-)
Grazie comunque :-)



title: SQL server 7 Ent. Edition problemi di installazione

author: Paolo La Malfa

text:
Ciao a tutti
è possibile installare SQL7 su una macchina W2000professional ????
io ci ho provato ma mi lascia installare solo il client,
esiste in installazione particolare che lo faccia funzionare su una macchina
non server?
Grazie a tutti
Paolo La Malfa
lama...@axia.it


author: LaLo

text:
"Paolo La Malfa" <
lama...@axia.it
> ha scritto nel messaggio
news:Htd76.3647$1c.2...@twister2.tin.it...

L'installazione della versione Desktop (fornita con Visual Studio 6).
Ciao
LaLo


text:
E se io non ho visual studio ma solo il CD di SQL 7
non posso fare niente???
se installo W2000 server sulla mia macchina ho risolto il problema???
Grazie Paolo
PS io ho visual studio 5 posso risolvere qualcosa????
"LaLo" <reg...@LLtin.it> ha scritto nel messaggio
news:93jpjo$m8l$1...@pluto.sm.dsi.unimi.it...



text:
"Paolo La Malfa" <
lama...@axia.it
> ha scritto nel messaggio
news:aKf76.17717$FF1.1...@twister1.tin.it...
> E se io non ho visual studio ma solo il CD di SQL 7
> non posso fare niente???
>
>
> se installo W2000 server sulla mia macchina ho risolto il problema???
>
> Grazie Paolo
>
>
> PS io ho visual studio 5 posso risolvere qualcosa????
>
[CUT]
Se installi W2000 Server puoi installare SQL Server 7.
La prossima volta perň rispondi dopo il quoting.
Ciao
LaLo


author: pietro

text:
"Paolo La Malfa" <
lama...@axia.it
> ha scritto nel messaggio
news:Htd76.3647$1c.2...@twister2.tin.it...

Di Sql 7 ci sono due versioni la standard e la desktop
1) la standard contiene (per semplificare) sia il server che i componenti
client di sql
2) la desktop contiene solo i componenti client
L'installazione su w2000 prof. e' possibilissima
Sql 7 funziona anche su w98 (come riportato nella guida)
Occorre installare però la versione standard
Pietro


text:
"pietro" <
p...@libero.it
> ha scritto nel messaggio
news:AUJ76.34032$eB2.3...@news.infostrada.it...
>
> "Paolo La Malfa" <
lama...@axia.it
> ha scritto nel messaggio
> news:Htd76.3647$1c.2...@twister2.tin.it...
[CUT]
>
> Di Sql 7 ci sono due versioni la standard e la desktop
> 1) la standard contiene (per semplificare) sia il server che i componenti
> client di sql
> 2) la desktop contiene solo i componenti client
>
> L'installazione su w2000 prof. e' possibilissima
>
> Sql 7 funziona anche su w98 (come riportato nella guida)
>
> Occorre installare però la versione standard
>
> Pietro
>
Scusa ma mi permetto di contraddirti. La versione Desktop è un'installazione
per sistemi non NT (sempre M$ però); quello che puoi installare su W98 è
proprio questa versione. Se inserisci il disco della versione standard
(disco 2 della distribuzione BackOffice 4.5) su un sistema non NT, si
accorge del S.O. e ti dice che può installare solo i componenti client.
Ciao
LaLo


title: creazione del registro degli errori in corso....

author: Roberto

text:
dopo la conversione dal '97 al 2000 professional, mi succede spesso di avere
questo malfunzionamento, scorrendo i record di una maschera continua con
diverse sottomaschere, mediante pulsanti ad hoc che usano l'istruzione
docmd.gotorecord, , acprevious (o next o first o last).
(le tabelle cui è connesso il client sono repliche).
dopo il primo messaggio, il prg viene chiuso e da quel momento il
malfunzionamento è la regola... MA SE FACCIO UN REBOOT tutto rifunziona a
meraviglia... per un pò.
succede anche a voi?
chi mi dà una dritta?
e soprattutto, sto benedetto registro degli errori, dove viene salvato?
Roberto


title: istruzione sql

author: Gabriele

text:
Sapete che istruzione serve per richiamare in un report determinati record
presenti in una tabella priva di campo chiave primaria ?
La tabella si chiama GIACENZE , con i campi articolo e anno e giacenza (
infatti per ogni anno la giacenza è diversa , per cui la chiave univoca è la
combinazione dei due campi , che è pure un indice della tabella ) .
La tabella ORDINI contiene le righe con gli articoli che costituiscono
appunto l'ordine , io vorrei stampare un report con l'elenco articoli
presenti nell'ordine e con accanto le giacenze .
Ebbene quando apro la tabella GIACENZE inevitabilmente nel report finisce la
giacenza dell'articolo corretto  ma relativa al primo anno presente in
tabella GIACENZE , cioè sempre il 2000 !
Io vorrei che se l'ordine è del 2005 , mi stampi la giacenza dell'anno 2005
ovviamente!
Potrei usare il campo ESERCIZIO  DOCUMENTO ( tale esercizio è semplicemente
l'anno della data del documento) della tabella ordini  per relazionare ANNO
e ESERCIZIO DOCUMENTO ?
saluti!
--
Cordiali saluti


title: istruzione sql

author: giorgio rancati

text:
--
Giorgio Rancati
[Office Access MVP]
"Gabriele" <
michel...@libero.it
> ha scritto nel messaggio
news:daehek$afv$1...@carabinieri.cs.interbusiness.it...

Ciao Gabriele,
Puoi generare una tabella derivata nella select che metterai in Left Join
con la tabella giacenze tramite l'anno della data dell'ordine e il codice
articolo del dettaglio ordini
esempio
date queste tabelle di esempio
Ordini
-----
IdOrdine, Data, Cod_Cli, ecc
-----
Ordini_Dettaglio
-----
IdOrdine, Articolo, Quantita, ecc
-----
Giacenze
-----
Anno, Articolo, Giacenza
-----
Possiamo costruire questa query
-----
Select O.*,
       G.Giacenza
From (Select Ordini.Data,
             Ordini.Cod_Cli,
             Ordini_Dettaglio.Articolo,
             Ordini_Dettaglio.Quantita
       From Ordini Inner Join Ordini_Dettaglio
             ON Ordini.IdOrdine = Ordini_Dettaglio.IdOrdine) AS O
    Left Join Giacenze G
             ON Year(O.Data)=G.Anno AND O.Articolo=G.Articolo
-----
Ciao Giorgio


title: totale progressivo su sito comune (parte 2)

author: fabią

text:
purtroppo il codice presente sul sito comune non mi funziona, vi
spiego la situazione:
ho una query di unione (Query1) contenente i seguenti campi:
Data
Quantità
vorrei avere un altro campo che mi calcoli il totale progressivo del
campo [Quantità] come segue.
Data	 Quantità  	Totale
25/10/03	1	1
26/10/03	2	3
...		...	...
ho inserito il campo calcolato come spiegato sul sito comune:
Totale:CDbl(TotProgrQry("????";[?????];"Quantità";"Query1"))
vorrei sapere cosa dovrei scrivere al posto dei punti interrogativi
(la query1 unisce dati presenti in una tabella e in una query), per
semplicità riporto di seguito quanto scritto nel sito comune. Grazie
______________________________________________________________________
Come si può ottenere il totale progressivo di un campo in una query?
  Roberto
In un modulo del database memorizzare la seguente funzione:
Function TotProgrQry(KeyName As String, KeyValue, FieldNameToGet As
String, NomeTabella As String)
Dim RS As DAO.Recordset
On Error GoTo Err_TotProgrQry
TotProgrQry = 1
Set RS = CurrentDb().OpenRecordset(NomeTabella, dbOpenDynaset)

' Trova il record corrente
Select Case RS.Fields(KeyName).Type
    ' La chiave è Numerica?
    Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, DB_DOUBLE,
DB_BYTE
        RS.FindFirst "[" & KeyName & "] = " & KeyValue
    ' La chiave è di tipo Data/ora?
    Case DB_DATE
        RS.FindFirst "[" & KeyName & "] = #" & Format(KeyValue,
"mm/dd/yyyy") & "#"
    ' La chiave è di tipo Testo?
    Case DB_TEXT
        RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'"
    Case Else
        MsgBox "ERRORE: Tipo dati della chiave non valido!"
        Exit Function
   End Select
Do Until RS.BOF
    TotProgrQry = TotProgrQry + RS(FieldNameToGet)
    RS.MovePrevious
Loop
Set RS = Nothing
Bye_TotProgrQry:
    Exit Function
Err_TotProgrQry:
    Resume Bye_TotProgrQry
End Function
Nella query crea un campo calcolato nel modo seguente:
   Totale:
CDbl(TotProgrQry("IDMovimento";[IDMovimento];"Quantità";"Query1"))
dove IDMovimento è la chiave primaria della tabella che contiene i
dati, Quantità è il nome del campo di cui si vuole il totale
progressivo e Query1 è il nome della query.
Saluti Fabià


author: cidi

text:
"fabià" <fabia...@SPAMMAREyahoo.com> ha scritto nel messaggio
news:qaosqvo08j8n32gb9...@4ax.com...
> purtroppo il codice presente sul sito comune non mi funziona, vi
> spiego la situazione:
>
> ho una query di unione (Query1) contenente i seguenti campi:
> Data
> Quantità
>
> vorrei avere un altro campo che mi calcoli il totale progressivo del
> campo [Quantità] come segue.
>
> Data Quantità  Totale
>
> 25/10/03 1 1
> 26/10/03 2 3
> ... ... ...
>
>
> ho inserito il campo calcolato come spiegato sul sito comune:
> Totale:CDbl(TotProgrQry("????";[?????];"Quantità";"Query1"))
>
> vorrei sapere cosa dovrei scrivere al posto dei punti interrogativi
> (la query1 unisce dati presenti in una tabella e in una query), per
> semplicità riporto di seguito quanto scritto nel sito comune. Grazie
CUT
Questa spiegazione NON ti basta?
> dove IDMovimento è la chiave primaria della tabella che contiene i
> dati, Quantità è il nome del campo di cui si vuole il totale
> progressivo e Query1 è il nome della query.
> Saluti Fabià
Daniele


text:
On Sun, 09 Nov 2003 16:51:11 GMT, "cidi" <
dadonzin...@tin.it
>
wrote:

direi proprio di no.
 se vado a fare anche solo una query di prova su una tabella e faccio
ocme indicato, il risultato del progressivo è sempre 0.
nel mio caso la query unisce dati da una tabella e una query, come
faccio a trovare la chiave primaria visto cche i dati risiendono in 2
posti differenti?
grazie per la pazienza
Saluti Fabià


title: Errore MaxLocksPerFile

text:
Salve a tutti,
ho due pc in rete, un 2000Server 512Mb ram e un 2000Pro a 256Mb entrambi
sono PIII600 e il master ha un grosso dbase replicato sullo slave ... mi
esce l'errore in oggetto ...
dal regedit ho gia provato a aumentare a dismisura il valore ma il tutto
continua a ripetersi, ho anche verificato sul sito di Karl ma non ho risolto
il mio problema ... altre dritte in merito?
Buona giornata a tutti Voi  dal recidivo ...
--
strano...mavero


title: eseguire applicazione ridotta ad icona

text:
Buongiorno.
Intervenendo sul collegamento eseguo un'applicazione access (che su
timer esege x in funzione di y) ridotta ad icona. Tutto bene se non
fosse che la finestra precdentemete ridotta si apre quando (ad
esempio) eseguo un'altra applicazione access.
E' possibile evitare questa apertura ?
In alternativa come posso eseguirla nella barra delle applicazioni ?
Grazie
MArco


title: eseguire applicazione ridotta ad icona

author: ciroteo

text:

beh non so se hai tempo di aspettare che MA pubblichi sul sito comune
troverai qualche materiale a proposito. intuitivamente mi sembra che
possa fare al caso tuo il tip che ci ha illustrato namor alla cisa3 :
ha provato ad avviare access come un servizio.
Forse integrando la partenza iconizzata e lì'avvio del servizio
probabilmente riesci a fare quanto dici.
Suggerimento da super profano però ...


title: eseguire applicazione ridotta ad icona

text:
On 12 Giu, 12:54,
black.mar...@hotmail.it
 wrote:

Si apre perchè Access non è fatto per lavorare in MultiThread quindi
ovviamente per aprire il tuo MDB viene aperta l'istanza di Access già
presente.
Se la cosa deve girare in Back serve uno strumento diverso non Access.
Un semplice Exe activex in VB6 ti permetterebbe di fare la cosa in
modo corretto.
@Alex


title: Gestione titoli di borsa

author: giangi

text:
Salve a tutti. Volevo fare un programma per la gestione dei titoli di borsa
tramite msaccess2003. Ho trovato un sito che spiega come prelevare da yahoo
le quotazioni di borsa. queste vengono trasmesse nel formato .csv con dati
separati da virgola. Come posso fare per trasferirli in una tabella di
access per poi gestirli localmente?
esempio:
http://quote.yahoo.com/d/quotes.csv?s=ENEL.MI+FNC.MI+MS.MI+A2A.MI&f=nl1p
il link sopra recupera un file .csv con le quotazioni giornaliere di ENEL,
FINMECCANICA e A2A e quelle del giorno prima
come posso richiamarla da access e leggere poi il contenuto del file.
Grazie dell'aiuto
Per chi fosse interessato mando il link del sito
http://translate.googleusercontent.com/translate_c?hl=it&langpair=en|it&u=http://www.codeproject.com/KB/aspnet/StockQuote.aspx&rurl=translate.google.it&usg=ALkJrhioHSJpP6UUuqSBp6PlaTI9sndDdg


title: Gestione titoli di borsa

text:
"giangi" <
g.fr...@fastwebnet.it
> ha scritto nel messaggio
news:Acsyp.20486$GZ3....@tornado.fastwebnet.it...
> Salve a tutti. Volevo fare un programma per la gestione dei titoli di
> borsa tramite msaccess2003. Ho trovato un sito che spiega come prelevare
> da yahoo le quotazioni di borsa. queste vengono trasmesse nel formato .csv
> con dati separati da virgola. Come posso fare per trasferirli in una
> tabella di access per poi gestirli localmente?
> esempio:
se fai importa tabella hai possibilità di scegliere la tipologia di file
esterno tra cui quelli CSV
poi segui l'importazione guidata
Antonio


title: Gestione titoli di borsa

text:
"Antonio Biso" <
ab...@libero.it
> ha scritto nel messaggio
news:iqdjfd$jip$2...@speranza.aioe.org...

A livello manuale non è un problema. Io cerco di creare una funzione che
recupera da VBA il file per poi copiarne il contenuto, sempre da VBA. Così
si potrà avere l'aggiornamento  dei titoli premendo solo in tasto aggiorna.
Dal momento che i titoli richiesti sono personalizzabili posso creare una
tabella con i titoli che interessano e monitorarli in tempo reale,+/-.


title: Gestione titoli di borsa

text:
"giangi" <
g.fr...@fastwebnet.it
> ha scritto nel messaggio
news:Rrsyp.20494$GZ3....@tornado.fastwebnet.it...

Se il formato della tabella è sempre lo stesso, usa allora le tabelle
collegate
dovrai solo sostituire la tabella del giorno prima con quella del giorno
dopo con lo stesso nome
Antonio


title: Gestione titoli di borsa

text:
"Antonio Biso" <
ab...@libero.it
> ha scritto nel messaggio
news:iqdrf8$8k1$1...@speranza.aioe.org...

Grazie innanzitutto per l'aiuto. Si così funziona ed l'ho stò già
utilizzando. Io volevo automatizzare il tutto.


title: Gestione titoli di borsa

text:
"giangi" <
g.fr...@fastwebnet.it
> ha scritto nel messaggio
news:jBxyp.20714$GZ3....@tornado.fastwebnet.it...
>
>>> A livello manuale non è un problema. Io cerco di creare una funzione che
>>> recupera da VBA il file per poi copiarne il contenuto, sempre da VBA.
>>> Così si potrà avere l'aggiornamento  dei titoli premendo solo in tasto
>>> aggiorna. Dal momento che i titoli richiesti sono personalizzabili posso
>>> creare una tabella con i titoli che interessano e monitorarli in tempo
>>> reale,+/-.
>>>
>>>
>>
>> Se il formato della tabella è sempre lo stesso, usa allora le tabelle
>> collegate
>> dovrai solo sostituire la tabella del giorno prima con quella del giorno
>> dopo con lo stesso nome
>>
>> Antonio
>>
> Grazie innanzitutto per l'aiuto. Si così funziona ed l'ho stò già
> utilizzando. Io volevo automatizzare il tutto.
scusa, ma cosa vuoi automatizzare?
lo scarico da internet lo devi fare cmq tu
Antonio


title: COME CAVOLO FACCIO a scrivere/leggere dati binari in un file?

author: MegaMax

text:
Sto sclerando....
Cosa voglio fare? Semplice a dirsi...
Voglio memorizzare la configurazione della stampante in un file :-)
Però dopo averla scritta non riesco più aleggerla in modo utilizzabile...
come faccio?
variabili:
    Dim StringaPer As str_DEVMODE
    Dim StringaPer2 As str_DEVMODE
    Dim strModalitàExtraPer As String
    Dim strModalitàExtraPer2 As String
    Dim DM2 As type_DEVMODE
    Dim DM As type_DEVMODE
    Dim rpt As Report
    Dim strDrv As String * 662
    Dim strDrv2 As String * 662
Codice:
    DoCmd.OpenReport "Mtest2", acDesign
    Set rpt = Reports("Mtest2")
    Open "c:\cfg.txt" For Binary Access Write As #1 'scrivo i dati binari
    Put #1, , rpt.PrtDevMode
    strModalitàExtraPer = strDrv                       'usati per debug
    StringaPer.RGB = strModalitàExtraPer      'usati per debug
    LSet DM = StringaPer                                  'usati per debug
    Close #1
e così scrivo i dati, faccio i conti.. la struttura occupa 1324 byte, il
file anche... quindi va tutto bene penso...
il problema è che non riesco più a leggerli in modo utilizzabile.
    Open "c:\cfg.txt" For Binary Access Read As #1
    Get #1, , strDrv2
    strModalitàExtraPer2 = strDrv2                         'usati per debug
    StringaPer2.RGB = strModalitàExtraPer2        'usati per debug
    LSet DM2 = StringaPer2                                   'usati per
debug
    Close #1
A questo punto controllo i dati, ed in DM ovviamente ho i dati del driver...
in DM2 ho del rudo :-(((
E' tutta mattina che ci provo.... ci sono varie cose che non capisco... ho
paura che il VB faccia casino cercando di interpretare i dati nelle stringhe
quando li leggo. Infatto io scrivo 1324 bytes... ma la stringa che li
contiene (sia strDrv che strDrv2 ) è lunga 662 caratteri.
Stringendo... come cavolo faccio a prendere la stringa che mi ritorna
rpt.PrtDevMode, metterla in un file, poi riprenderla dal file, e rimetterla
al suo posto (in rpt.PrtDevMode)?
Max (che sto diventando scemo)


author: Allanon

text:
>     Get #1, , strDrv2
Devi già sapere quanti byte estrarre dal file...
Così fai: strDrv2=space$(Numbyte)
poi:
    Get #1, , strDrv2
Se non puoi fare altrimenti scrivi un long all'inizio della stringa con la
sua lunghezza...
            Ciao
                    Allanon


text:
Secondo me ti conviene crearti un tuo tipo di variabile:
Type MIO_TIPO
    Dim StringaPer As str_DEVMODE
    Dim StringaPer2 As str_DEVMODE
    Dim strModalitàExtraPer As String
    Dim strModalitàExtraPer2 As String
    Dim DM2 As type_DEVMODE
    Dim DM As type_DEVMODE
    Dim rpt As Report
    Dim strDrv As String * 662
    Dim strDrv2 As String * 662
End Type
Dim MiaConf as MIO_TIPO
e poi lo scrivi e leggi con una sola istruzione
'Lettura
    Open "c:\cfg.txt" For Binary As #1
        Get #1, , MiaConf
    Close
'Scrittura
    Open "c:\cfg.txt" For Binary As #1
        Put #1, , MiaConf
    Close


text:
"Ivan" <
ivanca...@libero.it
> ha scritto nel messaggio
news:9gn6um$fog$1...@fe1.cs.interbusiness.it...

GRANDE IDEA! Così va che è una favola :-)
Ecco come salvare/ripristinare tutta la configurazione della stampante di un
dato report:
Type prnCfg
    prtDevMode As Variant
    prtMip As Variant
    PrtDevNames As Variant
End Type
Public Sub Salva()
    Dim rpt As Report
    Dim vrt As prnCfg
    ' Apre il report in visualizzazione Struttura.
    DoCmd.OpenReport "Mtest2", acDesign
    Set rpt = Reports("Mtest2")
    Open "c:\cfg.txt" For Binary Access Write As #1
    vrt.prtDevMode = rpt.prtDevMode
    vrt.prtMip = rpt.prtMip
    vrt.PrtDevNames = rpt.PrtDevNames
    Put #1, 1, vrt
    Close #1
End Sub
Public Sub Ripristina()
    Dim rpt As Report
    Dim vrt As prnCfg
    ' Apre il report in visualizzazione Struttura.
    DoCmd.OpenReport "Mtest2", acDesign
    Set rpt = Reports("Mtest2")
    Open "c:\cfg.txt" For Binary Access Read As #1
    Get #1, 1, vrt
    Close #1
    rpt.prtDevMode = vrt.prtDevMode
    rpt.prtMip = vrt.prtMip
    rpt.PrtDevNames = vrt.PrtDevNames
    DoCmd.Close acReport, rpt.Name, acSaveYes
End Sub
Uso le variabili di tipo variant che vanno sempre bene e funzionano
(altrimenti ho paura che il VB faccia casino cercando di interpretare le
stringhe che conterrebbero dati binari)
Max (Grazie a tutti :-)


author: *Alessandro*

text:
> GRANDE IDEA! Cosě va che č una favola :-)

In genere e' vero il contrario... Cmq finche' non cerchi di lavorare su quei
Variant penso che possa ancora andarti bene.
Direi che VB salva nel file in uscita il variant type ed il relativo offset
del dato, potrebbe essere interessante studiare l'output di un write binario
di Variant...
Ciaotutti,
Asterix


text:
"*Alessandro*" <
inet...@hotmail.com
> ha scritto nel messaggio
news:9gnc62$9gq1c$1...@ID-68324.news.dfncis.de...
> > Uso le variabili di tipo variant che vanno sempre bene e funzionano
> > (altrimenti ho paura che il VB faccia casino cercando di interpretare le
> > stringhe che conterrebbero dati binari)
> >
>
> In genere e' vero il contrario... Cmq finche' non cerchi di lavorare su
quei
> Variant penso che possa ancora andarti bene.
Lo pensavo anchio.... infatti ho perso tutta la mattina provando con le
stringhe... poi ho usato il variant e magicamente ha funzionato.
La cosa che secondo me incasina VB è che rpt.prtDevMode ritorna (nel mio
caso) 1324 byte.... che il VB vede com 662 caratteri, in quanto (suppongo)
li interpreta come 2byte per carattere... e poi fa casini... scrive nel file
662 byte invece che 1324 e cose simili.
Usando le stringhe, sia a dimensione fissa che a dimensione variabile non
sono riuscito a farlo funzionare.
Usando il variant funziona...
> Direi che VB salva nel file in uscita il variant type ed il relativo
offset
> del dato, potrebbe essere interessante studiare l'output di un write
binario
> di Variant...
In effetti il file è lievemente più grande... occupa qualche byte in più
rispetto ai 1324 che da in uscita  rpt.prtDevMode, tuttavia credo siano i
dati che usa VB per identificare il tipo dati come variant, dato che anche
in VB
debug.print lenB(rpt.prtDevMode) da 1324
ed anche
debug.print lenB(variantContenentePrtDevMode) da 1324
Purtroppo al momento non ho un editor esadecimale a portata di mano.... (e
soprauttto ho poco tempo)
Stassera magari provo a vedere cosa cambia nel file scritto usando variant o
stringhe, a lunghezza fissa o variabile.
Ciao, Max


author: Zanna

text:
>Direi che VB salva nel file in uscita il variant type ed il relativo offset
>del dato, potrebbe essere interessante studiare l'output di un write
binario
>di Variant...
F1 ragazzi!
Stà tutto scritto lì!
--> Istruzione Put <--
Ci sono 2 pagine di come si comporta VB con i file binari.
Ciao


text:
"Zanna" <
zntf...@tin.it
> ha scritto nel messaggio
news:A9NX6.8676$i51.1...@news2.tin.it...

Lo so... è basandomi su quelle (e su tante altre pagine di help :-) che sono
riuscito a NON far funzionare la cosa usando le stringhe.... :-)
Appena ho tempo studio la cosa....
Max


author: Salvo Aiola

text:
On Tue, 19 Jun 2001 11:50:07 +0200, "Allanon" <
cap...@infinito.it
>
wrote:

Allanon mi meraviglio di te!!! La mia prima domanda che postai su
questo ng fu simile a quella a cui hai risposto!! Normalmente sei tu
il primo a dire che bisogna prima guardare i post vecchi....:-)))
Ciao,
	Salvo


title: Come inserire il risultato di un'espressione in una tabella?

author: carla

text:
 Salve  a tutti,
quello che segue è un mio vecchio post al quale Roberto ha dato risposta
esaudiente ma che a me non funziona.
 > nel controllo text1 della mask1 questa espressione:
>=CCur(Nz(DSum("ImportoInesigfat";[TABELLA FATTURE];"prgsoluni = '" &
>[prgsoluni] & "'");0))
>che puntualmente mi presenta questo errore: #Errore
>CUT]
>dve sbaglio?
>Il controllo ImportoInesigfat si trova in una sottomask di mask1 , la
>tabella è  la "TABELLA FATTURE" , e sia sulla mask1 che sulla sottomask
>c'è il controllo "prgsoluni ".
>ImportoInesigfat è un campo di tipo Numerico ed è contenuto
>nella TABELLA FATTURE, come pure prgsoluni che è di tipo
>Testo.
>I nomi della tabelle e dei campi esisteno realmente.
il mio nuovo problema (spero prima o poi di risolvere l'espressione di cui
sopra!) è come fare a "poplare" oltre che il controllo sulla mask
anche il campo della tabella ad esso collegato.
su uscita da pippotxt_exit ho scritto
[Form_Miamask].Requery  (e questo dovrebbe eseguire l'espressione che è in
text1 di Miamask)
come posso far sì che il valore risultato dall'espressione si vada ad
inserire nella tabella "PIPPO" con prgsoluni =  [prgsoluni] della maschera
grazie mille in anticipo
Carla


author: Sergio MAZZA

text:
"carla" <carl...@NOSPAMhotmail.com> ha scritto nel messaggio news:43428756$0$32453$4faf...@reader1.news.tin.it...

Non ho capito; vuoi scrivere la somma di un campo "ImportoInesigfat" della tabella "TABELLA FATTURE" in base alla condizione sul
campo "prgsoluni" presente nella stessa tabella?
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:dhu393$pm8$1...@area.cu.mi.it...

Praticamente vorrei inserire in una tabella PIPPO il valore che mi ha
generato l'espressione in ImportoInesigfat (che poi in realtà è una somma)
in base alla condizione
prgsoluni (della Tabella)  =  [prgsoluni] della maschera


text:
"carla" <carl...@NOSPAMhotmail.com> ha scritto nel messaggio news:434297b5$0$29542$4faf...@reader1.news.tin.it...
>
> Praticamente vorrei inserire in una tabella PIPPO il valore che mi ha generato l'espressione in ImportoInesigfat (che poi in
> realtà è una somma) in base alla condizione
> prgsoluni (della Tabella)  =  [prgsoluni] della maschera
Quindi ti potrebbe aiutare una semplice query di accodamento;
es.
DoCmd.RunSQL "INSERT INTO PIPPO ( campoPIPPO )
SELECT Sum([TABELLA FATTURE].nomeCampoDaSommare) AS SommaDiCampo
FROM [TABELLA FATTURE]
WHERE ([TABELLA FATTURE].[prgsoluni] =" & me!prgsoluni  & ");"
Ciao.
--
Sergio MAZZA


title: problema apertura DB

author: SuperPippo

text:
apro un database e mi dice "errore di run.time '339'
il componente 'CRYSTL32.OCX' no è registrato correttamente... file non
trovato o non valido... cosa è successo a questo database ??' Grazie !!!
--
SuperPippo :o))


title: Controllo stampa Report

author: Paolo Dal Bosco

text:
Ho trovato questo articolo:
Access Report was Printed ?
I needed to be able to determine if an Access Report had been actually sent
to the printer (as opposed to just previewed on screen) so that I could
update a log recording the fact. This is useful for tracking whether or not
a letter has been sent to a customer without requiring the user to click on
a separate "log" button.
After some research on the 'net I discovered that a lot of the published
solutions only half-solved the problem. Microsoft themselves got it
completely wrong in this knowledgebase article!
The trick is understanding the different events that are fired when an
Access report is opened. Supposing the ReportHeader section is visible, its
Print event will be fired when the report is generated in Preview mode and
again every time the report is sent to the printer. To guard against the
situation where the report is sent direct to the printer without first being
opened in preview, we also need to look at the Activate event which will be
fired when the report is opened in preview mode. Because the Activate event
also fires whenever we switch back the preview from another window, we also
need to track the Deactivate event to know that we have switched away from
the preview.
And so that I don't have to add code to every report that I want to track
for all these events, I will define a class that sinks the events in the
report's open events as follows:
ReportPrintStatus class definition
   ' Use the hidden object type for a section so we can sink the events
   ' (thanks to Stephen Lebans for this tip - see
www.lebans.com
)
Private WithEvents mrpt As Access.Report
Private WithEvents msecReportHeader As Access.[_SectionInReport]
Private mintCounter As Integer
'--------------------------------
' Public Properties and Methods
'--------------------------------
Public Property Set Report(rpt As Access.Report)
   ' Sink the event handling for this report
   Const strEventKey As String = "[Event Procedure]"
   Set mrpt = rpt
   With mrpt
      ' If we don't populate these properties, the events will
      ' never fire in the report and we will be sunk!
      .OnActivate = strEventKey
      .OnClose = strEventKey
      .OnDeactivate = strEventKey
      ' Note, we assume this section exists - if not, it won't work
      Set msecReportHeader = .Section(acHeader)
      msecReportHeader.OnPrint = strEventKey
   End With
End Property
Public Property Get Printed() As Boolean
   ' Did they print this report?
   Printed = (mintCounter >= 1)
End Property
Public Sub Term()
   ' If we don't destroy these objects here, we risk an Access GPF!
   On Error Resume Next
   Set msecReportHeader = Nothing
   Set mrpt = Nothing
End Sub
'--------------------------------
' Event Procedures
'--------------------------------
Private Sub mrpt_Activate()
   ' This occurs if we open the report in print preview and also when
   ' we switch back to the previewed report in which case incremented
   ' by deactivate event
   mintCounter = mintCounter - 1
End Sub
Private Sub mrpt_Close()
   ' This occurs when the report closes so ensure we destroy objects
   ' to prevent an Access GPF
   Me.Term
End Sub
Private Sub mrpt_Deactivate()
   ' Called when we close report from preview or if we switch out of
   ' preview mode to another window in which case decremented by
   ' associated activate event
   mintCounter = mintCounter + 1
End Sub
Private Sub msecReportHeader_Print(Cancel As Integer, PrintCount As Integer)
   ' Increment our counter occurs once for every time we print and also
   ' the first time we open in preview mode
   mintCounter = mintCounter + 1
End Sub
Now it becomes a simple matter to have a report work out if it was printed
or just previewed by inserting the following lines in the report's code
module. Note that this was in Access 97 - in later versions I could raise a
ReportPrinted event.
Private rps As ReportPrintStatus
Private Sub Report_Close()
   If rps.Printed Then
      ' Do something
    End If
End Sub
Private Sub Report_Open(Cancel As Integer)
   ' Sink the reports events so we can determine if it was printed or not
   Set rps = New ReportPrintStatus
   Set rps.Report = Me
End Sub
-----------------------------------
Naturalmente, date le mie scarse conoscenze di VBA, il codice non son
riuscito
a farlo funzionare.
Ad esempio, l'help mi mostra le info a WithEvents, ma WithEvents continua a
dar
l'errore: Valido solo nel modulo oggetto!, e qui non so più da che parte
girarmi.
Un Vs aiuto sarebbe graditissimo.
Paolo


title: Controllo stampa Report

author: sv

text:
Paolo Dal Bosco ha scritto:
> Ho trovato questo articolo:





> ReportPrintStatus class definition






> '--------------------------------
> ' Event Procedures
> '--------------------------------





> Private rps As ReportPrintStatus


> -----------------------------------

> a farlo funzionare.



> Paolo
Devi crearti una Classe di nome "ReportPrintStatus"
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Controllo stampa Report

text:
"sv" <
salvi...@accessgroup.it
> ha scritto nel messaggio
news:gmhk77$hha$1...@news.newsland.it...

grazie per il consiglio,
ho creato un modulo di classe come nome "ReportPrintStatus"
ma ora ho un errore su
Set rps.Report = Me
(numero si sezione non valido).
Grazie ancora
Paolo


title: Controllo stampa Report

text:


> Paolo
Devi crearti un report in cui sia visualizzato  "Intestazione/piè di
pagina report"



title: Controllo stampa Report

text:
[cut]
>
> Devi crearti un report in cui sia visualizzato  "Intestazione/piè di
> pagina report"
>
l'avevo già fatto e l'errore appare nel report.
scusa per il disturbo,
Paolo


title: Controllo stampa Report

text:
Paolo Dal Bosco ha scritto:
> [cut]


> Paolo
Vedi che il codice funziona perfettamente..



title: Controllo stampa Report

text:
"sv" <
salvi...@accessgroup.it
> ha scritto nel messaggio
news:gmhves$7gf$1...@news.newsland.it...
> Paolo Dal Bosco ha scritto:
>
>> [cut]
>> >
>> > Devi crearti un report in cui sia visualizzato  "Intestazione/piè di
>> > pagina report"
>> >
>
>> l'avevo già fatto e l'errore appare nel report.
>> scusa per il disturbo,
>
>
>> Paolo
>
> Vedi che il codice funziona perfettamente..
>
scusami, ma a me non funziona:
nel report:
Option Compare Database
Option Explicit
Private rps As ReportPrintStatus
Private Sub Report_Close()
   If rps.Printed Then
    MsgBox "Report printed"
    Else
    MsgBox "Report NOT printed"
    End If
End Sub
Private Sub SezioneIntestazionePagina_Print(Cancel As Integer, PrintCount As
Integer)
   ' Sink the reports events so we can determine if it was printed or not
   Set rps = New ReportPrintStatus
   Set rps.Report = Me
End Sub
nel modulo di classe:
Option Compare Database
Option Explicit
'ReportPrintStatus class definition






'--------------------------------
' Event Procedures
'--------------------------------




dove ho sbagliato?
Scusami ancora per il disturbo.
Buona serata.
Paolo


title: Controllo stampa Report

author: geppo

text:
Ciao Paolo Dal Bosco wrote:
----cut----
Confermo che funziona perfettamente.
> scusami, ma a me non funziona:
> nel report:
---cut---
ma questa dove l'hai presa?
> Private Sub SezioneIntestazionePagina_Print(Cancel As Integer,
> PrintCount As Integer)
>   ' Sink the reports events so we can determine if it was printed or
>   not Set rps = New ReportPrintStatus
>   Set rps.Report = Me
> End Sub
---cut---
io nell'esempio che hai postato nel primo post leggo:
Private Sub Report_Open(Cancel As Integer)
   ' Sink the reports events so we can determine if it was printed or not
   Set rps = New ReportPrintStatus
   Set rps.Report = Me
End Sub
> Paolo
--
Ciao
Geppo


title: Controllo stampa Report

text:
"geppo" <c...@tin.it.invalid> ha scritto nel messaggio
news:TQ2jl.173794$Ca.3...@twister2.libero.it...

l'ho trovata su un blog in internet,
comunque ho usato l'evento 'su stampa' perchè
l'articolo diceva che da a2000 e sup. si doveva
usare questo evento.
Naturalmente ho provato anche con l'evento 'su apertura'
e l'errore è lo stesso:
errore di run-time '2462':
Numero si sezione immesso non valido
ed il debug evidenzia: Set rps.Report = Me
Buona giornata
Paolo


title: Controllo stampa Report

text:
Paolo Dal Bosco ha scritto:
> "geppo" <c...@tin.it.invalid> ha scritto nel messaggio



> Paolo
Per comodità ho già messo il demo su AccessGroup.



title: Controllo stampa Report

text:
"sv" <
salvi...@accessgroup.it
> ha scritto nel messaggio
news:gmjb3m$8gf$1...@news.newsland.it...

mille grazie per la cortesia,
buona giornata
Paolo


title: Controllo stampa Report

text:
[cut]
non avevo seguito il Tuo consiglio:
Devi crearti un report in cui sia visualizzato  "Intestazione/piè di
pagina report"
avevo visualizzato:
"Intestazionepagina/piè di paginapagina"
chiedo scusa,
nuovamente mille grazie
Paolo


title: CISA2 ultimi avvisi

author: Carlo Costarella

text:
Buongiorno
coloro che si sono iscritti alla cisa2 di Paola sono pregati di affrettare
la loro prenotazione all'hotel per non rischiare la mancanza di posto (siamo
in alta stagione).
Ricordo il numero 0982 611457 (specificare: convegno CISA).
Personalmente sarò assente dal 22 al 30 c.m..
Per MA: programma un incontro di lavoro per dopo il 30.
Ciao, Carlo


title: CISA2 ultimi avvisi

author: MA

text:

Ciao Carlo,
nel week end 3-4 giugno. Ci sentiamo e fissiamo la cosa
>
> Ciao, Carlo
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: CISA2 ultimi avvisi

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:e4rorl$3vs$1...@area.cu.mi.it...
cut
> nel week end 3-4 giugno. Ci sentiamo e fissiamo la cosa
>
Va bene!
Ciao, Carlo


title: Corretto riferimento a controllo in sottomaschera in codice sql

author: alessandro daniel

text:
Ciao a tutti,
ho una struttura Maschera-Sottomaschera-"SottoSottomaschera": si chiamano, nell'ordine: FrmBudget - SFrmOfferta - SFrmBudget. Le due sottomaschere sono in visualizzazione foglio dati.
Nella "SottoSottomaschera" ho due controlli: BdgTipoCod e BdgSottoTipoCod. Sono due elenchi a discesa. I valori mostrati dal secondo devono essere filtrati dal valore immesso nel primo. Nell'origine riga del secondo c'è il seguente sql. Per mettere il riferimento al primo controllo ho usato il generatore di espressioni, ma non funziona. Tra l'altro il generatore di espressioni sembra avere un bug: mi mostra la sottosottomaschera con il simbolo del report e non mi mostra nessun controllo all'interno di essa... infatti il riferimento al controllo l'ho scritto parzialmente a mano).
Sapete dirmi come correggere il riferimento al controllo?
Grazie mille

SELECT TblBdgSottoTipo.BdgSottoTipoCod, TblBdgSottoTipo.BdgTipoCod
FROM TblBdgSottoTipo
WHERE (((TblBdgSottoTipo.BdgTipoCod)=[Maschere]![FrmBudget]![SFrmOfferta]![SFrmBudget]![BdgTipoCod]))
ORDER BY TblBdgSottoTipo.BdgSottoTipoCod;

Alessandro


author: Bruno Campanini

text:
alessandro daniel laid this down on his screen :

Non son sicuro di aver compreso la tua richiesta...

Data una Form F1 con un controllo [A],
     una subForm F1_sub1 di F1 con un controllo [B],
     una subForm F1_sub2 di F1_sub1 con un controllo [C]

da F1 si leggono [A], [B], [C] con:
MsgBox [A] & vbCrLf & _
       [F1_sub1].Form![B] & vbCrLf & _
       [F1_sub1].Form![F1_sub2].Form![C]

Espressione valida in VBA come, sintatticamente espressa,
in un'espressione SQL.

Bruno


title: maschera di inserimento per 2 tabelle

author: giaconet

text:
Ciao a tutti.
Ho questo problema.
Ho realizzato una maschera e vorrei inserire alcuni dati relativi a tabelle
diverse. Access me lo impedisce a meno di creare una relazione tra queste 2
tabelle. Immaginiamo che non voglio creare una relazione, come potrei fare?
Ho pensato di scrivere del codice vba che, in seguito all'evento
AfterUpdate, andasse a scrivere nell'altra tabella ma non sono riuscito a
trovare la sintassi giusta. Per fare un esempio:
tabella1
nome
cognome
tabella2
numero_cartella
tipo_cartella
maschera1 (origine record tabella1)
caselladitesto1 (per inserire il nome)
caselladitesto2 (per inserire cognome)
caselladitesto3 con il seguente codice
Private Sub caselladitesto3_AfterUpdate()
 tabella2.numero_cartella = caselladitesto3.Value
End Sub
Ovviamente non funziona. Ma come devo accedere alla tabella tabella1 tramite
vba? Qual è il nome preciso degli oggetti?
Thanx
giaconet


title: maschera di inserimento per 2 tabelle

author: Catja Moeller

text:
"giaconet" <
giac...@wind.it
> wrote:
>Immaginiamo che non voglio creare una relazione, come potrei fare?
Non riesco ad immaginare il perche' ;)
Cmq, che ne dici di una maschera con una sottomaschera?


title: maschera di inserimento per 2 tabelle

author: Roberto da casa

text:
"giaconet" <
giac...@wind.it
> ha scritto nel messaggio
news:9bvce7$bbvd5$1...@ID-71483.news.dfncis.de...

Di due l'una: o le due tabelle sono tra di loro in relazione ed allora le
aggiorni in un'unica maschera con la tecnica maschera/sottomaschera; oppure
non sono in relazione fra di loro ed allora le aggiorni con due maschere
separate, al limite tenendole aperte contemporaneamente. Se proprio vuoi
fare una cosina carina, puoi crearti una maschera non associata ad alcuna
tabella che contiene due sottomaschere: con la prima aggiorni i dati di
tabella1 e con la seconda i dati di tabella2.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Problema con controllo cassella combinata

author: Michele

text:
Salve
ho creato una cassella combinata associata a una query in una maschera
esempio:
collonna0    colonna1    colonna2
riga1                A                A1
riga2                B                B1
riga3                C               C1
il mio problema e' che non riesco ad ottenere il contenuto di una colonna
con la corrispettiva riga selezionata
esempio:
clicco la riga    ( riga3    C    C1)
come faccio ha sapere che il contenuto della colonna 2 e C1
Grazie.


author: Harry Evans

text:
Ammettendo che il tuo control si chiami Combo23, il valore delle varie
colonne è appunto in [Combo23].Column(0)  o [Combo23].Column(1)  o
[Combo23].Column(2) a seconda appunto della colonna (attenzione, la 1a
colonna è zero (0), in quanto si tratta di un array)
bye



title: macro e trasferisci database

author: Alex

text:
Ciao,
ho la necessità di importare un elevato numero di tabelle e tramite
una macro e con  il comando trasferisci database tutto funziona bene.
Il problema e' che il db di origine e' protetto da password quindi
devo inserire sta maledetta password ogni volta che importa una
tabella quindi perdo un casino di tempo.
Per completezza di informazione uso w2000 e access97 e i due db sono
entrambi in access 97.
Ovvimante non possso in alcun modo togliere la password dal db di
origine .
Qualcuno può aiutarmi??
Ciao
Alex


title: macro e trasferisci database

author: Alessandro Baraldi

text:
"Alex" <
a61...@yahoo.it
> wrote in message
news:50e59b63.03111...@posting.google.com

Fallo via Codice usando la sintassi corretta e completa della
funzione TRANSFERTDATABASE....!
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Ricerca tramite combo box

author: Ludo

text:
         Ciao a tutti...
nella maschera di inserimento dati oltre ai vari controlli , ho inserito due
controlli per la ricerca dei record..
Cioè due caselle combinate sincronizzate.."Citta" e "Cognome"..Selezionando
ad esempio Milano, nell'altra combo box vengono visualizzati in elenco solo
quei cognomi delle persone che abitano a Milano..
La sincronizz funzia alla perfezione..ma per far visualizzare il risultato
della ricerca nei relativi controlli della maschera, sapete come si fa?
Mi sto scervellando da 1 po e non riesco ad arrivare alla soluzione..
Nella combo box dei cognomi, il campo ricercato è quello del Cognome
appunto, ma nelle proprietà della combo box ho messo la possibilita di
visualizzare in elenco anche una 2a colonna,cioe quella relativa al nome.
Nella casella combinata pero, una volta selezionato un Cognome,
compare solo il campo cognome..esiste un modo per unire Cognome e Nome in un
unica
riga e farla visualizzare nella casella combinata?
grazie mille per l'aiuto..
ciao ludovico..
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Ricerca tramite combo box

text:

Pippo: (Nome+ " ") & cognome
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it