title: Chiavi esterne...come fare???

author: Prometeo

text:
Alessandro D'Onofrio ha scritto:


Ciao Alessandro
Se come dici hai un dato anagrafico per molte aziende crei due maschere,
una maschera singola (a colonne) [M_Dati Anagrafici] con origine dati la
tabella   [dati anagrafici] ed un'altra a maschere continue
(Tabulare)[SM_Dati_Azienda]  basata sulla tabella  [dati azienda], io di
solito creo delle query ed assegno a quest'ultime l'origine dati delle
maschere.
Apri in struttura [M_Dati Anagrafici] in modalità dimensionabile in modo da
poter visualizzare la finestra del data base e da questa trascini
[SM_Dati_Azienda]  nella sezione corpo di [M_Dati Anagrafici].
Fatto questo non ti resta che dare l'indicazione dei campi di riferimento
tra le due maschere:
Selezioni la sottomaschera e nella scheda DATI delle proprietà selezioni
in collega campi master [IDDati] collega campi secondari [IDDati].
Normalmente per selezionare le proprietà di una maschera si fa click con
il tasto destro sul quadratino in alto a sinistra nella maschera, ma in
questo caso per selezionare le proprietà  in quanto sottomaschera devi
fare click sul bordo della sottomaschera.
Ricorda che per garantire l'integrità dei dati, per es. non poter
cancellare Dati Anagrafici aventi records corrispondenti nella tabella
[Dati Azienda] devi impostare l'integrità referenziale nella relazione che
hai creato tra le tabelle.
Ciao
Prometeo
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Chiavi esterne...come fare???

author: Francesco G. Rizzoni

text:
In data Fri, 13 May 2005 16:58:59 GMT, Alessandro D'Onofrio ha scritto:
> Ciao,
> Ho una domanda:
> Ho creato due tabelle
> a)Dati anagrafici con Chiave primaria IDDati
> b)Dati azienda con chiave primaria IDAzienda
Per curiosità, che tipo di informazioni rali intendi memorizzarci?
Per ogni anagrafica hai più aziende? Oppure?
>
> Le due tabelle sono collegate con una relazione 1(dati anagrafici) a molti
> (dati azienda) mediante una chiave esterna nella tabella DatiAzienda IDDati.
> Fin qui nessun problema...
> Il problema è: come faccio ad inserire automaticamente il valore della
> chiave esterna nella tabella DatiAzienda??????
Dipende da dove intendi fare l'inserimento/modifica dei dati: direttamente
dalla tabella Dati_Azienda, da una query, da una maschera/sottomaschera?
dall'interno di una routine VBA?
Ciao.


title: Chiavi esterne...come fare???

author: Alessandro D'Onofrio

text:
"Francesco G. Rizzoni" <
rfragT...@tin.it
> ha scritto nel messaggio
news:kfxncuonbo31.y...@40tude.net...

I dati vorrei inserirli direttamente da una maschera Dati_Azienda....


title: [REPOST] Stored Procedure in scrittura

author: Gilmour

text:
Ho scritto del codice per eseguire 2 query a cui passo un parametro..
tuttavia ho un problema, ogni qual volta tento di scrivere dati in un
campo mi viene restituito un msg di errore in cui è scritto che
l'azione non è supportata dal provider...
c'è soluzione?
Vi riporto il codice
    Dim conn As ADODB.Connection
    Dim cmd1 As ADODB.Command
    Dim cmd2 As ADODB.Command
    Dim s_ordini As ADODB.Recordset
    Dim capi As ADODB.Recordset
    Dim prm1 As ADODB.Parameter
    Dim prm2 As ADODB.Parameter

    Set conn = CurrentProject.Connection

    Set cmd1 = New ADODB.Command
    cmd1.ActiveConnection = conn
    cmd1.CommandText = "Query_sotto_ordini_parametrica"
    cmd1.CommandType = adCmdStoredProc

    Set cmd2 = New ADODB.Command
    cmd2.ActiveConnection = conn
    cmd2.CommandText = "Query_elenco_capi_parametrica"
    cmd2.CommandType = adCmdStoredProc

    Set prm1 = New ADODB.Parameter
    prm1.Name = "Ordine"
    prm1.Value = Me.Id_ordine
    prm1.Type = adInteger
    prm1.Direction = adParamInput

    Set prm2 = New ADODB.Parameter
    prm2.Name = "Ordine"
    prm2.Value = Me.Id_ordine
    prm2.Type = adInteger
    prm2.Direction = adParamInput

    cmd1.Parameters.Append prm1
    cmd2.Parameters.Append prm2

    Set s_ordini = cmd1.Execute
    Set capi = cmd2.Execute
Se a questo punto scrivo capi!prezzo=0 mi da l'errore.
--
Icq: 32405502
Se le persone che parlano male di me, sapessero quello che dico io di loro, parlerebbero peggio.
Jim Morrison
Clicca sul link per contattarmi direttamente da icq
http://msg.mirabilis.com/scripts/contact.dll?msgto=32405502


title: [REPOST] Stored Procedure in scrittura

author: oliones

text:
> Ho scritto del codice per eseguire 2 query a cui passo un parametro..
> tuttavia ho un problema, ogni qual volta tento di scrivere dati in un
> campo mi viene restituito un msg di errore in cui è scritto che
> l'azione non è supportata dal provider...
> c'è soluzione?
> Vi riporto il codice
presupposto
non ho grande esperienza con ado
ho provato ad eseguire delle query memorizzate a cui passavo un parametro ma
ho ottenuto il tuo risultato,  sembrerebbe che access (Cn.Provider =
"Microsoft.Jet.OLEDB.4.0") non permetta di modificarle (veramente strano non
vorrei dire un c.. ma credo che con dao sia possibile)
una possibile soluzione è quella di eseguire la query come stringa sql in
tal caso è possibile modificare ed aggiungere record
ado come predefinito non permette modifiche dopo
    Set s_ordini = New ADODB.Recordset
devi aggiungere
    s_ordini.LockType = adLockOptimistic
    s_ordini.CursorType = adOpenKeyset
l'altra soluzione e di eseguire la query memorizzata per visualizzare e poi
modifica direttamente la query (non è molto elegante)
di seguito ti posto il codice
    Set Cn = New ADODB.Connection
    Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    Cn.ConnectionString = "C:\Documenti\Ottavio\prova.mdb"
    Cn.Open
    Dim cmd1 As ADODB.Command
    Dim s_ordini As ADODB.Recordset
    Set s_ordini = New ADODB.Recordset
    Dim prm1 As ADODB.Parameter
    Set cmd1 = New ADODB.Command
    cmd1.ActiveConnection = Cn
    cmd1.CommandText = "GirSetPa"
    cmd1.CommandType = adCmdStoredProc
    Set prm1 = New ADODB.Parameter
    prm1.Name = "GioSetPa"
    prm1.Value = 3  '   Me.Id_ordine
    prm1.Type = adInteger
    prm1.Direction = adParamInput
    cmd1.Parameters.Append prm1
    Set s_ordini = cmd1.Execute
'   *** DOVREBBE AGGIUNGERE RECORD
'    mi ricollego tramite stringa sql
'    volendo puoi usare questra e non la query memorizzata cancella parte
del codice precedente
Dim strSQL
strSQL = "select * " & "from CostLav " & "where CoLaGioSet = 3"
'    3 è una sorta di parametro
s_ordini.Close
s_ordini.Source = strSQL
'    permette di scrivere
 s_ordini.LockType = adLockOptimistic
 s_ordini.CursorType = adOpenKeyset
s_ordini.Open
s_ordini.AddNew
s_ordini.Fields(0) = 27
s_ordini.Fields(1) = "nuovo"
s_ordini.Fields(2) = 3
s_ordini.Update
s_ordini.Close
su scaricamento della maschera chiudo la connesione:
Cn.Close
Set Cn = Nothing
e solitamente la apro su caricamento
ciao
ps
se riesci a variare la query memorizzata fammi sapere
dovrebbe esserci qualcosa come recordset disconnesso ????


title: [REPOST] Stored Procedure in scrittura

text:
Era un luminoso pomeriggio di aprile, e i due giovani "oliones"
<
oli...@tiscalinet.it
> e Piero si incontrarono nella radura di
Sherwood (it.comp.appl.access), dicendo:
>
>'   *** DOVREBBE AGGIUNGERE RECORD
>'    mi ricollego tramite stringa sql
>'    volendo puoi usare questra e non la query memorizzata cancella parte
>del codice precedente
>
>Dim strSQL
>strSQL = "select * " & "from CostLav " & "where CoLaGioSet = 3"
>'    3 è una sorta di parametro
>s_ordini.Close
>s_ordini.Source = strSQL
>
>'    permette di scrivere
> s_ordini.LockType = adLockOptimistic
> s_ordini.CursorType = adOpenKeyset
>
>s_ordini.Open
ho fatto come tu dici, con la stringa sql. Effettivamente funziona,
però è sorto un'altro problema (credo si possa risolvere facilmente,
ma date le mie scarse nozioni in materia...) Quando elimino la parte
precedente del codice, lascio praticamente solo queste 3 righe:
Dim conn As ADODB.Connection
Set conn = CurrentProject.Connection
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
però quando l'esecuzione arriva a S_ordini.open mi da:
L'applicazione ha richiesto l'esecuzione di un'operazione su un
oggetto contenente un riferimento ad un'oggetto connection chiuso o
non valido.....perché? kosa kambia rispetto alla situazione precedente
in cui era rimasto il codice di prima?



title: [REPOST] Stored Procedure in scrittura

text:
Gilmour <
dark...@virgilio.it
> wrote in message
nqqvnt8fbvhhpikas...@4ax.com...

devi attivare la connessione
    s_ordini.ActiveConnection = Cn    '    questo attiva la connesione
    Set Cn = New ADODB.Connection
    Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    Cn.ConnectionString = "C:\Documenti\Ottavio\prova.mdb"
    Cn.Open
    Dim s_ordini As ADODB.Recordset
    Set s_ordini = New ADODB.Recordset
    s_ordini.ActiveConnection = Cn    '    questo attiva la connesione
'   *** DOVREBBE AGGIUNGERE RECORD
Dim strSQL
strSQL = "select * " & "from CostLav " & "where CoLaGioSet = 3"
s_ordini.Source = strSQL
    s_ordini.LockType = adLockOptimistic
    s_ordini.CursorType = adOpenKeyset
s_ordini.Open
s_ordini.AddNew
s_ordini.Fields(0) = 31
s_ordini.Fields(1) = "nuovo"
s_ordini.Fields(2) = 3
s_ordini.Update
s_ordini.Close
ciao


title: [REPOST] Stored Procedure in scrittura

text:
Era un luminoso pomeriggio di aprile, e i due giovani "oliones"
<
oli...@tiscalinet.it
> e Piero si incontrarono nella radura di
Sherwood (it.comp.appl.access), dicendo:
Funziona!
Non so come ringraziarti...
cmq ho mandato il codice che apriva il recordset in sola lettura ad un
mio amico... se riescono a darmi una soluzione ti faccio sapere.
Tanto per informare, ho provato anche ad aprire la query con .open
"exec [nometabella] [parametro1], [parametro2]"
anche in questo caso, riesce solo a leggere...
Saluti
Gilmour



title: come aggiungere una nuova voce in una casella combinata

author: Iacobucci Gianni

