title: Connessioni odbc

author: bibop

text:
Salve,
    sto tendando di connettere dei file di as400, tramite odbc, ad access.
Quanndo da access faccio una connessione odbc ad una libreria di
personalizzazione, dove risiede il programma e i dati del magazzino, va
tutto bene, nel momento in cui faccio una connessione, con gli stessi
parametri della precedente ad una libreria acg per prelevare i clienti
ricevo un messaggio di "Chiamata non riuscita" Il tempo stimato di
elaborazione query 76 supera il limite 60.
C'è qualcuno che potrebbe aiutarmi?
Grazie
Bibop


title: stampa diretta reportcon scelta stampante

author: Butta

text:
Ho usato il codice trovato sul sito comune per poter stampare direttamente
un report, ma con la possibilità di decidere su che stampante:
On Error GoTo No_Stampa
DoCmd.SelectObject acReport, "MioReport", True
DoCmd.RunCommand acCmdPrint
DoCmd.SelectObject acForm, Me.Name, False
Exit_Stampa:
    Exit Sub
No_Stampa:
    If Err.Number = 2501 Then
        MsgBox "Stampa annullata dall'utente", vbInformation, "Stampa
MioReport"
        DoCmd.SelectObject acForm, Me.Name, False
    Else
        MsgBox Err.Number & " " & Err.Description
    End If
    Resume Exit_Stampa
...l'unica cosa che non mi va bene è che si apre e rimane aperta la finestra
"del database" quella dove ho tutte le maschere, i report, ecc.. anche se
l'ho disattivata per l'apertura da parte di un utente, in modo che non posso
incasinare qualche cosa.
Cosa bisogna cambiare nel codice perchè non si visualizzi questa finestra?
Grazie in anticipo.
Butta


author: Roberto da casa

text:
"Butta" <
bu...@allegracompagnia.com
> ha scritto nel messaggio
news:wGNsf.291$6e2...@news.edisontel.com...

Prova a modificarlo così:
On Error GoTo No_Stampa
DoCmd.OpenReport "MioReport", acViewPreview
DoCmd.SelectObject acReport, "MioReport", False
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, "MioReport"
DoCmd.SelectObject acForm, Me.name, False
Exit_Stampa:
    Exit Sub
No_Stampa:
    If err.Number = 2501 Then
        MsgBox "Stampa annullata dall'utente", vbInformation, _
            "Stampa MioReport"
        DoCmd.SelectObject acForm, Me.name, False
    Else
        MsgBox err.Number & " " & err.Description
    End If
    Resume Exit_Stampa
Ti ricordo comunque che una qualsiasi persona può aprire in un qualsiasi
momento la finestra del database pigiando semplicemente il tsto funzione
F11, quindi non è che tu ti sia cautelato poi tanto da possibili smanettoni.
;-)
>
> Grazie in anticipo.
Prego
> Butta
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: invertire  dati di 2 campi in base ad una data

author: thanos

text:
Salve a tutti,
io avrei questo problema :
ho la Tabella  "Licenza" con vari campi fra cui:
*Licenza Anno In corso           - numerico
*Licenza Anno Precedente       -numerico
Faccio un esempio :
Io nel 2006 avevo diritto a 30 giorni di ferie. Se al 31.12.2006  non
l'avessi fruita tutta,  la potrei "portare" sino al 30 giugno dell'anno
successivo
Dal 1 gennaio 2007 perciò la Licenza Anno in Corso diventa Licenza Anno
Precedente (sino al 30.06) e dal 01.07.torna ad essere la Lic Anno in Corso.
Come faccio ad impostare i calcoli su di un  query/report per far capire in
ogni momento dell'anno quanta licenza ho fatto e di che tipo?
Grazie


author: Sergio MAZZA

text:
"thanos" <
tha...@libero.it
> ha scritto nel messaggio news:Ir9rh.111349$uv5.1...@twister1.libero.it...

Secondo me ti manca un campo; quello che indica la differenza delle licenze non godute dell'anno precedente e che verrà
aggiunta/riportata nell'anno in corso...
Ciao.
--
Sergio MAZZA


title: pagina Web

author: D

text:
Salve,qualcuno mi sà indicare come risolvere questo problema,sono MESI che
ci provo senza riuscire.
Ho creato un DB ed una Maschera relativa per l'accesso ai dati, ho creato
una pagina WEB per visionare il DB (residente sul servere) anche da latri pc
satelliti.
Il problema che il tutto l'ho creato a casa e quando lo sposto chiaramente
le stringhe di collegamento non funzionano.
Come faccio una volta trasportato il progetto dal mio pc al server a
modificare la stringa dov'è?
grazie a tutti
Davide
dsmb...@alice.it


title: pagina Web

text:
"D" <
dsmb...@alice.it
> ha scritto nel messaggio news:43dbc162$0$4173$4faf...@reader3.news.tin.it...

E creare a casa la stessa condizione che trovi in ufficio?
Ciao.
--
Sergio MAZZA


title: pagina Web

text:
Come in che modo posso fare?
in ufficio ho un server + 3 pc satellite
1 collegato tramite router al servere gli altri due sepre tramite router via
radio (sono 2 portatili x ora)
forse dici di creare sul mio pc di casa cartelle e sottocartelle con lo
stesso nome e stessa disposizione????
Ciao
Grazie


title: pagina Web

text:
"D" <
dsmb...@alice.it
> ha scritto nel messaggio
news:43dfe5f6$0$27307$4faf...@reader2.news.tin.it...

Per quanto sia possibile, sě...
Ciao.
--
Sergio MAZZA


title: freeze access su apertura form

author: acMad

text:
mi sta accadendo una cosa stranissima...
fin'ora non ho avuto prob, ho fatto alcune modifiche che non hanno nulla a
che fare con la form sul quale c'e' il problema...
cerco di descrivere il problema il piu' chiaramente possibile..
ho una form, dal quale con la pressione di un pulsante apro un'altra form
eseguendo alcune operazioni... ebbene quando premo questo pulsante, mi si
freeza (blocca) access.. non va in crash, non consuma piu' memoria del
solito.. semplicemente si freeza e ogni volta che tento di cliccare
ovunque mi fa un bel beeeeeeeeeeeeeep....
ho provato ad eseguire il debug quando premo il pulsante.. e fa tutte le
operazioni senza bloccarsi e senza generare errori.. cosi' come apre
l'altra form e va sull'evento onOpen dove esegue altre operazioni.. alla
fine della sub.. si freeza tutto...
qualche idea???
la cosa strana e' che non crasha... se apro task manager non mi risulta
l'applicazione come "Non risponde"... ma "runna" normalmente..
scusate la lungaggine.. spero che qualcuno possa darmi un'idea..
grazie
acMad
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: freeze access su apertura form

author: Pablitomf (Maurizio Facciuti)

text:
[CUT]
> scusate la lungaggine.. spero che qualcuno possa darmi un'idea..
Prima di entrare nel merito del "cosa fa il codice", hai provato a crearti
un nuovo DB, ad importarti tutto dal vecchio e vedere se risolvi?
--
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."


title: freeze access su apertura form

text:
Pablitomf (Maurizio Facciuti) ha scritto:
> [CUT]
> > scusate la lungaggine.. spero che qualcuno possa darmi un'idea..
> Prima di entrare nel merito del "cosa fa il codice", hai provato a crearti
> un nuovo DB, ad importarti tutto dal vecchio e vedere se risolvi?
il codice fa esattamente cio' che faceva prima quando funzionava...
non e' cambiata una sola virgola...
..adesso provo a creare un nuovo db ed importare tutto...
spero di non trovare troppi casini... visto che e' abbastanza grosso
e lavora su SQL-Exp come backend...
cos'e' che possa far causare quel tipo di errore???
solo su una form... tutto il resto funziona... hmmm
quando escono fuori questi errori... odio l'informatica... :(
grazie



title: freeze access su apertura form

author: VedoTondo

text:
"acMad" <ac...@acMad.it> ha scritto nel messaggio
news:enj1lu$efl$1...@news.newsland.it...
> Pablitomf (Maurizio Facciuti) ha scritto:
> cos'e' che possa far causare quel tipo di errore???
> solo su una form... tutto il resto funziona... hmmm
A me una problematica del genere la creava un immagine collegata, ho fatto
alcune modifiche alle proprietà e tutto si è risolto.
--
Saluti Andrea
Access 2003 - Windows XP


title: aiuto duplicati

author: unknown

text:
ciao a tutti :)
ho una tabella strutturata in questo modo:
descrizione       quantità        valore
pippo                     1                3
pluto                      3                4
paperino                 2                6
pluto                      3                4
paperino                 5                5
pippo                     4                3
come posso fare per ottenere:
pippo                     5                6
pluto                      6                8
paperino                 7                11


title: aiuto duplicati

author: Sib

text:
"unknown" <
vito....@tin.it
> ha scritto nel messaggio

Si chiama query di raggruppamento e puoi realizzarla perfino con
l'autocomposizione.
Sib


title: [OT] software per NewsGroup

author: Sandrobi

text:
Fino ad oggi frequentavo i NG tramite OutlookExpress con Libero e mi trovavo molto bene.
Installando Alice adsl devo connettermi ai NG tramite
news.tin.it
 che è molto più lento e alcuni NG non sono disponibili (non capisco perché).
Mi sapete indicare qualche alternativa che funzioni come con O.E. dove ad esempio posso personalizzare l'elenco dei NG preferiti, avere in testa i miei 3d, ecc.
Ho provato Usenet e Newsland ma ci faccio una confusione tremenda...
--
Ciao, Sandrobi
"De quo nihil dici potest, id tacendum est" (L. Wittgenstein, "Tractatus logico-philosophicus")


title: [OT] software per NewsGroup

author: ciroteo

text:
"Sandrobi" <
sandb...@libero.it
> ha scritto nel messaggio
news:hIbJe.38750$2U1.2...@news3.tin.it...

--
Ciao, Sandrobi

una volta andava bene il server
aioe.org
 ... o .com ... se cerchi nei vecchi
post era stato consigliato da TheMax
sembrava funzionare bene e lo potevi utilizzare con O.E.


title: [OT] software per NewsGroup

author: Alessandro Baraldi

text:
"ciroteo" <ciroteo(nospam)@
libero.it
> wrote in message
news:4ojJe.7994$
F23....@twister2.libero.it
[CUT]
> una volta andava bene il server
aioe.org
 ... o .com ... se cerchi nei vecchi
> post era stato consigliato da TheMax
> sembrava funzionare bene e lo potevi utilizzare con O.E.
Da me non funziona già da qualche settimana...!
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: [OT] software per NewsGroup

author: TheMax

text:
"Alessandro Baraldi" <
ik2...@libero.it
> wrote in message
news:36565fe6b234a4cf96...@mygate.mailgate.org...
> "ciroteo" <ciroteo(nospam)@
libero.it
> wrote in message
> news:4ojJe.7994$
F23....@twister2.libero.it
>
> [CUT]
>> una volta andava bene il server
aioe.org
 ... o .com ... se cerchi nei
