title: relazioni fra tabelle

author: Roberto dal portatile

text:
"dandia" <
dan...@tiscalinet.it
> ha scritto nel messaggio
news:62Z11Z155Z230Y...@usenet.iol.it...

Ipotizziamo che un film sia presente nella tua videoteca una sola volta e
che pertanto coincide il film con la videocassetta.
Ipotizziamo che un film può avere un solo regista.
Le tabelle accessorie potrebbero essere:
tblGenere
--------------
IDGenere            Contatore e chiave primaria
Genere                Testo
tblRegisti
--------------
IDRegista            Contatore e chiave primaria
Regista                Testo
rblAttori
-----------
IDAttore                Contatore e chiave primaria
Attore                   Testo
La tabella principale può avere una struttura simile.
tblVideo
-----------
IDVideo                Contatore e chiave primaria
Titolo                    Testo
Durata                  Data/ora
IDGenere              Numerico
IDRegista             Numerico
La tabella tblVideo sarà in relazione uno-a-molti con la tabella tblGenere
in base ai campi IDGenere. A questa relazione applica l'integrità
referenziale.
La tabella tblVideo sarà in relazione uno-a-molti con la tabella tblRegisti
in base ai campi IDRegista. A questa relazione applica l'integrità
referenziale.
Poichè un film può avere più attori e ogni attore può aver interpretato più
film, tblVideo sarà in relazione molti-a-molti con tblAttori. In Access
questo tipo di relazione non può essere attuata direttamente, ma viene
effettuata tramite una terza tabella che chiameremo tblVideoAttori e che
avrà la seguente struttura:
tblVideoAttori
--------------------
IDVideoAttori        Contatore e chiave primaria
IDVideo                Numerico
IDAttore                Numerico
Questa tabella sarà in relazione uno-a-molti con tblVideo in base ai campi
IDVideo e in relazione uno-a-molti con tblAttori i base ai campi IDAttore.
Ad ambedue queste relazioni applica l'integrità referenziale con l'opzione
Elimina record correlati a catena.
Per semplificarti in seguito la vita nella creazione delle maschere e dei
report, apri la struttura di tblVideoAttori e, relativamente al campo
IDVideo esegui l'Autocomposizione Ricerca... basandola sulla tabella
tblVideo; esegui l'Autocomposizione Ricerca... anche per il campo IDAttore
basandola sulla tabella tblAttori.
Per la tabella tblVideo esegui l'autocomposizione Ricerca... per il campo
IDRegista basandola sulla tabella tblRegisti e per il campo IDGenere
basandola sulla tabella tblGenere.
Questo potrebbe essere un primo approccio alla progettazione del tuo
database.
Naturalmente, seguendo la stessa logica, puoi arrichirlo inserendo anche
altri dati relativi agli sceneggiatori, agli autori di colonne sonore ecc.
Nel caso che le nuove tabelle saranno legate a tblVideo con una relazione
uno-a-molti ti comporterai come fatto per i registi; se invece la relazione
dovrà essere molti-a-molti ti comporterai come per gli attori.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: relazioni fra tabelle

author: dandia

text:
Il 10 Ago 2001, 15:47, "Roberto dal portatile" <
r.ma...@repubblica.it
> ha
scritto:
>
>>
>>--------------
>
>
>---------------------------------------------
>il Sito Comune di
it.comp.appl.access:
>
http://www.sitocomune.com
>---------------------------------------------
grazie pe l'esauriente
spiegazione non avrei potuto chiedere di meglio, mi sarą veramente d'aiuto,
appena posso la metto in pratica e poi ti faccio sapere. Ancora grazie
spero potrai aiutarmi ancora in futuro. ciao



title: Capodanno e INCENDI

author: valted

text: sei OT


title: Creare database uguali - Sviluppo "verso l'alto"

author: Matteo F

text:
Salve a tutti!
L'oggetto è un po' contorto, spero di essere più chiaro con una breve
descrizione.
Ho un database abbastanza strutturato e complesso fatto e finito.
Riguarda un elenco di prove di collaudo per un certo impianto.
Ora vorrei modificare il dababase ampliandolo "verso l'alto", cioè
fare in modo, tramite un form all'avvio o qlc di simile, di poterne
creare uno nuovo con le stesse tabelle (vuote naturalmente), stesse
maschere e stessa struttura.
E' una cosa fattibile?
Grazie!


author: Michele (Giò)

text:
"Matteo F" <
matteo....@gmail.com
> ha scritto nel messaggio
news:1163099031.6...@m73g2000cwd.googlegroups.com...
Salve a tutti!
L'oggetto č un po' contorto, spero di essere piů chiaro con una breve
descrizione.
Ho un database abbastanza strutturato e complesso fatto e finito.
Riguarda un elenco di prove di collaudo per un certo impianto.
Ora vorrei modificare il dababase ampliandolo "verso l'alto", cioč
fare in modo, tramite un form all'avvio o qlc di simile, di poterne
creare uno nuovo con le stesse tabelle (vuote naturalmente), stesse
maschere e stessa struttura.
E' una cosa fattibile?
Grazie!
Scusa, ma fammi capire, vorresti dal tuo db, con un click su un pulsante, creare un nuovo db ed
esportarci tutto ma proprio tutto (dati esclusi) il contenuto dello stesso database?
Una soluzione potrebbe essere copiare il db corrente con nuovo nome, svuotarlo di tutte le tabelle
non di sistema e di compattarlo.
Prova su evento click di un eventuale pulsante  scrivere questa funzione
-------------------------------------------------------
On Error Resume Next
Dim AppAcc As New Access.Application
Dim MySys As Scripting.FileSystemObject
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim rcd As DAO.Recordset
Dim Errore_intref as Boolean
Dim Strdest As String
Strdest = Left(Application.CurrentProject.FullName, Len(Application.CurrentProject.FullName) - 4) &
" Nuovo.mdb"
Err.Clear
Set MySys = CreateObject("scripting.filesystemobject")
'copia il db corrente nel nuovo file ...nuovo.mdb
MySys.CopyFile Application.CurrentProject.FullName, Strdest, False
'se si verifica errore, messaggio e uscita
If Err <> 0 Then
    MsgBox "Impossibile creare il nuovo database", vbExclamation, "Informazione"
    Set MySys = Nothing
    Exit Function
End If
Set db = DBEngine.OpenDatabase(Strdest)
Ricomincia:
Errore_intref = False
For Each tbl In db.TableDefs
Err.Clear
If Not Left(tbl.Name, 4) = "Msys" Then
    Set rcd = db.OpenRecordset(tbl.Name, dbOpenDynaset)
    Do While Not rcd.EOF
        rcd.Delete
'si verifica errore se la cancellazione avviene su una tabella che possiede record correlati
        If Err <> 0 Then
            Errore_intref = True
            GoTo Fuori
        End If
        rcd.MoveNext
    Loop
Fuori:
    rcd.Close
End If
Next tbl
If Errore_intref Then GoTo Ricomincia
Set rcd = Nothing
Set tbl = Nothing
db.Close
Set db = Nothing
AppAcc.OpenCurrentDatabase Strdest, True
AppAcc.DoCmd.RunCommand acCmdCompactDatabase
AppAcc.CloseCurrentDatabase
AppAcc.Quit
Set AppAcc = Nothing
--------------------------------------------
hai bisogno dei riferimenti "DAO 3.6 object library" e  "Microsoft Scripting Runtime".
Io l'ho provata e sembrerebbe funzionare...............
Attento che se hai tabelle collegate questa routine te le svuota tutte, non fa distinzione. Prova su
una copia (della copia(della copia)) del tuo db.
Fammi sapere
Michele


author: cidi

text:
"Michele (Giò)" <
joyl...@alice.it
> ha scritto nel messaggio
news:4553a5a7$0$19241$4faf...@reader4.news.tin.it...
> "Matteo F" <
matteo....@gmail.com
> ha scritto nel messaggio
> news:1163099031.6...@m73g2000cwd.googlegroups.com...
> Salve a tutti!
> L'oggetto è un po' contorto, spero di essere più chiaro con una breve
> descrizione.
> Ho un database abbastanza strutturato e complesso fatto e finito.
> Riguarda un elenco di prove di collaudo per un certo impianto.
> Ora vorrei modificare il dababase ampliandolo "verso l'alto", cioè
> fare in modo, tramite un form all'avvio o qlc di simile, di poterne
> creare uno nuovo con le stesse tabelle (vuote naturalmente), stesse
> maschere e stessa struttura.
> E' una cosa fattibile?
> Grazie!
>
> Scusa, ma fammi capire, vorresti dal tuo db, con un click su un pulsante,
> creare un nuovo db ed esportarci tutto ma proprio tutto (dati esclusi) il
> contenuto dello stesso database?
>
> Una soluzione potrebbe essere copiare il db corrente con nuovo nome,
> svuotarlo di tutte le tabelle
Ciao Michele
ma allora non sarebbe più semplice fare una copia del db ed importare tutto?
File-> carica dati esterni-> importa-> opzioni : solo definizione
forse non ho capito niente ... :)
Daniele


text:
Ciao Michele
Qui in ufficio mancano le librerie. Appena ho il notebook sotto mano
provo per bene e poi ti faccio sapere.
Grazie per esserti interessato


text:
"cidi" <
dadonz...@tin.it
> ha scritto nel messaggio
news:4553ab15$0$13750$4faf...@reader3.news.tin.it...
>
> "Michele (Giň)" <
joyl...@alice.it
> ha scritto nel messaggio
> news:4553a5a7$0$19241$4faf...@reader4.news.tin.it...
>> "Matteo F" <
matteo....@gmail.com
> ha scritto nel messaggio
>> news:1163099031.6...@m73g2000cwd.googlegroups.com...
> Ciao Michele
> ma allora non sarebbe piů semplice fare una copia del db ed importare tutto?
Si, ma perderesti tutto quello che č commandbar, riferimenti, opzioni, opzioni di avvio ecc....
Per fare una cosa del genere, io e Silvio stiamo preparando un db che esegue questa operazione, ma
siamo un pň indietro.
Michele


text:
"Michele (Giò)" <
joyl...@alice.it
> ha scritto nel messaggio
news:4554c275$0$19230$4faf...@reader4.news.tin.it...
> "cidi" <
dadonz...@tin.it
> ha scritto nel messaggio
> news:4553ab15$0$13750$4faf...@reader3.news.tin.it...
>>
>> "Michele (Giò)" <
joyl...@alice.it
> ha scritto nel messaggio
>> news:4553a5a7$0$19241$4faf...@reader4.news.tin.it...
>>> "Matteo F" <
matteo....@gmail.com
> ha scritto nel messaggio
>>> news:1163099031.6...@m73g2000cwd.googlegroups.com...
>
>> Ciao Michele
>> ma allora non sarebbe più semplice fare una copia del db ed importare
>> tutto?
>
> Si, ma perderesti tutto quello che è commandbar, riferimenti, opzioni,
> opzioni di avvio ecc....
>
> Per fare una cosa del genere, io e Silvio
Silvio?  ...gulp .... il capellone?
>stiamo preparando un db che esegue questa operazione, ma siamo un pò
>indietro.
aspetteranno :<))
> Michele
Ciao
Daniele


text:
Ciao Michele!
Ho provato a scrivere il tuo codice ma mi dà svariati errori.
Ho seguito anche altre strade ma il risultato è stato pessimo, forse
per l'elevato numero di correlazioni tra tabelle.
Non importa, ho lasciato perdere. Se mai qualcuno vorrà fare una copia
del database useranno il metodo classico del copia-incolla.
Grazie comunque!
Ciao!


text:
"Matteo F" <
matteo....@gmail.com
> ha scritto nel messaggio
news:1163579504....@e3g2000cwe.googlegroups.com...

Che tipo di errori è che ti da? Che access usi?
Michele


title: Linkare Tabelle SQL sotto a2000

author: @tiscali.it IceMatrix

text:
Ciao Ragazzi vorrei chiedervi se qualcuno di voi è riuscito a collegare
delle tabelle sotto sql in un db access 2000 senza utilizzare l'odbc.
Per ora non ho trovato niente su internet senza l'utilizzo dell'ODBC ora
chiedo a voi due righe di codice o eventualmente un sito con un esempio.
Ciao Grazie Enrico Orlando


title: Linkare Tabelle SQL sotto a2000

text:
"IceMatrix" <comarr @ Tiscali .it> ha scritto nel messaggio
news:b980p2$cvq$1...@lacerta.tiscalinet.it...

Senza ODBC cosa intendi.... con OLEDb provider.....???
Avendo A2K puoi usare OLEDB oppure ODBC-Direct....!
Per il 1° ADO per il 2°DAO......!
@Alex.


title: [OT] Scanner...ancora una possibilità

author: Carlo Costarella

text:
Molte volte si è parlato di questo argomento e sempre più spesso ci si
lamenta del fatto che gli ocx Kodak non possono essere utilizzati con
A2003...
Grazie a WIA (Windows Image Acquisition Automation Library v2.0), una
libreria di oggetti free da Microsoft, è possibile dotare un applicativo
Access (tutte le versioni) della capacità di acquisire immagini. L'esempio
fornito permette di acquisire immagini da uno scanner o telecamera e
salvarle in un file oltre a visualizzarle in una maschera.
L'esempio usa un file di A97 ma può essere convertito anche in formati
successivi, già testati e funzionanti.
Prerequisiti: Windows Xp con sp1 (sic!) (dovrebbe funzionare anche con
WinME) , registrare la libreria wiaaut.dll.
L'esempio è veramente minuscolo e con pochissime righe di codice. Stà alle
capacità dell'utilizzatore, implementare il resto delle possibilità offerte
dalla libreria. La libreria nasce per essere utilizzata in VB6 ma, con
qualche accorgimento, è possibile usarla in Access.
Nel file:
il database di esempio
WIAAutSDK.zip con l'SDK e la dll
Estrarre il file in una cartella e copiare wiaaut.dll in
c:\Windows\System32; registrarla al solito modo: Avvio, Esegui, Regsvr32
wiaaut.dll seguito da invio.
Questo il link per il file completo di esempio:
http://www.frantoiogestione.com/WIAAutSDK.zip
Microsoft:
http://www.microsoft.com/downloads/details.aspx?FamilyID=a332a77a-01b8-4de6-91c2-b7ea32537e29&DisplayLang=en
Altre referenze:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wiaaut/wia/wiax/refwiaaut/wiaautrefentry.asp
Attendo commenti.
Ciao, Carlo