text:
ciao a tutti
mi sono imbattuto in questo problema
ho creato una maschera (FrmAggiungiFatture) contenente la
sottomaschera(SubAggiungiCausaliFatture)
nella sottomaschera il campo IdCausale è una casella combinata vorrei che
ad ogni inserimento
di una nuova causale mi aggiornasse l'elenco nella casella combinata
ho gestito la cosa cosi:
sull'evento Su non in Elenco della combobox  ho inserito questa procedura:
Private Sub ElencoCausali_NotInList(NewData As String, Response As Integer)
  If MsgBox("La causale inserita non é presente in archivio. La Vuole
aggiungere ?", vbYesNo) = vbYes Then
        Response = acDataErrContinue
        DoCmd.OpenForm "Frm_CausaliAggiungiFatture", , , , acFormAdd
           Forms!Frm_CausaliAggiungiFatture!DescrizioneCausale = NewData
    Else  ' p.e. se ha sbagliato
        Response = acDataErrContinue
        ElencoCausali.Undo
    End If
End Sub
questa proc.mi apre la maschera(Frm_CausaliAggiungiFatture) inserendo il
nuovo Dato
per fare in modo che quando rientro nella
machera(SubAggiungiCausaliFatture) con il dato aggiornato
ho creato un pulsante e sull'evento onClik ho inserito questa procedura:
Private Sub CmdChiudi_Click()
Dim ElencoCausali As Control
Forms!FrmAggiungiFatture.SubAggiungiFattureCausali!IdCausale =
Forms!Frm_Causali!IdCausale
DoCmd.Close acForm, "Frm_CausaliAggiungiFatture", acSaveYes
Set ElencoCausali =
Forms!FrmAggiungiFatture.SubAggiungiFattureCausali!IdCausale
ElencoCausali.Requery
DoCmd.Requery ("IdCausale")
DoCmd.GoToControl ("Imponibile")
End Sub
mi da il seguente errore :Errore definito dall'applicazione o dall'oggetto
ho provato in diverse maniere ma non ho cavato un ragno dal buco
qualcuno mi puo aiutare
grazie


title: Posizionamento su campi di una maschera

author: Pippuzzo

text:
Salve a tutti !!!
Ho il seguente problema. Sto lavorando su Access 2000 installato su Windows
XP Professional.
Vorrei potermi posizionare su un campo della maschera premendo il tasto ALT
+ Lettera sottolineata (uso del carattere & nella caption) dell'etichetta
che precede il campo (Esempio: Etichetta: &Nome, Casella di Testo: Nome;
premendo ALT + N vorrei posizionarmi sul campo Nome).
Purtroppo qualcosa non funziona e quando premo ALT + N non succede niente.
Quale puň essere la causa ?
Ringrazio anticipatamente chiunque sia disposto a darmi una risposta in
merito?
Pippuzzo


title: Posizionamento su campi di una maschera

author: Sergio MAZZA

text:
"Pippuzzo" <
rsup...@inwind.it
> ha scritto nel messaggio
news:c242lf$s34$1...@newsreader.mailgate.org...
> Salve a tutti !!!
>
> Ho il seguente problema. Sto lavorando su Access 2000 installato su
Windows
> XP Professional.
> Vorrei potermi posizionare su un campo della maschera premendo il tasto
ALT
> + Lettera sottolineata (uso del carattere & nella caption) dell'etichetta
> che precede il campo (Esempio: Etichetta: &Nome, Casella di Testo: Nome;
> premendo ALT + N vorrei posizionarmi sul campo Nome).
> Purtroppo qualcosa non funziona e quando premo ALT + N non succede niente.
> Quale può essere la causa ?
> Ringrazio anticipatamente chiunque sia disposto a darmi una risposta in
> merito?
>
> Pippuzzo
>
Hai controllato se la combinazione che stai utilizzando non sia già stata
assegnata in access o in windows in generale?
Ciao.
--
Sergio MAZZA


title: Posizionamento su campi di una maschera

text:
> Hai controllato se la combinazione che stai utilizzando non sia già stata
> assegnata in access o in windows in generale?
>
> Ciao.
>
> --
> Sergio MAZZA
Certamente !!!!
Il fatto che non succeda niente, assolutamente niente, niente di niente, mi
fa pensare che per qualche motivo non viene sentita la combinazione di tasti
che digito.


title: Posizionamento su campi di una maschera

text:
"Pippuzzo" <
rsup...@inwind.it
> ha scritto nel messaggio
news:c24a14$7h0$1...@newsreader.mailgate.org...

Forse l'etichetta non è legata alla casella di testo?
Ciao.
--
Sergio MAZZA


title: Posizionamento su campi di una maschera

text:
> Forse l'etichetta non è legata alla casella di testo?
>
> Ciao.
>
> --
> Sergio MAZZA
Esatto!!! E' proprio quello che su cui stavo lavorando.
Ora però mi chiedo: esiste un modo per legare un'etichetta ad una casella di
testo, oppure sono obbligato a sostutire tutte le caselle di testo e le
etichette con nuove caselle di testo (che nascono già con un'etichetta
legata) ?
Grazie
Pippuzzo


title: Posizionamento su campi di una maschera

author: MA

text:
"Pippuzzo" <
rsup...@inwind.it
> ha scritto nel messaggio
news:c24arp$8pd$1...@newsreader.mailgate.org...

In A2003 sicuramente, nei precedenti non credo.
MAssimiliano


title: Posizionamento su campi di una maschera

text:
"Pippuzzo" <
rsup...@inwind.it
> ha scritto nel messaggio
news:c24arp$8pd$1...@newsreader.mailgate.org...

Tratto dall'help di acc'97:
Fare clic sull'etichetta che si desidera allegare ad un controllo.
3 Fare clic su Taglia    sulla barra degli strumenti.
4 Fare clic sul controllo a cui si desidera allegare l'etichetta.
5 Fare clic su Incolla    sulla barra degli strumenti.
Ciao.
--
Sergio MAZZA


title: Posizionamento su campi di una maschera

text:
Fantastico !!!! Funziona.
Grazie mille davvero.
Pippuzzo


title: più query in un report

author: thanos

text:
Scusate ....come posso inserire il risultato di una dozzina di query in un
report?!!!!


title: più query in un report

author: AEOM

text:
"thanos" <
tha...@libero.it
> ha scritto nel messaggio
news:Ukqxc.28573$G%.480@tornado.fastwebnet.it...
> Scusate ....come posso inserire il risultato di una dozzina di query in un
> report?!!!!
>
>
se i recordset delle query sono omogenei puoi crearti una query di unione
delle 12 query e usarla come origine dati. Altrimenti in un report vuoto
inserisci 12 sottoreport ogni uno con la propria query di origine
ciao, AEOM


title: Autoaggiornamento via Internet

author: Roberto Spinella Esteban

text:
Sigh come mai nessuno mi risponde ?
Vorrei far si che il mio programmino Access 2k si autoaggiornasse da
internet.
Ho già gestito il tutto (Controllo versione, e download) ma come posso
lanciare il file di setup appena scaricato ?
Dovrei di regola
1 chiudere access
2 Lanciare il setup
3 Rilanciare il mio programma aggiornato
Grazie a chiunque mi dia un consiglio
Roberto Spinella Esteban


title: Autoaggiornamento via Internet

author: Alessandro Baraldi

text:
"Roberto Spinella Esteban" <
rs...@polispin.it
> wrote in message
news:4257ac41$0$8073$
5fc...@news.tiscali.it

Presumo sia un EXE il tuo SETUP...?
Immagino tu abbia un cmdButton da gestire, quindi su Click:
Dim RetVal
Docmd.Quit
RetVal = Shell("C:\Update.vbs", 1)
'-------------------------------------------------------------
'// SCRIPT VBS "Update.vbs"
'// Lancia il SETUP, attende la fine quindi lancia ACCESS
'// e il Tuo APPLICATIVO
'-------------------------------------------------------------
Dim WshShell
Dim Return
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run(FULLPATH_SETUP, 1, true)
Return = WshShell.Run(FULL_ACCESSPATH & " " & PATHAPPLICATIVO, 1, False)
Set WshShell=nothing
'-------------------------------------------------------------
Vedi tu di fare qualche testo io non ho potuto provare nulla,
eventualmente leggiti le info di MS quì:
http://msdn.microsoft.com/library/en-us/script56/html/wsMthRun.asp
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Autoaggiornamento via Internet

text:
"Alessandro Baraldi" <
ik2...@libero.it
> wrote in message
news:473801c4caf87a8a2d...@mygate.mailgate.org
[CUT]
Sono stato forse un pò sintetico...!

'-------------------------------------------------------------
'  Questo Codice va eseguito su Evento CLICK
'-------------------------------------------------------------
 Dim RetVal
 Docmd.Quit
 RetVal = Shell("C:\Update.vbs", 1)
'-------------------------------------------------------------
Questo Codice lo metti in un File di Testo aperto con NotePad
e lo Salvi con un nome ad esempio "Update.vbs"

'-------------------------------------------------------------
'// SCRIPT VBS "Update.vbs"
'// Lancia il SETUP, attende la fine quindi lancia ACCESS
'// e il Tuo APPLICATIVO
'-------------------------------------------------------------
 Dim WshShell
 Dim Return
 Set WshShell = WScript.CreateObject("WScript.Shell")
 Return = WshShell.Run(FULLPATH_SETUP, 1, true)

 Return = WshShell.Run(FULL_ACCESSPATH & " " & PATHAPPLICATIVO, 1,
False)
 Set WshShell=nothing
'-------------------------------------------------------------
I Riferimenti sono sempre validi



title: Autoaggiornamento via Internet

text:
Grazie Alessandro
ho fatto tutto come mi hai detto ma ....
dopo il docmd.quit il controllo del programma viene perso e quindi non viene
lanciata l'istruzione seguente.
Se la lancio manualmente è tutto OK
Non so neanch'Io come fare ma vorrei sapere come fanno tutti gli altri
programmi che si autoaggiornano tipo acrobat reader, microsoft messenger etc
etc
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:dfcb9330d3ca11d4da...@mygate.mailgate.org...



title: Autoaggiornamento via Internet

author: Carlo Costarella

text:
"Roberto Spinella Esteban" <
rs...@polispin.it
> ha scritto nel messaggio
news:4257ac41$0$8073$5fc...@news.tiscali.it...

Non hai modo di "Aggiornare" cioè sostituire un mdb o mde in uso con le
maschere mentre questo è aperto.
Mi spiego meglio. Se hai diviso il db potrai aggiornare/sostituire il BE
anche se il FE è aperto ma non potrai aggiornare il FE se questo è aperto o
peggio se stai usando una funzione proprio dal FE.
Personalmente aggiorno sempre il BE da internet ma quando si tratta di
aggiornare l'interfaccia utente (FE) mando una e-mail al cliente che scarica
l'aggiornamento del FE (con winzip o winrar gli propongo un eseguibile).
Ovviamente esiste un sito dove il cliente può controllare se vi sono
aggiornamenti e scaricarli da solo.
(Per un esempio:
http://www.gestionefrantoio.it/download.htm
)
Un altra soluzione consiste nel creare un db separato che si occupa di
aggiornare il FE o il BE principali. In questo caso potrai fare tutti gli
aggiornamenti/sostituzioni che vuoi.
Ciao, Carlo


title: Autoaggiornamento via Internet

author: VT @ home

text:
Il Sat, 9 Apr 2005 14:49:52 +0000 (UTC), "Alessandro Baraldi"
<
ik2...@libero.it
> ha scritto:
>"Alessandro Baraldi" <
ik2...@libero.it
> wrote in message
>
news:473801c4caf87a8a2d...@mygate.mailgate.org
>
>[CUT]
>
>Sono stato forse un pò sintetico...!
>
>'-------------------------------------------------------------
>'  Questo Codice va eseguito su Evento CLICK
>'-------------------------------------------------------------
>
> Dim RetVal
> Docmd.Quit
> RetVal = Shell("C:\Update.vbs", 1)
>'-------------------------------------------------------------
>(...)
Docmd.Quit chiude Access, quindi l'istruzione successiva non verrà mai
eseguita !
La sequenza corretta dovrebbe essere la seguente:
RetVal = Shell("C:\Update.vbs", 1)
Docmd.Quit
Però è necessario che lo script vbs aspetti la chiusura di Access
prima di effettuare la sostituzione del FE, per esempio testando
l'esistenza del file con lo stesso nome del FE ed estensione ldb.


title: Autoaggiornamento via Internet

text:
"Roberto Spinella Esteban" <
rs...@polispin.it
> wrote in message
news:425874c0$0$8069$
5fc...@news.tiscali.it
[CUT]
Non allarmiamoci per cosě poco, facciamo fare tutto a VBS, anche
la chiusura di Access via WMI.
'-------------------------------------------------------------
'  Questo Codice va eseguito su Evento CLICK
'-------------------------------------------------------------
Dim RetVal
RetVal = Shell("C:\Update.vbs", 1)
'-------------------------------------------------------------
'-------------------------------------------------------------
'// SCRIPT VBS "Update.vbs"
'// Lancia il SETUP, attende la fine quindi lancia ACCESS
'// e il Tuo APPLICATIVO
'-------------------------------------------------------------
Dim WshShell
Dim Return
Dim obj
    ' Questa parte chiude ACCESS
    Dim obj As Object
    For Each obj In GetObject("winmgmts:").ExecQuery("SELECT * FROM
Win32_Process WHERE Name='MSACCESS.exe'")
        obj.Terminate
    Next
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Return = WshShell.Run(FULLPATH_SETUP, 1, true)
    Return = WshShell.Run(FULL_ACCESSPATH & " " & PATHAPPLICATIVO,
1,False)
    Set WshShell=nothing
    set obj=nothing
'-------------------------------------------------------------



title: Autoaggiornamento via Internet

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:5260c9153b19dd8554...@mygate.mailgate.org...

Caro Alex
sembra che vada tutto MANUALMENTE ma ...
ho messo un bottone nel menů principale della mia pplicazione per testare la
routine e mi viene generato quet'errore
 errore di runtime 5
 Chiamata di routine o argomento non validi
in corrispondenza del codice
RetVal = Shell("C:\GinsUpdate.vbs", 1)
lanciando lo stesso file invece sia da DOS Prompt che da Esegui il tutto
funziona correttamente
eppure lo stesso codice l'ho usato per lanciare altri programmi esterni
senza problemi
ed il nome del file č corretto xchč cambiandolo mi dice
 errore di runtime 53
 IMPOSSIBILE TROVARE IL FILE
Boh misteri della programmazione.
Adesso perň sono molto stanco e vado a letto, domattina ci lavoro sopra
ancora.
Ciao e buonanotte
Roberto


title: Autoaggiornamento via Internet

text:
"Roberto Spinella Esteban" <
rs...@polispin.it
> wrote in message
news:4259b058$0$31957$
5fc...@news.tiscali.it
> > RetVal = Shell("C:\Update.vbs", 1)
Prova eventualmente con ShellExecute:
http://www.mvps.org/access/api/api0018.htm



title: Autoaggiornamento via Internet

author: namor

text:
Carlo Costarella ha scritto:



Non ho mai provato, perchè spedisco sempre via mail i nuovi mdb completi,
ma teoricamente sarebbe possibile che una maschera di avvio sul db, una
volta verificata la disponibilità dell'aggiornamento e scaricato il file,
sostituisse solo alcuni oggetti, importando dal file scaricato le nuove
maschere/report/query/ecc... e compattandosi.
Così si potrebbe fare senza usare un db aggiuntivo, però trovo più
semplice usare uno dei due metodi che hai segnalato.
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: Autoaggiornamento via Internet

text:
Grazie Ale ora sembra che vada tutto
ho dovuto inserire il comando START per eseguire lo script
RetVal = Shell("START C:\Update.vbs", 1)
e creo lo script direttamente dal codice access tramite delle Print #
Ho tolto anche la tua ultima istruzione VBS che lanciava il mio applicativo
perchè viene lanciato automaticamente alla fine del setup, mentre per quanto
riguarda il loop per attendere la fine del programma Access altrimenti il
setup non può rimpiazzare il file viene risolto semplicemente mettendo la
conferma di installazione nel setup. Questa blocca talmente a lungo la copia
dell'applicativo Access che il programma fa in tempo a chiudersi salvando
anche tutti i dati.
Ciao e grazie ancora
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:5260c9153b19dd8554...@mygate.mailgate.org...
> "Roberto Spinella Esteban" <
rs...@polispin.it
> wrote in message
> news:425874c0$0$8069$
5fc...@news.tiscali.it
>
> [CUT]
>
> Non allarmiamoci per così poco, facciamo fare tutto a VBS, anche



title: Condizioni in query

author: RobertOne

text:
Buon giorno a tutto il n.g.
Sottopongo nuovamente alla vostra attenzione questo problema.
Necessito a mezzo query di effettuare la ricerca di un importo, però vorrei
che i risultati restituiti fossero maggiori di 50 ed inferiori di 50.
Se per esempio ricerco 250, vorrei che mi venissero restituiti tutti i
risultati da 200 a 300.
Sull'help di Access ho trovato le seguenti informazioni che tra l'altro non
so se sono idonee;
a.. almeno
Corrisponde o è superiore al valore specificato.
Esempio: "Numero di pagine almeno 10"
a.. al massimo
Corrisponde o è inferiore al valore specificato.
Esempio: "Numero di pagine al massimo 10"
Eventualmente fossero idonee come vanno applicate?
Grazie.
Roberto


title: Condizioni in query

author: Potone

text:
"RobertOne" <
robe...@robort.it
> ha scritto nel messaggio
news:4361e4de$0$20491$4faf...@reader4.news.tin.it...

Ciao,
dipende da dove peschi il valore di riferimento, comunque puoi usare un sql
di questo tipo
SELECT V1 FROM Tabella
WHERE V1 Between [Parametro]-50 And [Parametro]+50;
dove V1 è un campo numerico che contiene i valori, eseguendo questo sql dal
qbe ti verrà richiesto il parametro per eseguire il filtro.
Se invece ti appoggi ad una maschera puoi sostituire [parametro] con il
riferimento al controllo sulla maschera che contiene il valore di per il
confronto.
Penso funzioni, ciao,
Mat.


title: Condizioni in query

text:
"Potone"  ha scritto nel messaggio ...
> Ciao,
> dipende da dove peschi il valore di riferimento, comunque puoi usare un
> sql di questo tipo
> SELECT V1 FROM Tabella
> WHERE V1 Between [Parametro]-50 And [Parametro]+50;
>
> dove V1 è un campo numerico che contiene i valori, eseguendo questo sql
> dal qbe ti verrà richiesto il parametro per eseguire il filtro.
> Se invece ti appoggi ad una maschera puoi sostituire [parametro] con il
> riferimento al controllo sulla maschera che contiene il valore di per il
> confronto.
> Penso funzioni, ciao,
> Mat.
Grazie per la dritta, funziona a dovere. Anzichè usare i segni + e - io
provavo usando > e < per questo motivo non mi funzionava.
Grazie ancora.
Roberto


title: The Perfect Christmas Gift 9487

text:
Two days ago I ordered 10 pieces of paper money from 10 different countries from a company called Perth Numismatics. Lo and behold they arrived today and they are very nice and colourful. They even have a bill from Antarctica. I didn't even know they existed. These are perfect for stocking stuffers or people who are hard to buy for. The website address is
www.perthmoney.com
Good luck and Merry Christmas
Cynthia Reeves
ljvfcdwcjqpjlzzcwcrlxugpxncriqyfjvmpryhy


title: Memorizzazione date in formato diverso dal Date/Time

author: Michele (Giò)

text:
Salve a tutti.
Come precedentemente discusso con Alex Baraldi riguardo al fatto di
contenere piů informazioni in un solo Campo per ragioni di spazio o di
suddividerle in piů campi per velocizzare le ricerche (ma aumentando le
dimensioni del database), volevo la Vostra opinione su questo:
Attualmente, nella tabella "Preventivi salvati" del mio db, vi č il campo
Dataprev in formato Data/ora che contiene la data del preventivo. Tale campo
occupa "preziosissimi" 8 bytes per record. Inoltre č risaputo che la
gestione delle date richiede molta attenzione, soprattutto nel loro
inserimento nelle query di selezione come criterio (difatti se non vengono
girati il giorno ed il mese, la maggior parte delle volte i risultati sono a
dir poco sconcertanti). Vi č inoltre spreco di spazio in quanto l'ora non mi
serve.
Siccome il mio db lavora per anno contabile, l'anno selezionato sarŕ il
filtro principale, ma diversamente a come tutti possiate pensare, il filtro
non lo eseguo sulla data bensě sulla chiave primaria, che essendo intero
lungo contiene es:
2006100253
2006 anno
1 tipo preventivo
00253 num. preventivo
e questo grazie ad una stupidissima funzione che estrae l'anno dall'intero
lungo. In ogni caso, avendo filtrato la data (es. "WHERE
year(Dataprev)=2006") sarebbe servita lo stesso una funzione e comunque un
conseguente calo di prestazioni nella query.
Stavo pensando a scomporre la chiave primaria (4 bytes, intero lungo) cosě:
Anno (2006) Campo Intero, 2 bytes di memoria
Tipo (1) Campo Byte, 1 byte di memoria
Numero(253)Campo Intero, 2 bytes di memoria
Con il risultato di 5 bytes. L'univocitŕ del record verrebbe mantenuta
istituendo una chiave primaria su campo multiplo (in questo caso, i 3
campi).
Il campo data/ora verrebbe invece ridotto ad un intero lungo, con il
passaggio da 8 a 4 bytes, cosě:
Data/Ora    31/12/2005
Intero Lungo    20061231
Con il risultato di essere contenuto in metŕ spazio, di facilitare la
gestione dei filtri ridotta al semplice paragone tra numeri e non ad una
cosa troppo vulnerabile da scarsa praticitŕ quale il Date/Time.
Chiaro che poi all'utente la data dovrŕ risultare nel formato corretto.
La conclusione finale sarebbe:
-Risparmio di (4+8)-(2+1+2+4)=3 bytes
-Abolizione di funzioni di supporto per filtrare la tabella in base agli
anni, ai preventivi e ai tipi.
-Semplicizzazione della gestione dei dati
-Velocitŕ nell'esecuzione delle query filtrate, potendo contare su piů
indici costruiti su altrettanti campi.
Cosa ne pensate a riguardo?
Michele
joyl...@alice.it


author: PBsoft

text:
> Attualmente, nella tabella "Preventivi salvati" del mio db, vi è il
> campo Dataprev in formato Data/ora che contiene la data del
> preventivo. Tale campo occupa "preziosissimi" 8 bytes per record.
Questo dovrebbe essere un problema?
> Inoltre è risaputo che la gestione delle date richiede molta
> attenzione, soprattutto nel loro inserimento nelle query di selezione
> come criterio (difatti se non vengono girati il giorno ed il mese, la
> maggior parte delle volte i risultati sono a dir poco sconcertanti).
Non sono molto d'accordo con questa necessità di "molta attenzione".
Le date sono un tipo di dato come tanti altri e devono essere gestite per
bene come devono essere gestiti per bene anche gli altri dati.
> Vi è inoltre spreco di spazio in quanto l'ora non mi serve.
E questo dovrebbe essere un altro problema?
> Siccome il mio db lavora per anno contabile, l'anno selezionato sarà
> il filtro principale, ma diversamente a come tutti possiate pensare,
> il filtro non lo eseguo sulla data bensì sulla chiave primaria, che
> essendo intero lungo contiene es:
>
> 2006100253
>
> 2006 anno
> 1 tipo preventivo
> 00253 num. preventivo
Tu vuoi memorizzare un tuo codice interno (fattibile, ma sconsigliato, visto
che è un dato derivato e la sua memorizzazione non aggiunge alcuna informazione)
in un formato difficile da gestire se dopo vuoi farci delle estrapolazioni.
> e questo grazie ad una stupidissima funzione che estrae l'anno
> dall'intero lungo. In ogni caso, avendo filtrato la data (es. "WHERE
> year(Dataprev)=2006") sarebbe servita lo stesso una funzione e
> comunque un conseguente calo di prestazioni nella query.
Calo di prestazioni a causa dell'utilizzo della funzione Year?!?!?!?
Se credi che il calo prestazionale, causato dal codice necessario per risolvere
questi due questiti, sia inferiore al calo prestazione, implicato dal codice
necessario per estrapolare da questo intero lungo le informazioni che ti
servono operativamente, accomodati pure.
> Stavo pensando a scomporre la chiave primaria (4 bytes, intero lungo)
> così:
>
> Anno (2006) Campo Intero, 2 bytes di memoria
> Tipo (1) Campo Byte, 1 byte di memoria
> Numero(253)Campo Intero, 2 bytes di memoria
> Con il risultato di 5 bytes. L'univocità del record verrebbe mantenuta
> istituendo una chiave primaria su campo multiplo (in questo caso, i 3
> campi).
L'utilizzo di una chiave primaria multipla è fattibile, ma complica il codice
SQL di eventuali istruzioni che coinvolgono la tabella in cui questa chiave
si trova.
> Il campo data/ora verrebbe invece ridotto ad un intero lungo, con il
> passaggio da 8 a 4 bytes, così:
>
> Data/Ora    31/12/2005
> Intero Lungo    20061231
> Con il risultato di essere contenuto in metà spazio, di facilitare la
> gestione dei filtri ridotta al semplice paragone tra numeri e non ad
> una cosa troppo vulnerabile da scarsa praticità quale il Date/Time.
E' una cosa da pazzi.
Pensa a risolvere problemi come l'aggiunta di 10 giorni ad una data (considerando
i mesi bisestili e gli sconfinamenti di anni e mesi) oppure a calcolare la
differenza in giorni tra due date (sempre con le stesse considerazioni).
Tu risparmieresti 4 byte per ogni data ma ti dovresti fare un c..o assurdo
per crearti le tue funzioni che fanno queste operazioni.
Pensi che DateAdd e DateDiff incidano pesantemente sulle prestazioni?
> Chiaro che poi all'utente la data dovrà risultare nel formato
> corretto.
Quindi devi comunque ritornare ad un tipo data, altrimenti non ci fai niente
nemmeno dall'interfaccia utente.
> La conclusione finale sarebbe:
>
> -Risparmio di (4+8)-(2+1+2+4)=3 bytes
> -Abolizione di funzioni di supporto per filtrare la tabella in base
> agli anni, ai preventivi e ai tipi.
> -Semplicizzazione della gestione dei dati
> -Velocità nell'esecuzione delle query filtrate, potendo contare su più
> indici costruiti su altrettanti campi.
Te lo dico io quale sarebbe la conclusione finale:
- 3 MB di database risparmiati ogni 3 milioni di record: simpatico, ma credo
che con 3 milioni di record i problemi importanti da affrontare sarebbero
altri, mentre con un numero nettamente inferiore di record la differenza
di spazio occupato non si sente nemmeno. Non stiamo mica programmando in
Assembler, dove anche il singolo bit è sacro. Un hd da 200 GB ormai ha prezzi
irrisori.
- la gestione dei dati ti si complicherebbe da matti, visto che dovresti
riscrivere (e testare) delle funzioni che sono presenti e ben funzionanti
da anni nella libreria di Access.
- la velocità delle query non dipende dal numero degli indici utilizzati,
bensì dalla qualità degli indici stessi.
Ravvediti: sei sempre in tempo a ripensarci.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


text:
Michele (Giò) ha scritto:
> Salve a tutti.
>
> Come precedentemente discusso con Alex Baraldi riguardo al fatto di
> contenere più informazioni in un solo Campo per ragioni di spazio o di
> suddividerle in più campi per velocizzare le ricerche (ma aumentando le
> dimensioni del database), volevo la Vostra opinione su questo:
>
> Attualmente, nella tabella "Preventivi salvati" del mio db, vi è il campo
> Dataprev in formato Data/ora che contiene la data del preventivo. Tale campo
> occupa "preziosissimi" 8 bytes per record. Inoltre è risaputo che la
> gestione delle date richiede molta attenzione, soprattutto nel loro
> inserimento nelle query di selezione come criterio (difatti se non vengono
> girati il giorno ed il mese, la maggior parte delle volte i risultati sono a
> dir poco sconcertanti). Vi è inoltre spreco di spazio in quanto l'ora non mi
> serve.
>
> Siccome il mio db lavora per anno contabile, l'anno selezionato sarà il
> filtro principale, ma diversamente a come tutti possiate pensare, il filtro
> non lo eseguo sulla data bensì sulla chiave primaria, che essendo intero
> lungo contiene es:
>
> 2006100253
>
> 2006 anno
> 1 tipo preventivo
> 00253 num. preventivo
>
> e questo grazie ad una stupidissima funzione che estrae l'anno dall'intero
> lungo. In ogni caso, avendo filtrato la data (es. "WHERE
> year(Dataprev)=2006") sarebbe servita lo stesso una funzione e comunque un
> conseguente calo di prestazioni nella query.
>
> Stavo pensando a scomporre la chiave primaria (4 bytes, intero lungo) così:
>
> Anno (2006) Campo Intero, 2 bytes di memoria
> Tipo (1) Campo Byte, 1 byte di memoria
> Numero(253)Campo Intero, 2 bytes di memoria
>
> Con il risultato di 5 bytes. L'univocità del record verrebbe mantenuta
> istituendo una chiave primaria su campo multiplo (in questo caso, i 3
> campi).
>
> Il campo data/ora verrebbe invece ridotto ad un intero lungo, con il
> passaggio da 8 a 4 bytes, così:
>
> Data/Ora    31/12/2005
> Intero Lungo    20061231
>
> Con il risultato di essere contenuto in metà spazio, di facilitare la
> gestione dei filtri ridotta al semplice paragone tra numeri e non ad una
> cosa troppo vulnerabile da scarsa praticità quale il Date/Time.
>
> Chiaro che poi all'utente la data dovrà risultare nel formato corretto.
>
> La conclusione finale sarebbe:
>
> -Risparmio di (4+8)-(2+1+2+4)=3 bytes
> -Abolizione di funzioni di supporto per filtrare la tabella in base agli
> anni, ai preventivi e ai tipi.
> -Semplicizzazione della gestione dei dati
> -Velocità nell'esecuzione delle query filtrate, potendo contare su più
> indici costruiti su altrettanti campi.
>
> Cosa ne pensate a riguardo?
>
> Michele
>
>
joyl...@alice.it
ALT facciamo chiarezza.
Una data occupa 8 Byte se contiene hh:mm:ss, al contrario se ha solo
yyyy:mm:dd
potrà essere convertita con un Long(4Byte).
Tralasciando i 3Byte risparmiati sui quali ho diversi dubbi, ma non
penso siano l'ago della bilancia, cercavo di capire l'oggettiva
necessità della valutazione, anche perchè volendo estremizzare si
può risparmiare ancora 1Byte usando 3 campi Byte e visto
che siamo negli anni 2000 possiamo semplificare usando solo 2 cifre:
aa+mm+gg=3Byte
;-)
Le query una volta strutturate non servono modifiche sostanziali, nel
caso il campo non
contenga hh:mm:ss basta la conversione in Long del campo Data e non
serve nessuna inversione.... e guarda un pò sono sempre 4Byte....!!!!
CLng(TuoCampoData)
strSQL = "SELECT * FROM T1 WHERE T1.Campo > " &
cstr(CLng(TuoCampoData))
Avendo una DATA puoi un domani, sempre meglio essere lungimiranti,
creare Query con raggruppamenti per Mese in modo veloce senza impazzire
a ricordare l'alchimia meccanica.......
Non saprei cosa dire, nel senso che le esigenze vanno viste un pò a
largo spettro, e
personalmente l'uso di un campo DATA come tale lo trovo sempre utile.
Mi sono fermato all'analisi dell'errore di partenza dal quale hai
basato il tuo ragionamento...!
@Alex


text:
"Michele (Giò)" <
joyl...@alice.it
> ha scritto nel messaggio
news:4516af32$0$15877$4faf...@reader2.news.tin.it...
> Salve a tutti.
> non lo eseguo sulla data bensì sulla chiave primaria, che essendo intero
> lungo contiene es:
>
joyl...@alice.it
Si ragazzi, forse avete ragione voi.... gli HDD da 200 GB ormai te li tirano
dietro (devi stare attento quando sei per strada); a 3 milioni di record, se
la mia attività un giorno vi dovesse arrivare, non sarò più qui a pormi il
problema...... O sarò ricco sfondato, o sarò morto (tiè).
Adesso che ci penso, questa mia performance mi ricorda i calcoli che fecero
sulla velocità della slitta di Babbo Natale: se non ricordo male, la
velocità era talmente elevata da far prendere fuoco la slitta. Ma ragazzi, è
Babbo Natale!
La mania di dover migliorare qualcosa per forza, anche se non ve n'è
bisogno, è una cosa che mi perseguita.
Per il bene del NG, mi guarderò da scrivere ancora roba del genere.
Ragazzi, buona notte e grazie delle Vostre opinioni.....
Michele


title: Conversione DB A97>A2000 problemi...

author: SuperPippo®

text:
ho un DB che lavora egregiamente in A97 sotto Win 9** Win ME...
ho provato a convertirlo in Access 2000... tutto ok...
ma quando lo apro mi dà un errore di Oleaut32.dll...
cosa si può fare ??
Ciao...


title: problema con contatore in importazione ordini

text:
devo importare degli ordini da un db esterno accade però che la situazione è
la seguente:
nel mio db possiedo la tabella
testateordini
vociordini
contatoreordini
quando importo con una query di accodamento gli ordini, tali ordini non
devono importare il campo contatore ma assegnarlo da codice vb in base al
valore di contatoreordini
esempio, importo 2 ordini e ne possiedo già 3 gli ordini importati dovranno
avere numero 4 e 5 come assegnare tale numero con una query di accodamento?
Grazie.


author: Antonio Biso

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:bmjko3$5ku$1...@lacerta.tiscalinet.it...

Accoda tutti i campi tranne il campo contatore, che darà automaticamente il
valore
Antonio


text:
> Accoda tutti i campi tranne il campo contatore, che darà automaticamente
il
> valore
>
> Antonio
>
giusto, ma purtroppo il campo contatore non è di tipo contatore ma di tipo
numerico e lo incremento io ad ogni nuovo ordine il motivo è che deve essere
possibile modificarlo manualmente, cosa che non potrei fare se fosse di tipo
contatore


text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:bmjr9e$gh1$1...@lacerta.tiscalinet.it...

E allora via codice userai la solita Dmax + 1
Antonio


title: barra di stato che invia messaggi di scadenze

text:
vorrei creare una textbox che nel menu principale visualizzi ogni tot
secondi un record di una certa tabella schedenze, ma non so come
realizzarla?
secondo voi appesantisco il programma se ad ogni apertura del menu
principale eseguo una select * from scadenze where data è scaduta? e poi
eseguo un ciclo nel evento timer che aumenta di 1 il record corrente?
grazie a tutti.


author: ALESSANDRO Baraldi

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:ci6h9l$911$1...@lacerta.tiscalinet.it...

Scondo me è solo una cosa estetica quello che vuoi fare
e non serve a nulla.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


text:
>
> Scondo me è solo una cosa estetica quello che vuoi fare
> e non serve a nulla.
>
perchè solo estetica? non è comodo mentre visiti un sito che le news
scorrano?
io voglio fare la stessa cosa in access nel menu principale.


text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:ci6h9l$911$1...@lacerta.tiscalinet.it...

Sicuramente l'accesso ai dati ogni volta che apri un menù (e per giunta
leggi sempre le stesse cose nello stesso giorno) appesantisce
l'applicazione.
Leggi le scadenze all'apertura dell'applicazione, se ce ne sono (per
esempio) mostra una gif animata o altro simbolo grafico che rimanda alle
scadenze...
Ciao.
--
Sergio MAZZA


text:
> Sicuramente l'accesso ai dati ogni volta che apri un menů (e per giunta
> leggi sempre le stesse cose nello stesso giorno) appesantisce
> l'applicazione.
> Leggi le scadenze all'apertura dell'applicazione, se ce ne sono (per
> esempio) mostra una gif animata o altro simbolo grafico che rimanda alle
> scadenze...
>
> Ciao.
>
> --
> Sergio MAZZA
>
secondo te se assegno i record selezionati all'avvio del programma ad un
array di elementi stringa lo appesantisco meno non credi?
credi che cosi possa andare?


