title: aggiornare un campo di una tab col valore max di quello di un'altra tab...

author: Giuseppe

text:
ho la necessità di aggiornare il valore di un campo di una tab che ha un
solo record con il valore max di un campo di un'altra tabella.
Diversi i tentativi fatti ma senza successo.
in pratica costruisco la query di modifica così
nel campo da aggiornare, nella parte "aggiorna a" ci metto tra parentesi la
query che estrarrebbe il valore max dall'altra tab:
In visualizza SQL vedo che access compone questo codice sql:
UPDATE Tab_da_agg SET Tab_da_agg.Campo_da_agg= (select
max(Campo_da_cui_estrarre_max) from Tab_che_contiene_val_max_origine;);
in visualizza foglio dati  per quel campo ottengo un zero, quando vado ad
eseguire la query mi da l'errore:
"Per l'operazione è necessaria una query aggiornabile" ??!!!
chi mi svela la faccenda?
--
----------------
saluti
Giuseppe


author: namor

text:
Giuseppe ha scritto:

Usa DMax() invece che la Select:
  UPDATE Tab_da_agg SET Campo_da_agg = DMax("campo","tabella");
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:c29ij8$7te$1...@news.newsland.it...
> Giuseppe ha scritto:
>
> > ho la necessità di aggiornare il valore di un campo di una tab che ha un
> > solo record con il valore max di un campo di un'altra tabella.
> > Diversi i tentativi fatti ma senza successo.
> > in pratica costruisco la query di modifica così
> > nel campo da aggiornare, nella parte "aggiorna a" ci metto tra parentesi
la
> > query che estrarrebbe il valore max dall'altra tab:
> > In visualizza SQL vedo che access compone questo codice sql:
> > UPDATE Tab_da_agg SET Tab_da_agg.Campo_da_agg= (select
> > max(Campo_da_cui_estrarre_max) from Tab_che_contiene_val_max_origine;);
> > in visualizza foglio dati  per quel campo ottengo un zero, quando vado
ad
> > eseguire la query mi da l'errore:
> > "Per l'operazione è necessaria una query aggiornabile" ??!!!
> > chi mi svela la faccenda?
>
>
> Usa DMax() invece che la Select:
>   UPDATE Tab_da_agg SET Campo_da_agg = DMax("campo","tabella");
> Namor
Ti ringrazio per la risposta che mi semplifica il procedimento che ho dovuto
escogitare per aggirare e risolvere il problema.
Infatti avevo utilizzato, per via intermedia, una casella di testo non
legata (nascosta nella maschera che lancia la query).
Tale casella aveva origine dati in una query che calcolava il valore max.
Questa stessa casella veniva poi utilizzata nella parte "aggiorna a" della
query di aggiornamento.
La tua soluzione, molto semplice ed elegante è molto vicina a quella
iniziale che non mi funziona (chissà perché...)
di nuovo grazie.
;-)
--
----------------
saluti
Giuseppe


text:
Giuseppe ha scritto:




Non funzionava perchè la sintassi di UPDATE non prevede l'aggiornamento di
un campo con il risultato di un'altra query, nemmeno nei casi in cui
questa restituisca un solo valore. Invece puoi aggiornarlo con il valore
restituito da una funzione, come DMax().



text:
> Non funzionava perchè la sintassi di UPDATE non prevede l'aggiornamento di
> un campo con il risultato di un'altra query, nemmeno nei casi in cui
> questa restituisca un solo valore. Invece puoi aggiornarlo con il valore
> restituito da una funzione, come DMax().
Ma il messaggio che mi dava non riuscivo a capirlo !
--
----------------
saluti
Giuseppe


title: sono disperato!!!

author: Matteo

