Newsgroup: it.comp.appl.access
Titolo: Demo Ricompattatore

Nel ringraziare Salvino e MA che ospitano i miei giochini... approfitto per proporre al NG una cosa che reputo utile e tecnicamente interessante.
 
E' un pò che sono fuori servizio, quindi ho perso la mano... rispetto ad un tempo.
 
http://www.accessgroup.it/general/esporta-e-compatta-i-progetti-di-access.html
 
 
Ha qualche baketto... in realtà non è proprio un baco ma un limite in caso di REFERENCES... non trovate che non saprei come gestire, ovviamente sono gestite le normali mancanze di References, ma quelle non trovate nel PC ospite... con il solo GUID non è possibile aggiungerle se non equivalente...
 
Se qualcuno ha suggerimenti in generale ben venga.
 
Saluti.
 
@Alex

 @Alex
 
a me in effetti si blocca su:
 
Call mSourceC.AccApplication.ExportNavigationPane
 
 
-- 
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.
 
TheSpaceCowboy : 
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12
 

 Call mSourceC.AccApplication.ExportNavigationPane
 
e sulla successiva
 
Call mNewC.AccApplication.ImportNavigationPane(strFileXML)


 Call mNewC.AccApplication.ImportNavigationPane(strFileXML)
 
e visto che ci siamo...
 
sul demo CALENDARIO PRENOTAZIONI (Excel Automation) mi bugga su
 
oWkb.SaveAs CurrentProject.Path & "\CALENDARIO_" & Format$(StartDate,
"ddmmyy") & "_" & Format$(StopDate, "ddmmyy") & ".xls", 56
 
con un bel messaggio:
 
1004 Errore nel metodo SaveAs per la classe Workbook


Perchè usi della roba vecchia....!!!!
 
AGGIORNATI.
 
Quei metodi non sono presenti su A2003, che immagino sia la tua versione...
 
Per il calendario invece devi modificare il [56] è un valore che va bene per A2010, con A<2010 se non ricoedo male è 50 o 51...
Prova a modificare con questo:
 
 'uso la proprietà FileFilter come variabile per assegnare il valore corretto relativo a Workbook SaveAs
    If Val(xlApp.Version) > 11 Then
        Select Case Mid$(NomeFile, InStrRev(NomeFile, ".") + 1, Len(NomeFile))
            Case Is = "xlsx"
                intTypeXLS = 51
            Case Is = "xlsb"
                intTypeXLS = 50
            Case Is = "xls"
                intTypeXLS = 56 '"xls" con versione office > 11
        End Select
    Else
        intTypeXLS = 43 '"xls" con versione office < 11
    End If
    oWkb.SaveAs NomeFile, intTypeXLS
 
 
Maurì certo che devo sempre fare tutto io...!!!
Manco per qualche anno ed ecco... serve un caffè, un'acqua minerale... un BABBA'...
 
Ciao Ragazzo.
 
@Alex

 @Alex
 
Maurizio


In tutti i casi Maurizio, il mio FRUGATOR ora funziona molto bene... ;-)
Visto che A.C. non si è fatto sentire me lo sono rifatto...
 
Tra poco lo pubblico, il mio sarà OPEN.
 
Ciao
@Alex

 ha scritto:

grande Ale... ;)


 ha scritto nel messaggio 
news:7a40ada5-195f-439f...@googlegroups.com...
In tutti i casi Maurizio, il mio FRUGATOR ora funziona molto bene... ;-)
Visto che A.C. non si � fatto sentire me lo sono rifatto...
 
Tra poco lo pubblico, il mio sar� OPEN.
 
Ciao
@Alex
 
--------------------
 
Cos'e' il tuo FRUGATOR ?
 
 

Una cosa che partendo da questo demo(non OPEN) sotto, vorrebbe fare qualche cosa in più:
http://www.accessgroup.it/search.html?searchword=frugator
 
 
@Alex

 
http://www.accessgroup.it/search.html?searchword=frugator
 
 
sono curioso... passa passa :D


 ha scritto nel messaggio 
news:2fad6380-3979-4efa...@googlegroups.com...
Una cosa che partendo da questo demo(non OPEN) sotto, vorrebbe fare qualche 
cosa in pi�:
http://www.accessgroup.it/search.html?searchword=frugator
 
 
@Alex
 
---------------------------------
 
Forse non ho capito bene io quali sono gli obiettivi di Frugator, ma che 
cosa avrebbe di diverso dalla funzionalita' originale Analizza/Analizzatore 
di Access ?
 
 

 di Access ?
 
In realtà sono 2 cose assolutamente diverse... Frugator non fa nulla se non frugare... l'analizzatore fa l'analizzatore(forse più un documentatore con un minimo di ANALISI...) e sono 2 cose diverse...
Tuttavia quello che serve, secondo me è altro... che non fa l'analizzatore, ma quì mi fermo.
 
@Alex

 ha scritto nel messaggio 
news:934560fd-0026-464c...@googlegroups.com...

----------------------------------------------------
Come 'documentatore', la funzione standard Analizza/Analizzatore mi sembra 
buona
Una funzionalita' che non e' presente in Access standard e' la possibilita' 
di individuare/eliminare variabili e codice 'orfano' per ridurre la 
dimensione della procedura finale
E a mia esperienza il codice 'orfano' potrebbe essere anche di peso 
rilevante
Capita abbastanza spesso, almeno a me, di prendere un progetto funzionante 
per utilizzarne solamente una parte
Tutte il codice non usato resta la' a fare niente, sparso tra le varie form 
e moduli, non si tocca solo per timore che da qualche parte sia utilizzato, 
e non si ottimizza perche' farlo a mano vorrebbe dire spendere un'infinita' 
di tempo
Parecchi anni fa, parliamo ancora di Visual basic 3, realizzai una 
procedura, si chiamava Cleaner2, per fare proprio questo
Andava alla ricerca di variabili definite come Global non usate in nessuna 
form/bas del progetto e se richiesto le eliminava, stessa cosa per le 
Function/Sub
Il Frugator serve a fare cose di questo tipo?
RobertoA
 
 

ci sono tool che fanno proprio questo, e altro. appena ho 2 min lo posto

 RobertoA
 
@Alex