title: Abilitazione Sottomaschera

author: aless

text:
Ho una maschera con una sottomaschera.
Ho necessita di inserire i dati nella mashera e dopo nella sottomaschera
Per esempio maschera  N°Cliente  sottomaschera OrdiniCliente
Come posso fare per non far inserire OrdiniCliente se prima non ho inserito
N°Cliente?
Saluti Alex


title: Abilitazione Sottomaschera

author: Antonio Biso

text:
"aless" <
ales...@libero.it
> ha scritto nel messaggio
news:5nHc8.3707$Zf3.1...@twister2.libero.it...

Mettendo il controllo sottomaschera non abilitato e poi, su dopo
aggiornamento del N° ordine, se non è vuoto, lo metti abilitato
Antonio


title: Abilitazione Sottomaschera

text:
ho provato ma non funziona non trova la sottomaschera, potresti scrivermi un
esempio grazie!
alex
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:8GJc8.4000$Zf3.1...@twister2.libero.it...



title: Abilitazione Sottomaschera

text:
"aless" <
ales...@libero.it
> ha scritto nel messaggio
news:ZG0d8.4185$6F1.1...@twister2.libero.it...
> ho provato ma non funziona non trova la sottomaschera, potresti scrivermi
un
> esempio grazie!
E' l'ultima volta perň se non scrivi DOPO il quoting
Dovrebbe essere:
nomecontrollosottomaschera.locked = true
con nomecontrollosottomaschera il nome del controllo sottomaschera nella
form principale...
Antonio


title: Immagini Autocad

author: Massimo

text:
Ciao a tutti!
Ho realizzato un db e una tabella rappresenta un indice per un insieme di
disegni di Autocad. Ovviamente devo visualizzare i disegni su una maschera e
stamparli su un report ma sul Cd di Office2000 non ho trovato filtri o
niente di simile che mi consenta di farlo. Qualcuno ha qualche suggerimento
da darmi ? Grazie anticipatamente.
Massimo


title: Nothing e Close

author: bande

text:
Lo ammetto, sono un po' pignolo...ma mi chiedevo qual'e' il modo giusto per
rilasciare gli oggetti recordset e database.
Io faccio cosi':
Dim db as Database
Dim rst as Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset(stringasql,dbOpenDynaset)
...
...
...
...
rst.Close
Set db = Nothing
E' il modo giusto oppure dovrei fare il Close e il Nothing di tutti gli
oggetti?
Bye
--
Andrea


title: Nothing e Close

author: Karl Donaubauer

text:
"bande" <
raggi...@mail.ru
> ha scritto:
> Lo ammetto, sono un po' pignolo...ma mi chiedevo qual'e' il modo giusto per
> rilasciare gli oggetti recordset e database.
> Io faccio cosi':
>
> Dim db as Database
> Dim rst as Recordset
>
> Set db = CurrentDb()
> Set rst = db.OpenRecordset(stringasql,dbOpenDynaset)
> ...
> rst.Close
> Set db = Nothing
>
> E' il modo giusto oppure dovrei fare il Close e il Nothing di tutti gli
> oggetti?
Dato che VBA/DAO hanno più che uno bug nel trattamento del
sblocco di memoria preferisco ad usare tutti e due - come
molti programmatori.
rst.Close : Set rst = Nothing
Set db = Nothing
db.Close non da un errore ma nel caso che db si riferisce al db
corrente non è possibile di chiudere e non vale per niente.
Ce una buona spiegazione da MichKa:
http://www.mvps.org/access/bugs/bugs0005.htm
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Nothing e Close

author: Roberto da casa

text:
"bande" <
raggi...@mail.ru
> ha scritto nel messaggio
news:9o7rlv$bhgpa$1...@ID-65136.news.dfncis.de...

Una risposta al tuo quesito la puoi leggere nel Sito Comune (link qui
sotto), Sezione General, nella FAQ di Sib intitolata "Access si riduce ad
icona invece di chiudersi".
Qualche mese fa nel NG ci si è chiesti se era necessario usare sia il metodo
Close che settare a Nothing tutti gli oggetti aperti prima di abbandonare
una routine. Anche in considerazione a quanto dice l'help circa Nothing, si
arrivò alla conclusione (a mio parere giusta) che era necessario, per
liberare la memoria, alla fine della routine di settare a Nothing tutti gli
oggetti precedentemente aperti, ma che poteva ritenersi ridondante far
precedere tale settaggio dalla chiusura degli oggetti.
Dopo tale discussione io che, alla fine della tua routine di esempio, ero
abituato a scrivere:
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing
mi sono limitato a scrivere solamente:
Set rst = Nothing
Set db = Nothing
senza avere problemi.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Nothing e Close

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:gALp7.518$bf.1...@news.infostrada.it...

Innanzitutto ti ringrazio Roberto, ed anche Karl, per le risposte precise ed
esaurienti.
Ho letto la FAQ di Sib sul Sito Comune ed ho visto che fa riferimento anche
alla possibilita' che si creino loop in una funziona che richiama se stessa.
Mi chiedevo, e lo so che e' dispendiosa, ma e' sostenibile la ricorsione in
Access 97?
Venendo da Access 2.0 (senza possibilita' di utilizzo del treeview) ho
dovuto risolvere il problema della distinta base su n livelli con una
funzione, appunto, ricorsiva.
Qualcuno ha esperienza d'uso della ricorsione con Access. E' possibile
effettuare una gestione dell'errore con questa struttura?
Grazie
--
Andrea


title: Nothing e Close

author: Sib dall'ufficio

text:
"bande" <
raggi...@mail.ru
> ha scritto nel messaggio
CUT
> Innanzitutto ti ringrazio Roberto, ed anche Karl, per le risposte precise
ed
> esaurienti.
> Ho letto la FAQ di Sib sul Sito Comune ed ho visto che fa riferimento
anche
> alla possibilita' che si creino loop in una funziona che richiama se
stessa.
> Mi chiedevo, e lo so che e' dispendiosa, ma e' sostenibile la ricorsione
in
> Access 97?
> Venendo da Access 2.0 (senza possibilita' di utilizzo del treeview) ho
> dovuto risolvere il problema della distinta base su n livelli con una
> funzione, appunto, ricorsiva.
> Qualcuno ha esperienza d'uso della ricorsione con Access. E' possibile
> effettuare una gestione dell'errore con questa struttura?
Non e' che si creino loop da soli, io mi riferivo a errori nel codice. Non
errori di sintassi, che verrebbero prontamente segnalati, ma errori
concettuali, es se fai due funzioni che si richiamano a vicenda bisogna
verificare che ci sia comunque una uscita dal ciclo se non vuoi rischiare di
"allooppare" (passami il termine) il codice.
La ricorsione e' sostenibile in tutti i linguaggi di programmazione
strutturati, basta stare attenti all "vie di fuga" dal loop se le condizioni
di uscita non si verificano.
Tutti i programmatori hanno esperienza della ricorsione e, ovviamente, la
gestione degli errori e' sempre possibile.
Ciao
Sib
Sib


title: Stampa Report Unico

author: TiTaNiUm

text:
ciao geni, ho un'altro piccolo problema (lo so sono ignorante in materia),
ho creato una maschera Fatture con il suo report e naturalmente sul report
mi vengo presentate tutte le fatture presenti nel database. Ora vorrei
mettere sulla maschera un pulsante di comando "stampa fattura corrente" che
quindi mi deve stampare solo la fattura 10 e non tutte le 20 fatture
presenti. Forse chiedo troppo se è possibile scegliere il numero di copie da
fare... vabbè spero almeno di poter ricevere la soluzione per la stampa
della singola fattura. GRAZIE!!!


title: Stampa Report Unico

text:
"TiTaNiUm" <
enzo.fu...@tin.it
> ha scritto nel messaggio
news:z9O79.228187$Jj7.5...@news1.tin.it...
> ciao geni, ho un'altro piccolo problema (lo so sono ignorante in materia),
> ho creato una maschera Fatture con il suo report e naturalmente sul report
> mi vengo presentate tutte le fatture presenti nel database. Ora vorrei
> mettere sulla maschera un pulsante di comando "stampa fattura corrente"
che
> quindi mi deve stampare solo la fattura 10 e non tutte le 20 fatture
> presenti. Forse chiedo troppo se č possibile scegliere il numero di copie
da
> fare... vabbč spero almeno di poter ricevere la soluzione per la stampa
> della singola fattura. GRAZIE!!!
>
crea una query di selezione e nel campo criteri del numero fattura metti
=forms![tuaform]![controllofattura]
poi associ al report tale query
per il numero di copie non č bello ma funziona, forse ci sono modi piů
intelligenti ma fai cosi
dim i
for i = 1 to numerodicopie
docmd.opereport "fattura",,acviewnormal
next i
numerodicopie = quante copie vuoi in numero
ciao.


title: Stampa Report Unico

text:
ok grazie mille ci provo e ti faccio sapere :-)
"@----- Pinco --@-- Pallino -----@" <
tos...@libero.it
> ha scritto nel
messaggio news:MhO79.73685$n04.2...@twister2.libero.it...



title: Maschera madre

author: Gruppillo Renato

text:
ciao a tutti, io riprovo a chiedere consigli, sperando che mi vada bene.
Come posso eliminare o disabilitare dalla maschera madre di access solo il
pulsantino (X) per evitare di far chiudere l'applicazione, senza però
togliere riduci, ridimenzione e icona; cosi come fà il suggerimento che ho
trovato su sito comune.
grazie a tutti per i possibili suggerimenti


title: campo contatore su form

author: Gaetano Di Zanni

text:
Volendo rappresentare il numero di record raggiunto da una tabella,
contestualmente alla registrazione dei record stessi, ho pensato di
riportare un controllo sulla form che uso per inserire gli stessi record.
Tale controllo (casella di testo) trae origine da una query in cui ho il
campo MaxIdRecord (idrecord è contatore). Facendo le prove però non mi
funziona, dove sbaglio ?
Un caro saluto a tutti.


title: campo contatore su form

text:
"Gaetano Di Zanni" <
gaetano...@tiscali.it
> ha scritto nel messaggio
news:420df270$0$32338$5fc...@news.tiscali.it...

Post scriptum: ho anche impostato il timer della form a 1000 e un requery
sull'evento timer...


title: campo contatore su form

author: cidi

text:
"Gaetano Di Zanni" <
gaetano...@tiscali.it
> ha scritto nel messaggio
news:420df57e$0$32344$5fc...@news.tiscali.it...

Ciao Gaetano
ma con Dcount ("*" , "NomeTabella") non trovi il numero dei record?
forse non ho capito la tua domanda.....
---
Daniele


title: campo contatore su form

text:
"cidi" <
dadonz...@tin.it
> ha scritto nel messaggio
news:ninPd.879171$35.33...@news4.tin.it...

Ciao Daniele, Hai capito bene, ma io voglio tale valore in un controllo
sulla stessa form dove introduco i records, contestualmente
all'introduzione...
Tra l'altro sto forse rimbecillendo perchè pur essendo una funzione semplice
(help on line) non riesco a uscirne fuori...
Grazie


title: campo contatore su form

text:
"Gaetano Di Zanni" <
gaetano...@tiscali.it
> ha scritto nel messaggio
news:420e0cbe$0$6315$5fc...@news.tiscali.it...

cosa ti impedisce di farlo?
se nell'origine controllo di una casella di testo inserisci:
=Dcount ("*" , "NomeTabella")
che succede?
> Tra l'altro sto forse rimbecillendo perchè pur essendo una funzione
> semplice
> (help on line) non riesco a uscirne fuori...
> Grazie
Ciao Gaetano
stai calmo.....lascia stare i capelli :-)
che prima o poi risolveremo.....
---
Daniele


title: campo contatore su form

text:
"cidi" <
dadonz...@tin.it
> ha scritto nel messaggio
news:J8pPd.879682$35.33...@news4.tin.it...

Daniele, mi dà errore di sintassi: Operatore od operando mancante, virgola
mancante etc etc..), viceversa funziona se sostituisco la virgola col
puntovirgola, così:  =Dcount ("*" ; "NomeTabella"). In effetti, per
correttezza avevo sistemato grazie all'aiuto di Alfredo Crea, il quale
probabilmente non accorgendosi, mi risponde sulla mia e-mail. Grazie
comunque a tutt'e due.
Per un punto virgola.... a proposito è dovuto sicuramente alla versione di
Access, ma si può ovviare all'inconveniente?


title: campo contatore su form

text:
"Gaetano Di Zanni" <
gaetano...@tiscali.it
> ha scritto nel messaggio
news:420e2313$0$32332$5fc...@news.tiscali.it...
>
> "cidi" <
dadonz...@tin.it
> ha scritto nel messaggio
> news:J8pPd.879682$35.33...@news4.tin.it...
>> >>
>> > Ciao Daniele, Hai capito bene, ma io voglio tale valore in un controllo
>> > sulla stessa form dove introduco i records, contestualmente
>> > all'introduzione...
>>
>> cosa ti impedisce di farlo?
>> se nell'origine controllo di una casella di testo inserisci:
>> =Dcount ("*" , "NomeTabella")
>> che succede?
>>
>> > Tra l'altro sto forse rimbecillendo perchè pur essendo una funzione
>> > semplice
>> > (help on line) non riesco a uscirne fuori...
>> > Grazie
>>
>> Ciao Gaetano
>> stai calmo.....lascia stare i capelli :-)
>> che prima o poi risolveremo.....
>>
>> ---
>> Daniele
> Daniele, mi dà errore di sintassi: Operatore od operando mancante, virgola
> mancante etc etc..), viceversa funziona se sostituisco la virgola col
> puntovirgola, così:  =Dcount ("*" ; "NomeTabella"). In effetti, per
> correttezza avevo sistemato grazie all'aiuto di Alfredo Crea, il quale
> probabilmente non accorgendosi, mi risponde sulla mia e-mail. Grazie
> comunque a tutt'e due.
> Per un punto virgola.... a proposito è dovuto sicuramente alla versione di
> Access, ma si può ovviare all'inconveniente?
>
Ciao Gaetano
mi sono rinfrescato la memoria leggendo questo 3d:
http://groups.google.com/groups?hl=it&lr=&threadm=HGwra.76867%24iy5.2343634%40twister2.libero.it&rnum=1&prev=/groups%3Fhl%3Dit%26lr%3D%26q%3D%2B%2522dcount%2522%2Bgroup%253Ait.comp.appl.access%2Bpunto%2Be%2Bvirgola
sarà chiaro anche a te l'errore che facevamo .... :-)
---
Daniele