text:
perchè non mi funziona il seguente codice??????
Dim rstOrd As Recordset
Dim rstDOS As Recordset
Dim fOK As Boolean
Set rstOrd = CurrentDb.OpenRecordset("ordini")
rstOrd.MoveFirst
Do While Not rstOrd.EOF
Set rstDOS = CurrentDb.OpenRecordset("SELECT * FROM DOS WHERE DOS!IDOrdine
='" & rstOrd!IDOrdine & "'")
    rstDOS.MoveFirst
    fOK = True
    Do While Not rstDOS.EOF
        If rstDOS!Stampato = False Then fOK = False
        rstDOS.MoveNext
    Loop
    rstOrd!Pronto = fOK
    rstOrd.MoveNext
    rstDOS.Close
Loop
rstOrd.Close
Set rstOrd = Nothing
Set rstDOS = Nothing


title: sono disperato!!!

author: Graziano Franchi (Da Casa)

text:
Hia inserito la libreria???????????
Saluti
"Matteo" <
moo...@softhome.net
> ha scritto nel messaggio
news:8pr3k4$6gs$2...@nslave1.tin.it...



title: sono disperato!!!

author: Luciano

text:
Matteo <
moo...@softhome.net
> wrote in message 8pr3k4$6gs$2...@nslave1.tin.it...
> perchè non mi funziona il seguente codice??????
Perche' non dici almeno dove si blocca?????
Saluti.
Luciano
(DOC)


title: sono disperato!!!

author: Proli

text:
Matteo ha scritto nel messaggio <8pr3k4$6gs$
2...@nslave1.tin.it
>...
>perchè non mi funziona il seguente codice??????
>
>
>Dim rstOrd As Recordset
>Dim rstDOS As Recordset
>Dim fOK As Boolean
>
>
>Set rstOrd = CurrentDb.OpenRecordset("ordini")
aggiungi all'inizio
dim  db0 as database
set db0 = currentdb
e sostituisci
Set rstOrd = CurrentDb.OpenRecordset("ordini")
con
set rstord = db0.openrecordset("ordini")
ciao
Marco Dell'Oca
D.M.Software


title: sono disperato!!!

author: SABINA CAMERIN

text:
"Matteo" <
moo...@softhome.net
> ha scritto nel messaggio
news:8pr3k4$6gs$2...@nslave1.tin.it...
> perchè non mi funziona il seguente codice??????
>
>
> Dim rstOrd As Recordset
> Dim rstDOS As Recordset
> Dim fOK As Boolean
>
>
> Set rstOrd = CurrentDb.OpenRecordset("ordini")
> rstOrd.MoveFirst
> Do While Not rstOrd.EOF
> Set rstDOS = CurrentDb.OpenRecordset("SELECT * FROM DOS WHERE DOS!IDOrdine
> ='" & rstOrd!IDOrdine & "'")
>     rstDOS.MoveFirst
>     fOK = True
>     Do While Not rstDOS.EOF
>         If rstDOS!Stampato = False Then fOK = False
>         rstDOS.MoveNext
>     Loop
>     rstOrd!Pronto = fOK
>     rstOrd.MoveNext
>     rstDOS.Close
> Loop
> rstOrd.Close
> Set rstOrd = Nothing
> Set rstDOS = Nothing
>
>
>
Prima di tutto dovresti dirci che errore ti viene segnalato comunque cerco
di indovinare:
devi mettere prima dell'istruzione  "rstOrd!Pronto = fOK" un bel
"rstOrd.edit" e subito dopo l'assegnazione del valore un bel "rstOrd.update"
Penso e spero sia questo l'errore.
Ciao e la prossima volta sii più chiaro altrimenti a disperarci sia noi che
leggiamo.


title: sono disperato!!!

text:
"Proli" <
pr...@tiscalinet.it
> ha scritto nel messaggio
news:8psnda$v9$1...@lacerta.tiscalinet.it...
>
> Matteo ha scritto nel messaggio <8pr3k4$6gs$
2...@nslave1.tin.it
>...
> >perchÃ¨ non mi funziona il seguente codice??????
> >
> >
> >Dim rstOrd As Recordset
> >Dim rstDOS As Recordset
> >Dim fOK As Boolean
> >
> >
> >Set rstOrd = CurrentDb.OpenRecordset("ordini")
>
>
> aggiungi all'inizio
>
> dim  db0 as database
> set db0 = currentdb
>
> e sostituisci
>
> Set rstOrd = CurrentDb.OpenRecordset("ordini")
>
> con
>
> set rstord = db0.openrecordset("ordini")
>
>
> ciao
>
> Marco Dell'Oca
>
> D.M.Software
>
>
Non sarà veloce come deve, ma non credo che usare il currentdb in tutta la
funzione possa avergli causato un errore!!!
Ciao.


title: sono disperato!!!

author: Roberto Ukmar Morlacchi

text:
Matteo <
moo...@softhome.net
> wrote:
> perchè non mi funziona il seguente codice??????
> Dim rstOrd As Recordset
> Dim rstDOS As Recordset
> Dim fOK As Boolean
> Set rstOrd = CurrentDb.OpenRecordset("ordini")
> rstOrd.MoveFirst
> Do While Not rstOrd.EOF
> Set rstDOS = CurrentDb.OpenRecordset("SELECT * FROM DOS WHERE DOS!IDOrdine
> ='" & rstOrd!IDOrdine & "'")
Maybe:
 Set rstDOS = CurrentDb.OpenRecordset("SELECT * FROM DOS WHERE DOS.IDOrdine
                                                                 ^^^
--
Roberto Ukmar Morlacchi
Tutor @ il Dipartimento di Scienze dell'Informazione
email:
robert...@writeme.com


title: Selezione Multipla con Caselle di Controllo

author: Cesco

text:
Ciao a tutti,
ho un problema da risolvere, e non so proprio da dov partire. Vorrei
generare un report in base ad una maschera che presenta 4 caselle
combinate:
Asssistenza      (Campo Si/No)
Sospeso          (Campo Si/No)
Fatturato         (Campo Si/No)
Contabilizzato  (Campo Si/No)
Non riesco a generare una query che filtri i dati in base alle selezioni
sopra citate con tutte le combinazioni possibili.
Ho provato cosě:
SELECT Lavorazioni.*, [Alberto]+[Ruggero]+[Efrem]+[Altri]+[Dipolo] AS
Totale_Ore
FROM Lavorazioni
WHERE (((Lavorazioni.Data_Inizio)>[Forms]![Stampe]![Dal]-1 And
(Lavorazioni.Data_Inizio)<[Forms]![Stampe]![Al]+1) AND
((Lavorazioni.Assistenza)=[Forms]![Stampe]![Assistenza])) OR
(((Lavorazioni.Sospeso)=[Forms]![Stampe]![Sospeso])) OR
(((Lavorazioni.Fatturato)=[Forms]![Stampe]![Fatturato])) OR
(((Lavorazioni.Contabilizzato)=[Forms]![Stampe]![Contabilizzato]));
Ma se tolgo il Flag da Assistenza, mi escono tutti i record... cosě
funziona solo se tutti le caselle sono fleggate.
Forse sbaglio qualcosa con AND/OR.... sapete dirmi dove sbaglio o se
esiste un'alternativa.


author: Antonio Biso

text:
"Cesco" <
jsm...@company.com
> ha scritto nel messaggio
news:3E6DAF58...@company.com...
> Ciao a tutti,
>
> ho un problema da risolvere, e non so proprio da dov partire. Vorrei
> generare un report in base ad una maschera che presenta 4 caselle
> combinate:
>
> Asssistenza      (Campo Si/No)
> Sospeso          (Campo Si/No)
> Fatturato         (Campo Si/No)
> Contabilizzato  (Campo Si/No)
>
> Non riesco a generare una query che filtri i dati in base alle selezioni
> sopra citate con tutte le combinazioni possibili.
> Ho provato così:
>
> SELECT Lavorazioni.*, [Alberto]+[Ruggero]+[Efrem]+[Altri]+[Dipolo] AS
> Totale_Ore
> FROM Lavorazioni
> WHERE (((Lavorazioni.Data_Inizio)>[Forms]![Stampe]![Dal]-1 And
> (Lavorazioni.Data_Inizio)<[Forms]![Stampe]![Al]+1) AND
> ((Lavorazioni.Assistenza)=[Forms]![Stampe]![Assistenza])) OR
> (((Lavorazioni.Sospeso)=[Forms]![Stampe]![Sospeso])) OR
> (((Lavorazioni.Fatturato)=[Forms]![Stampe]![Fatturato])) OR
> (((Lavorazioni.Contabilizzato)=[Forms]![Stampe]![Contabilizzato]));
A parte che con la data dovresti piuttosto usare un between and
non capisco perchè usi degli OR.
Se vuoi tutto insieme sarà una serie di AND e basta...
Antonio


text:
Antonio Biso wrote:

Nel frattempo ho risolto, facendo report singoli... in verità mi tirava fuori
tutti i dati a ragione del fatto che erano soddisfatti i criteri di selezione.
Grazie cmq
ciao


title: Errore delle Procedure automatiche

author: Giulio Severini

text:
Non capisco. Non posso utilizzarele procedute automatiche di Access. Mi
appare un errore.
Ad.es. se voglio usare Creazione Guidata per creare una Tabella, una
Query, una Maschera ho il seguente errore:
Caratteristica non installata o disattivata
Se voglio usare l'Analizzatore,
ad.es
., mi appare:
Impossibile trovare la procedura guidata ecc....ecc...
Eppure ho ripristinato l'installazione di Office. Forse che in fase di
installazione non ho selezionato questi componenti e il ripristino non li
installa?
Grazie.
--
Non lo capiscono, i grandi, che il mondo dei giovani è un mondo fragile.
E' come un paese in guerra permanente, in cui tutti vogliono avere
ragione. E nel quale veniamo spesso lasciati da soli.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Errore delle Procedure automatiche

author: MA

text:
Giulio Severini wrote:
> Non capisco. Non posso utilizzarele procedute automatiche di Access.
> Mi appare un errore.
> Ad.es. se voglio usare Creazione Guidata per creare una Tabella, una
> Query, una Maschera ho il seguente errore:
>
> Caratteristica non installata o disattivata
>
> Se voglio usare l'Analizzatore,
ad.es
., mi appare:
>
> Impossibile trovare la procedura guidata ecc....ecc...
>
> Eppure ho ripristinato l'installazione di Office. Forse che in fase di
> installazione non ho selezionato questi componenti e il ripristino
> non li installa?
>
> Grazie.
Infatti devi fare esecuzione completa da computer locale
--
_ _
Ciao
MAssimiliano Amendola
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:
www.donkarl.com/it


title: Menu Strumenti \ AVVIO

author: luca

text:
Ho fatto operazione errata Sono andato su Strumenti \Avvio e ho
deselezionato i fleg di Menu completi, Menu di schelta rapida pre. In questo
modo non ho più il Strumenti\Avvio.
Come posso ripristinare il tutto.
Grazie infinite
ciao
LUCA
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Menu Strumenti \ AVVIO

author: Karl Donaubauer

text:
luca wrote:
> Ho fatto operazione errata Sono andato su Strumenti \Avvio e ho
> deselezionato i fleg di Menu completi, Menu di schelta rapida pre. In
> questo modo non ho più il Strumenti\Avvio.
> Come posso ripristinare il tutto.
Ignorare Autoexec e impostazioni di avvio
www.donkarl.com/it?FAQ1.7
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Evitare scorrimento record con PgSu PgGiu

author: Sandrobi

text:
In una form a maschera singola ho un campo memo abbastamza grosso, con PgSu e PgGiu scorro all'interno del testo ma se mi trovo sulla prima riga o sull'ultima riga mi passa al record precedente o successivo. Come evitare?
Grazie.
--
Ciao, Sandrobi
"De quo nihil dici potest, id tacendum est" (L. Wittgenstein, "Tractatus logico-philosophicus")


author: Ivan da casa

text:
"Sandrobi" <
sandb...@libero.it
> ha scritto nel messaggio
news:XaKRe.6513$O6.3...@news3.tin.it...

Grazie.
--
Ciao, Sandrobi

... direi menu STRUMENTI >> OPZIONI >> TASTIERA >> Blocca all'interno del
record (metti la spunta)
dimmi se va bene ...
Ivan


author: Sandro

text:
"Sandrobi" <
sandb...@libero.it
> ha scritto nel messaggio
news:XaKRe.6513$O6.3...@news3.tin.it...

Grazie.
--
Ciao, Sandrobi

Ciao Sandro ,
prova in questo modo:
su tasto giů :
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 33 Or KeyCode = 34 Then
    KeyCode = 0
End If
End Sub
 su apertura
Private Sub Form_Open(Cancel As Integer)
 Me.KeyPreview = True
End Sub
anche una macro autokeys fa al tuo caso.
Notte, Sandro


author: ]SiLVieTTa[

text:
Thread ricco mi ci ficco: Il Thu, 01 Sep 2005 21:46:44 GMT, "Sandro"
<
sandro_...@tin.it
> dopo aver riflettuto a lungo, ha scritto:
>
>"Sandrobi" <
sandb...@libero.it
> ha scritto nel messaggio
>news:XaKRe.6513$O6.3...@news3.tin.it...
>In una form a maschera singola ho un campo memo abbastamza grosso, con PgSu
>e PgGiu scorro all'interno del testo ma se mi trovo sulla prima riga o
>sull'ultima riga mi passa al record precedente o successivo. Come evitare?
>
>Grazie.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  '33 - PgUp; 34 - PgDown; 9 - Tab; 18=Alt
  'presuppone che sulle proprietà del form sia specificato "anteprima tasti=SI'"
    Select Case KeyCode
        Case vbKeyPageUp, vbKeyPageDown
          KeyCode = 0
    End Select
End Sub
Ciao
Silvia.
--
www.silvietta.it
...everyone's invited!
Kann ein Herz aus Stein sein??


text:
[cut]
Ciao Silvia,
il tuo sito mi č proprio piaciuto ;-) Complimenti !
questo che cosa significa ?
> Kann ein Herz aus Stein sein??
Ciao, e in bocca al lupo per gli studi.
Sandro.


text:
"Sandro" <
sandro_...@tin.it
> ha scritto nel messaggio news:8FKRe.6617$O6.3...@news3.tin.it...
>
> "Sandrobi" <
sandb...@libero.it
> ha scritto nel messaggio
> news:XaKRe.6513$O6.3...@news3.tin.it...
> In una form a maschera singola ho un campo memo abbastamza grosso, con PgSu
> e PgGiu scorro all'interno del testo ma se mi trovo sulla prima riga o
> sull'ultima riga mi passa al record precedente o successivo. Come evitare?
>
> Grazie.
>
> --
> Ciao, Sandrobi
>
> "De quo nihil dici potest, id tacendum est" (L. Wittgenstein, "Tractatus
> logico-philosophicus")
>
> Ciao Sandro ,
>
> prova in questo modo:
>
> su tasto giù :
>
> Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
> If KeyCode = 33 Or KeyCode = 34 Then
>     KeyCode = 0
> End If
> End Sub
>
>  su apertura
>
> Private Sub Form_Open(Cancel As Integer)
>  Me.KeyPreview = True
> End Sub
>
> anche una macro autokeys fa al tuo caso.
>
> Notte, Sandro
>
Purtroppo nessuna delle due soluzioni è quello che serve:
1) Da Strumenti > Opzioni > tastiera non ha nessun effetto sui tasti PgSu e PgGiu
2) l'altra soluzione disabilita sempre i due tasti, e mi sembra un pò troppo
la soluzione potrebbe essere qualcosa che non permetta di cambiare record se non con i pulsanti appositi.
Sandrobi


text:
[cut]
Ciao Sandro,
>2) l'altra soluzione disabilita sempre i due tasti, e mi sembra un pò
troppo
>la soluzione potrebbe essere qualcosa che non permetta di cambiare record
se non con i pulsanti appositi.
creando  due commandButton uno per passare al record successivo uno per
ritornare al record precedente, dovrebbe essere ok con il codice che ti ho
passato. Perchè non lo è?
>Sandrobi
Notte, Sandro


text:
"Sandrobi" <
sandb...@libero.it
> ha scritto nel messaggio news:sx3Se.9960$O6.5...@news3.tin.it...


Sandrobi
RISOLTO:
Dim TastoPagina as Boolean
Private Sub campo_Exit(Cancel As Integer)
    If TastoPagina Then TastoPagina = False: Cancel = True
End Sub
Private Sub campo_KeyDown(KeyCode As Integer, Shift As Integer)
        TastoPagina = False: If KeyCode = vbKeyPageUp Or KeyCode = vbKeyPageDown Then TastoPagina = True
End Sub
Finché sei dentro il campo, non cambi record manco morto! (si fa per dire)
Sandrobi


title: Differenza nei calcoli tra anteprima report e stampa effettiva

author: Roland Mayr - Chipware

text:
Salve a tutti,
forse vi é mai capitato che facendo un anteprima da un report di piů pagine
i calcoli sono diversi che sulla stampa effettiva. Lo stesso succede quando
dall'anteprima si salta subito sull'ultima pagina. Questo succede per
esempio quando si utilizzano delle variabili che dovrebbere ricevere un
valore a ogni cambio di gruppo o pagina. Suppongo che sia una bug di
MsAccess97. Qualcuno conosce il problema ?
Grazie in anticipo per qualsiasi indicazione.
saluti
rolly


author: Roberto dalla campagna

text:
"Roland Mayr - Chipware" <
info.c...@tin.it
> ha scritto nel messaggio
news:cklbe4$v89$1...@newsreader.mailgate.org...
> Salve a tutti,
>
> forse vi é mai capitato che facendo un anteprima da un report di piů
pagine
> i calcoli sono diversi che sulla stampa effettiva. Lo stesso succede
quando
> dall'anteprima si salta subito sull'ultima pagina. Questo succede per
> esempio quando si utilizzano delle variabili che dovrebbere ricevere un
> valore a ogni cambio di gruppo o pagina. Suppongo che sia una bug di
> MsAccess97. Qualcuno conosce il problema ?
Sicuramente succede tutte le volte, come nei totali progressivi, il cui
risultato č esatto solo a condizione che vengano formattate le righe di
tutti i record: se dalla prima pagina salti direttamente sull'ultima pagina
senza far sě che vengano fomattate le pagine intermedie mi sembra logico che
i risultati dei calcoli in anteprima non siano corretti: onestamente non
vedo dove sia il bug. Vai direttamente in stampa su carta senza pasare per
l'anteprima e vedrai che non avrai mai propblemi.
>
> Grazie in anticipo per qualsiasi indicazione.
>
> saluti
> rolly
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Evento di uscita da mnd

author: Ganimede

text:
Ciao a tutti,
esiste un evento di uscita dal di di Access ? vorrei scrivere un record
ogni volta che si esce dal mio mdb.
Grazie.
Ganimede Dignan.


title: Evento di uscita da mnd

text:
Ganimede ha scritto:

Devi usare l'evento "su chiusura" di una form, esempio
-crei una tabella chiamata "uscita" con un campo "data"
-crei una maschera vuota e sull'evento "su chiusura" scrivi il codice:
Private Sub Form_CLOSE()
   Dim rcd As Recordset
   Dim dbmio As Database
   Set dbmio = CurrentDb
   Set rcd = dbmio.OpenRecordset("USCITA")
   rcd.AddNew
      rcd("DATA") = Now()
      rcd.Update
   rcd.Close
End Sub
-crei una macro chiamata Autoexec, con una riga aprimaschera -
tuamaschera - modalità finestra: nascosta


title: Evento di uscita da mnd

text:
Ciao,
> -crei una macro chiamata Autoexec, con una riga aprimaschera -
> tuamaschera - modalità finestra: nascosta
non ci avevo pensato... la finestra nascosta... ci provo. Grazie 1000.


title: Visualizzazione dati file

author: Antonio Miconi

text:
Possiedo una tabella nella quale "precarico" il contenuto di un disco
contente file di tipo "txt" con i relativi percorsi.
Volendo visualizzare il contenuto di questi file all'interno
dell'applicazione una volta selezionato il record relativo, cosa mi
suggerireste?
Grazie per l'aiuto


title: Visualizzazione dati file

author: Carlo Costarella

text:
"Antonio Miconi" <
moskol...@tiscali.it
> ha scritto nel messaggio
news:JEfhf.52147$65.15...@twister1.libero.it...

Dim Ret
ret = Shell("TuoPercorsoNomeFile")
Ciao, Carlo


title: Visualizzazione dati file

author: Alessandro Brunori

text:

Mi sono spiegato male. Devo visuallizzarlo nell'applicazione non
nell'applicazione predefinita.
Grazie Carlo.
Saluti i ragazzini, la moglie  e don Lillino


title: Visualizzazione dati file

author: Sergio MAZZA

text:
"Alessandro Brunori" <
moskol...@tiscali.it
> ha scritto nel messaggio news:45hhf.52280$65.15...@twister1.libero.it...
> Mi sono spiegato male. Devo visuallizzarlo nell'applicazione non nell'applicazione predefinita.
> Grazie Carlo.
> Saluti i ragazzini, la moglie  e don Lillino
Una casella di testo; cosa ti serve di più? Un Lucano?
Ciao.
--
Sergio MAZZA


title: Visualizzazione dati file

text:

Dici di sì, che ce n'ho una di adozione che sta facendo la botta...
>
> Ciao.
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Visualizzazione dati file

text:
"Alessandro Brunori" <
moskol...@tiscali.it
> ha scritto nel messaggio
news:45hhf.52280$65.15...@twister1.libero.it...

Grazie per i saluti che girerň ai diretti interessati...
Per il tuo problema potresti usare questa routine, scritta apposta per te:
Dim MioCarattere As String, MiaFrase As String
Open "TuoPercorsoCompletoFile.txt" For Binary Access Read As #1 ' Apre il
file.
Do While Not EOF(1)
    MioCarattere = Input(1, #1)
    MiaFrase = Nz(MiaFrase, "") & MioCarattere
Loop
Close #1
Me.NomeTuoControllo = MiaFrase
Potresti anche usare un controllo RichTextBox...
Fammi sapere,
ciao, Carlo


title: Visualizzazione dati file

text:
"Antonio Miconi" <
moskol...@tiscali.it
> ha scritto nel messaggio
news:JEfhf.52147$65.15...@twister1.libero.it...

Peccato che solo ora ho letto le risposte del tutto simili in un tuo post
successivo.
Alla prossima...
Ciao, Carlo


title: è un problema di connessioni contemporanee???

author: Markolino

text:
A volte sul mio sito, fatto in ASP compare questo errore:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Could not use '(unknown)'; file
already in use
Qualcuno mi sa dire se è un problema di connessioni contemporanee?
Grazie..


text:
"Markolino" <
marco....@tws.it
> ha scritto nel messaggio
news:bql0bu$5tv$1...@serv1.iunet.it...

Ogni volta che utilizzi un oggetto (set rst = Server.CreateObject...) alla
fine lo rilasci (set rst = nothing)?
Ciao.
--
Sergio MAZZA


text:
> Ogni volta che utilizzi un oggetto (set rst = Server.CreateObject...) alla
> fine lo rilasci (set rst = nothing)?
Mi sembra di si..
ho ricontrollato tutto il codice..


text:
"Markolino" <
marco....@tws.it
> ha scritto nel messaggio
news:bqpfu2$gpq$1...@serv1.iunet.it...

Hai già provato a leggere qui:
http://support.microsoft.com/default.aspx?scid=kb;en-us;235091
Ciao.
--
Sergio MAZZA


title: richiesta consulenza (a pagamento) per fattura elettronica PA

author: Giuseppe

text:
Chi è interessato a prestarmi consulenza per l'implementazione della fatturazione elettronica verso la PA?  Trattasi di rette per dei pazienti inseriti in diverse strutture di cui mensilmente emetto fatture alla ASL. Per avere i report delle presenze nelle varie tipologie, ogni paziente è di fatto un articolo di magazzino, per cui  il corpo della fattura si compone di una descrizione e di più righe di articoli.
Saluti.
Giuseppe.


author: BFS

text:
Il 04/03/2015 15:57, Giuseppe ha scritto:
> Chi è interessato a prestarmi
> Giuseppe.
>

magari chiedi cosa ti serve che l'aiuto arriva agratis :-)

BFS


text:

Ti ho inviato più volte una mia mail ma mi arriva una mail in cui dice che il server
tin.it
 ha rigettato la mail.
Non sono in grado di scrivere il codice, né gestire la firma elettronica. Vorrei creare un pulsante su conferma della fattura creata che mi generi la fattura in formato xml, aggiungendo se necessariola firma elettronica. Poi si potrebbe anche prendere in considerazione anche di impostare l'invio automatico della fattura alla PEC dell'Ente Pubblico.
Se vuoi ti invio il db.
Fammi sapere.
Ciao.


author: almorel

text:

Salve, sono un vecchio frequentatore del gruppo, ho avuto anch'io esigenza di emettere una (misera) fattura al tribunale di Napoli per conto di una nipote. Per non farle spendere soldi ho trovato in rete una demo (con dei campi bloccati) che mi ha permesso di generare il file XML da inviare previa firma digitale e tramite PEC. Ho modificato a mano il file stesso è l'ho testato sul sito della PA dove esiste la possibilità di inviarlo in prova. Risolti vari errori l'ho inviato.
Saluti
Alberto Morelli


text:

Ciao Alberto.
Grazie per il tuo intervento.
Se mi passi il link ci posso provare, anche se visti i tempi strettissimi, la mia poca bravura e la particolarità delle mie fatture, diverse a seconda dei Dipartimenti delle ASL, ho molti dubbi che possa riuscirci da solo. Anche perchè forse bisognerebbe aggiungere la firma digitale.
Giuseppe


text:

Aggiornamento: ho convertito tramite Acrobat XI Pro il pdf in xml, ho fatto il test ed ho avuto codice errore 0200. Provo a trovare l'errore, ma comunque sarebbe un passeggio in più.
Mi aiutate, per favore.
Grazie.
Giuseppe


text:
Il 07/03/2015 11:08, Giuseppe ha scritto:
> Il giorno giovedì 5 marzo 2015 08:52:58 UTC+1, Giuseppe ha scritto:

>
> Aggiornamento: ho convertito tramite Acrobat XI Pro il pdf in xml,
> Grazie.
> Giuseppe
>

ovvio che non basta convertire un pdf in xml :-)
devi generare un file txt salvandolo con estensione xml direttamenta da
vba. seguendo questa struttura
http://www.fatturapa.gov.it/export/fatturazione/sdi/fatturapa/v1.1/Formato_FatturaPA_tabellare_V1.1.pdf

ciao
BFS


title: Filtrare una combo

author: gasto

text:
Premesso che non sono riuscito a trovare nulla sul sito comune, chiedo:
avendo una tabella con oltre un migliaio di nominativi, è possibile in una
combo (inserita in una maschera) filtrare l'elenco in modo che mi visualizzi
solo i nomi che iniziano per una determinata lettera?
La lettera sarebbe ottenuta da un pulsante premuto del tipo tastiera, o
rubrica telefonica, qualcosa di simile insomma; in pratica i pulsanti
sarebbero 26 come le lettere alfabetiche.
È proprio questo il problema: come faccio ad interpretare il valore del
pulsante premuto e passare il parametro all'origine riga della combo in modo
da applicare il filtro?
Spero di essermi fatto capire.
Grazie.
Gastone


title: Filtrare una combo

author: cidi

text:
"gasto" <
gas...@virgilio.it
> ha scritto nel messaggio
news:hiTIa.219406$g92.4...@news2.tin.it...

Potrebbe andare bene l'esempio riportato nel database Northwind
saluti Daniele


title: Filtrare una combo

text:
"cidi" <
dadonzin...@tin.it
> ha scritto nel messaggio
news:%FTIa.219474$g92.4...@news2.tin.it...

OK grazie!
È quello che mi serve!
Gastone


title: Valore di un controllo che modifica i valori di una maschera

author: Fabio

text:
Buongiorno a tutti/e!
Il mio problema stavolta è questo.
Ho una maschera dove inserisco i dettagli di operazioni finanziarie.I
dettagli sono relativi alla divisa, all'importo, data contratto, società, il
tipo di operazione
Nell'intestazione della maschera ho un campo che rappresenta la data_valuta
che ogni volta l'utente dovrà valorizzare.
Ora se il tipo di operazione è "spot" devo porre datacontratto=data_valuta
dell'intestazione della maschera ( e questo è abbastanza semplice.....basta
mettere del codice sull'evento dopo aggiornamento del controllo)
Però succede che l'utente cambi la data valuta (per esempio accorgendosi che
era sbagliata) mentre già molte date scadenza sono state inserite(anche
migliaia)
Devo attuare quindi un automatismo che al cambio della data_valuta vari
anche le date contratto verificando se l'operazione è "spot".
si ma come si fà!?
E soprattutto come si fà a farlo per tutti i record inseriti???
Grazie a tutti dell'interessamento.....ciao!!!
--------------------------------
Inviato via
http://usenet.libero.it