title: [OT] Scanner...ancora una possibilità

text:
Preciso che l'applicativo utilizza solo le periferiche di imaging WIA
(Windows Image Acquisition) compatibili.
Fotocamere digitali, videocamere DV, scanner, scanner professionali o
WebCamere WIA compatibili.
Ciao, Carlo


title: [OT] Scanner...ancora una possibilità

author: Sergio MAZZA

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio news:434812dc$0$20487$4faf...@reader4.news.tin.it...

Ohooo! Finalmente...
Dovresti fare come Roberto e il messaggio del "come comportarsi...", inviando perdiodicamente questo tuo...
Ciao.
--
Sergio MAZZA


title: [OT] Scanner...ancora una possibilità

text:
Per un elenco di apparecchi supportati:
http://support.microsoft.com/?kbid=264598
Per i più smanettoni è comunque possibile realizzare in proprio un
minidriver WIA per il proprio scanner Twain. Indispensabile in questo caso
il Windows DDK.
Ciao, Carlo


title: [OT] Scanner...ancora una possibilità

text:
Un altro elenco di scanner supportati:
http://support.microsoft.com/default.aspx?scid=kb;it;293356
di fotocamere:
http://support.microsoft.com/default.aspx?scid=kb;it;293168
di videocamere:
http://support.microsoft.com/default.aspx?scid=kb;it;300459
mix per millenium:
http://support.microsoft.com/default.aspx?scid=kb;it;264598#appliesto
Ciao, Carlo


title: Eseguire query di creazione tabella

author: Paolo

text:
Salve a tutti. Sto utilizzando il metodo execute per eseguire una query
da vba, definita come:
Set query = database.QueryDefs("nomequery")
query.execute
però mi da errore perchè la tabella che crea già esiste. Esiste un modo
per sovrascriverla oppure magari (ancora meglio) cancellare la tabella
sempre da vba dopo l'uso? Non ho trovato alcun metodo adeguato fino ad
ora.
Grazie e ciao.


title: Eseguire query di creazione tabella

author: MA

text:

c'è addirittura una macro
elimina oggetto
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Info:
www.donkarl.com/it


title: Eseguire query di creazione tabella

text:
MA nel messaggio precedente ha scritto:
> c'è addirittura una macro
> elimina oggetto
mmh, si, ma allora si può far partire una macro dal codice vba?
Grazie mille per la dritta.
Luca


title: Eseguire query di creazione tabella

text:

La puoi converire in Vba, strumenti macro converti
o lanciare docmd.runmacro "tuaMacro"



title: Eseguire query di creazione tabella

author: namor

text:
Paolo ha scritto:



Prova database.execute ("DROP TABLE [Nometabella]")
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Eseguire query di creazione tabella

text:
MA nel messaggio precedente ha scritto:
> La puoi converire in Vba, strumenti macro converti
> o lanciare docmd.runmacro "tuaMacro"
Me ne sono accorto ora :-). Grazie mille per le informazioni. Su google
si trova un casino di roba riguardo a come eliminare record ma non su
eliminazione di elementi.
Sono riuscito a fare tutto quello che mi serviva, ci sarebbe solo
un'altra cosa che probabilmente però non si può fare. Quando eseguo la
query da vba, che è una query di creazione tabella, manda un casino di
messaggi di conferma. Dato che quella tabella è temporanea, non vorrei
nessun messaggio di conferma. Ha visto sulla guida che si possono
disabilitare, ma la disabilitazione è solo locale? Cioè, quando la
disabilito dal menu come dice la guida, se eseguo il databse su di un
altro pc con access quelle finestre riappaiono giusto? Non è che da vb
si possa dirgli esplicitamente di non mostrarle in questo caso? Ho
guardato nella guida i parametri del comando openquery, ma non mi pare
che ci fosse una cosa del genere.
Grazie ancora per le preziose informazioni.


title: Re: svuotare database ....

author: Sandro

text:
"Carlo Costarella" <
carloantonioco...@virgilio.it
> ha scritto nel
messaggio news:GZY%d.1099617$35.40...@news4.tin.it...
> cut
> >
> > Ciao Carlo, scusa se mi inserisco, che pensi di questo :
> > Dim tbl As TableDef
> > Dim dbs As DAO.Database
> > Set dbs = CurrentDb
> > DoCmd.SetWarnings False
> > On Error GoTo errori
> > For Each tbl In dbs.TableDefs
> >    If Left(
tbl.name
, 4) <> "Msys" And Mid(
tbl.name
, 1, 1) <> "~" And
> >
tbl.name
 <> "Registro di correzione automatica nome" Then
> >         strsql = "delete * from " &
tbl.name
> >         Debug.Print
tbl.name
> >         DoCmd.RunSQL strsql
> >    End If
> > Next tbl
> > DoCmd.SetWarnings True
> >
> > MsgBox ("operazione terminata con successo")
> >
> > ripristina:
> >    Exit Sub
> > errori:
> >    MsgBox (Err.Description)
> >    Resume ripristina
> >
> > mi funziona correttamente, mi dai un parere ?
> > Grazie, ciao
> >
>
> Se a te funziona va benissimo perchč almeno č stata farina del tuo sacco e
> adatta alle tue esigenze.
> Alcune osservazioni.
> Per esempio la tabella "Registro di correzione automatica nome" non č
sempre
> presente in tutti i db e sicuramente non lo č nei db 97.
> Left e Mid occupano comunque memoria e toglierei "Debug.Print
tbl.name
"
> specie se non si sta facendo il debug o se si deve distribuire un mde.
> Invece DoCmd.SetWarnings False va messo nell'If e prima di eseguire
> l'istruzione sql:
> DoCmd.SetWarnings False
> DoCmd.RunSQL strsql
> DoCmd.SetWarnings True
>
> Ciao, Carlo
Ciao Carlo,
dalla tua considerazione capisco che č meglio ciclare il recordset della
tabella di sistema in quanto soluzione piů versatile e meglio adattabile ad
altri database.(come dicevate in precedenza)
Debug.Print
tbl.name
 č rimasto in quanto in sede di stesura del codice
l'avevo messo per vedere il ciclo for each se correttemente leggeva tutte le
tabelle, si ok lo tolgo o gli metto un rem davanti.
Non ho capito invece la differenza di mettere il DoCmd.SetWarnings False
prima del ciclo invece che come dici tu prima della DoCmd.RunSQL strsql.
E' una finezza oppure c'č dell'altro ?
Grazie, ciao


title: Re: svuotare database ....

author: Alessandro Baraldi

text:
"Sandro" <
sandro...@tin.it
> wrote in message
news:qb_%d.1100297$
35.40...@news4.tin.it
[CUT]
> Alex, dici di utilizzare una tabella di appoggio per l'istruzione delete ad
> esempio.
> In questo caso cosa dovrei fare ?
> Creare una tabella in cui inserire le tabelle e poi ciclare quella ?
> Forse no, perchè otterrei lo stresso risultato che con la tabella di
> sistema.
> Mi dai qualche ulteriore ragguaglio ?
Il risultato non è lo stesso.
Supponi di voler gestire una sicurezza Utente interna a MDE
e concedere operazioni pianificate, supponi che tra le 157 Tabelle che
ha il tuo applicativo solo 28 vadano svuotate, supponi altre
personalizzazioni.....!!!
Con la MSYSOBJECT cosa dovresti fare per discriminare le
tabelle sulle quali operare in un modo piuttosto che inun altro...?
Sai che la gestione Utenti in MDE è quella che consente
la maggior protezione del tuo applicativo, come potresti discriminare
che l'ADMIN può eliminare tutti i dati mentre "SANDRO" può farlo
solo su 10 delle 153 tabelle...???
Io ho una Tabella nella quale metto l'elenco delle tabelle
i permissivi di eliminazione ed altre cose, come il Relink
ecc....!
Una tabella delle Form nella quale inserisco i permissivi...!
Ho una maschera d'interfaccia che è simile a quella della gestione
UTENTI dell'MDW, che mi scrive nelle mie Tabelle tutte queste
gestioni.(Ovviamente Relazionato con la tbl[USER])
Insomma un pò di fantasia applicata...!
Ho fatto un pò un'accenno globale, sembra complesso, ma
una volta impostato bene poi è COPIA/INCOLLA in tutti i progetti.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Re: svuotare database ....

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:d9d4b58bc6b4999804...@mygate.mailgate.org...
> "Sandro" <
sandro...@tin.it
> wrote in message
> news:P7Z%d.1099686$
35.40...@news4.tin.it
> [CUT]
> > Ciao Carlo,
> > dalla tua considerazione capisco che è meglio ciclare il recordset della
> > tabella di sistema in quanto soluzione più versatile e meglio adattabile
ad
> > altri database.(come dicevate in precedenza)
> > Debug.Print
tbl.name
 è rimasto in quanto in sede di stesura del codice
> > l'avevo messo per vedere il ciclo for each se correttemente leggeva
tutte le
> > tabelle, si ok lo tolgo o gli metto un rem davanti.
>
> Ciclare la Tabella MSSysObject è la cosa più comoda, ma decisamente
> meno flessibile e gestibile che si possa prevedere.
>
> Esperienza insegna che forse è meglio avere una Tabella Usata
> proprio per le azioni di Forza come il Relink ed il Delete o altro.
> In questo modo invece di colcare MSysObject che rimane un'azione
> rigida e vincolata, si ha la possibilità di gestire via codice
> la cosa.
> Ovviamente parlo nell'ottica di gestione da codice, dove non
> è sempre detto che TUTTE le tabelle siano da Svuotare.
>
> > Non ho capito invece la differenza di mettere il DoCmd.SetWarnings False
> > prima del ciclo invece che come dici tu prima della DoCmd.RunSQL strsql.
> > E' una finezza oppure c'è dell'altro ?
> > Grazie, ciao
>
> Carlo ha evidenziato un concetto importante, tutt'altro che
> una finezza.
>
> Disabilitare i messaggi errore è da fare solo dove strettamente
> necessario e dove si conosce l'effetto, farlo a monte di tutto
> può celare problemi o non segnalare anomalie.
>
> Saluti.
>
> @Alex
Ciao @Alex e Carlo,
avete fatto bene a farmi notare questa cosa anche perchè nel mio codice, non
notando particolari problemi l'avevo piazzato li un po' a casaccio se
vogliamo, non pensando ai problemi a cui sarei potuto andare incontro
soprattutto in presenza di altre strsql di comando che sarebbero state
eseguite senza magari che me ne accorgessi !!
Adesso che me l'avete spiegato capisco l'importanza di inserire queste
instruzioni nel posto giusto.
Ho fatto bene a postare e a richiedere un parere.



title: Re: svuotare database ....

author: sandro

text:
[cut]
> Matteo è stato preciso ma presupponeva qualche piccola conoscenza di
Access.
> MSysObjects è una tabella di sistema (nascosta) che elenca tutti gli
oggetti
> del database.
> Per evidenziarla: menù strumenti...Opzioni...Spunta "Oggetti di Sistema".
> Ora la vedi.
> Le tabelle locali hanno il valore Type = 1, le tabelle allegate hanno il
> valore Type = 6.
> Da questo ne risulta che puoi creare una query a partire da questa tabella
> MSysObjects e filtrare la colonna Type per 1 o per 6 o per entrambi i tipi
a
> seconda delle tue necessità.
> Il risultato sarà una query che mostra solo gli oggetti di tipo tabella,
il
> cui nome compare nella colonna "Name".
> Ora se da codice apri la query (recordset) e con un ciclo scorri tutti i
> "Name" delle tabelle potrai eseguire una query o istruzione SQL che, per
> ogni tabella, ne elimina i dati.
>
> Se fino a qui è chiaro faccelo sapere. Intanto prova a realizzare la
query.
>
> Ciao, Carlo



title: Re: svuotare database ....

author: yag

text:
come posso fare per farlo inun colpo solo ho circa 30 tabelle....
access 2000
grazie ciao


title: Re: svuotare database ....

text:
"Carlo Costarella" <
carloantonioco...@virgilio.it
> ha scritto nel
messaggio news:voV%d.1098402$35.40...@news4.tin.it...
>
> "yag" <
yag...@tiscali.it
> ha scritto nel messaggio
> news:icV%d.685028$b5.31...@news3.tin.it...
>>
>> "Matteo Barsotti" <m.barsotti@cbsistemi_NO_SPAM_THANKS.it> ha scritto nel
>> messaggio news:d1p5ir$99n$1...@news.ngi.it...
>>> yag ha scritto:
>>>> come posso fare per farlo inun colpo solo ho circa 30 tabelle....
>>>> access 2000
>>>>
>>>> grazie ciao
>>>
>>> apri un recordset su questa query:
>>>
>>> SELECT MSysObjects.Name AS NomeTabella
>>> FROM MSysObjects
>>> WHERE (((MSysObjects.Name) Not Like "msys*") AND
>>> ((MSysObjects.Type)=1));
>>>
>>> che ti restituisce l'elenco delle tabelle, poi esegui
>>>
>>> docmd.RunSQL "DELETE FROM "  & rcs.nometabella
>>>
>>> dove rcs è il recordset di prima
>>>
>>> Ciao
>> mi son perso non esiste qualche tool ?
>>
>>
>
> Matteo è stato preciso ma presupponeva qualche piccola conoscenza di
> Access.
> MSysObjects è una tabella di sistema (nascosta) che elenca tutti gli
> oggetti del database.
> Per evidenziarla: menù strumenti...Opzioni...Spunta "Oggetti di Sistema".
> Ora la vedi.
> Le tabelle locali hanno il valore Type = 1, le tabelle allegate hanno il
> valore Type = 6.
> Da questo ne risulta che puoi creare una query a partire da questa tabella
> MSysObjects e filtrare la colonna Type per 1 o per 6 o per entrambi i tipi
> a seconda delle tue necessità.
> Il risultato sarà una query che mostra solo gli oggetti di tipo tabella,
> il cui nome compare nella colonna "Name".
> Ora se da codice apri la query (recordset) e con un ciclo scorri tutti i
> "Name" delle tabelle potrai eseguire una query o istruzione SQL che, per
> ogni tabella, ne elimina i dati.
>
Grazie a entrambi e tutto chiaro solo mi serviva qualcosa di più veloce (ma
posso fare tutto da access ? )