text:
Simba883 wrote:
>
> secondo te se assegno i record selezionati all'avvio del programma ad
> un array di elementi stringa lo appesantisco meno non credi?
> credi che cosi possa andare?
Dipende dalla mole di dati da tenere in memoria...
Ciao.
--
Sergio MAZZA


title: trovare doppioni

author: @libero.it stefano

text:
ciao
Ho una tabella con x campi (nome,cognome,email)
La tabella è molto grande e vorrei trovare qualora ve ne siano i doppioni
nel campo "email"
Trovato un doppione dovrei verificare se anche nome e cognome sono uguali e
nel caso eliminarlo
Altrimenti se nome o cognomi sono diversi dovrei poter scegliere..
Per ordine come imposto la query per controllare i doppioni?
Nel caso di doppione non identico dovrei poter modificare ilcampo non
identico
grazie


title: trovare doppioni

author: Roberto dalla campagna

text:
"stefano" <stef.idea @
libero.it
> ha scritto nel messaggio
news:bMmKe.62009$fm.40...@news4.tin.it...

Creati una query con l'Autocomposizione ricerca duplicati, quindi leggi i
dati che ti vengono visualizzati ed effetua le variazioni direttamente sui
dati della query.
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: access per gestire un agriturismo

author: siddhana

text:
Ciao!!!
sto creando un piccolo db per gestire le prenotazioni nel mio agriturismo,
conosco oracle ma con access sono discretamente ignorante, sapete dove posso
scaricarmi un db di esempio di qualcosa di simile?
grazie!