title: Query a Campi Incrociati

author: Stefano Pozzaglio

text:
Ciao,
ho Access 97 e ho un problema.
Ho fatto una query a campi incrociati che fa base ad altre query.
Se sulle query a monte ci sono dei filtri che fanno riferimento a valori
presenti su maschere, la query a campi incrociati non si esegue in quanto
non riconosce i valori.
Se questi valori sono inseriti direttamente nei criteri delle query allora
tutto č ok.
Sapete dirmi perchč? E' un bug di Access? con Access 2000 pare non ci siano
problemi.
Se ci sono soluzioni per Access 97 vi prego di farmi sapere perchč ho gią
mal di testa di prima mattina.
Grazie Mille


title: Query a Campi Incrociati

author: Roberto da casa

text:
"Stefano Pozzaglio" <
spozz...@mondoita.com
> ha scritto nel messaggio
news:b9fmj5$794$1...@grillo.cs.interbusiness.it...
> Ciao,
> ho Access 97 e ho un problema.
> Ho fatto una query a campi incrociati che fa base ad altre query.
> Se sulle query a monte ci sono dei filtri che fanno riferimento a valori
> presenti su maschere, la query a campi incrociati non si esegue in quanto
> non riconosce i valori.
> Se questi valori sono inseriti direttamente nei criteri delle query allora
> tutto è ok.
> Sapete dirmi perchè? E' un bug di Access? con Access 2000 pare non ci
siano
> problemi.
> Se ci sono soluzioni per Access 97 vi prego di farmi sapere perchè ho già
> mal di testa di prima mattina.
>
> Grazie Mille
Non so se quello che sto per dirti vale o meno per Access 2000, ma
certamente vale per Access 97.
Quello che ti succede non è dovuto ad un bug di Access ma è dovuto al non
rispetto di una regola da parte tua.
In tutte le query parametriche sarebbe bene esplicitare il tipo dati di ogni
singolo parametro, ma poichè per la stragrande maggioranza delle queries la
cosa è opzionale, di solito non li esplicitiamo, lasciando che se la cavi
Access per conto suo.
C'è un però: se la query parametrica è una query a campi incrociati o è una
query su cui è basata una query a campi incrociati (il tuo caso) è
OBBLIGATORIO esplicitare il tipo dati di ogni parametro e se non lo si fa la
query a campi incrociati, come hai potuto constatare personalmente, non
funziona.
Per esplicitare il tipo dati dei parametri di una query con il codice SQL
usa prima della SELECT o della TRANSFORM la proposizione PARAMETERS (vedi
help).
Se la query con parametri la stai costruendo con la griglia di struttura,
una volta che hai appunto aperto la griglia di struttura della query che
contiene i parametri, dal menu Query seleziona il comando Parametri... con
il quale si apre la finestra di dialogo Parametri query nella quale DEVI
impostare il tipo dati di tutti i parametri usati nella query.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Query a Campi Incrociati

author: Karl Donaubauer

text:
Roberto da casa ha scritto:...
> ... se la query parametrica è una query a campi incrociati o è
> una query su cui è basata una query a campi incrociati (il tuo caso) è
> OBBLIGATORIO esplicitare il tipo dati di ogni parametro e se non lo si fa
> la query a campi incrociati, come hai potuto constatare personalmente, non
> funziona.
>...
Hai complettamente ragione, Roberto. Ho solo da aggiungere
che la causa per questo comportamento è spiegato in breve a
"Can't Bind Name '[XXX]'" Error Message with Crosstab Query
http://support.microsoft.com/default.aspx?scid=kb;en-us;91710
o per JET4
ACC2000: Error When Running Crosstab Query with a Parameter
http://support.microsoft.com/default.aspx?scid=kb;en-us;209778
e se qualcuno s'interessa per i dettagli:
Una query a campi incrociati crea i nomi delle colonne dinamicamente.
Per questo al contrario di una query "normale" Access prima non vede
se si tratta di un campo di una tabella o di un parametro e non reagisce
con una finestra di parametro o (tramite il suo Expression Service)
con la valorizzazione di una funzione o di un riferimento a un controllo.
Poi come sempre il Parser/Binder della JET Query Engine prova
ad associare le colonne ai campi delle tabelle indicate nella
clausola FROM. Certo per un parametro non è possibile e in
questo momento (= troppo tardo) esce l'errore.
Se invece il parametro è definito esplicitamente nello statement SQL
tutto è conosciuto dall'inizio di questi processi e trattato adeguato
da Access e dopo dalle stazioni diverse della Query Engine.
Fine della predica nella quale sicuramente ho deformato la
grammatica italiana un'altra volta. ;-)
--
cu
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Problema con una Query

author: Lů Ré

text:
Ciao a tutti vi presento il mio problema:
allora, ho un data base fatto in access...
voglio interrogarlo affinchè mi visualizzi una certa stringa.
Es.
ho i campi: Nome, Cognome, Luogo Residenza.
voglio conoscere tutte le persone che hanno un certo nome,
chessò Alvise.
posso fare una query in cui cheiedo di visualizzarmi Nome,cognome, Luogo
di tutte le persone di nome Alvise... facile
adesso viene il problema!
vogli che dall'esterno... scrivendo un qualsiasi nome, si possa risalire
a tutti coloro che lo portano e quindi visualizzare tutte le persone con
quel nome e mostrare appunto Nome , Cognome , Luogo!
come si fa???
in pratica la condizione della query mi deve venir passata dal campo di una
form esterna al db ... aiutatemi please!
ciao
Lù Ré
INC 0040
http://web.tiscalinet.it/internetclub


title: Problema con una Query

author: Roberto

text:
Lù Ré <
lur...@tiscalinet.it
> wrote in message
8hs0ad$vrd$1...@pegasus.tiscalinet.it...

1) creati una query  che chiami QUERY1 e che contenga tutti i campi della
tua tabella
2) Creati una maschera che chiami MASCHERA1 e che abbia come "Origine
record" QUERY1
3) Come proprietà "Visualizzazione predefinita" di MASCHERA1 scegli dal
relativo menu a tendina "Maschere continue"
4) Nell'intestazione di MASCHERA1 inserisci una casella di testo non
associata che chiamerai NomeRic
5) A fronte della proprietà Evento "Dopo aggiornamento" di NomeRic genera il
seguente codice VBA:
    Private Sub NomeRic_AfterUpdate()
    Me.Requery
    End Sub
6) Riapri in modalità struttura QUERY1 e nella riga "Criteri:" della colonna
relativa al campo Nome, scrivi
    [Forms]![MASCHERA1]![NomeRic]
7) Chiudi la struttura di QUERY1 ed autorizzane il salvataggio delle
modifiche
Ora apri MASCHERA1 e nel controllo che hai dichiarato nell'intestazione
della maschera (NomeRic) digita il nome cercato e premi il tasto Invio o il
tasto Tabulazione: nel corpo della maschera ti compariranno i dati di tutti
coloro che hanno quel nome.
Se invece digiterai Alv* (la chiave di ricerca seguita da un asterisco),
vedrai i dati di tutti coloro il cui nome inizia per Alv (ovvero oltre che
tutti gli Alvise anche tutti gli Alvaro).
Se invece digiterai *rto (la chiave di ricerca preceduta da un asterisco),
vedrai i dati di tutti coloro il cui nome finisce per rto(ad esempio tutti i
Roberto e tutti gli Alberto).
Se infine digiterai *in* (la chiave di ricerca preceduta e seguita da un
asterisco), vedrai i dati di tutti coloro il cui nome contiene la stringa in
(ad esempio tutti gli Antonio e tutti gli Antonino).
E' questo che ti serviva?
Ciao Roberto


title: Problema con una Query

text:
[CUT]
>
> 6) Riapri in modalità struttura QUERY1 e nella riga "Criteri:" della
colonna
> relativa al campo Nome, scrivi
>
>     [Forms]![MASCHERA1]![NomeRic]
>
ERRORE!!!!!!
Nella riga "Criteri:" va scritto:
    Like [Forms]![MASCHERA1]![NomeRic]
Chiedo scusa.
Roberto


title: repost: nuovo record

author: maiae