>> vecchi
>> post era stato consigliato da TheMax
>> sembrava funzionare bene e lo potevi utilizzare con O.E.
>
>
> Da me non funziona già da qualche settimana...!
Confermo, purtroppo non va neanche da me :-(
> @Alex
Ciao,
Massimo


title: [OT] software per NewsGroup

text:
"TheMax" <
massimo...@accessgroup.it
> ha scritto nel messaggio
news:dd4k9a$8gl$1...@carabinieri.cs.interbusiness.it...

effettivamente i messaggi sono fermi al primo di agosto.


title: [OT] software per NewsGroup

text:
"ciroteo" <
ciroteo_c...@libero.it
> ha scritto nel messaggio news:dd7131$dn$1...@hulme.interac.it...



title: [OT] software per NewsGroup

text:
> >> [CUT]
> >>> una volta andava bene il server
aioe.org
 ... o .com ... se cerchi nei
> >>> vecchi
> >>> post era stato consigliato da TheMax
> >>> sembrava funzionare bene e lo potevi utilizzare con O.E.
> >>
> >>
> >> Da me non funziona già da qualche settimana...!
> >
> > Confermo, purtroppo non va neanche da me :-(
> >
> >> @Alex
> >
> > Ciao,
> > Massimo
> >
>
> effettivamente i messaggi sono fermi al primo di agosto.
>
Ma cosa è questo aoie? Come lo trovo?
Sandrobi


title: [OT] software per NewsGroup

text:
"Sandrobi" <
sandb...@libero.it
> ha scritto nel messaggio news:AIEJe.40755$2U1.2...@news3.tin.it...
>
Ma cosa è questo aoie? Come lo trovo?
Sandrobi
[risposta]
E' un news server: aioe =
news.aioe.org
 =
www.aioe.org
;
e confermo che è fermo da un bel po'...
Ciao.
--
Sergio MAZZA


title: [OT] software per NewsGroup

text:
"Sandrobi" <
sandb...@libero.it
> ha scritto nel messaggio news:hIbJe.38750$2U1.2...@news3.tin.it...

--
Ciao, Sandrobi

[risposta]
Provate con questo newsserver, bisogna prima registrarsi al sito
http://diesel.cu.mi.it.
..
Ciao.
--
Sergio MAZZA


title: [OT] software per NewsGroup

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> wrote in message
news:dd7747$l5j$1...@canarie.caspur.it...
> "Sandrobi" <
sandb...@libero.it
> ha scritto nel messaggio
> news:AIEJe.40755$2U1.2...@news3.tin.it...
>>
>
> e confermo che è fermo da un bel po'...
Mo, è tornato a funzionare
> Ciao.
> --
> Sergio MAZZA
Ciao,
Massimo


title: [OT] software per NewsGroup

text:
"TheMax" <
massimo...@accessgroup.it
> ha scritto nel messaggio news:ddchkl$4sh$1...@domitilla.aioe.org...
>
>
> Mo, è tornato a funzionare
>
> Ciao,
> Massimo
'Gnò vero! I messaggi sono ancora fermi al 2 agosto...
Comunque l'altro che ho segnalato è velocissimo e aggiornato...
Ciao.
--
Sergio MAZZA


title: [OT] software per NewsGroup

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio news:ddcjkn$hsr$1...@area.cu.mi.it...

aioe.org
 mi pare vada bene.
Unico problema  mi pare che visualizzi solo i messaggi dell'ultima settimana!
Sandrobi


title: Formato dei numeri

author: daniele

text:
Un saluto a tutti
Qual'è la funzione che trasforma 0,95 in 0.95 ?
Grazie per l'aiuto e ciao a tutti.
Daniele


title: Formato dei numeri

text:
"daniele" <
lin...@netbusiness.it
> ha scritto nel messaggio
news:10rl99k$8vu$1...@fe2.cs.interbusiness.it...

Io ho cambiato le "impostazioni internazionali"...
Ciao.


title: Duplicare recordset

text:
Salve a tutti !
Avrei bisogno di creare una query che mi duplica un recordset già
aperto in tutti i suoi campi tranne uno.
Questo è un campo contatore, e dovrei riuscire a farlio assegnare dal
database.
Praticamente devo riuscire con una query a fare quello che manualmente
sarebbe un "copia-incolla" di una riga di dati in access.
Grazie a chiunque possa essermi di aiuto !
Ciao !


title: Duplicare recordset

author: Antonio Biso

text:
"LsK_Lele" <
ebro...@libero.it
> ha scritto nel messaggio
news:9333745c.0307...@posting.google.com...
> Salve a tutti !
> Avrei bisogno di creare una query che mi duplica un recordset gią
> aperto in tutti i suoi campi tranne uno.
> Questo č un campo contatore, e dovrei riuscire a farlio assegnare dal
> database.
> Praticamente devo riuscire con una query a fare quello che manualmente
> sarebbe un "copia-incolla" di una riga di dati in access.
Dai la TUA definizione di recordset aperto.
Io interpreto che sei in vba e stai usando una variabile di tipo recordset,
ma sono sicuro che non č questa la tua situazione, che invece dovresti
illustrare meglio!!!
Antonio


title: Duplicare recordset

text:
> Dai la TUA definizione di recordset aperto.
Penso che "recordset aperto" significhi principalmente ciň che deriva
dall'istruzione rst.Open ....
Comunque intendevo dire un recordset aperto filtrando i dati in una tabella
in modo da ottenere solo i risultati desiderati
    ID    CAMPO1    CAMPO2    CAMPO3    ...
    1             5                   7                4
    2             6                   5                3
    3             5                   6                2
RS =  1-5-7-4
          3-5-6-2
devo poter salvare gli stessi dati nella stessa tabella con l'ID (Campo
contatore univoco) differente, quindi assegnato dal DB
> Io interpreto che sei in vba
Chiedo scusa, sto lavorando in ASP.
> Antonio
Lele


title: Duplicare recordset

author: George

text:
"LsK_Lele" <lel...@hotmailNOSPAM.com> ha scritto nel messaggio
news:jCRMa.12666$HU3.4...@news2.tin.it...
> > Dai la TUA definizione di recordset aperto.
>
> Penso che "recordset aperto" significhi principalmente ciò che deriva
> dall'istruzione rst.Open ....
> Comunque intendevo dire un recordset aperto filtrando i dati in una
tabella
> in modo da ottenere solo i risultati desiderati
>
>     ID    CAMPO1    CAMPO2    CAMPO3    ...
>     1             5                   7                4
>     2             6                   5                3
>     3             5                   6                2
>
> RS =  1-5-7-4
>           3-5-6-2
>
> devo poter salvare gli stessi dati nella stessa tabella con l'ID (Campo
> contatore univoco) differente, quindi assegnato dal DB
>
> > Io interpreto che sei in vba
>
> Chiedo scusa, sto lavorando in ASP.
>
>
> > Antonio
>
> Lele
Usa una query di accodamento per tutti i campi escluso il contatore.
George


title: Duplicare recordset

text:
> Usa una query di accodamento per tutti i campi escluso il contatore.
> George
Sinceramente non so come copiare tutto tranne l'id nella query di
accodamento ....


title: Duplicare recordset

author: MA

text:
"LsK_Lele" <lel...@hotmailNOSPAM.com> ha scritto nel messaggio
news:8ORMa.12740$HU3.4...@news2.tin.it...

Ti crei una query e vai in struttura e lě togli il campo id
MAssimiliano


title: visualizzazione decimali

author: Antonio Bechelli

text:
Ciao a tutti,
sono alle prese con una casella di riepilogo non associata che prende i
dati da una stringa SQL generata via codice. La stringa dovrebbe passare
anche i dati del campo prezzo di una tabella, già convertito in euro e
con la proprietà formato impostata a euro e la proprietà posizioni
decimali a 2.
Sorpresa, nella casella di riepilogo non vengono visualizzati i
centesimi. Ad es. se il prezzo è di euro 54,10 vedo solo 54.
Qualcuno sa come formattare correttamente nella stringa SQL il campo
prezzo per ottenere in visualizzazione anche i decimali. Ho provato ad
usare la funzione Format([Prezzo];"#,##"), ma ottengo strani
risultati....
ciao e grazie
Antonio Bechelli
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: visualizzazione decimali

author: Riccardo

text:
Antonio Bechelli <
antonio....@comune.milano.it
> wrote in message
892bb392541bf79d22c...@mygate.mailgate.org...

#######################################
Format([Prezzo];"#,##0.00")
ciao Riccardo


title: visualizzazione decimali

text:
"Riccardo" <
ricc...@free.panservice.it
> wrote in message
news:a3omov$3nj$1...@news.panservice.it...
> > Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
> #######################################
> Format([Prezzo];"#,##0.00")
>
> ciao Riccardo
Ho provato la tua soluzione, in questo modo:
strSQL= "SELECT ... Format([Prezzo];"#,##0.00") AS Prezzo Netto ..."
ma ottengo un errore di sintassi.
A rigore, la formattazione del campo in questione nella stringa SQL
dovrebbe
 essere inutile, poiché il campo della tabella č gią stato impostato
all'euro con due decimali.
E tuttavia in fase visualizzazione del dato nella casella riepilogo non
vedo i decimali.
Come mai?
ciao antonio



title: visualizzazione decimali

text:
Antonio Bechelli <
antonio....@comune.milano.it
> wrote in message
62583a71a4a117ce905...@mygate.mailgate.org...

se usi il Format in un modulo dovresti scrivere:
strSQL= "SELECT ... Format([Prezzo],"#,##0.00") AS Prezzo Netto ..."
praticamente devi usare la , (virgola) e non il ; (punto e virgola)
ciao Riccardo


title: visualizzazione decimali

text:
"Riccardo" <
ricc...@free.panservice.it
> wrote in message
news:a3qtfo$ni9$1...@news.panservice.it...
> se usi il Format in un modulo dovresti scrivere:
> strSQL= "SELECT ... Format([Prezzo],"#,##0.00") AS Prezzo Netto ..."
>
> praticamente devi usare la , (virgola) e non il ; (punto e virgola)
>
> ciao Riccardo
ho provato anche questa soluzione e ... niente da fare!!
Ottengo sempre un errore di sintassi.
Mi devo rassegnare??
ciao antonio
--



title: visualizzazione decimali

text:
Antonio Bechelli <
antonio....@comune.milano.it
> wrote in message
62583a71a4a117ce905...@mygate.mailgate.org...
> "Riccardo" <
ricc...@free.panservice.it
> wrote in message
> news:a3omov$3nj$1...@news.panservice.it...
>
> > > Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
> > #######################################
> > Format([Prezzo];"#,##0.00")
> >
> > ciao Riccardo
>
> Ho provato la tua soluzione, in questo modo:
>
> strSQL= "SELECT ... Format([Prezzo];"#,##0.00") AS Prezzo Netto ..."
>
> ma ottengo un errore di sintassi.
>
> A rigore, la formattazione del campo in questione nella stringa SQL
> dovrebbe
>  essere inutile, poiché il campo della tabella è già stato impostato
> all'euro con due decimali.
> E tuttavia in fase visualizzazione del dato nella casella riepilogo non
> vedo i decimali.
> Come mai?
>
> ciao antonio
_________________
Prova così:
Nell'origine Riga della casella di Riepilogo (quindi la query) prova a
scrivere:
Prezzo Netto: Format([Prezzo];"#.##0,00")
oppure, postami tutta la Select della query di origine Riga.
ciao Riccardo


title: visualizzazione decimali

text:
"Riccardo" <
ricc...@free.panservice.it
> wrote in message
news:a3r25h$ojd$1...@news.panservice.it...
> Prova così:
> Nell'origine Riga della casella di Riepilogo (quindi la query) prova a
> scrivere:
> Prezzo Netto: Format([Prezzo];"#.##0,00")
>
> oppure, postami tutta la Select della query di origine Riga.
>
> ciao Riccardo
Ecco la stringa SQL generata via codice nel modulo della form
che include la casella di riepilogo:
-----------------------------------
strSQL = "SELECT Abbonamenti.IDAbbonamento, Riviste.Titolo,
Riviste.Periodicità ," & _
            "Biblioteche.Nome, Abbonamenti.ScadAbbonamento,
Riviste.PrezzoNetto " & _
            "FROM Biblioteche INNER JOIN ((Editori RIGHT JOIN (Fornitori
RIGHT JOIN Riviste ON Fornitori.IDFornitore = " & _
            "Riviste.IDFornitore) ON Editori.IDEditore =
Riviste.IDEditore) INNER JOIN " & _
            "Abbonamenti ON Riviste.IDRivista = Abbonamenti.IDRivista)
ON " & _
            "Biblioteche.CodiceBiblioteca = Abbonamenti.CodiceBiblioteca
" & _
            "WHERE " & tmpWhere & _
            "ORDER BY Riviste.Titolo, Biblioteche.Nome;"

    Elenco44.RowSource = strSQL
--------------------------------------
grazie
ciao Antonio
--



title: visualizzazione decimali

text:
Antonio Bechelli <
antonio....@comune.milano.it
> wrote in message
8e7a89a4090b92d6abb...@mygate.mailgate.org...

##############
Ma la tua stringa strSQL= "SELECT ... Format([Prezzo];"#,##0.00") AS Prezzo
Netto ..."
dove sta?
ti sei dimenticato un pezzo per caso?
e nella variabile tmpWhere cosa c'è?
se vuoi postami pure il form che hai creato...
ciao Riccardo


title: visualizzazione decimali

text:
"Riccardo" <
ricc...@free.panservice.it
> wrote in message
news:a3rdse$t29$1...@news.panservice.it...
> > --
> ##############
> Ma la tua stringa strSQL= "SELECT ... Format([Prezzo];"#,##0.00") AS Prezzo
> Netto ..."
>
> dove sta?
> ti sei dimenticato un pezzo per caso?
> e nella variabile tmpWhere cosa c'è?
>
> se vuoi postami pure il form che hai creato...
>
> ciao Riccardo
-----
Ecco la routine completa. Nella form sono presenti una serie di caselle
di testo
non associate e altri controlli, che passano i valori alle variabili del
codice.
Private Sub Cerca_Click()
   Dim tmpWhere, strElenco, strSQL As String
   Dim varItem As Variant

   If txtTitolo <> " " Then
      tmpWhere = "Riviste.Titolo LIKE " & Chr(34) _
      & "*" & txtTitolo & "*" & Chr(34) & " " & conLogicTitolo & " "
   End If

   If txtEditore <> " " Then
       tmpWhere = tmpWhere & "Editori.Nome LIKE " & Chr(34) _
       & "*" & txtEditore & "*" & Chr(34) & " " & conLogicEditore & " "
   End If

   If txtFornitore <> " " Then
      tmpWhere = tmpWhere & "Fornitori.Nome LIKE " & Chr(34) _
      & "*" & txtFornitore & "*" & Chr(34) & " " & conLogicFornitore & "
"
   End If

   If txtPeriodicità <> " " Then
      tmpWhere = tmpWhere & "Riviste.Periodicità = '" _
      & txtPeriodicità & "' " & " " & ConLogicPer & " "
   End If

   If CombStraniera <> " " Then
      tmpWhere = tmpWhere & "Riviste.Straniera = '" _
      & CombStraniera & "' "
   End If

   If DataInizio <> " " And DataFine <> " " Then
      tmpWhere = tmpWhere & "Abbonamenti.ScadAbbonamento BETWEEN" & " #"
_
      & DataInizio & "# AND #" & DataFine & "#"
   End If

   strSQL = "SELECT Abbonamenti.IDAbbonamento, Riviste.Titolo,
Riviste.Periodicità ," & _
            "Biblioteche.Nome, Abbonamenti.ScadAbbonamento,
Riviste.PrezzoNetto " & _
            "FROM Biblioteche INNER JOIN ((Editori RIGHT JOIN (Fornitori
RIGHT JOIN Riviste ON Fornitori.IDFornitore = " & _
            "Riviste.IDFornitore) ON Editori.IDEditore =
Riviste.IDEditore) INNER JOIN " & _
            "Abbonamenti ON Riviste.IDRivista = Abbonamenti.IDRivista)
ON " & _
            "Biblioteche.CodiceBiblioteca = Abbonamenti.CodiceBiblioteca
" & _
            "WHERE " & tmpWhere & _
            "ORDER BY Riviste.Titolo, Biblioteche.Nome;"

    Elenco44.RowSource = strSQL
End Sub
-----
Questa routine sub, che non ti ho postato in forma completa solo perchè
 come vedi è molto lunga, mi consente di generare un stringa SQL
dinamica.
La stringa restiuisce un recordset che viene visualizzato in una casella
di riepilogo
non associata, che prende l'origine riga dalla stringa.
grazie
ciao antonio



title: visualizzazione decimali