title: campo contatore su form

text:
"cidi" <
dadonz...@tin.it
> ha scritto nel messaggio
news:RmqPd.532578$b5.24...@news3.tin.it...

Già! in effetti era quello. Il problema è che è facile scordarsi fra qualche
tempo...
Grazie tantissime per tutto.


title: Help principiante per database gestione ore e spese

author: Ermanno Porrini

text:
Buongiorno a tutti,
sono un nuovo frequentatore del NG.
Conosco vagamente Access, ho già realizzato semplici database, ma ora ho
esigenza di qualcosa di più complesso per la gestione di ore e spese per
conto clienti e non riesco a focalizzare l'utilizzo delle relazioni.
Dove posso trovare un semplice esempio di partenza da adatattare alle mie
esigenze specifiche?
Premetto le caratteristiche:
- Tabella Clienti
- Tabella pratiche (più pratiche per un cliente)
- Tabella registrazione ore lavorative e spese (più registrazioni per ogni
pratica)
- Maschera di inserimento clienti e pratiche
- Maschera di inserimento ore e spese, con possibilità di assegnare le
stesse ad una deteminata pratica di un determinato cliente (del tipo a
selezione da casella a scorrimento)
Il tutto per avere dei report per cliente e dei report per pratica.
Ho già realizzato qualcosa ma non riesco ad ottimizzarlo.
Ringrazio anticipatamente chi mi sarà d'aiuto.
Ermanno


author: Roberto dal portatile

text:
"Ermanno Porrini" <
por...@libero.it
> ha scritto nel messaggio
news:Lxv97.4037$y_3.4...@news.infostrada.it...

Se usi Access 97 (non so se esista anche per Access 2000) con
l'Autocomposizione Database creati il database Gestione manutenzione.
Dovrebbe essere una valida traccia per quello che vuoi realizzare tu.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Numerare i record

author: Alessandro

text:
Ciao a tutti,
ho un problema che mi assilla da un po di tempo e che non trova soluzione.
Esiste la possibilita di numerare i record contenuti in una sottomaschera in
modalità
maschere continue (1,2,3...).
La cosa dovrebbe essere dinamica quindi vorrei usare un controllo non
associato e il valore non mi serve memorizzarlo.
Uso Access 2000 e la cosa che piu' mi da fastidio é che con filemaker la
cosa si puo' fare molto facilmente.
Qualche idea?
Grazie
Alessandro


title: Numerare i record

author: Alex

text:
"Alessandro" <
ale...@tin.it
> wrote in message
news:BMaq9.49193$
cS4.1...@news2.tin.it

Ti passo una Funzione di Lebans che realizza egregiamente ciò
che chiedi.
Per farla funzionare basta inserire una TXT_BOX e inserire
nella sua Origine =GetLineNumberForm(TuaForm)
Ciao @Alex
'Copyright Stephen Lebans 1999
'May not be resold
'Please include my 1 line Copyright notice
'in your code if you use these functions
'I left a bunch of development code in here in case anyone decides to go
'down the same paths I did.
'********************************************
'Only USE GetLineNumberForm  and   Serialize
'********************************************
'Stephen Lebans with help from Chris Bergmans
'Production version of GetLineNumberForm
'Works in Form or SubForm mode
'Set controlsource of unbound Text box to
'= GetLineNumberForm([Form])
'Type exactly as above
Function GetLineNumberForm(f As Form)
    Dim rs As Recordset
    Dim frmMain As Form
    Dim frmCur As Form
    Dim strNAME As String
    Dim IsItSubForm As Boolean
    Dim strFName As String

    'is the form referenced in the parameter currently
    'loaded as a SubForm?
    'Check it parent property to find out.

    On Error Resume Next
    strFName =
f.Parent.Name
    IsItSubForm = (Err = 0)

    'Point to our error handler
    On Error GoTo Err_GetLineNumber

    If IsItSubForm Then
        'its a SubForm
        Set frmMain = f.Parent.Form
        strNAME = f.Name
        Set frmCur = frmMain(strNAME).Form
        Set rs = frmCur.RecordsetClone

    Else
        'It's not a SubForm
        Set rs = f.RecordsetClone
        Set frmCur = f
    End If

        ' Find the current record.
        rs.Bookmark = frmCur.Bookmark
        GetLineNumberForm = rs.AbsolutePosition + 1
Bye_GetLineNumber:
       Set rs = Nothing
       Set frmMain = Nothing
       Set frmCur = Nothing
       Exit Function
Err_GetLineNumber:
       Resume Bye_GetLineNumber
End Function
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Numerare i record

author: Claudio

text:
"Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:18cd2e1ad1d0515ae5...@mygate.mailgate.org...
> Ti passo una Funzione di Lebans che realizza egregiamente ciņ
> che chiedi.
> Per farla funzionare basta inserire una TXT_BOX e inserire
> nella sua Origine =GetLineNumberForm(TuaForm)
Molto carina. Ci stavo provando anch'io ma non ero ancora riuscito. Non ero a
conoscenza della proprietą AbsolutePosition :-)
Ciao. Claudio.


title: Numerare i record

text:
"Claudio" <cld@NOSPAM&COsupereva.it> wrote in message
news:OPbq9.40000$
Fz.11...@news1.tin.it
> "Alex" <
ik2...@libero.it
> ha scritto nel messaggio
> news:18cd2e1ad1d0515ae5...@mygate.mailgate.org...
> > Ti passo una Funzione di Lebans che realizza egregiamente ciò
> > che chiedi.
> > Per farla funzionare basta inserire una TXT_BOX e inserire
> > nella sua Origine =GetLineNumberForm(TuaForm)
>
> Molto carina. Ci stavo provando anch'io ma non ero ancora riuscito. Non ero a
> conoscenza della proprietà AbsolutePosition :-)
> Ciao. Claudio.
Beh, sapere tutto è sempre difficile...!  ;-)
L'unico difetto di questa procedura è che in caso
di scorrimento veloce l'aggiornamento del campo
non è in tempo reale, ma si nota un leggero ritardo
dovulo alla calcolata....!!!
PAZIENZA.
Ciao @Alex



title: Numerare i record

text:
"Alessandro" <
ale...@tin.it
> ha scritto nel messaggio
news:BMaq9.49193$cS4.1...@news2.tin.it...

In alternativa all'ottima soluzione proposta da Alex, puoi anche usare
questa funzione proposta da Mamma Microsoft:
      Function GetLineNumber(F As Form, KeyName As String, KeyValue)
         Dim RS As Recordset
         Dim CountLines
         On Error GoTo Err_GetLineNumber
         Set RS = F.RecordsetClone
         ' Find the current record.
         Select Case RS.Fields(KeyName).Type
            ' Find using numeric data type key value?
            Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _
            DB_DOUBLE, DB_BYTE
               RS.FindFirst "[" & KeyName & "] = " & KeyValue
            ' Find using date data type key value?
            Case DB_DATE
               RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#"
            ' Find using text data type key value?
            Case DB_TEXT
               RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'"
            Case Else
               MsgBox "ERROR: Invalid key field data type!"
               Exit Function
         End Select
         ' Loop backward, counting the lines.
         Do Until RS.BOF
            CountLines = CountLines + 1
            RS.MovePrevious
         Loop
Bye_GetLineNumber:
         ' Return the result.
         GetLineNumber = CountLines
         Exit Function
Err_GetLineNumber:
         CountLines = 0
         Resume Bye_GetLineNumber
      End Function
Nell'origine record della casella di testo non associata in cui vuoi
visualizzare il numero progressivi scrivi:
=GetLineNumber([Form];"ID";[ID])
Dove ID è il nome della chiave primaria che è origine record della
sottomascchera.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Numerare i record

text:
Grazie mille!!!
era quello che cercavo
Alessandro


title: Numerare i record

author: Maurizio Borrelli

text:
> "Roberto da casa" news:vZgq9.25955$
RO.6...@twister1.libero.it
:
> > "Alessandro" news:BMaq9.49193$
cS4.1...@news2.tin.it
:
> > Esiste la possibilita di numerare i record contenuti in una
sottomaschera
> > in modalità maschere continue (1,2,3...).
> > La cosa dovrebbe essere dinamica quindi vorrei usare un controllo non
> > associato e il valore non mi serve memorizzarlo.
> > Uso Access 2000 e la cosa che piu' mi da fastidio é che con filemaker la
> > cosa si puo' fare molto facilmente.
> > Qualche idea?
> In alternativa all'ottima soluzione proposta da Alex, puoi anche usare
> questa funzione proposta da Mamma Microsoft:
>       Function GetLineNumber(F As Form, KeyName As String, KeyValue)
[...]
> Nell'origine record della casella di testo non associata in cui vuoi
> visualizzare il numero progressivi scrivi:
> =GetLineNumber([Form];"ID";[ID])
> Dove ID è il nome della chiave primaria che è origine record della
> sottomascchera.
    Roberto!... Mi meraviglio di te... Come mai non usi una funzione di
aggregazione?
    :-))
    Per esempio:
        =DCount("*"
               ;[RecordSource]
               ;"[ID]<=" & [ID]
               & IIf([FilterOn];" AND " & [Filter];""))
    Ovviamente l'origine record dovra' essere un nome di una query salvata,
come e' sempre igienico che sia, dopotutto.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: Numerare i record

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:aockvv$kpsnj$1...@ID-52090.news.dfncis.de...
> > "Roberto da casa" news:vZgq9.25955$
RO.6...@twister1.libero.it
:
> > > "Alessandro" news:BMaq9.49193$
cS4.1...@news2.tin.it
:
[CUT]
>
>     Roberto!... Mi meraviglio di te... Come mai non usi una funzione di
> aggregazione?
>
>     :-))
>
>     Per esempio:
>
>         =DCount("*"
>                ;[RecordSource]
>                ;"[ID]<=" & [ID]
>                & IIf([FilterOn];" AND " & [Filter];""))
>
>     Ovviamente l'origine record dovra' essere un nome di una query
salvata,
> come e' sempre igienico che sia, dopotutto.
Visto che si sta parlando di record visualizzati in una sottomaschera, i
criteri della DCount dovrebbero selezionare il conteggio anche in base alla
chiave primaria della maschera principale e comunque la soluzione
funzionerebbe solamente a condizione che i record fossero ordinati per ID,
cosa non necessariamente vera.
Per risolvere il problema con una funzione di aggregazione sui dominii la
cosa migliore sarebbe quella di creare nella query, con una DCount, un campo
calcolato progressivo al livello di chiave primaria della maschera
principale ed in base alla chiave di ordinamento e visualizzare quello nella
sottomaschera; però si rischia di impostare i criteri della DCount anche su
un campo calcolato della query stessa e forse sarebbe veramente lentino,
specie se i record nella query fossero parecchini.
Comunque, sono d'accordo con te che esistono soluzioni con le funzioni di
aggregazione sui dominii. :-))
>
> --
> Ciao :-)
> Maurizio
> --------
> ?SPQR(C)
>  X
> --------
--



title: Numerare i record

text:
> "Roberto da casa" news:dSlq9.27632$
RO.6...@twister1.libero.it
:
> > "Maurizio Borrelli" news:aockvv$kpsnj$
1...@ID-52090.news.dfncis.de
:
[...]
> Comunque, sono d'accordo con te che esistono soluzioni con le funzioni di
> aggregazione sui dominii. :-))
    Perche' io ai miei braccini ci tengo...



title: Numerare i record

text:
> "Alessandro" news:BMaq9.49193$
cS4.1...@news2.tin.it
:

    Potresti, per favore, testare questo codice che ho appena scritto e
farmi sapere come funziona e quali eventuali problemi presenta?
    Ovviamente la richiesta e' estesa a tutti i frequentatori del ng che
vorranno cortesemente perdere un po' di tempo.
    Grazie.
    Copia in un modulo la seguente funzione e per testarla assegna
all'origine controllo di una casella di testo la formula:
        =GetRecNum()
Public Function GetRecNum( _
) As Long
  On Error GoTo erh
  With CodeContextObject.RecordsetClone
    If (.BOF = True) And (.EOF = True) Then
    Else
      .Bookmark = CodeContextObject.Bookmark
      GetRecNum = .AbsolutePosition + 1
    End If
  End With
ext:
  Exit Function
erh:
  GetRecNum = 0
  Resume ext
End Function



title: Numerare i record

author: Ettore Manara

text:
"Maurizio Borrelli"
>    Ovviamente la richiesta e' estesa a tutti i frequentatori del ng che
> vorranno cortesemente perdere un po' di tempo.
>     Copia in un modulo la seguente funzione e per testarla assegna
> all'origine controllo di una casella di testo la formula:
>   With CodeContextObject.RecordsetClone
>     If (.BOF = True) And (.EOF = True) Then
>     Else
>       .Bookmark = CodeContextObject.Bookmark
>       GetRecNum = .AbsolutePosition + 1
>
>     End If
>   End With
Non sapevo esistesse la proprietà CodeContextObject ... complimenti!
Una domanda non è meglio la condizione seguente?
     If (.BOF = false) or (.EOF = false) Then
                     .Bookmark = CodeContextObject.Bookmark
                     GetRecNum = .AbsolutePosition + 1
      End if
