Newsgroup: it.comp.appl.access
Titolo: newbee (INESPERTO) "mdb compact"

Ciao a tutti
Premesso che essendo un inesperto di access, mi dispiacerebbe essere mandato
al ....
:-)
Espongo, ho dei database in access2000 da me creati, attenzione! non conosco
assolutamente il VB.
Ho effettivamente la necessità di compattare di tanto in tanto, e vorrei
farlo in automatico.
1) ho letto il sitocomune e il programmino roller faceva al caso mio, ma
aimè non gira su access2000
allora ho trovato il note di Federico Luciani, come compattare l'mdb in
uso...
ho creato il file Compact.vbs e "buttato" nella cartella c:\temp
:-)
Poi.... ho iniziato il mio PRIMO approccio con il VB, sono andato nella
sezione MODULI del DB e ho creato un nuovo modulo, qui ho digitato:
Dim strPath As String
  strPath = "wscript.exe " & "C:\Temp\Compact.vbs " & Chr$(34) &
CurrentDb.Name & Chr$(34)
  Call Shell(strPath, vbNormalFocus)
Esattamente come sopra!
ho cliccato sulla freccetta (per eseguirlo) e mi ha chiesto di dare un nome
alla macro, chiamata compact ho eseguito la macro, e evidenziando
"wscript.exe ", mi restituisce il seguente errore:
Errore di compilazione: non valido all'esterno di una routine
Ovviamente il wscript è presente in c:\windows
ho anche chiesto l'aiuto in linea, ma....gulp, non so da dove iniziare.
Grazie in anticipo
p.s. ma il VB è così difficile?

 > p.s. ma il VB è così difficile?
 No, ti richiede però un pò d'impegno all'inizio, mentre non ti rendi conto
 di cosa sia.
 ciao e welcome on board (visto che ti piace così tanto l'inglese!!)
 MAssimiliano
Chiedo scusa a Marco, ma per errore l'ho inviata alla sua mail personale.
MAssimiliano

 sezione MODULI del DB e ho creato un nuovo modulo, qui ho digitato:
- cut -
Ho notato che da DOS eseguendo:
C:\WINDOWS>wscript c:\temp\compact.vbs c:\windows\desktop\db1.mdb
funziona, allora ho creato un .BAT ed a sua volta un .PIF con le istruzioni
di eseguire la finestra come icona, poi ho inserito esegui comando da una
MACRO (macro di access) la quale a sua volta inserita come avvio ed un
timeout in una maschera, la esegue ogni 2 ore.
Funziona tutto perfettamente, ma qualcuno può aiutarmi ad utilizzare il VB,
così imparo qualcosa di nuovo e non utilizzare più questi "aggiramenti"
evitando di utilizzare sistemi quasi preistorici...
grazie ancora
ciao

 > Non ci crederai, ma sapevamo il significato dall'inglese
- cut -
Mumble... ti ringrazio per la dritta...ho selezionato le librerie 3.6
Cmq, adesso gira però dovevo inserire la routine di Luciani dopo il comando
Sub compact() e alla fine inserire End Sub, come segue:
Sub compact()
Dim strPath As String
strPath = "wscript " & "C:\temp\Compact.vbs " & Chr$(34) & CurrentDb.Name &
Chr$(34)
Call Shell(strPath, vbNormalFocus)
End Sub
(l'ho ricopiata pari pari, per qualche altro impedito come me che sta
inizando)
Insomma adesso cliccando sulla freccina del mangianastri del VB funziona
:-)
La routine esegue perfettamente il compact.vbs...
salvato adesso il modulo, però non mi si visualizza il punto esclamativo per
eseguirlo...
come lo eseguo? nelle classiche macro di access non c'e' l'opzione... ho
perso qualcosa?
Qualche altro consiglino?
Scusatemi, non vi impazientite...
altre domande:
1) come mai il compact.vbs deve essere scritto in un file di testo ed
eseguito come oggetto esterno con l'esecutore di script?
2) con questa semplice ca#@#@ il VB mi ha davvero preso, inizio a vederci
alcune (forse molte) possibiltà per risolvere alcuni problemi batch da me
rimasti IRRISOLTI, perchè non create sul sito comune un area: PER GLI
IMPEDITI CHE VOGLIONO INIZIARE?
Grazie ancora e per l'anticipo bastano delle primizie locali inviate per
posta? (spero che non si rovinino con questo caldo)
:-)

Per favores, MAssimiliano, aiutami!

 Per favores, MAssimiliano, aiutami!
Massimiliaaanooooooooo
Vedi, si è già allontanato...
Certo, se si chiamava UGO, gli facevi:
Aiutami, UGO!
Tac! E lo bloccavi...
ma così...
Dai, caso mai CIRO....
(Cit. Dot.)
Antonio

 :-)
Esiste 
www.sitocomune.com
 e questo Ng, ha raddrizzato e tirato su capolavori
ritenuti persi come alcuni autoctoni di Civitavecchia...
ciao MAssimiliano
p.s. per rispetto agli altri non chiedere direttamente ad alcun
frequentatore. Ad esempio, se non avessi fatto un richiamo diretto, il
Cerbero laziale ti avrebbe tranquillamente risposto, invece in segno di
protesta ha richiamato la battuta di Massimo  Troisi... mò passo a lui..

 ha scritto nel messaggio
news:xxdNa.145605$Ny5.4...@twister2.libero.it...

Per il sirenetto di i.c.a.a. ed il premio cortesia
Vota Antonio, Vota Antonio, Vota Antonio, Vota Antonio... Italiani alle
elezioni Votate Antonio La Trippa... Italiani Votate La Trippa
Vota Antonio, Vota Antonio, Vota Antonio, Vota Antonio..
(mai citazione fu più calzante!!!)
MAssimiliano

 protesta ha richiamato la battuta di Massimo  Troisi... mņ passo a lui..
del "grande" Massimo Troisi !
--
a.cara 
Togli qualcosa dall'email

 [cut]
ciao MAssimiliano