text:
Antonio Bechelli <
antonio....@comune.milano.it
> wrote in message
5ccfe0722dc2e02f561...@mygate.mailgate.org...

scusami, ma non vorrei averti fatto perdere del tempo. Non sono espertissimo
di vba come altri dell'Ng, pero' posso dirti che quando trovo problemi sulla
creazione
di stringhe SQL dinamiche, mi creo un'interruzione, per esempio proprio su
RowSource della casella di riepilogo, e poi andando in debug digito
?strSQL (invio)
e si visualizza tutta la select. La copio e la incollo nell'SQL di una query
e vedo dov'è l'errore.
spero di esserti stato di aiuto.
ciao Riccardo


title: Macro: OutputSu - formato txt

text:
ACCESS 2000
Salve a tutti.
Ho il seguente problema:
MACRO: Avrei bisogno di un output (esporta...) di una tabella su un file
txt senza intestazione, senza virgole, insomma deve esportare "a
larghezza fissa", cioe' gli spazi deve leggerli dalla lunghezza campi in
tabella.
Ho notato che tra le estensioni fruibili c'e' solo un "MS-DOS Text
(*.txt)".
La domanda e': devo ricorrere a VBA per ottenere quello che voglio?
E se non scoccio troppo, qlc ha gia' un moduletto d'esempio?
Tks per l'attenzione, saluti.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Macro: OutputSu - formato txt

text:
"a_____a" <
a_____a...@wappi.com
> ha scritto nel messaggio
news:b9t2or$pbe$1...@news.newsland.it...
> ACCESS 2000
> Salve a tutti.
> Ho il seguente problema:
> MACRO: Avrei bisogno di un output (esporta...) di una tabella su un file
> txt senza intestazione, senza virgole, insomma deve esportare "a
> larghezza fissa", cioe' gli spazi deve leggerli dalla lunghezza campi in
> tabella.
> Ho notato che tra le estensioni fruibili c'e' solo un "MS-DOS Text
> (*.txt)".
> La domanda e': devo ricorrere a VBA per ottenere quello che voglio?
> E se non scoccio troppo, qlc ha gia' un moduletto d'esempio?
>
se converti la tua macro esportandolo in modulo... lo hai già il MODULETTO
d'ESEMPIO
ciao


title: Macro: OutputSu - formato txt

text:
### CH v2.003 ### ha scritto:


> ciao
tks, ma non intendevo quello. anyone else?



title: OT Traduzione FAQ 7.1

author: Karl Donaubauer

text:
Alo...salut... sunt eu un haiduc!
Qui una traduzione cruda del primo articolo del capitolo 7 sui
più frequenti bugs. Aspetto le vostre correzioni.
*******************
7. B U G S
(effettivi o presunti)
*******************
7.1  Riferimenti
P r o b l e m a
In un database funzioni standard di VBA non vengongo più riconosciuto.
Messaggio di errore: "Impossibile trovare il progetto o la libreria"
O in una query p.e. per le funzioni Left, Right, Mid, Date ecc. viene il
messaggio di errore:
"Funzione non disponibile nelle espressioni"
C a u s a
Un o piu riferimento a una biblioteca "si e perduto".
S o l u z i o n i
Apri un qualsiasi modulo. Nella finestra di codice scegli menu
Strumenti/Riferimenti.
Per lo standard ci devono essere scelto:
In A97:
Visual Basic for Applications
Microsoft Access 8.0 Object Library
Microsoft DAO 3.5 Object Library
In versioni più recente:
Visual Basic for Applications
Microsoft Access x.0 Object Library (x = 9 in A00, 10 in AX, 11 in A03)
Microsoft DAO 3.6 Object Library
o se usi ADO invece di DAO (v.a. FAQ 7.11):
Microsoft ActiveX Data Objects 2.x Library (x >= 1 dipendente dalla
versione di ADO risp. MDAC)
Se nella lista si trova una segnalazione di errore come p.e. "non trovato"
spegni il riferimento o in caso di bisogno installa la biblioteca. Anche se
non viene segnalato un riferimento mancante prima spegni tutti riferimenti
che si lasciano e poi mettili di nuovo.
Info e codice per la verificazione dei riferimenti da MS:
http://support.microsoft.com/?id=194374
Tool di Terry Kreft per verificare i riferimenti :
http://www.mvps.org/access/modules/mdl0022.htm
Se non aiutano tutte queste azioni crea un nuovo MDB e importa tutti gli
oggetti dal vecchio.
Qualche volta aiuta anche chiamare il setup di Office col commando: Setup/Y
*******************
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it


title: OT Traduzione FAQ 7.1

author: namor

text:
Karl Donaubauer ha scritto:
> Alo...salut... sunt eu un haiduc!
> Qui una traduzione cruda del primo articolo del capitolo 7 sui
> più frequenti bugs. Aspetto le vostre correzioni.
> *******************
> 7. B U G S
> (effettivi o presunti)
-va bene così-
> *******************
> 7.1  Riferimenti
> P r o b l e m a
> In un database funzioni standard di VBA non vengongo più riconosciuto.
> Messaggio di errore: "Impossibile trovare il progetto o la libreria"
> O in una query p.e. per le funzioni Left, Right, Mid, Date ecc. viene il
> messaggio di errore:
> "Funzione non disponibile nelle espressioni"
P r o b l e m a
In un database le funzioni standard di VBA non vengongo più riconosciute,
e compare il messaggio di errore: "Impossibile trovare il progetto o la
libreria".
O in una query che utilizza, per esempio, le funzioni Left, Right, Mid,
Date ecc. compare il messaggio di errore: "Funzione non disponibile nelle
espressioni"
> C a u s a
> Un o piu riferimento a una biblioteca "si e perduto".
C a u s a
Mancano uno o più riferimenti a librerie vba.
> S o l u z i o n i
> Apri un qualsiasi modulo. Nella finestra di codice scegli menu
> Strumenti/Riferimenti.
> Per lo standard ci devono essere scelto:
> In A97:
> Visual Basic for Applications
> Microsoft Access 8.0 Object Library
> Microsoft DAO 3.5 Object Library
> In versioni più recente:
> Visual Basic for Applications
> Microsoft Access x.0 Object Library (x = 9 in A00, 10 in AX, 11 in A03)
> Microsoft DAO 3.6 Object Library
> o se usi ADO invece di DAO (v.a. FAQ 7.11):
> Microsoft ActiveX Data Objects 2.x Library (x >= 1 dipendente dalla
> versione di ADO risp. MDAC)
> Se nella lista si trova una segnalazione di errore come p.e. "non trovato"
> spegni il riferimento o in caso di bisogno installa la biblioteca. Anche se
> non viene segnalato un riferimento mancante prima spegni tutti riferimenti
> che si lasciano e poi mettili di nuovo.
S o l u z i o n i
Apri un qualsiasi modulo (o il codice di una maschera o report). Dai menù
dell'editor di visual basic seleziona Strumenti/Riferimenti.
Di norma dovrebbero risultare selezionate queste librerie:
In Access 97:
Visual Basic for Applications
Microsoft Access 8.0 Object Library
Microsoft DAO 3.5 Object Library
Nelle versioni più recenti:
Visual Basic for Applications
Microsoft Access x.0 Object Library (x = 9 in A00, 10 in AX, 11 in A03)
Microsoft DAO 3.6 Object Library
o se usi ADO invece di DAO (v.a. FAQ 7.11):
Microsoft ActiveX Data Objects 2.x Library (x >= 1 dipendente dalla
versione di ADO risp. MDAC)
> Info e codice per la verificazione dei riferimenti da MS:
>
http://support.microsoft.com/?id=194374
> Tool di Terry Kreft per verificare i riferimenti :
>
http://www.mvps.org/access/modules/mdl0022.htm
> Se non aiutano tutte queste azioni crea un nuovo MDB e importa tutti gli
> oggetti dal vecchio.
> Qualche volta aiuta anche chiamare il setup di Office col commando: Setup/Y
Info e codice per la verifica dei riferimenti da MS:
http://support.microsoft.com/?id=194374
Tool di Terry Kreft per verificare i riferimenti:
http://www.mvps.org/access/modules/mdl0022.htm
Se dopo aver provato queste soluzioni il problema non è ancora risolto,
crea un nuovo MDB e importa tutti gli oggetti dal vecchio.
Qualche volta può servire lanciare il setup di Office col commando: Setup/Y
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: OT Traduzione FAQ 7.1

text:
namor wrote:
> Karl Donaubauer ha scritto:
> ...
>> Un o piu riferimento a una biblioteca "si e perduto".
> ...
> Mancano uno o più riferimenti a librerie vba.
Non solo ho voluto dire che mancano. Puo darsi che sono ancora
visibile nella lista ma al interno hanno perso la connessione al file.
Questo che voglio traduire dal tedesco è circa "they've got lost"
in inglese in un senso un po' sarcastico. Per questo le virgolette.
Ma non so se esiste un'equivalente esatto in italiano.
>...
> Apri un qualsiasi modulo
> (o il codice di una maschera o report).
Beh, anche questi sono i moduli.
Forse ti è sfuggito il paragrafo:
> Se nella lista si trova una segnalazione di errore come p.e. "non trovato"
> spegni il riferimento o in caso di bisogno installa la biblioteca. Anche
se
> non viene segnalato un riferimento mancante prima spegni tutti riferimenti
> che si lasciano e poi mettili di nuovo.
perché non credo che non faccio sbagli in due frase difficili. ;-)
--
tnx



title: OT Traduzione FAQ 7.1

text:
Karl Donaubauer ha scritto:
> namor wrote:
> > Karl Donaubauer ha scritto:
> > ...
> >> Un o piu riferimento a una biblioteca "si e perduto".
> > ...
> > Mancano uno o più riferimenti a librerie vba.
> Non solo ho voluto dire che mancano. Puo darsi che sono ancora
> visibile nella lista ma al interno hanno perso la connessione al file.
> Questo che voglio traduire dal tedesco è circa "they've got lost"
> in inglese in un senso un po' sarcastico. Per questo le virgolette.
> Ma non so se esiste un'equivalente esatto in italiano.
Si potrebbe dire che "le librerie davanti al cui nome compare la scritta
"MANCA" non sono più in linea e devono essere ricollegate".
O "il collegamento alle librerie contrassegnate dalla scritta "MANCA" è
andato perso e dev'essere ripristinato".
(ho usato "MANCA" perchè la versione italiana di A97 e A00 usano quel
termine)
> >...
> > Apri un qualsiasi modulo
> > (o il codice di una maschera o report).
> Beh, anche questi sono i moduli.
Infatti è una pecisazione non indispensabile, però i principianti che
leggono il tuo sito potrebbero non saperlo e allora andrebbero a creare un
nuovo modulo solo per controllare i riferimenti, non sapendo che lo
possono fare anche dal modulo di una form o report già esistente. Vedi tu
se metterla o no.
> Forse ti è sfuggito il paragrafo:
> > Se nella lista si trova una segnalazione di errore come p.e. "non trovato"
> > spegni il riferimento o in caso di bisogno installa la biblioteca. Anche
> se
> > non viene segnalato un riferimento mancante prima spegni tutti riferimenti
> > che si lasciano e poi mettili di nuovo.
Si, mi era sfuggito, lo scriverei così:
Se nell'elenco dei riferimenti compare una segnalazione di errore, per
esempio "non trovato" o "MANCA", deseleziona il riferimento o installa la
libreria corrispondente, se è necessaria.
Anche se non viene segnalato alcun riferimento mancante, prima deseleziona
tutti i riferimenti che si lasciano disattivare, e poi riselezionali.



title: OT Traduzione FAQ 7.1

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto
nel messaggio news:2kvq4bF...@uni-berlin.de...
> namor wrote:
> > Karl Donaubauer ha scritto:
> > ...
> >> Un o piu riferimento a una biblioteca "si e
perduto".
uno o piů riferimenti a qualche libreria "si č
perso".
> > ...
> > Mancano uno o piů riferimenti a librerie vba.
>
> Non solo ho voluto dire che mancano. Puo darsi
che sono ancora
> visibile nella lista ma al interno hanno perso
la connessione al file.
>
> Questo che voglio traduire dal tedesco č circa
"they've got lost"
> in inglese in un senso un po' sarcastico. Per
questo le virgolette.
> Ma non so se esiste un'equivalente esatto in
italiano.
>
> >...
> > Apri un qualsiasi modulo
> > (o il codice di una maschera o report).
>
> Beh, anche questi sono i moduli.
>
> Forse ti č sfuggito il paragrafo:
> > Se nella lista si trova una segnalazione di
errore come p.e. "non trovato"
> > spegni il riferimento o in caso di bisogno
installa la biblioteca. Anche
> se
> > non viene segnalato un riferimento mancante
prima spegni tutti riferimenti
> > che si lasciano e poi mettili di nuovo.
Se nella lista dei riferimenti viene indicato
"MANCA:" spunta il riferimento o, se necessario,
installa la libreiria.
Anche se non viene segnalato alcun riferimento
mancante, prima spunta tutti i rifermenti e
successivamente selezionali "ex novo".
MAssimiliano



title: maschera a condizione

text:
salve a tutti

ho un db A2003 che fa in modo che quando lo apro, se una persona registrata compie gli anni nei 2 giorni successivi, mi appare una maschera che me lo ricorda. Questa azione è gestita dalle seguenti istruzioni:

Query "Compleanni"

Campo
Format([DataNascita];'mmgg')

Criteri
Between Format(Date();'mmgg') And Format(Date()+2;'mmgg')
________

Codice Vba

Private Sub Form_Open(Cancel As Integer)
DoCmd.OpenForm "Compleanni", , , ""

End Sub
_________

Macro Autoexec

If DCount("*";"compleanni")>0
_________