Ciao, Ettore


title: Numerare i record

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:aof6fe$mbdmv$1...@ID-52090.news.dfncis.de...
>     Potresti, per favore, testare questo codice che ho appena scritto e
> farmi sapere come funziona e quali eventuali problemi presenta?
>
>     Ovviamente la richiesta e' estesa a tutti i frequentatori del ng che
> vorranno cortesemente perdere un po' di tempo.
Windows 2000 SP2 ITA - Access 2000 SR1 ITA
A una prima prova sembra funzionare senza problemi.
Sono solo un po' turbato dalla strana struttura if/then/else ;-)
Ciao. Claudio.


title: Numerare i record

text:
> Non sapevo esistesse la proprietà CodeContextObject ... complimenti!
> Una domanda non è meglio la condizione seguente?
>
>      If (.BOF = false) or (.EOF = false) Then
>                      .Bookmark = CodeContextObject.Bookmark
>                      GetRecNum = .AbsolutePosition + 1
>       End if
>
> Ciao, Ettore
Beh, complimenti a MAURIZIO per la fantasia
, anche se non è necessario visto lo spessore....!!
Io mi permetto di aggiungere un ulteriore ricamo....:
      If not(.BOF AND .EOF) Then
                      .Bookmark = CodeContextObject.Bookmark
                      GetRecNum = .AbsolutePosition + 1
      End if
Ciao a tutti.



title: Numerare i record

text:
> "Ettore Manara" news:p2Hq9.31820$%
M1.8...@twister2.libero.it
:
> > "Maurizio Borrelli":
[...]
> Una domanda non č meglio la condizione seguente?
>      If (.BOF = false) or (.EOF = false) Then
    Quando scrivo codice scrivo sempre prima:
        If (...) Then
        Else
        End If
poi aggiungo il resto. E lascio tutto cosi' come sta finche' non ho
completato i test, fase questa in cui potrebbe essere utile il "ramo morto"
per una riga di debug o un msgbox. Una volta stabilito che quel "ramo" non
serve scrivo:
        If Not (...) Then
        End If
in modo che in una eventuale manutenzione successiva sia possibile
ripristinare il ramo Else senza sprecare nemmeno uno dei miei ultimi e
scarsi neuroni. Sai com'e'... non ho piu' diciott'anni e vado quasi per il
triplo...



title: Numerare i record

author: Fabrizio

text:
On Tue, 15 Oct 2002 09:01:25 +0200, "Maurizio Borrelli"
<
maurizio...@freepass.it
> wrote:
>> "Ettore Manara" news:p2Hq9.31820$%
M1.8...@twister2.libero.it
:
>> > "Maurizio Borrelli":
>Sai com'e'... non ho piu' diciott'anni e vado quasi per il
>triplo...
Allora due conti so farli anch'io: 18 più 18 fa 36 , 36 più quasi 18 ,
facciamo 16, ......   allora .... numble ..... 6 e 6 ..... 2 ..riporto
1 ..... 3 più 1 più 1 ....5 ... 5 e 2 .... 52 :
MINCHIA CHE VECCHIO!!.:-)
Ciao. Fabrizio


title: Numerare i record

text:
"Fabrizio" <
> MINCHIA CHE VECCHIO!!.:-)
Ma io ti stacco le orecchie!!!
Ti faccio notare che i cinquantenni hanno molta più esperienza di voi
sbarbatelli  ;-))
Ciao: Ettore (il triplo - qualcosa)


title: Numerare i record

text:
On Tue, 15 Oct 2002 07:19:44 GMT, "Ettore Manara"
<
ettore...@libero.it
> wrote:
>
>"Fabrizio" <
>
>> MINCHIA CHE VECCHIO!!.:-)
>
>Ma io ti stacco le orecchie!!!
>Ti faccio notare che i cinquantenni hanno molta più esperienza di voi
>sbarbatelli  ;-))
Quanta bella giovinezza .... chi vuol esser lieto sia , del doman non
v'è certezza :-)
Ciao. Fabrizio


title: Numerare i record

text:
> "Maurizio Borrelli" news:aof6fe$mbdmv$
1...@ID-52090.news.dfncis.de
:
[...]
    Gia' che c'ero ho voluto provare a vedere se la stessa logica puo'
essere usata per le (famose) somme parziali. A prima vista sembra
funzionare. Mi fate sapere qualcosa, per favore? Grazie.
Public Function GetRunningSum( _
  ByVal FieldName As String _
) As Double
  On Error GoTo erh
  Dim obj As Object
  Dim sql As String
  Dim rst As DAO.Recordset
  Set obj = CodeContextObject
  With obj.RecordsetClone
    If Not ((.BOF = True) And (.EOF = True)) Then
      .Bookmark = obj.Bookmark
      sql = "SELECT"
      sql = sql & " Sum([FieldValue]) AS [TopSum]"
      sql = sql & " FROM"
      sql = sql & " ("
      sql = sql & " SELECT TOP " & .AbsolutePosition + 1
      sql = sql & " [" & FieldName & "] AS FieldValue"
      sql = sql & " FROM"
      sql = sql & " ([" &
obj.Recordset.Name
 & "])"
      sql = sql & " )"
      Set rst _
        = CurrentDb.OpenRecordset( _
              sql _
            , DAO.dbOpenSnapshot _
            , DAO.dbFailOnError)
      GetRunningSum = rst![TopSum]
    End If
  End With
ext:
  On Error Resume Next
  rst.Close
  Set rst = Nothing
  Set obj = Nothing
  Exit Function
erh:
  GetRunningSum = 0



title: Numerare i record

text:
"Fabrizio" <fabrizio...@SPAMtiscalinet.it> wrote in message
news:tainquov30t9ab7u0...@4ax.com
[CUT]
>
> Quanta bella giovinezza .... chi vuol esser lieto sia , del doman non
> v'è certezza :-)
>
> Ciao. Fabrizio
"Magnifico"...... ;-)



title: Numerare i record

text:
On Tue, 15 Oct 2002 09:44:43 +0000 (UTC), "Alex" <
ik2...@libero.it
>
wrote:
>"Fabrizio" <fabrizio...@SPAMtiscalinet.it> wrote in message
>
news:tainquov30t9ab7u0...@4ax.com
>
>[CUT]
>>
>> Quanta bella giovinezza .... chi vuol esser lieto sia , del doman non
>> v'è certezza :-)
>>
>> Ciao. Fabrizio
>
>"Magnifico"...... ;-)
>
>@Alex
Grazie per l'apprezzamento ... ah non dicevi a me . :-)
cmq per chi a voglia di rileggerla :
http://www.fausernet.novara.it/fauser/biblio/lorenzo/lorenzo1.htm#lore7
Ciao. Fabrizio


title: Numerare i record

author: Alessandro Cara

text:
Alex wrote:
>
> "Fabrizio" <fabrizio...@SPAMtiscalinet.it> wrote in message
>
news:tainquov30t9ab7u0...@4ax.com
>
> [CUT]
> >
> > Quanta bella giovinezza .... chi vuol esser lieto sia , del doman non
> > v'è certezza :-)
> >
> > Ciao. Fabrizio
>
> "Magnifico"...... ;-)
>
> @Alex
a me me pare 'na schifezza
--
Lorenzo


title: Numerare i record

text:
On Tue, 15 Oct 2002 12:01:49 +0200, Alessandro Cara <
al...@blunet.it
>
wrote:
>Alex wrote:
>>
>> "Fabrizio" <fabrizio...@SPAMtiscalinet.it> wrote in message
>>
news:tainquov30t9ab7u0...@4ax.com
>>
>> [CUT]
>> >
>> > Quanta bella giovinezza .... chi vuol esser lieto sia , del doman non
>> > v'č certezza :-)
>> >
>> > Ciao. Fabrizio
>>
>> "Magnifico"...... ;-)
>>
>> @Alex
>a me me pare 'na schifezza
Ignorante , inacculturato e puzzone :-))
Ti offro poesia e tu sprezzi: con te non ci parlo piů!! :-)
Ciao. Fabrizio


title: Numerare i record

text:
> "Maurizio Borrelli" news:aoghob$md8n1$
1...@ID-52090.news.dfncis.de
:
[...]
    Scusate ancora...
    Ho aggiunto la gestione dei filtri e dell'ordinamento.
Public Function GetRunningSum( _
  ByVal FieldName As String _
) As Double
  On Error GoTo erh
  Dim frm As Access.Form
  Dim sql As String
  Dim rst As DAO.Recordset
  Set frm = CodeContextObject
  With frm.RecordsetClone
    If Not ((.BOF = True) And (.EOF = True)) Then
      .Bookmark = frm.Bookmark
      sql = "SELECT"
      sql = sql & " Sum([FieldValue]) AS [TopSum]"
      sql = sql & " FROM"
      sql = sql & " ("
      sql = sql & " SELECT TOP " & .AbsolutePosition + 1
      sql = sql & " [" & FieldName & "] AS [FieldValue]"
      sql = sql & " FROM"
      With frm
        sql = sql & " ([" & .Recordset.Name & "])"
        If (.FilterOn = True) Then
          sql = sql & " WHERE"
          sql = sql & .Filter
        End If
        If (.OrderByOn = True) Then
          sql = sql & " ORDER BY"
          sql = sql & .OrderBy
        End If
      End With
      sql = sql & " )"
      Set rst _
        = CurrentDb.OpenRecordset( _
              sql _
            , DAO.dbOpenSnapshot _
            , DAO.dbFailOnError)
      GetRunningSum = rst![TopSum]
    End If
  End With
ext:
  On Error Resume Next
  rst.Close
  Set rst = Nothing
  Set frm = Nothing



title: Numerare i record

text:
> >> Quanta bella giovinezza .... chi vuol esser lieto sia , del doman non
> >> v'è certezza :-)
> >> Ciao. Fabrizio
> >
> >"Magnifico"...... ;-)
> >@Alex
>
> Grazie per l'apprezzamento ... ah non dicevi a me . :-)
Già, ma Alessandro pare, e dico pare, non ci ha capito...!!!
Che ci vogliamo fare...???



title: Numerare i record

text:
Alex wrote:
>
> > >> Quanta bella giovinezza .... chi vuol esser lieto sia , del doman non
> > >> v'è certezza :-)
> > >> Ciao. Fabrizio
> > >
> > >"Magnifico"...... ;-)
> > >@Alex
> >
> > Grazie per l'apprezzamento ... ah non dicevi a me . :-)
>
> Già, ma Alessandro pare, e dico pare, non ci ha capito...!!!
> Che ci vogliamo fare...???
e gia' mi tocca cercare dei "medici" boni
--
a.cara


title: Numerare i record

text:
Fabrizio wrote:
[cut]
> Ignorante , inacculturato e puzzone :-))
sei un veggente?
> Ti offro poesia e tu sprezzi: con te non ci parlo più!! :-)
Perche' che ho fatto?
--
a.cara


title: Numerare i record

text:
On Tue, 15 Oct 2002 13:19:34 +0200, Alessandro Cara <
al...@blunet.it
>
wrote:
>Fabrizio wrote:
>[cut]
>> Ignorante , inacculturato e puzzone :-))
>sei un veggente?
Ovvio che si !!! :-)
>> Ti offro poesia e tu sprezzi: con te non ci parlo più!! :-)
>Perche' che ho fatto?
Niente ma c'ho voglia di tirarmela da intelettuale :-)
Ciao. Fabrizio


title: Numerare i record

text:
On Tue, 15 Oct 2002 13:16:22 +0200, Alessandro Cara <
al...@blunet.it
>
wrote:
>Alex wrote:

Non fare il pazzo!!:-)
Ciao. Fabrizio


title: Numerare i record

text:
On Tue, 15 Oct 2002 11:06:48 +0000 (UTC), "Alex" <
ik2...@libero.it
>
wrote:
>> >> Quanta bella giovinezza .... chi vuol esser lieto sia , del doman non
>> >> v'è certezza :-)
>> >> Ciao. Fabrizio
>> >
>> >"Magnifico"...... ;-)
>> >@Alex
>>
>> Grazie per l'apprezzamento ... ah non dicevi a me . :-)
>
>
>Già, ma Alessandro pare, e dico pare, non ci ha capito...!!!
>Che ci vogliamo fare...???
Niente lasciamolo nella sua ignoranza: è un uomo senza scalogno !! :-)
Ciao. Fabrizio


title: Numerare i record

text:

sono portato a pensare che la vostra sia una congiura
sara' bene fuggire a rotta di collo
--
a.cara


title: Numerare i record

author: Massimiliano Amendola  kksrl

text:
>
> >Fabrizio wrote:
> >[cut]
> >> Ignorante , inacculturato e puzzone :-))
> >sei un veggente?
>
> Ovvio che si !!! :-)
>
> >> Ti offro poesia e tu sprezzi: con te non ci parlo più!! :-)
> >Perche' che ho fatto?
>
> Niente ma c'ho voglia di tirarmela da intelettuale :-)
>
> Ciao. Fabrizio
Fabri, confessa... Amanda se n'è andata...
che ci vuoi fare... (Amanda gliel'ho detto.. non non gli ho detto che sei
venuta da me... lo so che ci rimane male...)
Fatti forza
ciao MAssimiliano


title: Numerare i record

text:
> "Alessandro Cara"
news:3DAC15CB...@blunet.it
:
> > Fabrizio:
> > > Alessandro Cara:
> > > > Alex:
> > > > > > > Quanta
    (sic!)