text:
ciao
data una maskera con due sottomaskere , e' possibile mettere un pulsante
nella sottomaschera1 che posizioni la sottomaschera2 su un nuovo record?
ciao
distinti salumi
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: repost: nuovo record

author: Sandro PASQUALI

text:
maiae ha scritto:
> ciao
> data una maskera con due sottomaskere , e' possibile mettere un pulsante
> nella sottomaschera1 che posizioni la sottomaschera2 su un nuovo record?
> ciao
> distinti salumi
ciao
ho avito lo stesso problema anch'io, ma non credo si possa fare..oppure e'
troppo complicato :)



title: repost: nuovo record

author: Pippo

text:
> > data una maskera con due sottomaskere , e' possibile mettere un pulsante
> > nella sottomaschera1 che posizioni la sottomaschera2 su un nuovo record?
>
>
> ho avito lo stesso problema anch'io, ma non credo si possa fare..oppure e'
> troppo complicato :)
Non l'ho mai fatto, ma mi sembra una cosa semplice.
Cordiali saluti.


title: repost: nuovo record

text:
Io ho provato e non ci sono riuscito...grazie comunque
Ciao
Pippo ha scritto:


> Cordiali saluti.



title: repost: nuovo record

text:
maiae ha scritto:
> Io ho provato e non ci sono riuscito...grazie comunque
ciao MAIAE
io proverei a fare cosi:
nella maschera2 crea il pulsante "Nuovo record" tramite Wizard.
poi nel codice vb del pulsante nella maschera1 scrivi, richiama
manualmente la subroutine del pulsante di maschera2.
non son sicura al 100% che sia il metodo piu' elegante...se qualcuno ne sa
piu' di me ben venga
a presto



title: repost: nuovo record

text:
Leggi le righe sotto indicate:
Private Sub Comando13_Click()
Dim MyRec As DAO.Recordset
Set MyRec = Me.Recordset
MyRec.AddNew
Set MyRec = Nothing
End Sub
Sostituire "Me" con il il nome della form,
completa di percorso.
Cordiali saluti.


title: repost: nuovo record

text:
"maiae" <
re...@dsd.it
> ha scritto nel messaggio
news:bv3cgv$f05$1...@news.newsland.it...
> ciao
>
>
> data una maskera con due sottomaskere , e' possibile mettere un pulsante
> nella sottomaschera1 che posizioni la sottomaschera2 su un nuovo record?
>
> ciao
>
> distinti salumi
>
Io ho risposto allo stesso identico messaggio che tu hai postato in un altro
NG: voglio farti presente che è contro la netiquette postare lo stesso
messaggio contemporaneamente su NG diversi.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: repost: nuovo record

text:
> Io ho risposto allo stesso identico messaggio che tu hai postato in un
altro
> NG: voglio farti presente che è contro la netiquette postare lo stesso
> messaggio contemporaneamente su NG diversi.
>
> --
> Roberto
Esagerato!!!
;-)


title: Saldo di un mastrino. Aiutatemi!!

author: antonelladr

text:
Ciao a tutti. Scusate se insisto, innanzitutto ringrazio tutto il NG e
soprattutto Lorenzo e Roberto che mi hanno risposto al messaggio di ieri.
Potete farmi un esempio pratico per ottenere un saldo progressivo su un
mastrino.
L'esempio era:
data         entrate    uscite     saldo
01/05         100                     100
01/06                        50        50
05/09            20                    70
Non riesco ancora a calcolare il saldo, in altri termini lo calcola, ma solo
su quel record, io invece voglio che mi considera anche i record precedenti
(saldo progressivo). Mi fate un esempio semplice su una query o su una
maschera per ottenere tale saldo. O magari mi inviate un esempio in formato
access 95 all'indirizzo
be...@libero.it
 Ho cercato di usare la funzione dsum
ma mi da errore.
Vi prego č importante, aiutatemi
Grazie ancora e scusate se insisto, Ciao a tutti.
By Nino


title: Saldo di un mastrino. Aiutatemi!!

text:
"antonelladr" <
anton...@libero.it
> ha scritto nel messaggio
news:T_LS5.15956$FV2.4...@news.infostrada.it...

Ti premetto che non conosco A95 e non so se ha limiti nel linguaggio SQL
rispetto a A97 con cui lavoro: l'esempio che sto per darti č sicuramente
funzionante in A97, provalo magari va bene anche per A95.
Ipotizziamo che la tabella che contiene i dati si chiami MOVIMENTI ed abbia
la seguente struttura:
IdMovimenti            Contatore e chiave primaria
DataMov                  Data/ora
DescrMov               Testo
ImpEntrate              Numerico
ImpUscite               Numerico
 e che l'importo del saldo iniziale lo digiti in ImpEntrate o in ImpUscite a
seconda che sia Avere o Dare, creati una query che chiamerai Query1 e che
avrą il seguente codice SQL:
SELECT MOVIMENTI.IdMovimenti, MOVIMENTI.DataMov, MOVIMENTI.DescrMov,
MOVIMENTI.ImpEntrate, MOVIMENTI.ImpUscite, Format(Str([DataMov]),"yyyymmdd")
& Format([IdMovimenti],"000000") AS A,
DSum("ImpEntrate-ImpUscite","Query1","[A]<=" & [A]) AS Saldo
FROM MOVIMENTI
ORDER BY Format(Str([DataMov]),"yyyymmdd") & Format([IdMovimenti],"000000");
Se la query non la chiami Query1, metti il suo nome nel nome del dominio
della DSum al posto di Query1.
Facci sapere
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: conversione databae

author: Mapa

text:
Vorrei trasferire un file di access2000 su una macchina con installato
access 97.
Non mi apre il database dicendomi che il formato mdb non è riconosciuto.
Come posso ovviare?
Grazie
Saluti
Mapa


title: conversione databae

author: Alessandro Tealdi

text:
"Mapa" <
nons...@libero.it
> ha scritto nel messaggio
news:UfaO6.22078$Ql3.9...@news.infostrada.it...

Da Access2000:
Strumenti/Utilità Database/Converti database/Alla versione precedente di
Access ...
Il file così ottenuto dovrebbe risultare compatibile con A97 ....
Tieni presente che se contiene del codice particolare la compatibilità
potrebbe non essere piena ...
CIAO


title: access molto lento all'avvio dopo soli circa 1000 record nella tabella principale

author: tmtube

text:
all'avvio si apre una maschera che contiene circa 1000 record e altre 3
sottomaschere che contiene dei record selezionati, non mi aspettavo grandi
rallentamenti dopo soli 1000 record invece all'apertura impiega circa 12
secondi prima con pochi record era immediato.

sicuramente commetto qualche grave errore ma dove ricercarlo?

qualcuno ha qualche consiglio? dove cercare le ragioni dei possibili vistosi
rallentamenti dopo soli 1000 record?
potrei postarvi il codice che eseguo all'avvio delle form

grazie a tutti per i consigli.


text:
ho provato a inserirne 3500 di record e ci ha impiegato 50 secondi circa ad
aprirsi � ovvio che qualcosa non quadra troppi pochi record per un
rallentamento simile.

la form � basata su una query con 2 campi calcolati ma non credo sia quello
il problema

si accettano consigli di tutti i tipi.

Grazie.


text:
Stessa lentezza sia su windows xp macchina virtuale che con windows 8

l'indagine prosegue...


text:
l'apertura della query da sola con i campi calcolati � velocissima penso
quindi possa essere codice vb che eseguo su corrente di ogni record?

continuo ad indagare ma!!??


text:
� possibile scoprire in quale punto l'esecuzione del codice vb faccia
rallentare vistosamente il db?


text:
commentando pezzi di codice alla ricerca del codice "rallentatore" ho
scoperto essere 2 sub routine che eseguo su evento apertura della form
principale, una mi serve per calcolare il totale in fondo alla form, l'altra
invece imposta dei filtri abbastanza complessi per filtrare dei record

riporto qui sotto il codice delle 2 sub routine qualcuno sa dirmi come
potrei modificare il codice per renderlo pi� veloce?
voi che dite sto chiedendo troppo ad access oppure dove sbaglio?

++++++ SUB ROUTINE 1 +++++++