title: access per gestire un agriturismo

author: cidi

text:
"siddhana" <
sidd...@yahoo.it
> ha scritto nel messaggio
news:5cabc157.05030...@posting.google.com...

Ciao siddhana
in ogni versione di access c'č un db di esempio: Northwind.
inoltre in questi siti ci trovi molto materiale attinente:
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
http://www.donkarl.com/it
---
Daniele


title: access per gestire un agriturismo

author: ciroteo

text:
"cidi" <
dadonz...@tin.it
> ha scritto nel messaggio
news:VHqVd.610850$b5.27...@news3.tin.it...

usi oracle per il tuo agriturismo?
se č cosi grande abbiamo trovato dove fare il prossimo raduno!!!


title: access per gestire un agriturismo

text:
> Ciao siddhana
> in ogni versione di access c'č un db di esempio: Northwind.
> inoltre in questi siti ci trovi molto materiale attinente:
>
>
http://www.sitocomune.com/
>
>
http://www.mantuanet.it/alessandro.baraldi/
>
>
http://www.donkarl.com/it
>
> ---
> Daniele
grazie, ho visto il link, utilissimi specie i primi due !!!
quello che non riesco a fare č:
da una riga di una sottoschedaricerca attivo l'evento doppioclick che
mi apre una nuova form prendendo i dati sia dalla sottoscheda e anche
dalla
form principale, solo che quando provo con me![nome del campo della
form principale] ... non mi riconosce il nome del campo mi dice
oggetto sconosciuto !!!


title: access per gestire un agriturismo

text:
"siddhana" <
sidd...@yahoo.it
> ha scritto nel messaggio
news:5cabc157.05030...@posting.google.com...

Ciao siddhana
per fare riferimento, da una sottomaschera, ad un controllo della maschera
principale
devi inserire il nome:
[Forms]![NomeMascheraPrincipale]![NomeControllo]
---
Daniele


title: Re: Problema nel Menu

author: Sam

text:
On Wed, 24 Aug 2011 11:00:39 -0700 (PDT), ugo conte
<
ugo.c...@gmail.com
> wrote:
>ciao a tutti
>nel DropdownMenu di una combo box
>con origine riga Query di Unione,
>ho una serie di riferimenti (p.e. ns/ordine n. del)
>che non vorrei visualizzare, mentre nella sottomaschera
>si.
>
>
>Il problema è che se utilizzo
>p.e.
>WHERE ((Not (miaTabella.MioCampo)="TipoMioCampo"))
>poi nella sottomaschera il campo anzichè
>avere "ns/ordine n. del" è purtoppo vuoto.
>
>Grazie
usa due differenti query come origina riga
una per la combo
e una per la sottomaschera


title: Re: Problema nel Menu

author: pablitomf

text:
Se hai problemi nel Menu', cambia ristorante! ;)
> ciao a tutti
> nel DropdownMenu di una combo box
> con origine riga Query di Unione,
> ho una serie di riferimenti (p.e. ns/ordine n. del)
> che non vorrei visualizzare, mentre nella sottomaschera
> si.
...e bhe'?...
Proprieta' della Combo
Numero colonne : Es. 3
Larghezza colonne : 1 cm; 0 cm; 5 cm
in questo modo pur portandoti dietro tutti i campi, visualizzerai solo
la prima e la terza colonna (perche' la seconda l'ho messa a 0
centimetri)


title: Re: Problema nel Menu

text:
On 25 Ago, 12:10, ugo conte <
ugo.cont...@gmail.com
> wrote:

> Ciao Sam
> Devo sovrapporre la casella di testo sulla casella combinata?
>
> Ciao Pablitomf
> Non posso nascondere la seconda colonna
> perchè ci sono elencati altri prodotti
> che devo visualizzare.
uhauhauhauhauhauhauhauhauhauhauhauhauhauhauhauha
mannaggia a me che mi prodigo affinche' tu capisca! ma a quanto pare
tu non vuoi capire, e pure cacchio e' italiano... ! Voglio ammettere
che tu non ci arrivi a comprendere qualcosa di tecnico, ma l'italiano
lo saprai parlare no? e quello italiano e'! :D
ma chi sse ne frega se tu non puoi nascondere la seconda?... a me non
me ne puo' fregare di meno... era semplicemente un modo come un altro
per dirti come fare a nascondere nella combo cio' che non vuoi
"vedere" (SEI TU CHE LO HAI CHIESTO cribbio!), ma che di fatto vuoi
"avere" comunque a corredo nella tua query di base (A RI-SEI TU CHE LO
HAI CHIESTO cribbio!).... non puoi nascondere la seconda? e non
nasconderla... nascondi solo quelle che non vuoi vedere usando quel
metodo!... e' tanto difficile da capire?
Dai UGO ti prego, smettila di volere soluzioni senza minimamente
applicarci un micron (un micron basta te lo assicuro) di meningi... il
buon Dio (se mai esistesse) ti ha dotato di quell'affare racchiuso nel
cranio... cerca di farne buon uso almeno nel comprendere "cosa" uno ti
stia dicendo.


title: Re: Problema nel Menu

text:

Ovviamente il tutto non per offenderti, ma per capire che lingua
parli... pure la risposta data a SAM, ma che c'entra con quello che ti
ha detto lui?... nulla e piu' di nulla... lui ti indica (correttamente
o meno non e' importante) di usare eventualmente 2 query e tu... "Devo
sovrapporre la casella di testo sulla casella combinata?"... ma io
mica gli ho sentito consigliarti questo!... dove l'hai sentito parlare
di sovrapposizione e soprattutto di "casella di testo"?....  :D
Facciamo cosi' iniziamo a darci delle costanti di comunicazione :
la prima e'
LANGUAGE : ITALIAN STANDARD
;)


title: Re: Problema nel Menu

text:
On Thu, 25 Aug 2011 03:10:37 -0700 (PDT), ugo conte
<
ugo.c...@gmail.com
> wrote:
>On 25 Ago, 10:38, pablitomf <
pablit...@virgilio.it
> wrote:

>Ciao Sam
>Devo sovrapporre la casella di testo sulla casella combinata?
>
che c'entra mo' sovrapporre la casella di testo?
posta la query che usi per popolare la combo


title: Re: Problema nel Menu

text:
On 31 Ago, 11:16, ugo conte <
ugo.cont...@gmail.com
> wrote:
> On 25 Ago, 13:49, Sam <
s...@xymail.it
> wrote:
>
>
>
>
>
>
>
>
>
> > On Thu, 25 Aug 2011 03:10:37 -0700 (PDT), ugo conte
>

> ciao Sam e Pablitomf
>
> Possiamo approfondire questo argomento?
> Grazie
approfondiamo prima un'altra cosa :
tu, sei italiano? giuro non scherzo... sei italiano?


title: Re: Problema nel Menu

author: Pablitomf

text:
> > approfondiamo prima un'altra cosa :
> > tu, sei italiano? giuro non scherzo... sei italiano?
>
> perchï¿œ?
perche' uno ti fa domande in italiano e tu rispondi a tutt'altro... io posso
capire Karl se a una domanda risponde diversamente da cio' che uno si aspetta
(cosa che tra l'altro difficilmente fa), ma tu praticamente al :
"Come ti chiami?" rispondi sistematicamente "Via Roma 112", e se uno te lo
chiede per la seconda volta perche' forse vuole che tu specifichi meglio, sei
capace di cambiare argomento rispondendo "giallo, e soprattutto ma non fumo".
Quindi sei italiano si o no?... se si, rileggi i post che apri (questo ad es.
nello specifico), ripercorri le richieste che fai e le risposte che ottieni.
Noterai (chissa' se davvero lo noterai a sto punto) che secondo una logica tutta
tua riproponi sotto forma di nuove domande elementi e concetti mai trattati prima.
--
--------------------------------
Pablitomf
Napoli sempre nel "Q"uore!


title: Re: Problema nel Menu

text:
> > > approfondiamo prima un'altra cosa :
> > > tu, sei italiano? giuro non scherzo... sei italiano?
> >
> > perchè?
>
> se lo fossi?
sarebbero giustificate le tue domande assurde...
> sei mica razzista?
non sono io che sono razzista, sono loro che sono napoletani!



title: Re: Problema nel Menu

author: Popi - TheBadHabits

text:
On 31 Ago, 14:27, "Pablitomf" <
pablit...@hotmail.it
> wrote:
> > > approfondiamo prima un'altra cosa :
> > > tu, sei italiano? giuro non scherzo... sei italiano?
>
> > perch ?
>
> perche' uno ti fa domande in italiano e tu rispondi a tutt'altro... io posso
> capire Karl se a una domanda risponde diversamente da cio' che uno si aspetta
> (cosa che tra l'altro difficilmente fa), ma tu praticamente al :
> "Come ti chiami?" rispondi sistematicamente "Via Roma 112", e se uno te lo
> chiede per la seconda volta perche' forse vuole che tu specifichi meglio, sei
> capace di cambiare argomento rispondendo "giallo, e soprattutto ma non fumo".
>
> Quindi sei italiano si o no?... se si, rileggi i post che apri (questo ad es.
> nello specifico), ripercorri le richieste che fai e le risposte che ottieni.
> Noterai (chissa' se davvero lo noterai a sto punto) che secondo una logica tutta
> tua riproponi sotto forma di nuove domande elementi e concetti mai trattati prima.
Pablì, lo sai che quando ho letto "sei italiano?" ho avuto la visione
di Karl vestito da SturmTruppen che si sbraccia gridando "ACHTUNG!
MINEN! ACHTUNG! MINEN!" :))))
Popi


title: Re: Problema nel Menu

text:
> Pablì, lo sai che quando ho letto "sei italiano?" ho avuto la visione
> di Karl vestito da SturmTruppen che si sbraccia gridando "ACHTUNG!
> MINEN! ACHTUNG! MINEN!" :))))
Mi sa che lo pensa anche Karl che ugo e' austriaco...
pero' e' troppo strano st'utente qua, mi sa mooooolto di presa per il culo!
:D
sono convinto che tra un po' a un mio "CHEEEE????" rispondera'
"CHIUPAAAAAAAAAA!!!!" :D



title: Re: Problema nel Menu

text:
"ugo conte" <
ugo.c...@gmail.com
> ha scritto nel messaggio
news:28cff23b-3b61-48fa...@c19g2000yqe.googlegroups.com...
> On 31 Ago, 14:27, "Pablitomf" <
pablit...@hotmail.it
> wrote:
>> > > approfondiamo prima un'altra cosa :
>> > > tu, sei italiano? giuro non scherzo... sei italiano?
>>
>> Quindi sei italiano si o no?...
>> Pablitomf
>
> ok
>
MA ROTFL !!!!
Antonio


title: Re: Problema nel Menu

text:
On 31 Ago, 23:31, "Antonio Biso" <
ab...@libero.it
> wrote:
> "ugo conte" <
ugo.cont...@gmail.com
> ha scritto nel messaggionews:28cff23b-3b61-48fa...@c19g2000yqe.googlegroups.com...
>
> > On 31 Ago, 14:27, "Pablitomf" <
pablit...@hotmail.it
> wrote:
> >> > > approfondiamo prima un'altra cosa :
> >> > > tu, sei italiano? giuro non scherzo... sei italiano?
>
> >> Quindi sei italiano si o no?...
> >> Pablitomf
>
> > ok
>
> MA ROTFL !!!!
Mi fa tanto venire in mente la pubblicità dell'acqua BrioBlu, con
PablitoCortellesi che inizia con "BrioBlu mi piaci" e UgoCortellesi
che termina con "IMMENSAMEEENTE!!!".
E con PablitoCortellesi che scazza "Tu! Tu!
TU!!! ..." :)))))))))))))))
Popi


title: Re: Problema nel Menu

text:
> E con PablitoCortellesi che scazza "Tu! Tu!
> TU!!! ..." :)))))))))))))))
Ma volendo anche ugoCortellesi in "non mi chiedermi" di cui giro il dantesco
testo :
(a.k.a. Pera Williams feat. Frankie Hi NRG Mc)
Ciao, mi piacerebbe avere un telefonino che manda i messaggini con
tantissimi caratteri
così potrei scriverti
"Ti amo" con un milione di "o"
e verrebbe pressappoco così:
TI AMO-O-O-O-O-O-O-O-O-O-O
Non mi chiedermi di avere un equilibrio
anche in quei giorni
Non mi chiedermi di farti
lo stufato quando torni
Non mi chiedermi il teorema di Pitagora
non ho la licenza media
in prima mi bocciarono
Non mi chiedermi di avere gambe lisce come seta
la ricrescita è una piaga e non mi basta
una "lameta"
ci vorrebbe un diserbante dedicato
io ce l'ho
spero solo che rispetti il mio pH
Rit.
(Girl band)
Quanta spontaneità nei miei modi schietti
(Wooden Chicks)
le mie movenze e i completini perfetti
(Girl band)
o quando uno è naturale è naturale
(Wooden Chicks)
tra l'altro questo motivetto niente male
Non mi chiedermi l'orgasmo che non so come si scrive
Non mi chiedermi se ho sexy più la fronte o le gengive
Non mi chiedermi di coniugarti i verbi
non li so
"se li avrei saputi mo' te l'imparavo"
Non mi chiedermi di amarti con le tecniche orientali
Non cercare di sorprendermi all'incrocio dei miei pali
Non mi chiedermi di rivelarti dove ho il punto G
con il mio alfabeto arrivo fino a F
Rit.
(Girl band)
Belle ragazze con le gambe perfette
(Wooden Chicks)
noi siamo tope dalle vedute strette
(Girl band)
sinceramente non capisco chi ci biasima
(Wooden Chicks)
nei nostri play-back ci mettiamo l'anima
(Frankie Hi in rap)
Tu tipico prototipo di donna libera
tutta acqua e sapone non ti dai
nemmeno un'aria
tu così lucida ed estera
tu che sei più semplice di un
mosaico con una tessera
tu hai più colori di una gerbera
venere berbera
tu genuina come il barbera
tu che non mi dai mai l'idea
di aver la minima idea
di quel che dai
"Se saprei" parlare senza farti diventare rosso
"Se dovrei" vestire i panni senza toglierli di dosso
"Se potrei" dir cose meno imbarazzanti le direi
ma non sarei più gradita in una Girl...
Rit.
(Girl band)
Quanta spontaneità nei miei modi schietti
(Wooden Chicks)
le mie movenze e i completini perfetti
(Girl band)
o quando uno è naturale è naturale
(Wooden Chicks)
tra l'altro questo motivetto niente male
(Girl band)
Belle ragazze con le gambe perfette
(Wooden Chicks)
gagliarde tope dalle vedute strette
(Girl band)
sinceramente non capisco chi ci biasima
(Wooden Chicks)
nei nostri play-back ci mettiamo l'anima
Ps x Karl
Questo e' un testo comico (l'italiano e' tutt'altro) :)



title: Re: Problema nel Menu

text:
Pablitomf <
pabl...@hotmail.it
> ha scritto:
>
> > E con PablitoCortellesi che scazza "Tu! Tu!
> > TU!!! ..." :)))))))))))))))
>
> Ma volendo anche ugoCortellesi in "non mi chiedermi" di cui giro il dantesco
> testo :
..
e di cui linko video :
http://www.youtube.com/watch?v=1Q9IzfbIvhM
:D
..



title: Re: Problema nel Menu

text:
"Popi - TheBadHabits" <
rlu...@yahoo.com
> ha scritto nel messaggio
news:8cbce243-b55d-4080...@s2g2000vby.googlegroups.com...



ah no... mai provato urrà
URRA'
Antonio


title: Re: Problema nel Menu

text:
> ah no... mai provato urrà
>
> URRA'
ma se non mordo, come faccio io? :D
ua' che mi hai fatto ricordare! :D
http://www.youtube.com/watch?v=qHiysX7-kQA



title: Re: Problema nel Menu

text:
"ugo conte" <
ugo.c...@gmail.com
> ha scritto nel messaggio
news:469b088a-9009-4f2c...@g30g2000vbu.googlegroups.com...
On 31 Ago, 15:01, "Pablitomf" <
pablit...@hotmail.it
> wrote:
> > > > approfondiamo prima un'altra cosa :
> > > > tu, sei italiano? giuro non scherzo... sei italiano?
>
> > > perchč?
>
> > se lo fossi?
>
> sarebbero giustificate le tue domande assurde...
>
> > sei mica razzista?
>
> non sono io che sono razzista, sono loro che sono napoletani!
>
> --
> --------------------------------
> Pablitomf
>
> Napoli sempre nel "Q"uore!
ciao  Pablitomf
Il mio errore č che pensavo
di poter visualizzare le descrizioni di colonne nascoste
in altre colonne invece visibili.
Cmq grazie
che č finalmente la risposta corretta alla domanda: "sei italiano?"
Antonio


title: Re: Problema nel Menu

author: Alessandro Cara

text:
Il 01/09/2011 15.16, ugo conte ha scritto:
[cut]
>
> ciao  Pablitomf
>
> Il mio errore è che pensavo
> di poter visualizzare le descrizioni di colonne nascoste
> in altre colonne invece visibili.
>
> Cmq grazie
Ciao Ugo.I tuoi post sembrano le domande/indovinelli di una caccia al
tesoro. Mi sono letto il post piu' per vedere come va a finire che per
effettivo interesse alla questione (che, tra l'altro, non ho capito).Se
non altro ho appreso che Maurizio (pablitomf) si vede che ha fatto delle
ferie soddisfacenti, non ha ancora tirato giu'  tutti i santi del
calendario.
Comunque "Il mio errore è che pensavo", pensare non e' sbagliato sono le
conclusioni a cui si arriva che spesso non sono attinenti.
Non so a cosa potrebbe servire la cosa che vorresti ma quello che ti
chiedi e', invece, fattibilissimo.
i.e
select a as a1, a as a2, a as a3,......,a as a123456789 from tab
non sta scritto da nessuna parte che non si possa fare. In questo modo
hai quante colonne vuoi sempre con lo stesso dato e si possono rendere
visibili/non visibili in un cbx come meglio aggrada.
Cosa te ne fai sta poi nella mente del padreterno perche', ribadisco,
non ho assolutamente capito quello che ti serve.
--
ac (x=y-1)


title: Re: Problema nel Menu

text:
> Il mio errore è che pensavo
Fossi in te mi fermerei qui...
> di poter visualizzare le descrizioni di colonne nascoste
> in altre colonne invece visibili.
Che 1) non e' ciò che hai chiesto 2) si puo' fare (ma non serve a una beata
mazza)
Cmq giusto x risolvere il problema una volta e x tutte, si fa così :
 &&& _### Chiug)()@&&&".../:://   &@ &'



title: Re: Problema nel Menu

text:
> > che è finalmente la risposta corretta alla domanda: "sei italiano?"
> >
> già
> ;-)
Ormai il perculamento scatta in automatico ad ogni tuo intervento illogico ;)