> > > > > > > bella giovinezza .... chi vuol esser lieto sia , del
> > > > > > > doman non v'è certezza :-)
> > > > > > "Magnifico"...... ;-)
> > > > > Grazie per l'apprezzamento ... ah non dicevi a me . :-)
> > > > Già, ma Alessandro pare, e dico pare, non ci ha capito...!!!
> > > > Che ci vogliamo fare...???
> > > e gia' mi tocca cercare dei "medici" boni
> > Non fare il pazzo!!:-)
> sono portato a pensare che la vostra sia una congiura
    Che palle!



title: Numerare i record

text:


Va bene , la facciamo finita Don Ferra'.
Ciao. Fabrizio


title: Numerare i record

text:


Ah ecco perchè mi sembrava di esere dimagrito ! :-)
>Fatti forza
IO , fatti forza tu adesso!! :-)
Ciao. Fabrizio


title: Numerare i record

text:

il solito piagnone
--
a.cara


title: Numerare i record

text:
> "Fabrizio"
news:nl6oqus1ndt5v36nl...@4ax.com
:
> > "Maurizio Borrelli":
> > > "Alessandro Cara"
news:3DAC15CB...@blunet.it
:
> > > > Fabrizio:
> > > > > Alessandro Cara:
> > > > > > Alex:
> > > > > > > > > Quanta
> >    (sic!)
> > > > > > > > > bella giovinezza .... chi vuol esser lieto sia , del
> > > > > > > > > doman non v'è certezza :-)
> > > > > > > > "Magnifico"...... ;-)
> > > > > > > Grazie per l'apprezzamento ... ah non dicevi a me . :-)
> > > > > > Già, ma Alessandro pare, e dico pare, non ci ha capito...!!!
> > > > > > Che ci vogliamo fare...???
> > > > > e gia' mi tocca cercare dei "medici" boni
> > > > Non fare il pazzo!!:-)
> > > sono portato a pensare che la vostra sia una congiura
> >    Che palle!
> Va bene , la facciamo finita Don Ferra'.
    Se ti fossi preso il disturbo di contarle avresti notato ch'eran sei.



title: Numerare i record

text:
> "Alessandro Cara"
news:3DAC1D93...@blunet.it
:
> > Maurizio Borrelli:

    Affatto! Chiamami piuttosto E.R.



title: Numerare i record

text:
On Tue, 15 Oct 2002 15:52:19 +0200, Alessandro Cara <
al...@blunet.it
>
wrote:
>Maurizio Borrelli wrote:

Uè delfi' fai la veci di Biso e lascia stare Maurì !!!
( faccio tutto ciò per un solo motivo : gli ho appena postato una
domanda ) :-)
Ciao. Fabrizio


title: Numerare i record

text:


http://www.exibart.com/arte_eventi/Magnificenza/StemmadeiMediciLorena.htm
Te la passo , ma per amicizia: "odo strider mani unghiate su fragili
cristalli." :-)
Ciao. Fabrizio


title: Numerare i record

text:
> "Fabrizio"
news:8n8oqu4kpm0vsnvf4...@4ax.com
:
> > "Maurizio Borrelli":
> > > "Fabrizio"
news:nl6oqus1ndt5v36nl...@4ax.com
:
> > > > "Maurizio Borrelli":
> > > > > "Alessandro Cara"
news:3DAC15CB...@blunet.it
:
> > > > > > Fabrizio:
> > > > > > > Alessandro Cara:
> > > > > > > > Alex:
> > > > > > > > > > > Quanta
> > > >    (sic!)
> > > > > > > > > > > bella giovinezza .... chi vuol esser lieto sia , del
> > > > > > > > > > > doman non v'è certezza :-)
> > > > > > > > > > "Magnifico"...... ;-)
> > > > > > > > > Grazie per l'apprezzamento ... ah non dicevi a me . :-)
> > > > > > > > Già, ma Alessandro pare, e dico pare, non ci ha capito...!!!
> > > > > > > > Che ci vogliamo fare...???
> > > > > > > e gia' mi tocca cercare dei "medici" boni
> > > > > > Non fare il pazzo!!:-)
> > > > > sono portato a pensare che la vostra sia una congiura
> > > >    Che palle!
> > > Va bene , la facciamo finita Don Ferra'.
> >    Se ti fossi preso il disturbo di contarle avresti notato ch'eran sei.
>
http://www.exibart.com/arte_eventi/Magnificenza/StemmadeiMediciLorena.htm
    Meglio questo stemma "puro":

http://es.rice.edu/ES/humsoc/Galileo/People/medici.html
> Te la passo , ma per amicizia: "odo strider mani unghiate su fragili
> cristalli." :-)
    Mi sottostimi a tal punto? Dimentichi certo che il sorriso e' sempre
presente nella mia firma.



title: Numerare i record

text:


Il mio è più bello e con più famiglie :  unitii fanno la forza.
>
http://es.rice.edu/ES/humsoc/Galileo/People/medici.html
>> Te la passo , ma per amicizia: "odo strider mani unghiate su fragili
>> cristalli." :-)
>    Mi sottostimi a tal punto?
Ci mancherebbe , mi taglierei la palla destra piuttosto.
>Dimentichi certo che il sorriso e' sempre
>presente nella mia firma.
Al contrario , se no mollavo il colpo da subito : non c'è volta che
non mi piaccia conversare con te ( mi permetto di dirlo oggi perchè so
che non c'è Biso in giro a dirci di darci dei bacini).
Ciao. Fabrizio


title: Numerare i record

author: Marco, il Padre

text:
On Mon, 14 Oct 2002 21:38:41 +0200, "Maurizio Borrelli"
<
maurizio...@freepass.it
> wrote:
>    Potresti, per favore, testare questo codice che ho appena scritto e
>farmi sapere come funziona e quali eventuali problemi presenta?
Win98SE - Access 97 : ottimo ed abbondante !!


title: Numerare i record

author: Roberto da casa

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:aoghob$md8n1$1...@ID-52090.news.dfncis.de...

OK funziona.
Di contro per ottenere in una sottomaschera (o  comunwie in una maschera con
visualizzazione a maschere continue) un totale progressivo si può usare la
seguente funzione:
Function GetImpTot(F As Form, KeyName As String, KeyValue, ImpName As
String)
         Dim RS As Recordset
         Dim TotImp As Long
         TotImp = 0
         On Error GoTo Err_GetImpTot
         Set RS = F.RecordsetClone
         ' Find the current record.
         Select Case RS.Fields(KeyName).Type
            ' Find using numeric data type key value?
            Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _
            DB_DOUBLE, DB_BYTE
               RS.FindFirst "[" & KeyName & "] = " & KeyValue
            ' Find using date data type key value?
            Case DB_DATE
               RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#"
            ' Find using text data type key value?
            Case DB_TEXT
               RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'"
            Case Else
               MsgBox "ERROR: Invalid key field data type!"
               Exit Function
         End Select
         ' Loop backward, counting the lines.
         Do Until RS.BOF
            TotImp = TotImp + RS(ImpName)
            RS.MovePrevious
         Loop
Bye_GetImpTot:
         ' Return the result.
         GetImpTot = TotImp
         Exit Function
Err_GetImpTot:
         TotImp = 0
         Resume Bye_GetImpTot
End Function
Nell'origine controllo della casella di testo non associata occorre
scrivere:
=GetImpTot([Form];"ID";[ID];"Importo")
Dove ID è il nome della chiave primaria dell'oggetto origine record della
maschera e Importo è il nome del campo di cui si vuole il totale
progressivo.
> --
> Ciao :-)
> Maurizio
> --------
> ?SPQR(C)
>  X
> --------
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Numerare i record

text:
> "Roberto da casa" news:E7Yq9.34459$%
M1.8...@twister2.libero.it
:
> > "Maurizio Borrelli" news:aoghob$md8n1$
1...@ID-52090.news.dfncis.de
:
> > > "Maurizio Borrelli" news:aof6fe$mbdmv$
1...@ID-52090.news.dfncis.de
:
> > [...]
> >     Gia' che c'ero ho voluto provare a vedere se la stessa logica puo'
> > essere usata per le (famose) somme parziali. A prima vista sembra
> > funzionare. Mi fate sapere qualcosa, per favore? Grazie.
[...]
> OK funziona.
> Di contro per ottenere in una sottomaschera (o  comunwie in una maschera
con
> visualizzazione a maschere continue) un totale progressivo si può usare la
> seguente funzione:
[...]
    Grazie.
    Spiegami, per favore: da come scrivi sembrerebbe che la funzione che ho
postato (meglio parlare della versione del post successivo, pero') non
funzioni in sottomaschere o in maschere continue mentre i (pochi) test che
ho fatto mi dicono che funziona anche in questi casi.
    Le cose che mi interessa sapere (mi rivolgo a tutto il ng, ovviamente)
sono principalmente due:
         . se ci sono situazioni nella quale la funzione non da' il
        risultato atteso;
         . quale fra le varie funzioni che hanno il medesimo scopo
        e' piu' veloce, affidabile, in una parola efficiente.



title: Numerare i record

text:
> "Marco, il Padre"
news:uufoqu86pufcc7fur...@4ax.com
:
> > "Maurizio Borrelli":
> >    Potresti, per favore, testare questo codice che ho appena scritto e
> > farmi sapere come funziona e quali eventuali problemi presenta?
> Win98SE - Access 97 : ottimo ed abbondante !!
    Grazie.



title: Numerare i record

author: warp

text:
Maurizio Borrelli ha scritto nel messaggio ...
>    Le cose che mi interessa sapere (mi rivolgo a tutto il ng, ovviamente)
>sono principalmente due:
>
>         . se ci sono situazioni nella quale la funzione non da' il
>        risultato atteso;
>
>         . quale fra le varie funzioni che hanno il medesimo scopo
>        e' piu' veloce, affidabile, in una parola efficiente.
Purtroppo ho poco tempo per testare la faccenda (e le prestazioni), "a pelle" posso dire d'aver
trovato eccellente la soluzione che proponi.
Se funzia a dovere ... anche il Biso dovrà complimentarsi  ;-))
Ciao, Silvio


title: Numerare i record

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:aohjp2$miud6$1...@ID-52090.news.dfncis.de...
> > "Roberto da casa" news:E7Yq9.34459$%
M1.8...@twister2.libero.it
:
> > > "Maurizio Borrelli" news:aoghob$md8n1$
1...@ID-52090.news.dfncis.de
:
> > > > "Maurizio Borrelli" news:aof6fe$mbdmv$
1...@ID-52090.news.dfncis.de
:
> > > [...]
> > >     Gia' che c'ero ho voluto provare a vedere se la stessa logica puo'
> > > essere usata per le (famose) somme parziali. A prima vista sembra
> > > funzionare. Mi fate sapere qualcosa, per favore? Grazie.
> [...]
> > OK funziona.
> > Di contro per ottenere in una sottomaschera (o  comunwie in una maschera
> con
> > visualizzazione a maschere continue) un totale progressivo si può usare
la
> > seguente funzione:
> [...]
>
>     Grazie.
>
>     Spiegami, per favore: da come scrivi sembrerebbe che la funzione che
ho
> postato (meglio parlare della versione del post successivo, pero') non
> funzioni in sottomaschere o in maschere continue mentre i (pochi) test che
> ho fatto mi dicono che funziona anche in questi casi.
>
Devo essere sincero: quando ti ho dato il mio primo *OK funziona* lo avevo
fatto solo leggendo ciò che avevi scritto e mi sembrava che potesse
funzionare, e poi si era ormai avvicinata l'ora della cena.
Ora ho però provato realmente (Windows ME e Office 97), facendo un
copia/incolla del tuo codice VBA in un modulo del mio database e scrivendo
nell'origine controllo della casella di testo che deve contenere il totale
progressivo:
=GetRunningSum("Importo")
dove Importo è il nome del campo di cui voglio il totale progressivo.
Il risultato è stato che mi ha fornito per tutti i record, come totale
progressivo, il valore zero, in quanto andava sempre in errore.
Per capire quale fosse l'errore ho tolto lo statement:
On Error GoTo erh
ed allora ho ricevuto l'errore:
Errore di run-time '2465':
Errore definito dall'applicazione o dall'oggetto
ed il Debug ha evidenziato il seguente statement:
sql = sql & " ([" &
obj.Recordset.Name
 & "])"
In effetti c'era l'erore che ho corretto in:
sql = sql & " ([" &
obj.RecordsetClone.Name
 & "])"
A questo punto l'errore è cambiato; Access mi ha segnalato:
Errore di run-time '3131':
Errore di sintassi nella proposizione FROM
e mi ha evidenziato lo statement:
      Set rst _
        = CurrentDb.OpenRecordset( _
              sql _
            , DAO.dbOpenSnapshot _
            , DAO.dbFailOnError)
quindi sembrerebbe che c'è un errore nella stringa SQL, errore che, non
avendo io grossa dimestichezza con le query nidificate, non sono riuscito a
decifrare.
Ho aggiunta alla fine della stringa SQL anche un punto e virfola, ma non è
cambiato nulla.
Probabilmente sbaglio qualcosa, ma per me resta un mistero del perché a te
funzioni senza neppure segnalarti l'errore 2465 che sicuramente in quello
che hai postato c'è.
[CUT]
>
> --
> Ciao :-)
> Maurizio
> --------
> ?SPQR(C)
>  X
> --------
Ciao :-)