title: Re: svuotare database ....

text:
"yag" <
yag...@tiscali.it
> ha scritto nel messaggio
news:icV%d.685028$b5.31...@news3.tin.it...
>
> "Matteo Barsotti" <m.barsotti@cbsistemi_NO_SPAM_THANKS.it> ha scritto nel
> messaggio news:d1p5ir$99n$1...@news.ngi.it...
>> yag ha scritto:
>>> come posso fare per farlo inun colpo solo ho circa 30 tabelle....
>>> access 2000
>>>
>>> grazie ciao
>>
>> apri un recordset su questa query:
>>
>> SELECT MSysObjects.Name AS NomeTabella
>> FROM MSysObjects
>> WHERE (((MSysObjects.Name) Not Like "msys*") AND ((MSysObjects.Type)=1));
>>
>> che ti restituisce l'elenco delle tabelle, poi esegui
>>
>> docmd.RunSQL "DELETE FROM "  & rcs.nometabella
>>
>> dove rcs è il recordset di prima
>>
>> Ciao
> mi son perso non esiste qualche tool ?
>
>
Matteo è stato preciso ma presupponeva qualche piccola conoscenza di Access.
MSysObjects è una tabella di sistema (nascosta) che elenca tutti gli oggetti
del database.
Per evidenziarla: menù strumenti...Opzioni...Spunta "Oggetti di Sistema".
Ora la vedi.
Le tabelle locali hanno il valore Type = 1, le tabelle allegate hanno il
valore Type = 6.
Da questo ne risulta che puoi creare una query a partire da questa tabella
MSysObjects e filtrare la colonna Type per 1 o per 6 o per entrambi i tipi a
seconda delle tue necessità.
Il risultato sarà una query che mostra solo gli oggetti di tipo tabella, il
cui nome compare nella colonna "Name".
Ora se da codice apri la query (recordset) e con un ciclo scorri tutti i
"Name" delle tabelle potrai eseguire una query o istruzione SQL che, per
ogni tabella, ne elimina i dati.
Se fino a qui è chiaro faccelo sapere. Intanto prova a realizzare la query.
Ciao, Carlo


title: Re: svuotare database ....

text:
"Sandro" <
sandro...@tin.it
> wrote in message
news:P7Z%d.1099686$
35.40...@news4.tin.it
[CUT]
> Ciao Carlo,
> dalla tua considerazione capisco che è meglio ciclare il recordset della
> tabella di sistema in quanto soluzione più versatile e meglio adattabile ad
> altri database.(come dicevate in precedenza)
> Debug.Print
tbl.name
 è rimasto in quanto in sede di stesura del codice
> l'avevo messo per vedere il ciclo for each se correttemente leggeva tutte le
> tabelle, si ok lo tolgo o gli metto un rem davanti.
Ciclare la Tabella MSSysObject è la cosa più comoda, ma decisamente
meno flessibile e gestibile che si possa prevedere.
Esperienza insegna che forse è meglio avere una Tabella Usata
proprio per le azioni di Forza come il Relink ed il Delete o altro.
In questo modo invece di colcare MSysObject che rimane un'azione
rigida e vincolata, si ha la possibilità di gestire via codice
la cosa.
Ovviamente parlo nell'ottica di gestione da codice, dove non
è sempre detto che TUTTE le tabelle siano da Svuotare.
> Non ho capito invece la differenza di mettere il DoCmd.SetWarnings False
> prima del ciclo invece che come dici tu prima della DoCmd.RunSQL strsql.
> E' una finezza oppure c'è dell'altro ?
> Grazie, ciao
Carlo ha evidenziato un concetto importante, tutt'altro che
una finezza.
Disabilitare i messaggi errore è da fare solo dove strettamente
necessario e dove si conosce l'effetto, farlo a monte di tutto
può celare problemi o non segnalare anomalie.
Saluti.
@Alex



title: Re: svuotare database ....

author: Matteo Barsotti

text:
yag ha scritto:
> come posso fare per farlo inun colpo solo ho circa 30 tabelle....
> access 2000
>
> grazie ciao
apri un recordset su questa query:
SELECT MSysObjects.Name AS NomeTabella
FROM MSysObjects
WHERE (((MSysObjects.Name) Not Like "msys*") AND ((MSysObjects.Type)=1));
che ti restituisce l'elenco delle tabelle, poi esegui
docmd.RunSQL "DELETE FROM "  & rcs.nometabella
dove rcs è il recordset di prima
Ciao
Matteo


title: Re: svuotare database ....

text:
cut
>
> Ciao Carlo, scusa se mi inserisco, che pensi di questo :
> Dim tbl As TableDef
> Dim dbs As DAO.Database
> Set dbs = CurrentDb
> DoCmd.SetWarnings False
> On Error GoTo errori
> For Each tbl In dbs.TableDefs
>    If Left(
tbl.name
, 4) <> "Msys" And Mid(
tbl.name
, 1, 1) <> "~" And
>
tbl.name
 <> "Registro di correzione automatica nome" Then
>         strsql = "delete * from " &
tbl.name
>         Debug.Print
tbl.name
>         DoCmd.RunSQL strsql
>    End If
> Next tbl
> DoCmd.SetWarnings True
>
> MsgBox ("operazione terminata con successo")
>
> ripristina:
>    Exit Sub
> errori:
>    MsgBox (Err.Description)
>    Resume ripristina
>
> mi funziona correttamente, mi dai un parere ?
> Grazie, ciao
>
Se a te funziona va benissimo perchè almeno è stata farina del tuo sacco e
adatta alle tue esigenze.
Alcune osservazioni.
Per esempio la tabella "Registro di correzione automatica nome" non è sempre
presente in tutti i db e sicuramente non lo è nei db 97.



title: Re: svuotare database ....

text:
"Sandro" <
sandro...@tin.it
> ha scritto nel messaggio
news:P7Z%d.1099686$35.40...@news4.tin.it...

>> Se a te funziona va benissimo perchè almeno è stata farina del tuo sacco
>> e
>> adatta alle tue esigenze.
>> Alcune osservazioni.
>> Per esempio la tabella "Registro di correzione automatica nome" non è
> sempre
>> presente in tutti i db e sicuramente non lo è nei db 97.
>> Left e Mid occupano comunque memoria e toglierei "Debug.Print
tbl.name
"
>> specie se non si sta facendo il debug o se si deve distribuire un mde.
>> Invece DoCmd.SetWarnings False va messo nell'If e prima di eseguire
>> l'istruzione sql:
>> DoCmd.SetWarnings False
>> DoCmd.RunSQL strsql
>> DoCmd.SetWarnings True
>>
>> Ciao, Carlo
>
> Ciao Carlo,
> dalla tua considerazione capisco che è meglio ciclare il recordset della
> tabella di sistema in quanto soluzione più versatile e meglio adattabile
> ad
> altri database.(come dicevate in precedenza)
> Debug.Print
tbl.name
 è rimasto in quanto in sede di stesura del codice
> l'avevo messo per vedere il ciclo for each se correttemente leggeva tutte
> le
> tabelle, si ok lo tolgo o gli metto un rem davanti.
>
> Non ho capito invece la differenza di mettere il DoCmd.SetWarnings False
> prima del ciclo invece che come dici tu prima della DoCmd.RunSQL strsql.
> E' una finezza oppure c'è dell'altro ?
> Grazie, ciao
>
>
Il metodo SetWarnings esegue l'azione ImpostaAvvisi in Visual Basic.
Metterlo prima della esecuzione della query di comando interrompe la
visualizzazione degli avvisi di tutto il codice successivo e questo non ti
interessa visto che comunque prevedi una gestione degli errori con "On Error
GoTo errori" sistemato giusto sotto "DoCmd.SetWarnings False".
Inoltre CTRL+INTERR o se Visual Basic incontra un punto di interruzione non
funzioneranno più dopo l'istruzione "DoCmd.SetWarnings False".
Ciao, Carlo


title: Re: svuotare database ....

author: Bruno Campanini

text:
"yag" <
yag...@tiscali.it
> wrote in message
news:6MV%d.685153$b5.31...@news3.tin.it...
> Grazie a entrambi e tutto chiaro solo mi serviva qualcosa di più veloce
> (ma posso fare tutto da access ? )
Molto brutalmente:
----------------------------------------------
For Each i In CurrentDb.TableDefs
    If Not Left(i.Name, 4) = "MSys" Then
        DoCmd.DeleteObject acTable, i.Name
    End If
Next
----------------------------------------------
MSys è il prefisso indicativo delle tabelle di sistema (invisibili).
Bruno


title: Re: svuotare database ....

text:
"Matteo Barsotti" <m.barsotti@cbsistemi_NO_SPAM_THANKS.it> ha scritto nel
messaggio news:d1p5ir$99n$1...@news.ngi.it...

> dove rcs č il recordset di prima
>
> Ciao



title: Re: svuotare database ....

text:
"Bruno Campanini" <
bruno.c...@tin.it
> ha scritto nel messaggio
news:E620e.1101647$35.40...@news4.tin.it...

Capisco tutto ma non capisco DOVE farlo :-) (forse non mi avete capito :-) )


title: Re: svuotare database ....

text:
"yag" <
yagyogD...@tiscali.it
> wrote in message
news:qee0e.1104494$35.41...@news4.tin.it...
> Capisco tutto ma non capisco DOVE farlo :-) (forse non mi avete capito
> :-) )
Mettilo in OnClick di un Button, in OnOpen/OnClose di una Form/Report,
prima di Application.Quit (cioè all'uscita da Access).
Possibile che tu voglia una cosa senza saper prima dove metterla?
Bruno


title: Re: svuotare database ....

text:
>> Capisco tutto ma non capisco DOVE farlo :-) (forse non mi avete capito
>> :-) )
>
> Mettilo in OnClick di un Button, in OnOpen/OnClose di una Form/Report,
> prima di Application.Quit (cioè all'uscita da Access).
> Possibile che tu voglia una cosa senza saper prima dove metterla?
>
> Bruno
Seguendo i vs suggerimenti ho avuto la sensazione di non aver capito molto
il senso della richiesta.
Ictu oculi io pensavo che lui volesse svuotare una tantum il db, non
sistematicamente.
A quel punto gli basta importare in un nuovo db solo la struttura e non i
dati.
MAssimiliano


title: Re: svuotare database ....

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:squ0e.1989$aH3...@news.edisontel.com...

Exact :-) How To ?


title: Tracciati Lemco:Esportazioni dati nel software Zucchetti

author: Dino

text:
Ciao a tutti volevo sapere se qualcuno di voi ha avuto modo di
preparare del codice per esportare i dati contabili dal proprio DB
(seguendo i tracciati Lemco) ad un gestionale Zucchetti.

Grazie in anticipo

Dino


text: Ciao Dino, leggevo il tuo post anche se datato. Per caso hai i tracciati per l'export verso il gestionale zucchetti?


author: BFS

text:
Il 16/12/2015 15:27,
marr...@gmail.com
 ha scritto:
> Ciao Dino, leggevo il tuo post anche se datato. Per caso hai i tracciati

per l'export verso il gestionale zucchetti?
>

se vuoi li ho io...ho da poco fatto un export di dati dal mio gestionale
verso lo studio del commercialista che usa tale formato per l'import.
se mi dai una mail te li mando
ciao
BFS


text:
Ciao BFS la mia mail è marrek05 (ovviamente account
gmail.com
).
Magari ci sentiamo! Attendo tue grazie!!



text:

meglio tardi che mai :-)
te li ho inviati
ciao
BFS


text:
Il giorno giovedì 17 dicembre 2015 08:23:23 UTC+1, BFS ha scritto:

Ciao BFS
Hai la possibiltà di madarli anche a me?


author: RobertoA

text:

E che so io 'el fio de la serva' ?
E' possibbole mandarli pure ammia ?
O pubblicarli, visto che saranno interessanti per molti


text:
Ciao, io ci sono alle prese adesso. Gentilmente... non è che condivideresti il tracciato anche con me? Ci conto e ringrazio anticipatamente.



text:
Gentile BFS,
servirebbe pure a me il tracciato, ti ringrazierei infinitamente visto che sto combattendo inutilmente con il commercialista per usare tutto in via digitale.
grazie
ah: niky.of.allstar89 (gmail... of course)


text:

Riuscireste a mandarlo anche a me?

mail: clinicacroceazzurrabari at
gmail.com

Grazie mille davvero


author: pfm

text: Effettivamente potrebbero interessare a molti anche a me


text:
Pfmarro ..... google

Grazie


text:
Il 30/05/2017 11:48, pfm ha scritto:
> Pfmarro ..... google
>
> Grazie
>

inviati
ciao


text:

fatto
ciao


text:
Per cortesia anche a me
svegliapc(gmail)
Grazieeeee


text:

Essendo documenti di grande interesse generale se potessi pubblicarli su
qualche sito ti eviteresti l'onere della spedizione in privato
Nel caso non potessi pubblicarli, ti pregherei di inviarli pure a me, grazie


text:
Qualcuno puo' testare il mio lavoro di esportazione verso Zucchetti?  Sto aspettando che il distributore me lo provi...ma aspetta e spera....
Mi invento 3 fatture, faccio il file di esportazione e...forza!!!.... qualcuno che me lo testi!!!! Grazieeeee anticipatamente
svegliapc(gmail)