title: Re: Problema nel Menu

text:
"ugo conte" <
ugo.c...@gmail.com
> ha scritto nel messaggio
news:78de5e28-dc7b-4600...@hb5g2000vbb.googlegroups.com...
On 1 Set, 15:49, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
wrote:
> Il 01/09/2011 15.16, ugo conte ha scritto:
Ciao Alessandro
ecco il perchè
avendo nell'elenco della  casella combinata:
ordine n.1
ordine n.2
ecc
volevo evitare di avere p.e.
ordine n.1 ed anche i vari documenti
doc n. 111
doc.n.112
___
ordine n. 2
doc. 200
doc. 203
ecc.
adesso è tutto chiaro
Antonio


title: Re: Problema nel Menu

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201109011...@mynewsgate.net...
>> Il mio errore è che pensavo
>
> Fossi in te mi fermerei qui...
>
>> di poter visualizzare le descrizioni di colonne nascoste
>> in altre colonne invece visibili.
>
> Che 1) non e' ciò che hai chiesto 2) si puo' fare (ma non serve a una
> beata
> mazza)
>
> Cmq giusto x risolvere il problema una volta e x tutte, si fa così :
>
> €&&&€_### Chiug)()@&&&".../:://€€€&@€&'
>
>
controlla meglio
c'è un piccolo errore di sintassi, forse dovuto alla fretta con cui hai
scritto
Antonio


title: Re: Problema nel Menu

text:
> adesso è tutto chiaro
perche' prima no?



title: problemi con istruzione select

author: Nicolas

text:
da una tabella con valori doppi vorrei prelevare solo i valori con data piu
recente, quella maggiore
es:
servizio
lavaggio            01/01/2005        10 euro
lavaggio            01/03/2005        12 euro
cambio olio       01/05/2005        36 euro
con la select * where vorrei prelevare solo gli utilmi 2 record in quanto il
primo è come il secondo ma con data piu vecchia
grazie.


title: problemi con istruzione select

author: massimo

text:
"Nicolas" <
nico...@email.it
> ha scritto nel messaggio
news:435a2b27$0$24645$4faf...@reader3.news.tin.it...

SELECT DISTINCT Tabella3.servizio, Max(Tabella3.data) AS MaxDidata,
Last(Tabella3.prezzo) AS UltimoDiprezzo
FROM Tabella3
GROUP BY Tabella3.servizio
ORDER BY Max(Tabella3.data);
sostituisci il nome tabella3 con il nome della tua tabella
Ciao.


title: problemi con istruzione select

text:
> SELECT Tabella3.servizio, Max(Tabella3.data) AS MaxDidata,



title: problemi con istruzione select

text:
> SELECT DISTINCT Tabella3.servizio, Max(Tabella3.data) AS MaxDidata,
> Last(Tabella3.prezzo) AS UltimoDiprezzo
> FROM Tabella3
> GROUP BY Tabella3.servizio
> ORDER BY Max(Tabella3.data);
>
> sostituisci il nome tabella3 con il nome della tua tabella
>
> Ciao.
>
grazie infinite


title: chi trova l'errore??

author: Eros genellini

text:
accidenti..... le istruzioni che mi hai consigliato sembrano esatte:
 dim rs as recordset
 Set rs = currentdb.openrecordset("SELECT * FROM Clienti WHERE CodFis =
 '" & txtCodFis & "'")
 If rs.recordcount > 0 then
   msgbox "Codice fiscale già presente !"
   ' vedi tu
 else
  ' salva il record
 endif
 rs.close
 set rs = nothing
ma se le applico al mio db esce costantemente il messaggio di errore: Tipo
non corrispondente.....
le mie istruzioni sono le seg:
Set rs = CurrentDb.openrecordset("SELECT * FROM TipoAbbonamento WHERE Durata
= '" & numero_mesi & "'")
.......
con Durata un campo definito come Testo, numero mesi e' il nome
dell'elemento della casella combinata sulla maschera!!!!!
Sembrerebbe tutto ok!!! dov'e' l'errore???
cmq le stesse istruzioni non danno conflitti se il campo e' definito memo? e
per i campi numerici? devo solo togliere l'apice?
grazie infinite!!!!!!!


title: OT: Accesso archivi Esatto 2004

text:
Ciao a tutti
Qualcuno di voi sa come leggere gli archivi clienti del gestionale in
oggetto?
O è possibile esportare in excel direttamente dal programma?
Grazie
Ciao
Luca


title: OT: Accesso archivi Esatto 2004

author: Mister No

text:
[CUT]
Ciao,
prova a dare 1 occhiata qui ->
http://www.esasoftware.com/esatto2004.asp?pag=2
Hai mai visto gestionali fatti x bene che non ti consentono di importare gli
archvi all'interno di software + diffusi? Io no...
Alla prossima :-)


title: OT: Accesso archivi Esatto 2004

author: Oscar Manfredini

text:
"Re_Artů"
> Ciao a tutti
> Qualcuno di voi sa come leggere gli archivi clienti del gestionale in
> oggetto?
> O č possibile esportare in excel direttamente dal programma?
Esatto non usa archivi BTrieve?
Probabilmente esisteranno ODBC per leggere gli archivi di quel gestionale
(anzi, puttanaio travestito da gestionale)   ;-)
Ciao.


title: OT: Accesso archivi Esatto 2004

text:
[CUT]
> Esatto non usa archivi BTrieve?
> Probabilmente esisteranno ODBC per leggere gli archivi di quel gestionale
> (anzi, puttanaio travestito da gestionale)   ;-)
>
Ciao Oscar,
la domanda mi nasce spontanea -> quale potrebbe essere , secondo te, un
gestionale degno di essere chiamato tale?
Grazie anticipatamente e notte :-)
Gaspare


title: OT: Accesso archivi Esatto 2004

text:
"Mister No" <
> Ciao Oscar,
> la domanda mi nasce spontanea -> quale potrebbe essere , secondo te, un
> gestionale degno di essere chiamato tale?
Per esempio Onda di Edisoftware.
Ma č solo un dettaglio: qualche buon gestionale sul mercato si trova ... ma
sicuramente non quell'obsoleto (oltre che instabile) aborto.
Ciao.


title: evitare messaggio di avvertimento

author: ^luigi^

text:
all'apertura di un  collegamento ipertestuale tramite pulsante su una
maschera, compare un messaggio di avvertimento del rischio che potrebbe
comportare aprendo un coll. ipert. e dopo aver risposto si o no, il
collegamento si apre.
Come evito questo messaggio? ed aprire direttamente il collegamento senza
essere rotto le scatole ogni volta che pigio quel pulsante?
l.
grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: evitare messaggio di avvertimento

author: Roberto da Parma

text:
"^luigi^" <
onofrio...@tin.it
> ha scritto nel messaggio
news:gu1h6o$6te$1...@news.newsland.it...

Credo due strade o abbassi il livello di protezione...o
docmd.setwarnings false
....
docmd.setwarnings true
Ciao
--
Roberto da Parma


title: Attivando controllo sull'evento " mouse move" si abilita scroll mouse

author: Dino

text:
Ciao a tutti.Ho inserito sull'evento " mouse move" di alcuni controlli
il focus del controllo stesso,in modo tale che posizionando il cursore
del mouse sul controllo esca il testo preimpostato (testo descrizione
controllo).Il tutto funziona correttamente ma il problema riguarda lo
scroll del mouse.Tale scroll infatti e' disabilitato dalla famosa
routine di Lebans.Rendendo pero' attivo il controllo e muovendo lo
scroll e' come se disabilitassi tale funzione.Per essere piu'
chiaro.Ho il pulsante di comando "salva record" posizionandomi su di
esso con il mouse mi esce il testo impostato.In quel momento il focus
e' sul pulsante e se muovo lo scroll cambio record.
Come posso fare per evitare tutto questo????
Dino


title: TESTATE SE TABELLA E' APERTA

author: Emyr

text:
On Fri, 22 Nov 2002 08:37:51 +0000 (UTC),
ombret...@arditi.com
wrote:
>Come faccio a testare se una tabella è già aperta o è in uso?
>Devo fare una certa operazione su di essa solo se questa tabella è libera.
>
>
>Ciao
>
>Ombretta
setta una variabile globale ogni volta che la apri o chiudi
Saluti.
Emanuele.


title: TESTATE SE TABELLA E' APERTA

author: Sib

text:
<
ombret...@arditi.com
> ha scritto nel messaggio
news:arkqcv$ipn$1...@fata.cs.interbusiness.it...
Come faccio a testare se una tabella è già aperta o è in uso?
Devo fare una certa operazione su di essa solo se questa tabella è libera.
--------------------------------------------
Prima di tutto scrivi in formato testo e non HTML.
Secondo me la cosa migliore e' gestire l'errore se la tabella e' aperta:
On Error goto pippo
...
codice
...
Pippo:
    Msgbox "forse la tabella e' aperta"
Sib


title: TESTATE SE TABELLA E' APERTA