title: Numerare i record

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:hE%q9.35691$%M1.9...@twister2.libero.it...
>
[CUT]
>
> A questo punto l'errore č cambiato; Access mi ha segnalato:
>
> Errore di run-time '3131':
> Errore di sintassi nella proposizione FROM
>
[CUT]
> --
> Roberto
>
Ho studiato un po'. :-)
Ho scoperto che Access 97 non accetta una sottoquery come argomento di un
predicato segnalando l'errore 3131.
L'help in linea dice:
========================
Errore di sintassi nella proposizione FROM (3131).
Č stata immessa un'istruzione SQL contenente una proposizione FROM non
valida.
Cause possibili:
· Una parola riservata o un nome di argomento č scritto in modo errato o č
mancante.
· La punteggiatura non č corretta.
========================
se poi si clicca su *parola riservata*, l'help dice:
========================
Parola riservata
Parola che fa parte di un linguaggio come, ad esempio, il linguaggio SQL del
modulo di gestione del database Microsoft Jet.
Le parole riservate includono i nomi di istruzioni, funzioni predefinite e
tipi di dati, metodi, operatori o oggetti. Esempi sono SELECT, UPDATE,
BETWEEN, SET e INSERT. Non utilizzare le parole riservate per nomi di
variabili o di oggetti.
========================
Infine circa la proposizione FROM l'help dice:
=======================
Proposizione FROM
Specifica le tabelle o le query contenenti i campi elencati nell'istruzione
SELECT.
Sintassi
SELECT elencocampi
FROM espressionetabella [IN databaseesterno]
*omissis*
Espressionetabella
Espressione che identifica una o piů tabelle da cui vengono recuperati i
dati. L'espressione puň essere un singolo nome di tabella, un nome di query
salvato o un nome composto risultante da un INNER JOIN, un LEFT JOIN o un
RIGHT JOIN.
*omissis*
=======================
da cui č desumibile che come Espressionetabella non č prevista una frase SQL
(almeno  cosě capisco, visto che esplicita che se si fa riferimento ad una
query, essa deve essere salvata)



title: Numerare i record

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:z7ar9.37507$RO.9...@twister1.libero.it...
>
[CUT]
> Ho scoperto che Access 97 non accetta una sottoquery come argomento di un
> predicato segnalando l'errore 3131.
>
Scusate, volevo scrivere:
Ho scoperto che Access 97 non accetta una sottoquery come argomento di un
predicato FROM, segnalando l'errore 3131.



title: Numerare i record

text:
> "Roberto da casa" news:xxar9.37083$%
M1.9...@twister2.libero.it
:
[...]
> Ho scoperto che Access 97 non accetta una sottoquery come argomento di un
> predicato FROM, segnalando l'errore 3131.
    Provero' ad approfondire la questione anche se, dal mio punto di vista,
e' marginale. Non mi interessa gestire le query non salvate.



title: Numerare i record

text:
> "Maurizio Borrelli" news:aogqmh$m83n0$
1...@ID-52090.news.dfncis.de
:
[...]
    Queste le versioni definitive, credo, delle due funzioni:
        GetRecNum
        GetRunningSum
di cui abbiamo parlato nel 3d.
    Con GetRunningSum non c'e' stato niente da fare, ho dovuto ripiegare sul
noto metodo della somma record per record.
    Ho dichiarato GetRunningSum As Variant ma e' piu' opportuno usarla con
il tipo piu' appropriato. Cosi' se si vuole si puo' fare una copia della
funzione per ciascun tipo che si vuole gestire chiamando queste copie per
esempio GetRunningSumLong, GetRunningSumCurrency, ...
Public Function GetRecNum( _
) As Long
  On Error GoTo erh
  Dim frm As Access.Form
  Dim rst As DAO.Recordset
  Set frm = CodeContextObject
  Set rst = frm.RecordsetClone
  With rst
    If Not ((.BOF = True) And (.EOF = True)) Then
      .Bookmark = frm.Bookmark
      GetRecNum = .AbsolutePosition + 1
    End If
  End With
ext:
  Set rst = Nothing
  Set frm = Nothing
  Exit Function
erh:
  GetRecNum = 0
  Resume ext
End Function
Public Function GetRunningSum( _
  ByVal ControlObject As Access.Control _
) As Variant
  On Error GoTo erh
  Dim frm As Access.Form
  Dim rst As DAO.Recordset
  Dim fld As DAO.Field
  Set frm = CodeContextObject
  Set rst = frm.RecordsetClone
  With rst
    If Not ((.BOF = True) And (.EOF = True)) Then
      .Bookmark = frm.Bookmark
      Set fld = .Fields.Item(ControlObject.ControlSource)
      Do Until (.BOF = True)
        GetRunningSum _
          = GetRunningSum _
          + Nz(fld.Value, 0)
        .MovePrevious
      Loop
    End If
  End With
ext:
  Set fld = Nothing
  Set rst = Nothing
  Set frm = Nothing
  Exit Function
erh:
  GetRunningSum = 0
  Resume ext
End Function
--



title: Numerare i record

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:aolgc0$nhlrp$1...@ID-52090.news.dfncis.de...
> > "Maurizio Borrelli" news:aogqmh$m83n0$
1...@ID-52090.news.dfncis.de
:
> [...]
>
>     Queste le versioni definitive, credo, delle due funzioni:
>
>         GetRecNum
>         GetRunningSum
>
> di cui abbiamo parlato nel 3d.
>
>     Con GetRunningSum non c'e' stato niente da fare, ho dovuto ripiegare
sul
> noto metodo della somma record per record.
>
>     Ho dichiarato GetRunningSum As Variant ma e' piu' opportuno usarla con
> il tipo piu' appropriato. Cosi' se si vuole si puo' fare una copia della
> funzione per ciascun tipo che si vuole gestire chiamando queste copie per
> esempio GetRunningSumLong, GetRunningSumCurrency, ...
>
[CUT]
Mi sembra proprio che così facciano il loro dovere. :-)
>
> --
> Ciao :-)
> Maurizio
> --------
> ?SPQR(C)
>  X
> --------
--



title: seriale

author: DEA

text:
Salute a tutti,
come faccio ad aprire la porta com1 a 2400, 7,E,1 per inviare dei comandi ad
un registratore dicassa ?
La procedura è
aprire la com
inviare ad esempio "KXCL"  che eqiuvale a C del reg.
Grazie


title: seriale

author: Paolo opg

text:
"DEA" <
in...@deasoftware.it
> wrote in message
news:Ftoj8.59187$Ns4.2...@news2.tin.it...
> Salute a tutti,
>
> come faccio ad aprire la porta com1 a 2400, 7,E,1 per inviare dei comandi
ad
> un registratore dicassa ?
>
t serve un controllo ocx o qualche altro accrocchio.
a meno che non scrivi un batch che manda il tutto tramite dos...
in visual basic (e forse anche in office developer) c'è il controllo mscomm
che fa al caso tuo.
altrimenti ne trovi anche di free, che ovviamente hanno qualche limite o
qualche banner.


title: seriale

author: Karl Donaubauer

text:
Paolo opg ha scritto:
> "DEA wrote:
> > come faccio ad aprire la porta com1 a 2400, 7,E,1 per inviare dei comandi
> > ad un registratore dicassa ?
>
> t serve un controllo ocx o qualche altro accrocchio.
> a meno che non scrivi un batch che manda il tutto tramite dos...
> in visual basic (e forse anche in office developer) c'è il controllo mscomm
> che fa al caso tuo.
MSCOMM.OCX solo puoi usare con una licenza di VB sul computer.
Altrimenti viene un errrore di licenza - anche con Office Developer.
> altrimenti ne trovi anche di free, che ovviamente hanno qualche limite o
> qualche banner.
Conosci
http://ourworld.compuserve.com/homepages/richard_grier/xmcomm.htm
 ?
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: seriale

author: Emyr

text:


confermo, anch'io ne ho scaricato uno freeware
comunque Karl secondo te qualcuno che ha il Visual Basic lo può
distriubuire come freeware? e quindi lo possono usare tutti?
Saluti.
Emanuele.


title: seriale

text:
Emyr ha scritto:...
> Karl Donaubauer wrote:
> >...
> >MSCOMM.OCX solo puoi usare con una licenza di VB sul computer.
> >Altrimenti viene un errrore di licenza - anche con Office Developer.
>
> comunque Karl secondo te qualcuno che ha il Visual Basic lo può
> distriubuire come freeware? e quindi lo possono usare tutti?
No.
Citato dal EULA di VS 6:
**********
...(a) distribuire i Ridistribuibili
in forma di codice oggetto esclusivamente in congiunzione con, e come
parte di un'applicazione software sviluppata dall'utente utilizzando il
prodotto accluso al presente Contratto che comporti significative e
primarie modifiche in termini di funzionalità al PRODOTTO SOFTWARE
("Prodotto Concesso in Licenza");
**********
È lo stesso testo come per i runtime files di Access.
--
cu



title: seriale

text:


grazie.
Saluti.
Emanuele.


title: Click e doppio click su stesso pulsante

author: Michele Salcone

text:
Gentili,
qualcuno di voi ha mai avuto la necessità di assegnare due eventi (Click e DblClick) allo stesso pulsante? Come ha risolto? Sembra che Access legga solo il click, non dando mai "l'accesso" al doppio click!

Quello di cui avrei necessità è:

Private Sub Comando0_Click()
   'avvia ricerca in form
End Sub

Private Sub Comando0_DblClick(Cancel As Integer)
  'azzera filtro della form
End Sub

Ringrazio quanti vorranno contribuire a risolvere il quesito!
Michele


title: Click e doppio click su stesso pulsante

author: BFS

text:

"Double-clicking a control causes both the Click and DblClick events to
occur. For example, when you double-click a control other than a command
button, the following sequence of events occurs for the control:

MouseD own arrow MouseUp arrow Click arrow DblClick arrow MouseUp "

potresti quindi fare cosi:
ti disegni una etichetta nella maschera e la fai graficamente uguale a
un pulsante.
metti i due eventi click e doppio click sull'etichetta

siccome il doppio click ti manda in esecuzione anche l'evento legato al
click e non credo tu lo voglia
creati una variabile globale settata a flase che imposti a true se viene
fatto il doppio click. esempio PremutoDoppio as boolean

nell'evento del singolo click metti il tuo codice tra:

if premutoDoppio=false then
	evento del singolo click

endif

quindi quando fai doppio click non verrà eseguito anche il codice del
singolo click

personalmente cmq scelta discutibile quella che stai adottando
farei due pulsanti oppure un evento legato al tasto destro e uno legatao
al tasto sinistro

BFS


title: Click e doppio click su stesso pulsante

author: Michele

text:

oppure un evento tasto sinistro e l'altro tasto destro.
oppure un evento solo click e l'altro CTRL+click...


title: Click e doppio click su stesso pulsante

text:

Grazie ad entrambi. Il mio intento era chiedere solo se ignoravo qualcosa di cui non avevo mai avuto bisogno. Percui il primo suggerimento di BFS lo escludo a priori. Anche il secondo di Michele (Ctrl+click) lo escludo.

"un evento tasto sinistro e l'altro tasto destro" mi sembra la soluzione più semplice ed immediata. Ma come intercetto il tasto destro? Sempre nell'evento click?

Private Sub Comando0_Click()
se premuto tasto sinistro
'avvia ricerca in form
altrimenti
'azzera filtro ricerca form
End Sub

Grazie


title: Click e doppio click su stesso pulsante

text:

devi usare l'evento MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
if button = 1 then
   ...
else
   ...
end if


title: Click e doppio click su stesso pulsante

author: Simone Calligaris

text:
> Grazie ad entrambi. Il mio intento era chiedere solo se ignoravo qualcosa di cui non avevo mai avuto bisogno. Percui il primo suggerimento di BFS lo escludo a priori.

Ma per quale ragione cerchi una via così tortuosa per i tuoi utenti?
Secondo me il miglior suggerimento che ti hanno postato è:

"personalmente cmq scelta discutibile quella che stai adottando, farei due pulsanti"

Saluti


title: Relazioni tra più tabelle

author: Checco

text:
Ciao a tutti,
ho un problema, ho creato una maschera contenente delle schede, e in ogni
pagina della scheda è presente una sottomaschera! Tutte le sottomaschere
hanno un campo in comune che deve essere aggiornato! Come posso fare a
rendere ciò in automatico? Mi spiego meglio il processo è il seguente!
Pagina1: dati anagrafici
Pagina2: Dati del ricovero
Pagina3: Attività del ricovero
Pagina4: Riusultato attività.
Quindi ho bisogno che l'id_ricovero si inserisca automaticamente nella
tabella contenuta nella Pagina3 e 4 dopo che è stato inserito nella pagina2!
Così come i l'ID dei dati anagrafici confluisca nei Dati del ricovero!
Spero di essere stato chiaro!
C'è qualcuno che sa darmi una mano?
Grazie!
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Relazioni tra più tabelle

author: Nick

text:
"Checco" <
fra....@libero.it
> ha scritto nel messaggio
news:217Z59Z54Z60Y1...@usenet.libero.it...

se crei le ralazioni tra le tabelle
e relazioni le sottomaschere con la maschera principale
fa tutto da solo.
l'unico comando che dovrai aggiungere è quello per le pagine 3  e 4 se id_ricovero non c'è nella
maschera anagrafica (che mi pare di aver capito è la principale)
il comando è qualcosa del tipo:
me.r_id_ricovero = forms!anagrage!sottomascheraRicovero!id_ricovero
istruzione da mettere nell'evento Current della sottomaschera
ciao Nick


title: Relazioni tra più tabelle

author: Pippo

text:
[cut]
> se crei le ralazioni tra le tabelle
> e relazioni le sottomaschere con la maschera principale
> fa tutto da solo.
Il punto è un altro: ma saprà cosa è una relazione?
Oggi voglio diventare un panettiere,
ho la farina, il lievito, l'acqua,
adesso cosa devo fare?
Forse sarebbe meglio fare un po'
di pratica presso un panificio, o
seguire un corso per diventare panettiere.
Ogni tanto voglio essere polemico.
:-|


title: Relazioni tra più tabelle