Tutto funziona perfettamente, tranne che, se più di una persona compie gli anni lo stesso giorno, mi mostra solo una volta la maschera, con la prima persona in ordine alfabetico (ordinamento della query) e basta; per gli altri che compiono gli anni non c'è nessun avviso. Non è possibile fare in modo che la maschera Compleanni si apra per ogni persona che soddisfa le condizioni della query?
c'è qualche dritta in proposito?

grazie mille
Luc


title: maschera a condizione

author: Alessandro Cara

text:

Fai un form continuo.

--

ac (x=y-1) e non uso il KillFile.
La violenza e' l'ultimo rifugio degli incapaci (Salvor Hardin)


title: Disabilitare aggiornamenti campi query

author: Antonio in the city

text:
Forse la domanda può sembrare stupida ma se io lancio una semplice query di
selezione e poi modifico un valore in un campo tale valore viene accettato.
C'è un modo per lanciare la query definendola come di "sola lettura",
insomma per avere il semplice risultato ed evitare smanacciamenti
indesiderati ?
Grazie
Antonio


title: Disabilitare aggiornamenti campi query

text:
Antonio in the city ha scritto:

No. Ma non fa nulla perché Access solo cambia l'apparenza nel
assistente (in un modo fisso) non lo statement SQL cioè la propria query.
--
cu
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Disabilitare aggiornamenti campi query

text:
Antonio in the city ha scritto:

No. Ma non fa nulla perché Access solo cambia l'apparenza del
query in un modo che non cambia niente nel risultato della query.



title: VB editor di Access ANNULLA GLI SPAZI

author: sergio cosso

text:
MI succede una cosa strana: a volte l'editor VB di Access annulla gli
spazi mentre scrivo.
Cerco di spiegarmi meglio: premo la barra spaziatrice, una o più volte
dopo aver immesso una stringa qualsiasi, ed il cursore si posiziona
nuovamente alla fine della stringa.
Successivamente riesco a ripristinare gli spazi ponendo il cursore nei
punti appropriati e premendo la barra spaziatrice, ma il problema si
presenta nuovamente se riprendo a scrivere nuovamente.
Lo stesso succede usando il tasto tab  (tabulazione).
Non ho notato nessun evento che possa aver causato questa anomalia,
tantomento ho modificato le opzioni dell'editor prima che avvenisse.
Per risolvere - temporaneamente -  ho dovuto persino ri-avviare il pc.
Ne sapete qualcosa?
Grazie a tutti
Sergio


title: VB editor di Access ANNULLA GLI SPAZI

text:
"sergio cosso" <
sergio...@gmail.com
> ha scritto nel messaggio
news:ddd734d6-c578-41ed...@o26g2000vbi.googlegroups.com...
MI succede una cosa strana: a volte l'editor VB di Access annulla gli
spazi mentre scrivo.
Cerco di spiegarmi meglio: premo la barra spaziatrice, una o piů volte
dopo aver immesso una stringa qualsiasi, ed il cursore si posiziona
nuovamente alla fine della stringa.
Successivamente riesco a ripristinare gli spazi ponendo il cursore nei
punti appropriati e premendo la barra spaziatrice, ma il problema si
presenta nuovamente se riprendo a scrivere nuovamente.
Lo stesso succede usando il tasto tab  (tabulazione).
Non ho notato nessun evento che possa aver causato questa anomalia,
tantomento ho modificato le opzioni dell'editor prima che avvenisse.
Per risolvere - temporaneamente -  ho dovuto persino ri-avviare il pc.
Ne sapete qualcosa?
Grazie a tutti
Sergio
se sei dentro una stringa "..." č molto strano
se sei in una riga di comando č normale che faccia cosi
Antonio


title: VB editor di Access ANNULLA GLI SPAZI

author: Carlo Costarella

text:
"sergio cosso" <
sergio...@gmail.com
> ha scritto nel messaggio
news:ddd734d6-c578-41ed...@o26g2000vbi.googlegroups.com...
MI succede una cosa strana: a volte l'editor VB di Access annulla gli
spazi mentre scrivo.
Cerco di spiegarmi meglio: premo la barra spaziatrice, una o piů volte
dopo aver immesso una stringa qualsiasi, ed il cursore si posiziona
nuovamente alla fine della stringa.
Successivamente riesco a ripristinare gli spazi ponendo il cursore nei
punti appropriati e premendo la barra spaziatrice, ma il problema si
presenta nuovamente se riprendo a scrivere nuovamente.
Lo stesso succede usando il tasto tab  (tabulazione).
Non ho notato nessun evento che possa aver causato questa anomalia,
tantomento ho modificato le opzioni dell'editor prima che avvenisse.
Per risolvere - temporaneamente -  ho dovuto persino ri-avviare il pc.
Ne sapete qualcosa?
Grazie a tutti
Sergio
-----------------------------
Quasi certamente hai un timer attivo in un modulo o uno spezzone di codice
che sta ancora girando.
Per fare la prova chiudi tutte le maschere attive poi apri un modulo a vedi
se succede.
Ciao, Carlo


title: VB editor di Access ANNULLA GLI SPAZI

text:
On 16 Ago, 23:20, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "sergio cosso" <
sergio.co...@gmail.com
> ha scritto nel messaggionews:ddd734d6-c578-41ed...@o26g2000vbi.googlegroups.com...
> MI succede una cosa strana: a volte l'editor VB di Access annulla gli
> spazi mentre scrivo.
> Cerco di spiegarmi meglio: premo la barra spaziatrice, una o pi volte
> dopo aver immesso una stringa qualsiasi, ed il cursore si posiziona
> nuovamente alla fine della stringa.
> Successivamente riesco a ripristinare gli spazi ponendo il cursore nei
> punti appropriati e premendo la barra spaziatrice, ma il problema si
> presenta nuovamente se riprendo a scrivere nuovamente.
> Lo stesso succede usando il tasto tab  (tabulazione).
> Non ho notato nessun evento che possa aver causato questa anomalia,
> tantomento ho modificato le opzioni dell'editor prima che avvenisse.
> Per risolvere - temporaneamente -  ho dovuto persino ri-avviare il pc.
> Ne sapete qualcosa?
> Grazie a tutti
> Sergio
> -----------------------------
> Quasi certamente hai un timer attivo in un modulo o uno spezzone di codice
> che sta ancora girando.
> Per fare la prova chiudi tutte le maschere attive poi apri un modulo a vedi
> se succede.
>
> Ciao, Carlo
Ottimo, Carlo
si trattava di un timer che avevo dimenticato di disattivare su una
form aperta. Grazie infinite.
Già che ci siamo: vi è mai successo che un file cancellato (canc o
maiusc+canc non cambia nulla) compaia nuovamente nella stessa
posizione?
Grazie, cordiali saluti
Sergio


title: VB editor di Access ANNULLA GLI SPAZI

text:
On 16 Ago, 23:20, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "sergio cosso" <
sergio.co...@gmail.com
> ha scritto nel messaggionews:ddd734d6-c578-41ed...@o26g2000vbi.googlegroups.com...
> MI succede una cosa strana: a volte l'editor VB di Access annulla gli
> spazi mentre scrivo.
> Cerco di spiegarmi meglio: premo la barra spaziatrice, una o pi volte
> dopo aver immesso una stringa qualsiasi, ed il cursore si posiziona
> nuovamente alla fine della stringa.
> Successivamente riesco a ripristinare gli spazi ponendo il cursore nei
> punti appropriati e premendo la barra spaziatrice, ma il problema si
> presenta nuovamente se riprendo a scrivere nuovamente.
> Lo stesso succede usando il tasto tab  (tabulazione).
> Non ho notato nessun evento che possa aver causato questa anomalia,
> tantomento ho modificato le opzioni dell'editor prima che avvenisse.
> Per risolvere - temporaneamente -  ho dovuto persino ri-avviare il pc.
> Ne sapete qualcosa?
> Grazie a tutti
> Sergio
> -----------------------------
> Quasi certamente hai un timer attivo in un modulo o uno spezzone di codice
> che sta ancora girando.
> Per fare la prova chiudi tutte le maschere attive poi apri un modulo a vedi
> se succede.
>
> Ciao, Carlo
Aggiungo: ma non dovremmo essere al mare?


title: VB editor di Access ANNULLA GLI SPAZI

text:
"sergio cosso" <
sergio...@gmail.com
> ha scritto nel messaggio
news:0191e5e7-0241-4ede-a835-
cut
Già che ci siamo: vi è mai successo che un file cancellato (canc o
maiusc+canc non cambia nulla) compaia nuovamente nella stessa
posizione?
Grazie, cordiali saluti
Sergio
---------------------
Mi pare si tratti di una funzione di Windows 7 o Vista.
Comunque per nuovi quesiti fai un nuovo post...Altrimenti il Biso si
potrebbe inc...are.
Ciao, Carlo


title: VB editor di Access ANNULLA GLI SPAZI

text:
On 17 Ago, 08:49, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "sergio cosso" <
sergio.co...@gmail.com
> ha scritto nel messaggio

Chiedo scusa a tutti, sono nuovo di qui.
Ciao
Sergio


title: access 97 e importazione tabelle

author: jeanalesi

text:
in un database creato l'anno scorso ho bisogno di aggiornare alcuni dati e
di importare dei dati esterni.
al momento dell'operazione mi appare la seguente segnalazione: can't update
database or object is read - only.
eppure io non ho messo nessuna protezione e non so dove andare a cercare.
sapete darmi una dritta???
grazie in anticipo.


title: access 97 e importazione tabelle

text:
jeanalesi schrieb:

Dipende dall'estensione del file.
Puoi cambiarla o aggiungerla nel registry:
http://support.microsoft.com/default.aspx?id=239105
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: access 97 e importazione tabelle

text:
>
> Dipende dall'estensione del file.
> Puoi cambiarla o aggiungerla nel registry:
>
http://support.microsoft.com/default.aspx?id=239105
cambiare l'estensione del file txt?


title: Popup con elenco dinamico maschere aperte

author: mayerlink

text:
Vorrei adottare per i miei gestionali una popup contenente l'elenco e
rispettivi links di tutte le maschere aperte, popup che si aggiorni
automaticamente ogni volta che una maschera viene aperta o chiusa.
Qualcuno ha già fatto qualcosa del genere? Qualche dritta per cominciare?
Grazie
mayerlink


text:
"mayerlink" <
maye...@virgilio.it
> wrote in message
news:4401c6fd$0$5992$
4faf...@reader2.news.tin.it

A cosa servirebbe..?
Boh
Non vedo la difficoltà, su apertura della Maschera vai a chiamare
la Funzione Public che dichiarerai nella Form Popup che ciclerà
l'insieme Forms ricompilando magari la ListBox sfruttando il metodo
AddItem
Public Function RefreshForm()
   Dim frm as access.Form
   Me.Painting=false
   Form each frm in Forms
      If frm.Name<> Me.Name then
          Me!NomeList.Additem frm.Name
      End If
   Next
   Me.painting=True
End function
Su Evento Load delle Form scrivi:
Forms!NomeFormPupoup.RefreshForm
Ma a che serve...?
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
"Alessandro Baraldi" <
ik2...@libero.it
> wrote in message
news:34782ff96ae6bcd47a...@mygate.mailgate.org...

Intanto ti ringrazio (se incontro difficoltà ti chiederò ancora aiuto).
A cosa serve?
Sto installando in un'azienda un mio gestionale alquanto strutturato ed
affollato di maschere.L'operatore deve continuamente zompare da una maschera
all'altra e mi ha chiesto una soluzione semplice ed immediata. Per prima
cosa ho creato con una popup una specie di menu a scomparsa con il Pannello
Comandi completo: in pratica spostando il puntatore del mouse sull'estremità
sinistra dello schermo appare il menu da cui se vuole può accedere ad
un'altra maschera, quando il puntatore esce dalla popup questa scompare.
La mia richiesta è uno sviluppo di quanto sopra: l'operatore, senza
abbandonare la maschera su cui sta lavorando in un dato momento, può vedere
l'elenco delle altre maschere in cui ha già agito (e solo quelle) e muoversi
tra le stesse con immediatezza.
Che dici?
Ciao e grazie ancora
mayerlink


text:
"mayerlink" <
maye...@virgilio.it
> wrote in message
news:4401d4f5$0$5991$
4faf...@reader2.news.tin.it
[CUT]
> Intanto ti ringrazio (se incontro difficoltà ti chiederò ancora aiuto).
> A cosa serve?
> Sto installando in un'azienda un mio gestionale alquanto strutturato ed
> affollato di maschere.L'operatore deve continuamente zompare da una maschera
> all'altra e mi ha chiesto una soluzione semplice ed immediata. Per prima
> cosa ho creato con una popup una specie di menu a scomparsa con il Pannello
> Comandi completo: in pratica spostando il puntatore del mouse sull'estremità
> sinistra dello schermo appare il menu da cui se vuole può accedere ad
> un'altra maschera, quando il puntatore esce dalla popup questa scompare.
> La mia richiesta è uno sviluppo di quanto sopra: l'operatore, senza
> abbandonare la maschera su cui sta lavorando in un dato momento, può vedere
> l'elenco delle altre maschere in cui ha già agito (e solo quelle) e muoversi
> tra le stesse con immediatezza.
> Che dici?
> Ciao e grazie ancora
> mayerlink
Sinceramente non mi è mai capitato di sviluppare o usare applicativi
che aprano un numero di maschere tale da rendere difficoltoso sapre
dovi si lavora...!
Ovviamente però dipende sempre da chi sviluppa e da chi lavora
certo è che se l'operatore ha evidenziato disagio a dover Zompare
tra le maschere forse la cosa più semplice e coerente sarebbe quella
di evitarglielo e non di aggiungere una maschera per le maschere....!!
Questo però è il mio punto di vista.