text:
>Prima di tutto scrivi in formato testo e non HTML.
>Secondo me la cosa migliore e' gestire l'errore se la tabella e' aperta:
Scusa, ma non mi ero accorta di avere impostato male NOTES
>On Error goto pippo
Mi spiego meglio. Ho una maschera basata su una tabella (anagrafica
clienti). La stessa maschera potrebbe essere aperta contemporaneamente da
più utenti e ogni utente potrebbe aggiungere, modificare, cancellare
clienti.
Periodicamente però ho l'esigenza di ricreare questa tabella prelevando i
dati da AS400.
Avevo pensato di pulire questa tabella e  poi accodare i dati di AS400 con
un pulsante di comando.
Quando un utente mi schiaccia questo pulsante e fa quindi queste due
azioni voglio visualizzare un msg di tabella in uso (nel caso in cui altri
utenti hanno aperto la tabella anagrafica clienti. La funzione on error
non la posso utilizzare, perchè queste due azioni le posso tranquillamente
fare anche se altri utenti hanno aperto la tabella: sono io che ne voglio
impedire l'esecuzione in questo caso.
Grazie
Ciao
Ombretta


title: creare dir da eseguibili e importare txt in mdb

author: Cla

text:
buonasera a tutto il NG ! e scusate la lunghezza.....
ho 10 file eseguibili (.exe) ciascuno di questi scompattato genera 8 tabelle
in formato txt (di ognuna ho le specifiche di importazione)
Vorrei che mi poteste aiutare a relizzare questo risultato :
Ora i files .exe sono tutti  in una directory chiamata export, e vorrei che
si potesse creare 1 dir (con un nome predeterminato) per ogni file .exe e
successivamente scompattarli e, utilizzando le, specifiche di importazione
importare le relative tabelle in un MDB.
sono in grado di realizzare una dir (sic...) e spostare il file relativo, ma
un operazione come sopra descritto mi risulta assai ostica, prealtro con uno
script VBS, sempre su un solo file, riesco ad eseguire la scompattazione ma
il guaio è che i file scompattati vanno a finire in una directory
(Documenti) che non è quella che io vorrei.
Esempi di codice utilizzato :
Lettura dei files nella directory ......
Private Sub Comando0_Click()
   ' d=directory
   ' j=maschera di match
   Dim t As TableDef
   Dim r As Recordset
   Dim s As String
   If d = "" Then d = "C:\export\DATA\" ' se non specificata usa la dir
corrente"
   If j = "" Then j = "*.exe" ' se non specificato, lista tutti i file
   If Right(d, 1) <> "\" Then d = d & "\"
   s = "Files presenti in " & d
   Set t = CurrentDb.CreateTableDef(s)
   t.Fields.Append t.CreateField("NomeFile", dbText)
   CurrentDb.TableDefs.Append t
   Set r = CurrentDb.OpenRecordset(s, dbOpenTable)
   s = Dir(d & j)
   With r
      Do While s <> "" ' cicla per ogni file nella directory
         .AddNew
         !NomeFile = s
         s = Dir
         .Update
      Loop
   End With
End Sub
creazione directory....
Private Sub Comando1_Click()
      MakeDir = False
      MkDir "C:\prova1"
      MkDir "C:\prova2"
      MkDir "C:\prova3"
      MakeDir = True
End Sub
esecuzione del file di scompattazione....
Private Sub Comando3_Click()
Dim Percorso As String, windowstyle As Integer, Attendi As Boolean
   Dim wshell As Object
   Set wshell = CreateObject("WScript.shell")
   wshell.Run "C:\import\esegui_scompattazione.vbs", windowstyle, Attendi
   Set wshell = Nothing
End Sub
Spostamento dei file .....(ho creato una tabella DATA con un campo dove ho
la path di origine e uno con la destinazione)
Dim fso As New FileSystemObject
Dim fls As Scripting.File
Dim ImmagineP As String, ImmagineA As String
Dim FolderP As String, FolderA As String
'Folder di Partenza ed Arrivo delle immagini
FolderP = "C:\Documents and Settings\Celli\Documenti"
FolderA = "C:\Import\"
'Collegamento al Data Base
Dim cn As New ADODB.Connection
cn.Open CurrentProject.Connection
Dim rs As New ADODB.Recordset
rs.Open "DATA", cn, adOpenStatic, adLockOptimistic
Dim i As Integer
rs.MoveFirst
For i = 1 To rs.RecordCount
    ImmagineP = rs("path").Value
    ImmagineA = rs("destinazione").Value
    For Each fls In fso.GetFolder(FolderP).Files
        If ImmagineP = fls.Name Then
            fso.CopyFile FolderP & ImmagineP, FolderA & ImmagineA, True
            rs("Conferma").Value = ImmagineP
        End If
    Next
    rs.MoveNext
Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
Come vedete sono tutte cose "al singolare" ma nulla mi aiutano nel
realizzare quanto sopra esposto.
Spero come sempre nella vostra inestimabile collaborazione per poter
arrivare al risultato....che ....vorrei..
Grazie come sempre !
Paolo


author: Sergio MAZZA

text:
"Cla" <
hac...@fastwebnet.it
> ha scritto nel messaggio news:qHRfi.22392$y05....@tornado.fastwebnet.it...

A me sembra che nella tua cassetta degli attrezzi ci siano tutti gli strumenti.
Secondo me le operazioni da fare potrebbero essere:
- creare una directory temporanea (C:\temp);
- copiarci gli exe
1 - ciclo di lettura del nome ed esecuzione del file exe
1.1 - eseguire il file exe attendendo la fine
1.2 - copiare/spostare dalla cartella predefinita dove vengono estratti i file (tanto ai detto che si sa) nella cartella C:\Import
1.3 - ciclo di lettura del nome ed importazione del file txt
1.4 -- (se necessario) eliminazione del file txt già importato
2 - ritorno al punto 1 (prosecuzione del ciclo)
Devi solo riassemblare le routine che hai in modo tale da effettuare le operazioni; aggiungo che sul sito comune (volendo) trovi
altri esempi di codice per ottenere il nome dei file presenti in una cartella...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:f5qbjd$air$1...@tdi.cu.mi.it...
> "Cla" <
hac...@fastwebnet.it
> ha scritto nel messaggio
> news:qHRfi.22392$y05....@tornado.fastwebnet.it...
>> buonasera a tutto il NG ! e scusate la lunghezza.....
>>
>> ho 10 file eseguibili (.exe) ciascuno di questi scompattato genera 8
>> tabelle in formato txt (di ognuna ho le specifiche di importazione)
>>
>> Vorrei che mi poteste aiutare a relizzare questo risultato :
>>
>> Ora i files .exe sono tutti  in una directory chiamata export, e vorrei
>> che si potesse creare 1 dir (con un nome predeterminato) per ogni file
>> .exe e successivamente scompattarli e, utilizzando le, specifiche di
>> importazione importare le relative tabelle in un MDB.
>>
>> sono in grado di realizzare una dir (sic...) e spostare il file relativo,
>> ma un operazione come sopra descritto mi risulta assai ostica, prealtro
>> con uno script VBS, sempre su un solo file, riesco ad eseguire la
>> scompattazione ma il guaio è che i file scompattati vanno a finire in una
>> directory (Documenti) che non è quella che io vorrei.
>>
>
> A me sembra che nella tua cassetta degli attrezzi ci siano tutti gli
> strumenti.
> Secondo me le operazioni da fare potrebbero essere:
> - creare una directory temporanea (C:\temp);
> - copiarci gli exe
> 1 - ciclo di lettura del nome ed esecuzione del file exe
> 1.1 - eseguire il file exe attendendo la fine
> 1.2 - copiare/spostare dalla cartella predefinita dove vengono estratti i
> file (tanto ai detto che si sa) nella cartella C:\Import
> 1.3 - ciclo di lettura del nome ed importazione del file txt
> 1.4 -- (se necessario) eliminazione del file txt già importato
> 2 - ritorno al punto 1 (prosecuzione del ciclo)
>
> Devi solo riassemblare le routine che hai in modo tale da effettuare le
> operazioni; aggiungo che sul sito comune (volendo) trovi altri esempi di
> codice per ottenere il nome dei file presenti in una cartella...
>
> Ciao.
> --
> Sergio MAZZA
Ciao Sergio e grazie per la risposta purtroppo letta in ritardo causa
trasferta lavorativa,
Concordo su cio he esponi per realizzare il tutto ma da inespeeto vorrei che
gentilmente mi potessi fare un esempio anche generico della costruzione di
un ciclo in modo che io possa sempre utilizzarlo,
Mi sarebbe utile per capire dato che magari ho vicino la concezione delle
cose ma mi manca la costruzione
Ti sarei molto grato
Grazie e buona giornata
Paolo


text:
"Cla" <
hac...@fastwebnet.it
> ha scritto nel messaggio
news:q0lgi.24354$y05....@tornado.fastwebnet.it...
> Ciao Sergio e grazie per la risposta purtroppo letta in ritardo causa
> trasferta lavorativa,
> Concordo su cio he esponi per realizzare il tutto ma da inespeeto vorrei
> che gentilmente mi potessi fare un esempio anche generico della
> costruzione di un ciclo in modo che io possa sempre utilizzarlo,
> Mi sarebbe utile per capire dato che magari ho vicino la concezione delle
> cose ma mi manca la costruzione
> Ti sarei molto grato
>
> Grazie e buona giornata
>
> Paolo
Mancano delle informazioni per completare il puzzle.
Prendo come punto fisso:
- che gli exe zippati vengano salvati in: C:\documenti; poi tu la cambi.
- che esegui la scompattazione un file alla volta, non tutti insieme; quindi
dovrai indicarmi il contenuto dello script "esegui_scompattazione.vbs" per
inserirlo nella parte del codice relativa.
Questa subroutine da inserire in un modulo deve essere completata con altre
informazioni:
'---
Sub eseguiAzionePerOgniFile(cartella as string, tipofileDaTrovare As String,
azione as String)
dim fileDaTrovare As String
If Right(cartella, 1) <> "\" Then '<-- il percorso deve terminare con il
backslash
    cartella = cartella & "\"
End If
fileDaTrovare = cartella & tipofileDaTrovare
If Dir(fileDaTrovare) = "" Then '<-- verifica esistenza file
    MsgBox "File: " & fileDaTrovare & ", (non presenti)"
    Exit Sub
End If
fileDaTrovare = Dir(fileDaTrovare)
Do While fileDaTrovare <> "" '<-- per ogni file
Select case azione '<-- esegui l'azione indicata
    case "scompatta"
        Dim objAct
        Set objAct = CreateObject("WScript.Shell")
        objAct.Run cartella & fileDaTrovare <'-- eseguo exe che scompatta in
c:\documenti
        '<-- qui dovresti o rinominare l'exe o cancellarlo (a te la scelta)
per non riprenderlo
        '<-- in considerazione
    case "importa"
        '<-- qui ci inserisci il codice che importa il file (scompattato)
indicato nelle variabili
        '<--  cartella & fileDaTrovare
    case "eliminaImportati"
        Dim objAct
        Set objAct = CreateObject("Scripting.FileSystemObject")
        objAct.DeleteFile(cartella & fileDaTrovare)
    case else
Loop
if isobject(objAct) then
    Set objAct = Nothing
end if
exit sub
errori:
    Set objAct = Nothing
    msgbox err.number & " " & application.accesserror(err.number)
end sub
'---
I passi da seguire, (es.) in un clic di un bottone, sono:
eseguiAzionePerOgniFile "c:\export\", "*.exe", "scompatta"
eseguiAzionePerOgniFile "c:\documenti\", "*.txt", "importa"
eseguiAzionePerOgniFile "c:\documenti\", "*.txt", "eliminaImportati"
Il codice è da completare(come ho già scritto) e quindi da testare...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:f5t83i$fo2$1...@tdi.cu.mi.it...

Sergio, rieccomi qui dopo un'ennesima lunga giornata....
ho letto con attenzione la tua risposta cercando di comprendere al meglio lo
svolgimento che mi proponi e, nei miei limiti, ho capito che sarebbe la
soluzione che andrebbe bene per me.
Mi hai chiesto il contenuto dello script di scompattazione ...eccolo ..
Dim oWshShell
Set oWshShell = CreateObject("WScript.Shell")
oWshShell.Run  "C:\import\001.exe"
Set oWshShell = Nothing
funziona (anche se non trovo verso di fargli cambiare destinazione cosi
eviterei di spostare i file scompattati....)
Ho provato a seguire una logica su un singolo file anche oggi e li direi che
ci siamo abbastanza ma per quanto riguarda la costruzione di cicli adatti ne
sono lontano......
Se non ho capito male la tua soluzione prevede di, con un solo click, di
effettuare l'intera operazione, creazioene dele directory scompattazione e
importazione in mdb.... e non sa quanto sarebbe utile per me.
Ti chiedo e anche al NG di potermi dare una mano in proposito....
Come sempre ringrazio in anticipo con la buona serata
Paolo


text:
"Cla" <
hac...@fastwebnet.it
> ha scritto nel messaggio news:%3xgi.25482$y05....@tornado.fastwebnet.it...
>
> Sergio, rieccomi qui dopo un'ennesima lunga giornata....
> ho letto con attenzione la tua risposta cercando di comprendere al meglio lo svolgimento che mi proponi e, nei miei limiti, ho
> capito che sarebbe la soluzione che andrebbe bene per me.
> Mi hai chiesto il contenuto dello script di scompattazione ...eccolo ..
> Dim oWshShell
> Set oWshShell = CreateObject("WScript.Shell")
> oWshShell.Run  "C:\import\001.exe"
> Set oWshShell = Nothing
Quindi non fa altro che eseguire l'exe.
> funziona (anche se non trovo verso di fargli cambiare destinazione cosi eviterei di spostare i file scompattati....)
Non è un problema; non devi spostarli, la cosa importante è che vengano estratti sempre nello stesso posto. Sapendo questo, tu li
importi e poi li cancelli per fare posto ai nuovi.
> Ho provato a seguire una logica su un singolo file anche oggi e li direi che ci siamo abbastanza ma per quanto riguarda la
> costruzione di cicli adatti ne sono lontano......
> Se non ho capito male la tua soluzione prevede di, con un solo click, di effettuare l'intera operazione, creazioene dele directory
> scompattazione e importazione in mdb.... e non sa quanto sarebbe utile per me.
La soluzione prevede l'utilizzo di una subroutine che, indicando i paramentri giusti, esegua una alla volta le operazioni indicate.
> Ti chiedo e anche al NG di potermi dare una mano in proposito....
>
> Come sempre ringrazio in anticipo con la buona serata
>
> Paolo
Quindi il codice nel case "scompatta" è giusto.
Devi decidere cosa fare nei punti che ti ho indicato, così da sostituirli in istruzioni VBA...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:f5vpm9$3s2$2...@tdi.cu.mi.it...

Ciao Sergio buongiorno e di nuovo grazie per le info che mi dai
Riguardo il cosa fare nelle sezioni
> Select case azione '<-- esegui l'azione indicata
>    case "scompatta"
>        Dim objAct
>        Set objAct = CreateObject("WScript.Shell")
>        objAct.Run cartella & fileDaTrovare <'-- eseguo exe che scompatta
> in c:\documenti
      '<-- qui dovresti o rinominare l'exe o cancellarlo (a te la scelta)
Qui vorrei eliminare l'exe dato che non serve tenerlo
>    case "importa"
>        '<-- qui ci inserisci il codice che importa il file (scompattato)
Novita di ora ..... ho una macro che esegue tutte le importazioni legate ad
ogni singola specifica e credo possa essere utilile per costruire un ciclo
che andando di drectory in directory si esegua dato che le tabelle che sono
scompattare dall'exe anno tracciati uguali, ma il ciclo onestamente non so
come costruirlo
> indicato nelle variabili
>        '<--  cartella & fileDaTrovare
>    case "eliminaImportati"
>        Dim objAct
>        Set objAct = CreateObject("Scripting.FileSystemObject")
>        objAct.DeleteFile(cartella & fileDaTrovare)
>    case else
> Loop
>
> if isobject(objAct) then
>    Set objAct = Nothing
> end if
> exit sub
> errori:
>    Set objAct = Nothing
>    msgbox err.number & " " & application.accesserror(err.number)
> end sub
> '---
>
> I passi da seguire, (es.) in un clic di un bottone, sono:
> eseguiAzionePerOgniFile "c:\export\", "*.exe", "scompatta"
> eseguiAzionePerOgniFile "c:\documenti\", "*.txt", "importa"
> eseguiAzionePerOgniFile "c:\documenti\", "*.txt", "eliminaImportati"
Sostanzialmente mi è venuta anche una idea che magari può rientrare nel
portare a buon fine il tutto
E cioe riempire una casellla di riepilogo o combinata leggendo la dir dove
sono tutti gli exe e su clic di ogni file dalla casella eseguire
l'operazione di scompattazione e  import delle tabelle, secondo te cosa è
meglio fare ?
Certo la tua soluzione mi piacerebbe portarla a termine con quel famoso
click sul bottone, ma se puo esser piu semplice l'alternativa ...dimmi cosa
ne pensi per favore
Ti quguro una buona giornata e buon lavoro! e scusmi se ho fatto un po di
confusione ....
paolo


text:
"Cla" <
hac...@fastwebnet.it
> ha scritto nel messaggio news:Rv%gi.27755$y05....@tornado.fastwebnet.it...
>
> Ciao Sergio buongiorno e di nuovo grazie per le info che mi dai
>
> Riguardo il cosa fare nelle sezioni
>
>> Select case azione '<-- esegui l'azione indicata
>>    case "scompatta"
>>        Dim objAct
>>        Set objAct = CreateObject("WScript.Shell")
>>        objAct.Run cartella & fileDaTrovare <'-- eseguo exe che scompatta in c:\documenti
>      '<-- qui dovresti o rinominare l'exe o cancellarlo (a te la scelta)
>
> Qui vorrei eliminare l'exe dato che non serve tenerlo
Mhmm... Se ne hai una copia sì, altrimenti sarebbe meglio rinominarlo; comunque:
Kill cartella & fileDaTrovare '<-- elimina il file
> Novita di ora ..... ho una macro che esegue tutte le importazioni legate ad ogni singola specifica e credo possa essere utilile
> per costruire un ciclo che andando di drectory in directory si esegua dato che le tabelle che sono scompattare dall'exe anno
> tracciati uguali, ma il ciclo onestamente non so come costruirlo
Se il tracciato è sempre lo stesso (per fortuna) non hai bisogno di nessuna macro.
Fai una importazione a mano, salvi la specifica di importazione dandogli un nome e la utilizzi con il metodo TransferText (vedi
help); praticamente una riga di codice.
> Sostanzialmente mi è venuta anche una idea che magari può rientrare nel portare a buon fine il tutto
> E cioe riempire una casellla di riepilogo o combinata leggendo la dir dove sono tutti gli exe e su clic di ogni file dalla casella
> eseguire l'operazione di scompattazione e  import delle tabelle, secondo te cosa è meglio fare ?
Quello che ritieni meglio per te.
Sul sito comune c'è l'esempio che chiedi, inizia a studiarlo e quando ottieni i nomi dei file exe, studiati il come ottenere il
valore selezionato da una casella di riepilogo.
> Certo la tua soluzione mi piacerebbe portarla a termine con quel famoso click sul bottone, ma se puo esser piu semplice
> l'alternativa ...dimmi cosa ne pensi per favore
Sono soluzioni simili; "il bottone", semplificando, esegue tutti i passi senza poterli interrompere ed avere la sensazione che "stia
succedendo qualcosa" (non è vero ma...). "la casella di riepilogo/combinata" è dato all'utente da quale file iniziare e proseguire,
e si ha la sensazione di un maggior controllo.
Comunque se vuoi puoi spezzettare tutte le operazioni e creare una serie di "oggetti" che scatenano le azioni.
> Ti quguro una buona giornata e buon lavoro! e scusmi se ho fatto un po di confusione ....
Buon lavoro a te! A Roma è S.Pietro e Paolo = Festa!
> paolo
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:f62c6b$hhn$1...@tdi.cu.mi.it...

Ciao Sergio e .....si si e vero oggi è festa ....San Pietro e Paolo ....ma
non mi hanno concesso di rimanere a dedicarmi a cose diverse ....insomma
solito lavoro..
Grazie della tua pazienza anche!
Inorridirai di fronte al seguito perchè oggi ho provato a fare cosi (non
sapendo gestire i cicli) :
Private Sub Comando5_Click()
Dim Fs As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.CopyFolder "C:\Documents and Settings\Documenti\pic", "c:\import\PIC"
Set Fs = Nothing
FileCopy "C:\Documents and Settings\Documenti\001.001", "C:\import\001.txt"
FileCopy "C:\Documents and Settings\Documenti\030.001", "C:\import\030.txt"
FileCopy "C:\Documents and Settings\Documenti\035.001", "C:\import\035.txt"
FileCopy "C:\Documents and Settings\Documenti\040.001", "C:\import\040.txt"
FileCopy "C:\Documents and Settings\Documenti\042.001", "C:\import\042.txt"
FileCopy "C:\Documents and Settings\Documenti\043.001", "C:\import\043.txt"
FileCopy "C:\Documents and Settings\Documenti\200.001", "C:\import\200.txt"
FileCopy "C:\Documents and Settings\Documenti\201.001", "C:\import\201.txt"
FileCopy "C:\Documents and Settings\Documenti\202.001", "C:\import\202.txt"
FileCopy "C:\Documents and Settings\Documenti\203.001", "C:\import\203.txt"
FileCopy "C:\Documents and Settings\Documenti\204.001", "C:\import\204.txt"
FileCopy "C:\Documents and Settings\Documenti\205.001", "C:\import\205.txt"
FileCopy "C:\Documents and Settings\Documenti\206.001", "C:\import\206.txt"
FileCopy "C:\Documents and Settings\Documenti\207.001", "C:\import\207.txt"
FileCopy "C:\Documents and Settings\Documenti\208.001", "C:\import\208.txt"
FileCopy "C:\Documents and Settings\Documenti\209.001", "C:\import\209.txt"
FileCopy "C:\Documents and Settings\Documenti\210.001", "C:\import\210.txt"
FileCopy "C:\Documents and Settings\Documenti\211.001", "C:\import\211.txt"
FileCopy "C:\Documents and Settings\Documenti\212.001", "C:\import\212.txt"
FileCopy "C:\Documents and Settings\Documenti\215.001", "C:\import\215.txt"
FileCopy "C:\Documents and Settings\Documenti\216.001", "C:\import\216.txt"
FileCopy "C:\Documents and Settings\Documenti\217.001", "C:\import\217.txt"
FileCopy "C:\Documents and Settings\Documenti\222.001", "C:\import\222.txt"
FileCopy "C:\Documents and Settings\Documenti\225.001", "C:\import\225.txt"
FileCopy "C:\Documents and Settings\Documenti\226.001", "C:\import\226.txt"
FileCopy "C:\Documents and Settings\Documenti\228.001", "C:\import\228.txt"
FileCopy "C:\Documents and Settings\Documenti\231.001", "C:\import\231.txt"
FileCopy "C:\Documents and Settings\Documenti\232.001", "C:\import\232.txt"
FileCopy "C:\Documents and Settings\Documenti\233.001", "C:\import\233.txt"
FileCopy "C:\Documents and Settings\Documenti\400.001", "C:\import\400.txt"
FileCopy "C:\Documents and Settings\Documenti\401.001", "C:\import\401.txt"
FileCopy "C:\Documents and Settings\Documenti\402.001", "C:\import\402.txt"
FileCopy "C:\Documents and Settings\Documenti\432.001", "C:\import\432.txt"
DoCmd.RunMacro "Import_alle_SA_C:\Import"
'DoCmd.RunMacro "Export_alle_SA_C:\Export"
RmDir "C:\Documents and Settings\Documenti\pic"
Dim NomeFile As String
NomeFile = "C:\Documents and Settings\Documenti\001.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\030.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\035.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\040.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\042.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\043.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\200.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\201.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\202.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\203.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\204.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\205.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\206.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\207.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\208.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\209.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\210.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\211.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\212.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\215.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\216.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\217.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\222.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\225.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\226.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\228.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\231.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\232.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\233.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\400.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\401.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\402.001"
Kill NomeFile
NomeFile = "C:\Documents and Settings\Documenti\432.001"
Kill NomeFile
End Sub
Private Sub Comando7_Click()
Dim dbs As Database
    Set dbs = CurrentDb
    Dim intNumTab As Integer
    intNumTab = dbs.TableDefs.Count - 1
    While intNumTab >= 0
        dbs.TableDefs.Delete dbs.TableDefs(intNumTab).Name
        intNumTab = intNumTab - 1
    Wend
End Sub
Private Sub elenco_DblClick(Cancel As Integer)
Dim Percorso As String, windowstyle As Integer, Attendi As Boolean
   Dim wshell As Object
   Set wshell = CreateObject("WScript.shell")
   wshell.Run "C:\Importtdc\esegui_scompattazione.vbs", windowstyle, Attendi
   Set wshell = Nothing
End Sub
Private Sub Form_Current()
Dim MyPath As String
Dim MyName As String
Me!elenco.RowSource = ""
MyPath = "c:\TDC_Import\"
MyName = Dir(MyPath)
Do While MyName <> ""
    Me!elenco.RowSource = _
    Me!elenco.RowSource & MyName & ";"
    MyName = Dir
Loop
Me!elenco.RowSource = _
Left(Me!elenco.RowSource, _
Len(Me!elenco.RowSource) - 1)
End Sub
In pratica leggo su una casella di riepilogo i file exe e cliccando sul
primo lo scompatto e poi tramite bottone li sposto li rinomino e li importo
tramite una macro (i tracciati per tutti gli exe sono identici per
fortuna...)
Dopodiche elimino i file nella dir documenti.
Il tutto funziona su primo file .
Ora ...secondo te è possibile trasformare quella sequenza di copy e Kill con
un bel ciclo ? e successivamente passare all exe2 ? tieni conto che via
codice svuoto poi le tabelle dopo averle esportate sempre con una macro.
Lo so ...sono stato un po contorto ma .....ci ho provato....
Ti sarei grato se potessi dirmi come ottimizzare il tutto secondo i sacri
crismi ....ho l'impressione che poi sarebbe fatta !
Ti ringrazio in anticipo e naturalmente saluto tutto il mitico NG
Sempre in debito
Paolo


text:
"Cla" <
hac...@fastwebnet.it
> ha scritto nel messaggio news:r0ahi.28871$y05....@tornado.fastwebnet.it...
>
> Ciao Sergio e .....si si e vero oggi è festa ....San Pietro e Paolo ....ma non mi hanno concesso di rimanere a dedicarmi a cose
> diverse ....insomma solito lavoro..
> Grazie della tua pazienza anche!
>
> Inorridirai di fronte al seguito perchè oggi ho provato a fare cosi (non sapendo gestire i cicli) :
>
> Private Sub Comando5_Click()
> Dim Fs As Object
> Set Fs = CreateObject("Scripting.FileSystemObject")
> Fs.CopyFolder "C:\Documents and Settings\Documenti\pic", "c:\import\PIC"
> Set Fs = Nothing
dim fileDaTrovare As String, cartella as string
dim tipofileDaTrovare as string, nomeFileTrovato as string
cartella = "C:\Documents and Settings\Documenti\"
tipofileDaTrovare = "*.001"
fileDaTrovare = cartella & tipofileDaTrovare
If Dir(fileDaTrovare) = "" Then '<-- verifica esistenza file
    MsgBox "File: " & fileDaTrovare & ", (non presenti)"
    Exit Sub
End If
fileDaTrovare = Dir(fileDaTrovare)
Do While fileDaTrovare <> "" '<-- per ogni file
    nomeFileTrovato = left(fileDaTrovare,Instr(1,fileDaTrovare,".")-1)
    debug.print "FileCopy " & cartella & tipoFileDaTrovare & "," & "C:\import\" & nomeFileTrovato & ".txt"
'-->    FileCopy cartella & tipoFileDaTrovare, "C:\import\" & nomeFileTrovato & ".txt"
loop
>
> DoCmd.RunMacro "Import_alle_SA_C:\Import"
>
> 'DoCmd.RunMacro "Export_alle_SA_C:\Export"
>
> RmDir "C:\Documents and Settings\Documenti\pic"
>
fileDaTrovare = cartella & tipofileDaTrovare
If Dir(fileDaTrovare) = "" Then '<-- verifica esistenza file
    MsgBox "File: " & fileDaTrovare & ", (non presenti)"
    Exit Sub
End If
fileDaTrovare = Dir(fileDaTrovare)
Do While fileDaTrovare <> "" '<-- per ogni file
    debug.print "kill " & cartella & tipoFileDaTrovare
'-->    Kill cartella & tipoFileDaTrovare
loop

Prima di eseguire le righe commentate (quelle con '-->) verifica nella finestra immediata (CTRL-G) che venga visualizzato
(debug.print) esattamente l'istruzione FileCopy/Kill che ti serve. Se va bene puoi cancellare la riga col debug.print e rimuovere i
commenti ('-->)...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:f652op$47p$1...@tdi.cu.mi.it...

Ciao Sergio ! apro e mi trovo un bell' inizio di sabato ..... grazie davveto
sei sempre gentile, e adesso comincio a sperimentare la soluzione cercando
anche di capirne bene la costruzione logica naturalmente .
Sono certo che tutto andrà per il meglio e che purtroppo non sapro
ricambiare ...dati i miei attuali limiti.
Ti faccio sapere senz'altro e nel frattempo ti auguro un felice WE !
Un sentitissimo ringraziamento da parte mia Sergio per la tua
professionalità e cortesia
Paolo


title: Formati data in campi testo

author: Valerio Valentini

text:
Ciao a tutti, ho il seguente problema a cui non ho trovato soluzione:
Importo un campo testo con la data formattata gg/mmm/aaaa in inglese, ora
quando cerco di trasformarla in un campo data riconosce feb mar apr, ma
quando arriva a may non sa cosa sia e mi da errore. Non conosco comandi per
trasformarlo, salvo l'unica idea di scomporre le date, fare una tabella con
le corrispondenze e poi ricomporle. Tipo jan = 1 feb = 2 mar = 3 ecc... e
non ditemi di lasciare il computer con le impostazioni inglesi.
Idee migliori????


title: Formati data in campi testo

author: Carlo Costarella

text:
"Valerio Valentini" <
val...@accessgroup.it
> ha scritto nel messaggio
news:4a09be30$1...@news.telnetwork.it...

Ci sono diversi sistemi...quasi tutti da codice, come la funzione Replace...
Ciao, Carlo


title: Formati data in campi testo

author: Karl Donaubauer

text:
Valerio Valentini wrote:
> Importo un campo testo con la data formattata gg/mmm/aaaa in inglese, ora
> quando cerco di trasformarla in un campo data riconosce feb mar apr, ma
> quando arriva a may non sa cosa sia e mi da errore. Non conosco comandi
> per trasformarlo, salvo l'unica idea di scomporre le date, fare una
> tabella con le corrispondenze e poi ricomporle. Tipo jan = 1 feb = 2 mar
> = 3 ecc... e non ditemi di lasciare il computer con le impostazioni
> inglesi. Idee migliori????
Eval("#" & [TuoCampoData] & "#")
Dove solo la memoria ï¿œ la mia, l'idea ï¿œ di Giorgio: ;-)
http://groups.google.com/group/it.comp.appl.access/browse_frm/thread/10e99b6633873fb9/49c16eb962c46cb1
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it