text:

te li ho inviati in privato.
non saprei dove pubblicarti se non sul mio ftp aziendale

ciao


text:

Puoi inviarli cortesemente anche a me enzotoc(gmail) , grazie


text:
Ciao,
posso chiederti l'alternanza dei record D10-D11-D30-D31-D33 e relative testate per una estrazione di 2/3 clienti e 3/4 fatture? Dalle specifiche non riesco a capirlo
grazie mille!

Il giorno giovedì 17 dicembre 2015 08:23:23 UTC+1, BFS ha scritto:



text:
Il giorno venerdì 11 novembre 2011 11:32:07 UTC+1, Dino ha scritto:



text:
Il giorno venerdì 11 novembre 2011 11:32:07 UTC+1, Dino ha scritto:

Ho fatto un programma per esportare un file di excel con fatture e anagrafiche verso il gestionale Omnia Zucchetti ed ho in preparazione l'esportazione da Danea TeamSystem sempre verso Omnia Zucchetti.....se avete bisogno di esportare/importare dati possiamo parlarne


author: mario rossi

text:

un mio collega ne aveva bisogno, in che modo possiamo parlarne?


text:
Cortesemente potresti invialo anche a me, nsolaroli(at)
hotmail.com
.

grazie mille


text:
Anche io ne parlerei volentieri. come fare?



text:
Messaggio per BFS, potresti cortesemente inviare i tracciati anche a me, nsolaroli(at)
hotmail.com
.

Grazie mille

Il giorno giovedì 1 giugno 2017 09:26:50 UTC+2, BFS ha scritto:



author: an

text:
Il giorno giovedì 17 dicembre 2015 08:23:23 UTC+1, BFS ha scritto:
> se vuoi li ho io...ho da poco fatto un export di dati dal mio gestionale
> verso lo studio del commercialista che usa tale formato per l'import.
> se mi dai una mail te li mando
> ciao
> BFS

Servirebbero anche a me, grazie (acolombodev, account gmail)


text:
Il giorno giovedì 17 dicembre 2015 08:23:23 UTC+1, BFS ha scritto:

farebbero comodo anche a me... la mia mail è  matteo.orighi (su gmail)

Grazie in anticipo!


text: Salve dovrei esportare dei dati da danea sul programma del mio commercialista che segue il tracciato lemco . Potete aiutarmi ?


text:
Il giorno giovedì 17 dicembre 2015 08:23:23 UTC+1, BFS ha scritto:
> Il 16/12/2015 15:27, ha scritto:
> > Ciao Dino, leggevo il tuo post anche se datato. Per caso hai i tracciati
>
> per l'export verso il gestionale zucchetti?
> >
>
> se vuoi li ho io...ho da poco fatto un export di dati dal mio gestionale
> verso lo studio del commercialista che usa tale formato per l'import.
> se mi dai una mail te li mando
> ciao
> BFS

Ciao BFS, avresti un esempio completo del tracciato LEMCO per l'importazione dati in Zucchetti? La mia mail è meeeko.sara(gmail)
Grazie!
Sara


text:
Il giorno giovedì 17 dicembre 2015 08:23:23 UTC+1, BFS ha scritto:
> Il 16/12/2015 15:27, marrek05 ha scritto:
> > Ciao Dino, leggevo il tuo post anche se datato. Per caso hai i tracciati
>
> per l'export verso il gestionale zucchetti?
> >
>
> se vuoi li ho io...ho da poco fatto un export di dati dal mio gestionale
> verso lo studio del commercialista che usa tale formato per l'import.
> se mi dai una mail te li mando
> ciao
> BFS

Potresti mandarli anche a me? Grazie mille :)
netzapping at
gmail.com


text:

Ciao BFS, potresti mandarli anche a me? Grazie!

pedrouceda92 at
gmail.com


author: Graziano

text:
Il giorno venerdì 11 novembre 2011 11:32:07 UTC+1, Dino ha scritto:
> Ciao a tutti volevo sapere se qualcuno di voi ha avuto modo di
> preparare del codice per esportare i dati contabili dal proprio DB
> (seguendo i tracciati Lemco) ad un gestionale Zucchetti.
>
> Grazie in anticipo
>
> Dino

farebbero comodo anche a me... la mia mail è  franchi.graziano (su gmail)

1000 Grazie


author: Daniele Serino

text:
Il giorno giovedì 17 dicembre 2015 08:23:23 UTC+1, BFS ha scritto:
> Il 16/12/2015 15:27,
marr...@gmail.com
 ha scritto:
> > Ciao Dino, leggevo il tuo post anche se datato. Per caso hai i tracciati
>
> per l'export verso il gestionale zucchetti?
> >
>
> se vuoi li ho io...ho da poco fatto un export di dati dal mio gestionale
> verso lo studio del commercialista che usa tale formato per l'import.
> se mi dai una mail te li mando
> ciao
> BFS

Ciao potresti inviarli anche alla mia mail?
seri...@gmail.com

Ti ringrazio e spero di poter ricambiare....


text:
Ciao a tutti, qualcuno potrebbe gentilmente inviare anche a me i tracciati LEMCO per favore?
La mia mail è stefano.mogavero93(at)
gmail.com

Grazie a tutti!


text:

Ciao a tutti, qualcuno potrebbe gentilmente inviare anche a me i tracciati LEMCO meglio sarebbe un file di esempio per favore? grazie in anticipo.
La mia mail è
mas...@sintassisrl.it


text:
Anche io avrei bisogno dei tracciati.....   lucreziasancilio (at) gmail. Com

Grazie


text:
Il giorno venerdì 11 novembre 2011 11:32:07 UTC+1, Dino ha scritto:
> Ciao a tutti volevo sapere se qualcuno di voi ha avuto modo di
> preparare del codice per esportare i dati contabili dal proprio DB
> (seguendo i tracciati Lemco) ad un gestionale Zucchetti.
>
> Grazie in anticipo
>
> Dino

salve posso avere una copia dei preziosi tracciati lemco? grazie
rodolfo.ci...@gmail.com


title: Eliminare un report

author: Mauro B.

text:
Ho 2 maschere con un bottone che aprono rispettivamente due report diversi,
naturalmente attingono ha tabelle diverse. Il mio obbiettivo è riuscire ad
eliminare un report e tramite codice impostare in base al tasto premuto
l'origine dati (dell'unico report rimasto) e la condizione di filtro.
Ho tentato di passare i dati nell'evento load del report che specifichi da
che maschera è partito l'evento ma con scarso successo ad esempio vorrei
sub report load()
if form1
origine dati ......    filter
else
origine dati2......   filter2
.....
end sub


title: Eliminare un report

author: Sergio MAZZA

text:
"Mauro B." <
Textur...@tin.it
> ha scritto nel messaggio
news:%XzP6.13285$VT1.1...@news1.tin.it...

Per eliminare un report:
Es.
'----------------
DoCmd.DeleteObject acReport, "nomeReport"
'----------------
Per cambiare sorgente dati al report in apertura, ti consiglio di inserire
una casella di controllo che puoi utilizzare come "interruttore" per
indicare al report quale sorgente deve caricarsi in base al valore della
casella di controllo.
Es.
'-------------
Private Sub Report_Open(Cancel As Integer)
If Forms!nomeMaschera!nomeControllo = -1 Then
    Me.RecordSource = "nomeTabellaOQuery"
Else
    Me.RecordSource = "nomeAltraTabellaOAltraQuery"
End If
End Sub
'-------------
Ciao.


title: Funzione Left non disponibile Access97

author: Giuseppe

text:
Ho fatto un applicativo in Access 97 sul mio PC, usando del codice con varie
funzioni stringa tipo Left, Mid, Right ecc...
Portando il file .mdb su altri PC con Access 97 all'avvio genera vari errori
"Funzione Left non disponibile" ecc..
Come mai?


title: Funzione Left non disponibile Access97

author: Frankkk

text:
"Giuseppe" <
ng...@libero.it
> ha scritto nel messaggio
news:nsbB8.10379$5k4.2...@twister2.libero.it...

...vai nel pc sul quale non funziona la funzione "left" ed apri un modulo o
il codice di una qualsiasi maschera a report, controlla i
riferimenti....alla voce appunto riferimenti, vedrai che qualche voce con il
"Chech" è preceduta in maiuscolo da "MANCA...", togli il segno di spunta da
quella o quelle con il prefisso "manca" e vedrai che dovrebbe funzionare...
Frankkk


title: Funzione Left non disponibile Access97

text:
Fatto!
Adesso tutto OK
Grazie molte.


title: Re: IMPORTARE UN FILE

author: Pablitomf (dalle ferie)