text:
mayerlink wrote:
> Intanto ti ringrazio (se incontro difficoltà ti chiederò ancora
> aiuto).
> A cosa serve?
> Sto installando in un'azienda un mio gestionale alquanto strutturato
> ed affollato di maschere.L'operatore deve continuamente zompare da
> una maschera all'altra e mi ha chiesto una soluzione semplice ed
> immediata. Per prima cosa ho creato con una popup una specie di menu
> a scomparsa con il Pannello Comandi completo: in pratica spostando il
> puntatore del mouse sull'estremità sinistra dello schermo appare il
> menu da cui se vuole può accedere ad un'altra maschera, quando il
> puntatore esce dalla popup questa scompare.
> La mia richiesta è uno sviluppo di quanto sopra: l'operatore, senza
> abbandonare la maschera su cui sta lavorando in un dato momento, può
> vedere l'elenco delle altre maschere in cui ha già agito (e solo
> quelle) e muoversi tra le stesse con immediatezza.
> Che dici?
> Ciao e grazie ancora
> mayerlink
Sicuro di aver strutturato bene il tutto??
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


text:
"mayerlink" <
maye...@virgilio.it
> ha scritto nel messaggio
news:4401c6fd$0$5992$4faf...@reader2.news.tin.it...

Io da tempo uso una soluzione come quella che tu dici.
Questo perchè uso una maschera massimizzata (Apertura) che fa da "sfondo" a
tutto il gestionale.
Quando il cliente passa da una maschera ad un altra, la prima se non chiusa
diventa invisibile perchè posizionata sotto la principale e la nuova
maschera, popup, prende il focus e si posiziona sopra tutte le altre...
Io adotto questa tecnica:
Una tabella contiene due campi: NomeMaschera (testo) e Aperta (vero/falso).
La tabella è popolata con il nome di tutte le maschere.
Due funzioni: "SegnaAperta" e "SegnaChiusa".
All'apertura di una maschera eseguo il codice "SegnaAperta" e alla sua
chiusura il codice "SegnaChiusa".
Sulla maschera massimizzata, quindi sempre visibile, ho inserito una combo
che prende solo i valori "aperta = true" della tabella. Al clic di un valore
della combo il codice "apre" la maschera scelta.
Questo il codice.
Public Sub SegnaAperta(NM As String)
On Error Resume Next
    Dim rcs As Recordset
    Set rcs = CurrentDb.OpenRecordset("SQMaschere")
    With rcs
    .FindFirst "[NomeMaschera]= " & "'" & NM & "'"
    .Edit
    !aperto = True
    .Update
    .Close
    End With
    Forms!Apertura!ComboAperte.Requery
End Sub
Public Sub SegnaChiusa(NM As String)
On Error Resume Next
    Dim rcs As Recordset
    Set rcs = CurrentDb.OpenRecordset("SQMaschere")
    With rcs
    .FindFirst "[NomeMaschera]= " & "'" & NM & "'"
    .Edit
    !aperto = False
    .Update
    .Close
    End With
    Forms!Apertura!ComboAperte.Requery
End Sub
Private Sub ComboAperte_Click()
Call ApriMaschera(Me.ComboAperte.Column(2))
DoEvents
Me.ComboAperte = ""
End Sub
Public Sub ApriMaschera(MioNome As String)
    DoCmd.OpenForm MioNome
End Sub
Fammi sapere se è stato utile.
Ciao, Carlo


text:
"Carlo Costarella" <
carloco...@libero.it
> wrote in message
news:4403f750$0$12603$4faf...@reader3.news.tin.it...

Grazie molte Carlo. Appena posso mi ci concentro (magari ti chiedo lumi) e
ti faccio sapere.
Ciao
mayerlink


title: [BUG ?]

author: Antonio Marotta

text:
Salve a tutti,
é la prima volta che scrivo su questo newsgroup per cui vi chiedo scusa se é
un problema già discusso, ma non riesco a risolvere il seguente problema:
Essenzialmente ho un campo di testo in una tabella che contiene un codice di
9 caratteri.
Devo trasformare il codice aggiungendogli una barra ogni tre caratteri. Per
far ciò ho creato una query di questo tipo :
Select Cod, (Left(Cod,3) & "/" & Mid(Cod,4,3) & "/" & Right(Cod,3)) as Cod 1
From ...
Il risultato purtroppo però é un pò diverso da quello che mi aspettavo in
particolare, se il codice é composto da soli numeri, la query da il seguente
risultato :
Cod                    Cod1
352181993        352/181/993
Ma se il codice ha tre punti in fondo il risultato é il seguente !!!:
Cod                    Cod1
352181...            352/181/81...
In poche parole Access tratta i tre punti finali come un carattere solo.
Infatti aggiungendo alla query di prima anche "Len(Cod) as [len] il
risultato finale é il seguente !!!:
Cod                    Cod1                    len
351181993        353/181/993        9
352181...            352/181/81...       7
Suggerimenti, aiuti, imprecazioni ;) ? C'è una soluzione banale che non vedo
?
P.S. i tre punti non sono un carattere speciale, ho provato a cancellarli e
a digitarli a mano. Tra l'altro é da notare che se li digito a mano, salvo
il record e poi li voglio cancellare, mi basta premere backspace una volta
sola. Infine se nella maschera di visualizzazione della tabella faccio un
filtro sul campo cod Like "*...", non mi dà nessun risultato !!!


title: [BUG ?]

author: Sib

text:
"Antonio Marotta" <
antonio...@sefin.com
> ha scritto nel messaggio
news:8pq4js$2ge$1...@lacerta.tiscalinet.it...
[cut]
> ho un campo di testo in una tabella che contiene un codice di
> 9 caratteri.
> Devo trasformare il codice aggiungendogli una barra ogni tre caratteri.
Per
> far ciò ho creato una query di questo tipo :
>
> Select Cod, (Left(Cod,3) & "/" & Mid(Cod,4,3) & "/" & Right(Cod,3)) as Cod
1
> From ...
> Il risultato purtroppo però é un pò diverso da quello che mi aspettavo in
> particolare, se il codice é composto da soli numeri, la query da il
seguente
> risultato :
>
> Cod                    Cod1
> 352181993        352/181/993
>
> Ma se il codice ha tre punti in fondo il risultato é il seguente !!!:
>
> Cod                    Cod1
> 352181...            352/181/81...
>
> In poche parole Access tratta i tre punti finali come un carattere solo.
> Infatti aggiungendo alla query di prima anche "Len(Cod) as [len] il
> risultato finale é il seguente !!!:
[cut]
Infatti e' proprio cosi', i tre punti sono un unico carattere.
In 'strumenti - correzione automatica' troverai certamente attivata
l'opzione sostituisci '...' con '...'
Sembrano la stessa cosa, ma non e' cosi'.
Il correttore automatico sostituisce i tre punti (codice ascii 46 ripetuto
tre volte) con il carattere tre punti (codice ascii 133).
O su dopo aggiornamento sostituisci a tua volta il carattere chr(133) con
tre caratteri chr(46) o elilmini la correzione automatica dei tre punti.
Ciao, Sib


title: [BUG ?]

author: mark

text:
prova cosi :
cod1 = mid(cod,1,3) & "/" & mid(cod,4,3)& "/" & mid(cod,7,3)
ciao Marco Dell'Oca
D.M.Software
marco....@tiscalinet.it
"Antonio Marotta" <
antonio...@sefin.com
> wrote in message
news:8pq4js$2ge$1...@lacerta.tiscalinet.it...
> Salve a tutti,
>
> é la prima volta che scrivo su questo newsgroup per cui vi chiedo scusa se
é
> un problema già discusso, ma non riesco a risolvere il seguente problema:
>
> Essenzialmente ho un campo di testo in una tabella che contiene un codice
di
> 9 caratteri.
> Devo trasformare il codice aggiungendogli una barra ogni tre caratteri.
Per
> far ciò ho creato una query di questo tipo :
>
> Select Cod, (Left(Cod,3) & "/" & Mid(Cod,4,3) & "/" & Right(Cod,3)) as Cod
1
> From ...
> Il risultato purtroppo però é un pò diverso da quello che mi aspettavo in
> particolare, se il codice é composto da soli numeri, la query da il
seguente
> risultato :
>
> Cod                    Cod1
> 352181993        352/181/993
>
> Ma se il codice ha tre punti in fondo il risultato é il seguente !!!:
>
> Cod                    Cod1
> 352181...            352/181/81...
>
> In poche parole Access tratta i tre punti finali come un carattere solo.
> Infatti aggiungendo alla query di prima anche "Len(Cod) as [len] il
> risultato finale é il seguente !!!:
>



title: [BUG ?]

text:
Ciao Sib,
Grazie per la risposta, ma penso che utilizzerò la soluzione propostami da
"mark" nell'altro messaggio, che mi evita di andare dai clienti a modificare
le impostazioni di Access :)))
Sib ha scritto nel messaggio <8pqg8f$7ar$
2...@lacerta.tiscalinet.it
>...



title: [BUG ?]

text:
Ciao Mark,
grazie della risposta, é proprio vero che alcune volte ci si intestardisce a
cercare spiegazioni complicate perdendo di vista le soluzioni semplici.
a buon rendere
mark ha scritto nel messaggio <8pqgi6$7fi$
1...@lacerta.tiscalinet.it
>...
>prova cosi :
>
>cod1 = mid(cod,1,3) & "/" & mid(cod,4,3)& "/" & mid(cod,7,3)
>
>ciao Marco Dell'Oca
>D.M.Software
>
marco....@tiscalinet.it
>
>[cut]


title: [BUG ?]

text:
"Antonio Marotta" <
antonio...@sefin.com
> ha scritto nel messaggio
news:8pqi7u$893$1...@lacerta.tiscalinet.it...
> Ciao Sib,
>
> Grazie per la risposta, ma penso che utilizzerò la soluzione propostami da
> "mark" nell'altro messaggio, che mi evita di andare dai clienti a
modificare
> le impostazioni di Access :)))
No Problem,
Come ti viene piu' comodo.
Ma io pensavo che ti servissero campi da 9 caratteri e che campi da 7 non
andassero bene.
Comunque la soluzione di mark non ti risolve il problema se i tre punti sono
in mezzo o all'inizio.
Prova a vedere che succede se hai:
...903943
Ciao, Sib


title: integrazione record di Access in foglio di Excel

author: Gabriel

text:
Come da oggetto, con S.O. Win 98 ed Office 2000.
Grazie anticipatamente a tutti.


author: Sergio MAZZA (Ufficio Stampa)

text:
Gabriel <
gbra...@inwind.it
> wrote in message
3b57674b...@news.iol.it...
> Come da oggetto, con S.O. Win 98 ed Office 2000.
> Grazie anticipatamente a tutti.
>
Che le paghi le battute sulla tastiera?
Perché non sprechi qualche parolina in piů? Cosě evitiamo lunghi ed
estenuati sequenze di domande/risposte...
Ciao.


text:
On Fri, 20 Jul 2001 11:30:15 +0200, "Sergio MAZZA (Ufficio Stampa)"
<
sergi...@tiscalinet.it
> wrote:
>Perché non sprechi qualche parolina in piů? Cosě evitiamo lunghi ed
>estenuati sequenze di domande/risposte...
Esempio pratico: preparo un modello di fattura con Excel, ma poi non
so come fare ad intestarla ai vari clienti tramite l'utilizzo di
qualcosa che assomigli alla "Stampa Unione" (come, invece, posso usare
quando uso Word).
Che ne dici cosě?
Ciao.


author: Sergio MAZZA

text:
"Gabriel" <
gbra...@inwind.it
> ha scritto nel messaggio
news:3b5835cf...@news.iol.it...
>
> Esempio pratico: preparo un modello di fattura con Excel, ma poi non
> so come fare ad intestarla ai vari clienti tramite l'utilizzo di
> qualcosa che assomigli alla "Stampa Unione" (come, invece, posso usare
> quando uso Word).
> Che ne dici cosě?
> Ciao.
Per Off'97 non c'é una stampa unione per Excel simile a quella di Word,
dovrai dare fondo al VBA; inizia da questo esempio:
Es.
'-----------
Dim oWks As Excel.Workbook, oWsh As Excel.Worksheet
Set oWks = CreateObject("Excel.Sheet")
oWks.Application.Workbooks.Open "c:\documenti\cartel1.xls"
Set oWsh = oWks.Application.Workbooks(1).ActiveSheet
oWsh.Cells(1, 2) = "primo valore"
oWsh.Cells(3, 2) = "secondo valore"
oWks.Application.Visible = True
'-----------
Devi prima inserire i riferimenti alla libreria di Excel (menů: Strumenti -
riferimenti); questo esempio ti indica il modo per scrivere in determinate
celle (cells(riga, colonna)), uniscilo alla lettura del recordset della
maschera/tabella/query di access e la tua fattura si compone...
Ciao.


text:
On Mon, 23 Jul 2001 15:13:23 +0200, "Sergio MAZZA"
<
sergi...@tiscalinet.it
> wrote:
>Per Off'97 non c'é una stampa unione per Excel simile a quella di Word,
>dovrai dare fondo al VBA;
VBA : vuol dire  Visual Basic for Applications?
 inizia da questo esempio:
>Es.
>'-----------
>Dim oWks As Excel.Workbook, oWsh As Excel.Worksheet
Quanto sopra č una stringa che va scritta dove?
>Set oWks = CreateObject("Excel.Sheet")
>
>oWks.Application.Workbooks.Open "c:\documenti\cartel1.xls"
>
>Set oWsh = oWks.Application.Workbooks(1).ActiveSheet
>
>oWsh.Cells(1, 2) = "primo valore"
>oWsh.Cells(3, 2) = "secondo valore"
>
>oWks.Application.Visible = True
>'-----------
>
>Devi prima inserire i riferimenti alla libreria di Excel (menů: Strumenti -
>riferimenti); questo esempio ti indica il modo per scrivere in determinate
>celle (cells(riga, colonna)), uniscilo alla lettura del recordset della
>maschera/tabella/query di access e la tua fattura si compone...
Dal momento che quanto sopra per me assomiglia ad arabo: sapresti
indicarmi dove trovare la spiegazione particolareggiata di livello
accessibile ad un neofita?
Grazie anticipatamente  e ciao.
>