text:

Hai perfettamente ragione! Ma la soluzione? :O)
Ciao
Francescp



title: Relazioni tra più tabelle

text:
>
>
> Ma la soluzione? :O)
>
> Ciao
> Francescp
Quella di Nick.


title: Chiudere e Aprire database.

author: Akiba

text:
E' possibile tramite codice chiudere ed subito successivamente aprire il
database corrente ?
grazie !
--


title: Chiudere e Aprire database.

author: MA

text:
"Akiba" <
akib...@yahoo.it
> ha scritto nel messaggio
news:bq76n1$1v0puf$1...@ID-24065.news.uni-berlin.de...
> E' possibile tramite codice chiudere ed subito successivamente aprire il
> database corrente ?
>
> grazie !
Che vuoi fare? magari c'è un'altra strada
MAssimiliano


title: Chiudere e Aprire database.

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:59Fxb.10218$i_5....@news.edisontel.com...
>
> "Akiba" <
akib...@yahoo.it
> ha scritto nel messaggio
> news:bq76n1$1v0puf$1...@ID-24065.news.uni-berlin.de...
> > E' possibile tramite codice chiudere ed subito successivamente aprire il
> > database corrente ?
> >
> > grazie !
> Che vuoi fare? magari c'č un'altra strada
> MAssimiliano
in una maschera voglio inserire un comando per chiudere il database e
riaprirlo , a volte mi č utile per una lunga serie di motivi......perarltro
non vorrei avere nessun riferimento al nome del database e alla sua
posizione xchč ci sono piů copie in diverse poszioni....non posso
condividerlo x altra lunga serie di motivi....
grazie !


title: Chiudere e Aprire database.

text:
"Akiba" <
nimzo...@yahoo.it
> ha scritto nel messaggio
news:bq791t$1vvsfl$1...@ID-24065.news.uni-berlin.de...

Lancia la compattazione, fai due cose utili in una
MAssimiliano


title: Chiudere e Aprire database.

text:
s
--
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:OKFxb.10228$i_5....@news.edisontel.com...

ok ma x chiudere ed aprire ?
ciao !


title: Chiudere e Aprire database.

author: ALESSANDRO Baraldi

text:
"Akiba" <
akib...@yahoo.it
> ha scritto nel messaggio
news:bq7bo2$1u9dun$1...@ID-24065.news.uni-berlin.de...
> s
[CUT]
> > Lancia la compattazione, fai due cose utili in una
> > MAssimiliano
>
>
> ok ma x chiudere ed aprire ?
> ciao !
>
MA se ha A97 non si può, ma io in realtà vorrei proprio capire perchè...!!
Secondo mè è il modo sbagliato di ottenere qualche cosa.
Se spieghi cosa devi fare si può affrontare, altrimenti NO.
@Alex.(Sono curioso)


title: Chiudere e Aprire database.

text:
> > > Lancia la compattazione, fai due cose utili in una
> > > MAssimiliano
> >
> >
> > ok ma x chiudere ed aprire ?
> > ciao !
> >
>
> MA se ha A97 non si può, ma io in realtà vorrei proprio capire perchè...!!
> Secondo mè è il modo sbagliato di ottenere qualche cosa.
>
> Se spieghi cosa devi fare si può affrontare, altrimenti NO.
>
> @Alex.(Sono curioso)
>
>
 in una maschera voglio inserire un pulsante di comando che mi faccia
chiudere il database e me lo riapra subito dopo.....
xchè ? semplicemente xchè il database è destinato a dei colleghi alle prime
armi.....(primissime :) ) .....e volte si incasinano è il pulsante può
essere utire x chiudere.....aggiornare.......riaprire.....
grazie !


title: Chiudere e Aprire database.

text:
"Akiba" <
akib...@yahoo.it
> ha scritto nel messaggio
news:bqf6uj$21ck0b$1...@ID-24065.news.uni-berlin.de...

Nooooo...!
Non esiste una robbbbba del genere....!
I tuoi colleghi come i miei si creano un Link e lo ricliKKano...!!!
Se credi sia il sistema però devi crearti un Script in VbS, assicurati di
avere
Scripting Host installato (non c'è su NT e W98 sulle altre macchine di
Default).
Sul SitoComune c'è uno Script per Compattare il DB in uso, devi solo
copiarlo
eliminando la parte dedicata al Compact, poichè usa DAO ti sarà semplice
intuire quali parti eliminare....!
Ciao.
@Alex.


title: Chiudere e Aprire database.

text:
> > > Se spieghi cosa devi fare si può affrontare, altrimenti NO.
> > >
> > > @Alex.(Sono curioso)
> > >
> > >
> >  in una maschera voglio inserire un pulsante di comando che mi faccia
> > chiudere il database e me lo riapra subito dopo.....
> >
> > xchè ? semplicemente xchè il database è destinato a dei colleghi alle
> prime
> > armi.....(primissime :) ) .....e volte si incasinano è il pulsante può
> > essere utire x chiudere.....aggiornare.......riaprire.....
> >
> > grazie !
>
>
> Nooooo...!
> Non esiste una robbbbba del genere....!
> I tuoi colleghi come i miei si creano un Link e lo ricliKKano...!!!
>
> Se credi sia il sistema però devi crearti un Script in VbS, assicurati di
> avere
> Scripting Host installato (non c'è su NT e W98 sulle altre macchine di
> Default).
>
> Sul SitoComune c'è uno Script per Compattare il DB in uso, devi solo
> copiarlo
> eliminando la parte dedicata al Compact, poichè usa DAO ti sarà semplice
> intuire quali parti eliminare....!
>
> Ciao.
> @Alex.
grazie !


title: mi serve un campo che sia l'unione di altri 2

author: KeanuNoci

text:
Ciao a tutti.
Sono alle prime armi... please help.
Ecco il problema.
Sto realizzando un semplicissimo DB per la gestione dei miei libri che
presto.
Ho creato 2 tabelle.
1 - Anagrafica libri, con le info sui libri, nonche data e nome dell'amico a
cui presto il libro
2 - Anagrafica amici, per recuperare cosi i loro numeri di telefono, email,
etc.
Dunque... nell'anagrafica degli amici ho due campi COGNOME e NOME.
Nell'anagrafica libri ho un solo campo UTENTE, dove immetto
COGNOME<spazio>NOME.
Poiche mi serve verificare che l'utente sia registrato anche nell'archivio
Anagrafico, come posso fare per ottenenre un campo UTENTE_ANAG che sia dato
dall'unione del campo COGNOME e NOME?
C'è un modo?
O devo utilizzare anche nella tabella anagrafica un solo campo utente?
Aspetto con ansia VS risposte
CIAO
KeanuNoci
--
*************************************
        email:
sdon...@mail.omnitel.it
        email:
sdon...@libero.it
home page:
http://members.xoom.it/keanunoci
cellulare:
       fax: 0623317919
       icq: 38861647
*************************************


author: Tappo

text:
> Poiche mi serve verificare che l'utente sia registrato anche nell'archivio
> Anagrafico, come posso fare per ottenenre un campo UTENTE_ANAG che sia
dato
> dall'unione del campo COGNOME e NOME?
> C'è un modo?
> O devo utilizzare anche nella tabella anagrafica un solo campo utente?
>
Si può risolvere in vari modi. Un esempio è crearsi una tabella nel modo
seguente:
SELECT [NomeCompleto] & " " & [nome] AS Nome INTO Utenti_anag
FROM [AMICI];
e poi metterla in relazione con quella dei libri trovando le corrispondenze
o non corrispondenze
corrispondenze :
SELECT [Libri].Nome
FROM Utenti_anag INNER JOIN [Libri] ON Utenti_anag.NomeCompleto =
[Libri].Nome;
non corrispondenze:
SELECT [Libri].Nome
FROM Utenti_anag RIGHT JOIN [Libri] ON Utenti_anag.NomeCompleto =
[Libri].Nome
WHERE (((Utenti_anag.NomeCompleto) Is Null));


title: Trasferimento dati tra tabelle

author: marco

text:
Ciao,
utilizzo la seguente procedura, per trasferire dei records da una tabella ad
un'altra  :
Dim db As DAO.Database
Dim rsSTAMPABARFAT As DAO.Recordset
Dim rsAggiunta As DAO.Recordset
Dim i As Integer
Set rsAggiunta = CurrentDb.OpenRecordset("BARFAT")
Set db = CurrentDb()
Set rsSTAMPABARFAT = db.OpenRecordset("SELECT*FROM BAR_X_FAT WHERE
ID_DOCFORN=" & Me!id_docforn)
Do While Not rsSTAMPABARFAT.EOF
For i = 1 To rsSTAMPABARFAT!qta
With rsAggiunta
        .AddNew
        !barcode = rsSTAMPABARFAT!barcode
        !CATEGORIA = rsSTAMPABARFAT!CATEGORIA
        !OPERAZIONE = rsSTAMPABARFAT!OPERAZIONE
        !PREZZOVEN = rsSTAMPABARFAT!PREZZOVEN
        !qta = 1
       .Update
        End With
     Next
    rsSTAMPABARFAT.MoveNext
    Loop
    rsSTAMPABARFAT.Close
    rsAggiunta.Close
    Set rsSTAMPABARFAT = Nothing
    Set rsAggiunta = Nothing
Grazie a MAX.
ma se voglio escludere dei records aggiungendo  all'istruzione select -  And
Bar = 1) mi da errore di "tipo non corrispondente",
dove sbaglio ?
Un saluto


title: Trasferimento dati tra tabelle

text:
"marco" <
marcomon...@virgilio.it
> ha scritto nel messaggio
news:lRYVc.132354$OR2.6...@news3.tin.it...

Probabilmente hai trascurato lo Spazio come vedo ti capita...!!
Per ordine mentale io metto in Maiuscolo solo le ISTRUZIONI.
Prova cosě:
Set rsSTAMPABARFAT = db.OpenRecordset("SELECT * FROM BAR_X_FAT WHERE
ID_DOCFORN=" & Me!id_docforn & " AND Bar=1" )
Ciao-
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Trasferimento dati tra tabelle

text:
Grazie, tutto OK
Ciao
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:cg9m8m$v28$1...@lacerta.tiscalinet.it...



title: Trasferimento dati tra tabelle

text:
Grazie, tutto OK
Ciao
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:cg9m8m$v28$1...@lacerta.tiscalinet.it...




title: grazie

author: Demetrio

text: seppure in ritardo: un meraviglioso grazie


title: Filtro in Base a Data in una Query

author: andreaf

text:
Salve,
ho una query nella quale ho un campo data
Vorrei che questa mi evidenziasse SOLO i valori in qui il campo data sia
minore della data odierna.
Come posso fare?
posso usere il segno minore
Es:
Criteri :    <Date()
Grazie?


title: Filtro in Base a Data in una Query

text:
"andreaf" <
the...@libero.it
> ha scritto nel messaggio
news:VKZxd.52725$C94....@tornado.fastwebnet.it...

Direi cheprovare è la prima regola....!
In ogni caso se lo fai da QBE(Query Builder) si senza problemi
puoi usare anche Now().
Se lo fai da Codice invece occorre formattare la data passate
in USDate o anglosassone, quindi invertendo "mm" con "dd".
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Tastierino Numerico

author: Gianni

text:
Access 2000
in una determinata maschera ho bisogno che il punto del tastierino numerico
mi restituisca un "punto" e non una "virgola"
come posso fare ???
Grazie a tutti


title: Tastierino Numerico

author: Mario

text:
"Gianni" <
gian...@hotmail.com
> ha scritto nel messaggio
news:8ub7nt$hso$1...@nread1.inwind.it...

Accedi a Risorse del computer, Pannello di Controllo, Impostazioni
Internazionali,Numeri, e nel separatore decimale togli la virgola e metti il
punto.


title: Tastierino Numerico

text:
e se volessi farlo via codice, cioe' solo per il tempo che mi occorre, e
quindi rimettere la virgola ?
e' possibile ?
Grazie di nuovo
"Mario" <
love...@tiscalinet.it
> ha scritto nel messaggio
news:8ube21$74e$1...@lacerta.tiscalinet.it...



title: Tastierino Numerico

author: Nicola Ardito

text:
Gianni ha scritto nel messaggio <8ubsvk$41$
1...@nread2.inwind.it
>...
>e se volessi farlo via codice, cioe' solo per il tempo che mi occorre, e
>quindi rimettere la virgola ?
>e' possibile ?
>
Private Sub nOMECONTROLLO_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 110 Then KeyCode = 190
End Sub
Ciao Nicola
email: metti inwind al posto  di NOSPAM


title: Tastierino Numerico

author: Antonio Biso

text:
Gianni <
gian...@hotmail.com
> wrote in message
8ubsvk$41$1...@nread2.inwind.it...
> e se volessi farlo via codice, cioe' solo per il tempo che mi occorre, e
> quindi rimettere la virgola ?
> e' possibile ?
>
Prima di tutto scrivi dopo il quoting.
Secondo, ma perchč vuoi fare tutto ciň, di grazia?
Antonio


title: Tastierino Numerico

author: Lorenzo Coronati

text:
Scrisse "Nicola Ardito" <men...@NOSPAM.it>:
>Private Sub nOMECONTROLLO_KeyDown(KeyCode As Integer, Shift As Integer)
>If KeyCode = 110 Then KeyCode = 190
>End Sub
Gajardo, Nico'!
Che cce sta' gia' sur sito?
--
Lorenzo Coronati
--
<<P.S. Mi scuso con il NG per la polemica, ma proprio
non digerisco questo atteggiamento da professorini di
provincia, che alternano risposte saccenti date con
sufficienza a prese in giro da terza elementare.>>
(Giovanni D'Orazio, 1/11/2000)
--


title: Totali progressivi per pagina in report

author: Sandro

text:
Come posso, in un report, avere un totale progressivo pagina per pagina, che
mi riporti il saldo della pagina precedente sulla pagina successiva?
TIA per qualsiasi suggerimento.
Ciao, Sandro.
--------------------------------
Inviato via
http://usenet.libero.it


title: Totali progressivi per pagina in report

author: Sib

text:
"Sandro" <
sandro...@yahoo.com
> ha scritto nel messaggio
> Come posso, in un report, avere un totale progressivo pagina per pagina,
che
> mi riporti il saldo della pagina precedente sulla pagina successiva?
Nei post di pochi giorni fa ce ne era uno di Karl proprio a proposito di
questo.
Sib


title: Totali progressivi per pagina in report

author: Roberto da casa

text:
"Sandro" <
sandro...@yahoo.com
> ha scritto nel messaggio
news:212Z210Z230Z116Y...@usenet.libero.it...
> Come posso, in un report, avere un totale progressivo pagina per pagina,
che
> mi riporti il saldo della pagina precedente sulla pagina successiva?
>
> TIA per qualsiasi suggerimento.
>
> Ciao, Sandro.
Io ho capito che in un report nel piè di pagina pagina vuoi visualizzare,
per ogni pagina, il totale progressivo di un campo dell'oggetto che è
origine record del report; mi sembra anche di capire che nell'intestazione
pagina di ogni pagina vuoi visualizzare il riporto, ovvero il totale
progressivo che hai visualizzato nel piè di pagina pagina della pagina
precedente.
Se questo è quello che ti serve.
Se il campo di cui vuoi calcolare il toatale progressivo si chiama Importo.
Nel corpo del report inserisci una casella di testo chiamata ImportoProgr;
la casella di testo deve essere NON visibile e nella sua origine controllo
scrivi:
=[Importo]
Imposta a Su tutto la proprietà Somma parziale della casella di testo
ImportoProgr .
Inserisci nel Piè di pagina pagina del report una casella di testo non
associata chiamata TotalePiede e nella sua origine controllo scrivi:
=[ImportoProgr]
Infine nell'Intestazione pagina del report inserisci una casella di testo
non associata nella cui origine controllo scrivi:
=[TotalePiede]-[Importo]
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Totali progressivi per pagina in report

text:
Il 19 Giu 2003, 11:46, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
> Io ho capito che in un report nel piè di pagina pagina vuoi visualizzare,
[cut]
Hai compreso perfettamente, Roberto.
> Se questo è quello che ti serve.
> Se il campo di cui vuoi calcolare il toatale progressivo si chiama
Importo.
>
> Nel corpo del report inserisci una casella di testo chiamata ImportoProgr;
> la casella di testo deve essere NON visibile e nella sua origine controllo
> scrivi:
>
> =[Importo]
>
> Imposta a Su tutto la proprietà Somma parziale della casella di testo
> ImportoProgr .
Oh... Era esattamente ciò che NON conoscevo dei report! Il totale
progressivo, fino ad ora, me lo sono calcolato a codice vba ... ;-)
Grazie infinite, Roberto. E grazie anche a Sib, la cui indicazione mi ha
consentito di trovare il link alla pagina del Microsoft Support su cui è
riportato un esempio.



title: Salvataggio file

author: R. Guzzoni

text:
Ciao a tutti e naturalmente felice anno nuovo.
Una domanda forse stupida ma della quale non ho trovato risposta nei testi.
E' possibile salvare in database access dati di tipo binario (per esempio un
documento word oppure un eseguibile) senza usare odbc?
Ringrazio in anticipo chiunque sappia darmi una risposta
RENATO