Private Sub CalcolaTotale()
    Me.Refresh
        'totali tessere pagate e non pagate
        If Me.attivi = -1 Or Me.attivi = 0 Then
            Me.tesserepagate = Nz(DCount("[tesserapagata]", "tessereconta",
"tesserapagata=-1"), 0)
            Me.tesserenonpagate = Nz(DCount("[tesserapagata]",
"tessereconta", "tesserapagata=0"), 0)
        ElseIf IsNull(Me.attivi) = True Then
            Me.tesserepagate = Nz(DCount("[tesserapagata]", "tessereconta2",
"tesserapagata=-1"), 0)
            Me.tesserenonpagate = Nz(DCount("[tesserapagata]",
"tessereconta2", "tesserapagata=0"), 0)
        End If

    If pop = "" Then

        '********************************
        'totali abbonamenti e scaduti e non scaduti
        Me.totale = Nz(DCount("[id]", "abbonamentiCompleti"), 0)
        Me.totaleScaduti = Nz(DCount("[id]", "abbonamentiCompleti",
"scadenza<" & TraData(Date)), 0)
        Me.Totalevalidi = Nz(DCount("[id]", "abbonamentiCompleti",
"scadenza>=" & TraData(Date)), 0)

        'totali abbonamenti pagati parzialmente pagati e non pagati
        Me.pagati = Nz(DCount("[id]", "abbonamentiCompleti", "([pagato]>0)
and ([pagato]>=[importo])"), 0)
        Me.parzpagati = Nz(DCount("[id]", "abbonamentiCompleti", "[pagato]>0
and ([pagato]<[importo])"), 0)
        Me.nonpagati = Nz(DCount("[id]", "abbonamentiCompleti", "[pagato] =
0"), 0)
    Else

        '********************************
        'totali abbonamenti e scaduti e non scaduti
        Me.totale = Nz(DCount("[id]", "abbonamentiCompleti", pop), 0)
        Me.totaleScaduti = Nz(DCount("[id]", "abbonamentiCompleti", pop & "
and scadenza<" & TraData(Date)), 0)
        Me.Totalevalidi = Nz(DCount("[id]", "abbonamentiCompleti", pop & "
and scadenza>=" & TraData(Date)), 0)

        'totali abbonamenti pagati parzialmente pagati e non pagati
        Me.pagati = Nz(DCount("[id]", "abbonamentiCompleti", pop & " and
([pagato]>0) and ([pagato]>=[importo])"), 0)
        Me.parzpagati = Nz(DCount("[id]", "abbonamentiCompleti", pop & " and
[pagato]>0 and ([pagato]<[importo])"), 0)
        Me.nonpagati = Nz(DCount("[id]", "abbonamentiCompleti", pop & " and
[pagato] = 0"), 0)
    End If
End Sub

++++++ FINE SUB ROUTINE 1 +++++++

++++++ SUB ROUTINE 2 +++++++

Function CostruisciFiltro() As String
    CostruisciFiltro = ""
    filtro = ""
    Me.Refresh
    If (Forms![00presenta]![00presentaabbonamenti]![CasellaCombinata218] <>
"") And
(IsNull(Forms![00presenta]![00presentaabbonamenti]![CasellaCombinata218]) =
False) Then
        CostruisciFiltro = "IDALLIEVO =
Forms![00presenta]![00presentaabbonamenti]![CasellaCombinata218]"
        filtro = filtro & " ALLIEVO '" &
Forms![00presenta]![00presentaabbonamenti]![CasellaCombinata218].Column(1) &
"'"
    End If

    If (Forms![00presenta]![00presentaabbonamenti]![CasellaCombinata383] <>
"") And
(IsNull(Forms![00presenta]![00presentaabbonamenti]![CasellaCombinata383]) =
False) Then
        If CostruisciFiltro = "" Then
            CostruisciFiltro = CostruisciFiltro & "[IDABBONAMENTO] =
Forms![00presenta]![00presentaabbonamenti]![CasellaCombinata383]"
        Else
            CostruisciFiltro = CostruisciFiltro & " and [IDABBONAMENTO] =
Forms![00presenta]![00presentaabbonamenti]![CasellaCombinata383]"
        End If
        filtro = filtro & " ABBONAMENTO '" &
Forms![00presenta]![00presentaabbonamenti]![CasellaCombinata383].Column(1) &
"'"
    End If

    If (Forms![00presenta]![00presentaabbonamenti]![dal] <> "") And
(IsNull(Forms![00presenta]![00presentaabbonamenti]![dal]) = False) Then
        If CostruisciFiltro = "" Then
            CostruisciFiltro = CostruisciFiltro & "[datacreazione] >=
Forms![00presenta]![00presentaabbonamenti]![dal]"
        Else
            CostruisciFiltro = CostruisciFiltro & " and [datacreazione] >=
Forms![00presenta]![00presentaabbonamenti]![dal]"
        End If
        filtro = filtro & " REGISTRATO DAL '" &
Forms![00presenta]![00presentaabbonamenti]![dal] & "'"
    End If

    If (Forms![00presenta]![00presentaabbonamenti]![al] <> "") And
(IsNull(Forms![00presenta]![00presentaabbonamenti]![al]) = False) Then
        If CostruisciFiltro = "" Then
            CostruisciFiltro = CostruisciFiltro & "[datacreazione] <=
Forms![00presenta]![00presentaabbonamenti]![al]"
        Else
            CostruisciFiltro = CostruisciFiltro & " and [datacreazione] <=
Forms![00presenta]![00presentaabbonamenti]![al]"
        End If
        filtro = filtro & " AL " &
Forms![00presenta]![00presentaabbonamenti]![al] & "'"
    End If

    'gestisco filtro abbonamenti pagati o non pagati
    If (Forms![00presenta]![00presentaabbonamenti]![fpagati] = -1) Then
        Me.fpagati.ControlTipText = "Clicca per visualizzare gli abbonamenti
non pagati"
        Me.eti4.Caption = "Abbonamenti pagati"
        Me.eti4.ControlTipText = "Tutti gli abbonamenti pagati"
        If CostruisciFiltro = "" Then
            CostruisciFiltro = CostruisciFiltro & "[pagato]>0 and
[pagato]>=[importo]"
        Else
            CostruisciFiltro = CostruisciFiltro & " and [pagato]>0 and
[pagato]>=[importo]"
        End If
        filtro = filtro & " ABBONAMENTI PAGATI"
    ElseIf (Forms![00presenta]![00presentaabbonamenti]![fpagati] = 0) Then
        Me.eti4.Caption = "Abb. non pagati o parz. pagati"
        Me.eti4.ControlTipText = "Tutti gli abbonamenti non pagati o parz.
pagati"
        Me.fpagati.ControlTipText = "Clicca per visualizzare tutti gli
abbonamenti pagati e non pagati"
        If CostruisciFiltro = "" Then
            CostruisciFiltro = CostruisciFiltro & "([pagato]=0 or
[pagato]<[importo])"
        Else
            CostruisciFiltro = CostruisciFiltro & " and ([pagato]=0 or
[pagato] <[importo])"
        End If
        filtro = filtro & " ABBONAMENTI NON PAGATI O PARZIALMENTE PAGATI"
    Else
        Me.eti4.Caption = "Abb. pagati e non pagati"
        Me.eti4.ControlTipText = "Tutti gli abbonamenti pagati e non pagati"
        Me.fpagati.ControlTipText = "Clicca per visualizzare solo gli
abbonamenti pagati"
        filtro = filtro & " ABBONAMENTI PAGATI E NON PAGATI"
    End If
    'FINE gestisco filtro abbonamenti pagati e non pagati

    'gestisco filtro tessere attive anno in corso o tessere non attive anni
scorsi
    If (Forms![00presenta]![00presentaabbonamenti]![attivi] = -1) Then
        Me.attivi.ControlTipText = "Clicca per visualizzare gli abbonamenti
non attivi degli anni scorsi"
        Me.ETI2.Caption = "Abbonamenti anno in corso"
        Me.ETI2.ControlTipText = "Tutti gli abbonamenti dell'anno in corso"
        Me.ETI2.ForeColor = RGB(0, 0, 0)
        If CostruisciFiltro = "" Then
            CostruisciFiltro = CostruisciFiltro & "[attivo] = -1"
        Else
            CostruisciFiltro = CostruisciFiltro & " and [attivo] = -1"
        End If
        filtro = filtro & " ABBONAMENTI ATTIVI DELL'ANNO CORRENTE"
    ElseIf (Forms![00presenta]![00presentaabbonamenti]![attivi] = 0) Then
        Me.ETI2.Caption = "Abbonamenti anni scorsi"
        Me.ETI2.ControlTipText = "Tutti gli abbonamenti degli anni scorsi"
        Me.ETI2.ForeColor = RGB(255, 0, 0)
        Me.attivi.ControlTipText = "Clicca per visualizzare tutti gli
abbonamenti attivi dell'anno corrente e non attivi degli anni scorsi"
        If CostruisciFiltro = "" Then
            CostruisciFiltro = CostruisciFiltro & "[attivo] = 0"
        Else
            CostruisciFiltro = CostruisciFiltro & " and [attivo] = 0"
        End If
        filtro = filtro & " ABBONAMENTI NON ATTIVI ANNI SCORSI"
    Else
        Me.ETI2.Caption = "Tutti gli abbonamenti"
        Me.ETI2.ControlTipText = "Tutti gli abbonamenti anno corrente e anni
scorsi"
        Me.ETI2.ForeColor = RGB(255, 0, 0)
        Me.attivi.ControlTipText = "Clicca per visualizzare gli abbonamenti
attivi dell'anno corrente"
        filtro = filtro & " ABBONAMENTI ATTIVI E NON ATTIVI"
    End If
    'FINE gestisco filtro tessere attive anno in corso o tessere non attive
anni scorsi

    'gestisco filtro tutte le tessere o tessere pagate o non pagate
    If (Forms![00presenta]![00presentaabbonamenti]![ftessera] = -1) Then
        Me.ftessera.ControlTipText = "Clicca per visualizzare solo le
tessere non pagate"
        Me.eti3.Caption = "Tessere Pagate"
        Me.eti3.ControlTipText = "Tutte le tessere gi� pagate"
        If CostruisciFiltro = "" Then
            CostruisciFiltro = CostruisciFiltro & "[tesserapagata] = -1"
        Else
            CostruisciFiltro = CostruisciFiltro & " and [tesserapagata]
= -1"
        End If
        filtro = filtro & " TESSERE GIA' PAGATE"
    ElseIf (Forms![00presenta]![00presentaabbonamenti]![ftessera] = 0) Then
        Me.ftessera.ControlTipText = "Clicca per visualizzare tutti gli
abbonamenti sia quelli con le tessere pagate sia le non pagate"
        Me.eti3.Caption = "Tessere Non Pagate"
        Me.eti3.ControlTipText = "Tutte le tessere non pagate"
        If CostruisciFiltro = "" Then
            CostruisciFiltro = CostruisciFiltro & "[tesserapagata] = 0"
        Else
            CostruisciFiltro = CostruisciFiltro & " and [tesserapagata] = 0"
        End If
        filtro = filtro & " TESSERE NON PAGATE"
    Else
        Me.eti3.Caption = "Tutte le tessere"
        Me.eti3.ControlTipText = "Tutte le tessere pagate e non pagate"
        Me.ftessera.ControlTipText = "Clicca per visualizzare solo le
tessere pagate"
        filtro = filtro & " TUTTE LE TESSERE PAGATE E NON PAGATE"
    End If
    'FINE gestisco filtro tutte le tessere o tessere pagate o non pagate

    'gestisco filtro tutte le tessere o tessere scadute o non scadute anno
in corso
    If (Forms![00presenta]![00presentaabbonamenti]![visabb] = -1) Then
        Me.visabb.ControlTipText = "Clicca per visualizzare solo gli
abbonamenti scaduti"
        Me.eti.Caption = "Non scaduti"
        Me.eti.ControlTipText = "Tutti gli abbonamenti non scaduti"
        If CostruisciFiltro = "" Then
            CostruisciFiltro = CostruisciFiltro & "[scadenza] >=" &
TraData(Date)
            filtro = filtro & " ABBONAMENTI SCADUTI"
        Else
            CostruisciFiltro = CostruisciFiltro & " and [scadenza] >=" &
TraData(Date)
            filtro = filtro & " ABBONAMENTI SCADUTI"
        End If
    ElseIf (Forms![00presenta]![00presentaabbonamenti]![visabb] = 0) Then
        Me.visabb.ControlTipText = "Clicca per visualizzare tutti gli
abbonamenti"
        Me.eti.Caption = "Scaduti"
        Me.eti.ControlTipText = "Tutti gli abbonamenti scaduti"
        If CostruisciFiltro = "" Then
            CostruisciFiltro = CostruisciFiltro & "[scadenza] <" &
TraData(Date)
            filtro = filtro & " ABBONAMENTI NON SCADUTI"
        Else
            CostruisciFiltro = CostruisciFiltro & " and [scadenza] <" &
TraData(Date)
            filtro = filtro & " ABBONAMENTI NON SCADUTI"
        End If
    Else
        Me.visabb.ControlTipText = "Clicca per visualizzare tutti gli
abbonamenti non scaduti"
        Me.eti.Caption = "Scaduti e Non scaduti"
        Me.eti.ControlTipText = "Tutti gli abbonamenti scaduti e non
scaduti"
        filtro = filtro & " ABBONAMENTI SCADUTI E NON SCADUTI"
    End If
    'FINE gestisco filtro abbonameni tutti scaduti o non scaduti

    pop = CostruisciFiltro
    If filtro = "" Then
        filtro = "TUTTI GLI ABBONAMENTI"
    End If
    CalcolaTotale
End Function

++++++ FINE SUB ROUTINE 2 +++++++


text: Scusate il doppio messaggio uguale � stato un errore!


author: Marco Pizzamiglio

text:
tmtube ha scritto:

Tra le varie istruzioni delle sub metti delle righe che stampino nella
finestra immediata un progressivo e il timer:

..istruzione...
debug.print "01 - " & Timer
..istruzione...
debug.print "02 - " & Timer
..istruzione...
debug.print "03 - " & Timer
..istruzione...

Salva, chiudi e riapri il db e alla fine vai nella finestra immediata a
vedere quali sono i passaggi che portano via pi� tempo. Una volta
individuate le istruzioni pi� pesanti indagherai perch� sono lente e
potrai
cercare delle alternative pi� veloci.
Ciao.
-Marco-

--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
>Salva, chiudi e riapri il db e alla fine vai nella finestra immediata a
>vedere quali sono i passaggi che portano via pi� tempo. Una volta
>individuate le istruzioni pi� pesanti indagherai perch� sono lente e
>potrai
>cercare delle alternative pi� veloci.
>Ciao.
>-Marco-

Grazie ottimo consiglio, ci provo e vi far� sapere gli sviluppi.


text:
>cercare delle alternative pi� veloci.
>Ciao.
>-Marco-

sono tutte istruzioni tipo
Me.totaleScaduti = Nz(DCount("[id]", "abbonamentiCompleti", "scadenza<" &
TraData(Date)), 0)
i recordset sono pi� veloci di dcount?

ecco il risultato pare siano tutte identiche o quasi, ma cosa sono
millisecondi?
a ste punto come migliorare?

00 - 69855,89
01 - 69855,91
02 - 69855,92
03 - 69855,92
04 - 69855,94
05 - 69855,94
06 - 69855,95
07 - 69857,75
08 - 69861,35


text:
tmtube ha scritto:

Sono secondi, lo vedi mettendo il cursore su Timer e premendo F1.
Dalla zero alla 6 sono veloci, lasciale stare cos� come sono.
Vai ad esaminare quello che c'� tra la 6 e la 7 che porta via quasi due
secondi, e tra la 7 e la 8 che ti fa perdere altri 3 secondi e mezzo.
Query e recordset sono molto pi� veloci delle funzioni di aggregazione sui
domini (dcount, dsum, ecc...), cerca di riscrivere quei due pezzi usando
una
query o un recordset.



text:
Ho trovato il problema sia quando applico un filtro alla form sia quando
calcolo i totali nella form quando interpello un campo calcolato di nome
"pagato" f� rallentare drasticamente l'esecuzione del db

a questo punto avendo necessit� di filtrare e di calcolare i totali di quel
campo forse � meglio memorizzare il valore volta per volta anzich� avere un
campo calcolato?

grazie a tutti.


text:
tmtube ha scritto:

Per ottimizzare le prestazioni � necessario vedere come � strutturato il
database, non basta vedere la formula. Intanto cerca di calcolare i valori
con
le query, evitando l'uso di Dsum() e Dcount(), forse riesci gi� a
velocizzare
il tutto.



text:
Pensavo di memorizzare il valore di "pagato" ogni qualvolta un utente esegue
una modifica sui pagamenti, pensi sia inutile ed errato memorizzare il
valore visto che le prestazioni in quel caso sono ovviamente migliori?

calcolare con le query non mi � molto chiaro cosa intendi, il valore di
pagato � gi� calcolato all'interno di una query su cui si basa la mia
maschera e sulla quale poi eseguo le somme

grazie.


text:
tmtube ha scritto:

> Pensavo di memorizzare il valore di "pagato" ogni qualvolta un utente
esegue
> una modifica sui pagamenti, pensi sia inutile ed errato memorizzare il
> valore visto che le prestazioni in quel caso sono ovviamente migliori?

E' sconsigliabile salvare nelle tabelle i valori che possono essere
calcolati, tranne in particolari casi tra cui potrebbe rientrare il tuo,
posto che i calcoli che devi fare sono lunghi e complessi e ti servirebbe
per risparmiare tempo.
La contropartita è che devi assumerti tu l'onere di garantire che i totali
siano sempre aggiornati e corretti. Devi preoccuparti di aggiornare i dati
ad ogni possibile modifica, cancellazione o nuovo inserimento. E se un
utente modifica i dati direttamente nella tabella senza usare la maschera
i
totali saranno sbagliati.

> calcolare con le query non mi è molto chiaro cosa intendi, il valore di
> pagato è già calcolato all'interno di una query su cui si basa la mia
> maschera e sulla quale poi eseguo le somme
> grazie.

Calcolare con le query e non con Dsum o Dcount, ma lo fai già per cui se
la
query è lenta bisognerebbe ottimizzare in altro modo.



text:
>La contropartita è che devi assumerti tu l'onere di garantire che i totali
>siano sempre aggiornati e corretti. Devi preoccuparti di aggiornare i dati
>ad ogni possibile modifica, cancellazione o nuovo inserimento. E se un
>utente modifica i dati direttamente nella tabella senza usare la maschera
>i  totali saranno sbagliati.

Si questo l'avevo messo in conto dovrò prevedere ogni possibile strada che
l'utente può percorrere per modificare il valore e aggiornarlo.

Grazie.


author: Matteo Avanzi

text:
"tmtube" <

Mah, rimane il fatto che stupiscono prestazioni cos� lente con soli 1000
records!
Cosa fa sto campo calcolato?

Ciao!


text:
>Mah, rimane il fatto che stupiscono prestazioni cos� lente con soli 1000
>records!
>Cosa fa sto campo calcolato?

>Ciao!

il campo calcolato nulla in particolare � quando lo vado ad interpellare in
una funzione filtro e una funziona calcola totali
in cui eseguo dei confronti [campocalcolato]>di...... ecc.. in quel caso
diventa lento
ho optato per un campo con valore memorizzato che aggiorno ogni volta che il
cliente modifica un importo.


title: copiare negli appunti....

author: Frankkk

text:
...ho la necessità di copiare negli appunti di windows delle
stringhe....qualcuno ha qualche idea...?
Frankkk


title: copiare negli appunti....

text:
...mi rispondo da solo....leggi gli altri messaggi....e scusate...!
Frankkk


title: SQL Server

author: GINO PALMIA

text:
Buongiorno a tutti!
Qualcuno puņ indicarmi un testo itroduttivo, possibilmente in italiano, che
consenta di avvicinarsi a questo applicativo?
Uso da molto tempo e con efficacia Access ma vorrei cominciare a conoscere
anche SQL Server.
Grazie.


title: SQL Server

author: Tiziano

text:
"GINO PALMIA" <
pasquali...@tin.it
> ha scritto nel messaggio
news:L5bt8.5481$b62.1...@news1.tin.it...
> Buongiorno a tutti!
> Qualcuno può indicarmi un testo itroduttivo, possibilmente in italiano,
che
> consenta di avvicinarsi a questo applicativo?
> Uso da molto tempo e con efficacia Access ma vorrei cominciare a conoscere
> anche SQL Server.
> Grazie.
>
ciao per quel poco che conosco di access e di sql server ti consiglio un
libro della mondadori da access a sql server non è fatto malissimo...
ciao Tiz


title: SQL Server

author: MegaMax

text:
"GINO PALMIA" <
pasquali...@tin.it
> ha scritto nel messaggio
news:L5bt8.5481$b62.1...@news1.tin.it...
> Buongiorno a tutti!
> Qualcuno può indicarmi un testo itroduttivo, possibilmente in italiano,
che
> consenta di avvicinarsi a questo applicativo?
> Uso da molto tempo e con efficacia Access ma vorrei cominciare a conoscere
> anche SQL Server.
Consiglio "Programmare microsoft SQL Server 2000 Passo per Passo" Mondadori
Informatica.
Come introduzione è semplice e ben spiegata.
C'è un CD con degli esempi.
Essendo un libro introduttivo non è dettagliatissimo su alcune cose...
cioè... diciamo che non è un reference book.
Io lo sto usando appunto per imparare sql server (come te avevo sempre usato
solo access)
ciao, max


title: SQL Server

text:
Grazie infinite
Gino Palmia
Tiziano <
canonic...@hotmail.com
> wrote in message
a93dr2$qna$1...@newsfeed.cineca.it...



title: query parametrica

author: stefano

text:
Saluti a tutti e grazie in anticipo:
Dovendo stampare delle etichette per citta' in una query parametrica al
messaggio di Access si risponde con il nome della citta' e la query va in
esecuzione solo con le determinate citta' , e qui tutto bene ,ma come faccio
al messaggio a indicare di stampare tutte le citta' ?Servono i caratteri * ?
E se volessi far scegliere all'utente da una casella combinata la citta ' e
non digitare manualmente che procedura dovrei adottare ? ( Anche in questo
caso con la possibilita' di scegliere tutte)
Ringrazio in anticipo preziosi suggerimenti


title: query parametrica

author: Alessandro Baraldi

text:
Devi usare una Maschera come punto di selezione, e nel Criterio
della Query invece che scrivere [CIttà] dovrai fare riferimento al
controllo della Maschera(che potrebbe essere una ComboBox con
l'elenco delle Città) in questo modo:
Forms!NomeForm!NomeControllo OR Forms!NomeForm!NomeControllo Is Null
Ciao
@Alex


title: query parametrica

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1144321605....@i39g2000cwa.googlegroups.com...


Ciao
@Alex
Grazie Milee
Solo una piccola cosa , nella stringa che mi hai descritto la parte Is Null
si riferisce al fatto di tutte le Citta' cioe' che le stampi tutte senza
nessun filtro nel caso si richiedesse questa eventualita' ?
Grazie ancora
Ciao


title: query parametrica

text:
Si
@Alex


title: Attivazione Caselle Combinate e altro

author: Slump

text:
E' possibile all'interno di una stessa maschera fare in modo che una casella
combinata per la ricerca di un valore all'interno della maschera stessa
venga attivata solo mediante la pressione di un pulsante e nel caso non
venga premuto tale pulsante sia impossibile usare quest'ultima. E' inoltre
possibile fare in modo che la ricerca da parte di tale casella combinata sia
attivata solo tramite il mouse e non attraverso altri tasti (tipo invio?).
Grazie.


title: Attivazione Caselle Combinate e altro

author: Antonio Ganci

text:
Slump wrote:
> E' possibile all'interno di una stessa maschera fare in modo che una
> casella combinata per la ricerca di un valore all'interno della
> maschera stessa venga attivata solo mediante la pressione di un
> pulsante e nel caso non venga premuto tale pulsante sia impossibile
> usare quest'ultima.
Certo, in Visualizzazione Struttura Disabilitare il controllo e poi nel
codice dell'evento clic:
Me.NomeControllo.Enabled = True
>E' inoltre possibile fare in modo che la ricerca
> da parte di tale casella combinata sia attivata solo tramite il mouse
> e non attraverso altri tasti (tipo invio?).
>
> Grazie.
L'ultima parte non mi è chiara puoi essere più preciso?
Antonio.


title: Attivazione Caselle Combinate e altro

author: Roberto da casa

text:
"Slump" <
slumpol...@libero.it
> ha scritto nel messaggio
news:ddZJ9.11214$lV4.4...@news2.tin.it...
> E' possibile all'interno di una stessa maschera fare in modo che una
casella
> combinata per la ricerca di un valore all'interno della maschera stessa
> venga attivata solo mediante la pressione di un pulsante e nel caso non
> venga premuto tale pulsante sia impossibile usare quest'ultima.
Se la casella combinata si chiama MiaCombo.
Imposta a Si la proprietą Bloccato della casella combinata.
A fronte dell'evento "Su clic" del pulsante di comando genera il seguente
codice VBA:
Me!MiaCombo.Locked = False
e a fronte dell'evento "Dopo aggiornamento" della casella combinata genera
il seguente codice VBA:
Me!MiaCombo.Locked = True
> E' inoltre
> possibile fare in modo che la ricerca da parte di tale casella combinata
sia
> attivata solo tramite il mouse e non attraverso altri tasti (tipo invio?).
Imposta a No la proprietą Seleziona con tabulazione della casella combinata.
>
> Grazie.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Attivazione Caselle Combinate e altro

text:
Grazie a tutti =)
"Slump" <
slumpol...@libero.it
> ha scritto nel messaggio
news:ddZJ9.11214$lV4.4...@news2.tin.it...



title: sapere a chi ho mandato un eterminato messaggio dei miei contatti

text:
da access ho una tabella clienti a cui posso mandare delle email e una
tabella email che contiene lo storico delle email inviate, ho la necessità
però di sapere il tal messaggio a chi è stato inviato quando lo seleziono.
come struttureste le tabelle e le relazioni per fare in modo che quando
seleziono un messaggio email sotto in una sotto maschera escono i soli
clienti a cui è stato inviato tale messaggio?
Grazie a tutti.


author: Salvatore

text:
"tosto73" <
tos...@libero.it
> ha scritto nel messaggio
news:bpql11$fn8$1...@lacerta.tiscalinet.it...

Puoi specificare quali campi usi nelle due tabelle?
Ciao
Salvatore


text:
> >
> >
> Puoi specificare quali campi usi nelle due tabelle?
> Ciao
> Salvatore
>
esempio nome cognome e email nella tabella "clienti"
datainvio, orainvio, oggetto, messaggio nella tabella "storico email "
dovrei forse aggiungere un campo in entrambe da relazionare ma non so come
fare, avete idee?
Grazie


text:
"tosto73" <
tos...@libero.it
> ha scritto nel messaggio
news:bpr0of$rg9$1...@lacerta.tiscalinet.it...

Nella pima tabella aggiungi un campo IDCliente come chiave primaria. Nella
seconda aggiungi un campo IDCliente indicizzato, ma con duplicati possibili.
Crea poi una relazione 1 a molti tra la tabella Clienti e la tabella Email,
attraverso il campo IDCliente. In questo modo, selezionando una e-mail
potrai vedere tutti i clienti ai quali l'hai spedita e, viceversa,
scegliendo un cliente potrai vedere tutte le e-mail che ha ricevuto.
Ciao
Salvatore


title: menù stile java con access 2007

author: fabrizio vignali

text:
Salve a tutto L'NG. Ho trovato su Sitocomune un menù tipo Java con la
maschera di Access a scomparsa a dir poco eccezionale, il problema è che con
Access 2007 non mi gira, ovvero quando si avvia il db, la finestra di Access
scompare, appare la maschera per un secondo e poi più niente. Premetto che
il tutto con Access 2003 funziona tutto alla perfezione.
Questo è il codice della maschera:
Option Compare Database
Option Explicit
Private Sub bar_vert_Click()
    Dim Altezza
    Altezza = Me.WindowHeight
    Dim incremento, i
    incremento = 10
    If Me.bar_vert.Caption = "OPZIONE MENU (APRI)" Then
        Me.bar_vert.Caption = "OPZIONE MENU (CHIUDI)"
        Me.bar_vert.ControlTipText = "CHIUDI"
        i = 0
        While i < 1900
            i = i + incremento
            DoCmd.MoveSize 0, 0, i, Altezza
            Me.Form.Requery
        Wend
    Else
        Me.bar_vert.Caption = "OPZIONE MENU (APRI)"
        Me.bar_vert.ControlTipText = "APRI"
        DoCmd.MoveSize 0, 0, 280, Altezza
        i = 1900
        While i > 280
            i = i - incremento
            DoCmd.MoveSize 0, 0, i, Altezza
            Me.Form.Requery
        Wend
    End If
End Sub
Private Sub bar_vert_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
'Me.bar_vert.ControlTipText = Me.bar_vert.Width
End Sub
Private Sub Etichetta1_Click()
Call Apri_Contatti
End Sub
Private Sub Etichetta2_Click()
Call Apri_Movimenti
End Sub
Private Sub Etichetta3_Click()
If MsgBox("Sicuro di voler Uscire definitivamente ?", vbYesNo, ) = 6 Then
    DoCmd.Quit
Else: End If
End Sub
Private Sub Etichetta4_Click()
DoCmd.OpenForm "Impostazioni", acNormal, "", "", , acDialog
End Sub
Private Sub Form_Open(Cancel As Integer)
'fAccessWindow acHide, False, False
DoCmd.Echo False
    Dim Altezza, Larghezza
    DoCmd.Maximize
    Altezza = Me.WindowHeight
    DoCmd.Restore
    DoCmd.MoveSize 0, 0, 280, Altezza
    Me.bar_vert.Height = Altezza
    Me.img_vert.Height = Altezza
    Me.linea_DX.Height = Altezza
Application.Echo True
End Sub
Private Sub img_chiusi_Click()
If MsgBox("Sicuro di voler Uscire definitivamente ?", vbYesNo, ) = 6 Then
    DoCmd.Quit
Else: End If
End Sub
E questo del modulo che nasconde la finestra:
Option Compare Database
Option Explicit
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long)
As Long
Dim dwReturn As Long
Public Const acHide = "Hide"
Public Const acShow = "Show"
Public Const acMinimized = "Minimize"
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
     ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional
SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
    If IsWindowVisible(hWndAccessApp) = 1 Then
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
    Else
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
    End If
End If
If StatusCheck = True Then
    If IsWindowVisible(hWndAccessApp) = 0 Then
        fAccessWindow = False
    End If
    If IsWindowVisible(hWndAccessApp) = 1 Then
        fAccessWindow = True
    End If
End If
End Function
Qualcuno può aiutarmi a capire dov'è l'incompatibilità?
Saluti a tutti e grazie anticipatamente per l'eventuale aiuto
Fabrizio
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: menù stile java con access 2007

author: Pablitomf

text:
"fabrizio vignali" <
fabrizio...@libero.it
> ha scritto nel messaggio
news:151Z49Z26Z253Y1...@usenet.libero.it...
> Salve a tutto L'NG. Ho trovato su Sitocomune un menů tipo Java con la
> maschera di Access a scomparsa a dir poco eccezionale
E' roba mia?
--
Pablitomf (Maurizio Facciuti)


title: menù stile java con access 2007

text:
Si, se ricordo bene si, è quell'esempio di db con finestra di access a
scomparsa e con la form menù pricipale che si apre verticale a sinistra del
monitor. Il tutto eccezionale con versioni di access fino al 2003, ma con
2007 non ne vuole sapere.
Grazie



title: menù stile java con access 2007

author: Alessandro Cara

text:
fabrizio vignali wrote:
> Salve a tutto L'NG. Ho trovato su Sitocomune un menů tipo Java
sarei curioso di sapere cos'e' un menů tipo java, che per me continua ad
essere un'isola del sud est asiatico.
--
ac
y-1=x


title: menù stile java con access 2007

author: ALESSANDRO Baraldi

text:
"Alessandro Cara" <
alessan...@ay-1asistemi.it
> ha scritto nel messaggio
news:Z3fNi.20426$5f3....@tornado.fastwebnet.it...

Quando partiamo...?
Se va bene a Gennaio sono 3 settimane...
;-)
> --
> ac
> y-1=x
Ciao Ale
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: menù stile java con access 2007

text:
"fabrizio vignali" <
fabrizio...@libero.it
> ha scritto nel messaggio
news:151Z49Z26Z253Y1...@usenet.libero.it...
> Si, se ricordo bene si, è quell'esempio di db con finestra di access a
> scomparsa e con la form menù pricipale che si apre verticale a sinistra
del
> monitor. Il tutto eccezionale con versioni di access fino al 2003, ma con
> 2007 non ne vuole sapere.
> Grazie
Non entro nel merito tecnico per incompetenza su A2007, ma ho avuto molte
segnalazioni
di non piena compatibiltà di molti Demo convertiti in A2007.
Purtroppo non ho modo di fare Debug non avendo tale Versione ma ci deve
essere
qualche cozzaglia comune che lega queste cose....



title: menù stile java con access 2007

text:
"fabrizio vignali" <
fabrizio...@libero.it
> ha scritto nel messaggio
news:151Z49Z26Z253Y1...@usenet.libero.it...
> Si, se ricordo bene si, è quell'esempio di db con finestra di access a
> scomparsa e con la form menù pricipale che si apre verticale a sinistra
> del
> monitor. Il tutto eccezionale con versioni di access fino al 2003, ma con
> 2007 non ne vuole sapere.
> Grazie
ma dici che scompare la maschera anche se poi hai commentato questa stringa
:
'fAccessWindow acHide, False, False
non ti seguo...
dimmi in realtà cosa accade.. neanche io ho il 2007


title: menù stile java con access 2007

text:
ALESSANDRO Baraldi wrote:
> "Alessandro Cara" <
alessan...@ay-1asistemi.it
> ha scritto nel messaggio
> news:Z3fNi.20426$5f3....@tornado.fastwebnet.it...
>> fabrizio vignali wrote:
>>> Salve a tutto L'NG. Ho trovato su Sitocomune un menů tipo Java
>> sarei curioso di sapere cos'e' un menů tipo java, che per me continua ad
>> essere un'isola del sud est asiatico.
>
> Quando partiamo...?
> Se va bene a Gennaio sono 3 settimane...
Avevo quasi deciso di andare in Myanmar.
Sti monaci buddisti so' veramente deleteri.
(ho visto alcune immagini in tivu, sconfinata ammirazione)
--
ac
y-1=x


title: menù stile java con access 2007

text:
Salve, grazie per il vostro interesse.
Praticamente se si va a salvare o a fare il debug va tutto bene, niente
errori, di fatto se io apro la maschera in oggetto con la finestra di access
aperta e non faccio eseguire:
fAccessWindow acHide, False, False

va tutto benissimo, mi rimane aperta la finestra di access, ma il resto è
ok.
Se invece faccio eseguire il codice sopra, l'applicazione si avvia, si vede
annullare la finestra di access, si apre la maschera in oggetto ma subito
sparisce.
Quindi penso che il problema o l'incompatibilità sia nelle dichiarazioni di:




Con le precedenti versioni, ovvero 2000,2002 e 2003 va tutto bene.
Mi sto bacando il cervello!
Grazie ancora.
Saluti
Fabrizio Vignali



title: menù stile java con access 2007

text:
Credo di aver risolto almeno parzialmente, ovvero invece di dare come avvio
la maschera in oggetto, la faccio aprire con una Autoexec e aprendo la form
in modalità dialogo. Non si posiziona a sinistra dello schermo come
dovrebbe, risulta centrata, questo penso di risolverlo.
Grazie comunque a tutti.
Saluti
Il 05 Ott 2007, 23:23,
fabrizio...@libero.it
 (fabrizio vignali) ha
scritto:



title: menù stile java con access 2007

author: Simone Calligaris

text:
"ALESSANDRO Baraldi"
> Non entro nel merito tecnico per incompetenza su A2007, ma ho avuto molte
> segnalazioni
> di non piena compatibiltà di molti Demo convertiti in A2007.
Vogliamo i nomi dei Demo che non vanno!     ;-)
Saluti.


title: menù stile java con access 2007

text:

Quello del Filtro ad esempio è stato riscontrato uno strano
rallentamento
che ne rende quasi
impossibile l'uso... non ho purtroppo modo nè di testare nè di
indagare, ma
anche altri
demo che mi hanno segnalato danno piccoli e strani difetti...
Ciao



title: menù stile java con access 2007

text:
On 5 Ott, 23:18, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:
> ALESSANDRO Baraldi wrote:
> > "Alessandro Cara" <
alessandro.c...@ay-1asistemi.it
> ha scritto nel messaggio
> >news:Z3fNi.20426$5f3....@tornado.fastwebnet.it...
> >> fabrizio vignali wrote:
> >>> Salve a tutto L'NG. Ho trovato su Sitocomune un menù tipo Java
> >> sarei curioso di sapere cos'e' un menù tipo java, che per me continua ad
> >> essere un'isola del sud est asiatico.
>
> > Quando partiamo...?
> > Se va bene a Gennaio sono 3 settimane...
>
> Avevo quasi deciso di andare in Myanmar.
> Sti monaci buddisti so' veramente deleteri.
>
> (ho visto alcune immagini in tivu, sconfinata ammirazione)
> --
> ac
> y-1=x
Io sono entrato in Myammar l'anno scorso(solo per 1gg)... e sembra
un'altro
mondo...!
Se la Thailandia al Nord può far pensare ad un paese degli anni 70....
il
Myammar
ti da l'impressione di essere al 1900(anche se non c'ero...), e quello
che
mi ha colpito
è che ero in ogni caso in una fascia territoriale confinante che
ancora
risente del turismo(se pur non eccessivo in quell'angolo
della Thailandia) figurati aver potuto visitare l'interno.
Solo il Nepal nell'entroterra fuori dai circuiti classici aveva quel
sapore
nostalgico...
In o gni caso sai che non scherzo... nel 2008 credo Cambogia e
Vietnam... se
ti và noi è probabile si parta.
;-)



title: menù stile java con access 2007

text:

Esattamente, nonostante abbia controllato e ricontrollato, e poi del resto
su 2003 e 2000 va benissimo, ovvero attivata su apertura form, sparisce
access e si apre la form. Su 2007, succede esattamente questo:
se io la form l'avvio con access aperto è un'orologio! Ma se chiudo il db e
faccio eseguire il tutto in automatico da solo, sparisce tutto e devo
chiudere il processo pe r andare avanti.
Questo è il quanto.
Grazie
Fabrizio Vignali



title: menù stile java con access 2007

author: MA

text:
Alessandro Baraldi wrote:
>
> In o gni caso sai che non scherzo... nel 2008 credo Cambogia e
> Vietnam... se
> ti và noi è probabile si parta.
> ;-)
Ti sconsiglio vivamente di partire senza un preventivo training.
Se vuoi ti mando qualche del codice di Pablitomf da debugare... altro che Cambogia!!!!
;-)
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: menù stile java con access 2007

text:
Ti sconsiglio vivamente di partire senza un preventivo training.
Se vuoi ti mando qualche del codice di Pablitomf da debugare... altro che
Cambogia!!!!
;-)
--
Oddio no... vade retro...!



title: menù stile java con access 2007

text:
>Se vuoi ti mando qualche del codice di Pablitomf da >debugare... altro che
>Cambogia!!!!
>;-)
Rotfl :DDDD


title: Cerco runtime per access 2000 oppure 97

author: ricy

text:
Sapete dove trovarle, ho provato su Opengate e su altri siti ma non trovo
nulla.


title: campo calcolato in query con parametro da maschera

author: Ritch

text:
Ciao a tutti,
provo a riassumere il mio "problema":
ho una query con due campi data "inizio" e "fine" presi da una tabella
"effort".
Voglio aggiungere alla query due campi calcolati "inizio_calc" e
"fine_calc"
che prendano il valore da due controlli di una form testando però il
valore
imputato in tali controlli rispetto ai campi inizio e fine di cui sopra
Ad esempio se nel primo controllo della form la data imputata è > di
"inizio"
allora "inizio_calc" deve essere = al valore del controllo nella form,
altrimenti deve essere = a "inizio".
Ho provato ad usare la seguente espressione come criterio di "inizio_calc":
IIf([forms]![mascheraparametrica]![inizio]>[effort].[inizio];[forms]!
[mascheraparametrica]![inizio];[effort].[inizio])
Ovviamente non funziona: dove sbaglio?
grazie a tutti
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Carlo Costarella

text:
"Ritch" <
ri...@gmail.com
> ha scritto nel messaggio
news:ilkrar$5pm$1...@news.newsland.it...
> Ciao a tutti,
> provo a riassumere il mio "problema":
> ho una query con due campi data "inizio" e "fine" presi da una tabella
> "effort".
> Voglio aggiungere alla query due campi calcolati "inizio_calc" e
> "fine_calc"
> che prendano il valore da due controlli di una form testando però il
> valore
> imputato in tali controlli rispetto ai campi inizio e fine di cui sopra
>
> Ad esempio se nel primo controllo della form la data imputata è > di
> "inizio"
> allora "inizio_calc" deve essere = al valore del controllo nella form,
> altrimenti deve essere = a "inizio".
>
> Ho provato ad usare la seguente espressione come criterio di
> "inizio_calc":
>
> IIf([forms]![mascheraparametrica]![inizio]>[effort].[inizio];[forms]!
> [mascheraparametrica]![inizio];[effort].[inizio])
>
> Ovviamente non funziona: dove sbaglio?
>
> grazie a tutti
>
> --
Prima di tutto la maschera deve essere aperta, ovviamente.
Non capisco perchè due campi quando poi utilizzi un solo valore (o,o).
Poi il tipo di dati deve essere una data.
Ti consiglio di usare una piccola funzione, per esempio:
Public Function DimmiValoreData() as date
If forms!NomeMaschera!DataImputata > forms!NomeMaschera!DataFine then
DimmiValoreData = forms!NomeMaschera!DataImputata
else
DimmiValoreData  = forms!NomeMaschera!DataInizio
End if
End function
Nella query, nel nuovo campo userai per esempio:
NuovoCampo: DimmiValoreData()
I valori della funzione vanno opportunamente corretti in base ai nomi reali
della tua maschera.
Ciao, Carlo


text:
Carlo Costarella ha scritto:

> Ciao, Carlo
Ciao Carlo,
innanzitutto grazie per la risposta. Io il raffronto dovrei farlo tra il
valore imputato nella form ed il valore di un altro campo della stessa
query. Provo a spiegarmi meglio:
La query è basata su una tabella che si chiama effort ed ha tra gli altri
il
campo effort.inizio
Io voglio aggiungere alla query un campo calcolato: inizio_calcolato, il
cui
valore cambi in base al test sul controllo della form, ovvero una roba del
tipo:
If forms!NomeMaschera!DataImputata>effort.inizio then
effort_calcolato=forms!NomeMaschera!DataImputata
else
effort_calcolato=effort.inizio
end if
per questo ho usato la funzione IIF
Spero di avere chiarito meglio
grazie ancora



text:
Ritch ha scritto:
> Carlo Costarella ha scritto:

> > Ciao, Carlo




> end if

penso di avere risolto: la IIf non devo metterla tra i criteri ma come
origine del campo calcolato :-((



text:
"Ritch" <
ri...@gmail.com
> ha scritto nel messaggio
news:ill3gb$3kg$1...@news.newsland.it...
> Ritch ha scritto:
cut
>
> penso di avere risolto: la IIf non devo metterla tra i criteri ma come
> origine del campo calcolato :-((
>
Anche ma, come ti dicevo la funzione č molto meglio.
Ciao, Carlo


title: dbs = nothing ?

author: Expo

text:
Esiste una funzione per vedere se una variabile database è settata a nothing
?
Premetto che IsNull() e IsEmpty() non fungono


title: dbs = nothing ?

author: Karl Donaubauer

text:
Expo <
esp...@snet.it
> ha scritto:
> Esiste una funzione per vedere se una variabile database è settata a
nothing?
> Premetto che IsNull() e IsEmpty() non fungono
Non esiste una funzione ma puoi usare:
If db Is Nothing Then...
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: dbs = nothing ?

author: Sergio MAZZA

text:
"Expo" <
esp...@snet.it
> ha scritto nel messaggio
news:98lsag$ssb$1...@fe2.cs.interbusiness.it...

Hai provato con isObject?
Ciao.


title: Emyr: saluto di parziale commiato

author: Emyr

text:
Un saluto a tutti da parte di Emyr;
come avrete notato ultimamente la mia presenza sul sito si è
rarefatta, purtroppo gli impegni di lavoro in aumento mi costringono a
lasciare la partecipazione continua al NG (farò solo qualche capatina
a leggere ogni tanto)
Tale saluto è determinato anche dalla scelta di abbandonare lentamente
il mondo Windows  per quanto possibile; anche alla luce
dell'annunciato abbandono di access in favore di sql server dal parte
della microsoft stessa e della sua intenzione di affittare
progressivamente il software che produce.
Questo mi costringe quindi ad una migrazione che mi porterà (spero) in
un paio di anni a Linux, PHP, Java2, Kylix e mysql (c'è molto da
leggere lo ammetto!).
Tutto questo naturalmente condizionato dalle scelte che riuscirò a
imporre ai miei clienti.
Un saluto a tutti quelli che ho letto (specialmente i soliti capisaldi
del NG)
Emyr.
P.s.
se riuscite a fare un raduno al nord mandatemi una mail che cerco di
venire (
fan...@tiscali.it
).
Saluti.
Emanuele.
Saluti.
Emanuele.


title: Emyr: saluto di parziale commiato

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:fvb6dvgto1oou01us...@4ax.com...

Ciao ed auguri.
Sicuramente mancherai al NG, come tra l'altro sei mancato in questi ultimi
tempi.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Emyr: saluto di parziale commiato

author: Riccardo M.

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:fvb6dvgto1oou01us...@4ax.com...

______________
un saluto pure da parte mia, anche se è troppo che sono assente su questo
NG.
ci vorrebbero le giornate di 48-72 ore per riuscire  a fare tutto quello che
si vuole
:-)
ciao
Riccardo


title: Emyr: saluto di parziale commiato

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:fvb6dvgto1oou01us...@4ax.com...

Se non ci sentiamo più (spero vivamente il contrario), è stato un piacere
conoscerti e magari al raduno ci si incontra...
Auguroni!
--
Sergio MAZZA


title: Emyr: saluto di parziale commiato

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:fvb6dvgto1oou01us...@4ax.com...

Ciao Emanuele, è un peccato perdere una BUONA spalla.........!!!
Speriamo che ogni tanto un pò di tempo per farci un SALUTO
tu lo riesca a trovare.
P.S. credo che questo sia il POST più prolisso che tu abbia mai inviato
al NG, sarebbe da incorniciare.
@Alex.


title: Emyr: saluto di parziale commiato

author: Massimiliano Bertoglio

text:
"Emyr" <
> Tale saluto è determinato anche dalla scelta di abbandonare lentamente
> il mondo Windows  per quanto possibile; anche alla luce
> dell'annunciato abbandono di access in favore di sql server dal parte
> della microsoft stessa
E ... dove hai letto questo annuncio?
Forse sulla brochure pubblicitaria di Office 11?
Ciao  ;-)


title: Emyr: saluto di parziale commiato

author: Alberto S.

text:
On Tue, 27 May 2003 11:29:30 +0200, Emyr <
fan...@tiscali.it
> wrote:
>Un saluto a tutti da parte di Emyr;
>come avrete notato ultimamente la mia presenza sul sito si è
>rarefatta, purtroppo gli impegni di lavoro in aumento mi costringono a
>lasciare la partecipazione continua al NG (farò solo qualche capatina
>a leggere ogni tanto)
Ciao, auguri!
--
Alberto
No alle guerre


title: Emyr: saluto di parziale commiato

author: fidirico

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:fvb6dvgto1oou01us...@4ax.com...
> Un saluto a tutti da parte di Emyr;
> come avrete notato ultimamente la mia presenza sul sito si è
> rarefatta, purtroppo gli impegni di lavoro in aumento mi costringono a
> lasciare la partecipazione continua al NG (farò solo qualche capatina
> a leggere ogni tanto)
> Tale saluto è determinato anche dalla scelta di abbandonare lentamente
> il mondo Windows  per quanto possibile; anche alla luce
> dell'annunciato abbandono di access in favore di sql server dal parte
> della microsoft stessa e della sua intenzione di affittare
> progressivamente il software che produce.
> Questo mi costringe quindi ad una migrazione che mi porterà (spero) in
> un paio di anni a Linux, PHP, Java2, Kylix e mysql (c'è molto da
> leggere lo ammetto!).
> Tutto questo naturalmente condizionato dalle scelte che riuscirò a
> imporre ai miei clienti.
> Un saluto a tutti quelli che ho letto (specialmente i soliti capisaldi
> del NG)
>
> Emyr.
>
Ciao, ad majora!
Galliano


title: Emyr: saluto di parziale commiato

text:

Ci mancherà la tua prolissità...
no, sul serio, mi dispiace molto
Fai grandi cose
MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Emyr: saluto di parziale commiato

author: All Eyez On me

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:fvb6dvgto1oou01us...@4ax.com...

IN bocca al lupo, ma mi puoi postare il link dove hai letto che la microsoft
abbandona access?
Ciao, AEOM


title: Emyr: saluto di parziale commiato

text:
On Tue, 27 May 2003 18:01:55 GMT, "Massimiliano Bertoglio"
<
maxber...@libero.it
> wrote:
>
>"Emyr" <
>
>> Tale saluto č determinato anche dalla scelta di abbandonare lentamente

informazione da confermare ricevuta da sviluppatori della datalog che
stanno passando da access a sql server, piů articoli vari in giro
niente di sicuro comunque
Saluti.
Emanuele.


title: Emyr: saluto di parziale commiato

text:
grazie, a tutti, non mancherò di leggervi ogni tanto (anche perchè
comunque continuerò a usare access), per il raduno fatemi sapere!
Saluti.
Emanuele.


title: Emyr: saluto di parziale commiato

text:
"Emyr" <
> informazione da confermare ricevuta da sviluppatori della datalog che
> stanno passando da access a sql server, più articoli vari in giro
> niente di sicuro comunque
Ma il passaggio da JET a SQL-Server è fortemente consigliato da anni ...
altra cosa è l'ambiente FE di Access.
Comunque fai un giro da queste parti ogni tanto  ;-)
Ciao!


title: Emyr: saluto di parziale commiato

author: Sib

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
> Un saluto a tutti da parte di Emyr;
> come avrete notato ultimamente la mia presenza sul sito si è
> rarefatta, purtroppo gli impegni di lavoro in aumento mi costringono a
> lasciare la partecipazione continua al NG (farò solo qualche capatina
> a leggere ogni tanto)
Allora... buon lavoro.
> Tale saluto è determinato anche dalla scelta di abbandonare lentamente
> il mondo Windows  per quanto possibile; anche alla luce
> dell'annunciato abbandono di access in favore di sql server dal parte
> della microsoft stessa e della sua intenzione di affittare
cut
questa e' una tendenza che si era gia' vista con A2000 che introduce msde
(che di fatto e' sql server) e la compatibilita' in modalita' nativa.
ora, a parte che e' una scelta che condivido, non e' esatto dire che si
abbandona access, semmai si abbandona il jet.
Da qualche mese iniziato a lavorare intensamente con A2000/XP e MSDE/SQL
Server e devo dire che le differenze con il lavorare con jet, una volta
compresi i differenti metodi, sono tutti positivi.
anche ado, una volta iniziato a lavorarci, mi sembra molto semplice da
sfruttare, con tutti i vantaggio di una struttura realmente client/server.
Insomma, access allo stato attuale mi sembra sempre senza confronti,
soprattutto ora che interagisce pienamente con un motore database potente
come SQL Server.
Ciao e buona fortuna.
Sib


title: Emyr: saluto di parziale commiato

text:
On Thu, 29 May 2003 07:43:37 GMT, "Sib" <si...@SPAMiol.it> wrote:
>
>questa e' una tendenza che si era gia' vista con A2000 che introduce msde
>(che di fatto e' sql server) e la compatibilita' in modalita' nativa.
>ora, a parte che e' una scelta che condivido, non e' esatto dire che si
>abbandona access, semmai si abbandona il jet.
>Da qualche mese iniziato a lavorare intensamente con A2000/XP e MSDE/SQL
>Server e devo dire che le differenze con il lavorare con jet, una volta
>compresi i differenti metodi, sono tutti positivi.
>anche ado, una volta iniziato a lavorarci, mi sembra molto semplice da
>sfruttare, con tutti i vantaggio di una struttura realmente client/server.
>Insomma, access allo stato attuale mi sembra sempre senza confronti,
>soprattutto ora che interagisce pienamente con un motore database potente
>come SQL Server.
>
>Ciao e buona fortuna.
>
>Sib
ciň che mi spaventa sono i costi......da imputare al cliente
... e forse la voglia di cambiare....
grazie
Saluti.
Emanuele.


title: Emyr: saluto di parziale commiato

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
> On Thu, 29 May 2003 07:43:37 GMT, "Sib" <si...@SPAMiol.it> wrote:
cut
> ciò che mi spaventa sono i costi......da imputare al cliente
sql server costa meno di 1000 euro da installarsi su una buona macchina Win
2000 server per un totale di 3000 euro circa.
se consideri che l'AS400 piu' piccolo costa 15000 euro (solo l'hw escluso
sw) ci si puo' fare un'idea delle proporzioni.
> ... e forse la voglia di cambiare....
questo lo condivido, anche per mantenere il senso critico. Anch'io mi sono
avvicinato ad altre piattaforme (deludenti devo dire)
> grazie
>
> Saluti.
> Emanuele.
Ciao
Sib


title: conversione MDB - DB3

author: gestserv

text:
ho riscontrato che importanto un file dbf in access e poi esportandolo
nuovamente in dbf i campi numerici vengono modifcati con un valore di 5
decimali; mi spiego se ho un campo numerico di lunghezza 2 caratteri (es.15)
la riconversione me lo restituisce come 15,00000 appesantendo non poco
l'archivio dbf. E' possibile evitare tale evento lasciando il campo della
lunghezza che é originariamente?
Grazie


title: conversione MDB - DB3

author: pietro

text:
"gestserv" <
gest...@uno.it
> ha scritto nel messaggio
news:8psivl$s6n$2...@fe2.cs.interbusiness.it...

Si occorre allegare il file dbf originale
svuoltarlo con una query di eliminazione
e poi di nuovo riempirlo con una query di accodamento
in questo modo la struttura rimane la stessa
ciao


title: conversione MDB - DB3

text:
>
> Si occorre allegare il file dbf originale
> svuoltarlo con una query di eliminazione
> e poi di nuovo riempirlo con una query di accodamento
> in questo modo la struttura rimane la stessa
> ciao
>
non posso svuotare il dbf perché devo modificare i dati contenuti e poi
riconvertirli in dbf. Se hai altre idee...


title: conversione MDB - DB3

text:
"gestserv" <
gest...@uno.it
> ha scritto nel messaggio
news:8pvhlb$cok$1...@fe2.cs.interbusiness.it...

Scusa ma non ho capito ......
e' la stessa identica cosa........
1) importi il dbf e ci lavori come vuoi
2) alleghi (non importi) il dbf originale
3) lo svuoti
4) gli inserisci i dati nuovi
se invece devi aggiungere o togliere delle colonne allora devi utilizzare i
programmi dbase tipo visual dbase oppure db3


title: Filtro

author: AMR-Giuseppe

text:
Ciao a tutti
ho questo problema ,
la routine qui sotto per filtrare tutti i record il
cui campo "nome" corrisponde al valore SCARABEO-50 DITECH
 DoCmd.ApplyFilter "", "[nome]=""SCARABEO-50 DITECH"""
 DoCmd.GoToControl "CasellaCombinata46"
 CasellaCombinata46.Requery
devo riuscire a fare la stessa cosa  con un campo "CodiceProdotto"
il cui valore numerico inizia per 87 e  cioč  tutti  i codici  compresi tra
8700000 e 8799999,
io ho provato con
DoCmd.ApplyFilter "", "[CodiceProdotto]=""87*****"""
ma non funziona ,
mi sapete dire come fare
Grazie anticipato
Ciao Giuseppe


title: Filtro

author: Lu

text:
Prova con
DoCmd.ApplyFilter "", "[CodiceProdotto] like '87*'"
Ciao
Lu
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:uyFia.47192$Jg1.1...@news1.tin.it...
> Ciao a tutti
>
> ho questo problema ,
> la routine qui sotto per filtrare tutti i record il
> cui campo "nome" corrisponde al valore SCARABEO-50 DITECH
>
>
>  DoCmd.ApplyFilter "", "[nome]=""SCARABEO-50 DITECH"""
>  DoCmd.GoToControl "CasellaCombinata46"
>
>  CasellaCombinata46.Requery
>
> devo riuscire a fare la stessa cosa  con un campo "CodiceProdotto"
> il cui valore numerico inizia per 87 e  cioè  tutti  i codici  compresi



title: Filtro

text:
Funziona
Grazie
Ciao Giuseppe
"Lu" <
bar...@tin.it
> ha scritto nel messaggio
news:LFFia.64146$i26.1...@news2.tin.it...



title: Filtro

author: omnitow

text:
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:zLFia.47261$Jg1.1...@news1.tin.it...

in questo modo però il filtro ti restituirà tutti i record che inziano per
87, quindi oltre all'intervallo 8700000 e 8799999, anche 872, 87823 ..., per
ottenere quello che hai chiesto nel tuo primo post prova così:
DoCmd.ApplyFilter "", "[CodiceProdotto]= Like '87[0-9][0-9][0-9][0-9][0-9]'"
Ciao, omnitow


title: Filtro

author: Roberto da casa

text:
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:uyFia.47192$Jg1.1...@news1.tin.it...
> Ciao a tutti
>
> ho questo problema ,
> la routine qui sotto per filtrare tutti i record il
> cui campo "nome" corrisponde al valore SCARABEO-50 DITECH
>
>
>  DoCmd.ApplyFilter "", "[nome]=""SCARABEO-50 DITECH"""
>  DoCmd.GoToControl "CasellaCombinata46"
>
>  CasellaCombinata46.Requery
>
> devo riuscire a fare la stessa cosa  con un campo "CodiceProdotto"
> il cui valore numerico inizia per 87 e  cioè  tutti  i codici  compresi
tra
> 8700000 e 8799999,
>
> io ho provato con
> DoCmd.ApplyFilter "", "[CodiceProdotto]=""87*****"""
>
> ma non funziona ,
> mi sapete dire come fare
>
> Grazie anticipato
>
> Ciao Giuseppe
Prova così:
DoCmd.ApplyFilter "", "[CodiceProdotto] like '87?????'"
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Parametri

author: solaria

text:
Vorrei sapere come poter abbinare alla finestra di un parametro una casella
combinata, in modo da poter avere un inserimento guidato del parametro
stesso


title: Parametri

author: SunRex

text:
"solaria" <
MAKK...@libero.it
> ha scritto nel messaggio
news:yHExe.33286$D7.9...@twister1.libero.it...

Ciao Solaria, potresti spiegare meglio cosa devi fare?
Che intendi per finestra di un parametro?
SunRex