text:
"Gabriel" <
gbra...@inwind.it
> ha scritto nel messaggio
news:3b5d02a0...@news.iol.it...
> VBA : vuol dire  Visual Basic for Applications?
Bingo!
>
>  inizia da questo esempio:
> >Es.
> >'-----------
> >Dim oWks As Excel.Workbook, oWsh As Excel.Worksheet
> Quanto sopra č una stringa che va scritta dove?
>
> >Set oWks = CreateObject("Excel.Sheet")
> >
> >oWks.Application.Workbooks.Open "c:\documenti\cartel1.xls"
> >
> >Set oWsh = oWks.Application.Workbooks(1).ActiveSheet
> >
> >oWsh.Cells(1, 2) = "primo valore"
> >oWsh.Cells(3, 2) = "secondo valore"
> >
> >oWks.Application.Visible = True
> >'-----------
> >
> >Devi prima inserire i riferimenti alla libreria di Excel (menů:
Strumenti -
> >riferimenti); questo esempio ti indica il modo per scrivere in
determinate
> >celle (cells(riga, colonna)), uniscilo alla lettura del recordset della
> >maschera/tabella/query di access e la tua fattura si compone...
>
> Dal momento che quanto sopra per me assomiglia ad arabo: sapresti
> indicarmi dove trovare la spiegazione particolareggiata di livello
> accessibile ad un neofita?
Devi trovare delle pubblicazioni o articoli che trattano gli "oggetti" che
vengono messi a disposizione dalle applicazioni "Office".
Ancora Arabo? Beh, io ho due libri, come riferimento generale: "Microsoft
Access 97 - manuale dello sviluppatore" e "Microsoft Office 97 Visual
Basic - Guida alla programmazione" entrambi della Mondadori; ma in
particolare io utilizzo molto i riferimenti che trovo negli help in linea
delle varie applicazioni. Senza contare le informazioni che trovi su
internet, per esempio:
www.sitocomune.com
.
Comunque in parole mooolto povere l'esempio che ti ho inviato č una,
diciamo, traduzione in codice vba delle operazioni che faresti tu a mano in
excel. Se vuoi verere qualcosa del genere prova ,in excel o word, ad
eseguire il registratore di macro e scrivere o fare qualsiasi cosa. Una
volta bloccata la registrazione controlla nell'elenco delle macro e troverai
quella appena creata; se vuoi vedere il codice basta che entri in modifica e
vedi la "traduzione" in vba di quello che hai fatto...
> Grazie anticipatamente  e ciao.
Ciao.


title: Verificare la presenza di record in tabella

author: Toxu

text:
Devo verificare se in una tabella non sono presenti record (è vuota) tramite
qual'è' il codice adatto.
Io ho provato in questo modo:
Set rs0 = New ADODB.Recordset
StrSql = "SELECT Max(TBL_PAGAMENTI.DAT_ALL) FROM TBL_PAGAMENTI"
rs0.Open StrSql, cnn, , , adCmdText
If rs0.BOF And rs0.EOF Then
    MaxData = "000000"
Else
    MaxData = rs0.Fields(0)
End If
... ma non va , chi può aiutarmi?
grazie
Toxu


author: Roberto dal portatile

text:
"Toxu" <
to...@tox.it
> ha scritto nel messaggio
news:452fb19b$0$25887$4faf...@reader1.news.tin.it...

Dim Nrec As Long
Nrec = DCount("*", "TBL_PAGAMENTI")
If Nrec = 0 Then
    MagBox "La tabella TBL_PAGAMENTI è vuota!"
Else
    MagBox "La tabella TBL_PAGAMENTI contiene " _
        & Nrec & " record."
End If
> grazie
Prego
> Toxu
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


author: Alessandro Baraldi

text:
Toxu ha scritto:

Dando per scontato che la cnn sia valorizzata correttamente....
StrSql = "SELECT Count(*) As Conteggio FROM TBL_PAGAMENTI"
.........
If rs!Conteggio=0 then
Else
End if
@Alex


text:
Alessandro Baraldi ha scritto:

Scusa ho capito solo ora....!
StrSql = "SELECT TOP 1 DAT_ALL FROM TBL_PAGAMENTI ORDER BY DAT_ALL
DESC"
rs0.Open StrSql, cnn, , , adCmdText
If rs0.Eof Then
Else
End if
@Alex


text:
>> Devo verificare se in una tabella non sono presenti record (è vuota)
>> tramite qual'è' il codice adatto.
>> Io ho provato in questo modo:
>>
>> Set rs0 = New ADODB.Recordset
>> StrSql = "SELECT Max(TBL_PAGAMENTI.DAT_ALL) FROM TBL_PAGAMENTI"
>> rs0.Open StrSql, cnn, , , adCmdText
>> If rs0.BOF And rs0.EOF Then
>>    MaxData = "000000"
>> Else
>>    MaxData = rs0.Fields(0)
>> End If
>>
>> ... ma non va , chi può aiutarmi?
>
> Dim Nrec As Long
> Nrec = DCount("*", "TBL_PAGAMENTI")
> If Nrec = 0 Then
>    MagBox "La tabella TBL_PAGAMENTI è vuota!"
> Else
>    MagBox "La tabella TBL_PAGAMENTI contiene " _
>        & Nrec & " record."
> End If
>
Grazie per il suggerimento,
ma continua a non andare (non trova la tabella...! ),
vista la tua disponibilità approfitto:
Mi puoi far  capire perche', considerato che la select mi restituisce un
valore( se ci sono records) oppure null (se non ci sono records) , quindi un
recordset con una riga oppure vuoto, l'istruzione "rs0.BOF And rs0.EOF" che
di solito uso per vedee se un recordset è vuoto non va? Mi sfugge qualcosa.
grazie di nuovo
Toxu


text:
"Toxu" <
to...@tox.it
> ha scritto nel messaggio
news:452fc143$0$25896$4faf...@reader1.news.tin.it...
>>> Devo verificare se in una tabella non sono presenti record (è vuota)
>>> tramite qual'è' il codice adatto.
>>> Io ho provato in questo modo:
>>>
>>> Set rs0 = New ADODB.Recordset
>>> StrSql = "SELECT Max(TBL_PAGAMENTI.DAT_ALL) FROM TBL_PAGAMENTI"
>>> rs0.Open StrSql, cnn, , , adCmdText
>>> If rs0.BOF And rs0.EOF Then
>>>    MaxData = "000000"
>>> Else
>>>    MaxData = rs0.Fields(0)
>>> End If
>>>
>>> ... ma non va , chi può aiutarmi?
>>
>> Dim Nrec As Long
>> Nrec = DCount("*", "TBL_PAGAMENTI")
>> If Nrec = 0 Then
>>    MagBox "La tabella TBL_PAGAMENTI è vuota!"
>> Else
>>    MagBox "La tabella TBL_PAGAMENTI contiene " _
>>        & Nrec & " record."
>> End If
>>
> Grazie per il suggerimento,
> ma continua a non andare (non trova la tabella...! ),
Se non trova la tabella significa che hai scritto male il suo nome nella
funzione DCount: verifica con attenzione.
> vista la tua disponibilità approfitto:
> Mi puoi far  capire perche', considerato che la select mi restituisce un
> valore( se ci sono records) oppure null (se non ci sono records) , quindi
> un recordset con una riga oppure vuoto, l'istruzione "rs0.BOF And rs0.EOF"
> che di solito uso per vedee se un recordset è vuoto non va? Mi sfugge
> qualcosa.
Mi dispiace ma io uso solo Access 97 e quindi non sono in grado di discutere
codice VBA che faccia riferimento alla libreria Microsoft ADO: diverso
sarebbe stato se avessi fatto riferimento alla libreria Microsoft DAO.
> grazie di nuovo



text:
CUT
StrSql = "SELECT TOP 1 DAT_ALL FROM TBL_PAGAMENTI ORDER BY DAT_ALL
DESC"
rs0.Open StrSql, cnn, , , adCmdText
If rs0.Eof Then
Else
End if
@Alex
Grazie, ha funzionato.
Toxu


title: Chiusura Automatica db

author: Marco

text:
Un saluto a tutti,
sapreste dirmi come posso far chiudere in automatico il database?
Per esempio dopo un minuto dall' ultimo aggiornamento di un campo in una
maschera??


title: Chiusura Automatica db

author: AEOM

text:
"Marco" <
mgmtelefo...@vodafone.it
> ha scritto nel messaggio
news:Ky92c.6094$Hl1....@tornado.fastwebnet.it...

sull'evento after_update della casella di testo ci metti
Me.TimerInterval = 5000 (o il numero di millisecondi che vuoi attendere
primda di chiudere)
sull'evento ontimer() della maschera scrivi
DoCmd.Quit acQuitSaveAll
ciao, AEOM


title: Chiusura Automatica db

text:
"AEOM" <
fuck...@motherfucker.it
> ha scritto nel messaggio
news:pBh2c.4742$z23.2...@news3.tin.it...

Grazie.


title: Query con valori presi da una function in esecuzione

text:
Come da Oggetto,
con una funzione eseguo la scansione di un recordset, per ciascun
record di quelli che rispondono alla caratteristica cercata rilevo
l'ID; devo quindi eseguire una query passandogli l'ID trovato:
c'è un modo di fare il tutto senza usare il docmd.execute e la stringa
Sql?
vorrei usare una query già predisposta a cui passare il parametro
(l'ID) ... è possibile?


text:
Elio_IX ha scritto:

Si certo, ma non spieghi se deve essere una Query Action oppure una
Select...., il metodo è in ogni caso uguale, solo che nel 1° caso non
puoi avere di ritorno un Recordset...!
Esempio:
Sia detta QRY1 la seguente:
SELECT * FROM Tb_Ordini WHERE IdCliente=[CodiceCliente:]
Il parametro [CodiceCliente:] è dinamico ovviamente.
Con la funzione seguente passi l'ID via codice ed ottieni un Recordset
filtrato...!
Function GetRS(IdCodiceCliente As Long)
    Dim qdf As DAO.QueryDef
    Set qdf = CurrentDb.QueryDefs("QRY1")
    qdf.Parameters![CodiceCliente:] = IdCodiceCliente
    Set GetRS = qdf.OpenRecordset
    If GetRS.EOF Then
        Msgbox "Nessun Movimento per questo Cliente"
        Exit Function
    End IF
    ' In GetRS ho tutti i dati
End Function
@Alex


author: eSQueL

text:
"Elio_IX" <
elio....@gmail.com
> ha scritto nel messaggio
news:1157536375....@p79g2000cwp.googlegroups.com...

Non mi è chiaro se intendi usare vba oppure no.
Usando vba:
- crei una nuova tabella;
- Ottieni il recordset (rs1);
- pulisci la nuova tabella con DELETE;
- cicli su rs1 (.RecordCount);
     - ad ogni ciclo:
          - ottieni il secondo recordset (rs2)
          - popoli la nuova tabella con rs2 (INSERT INTO);
- apri la nuova tabella (o la maschera ad essa associata).
Spero di aver compreso bene :)
Ciao


text:
Alessandro Baraldi ha scritto:

Si, dovrebbe essere questa la soluzione che cercavo,
non ho mai usato le query indicando il parametro con Vba,
quindi adesso la provo e poi mando conferma se è tutto ok.


text:
Alessandro Baraldi ha scritto:

Operazione effettuata,
in questa maniera usando VBA passo alla query tutti i parametri che
voglio ...
Funziona perfettamente.
Grazie  per la risposta e per la tempestività.
Elio


title: COLORARE CONTROLLO STRUTTURA STRUTTURA A SCHEDA

author: Rino

text:
Salve,
non riesco a trovare la funzione per cambiare colore a controllo struttura a
cheda
qualcuno sa come?
grazie
Rino


title: formattare una casella combinata senza usare la formattazione condizionale

text:
ciao a tutti
è possibile formattare una combo (con tre formattazioni differenti) senza utilizzare l'FC?
Se si come?

Grazie


author: Karl Donaubauer

text:
francodel...@gmail.com
 wrote:
> � possibile formattare una combo (con tre formattazioni differenti)
> senza utilizzare l'FC?
> Se si come?

Dipende quale formattazione intendi e di quale tipo
di maschera si tratta, singola o continua.
Puoi p.e. usare la propriet� Formato della combo
o per maschere singole anche del codice.
Vedi anche:
http://www.donkarl.com/it?FAQ4.1

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


text:
Il giorno domenica 18 maggio 2014 18:36:03 UTC+2, Karl Donaubauer ha scritto:
>
francodel...@gmail.com
 wrote:
>
> > ï¿½ possibile formattare una combo (con tre formattazioni differenti)
>
> > senza utilizzare l'FC?
>
> > Se si come?
>
>
>
> Dipende quale formattazione intendi e di quale tipo
>
> di maschera si tratta, singola o continua.
>
> Puoi p.e. usare la proprietï¿½ Formato della combo
>
> o per maschere singole anche del codice.
>
> Vedi anche:
http://www.donkarl.com/it?FAQ4.1

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

grazie Karl
si è per maschera continua, ma il colore deve riguardare carattere e sfondo del controllo (combo)


text:
francodel...@gmail.com
 wrote:
> Karl Donaubauer ha scritto:
>>> � possibile formattare una combo (con tre formattazioni
>>> differenti)
>>
>>> senza utilizzare l'FC?
> ...
> si � per maschera continua, ma il colore deve riguardare carattere
> e sfondo del controllo (combo)

Non puoi formattare il sfondo di una maschera continua senza
FC. Perch� non vuoi usarla visto che esiste per questo scopo?



text:
Il giorno venerdì 23 maggio 2014 23:14:10 UTC+2, Karl Donaubauer ha scritto:
>
francodel...@gmail.com
 wrote:
>
> > Karl Donaubauer ha scritto:
>
> >>> ï¿½ possibile formattare una combo (con tre formattazioni
>
> >>> differenti)
>
> >>
>
> >>> senza utilizzare l'FC?
>
> > ...
>
> > si ï¿½ per maschera continua, ma il colore deve riguardare carattere
>
> > e sfondo del controllo (combo)
>
>
>
> Non puoi formattare il sfondo di una maschera continua senza
>
> FC. Perchï¿½ non vuoi usarla visto che esiste per questo scopo?
>
>
>
> --
>
> Ciao
>
> Karl
>
> *********
>
> Access FAQ:
http://www.donkarl.com/it

grazie Karl
ho seguito il tuo consiglio.


title: Valori duplicati in ListBox.

text:
Buon pomeriggio a tutti,
ho una maschera non associata con diversi controlli nei quali inserisco
valori che, attraverso una query avente tali valori come criteri, mi
genera una ListBox nella medesima maschera.
Ora, quali parametri, oltre a quelli nominati, dovrei settare perchè due
record che si differenziano per i valori di alcuni campi, ma sono uguali
per altri, vengano raggruppati secondo questi ultimi?
Esemplificando:
il record ha i campi C1, C2, C3, C4,..., Cn di cui C100 è numerico;
due record differiscono per C1, C2, ..., Cm (con m<n) ma sono uguali per
tutti gli altri n-n valori;
Vorrei che, ad esempio, si vedesse nella ListBox una sola riga con C100
pari alla somma dei valori numerici dei due campi C100 dei rispettivi
record: tipo giacenza, insomma.
Grazie,
DEL_REC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Valori duplicati in ListBox.

author: Roberto dalla campagna

text:
"DEL_REC" <domanda...@rispodnerecortes.ia> ha scritto nel messaggio
news:ck11pe$mbk$1...@news.newsland.it...
> Buon pomeriggio a tutti,
>
> ho una maschera non associata con diversi controlli nei quali inserisco
> valori che, attraverso una query avente tali valori come criteri, mi
> genera una ListBox nella medesima maschera.
> Ora, quali parametri, oltre a quelli nominati, dovrei settare perchè due
> record che si differenziano per i valori di alcuni campi, ma sono uguali
> per altri, vengano raggruppati secondo questi ultimi?
> Esemplificando:
>
> il record ha i campi C1, C2, C3, C4,..., Cn di cui C100 è numerico;
> due record differiscono per C1, C2, ..., Cm (con m<n) ma sono uguali per
> tutti gli altri n-n valori;
> Vorrei che, ad esempio, si vedesse nella ListBox una sola riga con C100
> pari alla somma dei valori numerici dei due campi C100 dei rispettivi
> record: tipo giacenza, insomma.
> Grazie,
>
> DEL_REC
>
> --
Non sono sicuro di aver ben capito il tuo problema, ma hai provato a usare
come origine riga della ListBox una query di raggruppamento?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Valori duplicati in ListBox.

text:
Roberto dalla campagna ha scritto:
> "DEL_REC" <domanda...@rispodnerecortes.ia> ha scritto nel messaggio
> news:ck11pe$mbk$1...@news.newsland.it...
> > Buon pomeriggio a tutti,
> >
> > ho una maschera non associata con diversi controlli nei quali inserisco
> > valori che, attraverso una query avente tali valori come criteri, mi
> > genera una ListBox nella medesima maschera.
> > Ora, quali parametri, oltre a quelli nominati, dovrei settare perchè due
> > record che si differenziano per i valori di alcuni campi, ma sono uguali
> > per altri, vengano raggruppati secondo questi ultimi?
> > Esemplificando:
> >
> > il record ha i campi C1, C2, C3, C4,..., Cn di cui C100 è numerico;
> > due record differiscono per C1, C2, ..., Cm (con m<n) ma sono uguali per
> > tutti gli altri n-n valori;
> > Vorrei che, ad esempio, si vedesse nella ListBox una sola riga con C100
> > pari alla somma dei valori numerici dei due campi C100 dei rispettivi
> > record: tipo giacenza, insomma.
> > Grazie,
> >
> > DEL_REC
> >
> > --
> Non sono sicuro di aver ben capito il tuo problema, ma hai provato a usare
> come origine riga della ListBox una query di raggruppamento?
Ciao Roberto,
ho proprio usato una query di raggruppamento ma, ad esempio, due record
che hanno lo stesso materiale/colore/misura/causale ma differiscono per la
ordine/quantità vengono visualizzati come due righe, invece che con una
sola avente quantità totale pari alla somma delle singole quantità.



title: Valori duplicati in ListBox.

text:
"DEL_REC" <domanda...@rispodnerecortes.ia> ha scritto nel messaggio
news:ck3o71$12u$1...@news.newsland.it...

Non devi raggruppare per i campi ordine e quantità; quest'ultimo campo campo
eventualmente lo sommi e non lo raggruppi, quanto all'ordine in una query di
reggruppamento penso prorio che non ti serva, quindi toglilo dalla query.



title: Disabilitare una funzione

author: Ringhitt

text:
Buon giorno a tutti.
Ho una funzione sulla maschera "Datori di Lavoro"che parte su "Mouse
spostato su".
Vorrei disabilitarla all'apertura di altre maschere.
Esiste un modo per fare ciň?
Il tutto lavora su Access 97.
Ringrazio anticipatamente per la collaborazione.
Andrea


title: Disabilitare una funzione

author: Roberto da casa

text:
"Ringhitt" <
dfl.a...@tiscalinet.it
> ha scritto nel messaggio
news:9uvdfj$plm$1...@pegasus.tiscalinet.it...
> Buon giorno a tutti.
> Ho una funzione sulla maschera "Datori di Lavoro"che parte su "Mouse
> spostato su".
> Vorrei disabilitarla all'apertura di altre maschere.
> Esiste un modo per fare ciņ?
> Il tutto lavora su Access 97.
> Ringrazio anticipatamente per la collaborazione.
> Andrea
Se la proprietą di cui parli č "Su pulsante mouse su".
Nell'evento "Su apertura" delle altre maschere prova a generare la seguente
riga di codice VBA:
[Forms]![Datori di Lavoro].MouseUp = Null
Non l'ho mai provato, ma magari funziona! :)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Disabilitare una funzione

author: Luciano (DOC)

text:
Ringhitt ha scritto nel messaggio <9uvdfj$plm$
1...@pegasus.tiscalinet.it
>...
>Ho una funzione sulla maschera "Datori di Lavoro"che parte su "Mouse
>spostato su".
>Vorrei disabilitarla all'apertura di altre maschere.
Usa uan variabile globale, la metti come condizione all'inizio della
funzione e la setti a false quando vuoi che la funzioen non venga eseguita.
Saluti.
Luciano


title: come copiare un file su floppy da routine evento di un pulsante?

author: Giuseppe

text:
come da oggetto.
Saluti
Giuseppe


author: Alex De Rossi

text:
"Giuseppe" <
gcondoLev...@libero.it
> ha scritto nel messaggio
news:bvnNa.148447$lK4.4...@twister1.libero.it...
> come da oggetto.
>
> Saluti
> Giuseppe
>
>
Non sottovalutate l' utilità della guida in linea di Access (TASTO F1)
vedi comando copy
Alex De Rossi


author: yQy

text:


Dall'help di access:
-----------------------------------
Il metodo CopyObject esegue l'azione CopiaOggetto in Visual Basic. Per
ulteriori informazioni sul funzionamento dell'azione e dei relativi
argomenti, vedere nella Guida l'argomento relativo all'azione.
Sintassi
DoCmd.CopyObject [databasedestinazione][, nuovonome][,
tipooggettoorigine, nomeoggettoorigine]
Il metodo CopyObject utilizza gli argomenti riportati di seguito.
Argomento	Descrizione
databasedestinazione	Espressione stringa che è il percorso e il
nome del file validi del database nel quale si desidera copiare
l'oggetto. Per selezionare il database corrente omettere questo
argomento.
Se si esegue del codice di Visual Basic contenente il metodo
CopyObject in un database di libreria e si omette questo argomento,
Microsoft Access copia l'oggetto nel database di libreria.
Nuovonome	Espressione stringa che è il nuovo nome dell'oggetto
che si desidera copiare. Per utilizzare lo stesso nome, se si effettua
la copia in un altro database, omettere questo argomento.
Tipooggettoorigine	Una delle seguenti costanti intrinseche:
acDefault (impostazione predefinita)
acForm
acMacro
acModule
acQuery
acReport
acTable
nomeoggettoorigine	Espressione stringa che è il nome valido di un
oggetto del tipo selezionato tramite l'argomento tipooggettoorigine.
Se si esegue del codice di Visual Basic contenente il metodo
CopyObject in un database di libreria, Microsoft Access cerca
l'oggetto con questo nome prima nel database di libreria, quindi nel
database corrente.
Osservazioni
Per questo metodo è necessario specificare l'argomento
databasedestinazione o l'argomento nuovonome o entrambi.
Se si omettono gli argomenti tipooggettoorigine e nomeoggettoorigine
(la costante predefinita per tipooggettoorigine è acDefault),
Microsoft Access copia l'oggetto selezionato nella finestra del
database. Per selezionare un oggetto nella finestra del database, è
possibile utilizzare l'azione SelezionaOggetto o il metodo
SelectObject con l'argomento Da finestra database impostato a Sì
(True).
Se si specificano gli argomenti tipooggettoorigine e
nomeoggettoorigine ma si omette l'argomento nuovonome o l'argomento
databasedestinazione, è necessario includere la virgola dell'argomento
nuovonome o dell'argomento databasedestinazione. Se si omette un
argomento finale, non utilizzare la virgola dopo l'ultimo argomento
specificato.
------------------------------
Esempio preso dall'help:
-------------------------
Nell'esempio riportato di seguito indica come utilizzare il metodo
CopyObject per copiare la tabella Impiegati ed assegnarle un nuovo
nome nel database corrente.
DoCmd.CopyObject, "Copia Impiegati", acTable, "Impiegati"
In alternatica usa Docmd.Transferdatabase:
(acExport invece di acImport)
------------------------------------------
Nell'esempio riportato di seguito viene indicato come importare il
report Northwind - Vendite di aprile dal database NWVendit.mdb di
Microsoft Access nel report Vendite aziendali di aprile nel database
corrente.
DoCmd.TransferDatabase acImport, "Microsoft Access", _
	"C:\DBS\NWVendit.mdb", acReport, "NW Vendite di aprile", _
	"Vendite aziendali di aprile"
Nell'esempio riportato di seguito viene indicato come collegare la
tabella Autori del database ODBC al database corrente.
DoCmd.TransferDatabase acLink, "Database ODBC", _
	"ODBC;DSN=OrigineDati1;UID=Utente2;PWD=www;LANGUAGE=italiano;"
_
	& "DATABASE=pub", acTable, "Autori", "dboAutori"


text:
On Fri, 04 Jul 2003 22:48:39 GMT, "Giuseppe"
<
gcondoLev...@libero.it
> wrote:
>come da oggetto.
>
Quindi un esempio per il floppy e':
Private Sub Bottone_Click()
Dim Floppy
Floppy = "A:\"
'esempio con file copy
FileCopy "C:\tuopercorso\nomefile.mdb", Floppy
'esempio con docmd transferdatabase
'prima tabella
DoCmd.TransferDatabase acExport, , "nomefile.mdb", acTable,
"Tabella1-DaEsportare", "NuovoNomeTabella1"
'seconda tabella
DoCmd.TransferDatabase acExport, , "nomefile.mdb", acTable,
"Tabella2-DaEsportare", "NuovoNomeTabella2"
'terza tabella
DoCmd.TransferDatabase acExport, , "nomefile.mdb", acTable,
"Tabella3-DaEsportare", "NuovoNomeTabella3"
'nuovonometabellaX ovviamente crea una tabella nel database ke
esporti, dagli lo stesso nome delle tabelle che esporti
'esempio:
'DoCmd.TransferDatabase acExport, , "nomefile.mdb", acTable,
"TabellaRubrica", "TabellaRubrica"
End Sub
-----------------------------
Ciao :)


text:
On Sat, 05 Jul 2003 15:08:52 GMT, yQy <
fabrizi...@tin.it
> wrote:
Correzione:
Dim Floppy
Dim NomeFileBackup
Floppy = "A:\"
NomeFileBackup = Copia_di_oggi.mdb"
'esempio con file copy
FileCopy "C:\tuopercorso\nomefile.mdb", Floppy & NomeFileBackup
Ciao, scusa! :)))


title: Prova post

author: emibal

text:
scusate ma non riesco a postare,
questa è una prova


title: Prova post

author: emi

text:
scusate ma non riesco a postare.
questa è solo 1 prova


title: Alcune domande su SQL

author: Mauro

text:
HO un paio di domande su SQL:
ho una serie di tabelle dati in sql, che ho collegato nel mio db in
access. Vorrei proteggere queste tabelle, che siano fruibili solo in
configurazione "read only". Qlcuno sa suggerirmi come fare?
Da un db in access, vorrei convertire le tabelle di access in tabelle
sql, me lo consigliate? che vantaggi porta? e come devo fare per
ottenere queste tabelle?
CIao mau


title: Alcune domande su SQL

author: IgnazioC

text:
On Mon, 05 Dec 2005 18:08:50 +0100, Mauro <
mau...@ticino.com
> wrote:
>HO un paio di domande su SQL:
>
>ho una serie di tabelle dati in sql,
non capisco cosa intendi.
l'SQL è un linguaggio di interrogazione dei database, non è uno può
avere "tabelle dati in sql"
spiegati meglio.
--
IgnazioC
----------------------
www.sitocomune.com
www.patx.net
----------------------


title: Alcune domande su SQL

text:
IgnazioC ha scritto:

INtendo le tabelle generate dal "SQL server" di microsoft
Ciao Mauro


title: Alcune domande su SQL