title: Salvataggio file

author: stwe

text:
"R. Guzzoni" <
rguz...@graffitimultimedia.it
> ha scritto nel messaggio
news:a0sk8c$l32$1...@pegasus.tiscalinet.it...

secondo me formalmente è sbagliato, eventualmente ci puoi mettere il
percorso in un db.
by
stwe


title: Salvataggio file

author: Sergio MAZZA

text:
"R. Guzzoni" <
rguz...@graffitimultimedia.it
> ha scritto nel messaggio
news:a0sk8c$l32$1...@pegasus.tiscalinet.it...

Io preferisco la memorizzazione del nome ed eventualmente il percorso del
file, per non far lievitare la dimensione dell'mdb...
Ciao.
--
Sergio MAZZA


title: [OT] domanda su formula.......

author: sblua

text:
ciao e scusate per la domanda stupida ma sono alle prime armi
sto cercando di creare un database per le produzioni in ditta e devo creare
un campo dove mi
calcola la media oraria di produzione ( pezzi / ore lav) come si fa?
PS: ci sono in giro degli esempi di database del genere da dove potrei
prendere spunti (non copia/incolla!!)
buon week-end a tutti
--
Attenzione togli l'antispam:
        e-mail sblua (chiocciolina)
libero.it


title: [OT] domanda su formula.......

author: TheMax

text:
sblua wrote:
> ciao e scusate per la domanda stupida ma sono alle prime armi
>
> sto cercando di creare un database per le produzioni in ditta e devo
> creare un campo dove mi
> calcola la media oraria di produzione ( pezzi / ore lav) come si fa?
Se la posti così, potrebbe essere un caso in cui hai tre campi in un tabella
Ora fine
Ora inizio
Pezzi prodotti
(ora di fine - ora di inizio) / pezzi prodotti
Quindi ti consiglio di vederti sulla guida in linea la funzione DateDiff che
ti fa la differenza tra due date, fornendoti il risultato o in ore o in
minuti o in ...
Più che altro perchè immagino che ti serva un valore espresso in una data
unità di tempo.
> PS: ci sono in giro degli esempi di database del genere da dove potrei
> prendere spunti (non copia/incolla!!)
Sull'uso delle funzioni, creazione di campi calcolati e tutto quello che
riguarda acess, direi
www.sitocomune.com
Ma niente di specifico su quanto cerchi tu.
> buon week-end a tutti
Altrettanto a te,
Ciao,
Massimo


title: [OT] domanda su formula.......

text:
> (ora di fine - ora di inizio) / pezzi prodotti
> Quindi ti consiglio di vederti sulla guida in linea la funzione DateDiff
che
> ti fa la differenza tra due date, fornendoti il risultato o in ore o in
> minuti o in ...
> Più che altro perchè immagino che ti serva un valore espresso in una data
> unità di tempo.
io ho una casella dove metto le ore lavorate, una con le ore fermo macchina,
una con la produzione di pezzi
mi deve uscire la media


title: [OT] domanda su formula.......

text:
sblua wrote:
>
> io ho una casella dove metto le ore lavorate, una con le ore fermo
> macchina, una con la produzione di pezzi
>
> mi deve uscire la media
OreLavorate/TotalePezzi
a mio avviso, in quanto le ore di fermo macchina non le conterei, altimenti
(OreLavorate + OreFermo) / TotalePezzi
Ciao,
Massimo


title: [ot] prova

author: David Sky 73

text: Prova


title: Errore 2455 "Riferimento non valido alla proprietà Form"

author: Fulvio

text:
Sto creando un DB in access 2003 (in formato access 2000) su piattaforma XP
Pro. Provandolo su Access 2003 tutto sembra funzionare correttamente.
Non appena provo su Access 2000 (con tutti gli update possibili), ottengo
l'errore 2455, "Riferimento non valido alla proprietā Form"
Allego il codice scritto nella propretā Open del Form principale
(Preventivo) che contiene un sottoform VociPreventivo.
Grazie mille,
Fulvio
     'variabile per capire da quale menų/form č avvenuta la chiamata
     If Len(Me.OpenArgs) > 0 Then
         Chiamante = Me.OpenArgs
     Else
         Chiamante = 1
     End If
     Set CurDb = CurrentDb
     ApriConnessione CurDb, CurConn 'sub per aprire la conessione al DB
     CurConn.BeginTrans 'tutte le operazioni avvengono in una transazione
     Select Case Chiamante
         Case 1  '<------- IL PROBLEMA E' IN QUESTO CASO (creazione di un
nuovo preventivo)
             'Decide il nuovo numero del contatore
             src = "SELECT Max(IdPreventivo)AS Massimo FROM Preventivo;"
              IdPrev = TrovaMax(src, CurConn)
             'imposta l'origine dati per il form
             src = "SELECT * FROM Preventivo WHERE IdPreventivo=" & IdPrev &
 ";"
             Me.VociPreventivo.Visible = False
             'Origine dati per il subform
             srcSub = "SELECT * FROM VociPreventivo WHERE IdProgetto=" &
 IdPrev & " ORDER by IdVoce;"
         Case 2 '<--------- IN QUESTO CASO TUTTO FUNZIONA (ricerca di 1
preventivo esistente)
             IdPrev =
Forms("preventivo_Cerca").Controls("CercaPreventivo").Value
             'imposta l'origine dati per il form
              src = "SELECT * FROM Preventivo WHERE IdPreventivo=" & IdPrev
&";"
             Me.VociPreventivo.Visible = True
             Me.IdPreventivo.Locked = True
             'Origine dati per il subform
              srcSub = "SELECT * FROM VociPreventivo WHERE IdProgetto=" &
 IdPrev & " ORDER by IdVoce;"
     End Select
     'Collega il form ai suoi dati
     With RsMaster
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .CursorLocation = adUseClient
     End With
     RsMaster.Open src, CurConn, , , adCmdTableDirect
     Set Me.Recordset = RsMaster
     'collega il subform ai suoi dati
     With RsChild
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .CursorLocation = adUseClient
     End With
     RsChild.Open srcSub, CurConn
     Set Me.VociPreventivo.Form.Recordset = RsChild
'<---------------------
 NEL CASO 1 QUI MI DA' ERRORE. NEL CASO 2 TUTTO FUNZIONA!!!


title: Ripropongo.Maschera di input per email.

author: Symi