text:
access il top ha scritto:
> Ciao a tutti e scusatemi se vi rompo di nuovo le scatole.
> avrei la necessità di importare in un database i dati presenti
> nell'allegato a questo messaggio, l'allegato è un sms scaricato tramite
> pc suite di nokia però archiviarli è brutto così pensavo che un database
> di access con il campo destinatario, mittente, data, ora e testo del
> messaggio sarebbe molto meglio da visualizzare stampare ecc
> il problema è importarlo.
> grazie in anticipo per l'aiuto
> begin 666 10030004.vmg
> M0@!%`$<`20!.`#H`5@!-`%,`1P`*`%8`10!2`%,`20!/`$X`.@`Q`"X`,0`*
> M`%@`+0!)`%(`30!#`"T`4P!4`$$`5 !5`%,`.@!3`$4`3@!4``H`6 `M`$D`
> M4@!-`$,`+0!"`$`6 `Z`$D`3@!"`$`6 `*`$(`10!'`$D`3@`Z`%8`0P!!
> M`%(`1 `*`%8`10!2`%,`20!/`$X`.@`R`"X`,0`*`$X`.@`*`%0`10!,`#H`
> M"@!%`$X`1 `Z`%8`0P!!`%(`1 `*`$(`10!'`$D`3@`Z`%8`10!.`%8`"@!"
> M`$4`1P!)`$X`.@!6`$,`00!2`$0`"@!6`$4`4@!3`$D`3P!.`#H`,@`N`#$`
> M"@!.`#H`"@!4`$4`3 `Z`"L`,P`Y`#,`- `W`#$`- `V`#0`-0`Q`#4`"@!%
> M`$X`1 `Z`%8`0P!!`%(`1 `*`$(`10!'`$D`3@`Z`%8`10!.`%8`"@!"`$4`
> M1P!)`$X`.@!6`$(`3P!$`%D`"@!$`&$`= !E`#H`,@`W`"`,0`R`"`,@`P
> M`# `- `@`#(`,P`N`# `-0`N`# `, `*`$T`80`@`'0`:0`@`.@`( !A`'(`
> M<@!I`'8`80!T`&`( !Q`'4`90!L`&P`;P`@`&,`;P!N`" `:0!L`" `<P!U
> M`&`;@!O`#`( !"`&$`8P!I`" `80!M`&`<@!E`" `;0!I`&`( !S`&`
> M9P!N`&D`( !D`"<`;P!R`&`( !T`&D`( !A`&T`;P`@`'0`80!N`'0`;P`*
> M`$4`3@!$`#H`5@!"`$`1 !9``H`10!.`$0`.@!6`$4`3@!6``H`10!.`$0`
> >.@!6`$4`3@!6``H`10!.`$0`.@!6`$T`4P!'``H`
> `
> end
Bhè se questo PC suite salva i tuoi SMS in formato txt o simili con una
formattazione valida per access, la cosa è OK, altrimenti, desisti, ma non
magari per accertata impossibilità nel farlo, ma per sicura e improbabile
interpretazione dell'SMS così come è scritto in origine.
--
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------
http://www.sitocomune.com/
http://www.accessgroup.it/
------------------------------
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Re: IMPORTARE UN FILE

author: ciroteo

text:
"Pablitomf (dalle ferie)" <
maurizio...@accessgroup.it
> ha scritto nel
messaggio news:crg7al$9c1$1...@news.newsland.it...

io ci avevo provato ma non ho trovato le specifiche del tracciato prodotto.
Dovresti cercare alla nokia direttamente.


title: Re: IMPORTARE UN FILE

author: access il top

text:
"ciroteo" <
ciroteo_c...@libero.it
> ha scritto nel messaggio
news:crg9gq$8gm$1...@hulme.interac.it...

grazie mille per il vostro aiuto però non sono riuscito a fare niente.
tutto quel codice qui sopra serve a qualcosa???


title: Re: IMPORTARE UN FILE

author: cidi

text:
"ciroteo" <
ciroteo_c...@libero.it
> ha scritto nel messaggio
news:crg9gq$8gm$1...@hulme.interac.it...

Ciao ragazzi
vedete anche voi l'allegato al post?
si diceva che NG non accettava allegati .... hanno cambiato idea?
---
Daniele
ps x Ciroteo hai letto la posta su Yahoo?


title: Re: IMPORTARE UN FILE

author: Lorenzo(pyx)

text:
access il top wrote:
> Ciao a tutti e scusatemi se vi rompo di nuovo le scatole.
> avrei la necessità di importare in un database i dati presenti
> nell'allegato a questo messaggio, l'allegato è un sms scaricato
> tramite pc suite di nokia però archiviarli è brutto così pensavo che
> un database di access con il campo destinatario, mittente, data, ora
> e testo del messaggio sarebbe molto meglio da visualizzare stampare
> ecc
> il problema è importarlo.
> grazie in anticipo per l'aiuto
Ciao,
fermo restando quello che ti hanno gia' risposto, puoi tentare
con un parsing del file . Il codice seguente funziona sul tuo allegato,
su altri non so. Pero' puo' essere un utile esercizio visto che le
istruzioni utilizzate sono di uso comune in vba. ;-)
Public Function READSMS(FILE_IN$)
Dim str_in$
Dim x&
Dim NRTEL$, DATA_RIC$, MSG$
Open FILE_IN For Input As #1
Input #1, str_in
x = InStr(1, str_in, "Tel:+")
If x > 0 Then
   Do While IsNumeric(Mid(str_in, x + Len("Tel:+"), 1))
      NRTEL = NRTEL & Mid(str_in, x + Len("Tel:+"), 1)
      x = x + 1
   Loop
End If
x = InStr(x, str_in, "Date:")
If x > 0 Then
   DATA_RIC = Mid(str_in, x + Len("Date:"), 19)
End If
x = x + Len("date:") + Len(DATA_RIC) + 1
Do While Asc(Mid(str_in, x, 1)) >= Asc(" ")
   MSG = MSG & Mid(str_in, x, 1)
   x = x + 1
Loop
Close #1
Debug.Print NRTEL, DATA_RIC, MSG
End Function
Ciao
Lorenzo


title: Re: IMPORTARE UN FILE

text:
"cidi" <
dadonz...@tin.it
> ha scritto nel messaggio
news:daOCd.634097$35.26...@news4.tin.it...

ehm ... no provvedo subito!


title: Re: IMPORTARE UN FILE

author: ALESSANDRO Baraldi

text:
"access il top" <
negrinel...@yahoo.it
> ha scritto nel messaggio
news:41dacd88$0$10912$5fc...@news.tiscali.it...
> Ciao a tutti e scusatemi se vi rompo di nuovo le scatole.
> avrei la necessità di importare in un database i dati presenti
> nell'allegato a questo messaggio, l'allegato è un sms scaricato tramite
> pc suite di nokia però archiviarli è brutto così pensavo che un database
> di access con il campo destinatario, mittente, data, ora e testo del
> messaggio sarebbe molto meglio da visualizzare stampare ecc
> il problema è importarlo.
> grazie in anticipo per l'aiuto
BEGIN:VMSG
VERSION:1.1
X-IRMC-STATUS:SENT
X-IRMC-BOX:INBOX
BEGIN:VCARD
VERSION:2.1
N:
TEL:
END:VCARD
BEGIN:VENV
BEGIN:VCARD
VERSION:2.1
N:
TEL:+#########
END:VCARD
BEGIN:VENV
BEGIN:VBODY
Date:27/12/2004 23.05.00
Ma ti è arrivato quello con il suono? Baci amore mio sogni d'oro ti amo
tanto
END:VBODY
END:VENV
END:VENV
END:VMSG
Qual'è la difficoltà di decifrare questo messaggio....????????
Devi leggere RIGA per riga, separare la riga di COMANDO dal
Messaggio e indirizzarla correttamente.
E' un normale Parsing di un messaggio.
Le stringhe di COMANDO sono STANDARD del sistema SMS e
dopo la Data c'è sempre il messaggio.....!!!
Il primo pezzo è il Mittente il 2° è il Destinatario del quale appariva il
n°
di telefono o viceversa adesso non ricordo bene....!!!
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Re: IMPORTARE UN FILE

text:
ALESSANDRO Baraldi wrote:
> "access il top" <
negrinel...@yahoo.it
> ha scritto nel messaggio
> news:41dacd88$0$10912$5fc...@news.tiscali.it...
[...]
> Qual'è la difficoltà di decifrare questo messaggio....????????
> Devi leggere RIGA per riga, separare la riga di COMANDO dal
> Messaggio e indirizzarla correttamente.
> E' un normale Parsing di un messaggio.
>
[...]
Credo che oggi si trovino le interfacce per qualsiasi tipo
di archivio (o quasi). All'inizio, quando bisognava 'scavare'
fuori i dati da stampe su file piu' o meno formattate, si
poteva risolvere solo con il parsing di file o stringhe.
Ogni tanto questi metodi tornano utili...  :->
Ciao
Lorenzo


title: Re: IMPORTARE UN FILE

text:
> Credo che oggi si trovino le interfacce per qualsiasi tipo
> di archivio (o quasi). All'inizio, quando bisognava 'scavare'
> fuori i dati da stampe su file piu' o meno formattate, si
> poteva risolvere solo con il parsing di file o stringhe.
> Ogni tanto questi metodi tornano utili...  :->
>
> Ciao
> Lorenzo
Di commerciale si trova sicuramente tutto, ma non sempre Free.
Io mi sono fatto un pò di ore a fare Parsing dei messaggi codificati
MIME delle Mail con protocollo POP3 e sono ancora vivo...! ;-)
Scherzi a parte la semplicità del parsin in questo caso mi sembra
ovvia e banale, non occorre nemmeno avere le idee chiare sul protocollo
SMS, se fosse formattato EMS PDU sarebbe da decodificare, ma così
è decisamente in chiaro....!



title: Re: IMPORTARE UN FILE

text:
Il mio provider mi stà facendo un pò arrabbiare,
ultimamente mi scarica 1 messaggio su 3.
Da Google ho visto che hai suggerito ben prima
della mia risposta anche il codice del parsing...!!
Come da manuale...!



title: Re: IMPORTARE UN FILE

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:crhu4u$92d$1...@lacerta.tiscalinet.it...

scusate le mia ignoranza ma sono poco pratico in questo tipo di
soluzione.
come devo scrivere il codice supponendo che il file si trovi in
f:\telefono\000001.vmg
grazie per l'aiuto


title: Re: IMPORTARE UN FILE

text:
access il top wrote:
[...]
> come devo scrivere il codice supponendo che il file si trovi in
> f:\telefono\000001.vmg
>
> grazie per l'aiuto
Ciao,
Apri un modulo nuovo nella sezione moduli,
Dentro ci incolli il codice che trovi in uno
dei thread precedenti. Salvi il tutto e gli dai
un nome a piacere. Dalla barra degli strumenti
esegui un Debug>Compila e vedi che non ci siano
errori. Sempre dalla barra strumenti schiacci il
pulsante finestra immediata che ti apre una finestra
dove si possono eseguire/provare istruzioni.
Nella finestra immediata scrivi:
?READSMS("f:\telefono\000001.vmg")
e vedi cosa esce.
A seconda della versione di Access i comandi possono
essere leggermente diversi ma il concetto e' quello.
Credimi, il codice usa comandi/istruzioni molto semplici.
E' una buona base per mettere mano anche a questa
parte di access.
Se tutto ti funziona si potra' passare ad un sistema di
comando con Maschera e pulsanti per inserire i dati in
una tabella etc.etc.
Prova intanto.
Ciao
Lorenzo


title: Re: IMPORTARE UN FILE

text:
"Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
news:KkoDd.18714$H%6.77...@twister1.libero.it...

grazie a tutti per il vostro aiuto.
adesso funziona abbastanza bene però ho bisogno di alcune nuove
informazioni.
vorrei legare la funzione a un bottone in una form il problema è che il
messaggio cambia in continuo.
spiego meglio
su evento click mi deve eseguire le routine però deve prendere sempre
file diversi, ovviamente sempre nello stesso percorso e alla fie della
routine cancellare il file
esempio
devo verificare che nella cartella
f:\telefono\
ci siano dei file *.vmg
devo eseguire la routine su questo file e poi cancellarlo
verificare se ce ne sono ancora se si eseguire di nuovo la routine se no
msgbox "non ci sono messaggi"
grazie mille a tutti


title: Re: IMPORTARE UN FILE

text:
access il top wrote:
> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
> news:KkoDd.18714$H%6.77...@twister1.libero.it...
>> access il top wrote:
>> [...]
>>
[...]
> vorrei legare la funzione a un bottone in una form il problema è che
> il messaggio cambia in continuo.
> spiego meglio
> su evento click mi deve eseguire le routine però deve prendere sempre
> file diversi, ovviamente sempre nello stesso percorso e alla fie della
> routine cancellare il file
> esempio
> devo verificare che nella cartella
> f:\telefono\
> ci siano dei file *.vmg
> devo eseguire la routine su questo file e poi cancellarlo
> verificare se ce ne sono ancora se si eseguire di nuovo la routine se
> no msgbox "non ci sono messaggi"
Ciao, solo uno spunto, sicuramente riuscirai a farlo funzionare.
Public Function CERCAFILE(PATH$)
Dim INFILE$
INFILE = Dir(PATH & "*.VMG")
If INFILE = "" Then
   'MsgBox .......
   Exit Function
End If
Do Until INFILE = ""
   INFILE = PATH & INFILE
   '...QUI RICHIAMI LA ROUTINE PRECEDENTE
   '...QUI CANCELLI IL FILE, VEDI ISTRUZIONE KILL
   INFILE = Dir()
Loop
End Function
Ciao
Lorenzo


title: Re: IMPORTARE UN FILE

text:
"Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
news:nKsDd.18841$H%6.78...@twister1.libero.it...

ho ancora 2 problemi
1:
come faccio a assegnare al msg il valore che c'è nella stringa dal
carattere 215 al carattere 331
2
come faccio per mettere il valore che assume msg nella tabella 1 nel
campo sms
grazie


title: Re: IMPORTARE UN FILE

text:
access il top wrote:
> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
> news:nKsDd.18841$H%6.78...@twister1.libero.it...
>> access il top wrote:
>>> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
>>> news:KkoDd.18714$H%6.77...@twister1.libero.it...
>>>> access il top wrote:
>>>> [.......]
>
> ho ancora 2 problemi
> 1:
> come faccio a assegnare al msg il valore che c'è nella stringa dal
> carattere 215 al carattere 331
Prova ad usare un mid(stringa,inizio,nr_caratteri)    !
> 2
> come faccio per mettere il valore che assume msg nella tabella 1 nel
> campo sms
>
Non so cos'e' la tua tabella 1.
Comunque difficilmente un sms supera i 255chr , quindi puoi
costruirti una stringa sql del tipo "INSERT INTO..." vedi help,
e quindi usare il metodo di DoCmd.RunSQL  stringasql.
Ciao
Lorenzo


title: Re: IMPORTARE UN FILE

text:
"Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
news:djuDd.18591$_E5.4...@twister2.libero.it...
> access il top wrote:
> > "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
> > news:nKsDd.18841$H%6.78...@twister1.libero.it...
> >> access il top wrote:
> >>> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
> >>> news:KkoDd.18714$H%6.77...@twister1.libero.it...
> >>>> access il top wrote:
> >>>> [.......]
>
> >
> > ho ancora 2 problemi
> > 1:
> > come faccio a assegnare al msg il valore che c'č nella stringa dal
> > carattere 215 al carattere 331
>
> Prova ad usare un mid(stringa,inizio,nr_caratteri)    !
>
>
> > 2
> > come faccio per mettere il valore che assume msg nella tabella 1 nel
> > campo sms
> >
>
> Non so cos'e' la tua tabella 1.
> Comunque difficilmente un sms supera i 255chr , quindi puoi
> costruirti una stringa sql del tipo "INSERT INTO..." vedi help,
> e quindi usare il metodo di DoCmd.RunSQL  stringasql.
>
> Ciao
> Lorenzo
>
>
CIAO E GRAZIE DI NUOVO.
LA MIA TABELLA 1 č proprio una tabella del database di access.
io non ho mai usato moduli di solito scrivo tutto il codice sugli eventi
dei vari bottoni e in questo caso avrei utilizzato questo metodo
   DoCmd.GoToRecord , , acNewRec
Me.messaggio_inviato_a = NRTELdes
Me.messaggio_ricevuto_da = NRTEL
Me.data = DATA_RIC
Me.sms = MSG
perň a fare cosě non funziona.
grazie di nuovo


title: Re: IMPORTARE UN FILE

text:
"access il top" <
negrinel...@yahoo.it
> ha scritto nel messaggio
news:41de765d$0$10911$5fc...@news.tiscali.it...

x = x + Len("date:") + Len(DATA_RIC)
xy = Len(str_in)
MSG = Mid(str_in, x, xy - x)
MsgBox MSG
ciao a tutti di nuovo.
volevo sapere come mai quando eseguo quel codice qua se nel testo c'č
una virgola (,) non mi prende tutta la lunghezza di str_in ma solo la
lunghezza fino alla virgola.
grazie mille


title: Re: IMPORTARE UN FILE

text:
access il top wrote:
> "access il top" <
negrinel...@yahoo.it
> ha scritto nel messaggio
> news:41de765d$0$10911$5fc...@news.tiscali.it...
>>
>> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
>> news:djuDd.18591$_E5.4...@twister2.libero.it...
>>> access il top wrote:
>>>> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
>>>> news:nKsDd.18841$H%6.78...@twister1.libero.it...
>>>>> access il top wrote:
>>>>>> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel
>>>>>> messaggio news:KkoDd.18714$H%6.77...@twister1.libero.it...
>>>>>>> access il top wrote:
>>>>>>> [.......]
>
> x = x + Len("date:") + Len(DATA_RIC)
> xy = Len(str_in)
> MSG = Mid(str_in, x, xy - x)
> MsgBox MSG
>
>
> ciao a tutti di nuovo.
> volevo sapere come mai quando eseguo quel codice qua se nel testo c'è
> una virgola (,) non mi prende tutta la lunghezza di str_in ma solo la
> lunghezza fino alla virgola.
Quando ci si approccia ad un parsing (scannerizzazione) di una stringa, e'
facile commettere errori di valutazione, la cosa migliore e' eseguire il codice
in modalita' debug ( inserisci dei punti d'arresto nelle posizioni che ti
sembrano
sospette).
Nelle tue modifiche ricavi xy=lunghezza di tutta la stringa, x e' puntato invece
ad inizio messaggio di testo. Facendo mid(str_in,x,xy) tu assegni alla variabile
MSG il valore di str_in da inizio messaggio e per xy-x caratteri ovvero sino
alla
fine della stringa stessa tirandoti su anche alcuni caratteri di controllo.
Nel codice iniziale il controllo veniva fatto carattere per carattere con
    >= Asc(" ")
Che di fatto significa sino a quando i caratteri letti sono superiori\uguali al
carattere spazio.
Lorenzo


title: Re: IMPORTARE UN FILE

text:
"Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
news:cAxDd.19003$_E5.4...@twister2.libero.it...
> access il top wrote:
> > "access il top" <
negrinel...@yahoo.it
> ha scritto nel messaggio
> > news:41de765d$0$10911$5fc...@news.tiscali.it...
> >>
> >> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
> >> news:djuDd.18591$_E5.4...@twister2.libero.it...
> >>> access il top wrote:
> >>>> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel
messaggio
> >>>> news:nKsDd.18841$H%6.78...@twister1.libero.it...
> >>>>> access il top wrote:
> >>>>>> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel
> >>>>>> messaggio news:KkoDd.18714$H%6.77...@twister1.libero.it...
> >>>>>>> access il top wrote:
> >>>>>>> [.......]
>
> >
> > x = x + Len("date:") + Len(DATA_RIC)
> > xy = Len(str_in)
> > MSG = Mid(str_in, x, xy - x)
> > MsgBox MSG
> >
> >
> > ciao a tutti di nuovo.
> > volevo sapere come mai quando eseguo quel codice qua se nel testo
c'č

ma anche quel codice li mi creava problemi del tipo che se nel testo del
messaggio avevo un carattere invio si fermava e non importava piů il
testo.
saresti cosě gentile da darmi un'altra informazione riguardo
l'importazione di un file
il file contiene del testo perň quando c'č il carattere , mi taglia
tutto ciň che viene dopo.
io eseguo quest'istruzione
Private Sub Comando9_Click()
Dim file_in$
Dim str_in As Byte
file_in = "F:\telefono 3200\inviati\00020003.vmg"
Open file_in For Input As #1
Input #1, str_in
Testo13 = str_in
Close #1
End Sub
praticamente vorrei copiare l'intero contenuto del file in una casella
di testo


title: Re: IMPORTARE UN FILE

text:
access il top wrote:
>>>>>>>>> [.......]
>>
> ma anche quel codice li mi creava problemi del tipo che se nel testo
> del messaggio avevo un carattere invio si fermava e non importava più
> il testo.
mmhh, questo e' gia' piu' interessante.
Si puo' cambiare riferimento di fine messaggio.
Se osservi nel tracciato del file, a fine messaggio, c'e' un <line feed>
END:VBODY,
che e' univoco all'interno del messaggio e quindi il codice diventa:
x = x + Len("date:") + Len(DATA_RIC) + 1
msg = Mid(str_in, x, InStr(x, str_in, vbLf & "END:VBODY") - x)
Prova così.
Lorenzo


title: Re: IMPORTARE UN FILE

text:
"Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
news:T3yDd.19454$H%6.79...@twister1.libero.it...
> access il top wrote:
> >>>>>>>>> [.......]
> >>
> > ma anche quel codice li mi creava problemi del tipo che se nel testo
> > del messaggio avevo un carattere invio si fermava e non importava
piů
> > il testo.
>
> mmhh, questo e' gia' piu' interessante.
> Si puo' cambiare riferimento di fine messaggio.
> Se osservi nel tracciato del file, a fine messaggio, c'e' un <line
feed>
> END:VBODY,
> che e' univoco all'interno del messaggio e quindi il codice diventa:
>
> x = x + Len("date:") + Len(DATA_RIC) + 1
> msg = Mid(str_in, x, InStr(x, str_in, vbLf & "END:VBODY") - x)
>
> Prova cosě.
>
> Lorenzo
>
mi da l'errore perchč legge il file fino alla ,
grazie per il tuo aiuto


title: Re: IMPORTARE UN FILE

text:
access il top wrote:
> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
> news:T3yDd.19454$H%6.79...@twister1.libero.it...
>> access il top wrote:
>>>>>>>>>>> [.......]
>>>>
>>
> mi da l'errore perchè legge il file fino alla ,
>
Non ho purtroppo quel tuo file, se vuoi prova
a mandarmelo all'email diretta.
Ciao
Lorenzo


title: Re: IMPORTARE UN FILE

text:
"Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
news:KpyDd.19490$H%6.79...@twister1.libero.it...

come è di preciso la tua mail perchè a togliere nospam mi da errore


title: Re: IMPORTARE UN FILE

text:
access il top wrote:
> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
> news:KpyDd.19490$H%6.79...@twister1.libero.it...
>> access il top wrote:
>>> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
>>> news:T3yDd.19454$H%6.79...@twister1.libero.it...
>>>> access il top wrote:
>>>>>>>>>>>>> [.......]
>>>>>>
>>>>
>>> mi da l'errore perchè legge il file fino alla ,
>>>
>>
>> Non ho purtroppo quel tuo file, se vuoi prova
>> a mandarmelo all'email diretta.
>>
>> Ciao
>> Lorenzo
>>
> come è di preciso la tua mail perchè a togliere nospam mi da errore
Togli     _NO.SPA.M_


title: Re: IMPORTARE UN FILE

text:
"Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
news:_DyDd.19142$_E5.4...@twister2.libero.it...
> access il top wrote:
> > "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
> > news:KpyDd.19490$H%6.79...@twister1.libero.it...
> >> access il top wrote:
> >>> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
> >>> news:T3yDd.19454$H%6.79...@twister1.libero.it...
> >>>> access il top wrote:
> >>>>>>>>>>>>> [.......]
> >>>>>>
> >>>>
> >>> mi da l'errore perchč legge il file fino alla ,
> >>>
> >>
> >> Non ho purtroppo quel tuo file, se vuoi prova
> >> a mandarmelo all'email diretta.
> >>
> >> Ciao
> >> Lorenzo
> >>
> > come č di preciso la tua mail perchč a togliere nospam mi da errore
>
> Togli     _NO.SPA.M_
>
Lorenzo@_
NO.SPA.M_pyx.it
se č cosě mi da ancora errore.
ovviamente togliendo        _NO.SPA.M_


title: Re: IMPORTARE UN FILE

text:
access il top wrote:
> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
> news:_DyDd.19142$_E5.4...@twister2.libero.it...
>> access il top wrote:
>>> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
>>> news:KpyDd.19490$H%6.79...@twister1.libero.it...
>>>> access il top wrote:
>>>>> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
>>>>> news:T3yDd.19454$H%6.79...@twister1.libero.it...
>>>>>> access il top wrote:
>>>>>>>>>>>>>>> [.......]
>>>>>>>>
>>>>>>
>>>>> mi da l'errore perchè legge il file fino alla ,
>>>>>
>>>>
>>>> Non ho purtroppo quel tuo file, se vuoi prova
>>>> a mandarmelo all'email diretta.
>>>>
>>>> Ciao
>>>> Lorenzo
>>>>
>>> come è di preciso la tua mail perchè a togliere nospam mi da errore
La tua casella su yahoo e' ok ?
Ti invio un msg e mi rispondi su quello.


title: Re: IMPORTARE UN FILE

text:
access il top wrote:
> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
> news:KpyDd.19490$H%6.79...@twister1.libero.it...
>> access il top wrote:
>>> "Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
>>> news:T3yDd.19454$H%6.79...@twister1.libero.it...
>>>> access il top wrote:
>>>>>>>>>>>>> [.......]
>>>>>>
>>>>
>>> mi da l'errore perchè legge il file fino alla ,
>>>
>>
Ho verificato, una mia dimenticanza... :-(
L'istruzione Input #numerofile,variabile
legge il testo in una variabile interpretando pero'
la virgola come separatore di campo, come dire
che potrei leggere il resto del testo su una seconda
variabile, ma non e' il nostro caso. Basta sostituire
Input #1, str_in        con
Line Input #1, str_in
Ciao
Lorenzo


title: Query con valore 0

author: Gian

text:
Buonasera a tutto il Bellissimo Ng
ho questo problema, ho una query che quando non trova valori deve restituire
il valore 0, non ci riesco proprio.....la sintassi del generatore di
espressioni e' questa:
 IIf(Somma(([FatturaArticoli]![prezzoictot]*[FatturaArticoli]![Iva])/100) Is
Null;"0";Somma(([FatturaArticoli]![prezzoictot]*[FatturaArticoli]![Iva])/100))
Help


title: Query con valore 0

author: Alessandro Cara

text:

mah?
somma(nz([FatturaArticoli]![prezzoictot]*[FatturaArticoli]![Iva])/100)
--
ac
y-1=x


title: Query con valore 0

text:
"Alessandro Cara" <
alessan...@ay-1asistemi.it
> ha scritto nel messaggio
news:l0nPj.19593$o06....@tornado.fastwebnet.it...

Grazie Alessandro
ma continua a non restituirmi 0
cosa sara'.....


title: Query con valore 0

text:

e cosa i restituisce?
ahhh sorry. Le istruzioni sono due
somma(nz([FatturaArticoli]![prezzoictot])*nz([FatturaArticoli]![Iva]))/100)
--
ac
y-1=x


title: Query con valore 0

author: Roberto da Parma

text:
"Alessandro Cara" <
alessan...@ay-1asistemi.it
> ha scritto nel messaggio
news:lPnPj.19676$o06....@tornado.fastwebnet.it...

Mah...a me non torna qualcosa...ma se nella funzione originale mandi nella
casella "0", allora è un campo testo??? o numerico???
A prescindere comunque da quello che tu possa avere nei campi allora a
scanso di equivoci potresti scrivere:
Somma(nz([FatturaArticoli]![prezzoictot]*[FatturaArticoli]![Iva])/100)
Ciao
--
Roberto da Parma


title: Query con valore 0

text:
>>> ho questo problema, ho una query che quando non trova valori deve
>>>> restituire il valore 0, non ci riesco proprio.....la sintassi del
>>>> generatore di espressioni e' questa:
>>>>
>>>>
>>>> IIf(Somma(([FatturaArticoli]![prezzoictot]*[FatturaArticoli]![Iva])/100)
>>>> Is
>>>> Null;"0";Somma(([FatturaArticoli]![prezzoictot]*[FatturaArticoli]![Iva])/100))
>>>>
>>>> Help
>>> mah?
>>> somma(nz([FatturaArticoli]![prezzoictot]*[FatturaArticoli]![Iva])/100)
>>> --
>> Grazie Alessandro
>> ma continua a non restituirmi 0
>> cosa sara'.....
> e cosa i restituisce?
> ahhh sorry. Le istruzioni sono due
> somma(nz([FatturaArticoli]![prezzoictot])*nz([FatturaArticoli]![Iva]))/100)
> --
Ora funziona se non inserisco altri due campi che sarebbero il TipoDocumento
che in questo caso come criterio e' impostato su Fattura e la DataDocumento
che come criterio punta a una msk di inserimento dati....


title: Query con valore 0

text:

Non si capisce bene cosa vuoi fare. Sarebbe bene "vedere" l'intera query.
A occhio e' una query con group by. La somma dovrebbe restituire i
valori corretti per il tipo di raggruppamento scelto. E' chiaro che, se
la accoppiata fattura/data documento  e' unica e sta fra i valori di
select, la somma non ha senso poiche' trattasi di calcolo su valori
atomici.
--
ac
y-1=x


title: Query con valore 0

text:

Ecco la query:
SELECT
Sum(nz([FatturaArticoli]![prezzoictot])*nz([FatturaArticoli]![Iva])/100) AS
IvaDebito, nz([FatturaArticoli]![tipodocumento]) AS tipodocumento,
nz([FatturaArticoli]![data]) AS data
FROM FatturaArticoli
GROUP BY nz([FatturaArticoli]![tipodocumento]), nz([FatturaArticoli]![data])
HAVING (((nz([FatturaArticoli]![tipodocumento]))="FATTURA") AND
((nz([FatturaArticoli]![data])) Between [Forms]![DataIVA]![Dadata] And
[Forms]![DataIVA]![adata]));


title: Query con valore 0

text:


IvaDebito, [FatturaArticoli]![tipodocumento] ,[FatturaArticoli]![data]
FROM FatturaArticoli
WHERE [FatturaArticoli]![tipodocumento])="FATTURA") AND
[FatturaArticoli]![data]  Between [Forms]![DataIVA]![Dadata] And
[Forms]![DataIVA]![adata]))
GROUP BY [FatturaArticoli]![tipodocumento]), [FatturaArticoli]![data];
La HAVING generalmente viene usata sui risultati della GROUP BY se tali
risultati non sono definibili a livello di singolo dettaglio.
Utilizzando, inoltre, dei formati, immagino, di tipo "data" dovresti
essere certo del tipo di formato di confronto. i.e. il tipo "data"
prevede la inclusione dei dati fra "diesis" (#) ed un formato di tipo
americano (dd/mm/yyyy). Per vedere se e dove avviene il "problema" usa
una where progressiva. Ari i.e.
1) senza where
2) con il solo confronto su fattura
3) con la between
--
ac
y-1=x


title: Query con valore 0

text:
"Alessandro Cara" <
alessan...@ay-1asistemi.it
> ha scritto nel messaggio
news:RMDPj.20374$o06....@tornado.fastwebnet.it...

Grazie
ho provato senza where, con il solo confronto su fattura......ecc...il
problema e' che se nella tabella FatturaArticoli non ci sono record, non mi
visualizza niente, mi sta facendo impazzire......


title: Query con valore 0

text:
Gian wrote:
[cut]

Ma dici sul serio o stai celiando?
Bella pretesa vedere qualcosa quando il qualcosa non c'e'!
Mumble!Alt!
Stai usando un form con allowedits a false?
--
ac
y-1=x


title: Query con valore 0

text:
"Alessandro Cara" <
alessan...@ay-1asistemi.it
> ha scritto nel messaggio
news:53FPj.20535$o06....@tornado.fastwebnet.it...

Scusa.....il problema e' che quando non ci sono record oppure record che non
corrispondono alla selezione la query mi deve restituire 0, questo
perche'..... il risultato va sommato con un altro.....


title: Query con valore 0

text:

1) Non si capisce dove applichi la query (in quale contesto?)
2) Non si capisce dove e come e quando il suo risultato va sommato con
un altro
3) Se il risultato non c'e' (assimilabile, in questo caso, a 0) cosa
vuoi sommare! E' zero (0)
4) Chiariti i punti una soluzione o un "giragliintorno" si trova
--
ac
y-1=x


title: Filtro VBA su query

author: G&W

text:
Ho impostato questo filtro su di una query tramite codice VBA
If IsNull(Zona) Then
 Me.Filter = "DataAcc = QT_Seguimi.DataAcc Between
[Forms]![M_VisPLData]![txtDataDal] And [Forms]![M_VisPLData]![txtDataAl]"
Me.FilterOn = True
Exit Sub
Else
Me.Filter = "ZonaNEW = Forms!M_VisPLData!cmbSceZona And QT_Seguimi.DataAcc
Between [Forms]![M_VisPLData]![txtDataDal] And
[Forms]![M_VisPLData]![txtDataAl]"
Me.FilterOn = True
End If
End Sub
dove "QT_Seguimi.DataAcc" è un campo data della query Seguimi
ora non riesco a capire perchè nella prima parte, se "ZonaNew" è Null, che
nelle intenzioni dovrebbe filtrare delle date non filtra nulla e sulla
maschera non mi si visualizza nulla. Mentre se inserisco anche il valore di
"ZonaNew" i filtro funziona.La query è di selezione e non ha nessun criterio
impostato
Qualcuno sa darmi qualche dritta??
Grazie per i suggerimenti
G&W


title: Filtro VBA su query

author: namor

text:
G&W ha scritto:

Il tuo filtro finale dovrebbe essere così:
QT_Seguimi.DataAcc between #05/24/2003#And #10/18/2003#
quindi senza il "DataAcc = " davanti, con le date in formato "mm/dd/yyyy"
e delimitate dai "#"
Prova se funziona così:
Me.Filter = "QT_Seguimi.DataAcc Between #" & _
format([Forms]![M_VisPLData]![txtDataDal],"mm/dd/yyyy") & _
"# And #" & _
format([Forms]![M_VisPLData]![txtDataAl],"mm/dd/yyyy") & "#"
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Filtro VBA su query

text:

Apprezzo molto la tua buona volontà  ma quello che hai scritto tu non può
funzionare. Quando scrivi del codice le cose cambiano per cui o lo sai o non
lo sai, oppure sbagli a scriverlo.
Saluti
G&W


title: Filtro VBA su query

text:
G&W ha scritto:




Sarebbe stato più cortese se tu spiegassi, a beneficio mio e degli altri
frequentatori, perchè non può funzionare. A me sembra corretto.
Comunque anche tu hai le idee alquanto confuse:
> >> Ho impostato questo filtro su di una query tramite codice VBA
Non si impostano i filtri sulle query tramite vba. Casomai imposti un
filtro su una form che ha come origine dati una query, il che è diverso.



title: Limiti versione runtime

author: Massimo

text:
Ciao a tutti. Vi pongo il mio problema. Ho scritto un'applicazione Access
2000 formata da un Maschere.mde in cui ci sono tutti i forms e da un
Tabelle.mde contenente oltre alle tabelle anche alcuni moduli. Per motivi
che non sto qui a dettagliare, ho la necessità di dover eseguire da un form
di Maschere.mde una funzione definita in un modulo di Tabelle.mde. Per fare
ciò utilizzo il seguente codice:
Dim app As Access.Application
Set app = CreateObject("Access.Application.9")
app.OpenCurrentDatabase ("Tabelle.mde")
app.Run "AggiornaTabellaClienti"
Quando eseguo questo codice con la mia versione completa di Access funziona
egregiamente, ma facendo dei test con la versione runtime mi genera un
errore di automazione. Sbaglio qualcosa io o uno dei limiti della versione
runtime di Access è proprio questo ??
Grazie, Massimo


title: Pulsante su maschera tabulare.

author: Reventlov

text:
Ciao,
Non sono riuscito a trovare una soluzione a questo problema.
Ho una maschera tabulare in cui elenco diversi record. E' uno scadenziario ed ho la data,
l'adempimento, una check box e le note.
Ho messo un'icona che dovrebbe inviare per posta il record, ma anche se ho messo l'icona
sulla riga con il record, devo prima selezionare il record per poterlo inviare. Altrimenti
spedisce il record corrente.
Per ora ho risolto mettendo l'icona nella riga con le intestazioni delle colonne e in
questo modo l'utente deve cliccare in un campo del record e poi inviare il messaggio di
posta elettronica selezionando l'icona.
Vorrei sapere come fare per inviare il record della riga in cui c'� l'icona cliccata.
Credo che dovrei trovare il modo di selezionare quel record e poi fare il sendobject con
il currentrecord. Ma come lo seleziono in modo automatico?
Grazie.
Giovanni.

--
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati
 (Esempi e programmi in VbScript)
--


title: Pulsante su maschera tabulare.

author: Mancini

text:
> ...... Ho messo un'icona che dovrebbe inviare per posta il record, ma anche se ho messo l'icona
> sulla riga con il record, devo prima selezionare il record ........

> ........ Ma come lo seleziono in modo automatico? .......

La icona è un banale controllo che non può essere attivato.
pertanto quando ci klicchi sopra
- L'icona non prende lo stato attivo
- per conseguenza il suo record non prende lo stato attivo
- per conseguenza hai il problema che lamenti

Se sostituisci la icona con un pulsante di comando hai già risolto
oppure se preferisci usa una casella di testo dedicata

certo la icona è più simpatica a vedersi,   ma......

Se ci lavori un po sulle proprieta anche i 2 controlli sopra citati possono diventare simpatoci,

per esempio una casella di testo con le seguenti proprieta:
- bloccato    S1
- Origine controllo ="Spedisci"  ( mettici l'uguale )
- aspetto  In Rilievo

oppure in un pulsante di comando vedo che puoi definire
la immagine scegliendola fra quelle predefinite oppure
puoi anche sfogliare i file .... ( parlo di access2013)

.


title: Pulsante su maschera tabulare.

text:
Mi correggo,
Bloccato Non S1  bensi  Sì

OT: Ma non si può modificare una risposta appena postata ????
Grazie

.


title: Pulsante su maschera tabulare.

text:
Il giorno Mon, 20 Jan 2014 16:07:20 -0800 (PST), Mancini <
manci...@gmail.com
> ha
scritto:
>La icona =E8 un banale controllo che non pu=F2 essere attivato.
>pertanto quando ci klicchi sopra
>- L'icona non prende lo stato attivo
>- per conseguenza il suo record non prende lo stato attivo
>- per conseguenza hai il problema che lamenti
>
>Se sostituisci la icona con un pulsante di comando hai gi=E0 risolto=20
>oppure se preferisci usa una casella di testo dedicata

Fantastico. L'icona prende il click ma non trasferisce il focus al record.
Ho messo un pulsante con l'icona nella proprietà immagine e funziona benissimo.
Grazie.
Giovanni



title: Carattere & in etichetta

author: Yachi

text:
Quando creao una etichetta di testo e voglio scriverci il carattere &
all'interno mi compare un _ e nient'altro. Perchč?
Grazie a chi mi risponderŕ!!!


title: Carattere & in etichetta

author: fidirico

text:
"Yachi" <
ya...@pointel.it
> ha scritto nel messaggio
news:t606dug57dfgm1kq6...@4ax.com...
> Quando creao una etichetta di testo e voglio scriverci il carattere &
> all'interno mi compare un _ e nient'altro. Perchč?
>
> Grazie a chi mi risponderą!!!
Il carattere & č un carattere di concatenazione, per cui il programma lo
interpreta in tal senso. Per visualizzarlo normalmente lo devi raddoppiare :
&&
Se passi il testo contenente la & (es."miaStringa") all'etichetta non
tramite le proprietą del controllo ma da codice, puoi usare efficacemente la
funzione Replace, che cerca la & all'interno della tua stringa e la
sostituisce con una doppia &&:
Etichetta1.Caption =  Replace (miaStringa, "&", "&&", , , vbTextCompare)
ciao
Galliano


title: Carattere & in etichetta

text:
On Fri, 3 May 2002 23:44:59 +0200, "fidirico" <
gal...@libero.it
>
wrote:

Sei stat utilissimo
GRAZIEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE


title: Report via Web ?

author: Roby Eur

text:
Ciao a tutti
Se non mi sbaglio Access 2000 offre la possibilita` di rendere accessibili i
suoi report via Web.
Se e` cosi` dove potrei trovare un piccolo esempio tanto per poter
realizzare una demo in pochissimo tempo ?
Grazie.


title: Report via Web ?

author: Ditta Cerri (Sib)

text:
Roby Eur <
r.men...@deimositalia.com
> wrote in message
8cum6b$gs2$1...@nslave2.tin.it...
> Ciao a tutti
>
> Se non mi sbaglio Access 2000 offre la possibilita` di rendere accessibili
i
> suoi report via Web.
Chiacchiere!
> Se e` cosi` dove potrei trovare un piccolo esempio tanto per poter
> realizzare una demo in pochissimo tempo?
Non puoi, soprattutto in pochissimo tempo.
Sib
PS Approfondisci il termine "ASP"


title: Contatore struttura ad albero per Vincenzo Turturro

text:
Ciao Vincenzo riprende un post cui mi hai risposto, funziona tutto
soltanto che l'assegnazione automatica del codice s'incrementa sempre
e soltanto di .1 e non come un contatore.
Il Fri, 14 Dec 2007 06:48:56 -0800 (PST),
dottcefal...@iol.it
 ha
scritto:
Tabelle dinamiche e struttura ad albero
Fasi
---------------
ID
Codice
Descrizione
CD_Padre (chiave esterna sulla colonna ID della medesima tabella)
Esempio di contenuto
ID      Codice Descrizione CD_Padre
-------------------------------------------------------------
1       7.1     Fase 7.1        0
2       7.2     Fase 7.2        0
3       7.2.1   Fase 7.2.1      2
4       7.2.1.1 Fase 7.2.1.1    3
5       7.1.1   Fase 7.1.1      1
In questo modo non hai limiti sui livelli di classificazione: e con
una sola tabella !
Nella form di gestione puoi anche assegnare automaticamente il
codice:
quando l'utente seleziona il "padre" con una combo, il codice del
record corrente è dato dal codice del "padre" selezionato concatenato
con il risultato di una opportuna Dmax sulla colonna Codice
selezionando solo i "figli" di quel "padre".
Mi sono reso conto che la dmax non serve.
Controllo associato alla colonna ID: txtID
Controllo associato alla colonna Codice: txtCodice
Combo associata a CD_Padre cboPadre con origine record
SELECT ID,Codice,Descrizione FROM Fasi WHERE ID <> Me.txtID
Nella routine associata all'evento DopoAggiornamento di cboPadre,
scrivi:
Me.txtCodice=Dlookup("Codice","Fasi","ID=" & Me.cboPadre) & ".1"
Io vorrei ottenere:
ID      Codice Descrizione CD_Padre
-------------------------------------------------------------
1       7.1     Fase 7.1          0
2       7.2     Fase 7.2          0
3       7.2.1   Fase 7.2.1       2
4       7.2.2  Fase 7.2.2        2
5       7.2.3  Fase 7.2.3       2
6       7.1.1    Fase 7.1.1      1
7       7.1.2    Fase 7.1.2      1
Ti sarò grato se vorrai ancora aiutarmi. Grazie mille


text:

Aiuto a chiunque sia in ascolto


author: VT @ Work

text:
On Thu, 3 Jan 2008 02:32:24 -0800 (PST),
dottce...@iol.it
 wrote:
 (...)
>Ciao Vincenzo riprende un post cui mi hai risposto, funziona tutto
>soltanto che l'assegnazione automatica del codice s'incrementa sempre
>e soltanto di .1 e non come un contatore.
>
Nella routine associata all'evento DopoAggiornamento di cboPadre,
scrivi:
Dim stMaxCod As String

  stMaxCod = Nz(DMax("Codice", "Fasi", "CD_Padre=" & Me.cboPadre),
".0")

  Me.txtCodice = DLookup("Codice", "Fasi", "ID=" & Me.cboPadre)
  Me.txtCodice = Me.txtCodice & "." & Val(Mid$(stMaxCod,
InStrRev(stMaxCod, ".") + 1)) + 1
  Me.Refresh
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

---------------------------------------------


text:
On 4 Gen, 09:31, "VT @ Work" <V...@Work.it> wrote:

Consentimi l'aggettivo "Eccezionale".
Grazie bellissimo


title: casella combinata aggiornabile direttamente

author: Francesco

text:
Ho prelevato dal sito comune questa routine che avrebbe dovuto evitarmi di
aprire una nuova maschera per aggiungere nuovi valori ad una casella
combinata consentendomi di farlo direttamente nella casella
Private Sub MiaCombo_NotInList(NewData As String, Response As Integer)
Dim IntNuovo As Integer, strTitolo As String
Dim IntFinestraMsg As Integer, strMsg As String
strTitolo = "Prodotto digitato non in elenco"
strMsg = "Vuoi aggiungere" & Chr(13) & Chr(10) & NewData & Chr(13) & Chr(10)
& "in elenco?"
IntFinestraMsg = vbYesNo + vbQuestion
IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
If IntNuovo = vbYes Then
    Dim miorst As Recordset
            Set miorst = CurrentDb.OpenRecordset("Prodotti")
    miorst.AddNew
    miorst!Prodotto = NewData
    Me![MiaCombo] = miorst![IdProdotto]
    miorst.Update
    miorst.Close
    Set miorst = Nothing
    strTitolo = "Inserimento nuovo Prodotto in elenco"
    strMsg = "Inserimento in elenco di" & Chr(13) & Chr(10) & NewData &
Chr(13) & Chr(10) & "con successo"
    IntFinestraMsg = vbOKOnly + vbExclamation
    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    Response = acDataErrAdded
    Me![MiaCombo].Requery
Else
    strTitolo = "Nome del prodotto errato"
    strMsg = NewData & " non è in elenco." & Chr(13) & Chr(10) & "Seleziona
un prodotto dall'elenco"
    IntFinestraMsg = vbOKOnly + vbExclamation
    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    Response = acDataErrContinue
    Me![MiaCombo].Undo
End If
End Sub
premetto che è stata realizzata per access97 e forse per questo che in
access2000 non mi funziona?
il messaggio di errore è "tipo non corrispondente" e la riga segnalata è
Set miorst = CurrentDb.OpenRecordset("Prodotti").
Cosa devo correggere?
Grazie
Francesco


author: Maurizio Borrelli

text:
> "Francesco" news:SYFs9.57068$
RO.14...@twister1.libero.it
:
> Ho prelevato dal sito comune questa routine che avrebbe dovuto evitarmi di
> aprire una nuova maschera per aggiungere nuovi valori ad una casella
> combinata consentendomi di farlo direttamente nella casella
> Private Sub MiaCombo_NotInList(NewData As String, Response As Integer)
> Dim IntNuovo As Integer, strTitolo As String
> Dim IntFinestraMsg As Integer, strMsg As String
> strTitolo = "Prodotto digitato non in elenco"
> strMsg = "Vuoi aggiungere" & Chr(13) & Chr(10) & NewData & Chr(13) &
Chr(10)
> & "in elenco?"
> IntFinestraMsg = vbYesNo + vbQuestion
> IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
> If IntNuovo = vbYes Then
    Accertati di avere fra i riferimenti:
        Microsoft DAO 3.6 Object Library
poi sostituisci:
>     Dim miorst As Recordset
con:
        Dim miorst As DAO.Recordset
[...]
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:aovup4$qcea6$1...@ID-52090.news.dfncis.de...
> > "Francesco" news:SYFs9.57068$
RO.14...@twister1.libero.it
:
> > Ho prelevato dal sito comune questa routine che avrebbe dovuto evitarmi
di
> > aprire una nuova maschera per aggiungere nuovi valori ad una casella
> > combinata consentendomi di farlo direttamente nella casella
    Accertati di avere fra i riferimenti:
>
>         Microsoft DAO 3.6 Object Library
>
> poi sostituisci:
>
> >     Dim miorst As Recordset
>
> con:
>
>         Dim miorst As DAO.Recordset
>
> [...]
>
> --
> Ciao :-)
> Maurizio
> --------
> ?SPQR(C)
>  X
> --------
Grazie mille! Ora č ok


title: DPS sulla privacy come comportarsi cosa fare per essere in regola

text:
Volevo chiedervi cosa state facendo voi per mettervi in regola con il
documento programmatico sulla privacy visto che gente come noi che tratta
spesso molti dati sensibili relativi a molte persone, c'è una procedura
chiara e guidata sulle operazioni da fare?
Avete qualche agenzia o qualche software da consigliarmi che eseguono in
automatico questo documento?
La scadenza ultima è il 30 giugno?
Grazie a tutti.


text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:4249122b$0$18152$5fc...@news.tiscali.it...

www.dpss.it
www.privacy.it
Qui trovi molte utili informazioni.
Per quanto riguarda il lato SW, si ne esistono e su google ne trovi,
io personalmente per i miei contatti me lo stò sviluppando in casa ... sarà
pronto all'incirca tra un mesetto,
ma servirà per il mantenimento e per le successive pratiche burocratiche
lato Garante.
Buona giornata,
--
strano...mavero


author: Carlo Costarella

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:4249122b$0$18152$5fc...@news.tiscali.it...

Alla risposta di strano...mavero aggiungo solo che dovrai prevedere tabelle
blindate e con accessi controllati e monitorati. Inoltre dovrai pensare a
crearti delle copie giornaliere dei dati da conservare in luogo sicuro. La
lista delle password va depositata in luogo sicuro e vanno cambiate almeno
ogni tre mesi. Bisogna prevedere che un utente possa copiare i dati di
tabella ed esportarli: questo va evitato.
Personalmente posso dirti che in azienda stiamo migrando le tabelle Access
in SQL con rigide misure anti intrusione e su macchine Server 2003, proprio
per rispondere alla legge sulla privacy che entrerà in vigore
improrogabilmente (forse...) in giugno.
Non hai molto tempo...
Ciao, Carlo


author: AEOM

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:4249122b$0$18152$5fc...@news.tiscali.it...

credo sia stata spostata per l'ennesima volta a dicembre 2005
ciao, AEOM


text:
 [cut]
copia incolla sbagliato, questo è il link che stamane volevo passarti:
http://www.garanteprivacy.it/garante/navig/jsp/index.jsp
scusami.
--
strano...mavero


author: Felter

text:

Ciao.
Stai attento al discorso proroga, in quanto solo alcune particolari
operazioni da effettuare sono state prorogate.
Probabilmente molte cose le avresti dovute gia' fare dal 1996!
Ti consiglio, a tal proposito, di leggere questo articolo:

http://www.interlex.it/675/neirotti6.htm
Inoltre non ti fidare molto dei software preconfezionati che promettono
di risolvere i problemi della tutela della privacy.
Esamina la situazione con un consulente, intanto identificherai quanto è
di competenza dello sviluppatore di software, quanto del cliente e
quanto (purtroppo) nella legge deve essere ancora chiarito e che puo'
essere un problema.
Felter Roberto
Essendo io un consulente informatico ti comunico il mio indirizzo
internet dove poter avere ulteriori informazioni.
Dato che puo' non interessare, la mia firma è stata posta in fondo alla
pagina, fuori dalla visualizzazione.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
Felter Roberto
Consulente informatico
Montichiari (BS)
www.felter.it


text:
Altri che vogliono fornire il loro contributo spiegando cosa hanno fatto per
mettersi in regola?
io pensavo al file con le tabelle protetto da password e stop
non basta?
devo chiedere a tutti i miei clienti di firmarmi un foglio di autorizzazione
dei loro dati personali e di tutti quelli dei loro clienti?
Grazie ancora


text:
Simba883 wrote:

Ciao.
Non è facile dare indicazioni senza conoscere i ruoli, le situazioni ecc.
Sei uno sviluppatore?
sei il cliente che commisiona il software?
lavori presso il cliente durante lo sviluppo del software?
hai a che fare con le tabelle contenenti i dati del cliente o verranno
inseriti in seguito?
Purtroppo sono talmente tante le sfumature e le situazioni e quello che
potrebbe essere richiesto per legge che le indicazioni univoche sono
molto poche.
Basti dire che la legge parla da un lato di misure MINIME, però dice
anche che per essere in regola devi:
"1. I dati personali oggetto di trattamento sono custoditi e
controllati, anche in relazione alle CONOSCENZE ACQUISITE IN BASE AL
PROGRESSO TECNICO, alla natura dei dati e alle specifiche
caratteristiche del trattamento, in modo da ridurre al minimo, mediante
l'adozione DI IDONEE E PREVENTIVE misure di sicurezza, i rischi di
distruzione o perdita, anche accidentale, dei dati stessi, di accesso
non autorizzato o di trattamento non consentito o non conforme alle
finalità della raccolta" (art.31)
Per cui in realtà si chiede molto di piu', cioè di avere esaminato il
contesto, avere visto le eventuali problematiche, avere capito il
progresso tecnologico che soluzioni offre, aver stabilito cosa IDONEO ed
averlo applicato.
Alla fine, la domanda che ti devi porre è:
" se io fossi il possessore dei dati che vengono trattati, avrei da
lamentarmi per come vengono gestiti?"
Da questo parte tutto il procedimento di "regolarizzazione" di quanto fatto.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.Felter Roberto



author: Nick

text:
AEOM ha scritto:

Confermo quello che ha detto  AEOM è tutto spostao di un anno ( e più):
scadenza misure minime e DPS 30/12/2005
ciao
Nick


text:
Nick wrote:

ASSOLUTAMENTE NO!
Le misure minime in linea di massima sono da applicare dal 1996!!!!!
Solo quanto non era previsto dalla 675/96 ed introdotto dal D.Lgs.
196/2003 è stato prorogato.
Per cui il DPS SOLO per chi con la 675 non lo doveva fare e con il 196 si!
Se tu il DPS lo dovevi fare già con la 675, LO DEVI FARE GIA TUTTI GLI
ANNI DA UN BEL PEZZO!!
Stiamo attenti su queste cose.
Vi consiglio di leggere l'articolo che ho linkato nell'altro mio msg.



text:
Felter ha scritto:

> ..Felter Roberto
> Consulente informatico
> Montichiari (BS)
>
www.felter.it
quoto in pieno.. ma visto che il problema è saltato fuori ora ho dato
per scontato che si trattasse di quelle aziende soggette al DPS solo dal
196 in poi...
infatti quello che ho scritto io fa riferimento ad aggiornamenti al
decreto di proroga del 196 :)
cmq ottima precisazione ;)
ciao
Nick


text:
Ciao.
E' il problema di queste c...o di proroghe.
Tutto danno per scontato che si sappia cosa è stato prorogato, poi uno
prende il msg da solo e diventa tutto insieme e non si capisce più nulla.
Sapessi la fatica di farlo capire ai clienti.  ( "scusa ma non è tutto
prorogato? ne abbiamo di tempo? ecc. ecc.)
Felter Roberto



author: Simone Calligaris

text:
"Carlo Costarella" <
> Alla risposta di strano...mavero aggiungo solo che dovrai prevedere
tabelle
> blindate e con accessi controllati e monitorati.
Questo č vero per il software destinato a girare in ambiente sanitario per
il quale sono state diffuse disposizioni particolarmente rigide (tra cui se
non ricordo male la "vera" crittazione dei dati).
Per gli altri settori la normativa (o meglio gli allegati diffusi con essa)
č molto generica.
Tanto generica da rendere accettabile la sola protezione dell'accesso al PC
con Nome Utente e PassWord.
D'altro canto nelle ditte i dati non vengono archiviati solo su DB:
documenti di Excel o Word possono contenere dati sensibili, eccome, ma non
puoi implementare in essi una gestione differenziata per utenti o
particolari "blindature".
Saluti.


text:
> D'altro canto nelle ditte i dati non vengono archiviati solo su DB:
> documenti di Excel o Word possono contenere dati sensibili, eccome, ma non
> puoi implementare in essi una gestione differenziata per utenti o
> particolari "blindature".
>
> Saluti.
>
ottimo chiarimento direi


title: Nz, IIf ?? chiedo solo uno 0 !!

author: Mic

text:
problema:
ho fatto una query in cui c'è un campo che raggruppa delle somme,
ma uno dei records risulta vuoto (null) : vorrei che al posto di
questo spazio vuoto ci fosse uno 0 (zero).
ho fatto qualche tentativo con le funzioni Nz e IIf ed entrambe ma
mi è andata male .
è bene agire sul criterio o la funzione va applicata nella stessa
formula che mi fa la somma ?
grazie x l'attenzione
Mic.


title: Nz, IIf ?? chiedo solo uno 0 !!

author: Roberto da casa

text:
"Mic" <
miche...@libero.it
> ha scritto nel messaggio
news:3c29ddd5...@news.libero.it...

Non sono sicuro di aver capito cosa ti serva.
Comunque, se in una query di raggruppamento devi sommare un campo che si
chiama Importo che per alcuni record è Null, definisciti un campo calcolato
in questa maniera:
Pippo: Nz([Importo]; 0)
o se preferisci:
Pippo: IIf(IsNull([Importo]; 0; [Importo])
quindi somma Pippo anziché Importo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Nz, IIf ?? chiedo solo uno 0 !!

text:


grazie 1000 Roberto per il suggerimento:
ho usato la funzione Nz e  nella
riga Raggruppamento ho selezionato
Somma. e tutto fila liscio
finalmente riuscirò a dormire!  ;-)
grazie ancora e auguri a tutti
Mic.


title: Nz, IIf ?? chiedo solo uno 0 !!

author: Roberto dal portatile

text:
"Mic" <
miche...@libero.it
> ha scritto nel messaggio
news:3c2a5371...@news.libero.it...
> On Wed, 26 Dec 2001 19:42:32 GMT, "Roberto da casa"
> <
r.ma...@libero.it
> wrote:
>
[CUT]
>
> finalmente riuscirò a dormire!  ;-)
>
Una felice dormita :)
> grazie ancora e auguri a tutti
>
ed un felice anno nuovo
> Mic.



title: Nz, IIf ?? chiedo solo uno 0 !!

author: Adriana

text:
prova ad usare questa funzione:
Function NullInZero(Valore As Variant) As Variant
' Accetta:      un valore di tipo Variante
' Esegue:       converte i valori Null in zero
' Restituisce:  zero o un valore non Null
    If IsNull(Valore) Then
        NullInZero = 0
    Else
        NullInZero = Valore
    End If
End Function
esempio:
somma(nullinzero([a]))
------------------------------------------
"Mic" <
miche...@libero.it
> ha scritto nel messaggio
news:3c29ddd5...@news.libero.it...



title: memoria insufficiente,PERCHE?

author: robby

text:
sono ai primi passi di access e chiedevo una cosa:
sto costruendo un database e facendo una maschera con + sottomaschere,
mentre lavoro nella struttura mi appare l'errore memoria INSUFF.non capisco
xke' dato che la memoria virtuale e' libera,e non sto facendo neanche un
database gigantissimo!!!!!
AIUTOOOOOOOOOO!!!!!!!!!!!!
grazie mille a chiunque mi potesse aiutare
roberto


title: memoria insufficiente,PERCHE?

author: CarloCos

text:
Credo di capire che il problema non stà nella memoria fisica (RAM) ma nel
motore grafico GDI che esaurisce le sue risorse.
Probabilmente hai delle maschere con molti controlli o immagini e le apri
continuamente in struttura e poi le esegui.
Credo sia un problema di Windows e di Access insieme: GDI scritta alla meno
peggio e applicativo che non rilascia le risorse.
Mentre esegui le operazioni sulla maschera datti uno sguardo alle risorse
disponibili aprendo il pannello di controllo...Sistema...Prestazioni.
Se trovi una soluzione che non sia quella di ridurre drasticamente il numero
di controlli e delle immagini sulla maschera, fammelo sapere.
Dimenticavo: usa solo Access e chiudi ogni altro apllicativo in funzione.
Ciao, Carlo
--
Posted from
ro...@www.paola.antares.it
 [195.216.145.2]
via Mailgate.ORG Server -
http://www.mailgate.org