text: come le chiamate le tabelle generate dal SQL server?


title: origine dati nei campi calcolati

author: Frigster

text:
Ho due query che estrapolano dati da una tabella "spese".
La prima query (Query1) restituisce semplicemente l'elenco delle spese con
un dettaglio di tre campi: "descrizione", "importo" e "data".
Nella seconda query (Query2) le stesse informazioni vengono raggruppate per
"descrizione": resta, appunto, il campo "descrizione", il campo "importo"
diventa "SommaDiImporto", il campo "data" non mi serve più.
Ho costruito una maschera (in visualizzazione maschere continue) che ha come
origine dati "Query1". Tre caselle di testo (txt1, txt2 e txt3) che hanno
come origine, ovviamente, "descrizione", "importo", e "data". Nel "piè di
pagina maschera" ho un campo calcolato (totale) che ha come origine dati
"=Somma([importo])". Tutto questo per visualizzare il mio elenco di spese,
con il dettaglio relativo, e la somma complessiva.
Nel caso io voglia vedere le spese raggruppate sotto un'unica voce ho
pensato di fare così:
DESCRIZIONE    IMPORTO    DATA
Spesa xyz                120,00        10/01/04
Spesa abc                150,00        22/01/04
Spesa xyz                160,00        30/01/04
                            TOTALE    430,00
deve diventare così
DESCRIZIONE    IMPORTO
Spesa abc                150,00
Spesa xyz                 280,00
            TOTALE    430,00
aggiungo un pulsante "raggruppa" che, alla pressione, cambia l'origine dati
della maschera in "Query2", sistema l'origine anche dei campi e sono a
posto. Il problema è che il campo calcolato nel "piè di pagina" non si
aggiorna.
Questo è il codice del pulsante "cmdRaggr" che, all'apertura della maschera,
riporta l'etichetta "Raggruppa":
Private Sub cmdRaggr_Click()
    Select Case cmdRaggr.Caption
        Case Is = "Raggruppa"
            Me.RecordSource = "Query2"
            txt3.visible = False  (questo è il campo della "data", nel caso
di raggruppamento non mi serve)
            txt2.ControlSource = "SommaDiImporto"    (setto il campo
dell'importo con il relativo campo della Query2)
            cmdRaggr.Caption = "Dividi"
            Totale.ControlSource = "=Sum([SommaDiImporto])"
            Me.Requery
        Case Is = "Dividi"
            Me.RecordSource = "Query1"
            txt3.visible = True
            txt2.ControlSource = "Importo"
            cmdRaggr.Caption = "Raggruppa"
            Totale.ControlSource = "=Sum([Importo])"
            Me.Requery
    End Select
End Sub
Quando raggruppo funziona tutto tranne il totale a fondo pagina che mi dà
"#Errore". Se torno a dividere (a rivedere, cioè, tutte le spese
singolarmente) funziona anche il totale.
Come posso risolvere?
Ho anche provato a disegnare un secondo campo (totale2), nel piè di pagina,
mettendo subito, come origine dati, "=Somma([Imorto])" nel primo e
"=Somma([SommaDiImporto])" nel secondo. Ho pensato: "all'apertura della
maschera, il primo campo visualizzerà l'importo mentre il secondo, che cerca
di sommare dati non ancora esistenti, darà errore. Alla pressione di
'Raggruppa', quando l'origine dati diventerà 'Query2', il secondo campo darà
finalmente un risultato mentre il primo, ora, darà errore". Invece dà errore
su tutti e due!
Cercando di sommare dati non ancora esistenti provoca errore anche dove
questi ci sono. Se cancello dalla maschera il secondo campo, il primo torna
a funzionare.
Grazie per l'aiuto.
Frigster.


title: origine dati nei campi calcolati

author: Sergio MAZZA

text:
"Frigster" <frigster$$$$$@
libero.it
> ha scritto nel messaggio
news:XzAPc.27609$OH4.7...@twister1.libero.it...

Invece di utilizzare la funzione Sum (Somma) utilizza la DSum (vedi help)..
Ciao.
--
Sergio MAZZA


title: access e mysql

author: Riccardo

text:
Attualmente ho un db con delle tabelle collegate a mysql (Linux).
Gli utenti li ho definiti con il mysql, assegnandogli le rispettive password
ed account.
C'č un problema.
Il db access č protetto, ma se qualcuno apre un nuovo db, e collega le
tabelle
mysql, puo' fare un casino.
Allora ho pensato:
tolgo tutti gli account e password e faccio in modo che quando fanno
fůpartire il
programma, viene passata in automatico il mio account e la mia password.
E' possibile una cosa del genere?
Come si puo' fare?
grazie Riccardo


title: tasti scorciatoia

author: Paolo opg

text:
sto cercando di associare dei tasti di scelta rapida per alcune funzioni da
eseguire sui record delle maschere.
ho provato con autokeys, ma dà errori che non so gestire, in situazioni
particolari che nella mia situazione sono abba frequenti...
l'unica soluzione che ho trovato sono dei pulsanti trasparenti, a cui
associo il tasto ALT+lettera.
c'è qualche altro modo per associare del codice a una combinazione di tasti?
tnx
    Paolo
--
+----
| no reply-to address available
| use the newsgroup
| tnx
+----


title: tasti scorciatoia

author: Mrok

text:
"Paolo opg" <
w...@ne.com
> ha scritto nel messaggio
news:9lIN7.207588$sq5.10...@news.infostrada.it...

che errori ti da ?


title: tasti scorciatoia

text:
sono rintronato...
è stato sufficiente andare a pranzo e bere un caffè per capire dove ho fatto
la cappellata :-))
solo una domanda: è possibile gestire gli errori che danno le macro quando
si bloccano?
--
+----
| no reply-to address available
| use the newsgroup
| tnx
+----
Mrok <
flag...@tin.it
> wrote in message FbKN7.966$NA1....@news2.tin.it...
> "Paolo opg" <
w...@ne.com
> ha scritto nel messaggio
>



title: problema con campo memo

author: dario

text:
Ciao a tutti, ho il seguente problema che non riesco capire e quindi
risolvere.
estraggo dei dati da una tabella con ADODB e dopo alcunne analisi, se è il
caso li devo inserire in un'altra tabella; l'ottavo campo di entrambe le
tabelle (TPF) è un campo memo, ma quando il codice deve inserire l'ottavo
campo ottengo un errore di runtime -
2147352571
(80020005) con la scritta
"Imcompatibilità tra tipi"
perchè?
allego il codice
Set rst1 = New ADODB.Recordset
Set cmd1 = New ADODB.Command
Set ctl1 = Forms("A dati fattura").Controls.Item("IDF")
With cmd1
    .ActiveConnection = CurrentProject.Connection
    .CommandText = "SELECT [parcelle].[IDF], " & _
            "[parcelle].[PF], " & _
            "[parcelle].[IPF], " & _
            "[parcelle].[CAS], " & _
            "[parcelle].[IVA], " & _
            "[parcelle].[RIT], " & _
            "[parcelle].[TCF], " & _
            "[parcelle].[TPF], " & _
            "[parcelle].[IPFacconto] " & _
            "FROM [parcelle] " & _
            "WHERE [parcelle].[IDF] LIKE '%" & ctl1 & _
            "%' " & _
            "ORDER BY [parcelle].[IDF];"
    .CommandType = adCmdText
    .Execute
End With
rst1.Open cmd1, , adOpenKeyset, adLockOptimistic
--------
per esempio il field TPF contiene "elenco voci 1"
--------
Dim rst2 As ADODB.Recordset
Set rst2 = New ADODB.Recordset
    With rst2
        .ActiveConnection = CurrentProject.Connection
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Source = "SELECT * FROM [Parcelle maschera]"
        .Open
    End With
rst2.AddNew
            rst2("IDF") = rst1(0)
            rst2("PF") = rst1(1)
            rst2("IPF") = rst1(2)
            rst2("TPF") = rst1(3)
            rst2("CAS") = rst1(4)
            rst2("IVA") = rst1(5)
            rst2("RIT") = rst1(6)
            rst2("TCF") = rst1(7)
            rst2("IPFacconto") = rst1(8)
            rst2.Update
grazie
dario


title: problema con campo memo

author: PBsoft

text:
> l'ottavo campo di entrambe le
> tabelle (TPF) è un campo memo, ma quando il codice deve inserire
> l'ottavo campo ottengo un errore di runtime
> -
2147352571
(80020005) con la scritta
> "Imcompatibilità tra tipi"
> .CommandText = "SELECT [parcelle].[IDF], " & _
Supponendo che "[parcelle]" e "[Parcelle maschera]" siano entrambe delle
tabelle, e considerando che tu fai il seguente assegnamento,
> rst2("TCF") = rst1(7)
> .Source = "SELECT * FROM [Parcelle maschera]"
hai controllato che il campo TPF della prima sia dello stesso tipo del campo
TCF della seconda?
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: problema con campo memo

text:
Il Mon, 15 Oct 2007 15:05:16 +0000 (UTC), PBsoft ha scritto:
>> l'ottavo campo di entrambe le
>> tabelle (TPF) è un campo memo, ma quando il codice deve inserire
>> l'ottavo campo ottengo un errore di runtime
>> -
2147352571
(80020005) con la scritta
>> "Imcompatibilità tra tipi"
>
>> .CommandText = "SELECT [parcelle].[IDF], " & _
>
> Supponendo che "[parcelle]" e "[Parcelle maschera]" siano entrambe delle
> tabelle, e considerando che tu fai il seguente assegnamento,
>
>> rst2("TCF") = rst1(7)
>
>> .Source = "SELECT * FROM [Parcelle maschera]"
>
> hai controllato che il campo TPF della prima sia dello stesso tipo del campo
> TCF della seconda?
Ho risolto "brillantemente"
dopo un giorno a cercare di capire il perchè mi sono accorto che, essendo
un genio, avevo sbagliato l'ordine di assegnamento percui il valore memo
cercavo di incollarlo in un campo numerico
grazie comunque della risposta perchè mi sono accorto dell'errore vedendo
la tua >> rst2("TCF") = rst1(7) altrimente non me ne sarei mai accorto
"essendo sicuro" che l'assegnamento fosse giusto
ciao
dario


title: [OT] Access su Linux

author: Carlo Costarella

text:
Interessante questo software che permette di usare un qualsiasi applicativo
Windows anche da Linux (p.e. Ubuntu):
http://www.2x.com/it/applicationserver/
Fino a 5 connessioni è gratuito.
Ciao, Carlo


title: [OT] Access su Linux

text:
"Carlo Costarella" <
carloantoni...@gmail.com
> ha scritto nel
messaggio news:g47b7u$dti$1...@tdi.cu.mi.it...

Interessante (sopratutto l'universal printing); ma lo vedo adatto per grandi
strutture.
Grazie per la segnalazione...
Ciao.
--
Sergio MAZZA


title: [OT] Access su Linux

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:48674cd4$0$29991$5fc...@news.tiscali.it...
cut
> Interessante (sopratutto l'universal printing); ma lo vedo adatto per
> grandi strutture.
> Grazie per la segnalazione...
>
> Ciao.
> --
> Sergio MAZZA
Anche tu di domenica!
Brunetta dovrebbe premiarci.
Un abbraccio, Carlo


title: [OT] Access su Linux

author: greg

text:
Carlo Costarella ha scritto:
> Interessante questo software che permette di usare un qualsiasi
> applicativo Windows anche da Linux
Visto che concede permessi a gruppi o anche range di IP si potrebbe anche
usare Access  da remoto?
Posto che sul server remoto  ovviamente debba girare la parte server di 2X.
--
Greg


title: [OT] Access su Linux

author: -Fabio-

text:
Carlo Costarella wrote:
> Interessante questo software che permette di usare un qualsiasi
> applicativo Windows anche da Linux (p.e. Ubuntu):
>
http://www.2x.com/it/applicationserver/
 Fino a 5 connessioni č
> gratuito.
>
> Ciao, Carlo
Grazie della segnalazione, sembra molto interessante.
Ciao
Fabio


title: [OT] Access su Linux

text:
"greg" <
gre...@invalid.it
> ha scritto
cut
> Visto che concede permessi a gruppi o anche range di IP si potrebbe anche
> usare Access  da remoto?
Esattamente.
> Posto che sul server remoto  ovviamente debba girare la parte server di
> 2X.
>
>
> --
> Greg
Carlo


title: [OT] Access su Linux

text:
"Carlo Costarella" <
carloantoni...@gmail.com
> ha scritto nel
messaggio news:g47mct$mct$1...@tdi.cu.mi.it...
>
> Anche tu di domenica!
> Brunetta dovrebbe premiarci.
Quella dei Ricchi&Poveri?
> Un abbraccio, Carlo
Ciao.
--
Sergio MAZZA


title: [OT] Access su Linux

author: Ammammata

text:
"Carlo Costarella" <
carloantoni...@gmail.com
> wrote in
news:g47mct$mct$
1...@tdi.cu.mi.it
:
> Anche tu di domenica!
>
con l'acqua che veniva giů c'era poco da sfogliar verze
mi son saltate tutte le cose previste all'aperto... per cui in genere si
ripiega su un libro o sul pc :)
--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\


title: [OT] Access su Linux

author: Roberto da Parma

text:
"-Fabio-" <
pippo...@email.it
> ha scritto nel messaggio
news:xn0fs0eo...@127.0.0.1...
> Carlo Costarella wrote:
>
>> Interessante questo software che permette di usare un qualsiasi
>> applicativo Windows anche da Linux (p.e. Ubuntu):
>>
http://www.2x.com/it/applicationserver/
 Fino a 5 connessioni è
>> gratuito.
>>
>> Ciao, Carlo
>
>
> Grazie della segnalazione, sembra molto interessante.
>
> Ciao
> Fabio
Sempre ottime "chicche" !!!
Grazie Carlo
P.s Ci sei alla cisa vero???
--
Roberto da Parma