text:
Ciao a tutto il NG,
non riesco a costruire una maschera di input efficace, per inserire gli
indirizzi e-mail in una casella di testo (nel Wizard non c'č).
Grazie in anticipo.
Symi.


title: Ripropongo.Maschera di input per email.

author: Warrant

text: puoi spiegarti meglio?


title: Ripropongo.Maschera di input per email.

text:
"Warrant" <
webm...@cedsrl.it
> ha scritto nel messaggio
news:jIne8.11404$_u5.4...@news1.tin.it...
> puoi spiegarti meglio?
>
>
Si, in pratica mi servirebbe che nella mia casella di testo, ci fosse una
maschera di input come questa 9999"-"99999999;0;_  (che va bene per i numeri
telefonici), per l'inserimento degli indirizzi e-mail. Ho provato in vari
modi ma nessuno č stato soddisfacente. Qualche idea? Spero di essere stato
piů chiaro stavolta .
Grazie per l'interessamento.
Ciao. Symi.


title: Query pass-through

author: djordj

text:
Per ottenere un recordset da una tabella AS/400 collegata via ODBC, ho
pensato a una query pass-through che ritorna alcuni campi di tutti i
record, qualcosa del tipo:
"select tblAS.campo1, tblAS.campo2 from tblAS"
Poi devo aggiornare una mia tabella (contenuta nel backend) con i dati
ricavati dall'AS/400.
Di conseguenza ho creato una query partendo dalla tabella da aggiornare e
dalla query pass-through di cui sopra.
Quando eseguo la query mi da un errore che dice che la query deve essere
aggiornabile (errore 3073).
Da cosa dipende questo errore?
La query pass-through di per sè funziona.
La query di aggironamento partendo da una tabella (anzichè dalla query
p.t.) funziona.
Mi sorge il dubbio che il problema sia proprio dovuto alla query p.t. di
partenza.
Ma come faccio allora ad accedere alla tabella AS/400 collegata?


title: aggiungere un riferimento ocx

author: hAPpy

text:
Ciao a tutti,
ho scaricato un programma "Barcodex" e vi ho trovato all'interno un demo in
access che ho rimanettato e funziona secondo i miei bisogni per creare
codici a barre.
Ho disinstallato il programma Barcodex e il demo che ho riattato funziona ma
non crea i barcode.
Cercando tra i riferimenti noto che "MANCA: BarcodeX ActiveX Control module"
Reinstallo il programma di cui sopra e il mio funziona, lo disistallo e non
funziona.
Nella cartella di installazione ho trovato un file: darcodex.ocx che ritengo
sia ciň che serve.
Come si fa a metterlo su???
Oppure mi spiegate, per piacere, cosa posso fare d'altro.
Sempre debitore d'affetto verso tutti voi.
Ciao, Antonio


title: aggiungere un riferimento ocx

author: Carlo Costarella

text:
"hAPpy" <
nibb...@tin.it
> ha scritto nel messaggio
news:45f87a88$0$814$4faf...@reader5.news.tin.it...

L'ActiveX o l'ocx o la dll vanno registrati nel sistema (Windows) per mezzo
del programma di registrazione che si chiama regsvr32.exe.
O ci pensa il programma di installazione o ci devi pensare tu manualmente:
avvio, esegui, regsvr32 Nome.ocx.
Poi da un modulo qualsiasi di Access scegli strumenti, riferimenti e
selezioni l'ocx appena registrato.
Ciao, Carlo


title: aggiungere un riferimento ocx

text:
Grazie per la risposta,. Ho provato a fare quanto mi hai detto scrivendo,
spero, la giusta sintassi: regsvr32 barcodex.ocx    ma la risposta è la
seguente: LoadLibrary(barcodex.ocx)non riuscito- impossibile trovare il
modulo specificato.
Ovviamente in quella riga non ho indicato dove trovasi il file barcodex.ocx.
Cosa devo fare??
ancora grazie per l'attenzione.
 Ciao, Antonio
--------------------------------------------------------------------------------
La mia Cartella di Posta in Arrivo è protetta con SPAMfighter
750 messaggi contenenti spam sono stati bloccati con successo.
Scarica gratuitamente SPAMfighter!


title: aggiungere un riferimento ocx

author: MA

text:
hAPpy wrote:
> Grazie per la risposta,. Ho provato a fare quanto mi hai detto
> scrivendo, spero, la giusta sintassi: regsvr32 barcodex.ocx    ma la
> risposta è la seguente: LoadLibrary(barcodex.ocx)non riuscito-
> impossibile trovare il modulo specificato.
> Ovviamente in quella riga non ho indicato dove trovasi il file
> barcodex.ocx. Cosa devo fare??
> ancora grazie per l'attenzione.
> Ciao, Antonio
>
La soluzione è su
sitocomune.com
In ogni caso, prendi l'ocx e trasportalo sopra il regsrv32 che sta nella
cartella system32
--
--
Massimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: aggiungere un riferimento ocx

text:
Ho provato ma non funziona.
Chissà che cosa combino. Intanto farà andare il mio file in associazione al
programma principale che starà buono buonino in undergroud. Prima o poi ci
riusciremo.
Grazie per l'attenzione, e un affettuoso arrivederci
Antonio
--------------------------------------------------------------------------------
La mia Cartella di Posta in Arrivo è protetta con SPAMfighter
779 messaggi contenenti spam sono stati bloccati con successo.
Scarica gratuitamente SPAMfighter!


title: Codice Sql per query

author: Raffaele Trombini

text:
Ho due tabelle con le stesse colonne.
Una delle 2 anagrafica_sara ha 1 colonna con delle altezze.
Vorrei aggiornare la colonna della tabella anagrafica_arturo con tali
valori.
Voglio perň fare il match tra i record delle 2 tabelle.
E lo devo fare fra le colonne descrizione e nome.
Il problema č che in molti casi non esiste un match esatto...ma i nomi si
somigliano....tipo "Impianto Cabelli" e "Impianto acqua Cabelli".
Ho pensato comunque di fare una query di aggiornamento con un join sui 2
campi e poi andare a modificare il codice sql in modo da non fargli
cercare il match esatto ma una parte del campo.
Tipo cosě:
SELECT Anagrafica_Arturo.ID_IMPIANTO, Anagrafica_Arturo.DESCRIZIONE,
Anagrafica_sara.NOME, Anagrafica_Arturo.COMUNE,
Anagrafica_Arturo.TIPOLOGIA, Anagrafica_Arturo.VIA,
Anagrafica_Arturo.N_CIVICO, Anagrafica_sara.NOMEVIA,
Anagrafica_sara.NCIVSUB
FROM Anagrafica_Arturo INNER JOIN Anagrafica_sara ON
Anagrafica_Arturo.DESCRIZIONE = "*"& Anagrafica_sara.NOME&"*";
Ma non funziona...cosa c'č di sbagliato?
E soprattutto sto facendo una cosa furba o c'č un metodo migliore?
Grazie per l'aiuto!!!
Ciaoo
Raffaele
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Codice Sql per query

author: VT @ home

text:
Il Fri, 22 Jun 2007 13:24:43 +0200,
trombini...@libero.it
 (Raffaele Trombini) ha scritto:
>(.....)
>Ho due tabelle con le stesse colonne.
>Una delle 2 anagrafica_sara ha 1 colonna con delle altezze.
>Vorrei aggiornare la colonna della tabella anagrafica_arturo con tali
>valori.
>Voglio però fare il match tra i record delle 2 tabelle.
>E lo devo fare fra le colonne descrizione e nome.
>Il problema è che in molti casi non esiste un match esatto...ma i nomi si
>somigliano....tipo "Impianto Cabelli" e "Impianto acqua Cabelli".
>Ho pensato comunque di fare una query di aggiornamento con un join sui 2
>campi e poi andare a modificare il codice sql in modo da non fargli
>cercare il match esatto ma una parte del campo.
>Tipo così:
>SELECT Anagrafica_Arturo.ID_IMPIANTO, Anagrafica_Arturo.DESCRIZIONE,
>Anagrafica_sara.NOME, Anagrafica_Arturo.COMUNE,
>Anagrafica_Arturo.TIPOLOGIA, Anagrafica_Arturo.VIA,
>Anagrafica_Arturo.N_CIVICO, Anagrafica_sara.NOMEVIA,
>Anagrafica_sara.NCIVSUB
>FROM Anagrafica_Arturo INNER JOIN Anagrafica_sara ON
>Anagrafica_Arturo.DESCRIZIONE = "*"& Anagrafica_sara.NOME&"*";
>
>Ma non funziona...cosa c'è di sbagliato?
E' giusto che non funzioni !
Quando scrivi INNER JOIN Anagrafica_sara ON
Anagrafica_Arturo.DESCRIZIONE = "*"& Anagrafica_sara.NOME&"*"
usi il simbolo = e quindi Access (o meglio, Jet) cercherà di correlare le righe di Anagrafica_Sara che per esempio
contengono "Pippo" con quelle di Anagrafica_Arturo dove il campo descrizione contiene "*Pippo*"
Ed ovviamente non ne troverà neanche una !
L'uso di * che intendi è sensato solo con l'uso dell'operatore Like che quindi puoi sostiturie a =.
Però le righe dell'esempio che hai fatto ("Impianto Cabelli" e "Impianto acqua Cabelli") non verranno comunque correlate
perchè le due parole sono inframezzate da "acqua".
Potresti provare con la funzione soundex e/o guardare qui
http://www.marcopipino.it/sql/levenshtein.php

Il problema deriva dal fatto che solo una parte del valore del campo di Anagrafica_Arturo è contenuto nel campo di
Anagrafica_Sara e non è detto che non sia inframezzato da altre parole.
>E soprattutto sto facendo una cosa furba o c'è un metodo migliore?
>
>Grazie per l'aiuto!!!
>Ciaoo
>Raffaele
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------


title: Codice Sql per query

text:
VT @ home ha scritto:




>
http://www.marcopipino.it/sql/levenshtein.php



> Vincenzo Turturro

Ok grazie...con il like funziona....o meglio sarebbe il massimo se non
fosse che i nomi sono veramente molto diversi fra loro!!!
Ho dato un'occhiata anche al link che mi hai postato...molto
interessante...vedrò di far saltar fuori qualcosa!!!
Grazie ancora per l'aiuto!!!!



title: Programmazione con Acess (Urgente)

author: jangar

text:
Cia ragazzi,
ho bisogno di un aiuto urgente! Mi è stato affidato il compito di realizzare
una applicazione/database programmando MSAccess. L'applicazione serve alla
gestione di clienti e deve essere il più possibile automatizzata e
user-friendly oltre a proteggersi contro un uso errato!
Il tutto entro un mese! Ho giù programmato in ASP/VBScript, Access lo
conosco abbastanza bene, ma mi manca la programmazione su Access!
Qualcuno sa darmi consgli su cosa fare e dove sbirciare per riuscire a
finire in tempo e, soprattutto, a finire?
Grazie, ciao!
--------------------------------
Inviato via
http://usenet.libero.it


title: Programmazione con Acess (Urgente)

author: Antonio Ganci

text:
jangar wrote:
[CUT]
> Qualcuno sa darmi consgli su cosa fare e dove sbirciare per riuscire a
> finire in tempo e, soprattutto, a finire?
>
> Grazie, ciao!
>
Andare a Lourdes.
Antonio.


title: Programmazione con Acess (Urgente)

author: Roberto da casa

text:
"Antonio Ganci" <
a.ganciNO...@megattera.it
> ha scritto nel messaggio
news:aojkor$n493g$1...@ID-162989.news.dfncis.de...

Per non perdere troppo tempo con un viaggio così lungo, forse risolve anche
andando a Loreto o a Pompei, tanto in tutti i casi la grazia sempre alla
Madonna la deve chiedere. :-)
>
> Antonio.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Programmazione con Acess (Urgente)

author: Alessandro Cara

text:
jangar wrote:
>
> Cia ragazzi,
> ho bisogno di un aiuto urgente! Mi è stato affidato il compito di realizzare
> una applicazione/database programmando MSAccess. L'applicazione serve alla
> gestione di clienti e deve essere il più possibile automatizzata e
> user-friendly oltre a proteggersi contro un uso errato!
> Il tutto entro un mese! Ho giù programmato in ASP/VBScript, Access lo
> conosco abbastanza bene, ma mi manca la programmazione su Access!
>
> Qualcuno sa darmi consgli su cosa fare e dove sbirciare per riuscire a
> finire in tempo e, soprattutto, a finire?
io non so cosa ci sia dentro,
ma, a quanto ho capito, il db Northwind, che viene con access, sembra
sia
il toccasana di tutti i mali
Se sai programmare con asp/vbscript non dovrebbero esserci problemi
e quei due giocherelloni che ti hanno risposto sono sempre pronti
a darti una mano , in fondo hai 720 ore a disposizione.
Una puntatina nei luoghi segnalati puo aiutare
--
a.cara


title: Programmazione con Acess (Urgente)

author: Massimiliano Amendola  kksrl

text:
> ho bisogno di un aiuto urgente! Mi è stato affidato il compito di
realizzare
> una applicazione/database programmando MSAccess. L'applicazione serve alla
> gestione di clienti e deve essere il più possibile automatizzata e
> user-friendly oltre a proteggersi contro un uso errato!
> Il tutto entro un mese! Ho giù programmato in ASP/VBScript, Access lo
> conosco abbastanza bene, ma mi manca la programmazione su Access!
>
> Qualcuno sa darmi consgli su cosa fare e dove sbirciare per riuscire a
> finire in tempo e, soprattutto, a finire?
Così come l'hai messa non puoi avere ulteriori suggerimenti.  Non hai detto
come li deve trattare questi clienti, che dati deve raccogliere, quale
versione hai, ci hai comunicato solo il tuo stato d'ansia.
On the fly ti dico di guardarti Nwind e Soluzioni che trovi negli esempi di
access.
facci sapere cosa vuoi fare
MAssimiliano


title: Programmazione con Acess (Urgente)

author: Santilli Marco

text:
Fornisci i campi della tabella
Fornisci una scaletta dei controlli che devi aver su questo database.
Poi ti aiuteremo!!!!!!
Ciao Marco
"jangar" <
jan...@inwind.it
> ha scritto nel messaggio
news:80Z207Z196Z78Y...@usenet.libero.it...



title: Programmazione con Acess (Urgente)

text:
ciao, io ho già fatto un programma che gestisce i clienti e gli ordini
dei clienti......è questo che cerchi? se credi contattami
lo...@libero.it


Programmazione con Acess (Urgente)


title: Programmazione con Acess (Urgente)

author: Emyr

text:


comincia col dire cosa intendi per gestione clienti....
Saluti.
Emanuele.


title: Programmazione con Acess (Urgente)

text:
Tutti mi hanno chiesto di specificare cosa dovesse fare questa application
database, beh, a dire la verità. neanche io so bene e nei dettagli cosa deve
fare, perchè il mio cliente non è direttamente il mio comm.te e tutti i
dettagli saranno abbozzati quando avrò l'incontro con il cliente! CMQ il
comm.te mi ha dato dei chiarimenti, se pur poco chiaritivi, su cosa deve
fare questa applicazione!
Questa è una scuola privata che eroga dei corsi. Allora, c'è un "Contraente"
che è quello che paga il/i corso/i, ma i "partecipanti" possono essere 1, 2,
ecc... e frequentare 1, 2 e diversi "corsi", naturalmente il "contranete" è
quello a firmare il/i "contratto/i" e per ognuno di essi ci sono dei
"pagamenti" che possono essere "rateizzati" o meno. Nei dettagli ci sono i
dati anagrafici, ed altre cose che riguardano poi le tabelle tra le
virgolette ("").
A parte ci deve essere anche un piccolo modulo per le piccole "spese".
I dati devono essere inseribili tramite maschere e visualizzabili sia in
formato digitale "query" e formato cartaceo "report" (occorre anche l'uso di
modelli word gia predefiniti con il solo cambiamenti delle variabili)! Però,
ci devono essere anche degli eventi che scattano a determinate scadenze, ad
esempio, quando il contraente non ha pagato ed altri eventi simili che
scattino al verificarsi di...
Non ho problemi ha costruire tutto questo dal punto di vista del database,
perchè ho già esperienza in merito, ma dal lato programmazione non so come
muovermi, non perchè non abbia esperienze di programmazione (figuratevi che
in fase di stage ho costruito io ed un collega un'applicazione client/server
- delphi/cobol per gestione dei conti correnti bancari, non in tutta la sua
complessità, ma abbiamo risolto molte problematiche che riguardano la
programmazione di software del genere e dell'interoperabilità con le socket)
Ho sentito parlare anche di poter costruire un exe che non abbia bisogno di
avere access installato e di poter dare parametri d'avvio (che tra l'altro
avevo già verificato) e di costruire qualcosa con visual basic di VS6. A tal
proposito io ho a disposizione VS.Net, ma non so se potrebbe rendermi la
vita più facile o più difficile, visto che ho solo 30 giorni dal momento in
cui partirà il contratto! Consigliatemi voi come muovermi, sebbene credo che
il modo migliore, da quanto ho capito, è quello di costuire un mdb con
parametri d'avvio, ma non mi convince il fatto che il cliente debba avere
installato access (non so neanche la versione).
Io ho una macchina Pentium 233, con windows 2K+96MB.RAM (in ufficio
P.IV2G-256MB.Ram, ma non posso usarlo molto per i miei comodi, visto che il
mio lavoro è di un altro genere), quindi consigliatemi sul da farsi e se
devo installarmi office xp, a questo punto se ha più particolarità???
Ciao, e grazie
