mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Numero di serie formattato di un disco

long... :(((
API GetVolumeInformation()
quello che ti serve e' il valore di ritorno del paraametro
lpVolumeSerialNumber
Il numero di serie che viene riportato da DIR e' quello, semplicemente
trasformato in esadecimale :-)
Es.        469970482   ->     1C03-2E32
--
Roal Zanazzi
z...@iol.it


Bah, secondo me il trattino non ha significati particolari (e di sicuro non
e' codificato nel Long del numero di serie).
Quel trattino e' li solo in visualizzazione della stringa, non ha nulla a
che fare col numoro di serie del disco (che, ripeto, e' un Long)
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Di nuovo Data Report e flex grid

Salve ragazzi .... ho una nececcità di stampare dei dati in una flex
Grid...
ora il problema è che i dati della griglia vengono fuori dall'unione di due
Query....
Ho provato a scorrere i dati con un ciclo for e portarli sul DataReport ma
non vanno...
devo per forza agganciare il datareport al database....o posso solo leggere
i dati della flex grid...
non uso componente data....
Vi ringrazio aiutatemi...
Come posso fare ?
grazie

 wrote in message
9pu5dv$p7r$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: funzione ricorsiva

Ciao a tutti.
Io ho un problemino: vorrei creare una funzione ricorsiva che mi apra una
determinata directory e ne controlli il contenuto;
se trova un file, eseguo vari controlli, mentre se trova un'altra directory
dovrebbe richiamare se stessa e quindi
aprire la directory e controllarne il contenuto... e avanti cosě fino alla
fine della ramificazione.
come posso fare?
grazie in anticipo
Alessandro

 aprire la directory e controllarne il contenuto... e avanti così fino alla


 aprire la directory e controllarne il contenuto... e avanti così fino alla

Newsgroup: it.comp.lang.visual-basic
Titolo: [Meeting] ATTENZIONE : 22Marzo Offerta Trnitalia !!!!

Ok ragazzi ho appena richiamato questi disgraziati di trenitalia e mi hanno
confermato le voci che avevo sentito :
12Euro viaggi in intercity per sabato 8 e _SABATO_22_MARZO !!!
Quindi se ci sono trenisti si potrebbe rivedere la data del raduno oppure
scegliere l'altro locale quello senza le 2 settimane di prenotazione !!!!
Cosa ne dite ?
Per me e' indifferente salire in treno o in auto !
Facciamo una semi lista degli eventuali trenisti per valiare la proposta ?
Ricordo che il prezzo di 12 Euro e' per 1 viaggio DA A anche cambiando +
intercity vale solo con prenotazione e quindi si dovrebbe prenotare sia
l'andata che il ritorno !
Per info : chiamare il 892021 a 5,11Eurocent alla risposta e 2,11 al minuto
( trnitalia info )

 minuto ( trnitalia info )
e invece no.....12? è solo se prendi un solo intercity, se cambi il
biglietto costa 24?, guarda bene nel sito di treniitalia

 biglietto costa 24?, guarda bene nel sito di treniitalia
Gia' che bastardi , in pratica ho richiamato (povera ditta)
12 euro per viaggiare in un intercity
24 in un eurostar
cmq vedremo , e' solo per il 22 Marzo (aprile non si sa ancora e 8 marzo e'
troppo presto)
bha !
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/
Newsgroup: it.comp.lang.visual-basic
Titolo: problema tra VB6 e Office2000

ho provato a collegare un mio progetto in VB con un database access fatto
con Office 2000 tramite il controllo Data Control ma quando vado a prendere
nelle proprietà il Recordsource mi dice che il formato del database non è
riconosciuto ("UNRECOGNIZED DATABASE FORMAT ").
Come si può risolvere il rpoblema???
Grazie.
DG.

 DG.

 abbandonato).
con DAO 3.6 ci entri eccome! lo puoi utilizzare installando il SP3 di VB6
Ciao
Faber

 abbandonato).
Con dao devi cambiare i riferimenti ed usare il 3.6 e devi caricare il
database da codice:
Data1.DatabaseName = App.path & "\miodb.mdb".
--
Ciao a tutto il NewsGroup
Alex
alm...@tin.it


Newsgroup: it.comp.lang.visual-basic
Titolo: DLL

Aiutatemi!!!!
Dove posso trovare una utility che mi consenta di leggere le DLL?
magari in italiano.
Grazie
Tommaso

Se per leggere intendi elencare le 'funzioni' contenute, puoi utilizzare
Depends fornito con VB6; attenzione perchè le DLL generate da VB sono
ActiveX DLL e non DLL standard.
Ciao.
Alfredo.
tommaso ha scritto nel messaggio ...


Newsgroup: it.comp.lang.visual-basic
Titolo: E' il panico: decimal data type

Ok ragazzi,
sto nel panico più assoluto ... convinto che il controllo
della farpoint fpcurrency accettasse valori decimal
l'ho iniziato ad implementare nel mio progetto.
Mano a mano che andavo avanti aggiungevo funzionalità,
fino a che non mi viene in mente di mettere il
totale dei prodotti ordinati nella maschera delle generalità
così da facilitare l'utente.
Per il totale ho usato l'fpcurrency della farpoint come detto
poc'anzi.
Fino a che gli importi di test erano piccoli tutto ok ...
ma è successo che per stressare l'applicazione ho messo
il massimo valore ipotetico che si potrebbe calcolare,
ovvero ? 549.999.999.999.450,00
un modico stipendiuccio ;)))
beh il problema sta che non potendo gestire il controllo
importi superiori a 9.000.000.000 ... mi mostra i valori
con la E di esponente per dirmi che ci stanno n cifre
che non mi mostra.
Ora mi domando ... quanti calendari devo tirar giù per
risolvere il problema?
Accetto idee di ogni tipo, tranne quella di dirmi di conttare
la farpoint che ho già fatto.
Ciao
Andrea

la farpoint che ho già fatto.
Butta via il loro ocx.
-- 
ciao, hal

Ok, dopo averlo buttato rimetto nel mio progetto
l'ocx per la valuta che avevo fatto io e che non ho
usato perchè si comportava stranamente. Ormai
si era intrippato con le routine inialize, initcontrol
e roba varia.
No, non posso permettermelo ... almeno non ora.
Altre idee??
Ciao
Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: .net e reflection

Voglio capire come si può gestire la fase di progettazione dei controlli
con interfaccia grafica.
Penso che bisogna ottenere delle informazioni memorizzate come metadati.
In particolare uso:
Attribute[] attrs=Attribute.GetCustomAttributes(MyControl.GetType());
cerco nella matrice il primo Attribute che è una istanza di
DesignerAttribute.
E interrogo questo oggetto per ottenere l'informazione sul
ControlDesigner implementato dal mio controllo MyControl.
Ma a questo punto ottengo ad esempio una stringa di questo tipo:
"Forms.Windows.Forms.Designer.TextBoxBaseDesigner".
Questa classe come faccio a caricarla?
Assembly.load("Forms.Windows.Forms.Designer.TextBoxBaseDesigner")
restituisce errore.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 restituisce errore.
Forse perchè non esiste nel framework :)
Però non ho mica capito a cosa ti serve sapere come faccia VS a disegnare i
controlli.
Forse per farne uno tuo?
Ciao

 Forse per farne uno tuo?
proprio così.
in generale quale informazioni bisogna avere per individuare 
un assembly senza conoscere il percorso fisico sul file system?


 Ma a che scopo?
La logica che sto seguendo è sbagliata?


 un assembly senza conoscere il percorso fisico sul file system?
Beh, difficile :) "Assembly" è più o meno sinonimo di "file" (in realtà con
nelle prossime versioni di fw un assebly potrà essere formato da più file).
Forse puoi ottenere qualcosa con Assembly.GetReferencedAssemblies(), se ho
capito la domanda.
Ciao

 personalmente non ho mai guardato.
Per quello che ho capito un programmatore di un controllo per modificare
il comportamento
del controllo in fase di progettazione deve creare una classe che deriva
da ControlDesigner
che tra le varie cose se ho capito bene può filtrare i messaggi inviati
al controllo.
Di altro ancora non so.
ciao, e grazie.


 proprio cosě.
Frank,
in questo articolo di Tim Dawson trovi spiegato (e con esempi di codice)
proprio quello che cerchi:
http://www.divil.co.uk/net/articles/designers/hosting.asp
HTH,
-- 
.A
UGIdotNET - User Group Italiano .NET
http://www.ugidotnet.org
Read my blog at: 
http://www.ugidotnet.org/4.blog
Newsgroup: it.comp.lang.visual-basic
Titolo: [.Net] Relazione molti-a-molti tra Datatable

Aiuto, mi sono incasinato!!!
Ho una tabella anagrafica che contiene un po' di nominativi di persone e
imprese.
Ogni impresa puù avere n legali rappresentanti.
Quindi ho una tabella di relazione Imp_LegRap che contiene l'ID dell'impresa
e l'ID del suo legale rappresentante (che si trova nella stessa tabella
anagrafica)
Come posso riportare questa struttura in un Dataset, in modo che quando mi
posiziono su un record di un'impresa posso ottenere un altro elenco di tutti
i nominativi dei suoi legali rappresentanti?
I record della tabella di relazione riesco ad ottenerli facilmente, in
questo modo:
Dim parentCol1 As DataColumn = ds.Tables("Anagrafe").Columns("Id")
Dim childCol1 As DataColumn = ds.Tables("Imp_LegRap").Columns("Id")
DAL.DataSet.Relations.Add("Rel_ImpLegRap1", parentCol1, childCol1)
NomiTrovati = ds.Tables("Anagrafe").Rows(0).GetChildRows("Rel_ImpLegRap1")
Ma come posso avere i dati completi?
Grazie
-- 
Skysurfer

 i nominativi dei suoi legali rappresentanti?
Su una griglia tutte le imprese e al clic su una in una seconda griglia
visualizza tutti i dati relazionati ?
giuseppeD

 Ma come posso avere i dati completi?
http://makeashorterlink.com/?F2C215BC4
Prova a vedere se il tuo problema è lo stesso.
Salutoni
Sergio

 giuseppeD
Il fatto è che non devo usare le griglie.
Ho un form con due tabs, nel primo tab inserisco i dati dell'impresa o della
persona, nel secondo tab (che si attiva solo se i dati del primo tab sono
relativi ad un'impresa) devo gestire i dati del legale rappresentante.
Ciao e grazie
-- 
Skysurfer


Grazie per la segnalazione.
L'articolo mi sembra molto interessante, ma purtroppo non risolve il mio
problema.
Il fatto è che io non uso griglie, ma ho un form con due tabs. Nel primo tab
inserisco i dati della persona o dell'impresa. Nel secondo tab (che si
attiva solo se nel primo è stata inserita un'impresa) inserisco i legali
rappresentanti. Quindi quando clicco sul secondo tab devo ottenere un elenco
di tutti i legali rappresentanti dell'impresa su cui sono posizionato e dare
la possibilità di aggiungere/modificare/scorrere. Tieni presente che la
tabella in cui sono inseriti i legali rappresentanti e le imprese è la
stessa.
Grazie, ciao.
-- 
Skysurfer

P.S.
Come rimpiango FoxPro, dove con 3 linee di codice facevi l'impossibile
(almeno per quanto riguarda la gestione dei dati!)
Ciao
-- 
Skysurfer
Newsgroup: it.comp.lang.visual-basic
Titolo: La stampa blocca i command button e altro

Ho un programma che stampa direttamente sulla LPT1, dopo aver avviato
la stampa tutti i command button sono bloccati, anche quello per
ridurre la form a icona.
Che tecniche devo usare per poter continuare ad avere il controllo
sulla procedura, ad esempio vorrei inserire un classico cmd CANCEL per
interrompere la stampa.

interrompere la stampa.
  Prova a mettere un Doevents dopo l'istruzione Printer.Print.
  Ciao :-)
  Massimo
  Nell'indirizzo, inserire una "h" tra la "t" e la "u"
  In the address, insert an "h" between the "t" and the "u"

interrompere la stampa.
---------
Ciao!
Potresti usare l'oggetto "Printer" di VB (se hai la versione 5.0, assicurati
di avere installato l'SP3, che risolve numerosi problemi di questo oggetto).
Io, ad esempio, utilizzo il seguente codice per stampare un file di testo:
    With Printer.Font
        .Name = "Arial"
        .Size = 11
    End With
    Printer.Print TxtFile.Text
    DoEvents
    If Annulla = True Then
        Printer.KillDoc
        RipristinaFrm ("La stampa del file " & Backup.NomeFileWBF & " č
stata annullata.")
        Exit Sub
    End If
    Printer.EndDoc
Dopo aver avviato la stampa con "Printer.Print TxtFile.Text", l'istruzione
DoEvents restituisce il controllo al sistema operativo, in modo che esso
possa svolgere altre operazioni. Per interrompere la stampa, devi utilizzare
il metodo "Printer.KillDoc". Nella Guida in linea puoi trovare tutte le
informazioni che ti servono.
Alla prossima
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

Potresti usare l'oggetto "Printer" di VB (se hai la versione 5.0, assicurati
Non uso l'oggetto printer.print, ma apro la LPT1 come un file.

Newsgroup: it.comp.lang.visual-basic
Titolo: Microsoft Visual Basic 6.0, Setup

Ciao a tutti.
Scrivo per un'annosa questione, che non riesco proprio a risolvere.
Utilizzo il SO Microsoft Windows NT WorkStation 4.0.
Avviando l'installazione di Microsoft Visual Basic 6.0 (da CD), dopo la
selezione del tipo di installazione (in cui si chiede di selezionare tra
Custom e Tipical) il Setup torna una messagebox con il seguente errore
Setup could not open the file
'c:\WINNT\msdfmap.ini'
e la mia installazione si blocca definitivamente.
Potete aiutarmi ?
Grazie.
MdM
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

e la mia installazione si blocca definitivamente.
Bisognerebbe forse sapere quali opzioni hai selezionato, comunque
msdfmap.ini (e msdfmap.dll) sono componenti di mdac.
Forse, se provassi ad installare mdac prima di lanciare il setup di
visual studio, _potresti_ risolvere (informarmation provided as is, with
no liability ;-)
Per approfondire, prova qui:
http://msdn.microsoft.com/library/en-us/dnmdac/html/msdn_redistmdac.asp?frame=true
-- 
hth, hal

 wrote in message
news:a4tjfh$cjp$1...@newsreader.mailgate.org...

-- 

Newsgroup: it.comp.lang.visual-basic
Titolo: API: Grafica

Ciao a tutto il NG !!!
Riesco facilmente a scrivere sul Desktop utilizzando l'API TextOut o
a disegnarci usando LineTo, Ellipse, etc...
impostando come Device Context il valore restituitomi dalla seguente espressione:
mioDC = GetWindowDC(GetDesktopWindow)
C'è un modo per rendere "persistent" ciò che traccio sul Desktop, ovvero fare
in modo che non si cancelli se ci vado sopra con una finestra ?
Una specie di proprietà AutoRedraw da impostare a True...
Ciao,
*Roby*

 ha scritto nel messaggio
news:78d0e70f.03042...@posting.google.com

--
Morfeus®
Free Joint
:PII

Newsgroup: it.comp.lang.visual-basic
Titolo: Eseguire senza installare

E' possibile eseguire un'applicazione creata in VB senza obbligare l'utente
all'installazione?
Ho provato a mettere le dll e gli ocx necessari nella stessa cartella
dell'eseguibile, ma mi da ancora problemi l'accesso al database, sia con ADO
che con DAO, con il solito errore 430 "La classe non supporta l'automazione
o l'interfaccia prevista".
So che installando MDAC risolverei il problema, ma devo riuscire ad evitarlo
per rendere l'esecuzione del programma il più immediato possibile (per la
cronaca è un catalogo che deve essere visualizzato appena si inserisce il
cd)
Grazie mille a tutti

per ocx e dll devi metterli nella dir dell'applicazione come hai fatto
tu.....
per ADO invece il discorso è più complesso, perchè deve essere per forza
installato......
tieni presente che su Win2000/XP dovrebbe essere installato insieme all'OS,
altrimenti non puoi farci niente, mi sa che l'unica cosa è quella di usare
un db diverso, magari un semplice file di testo che non richiede nulla come
librerie esterne......
good coding!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262

 ha scritto nel messaggio
news:alkamc$1qn9l5$1...@ID-134521.news.dfncis.de...


con i file di testo non puoi usare direttamente SQL per le query.....
con DAO invece è bene o male la stessa cosa, solo che sei forzato ad usare
un db in formato Access, perchè DAO è studiato solo per quel db......


 ha scritto nel messaggio
news:e1if9.4461$Oz2....@twister2.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: http server visual basic e cgi

Ciao amici,
in giro ci sono diversi esempi di server http con codice sorgente visual
basic, ma non sono riuscito a capire come sarebbe possibile implementare i
cgi.
Suggerimenti?
Giulio

 cgi.
Un CGI non fa altro che leggere l'input del server http.
Può essere scritto in qualunque linguaggio.
Con VB, oltre al classico CGI (cgi-bin) è possibile utilizzare
un framework specifico, detto WinCGI (cgi-win) che ottiene
l'input tramite un file di testo invece che da stdin.
I server http in genere mettono a disposizione il framework
che utilizzano (solo pochi usano cgi-win, tipo il server della O'Reily).
La semantica in genere, comunque, è la stessa.
Se non hai trovato i framework, te li posso inviare entrambi
(sia cgi-win che cgi-bin). Sono modificati per accettare i
query touples, cosa che stranamente non è prevista nei
framework che ho trovate in rete.

 framework che ho trovate in rete.
Magari li invii pure a me: 
str...@comune.modena.it
Thanks
--
Ciaps
Stracca
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------

Ringrazio quanti hanno già risposto.
Il problema è che  io ho il server scritto in visual basic e vorrei
implementare i cgi ...
Ho già il framework per i cgi in vb
grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: Inserire informazioni dentro un exe vb

Ciao a tutti,
esiste un ocx o un'api per inserire dei dati (stringa o hex) in un file
eseguibile per poi andarli a rileggere, il tutto (inserimento e lettura)
anche a run-time?
ciao e grazie
-- 
A.S. Tronzo (544503)  - VII.33
Stagione 23: 4° in VII.33
elimina unsampdoriano per rispondere via email

 -- 
credo tu abbia bisogno di un file di risorse, cerca l'argomento nella guida.
ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: [!] Far rispettare il manifesto

Visto che la gente persevera a non rispettare il manifesto avrei una
proposta: spedire a tutti coloro che non rispettano il manifesto una (ma
anche due o tre) e-mail contenenti il manifesto in edizione integrale.
(Questo lavoro lo farei io)
Che cosa ne pensate?
Secondo me è una soluzione divertente che porterebbe anche a dei buoni
risultati. (Naturalmente prima dovremmo aggiungere questa regola al
manifesto altrimenti... )
--
W il Manifesto del newsgroup
Jimmy
-----------------------------------------------------------------
E-mail: 
jimmy...@hotmail.com
ICQ#: 41646051
- È insopportabile la superficialità dei critici che sostengono che chi si
siede davanti a un computer e partecipa a conversazioni online non vive una
vita autentica. (Howard Rheingold, cybersociologo)
- Siamo esseri analogici intrappolati in un mondo digitale e la cosa più
assurda è che siamo stati noi a crearci questo mondo. (Don Norman)
- I computer hanno troppe funzioni inutili e gli utenti troppo da imparare:
i manuali contenuti sul mio PC occupano lo spazio dell'Enciclopedia
Britannica (Michael Dertouzos, docente del Mit)
- La personalizzazione è tutto (Tim Koogle, chef executive officer di Yahoo)

 wrote in message 82o275$r88$7...@nslave2.tin.it...


 wrote in message
J7S34.3397$Bg7....@typhoon.libero.it...


 anche due o tre) e-mail contenenti il manifesto in edizione integrale.
Credo sia molto più civile far notare direttamente nelle risposte gli
eventuali compartamenti sbagliati. Secondo me questo è il metodo migliore in
quanto non si appesantisce il NG con post di critiche che durando il tempo
di spostare il cursore del mouse sul post seguente.
Ciao
Daniele
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        Le risposte alle tue domande le puoi trovare su:
 
http://www.murialdo.it/it_lang_vb


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ntsvc.ocx

qualcuno potrebbe mandarmi questo controllo p.f. ?
dovrebbe essere in msdn gennaio 97.
se possibile, se ci sono, con esempi.
tia, pal
--
andrea....@tin.it
free vb/sw: 
http://www.comune.modena.it/cittadini/apal/html/

 qualcuno potrebbe mandarmi questo controllo p.f. ?
Arriva. Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: HELP PER MICROSOFT AGENT

Salve a tutti!
Ho scaricato da
http://msdn.microsoft.com/workshop/c-frame.htm?/workshop/imedia/agent/defaul
t.asp tutti i componenti di microsoft agent, comprese le voice engines in
Italiano e Inglese US e il modulo per il riconoscimento vocale in inglese.
Pero' la documentazione per programmatori che ho trovato sul sito e'
assolutamente inadeguata!!! Qualcuno sa dirmi se posso trovare da qualche
parte una specie di guida semplice ma accurata orientata magari a Visual
Basic (piuttosto che a JavaScript o VBScript come nel sito microsoft) su
proprieta', metodi ed eventi da usare con i vari files di Agent (e anche le
varie speech engines!!) a partire da xvoice e xlisten che non hanno alcun
tipo di riferimento?
Grazie a tutti e ciao,
Lorenzo

 wrote in message
8q2mk4$9du$1...@pegasus.tiscalinet.it...


assolutamente inadeguata!!!
Provato sull'MSDN alla voce "microsoft agent"?
Ciao

 Ciao
purtroppo si... non so se ci capisco davvero poco io ma mi e' sembrato tutto
piuttosto superficiale! Grazie comunque,
Ciao  Lorenzo

 tipo di riferimento?


Newsgroup: it.comp.lang.visual-basic
Titolo: InnoSetup - Copiare chiave Registro di Sistema con altro nome

Ciao a tutti,
ho la necessità con InnoSetup di copiare (durante la fase di installazione) 
un'intera chiave del registro di sistema comprese tutte le sue 
sottocartelle.
E' possibile? Se si come?
Ringrazio tutti in anticipo.
Ciao
LupoNero 

 E' possibile? Se si come?
non c'è una funzione specifica, potresti però usare un trucco, ovvero
esportare il ramode l registri con regedit /S, lanciare un programma per
sostituire il ramo con quello voluto, ad esempio SED, e poi sparare il
ramo di nuovo nel registry sempre con regedit.
-- 
Inno Setup Extension Knowledege Base
http://www.vincenzo.net/isxkb
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [?!] Errore autocomposizione installazione: Dependency out of date

Durante la fase di autocomposizione dell'installazione mi appare il
messaggio:
"The dependency file for the following component(s) is out of date..."
riferito ai files:
COMCT232.OCX e
COMCTL32.OCX
Si può risolvere ? Devo consegnare un lavoro e sono bloccato =((
Grazie a chi risponderà
Wolf che credeva di averle viste tutte...
"Lo stress è quell'apostrofo grigio tra le parole...M'INCAZZO"
[Remove numbers for correct e-mail address]
"Tariffe a tempo sviluppano pensieri a breve termine"
(Nicholas Negroponte contro la TUT)
Visitate e supportate: --> 
www.notut.org
 <---

Ciao Wolf... il lupo perde il pelo...
Che versione di vb stai usando?
Quale autocomposizione?
-- 
;) G. Chiappori (ICQ 30904878)
webm...@chiappori.net
http://www.chiappori.net

Ciao Wolf... il lupo perde il pelo...
C'è compagnia da IHL oggi :-)
Di solito questo significa che hai installato dei componenti del VB di una
versione diversa da quella originale, ad esempio hai installato dei
componenti
di VB6 su quelli del VB5. Prova a controllare la versione dei files.
Di solito, (ma non garantisco niente...) la compatibilità inversa è buona,
io ho sempre ignorato l'errore senza effetti collaterali (finora).
Naturalmente, dopo aver fatto questa affermazione tutti i miei programmi
che non si erano ancora accorti di niente me la faranno pagare piantandosi
tutti contemporaneamente con messaggi d'errore incomprensibili.
La legge di Murphy è sempre in agguato !
Se vuoi andare sul sicuro, per la compilazione dei definitivi dei tuoi
programmi
usa una macchina "pulita", non i "muletti" che noi programmatori abbiamo di
solito:
installa solo Windows, gli aggiornamenti richiesti, (IE, SP vari ecc.), il
VB
con i suoi SP. Carica i sorgenti dei tuoi prg, e fai un primo controllo.
Di solito, se c'è qualche controllo fuori fase ti avvisa già a questo punto.
Per "de-aggiornare" (scusa il termine ma non me ne viene in mente uno
migliore)
i riferimenti ai controlli, invece di caricare il VBP originale, crea un
prog nuovo,
elimina il Form1 creato di default e aggiungi uno ad uno i tuoi form a
moduli.
Ricollauda accuratamente il prog e buona fortuna !
Gaetano
------------------------------------------------
In questa signature ci andrebbe una bella frase,
appena ne trovo una buona ce la metto...
------------------------------------------------
Real E-address: 
gaet...@hotmail.com

Uso vb5.... l'autocomposizione che viene distribuita con vb5... grazie ciao
--
Posted from 
arcanet.it
 [151.99.191.3]
via Mailgate.ORG Server - 
http://www.mailgate.org

Quale autocomposizione?
L'autocomposizione installazione della ver. 5
Ho anche ricevuto una risposta e-mail (ringrazio chi me l'ha mandata)
secondo la quale potrebbe essere un bug del componente...
Wolf che fa due prove...


Ricollauda accuratamente il prog e buona fortuna !
Proverň, grazie comunque =)
Wolf che tra un po' riformatta tutto
"Lo stress č quell'apostrofo grigio tra le parole...M'INCAZZO"

Newsgroup: it.comp.lang.visual-basic
Titolo: OCX per mappe interattive

Salve a tutti, sto cercando un OCX che renda una bitmap interattiva, anche a
pagamento (ma ragionevole).
Grazie a chiunque mi possa aiutoare.
Michele

 ha scritto nel messaggio
news:8bkonc$knp$1...@diesel.cu.mi.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Calcolo Bioritmi

Dovrei scrivere un programmino per il calcolo dei bioritmi.
Ho trovato in rete qualche suggerimento, ma avrei bisogno di conoscere la
formula esatta.
Qualcuno mi puo' aiutare?
Ringrazio anticipatamente.
Agostino


Non esiste "la formula esatta"...
Puoi trovare diversi valori dei cicli, da autore ad autore, con
interpretazioni differenti.
N.B. non che io sia un "esperto" di bioritmi, ma a suo tempo avevo fatto un
programmino che generava bioritmi in C++, come "palestra" per imparare il
linguaggio... non ho nemmeno tenuto i sorgenti.

 ha scritto nel messaggio
news:8ln0p4$i5n$1...@pegasus.tiscalinet.it...


(...)
per contare i gg dalla data di nascita alla data in cui si fa l'analisi:
    Giorni=DateDiff("d", DataDiNascita, Now)
per avere il resto della division:
    Resto=Giorni Mod 28
Spero di esserti stato di aiuto
        Ciao, Silvio

 ha scritto nel messaggio
news:8lsd2u$rm3$4...@nslave2.tin.it...



Non e' un numero "magico" ;-)
Semplicemente, la teoria dei bioritmi si basa su cicli vitali (emotivo,
fisico e intellettuale, alcuni ne elencano anche un'altro, ma non ricordo
quale).
Essendo cicli, sono linee sinusoidali che vanno da 0 (zero) ad un massimo,
tornano a 0, poi vanno al minimo, tornano a 0 e... si ricomincia.
Il ciclo fisico ha una durata di 23 giorni
il ciclo emotivo di 28 giorni
il ciclo intellettuale di 33 giorni (alcuni indicano valori diversi di +/- 1
giorno)
Al momento della nascita partono i 3 cicli (da 0).
Per sapere il valore puntuale di una delle 3 "variabili", devi:
- calcolare il numero di giorni trascorsi dalla nascita (usa DateDiff)
- prendere il resto della divisione dei giorni per la durata del ciclo
- trasformare il numero ottenuto in modo da avere il valore della curva in
quel punto (giorno)
Per ogni ciclo (0-massimo-0-minimo-0) ottieni quindi un range di valori
reali tra 0 ed il numero di giorni di durata del periodo (23, 28 o 33).
Per la trasformazione del numero, ti consiglio di mantenere 3 array che
funzionano come "tabelle di conversione", es. per il ciclo fisico:
0=0
1=+0.17
...
6=+1
...
12=0
...
17=-1
...
23=0
In questo modo il numero "magico" trovato sara' l'indice nel tuo array,
l'elemento corrispondente a quell'indice sara' il valore da moltiplicare per
i pixel o twips per disegnare la linea.
Consiglio: se usi solo numeri interi ed eviti i single o double, il calcolo
sara' piu' veloce.

Newsgroup: it.comp.lang.visual-basic
Titolo: prova non leggere

prova

Mai sentito parlare di it.test ? :((
Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto su campi data

Ciao a tutti,
sto realizzando una select su un archivio su un campo data, per selezionare
tutti i records che
hanno la data uguale a quella che l'utente inserisce in una textbox
 chiamiamola text1.text ).
Qualcuno puo' indicarmi la sintassi corretta ?
Grazie per l'aiuto.
Ciao,  Nico.

 spero possa esserti utile :
Set DB = OpenDatabase(App.Path & "\" & "mio database.mdb", False, False)
'Apre il database
Set Rs = DB.OpenRecordset("SELECT * FROM mia tabella WHERE data='" &
text1.Text & "'")

Ciao, grazie per la tua risposta.
Seguendo il tuo consiglio, ho scritto il seguente codice:
st2sql = "Select * from lavoraz Where datain = '" & Text1.Text & "'"
    With Data2
      .RecordSource = st2sql
      .Refresh
    End With
ma alla refresh si blocca e segnala errore 3464,  tipi di dati non
corrispondenti nell'espressione criterio.
Ho provato anche ad usare la funzione Cdate, con lo stesso risultato.
Hai qualche idea    ?
Grazie comunque ancora.
Nico

 wrote in message 81sf77$s53$1...@nslave1.tin.it...

Ciao Nico, chiedo scusa per l' intromissione, ma vorrei aggiungere (cosa
fondamentale) che i campi data necessitano non di un formato stringa, ma di
un carattere quale è il cancelletto ...... #.
Quindi la tua SQL si risolve così:
          st2sql = "Select * from lavoraz Where datain = #" &
Cstr(Text1.Text) & "#;"
Credo oltresi che il Cstr non sia indispensabile, ma non ne sono proprio
sicuro, poichè il TextBax restituisce già in formato stringa.
Saluti Luigi ..... A.R.A.Soft Analisi Risparmio Aziendale
                    mailto: 
ara...@libero.it

 sicuro, poichè il TextBax restituisce già in formato stringa.
aggiungo solo che lavorando con le date ricordati che sql usa -- direi
solo -- il formato americano, MMGGAAAA. quindi magari fai un po' di prove e
controlla cosa restituisce con date tipo 3.5.99, se 3 maggio o 5 marzo.
ciao, andrea

 wrote in message Gir04.8072$Wa.7...@typhoon.libero.it...


 wrote in message 
81ui64$au0$1...@nslave2.tin.it...


Grazie di nuovo a tutti per i consigli.
Funziona benissimo.
Ciao.
Nico

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]: left top e currentx.....

Salve...solito problema scemo....
ho un form con dentro un controllo... quando clicco sul controllo io
intercetto la X e la Y del Mouse down e vorrei che apparisse un nuovo form
(contenente informazioni) ESATTAMENTE nel punto in cui ho premuto il
tasto....
ho provato con me.left+controllo.left+X ma nisba...il form comparesempre +
sinistra del punto cliccato.........
.............idee?
Questa é la V volta che mi incasino su questo problema, solo che non riesco
a trovare le vechie soluzioni e non ho molto tempo per finire.....se mi
aiutate prometto che questa volta imparo a memoria..=))))
--
L'Inossidabile Kevlar
Proud to be a IHGGer (still without number)
  --until the Great Archiever will notice me--

 .............idee?
ho messo una PictureBox su Form1, e in Picture1_MouseUp:
    Load Form2
    Form2.Move Left + Picture1.Left + X + (Width - ScaleWidth), _
        Top + Picture1.Top + Y + (Height - ScaleHeight)
    Form2.Show
(Form1.ScaleMode = 1)
Ciao     :)
Faber



Newsgroup: it.comp.lang.visual-basic
Titolo: OT - ma voi che prg usate?

Scusate la domanda un po' OT.
Ma voi che utility usate per leggere le news?
A me outlook fa un po' penare....
s

Outlook! E' ottimo


 writes:
z> Outlook! E' ottimo
Se non conosci di meglio del redmondware č ottimo. Io mi ci troverei da cani.
--
Gian Uberto| main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}
Lauri      |                        David Korn, 1987 ioccc best one liner 
(aka saint)|-------------------------------------------------------------------
em@ail: 
sa...@eng.it
 ( vedere X-nospam nello header - see X-nospam in header )

 A me outlook fa un po' penare....
E' buono salvo quando si pianta!
Ultimamente spesso si blocca e devo ricorre a ALT+CTRL+CANC per sbloccarlo,
ma prima non lo faceva quindi immagino che ho qualche piccolo conflitto SW!
:-(((

A me outlook fa un po' penare....
Forte' (Free) Agent!
http://www.forteinc.com/
oppure scegliti quello che preferisci da
http://www.vene.ws/download/download.asp#mai
Io ho il mio "credo" ;)
 Chi usa Outlook Express avvelena anche te!
 Digli di smettere o di scaricare la patch ai seguenti URL:
 
http://vene.dave.it/mail/patch.asp
 
http://www.freeweb.org/computer/SourceNet/Outlook.htm
-- 
Giovanni "Gyo" Perdicaro
E-Mail: 
gperd...@sicilyonline.it

 ha scritto nel messaggio
news:jx%T6.1838$Vk3...@news2.tin.it...


Io utilizzo Outlook Express e mi trovo bene.
  Sono l'unico ad esserne rimasto disgustato dopo che, avendolo
provato sul mio nuovo Athlon 1.2 GHz con 256 MB di RAM, ho notato che
ci mette parecchi secondi per caricarsi ma anche per caricare pochi
pulciosi titoli di un newsgroup? Ovviamente, sia Free Agent che
Gravity non solo sullo stesso PC ma anche sul vecchio P133 con 32 MB
di RAM mostravano la lista dei messaggi di un newsgroup in maniera
praticamente immediata. :-]]]
  Ciao :-)
  Massimo
  Nell'indirizzo, inserire una "h" tra la "t" e la "u"
  In the address, insert an "h" between the "t" and the "u"

  Sono l'unico ad esserne rimasto disgustato
No... dalle mie parti diciamo anche "OE, il modo piu' facile per
prendere un virus" oppure "Outlook, cosa vuoi postare postare postare
oggi?" ;)


 Se non conosci di meglio del redmondware è ottimo. Io mi ci troverei da
cani.

 ha scritto nel messaggio
news:jx%T6.1838$Vk3...@news2.tin.it...


 ha scritto nel messaggio
news:3b20d878...@news.galactica.it...


 ha scritto nel messaggio
news:3b20d878...@news.galactica.it...


Stefano Peppucci ha scritto:

Io, dopo aver penato abbastanza, l'ho lasciato e ho iniziato a scrivermi il mio programma personale, copiando l'interfaccia di outlook.
Per ora funziona bene, anche se è ancora molto limitato.
-- 
Samuele Battarra
mail server: 
libero.it
account: battarsa

microsoft
  E cosa vogliamo dire del fatto che hai postato il tuo messaggio in
due copie? :-]]]

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ESRI - MAPobject 2.2 - Info !

Ragazzi cerco tra di voi qualcuno che sviluppa con questo SW, meglio se
lavorate in un Partner-Esri,
vorrei sapere in linea di massima le agevolazioni tra un partner esri e un
non partner, ci hanno fatto un offerta da 6.300 euro e il mio boss stava per
schiattare ! ^_^
C'e' nessuno di voi a cui possa chiedere 2 info ?
-- 
-Gigio@Work(?)-

 schiattare ! ^_^
Contattami in privato, la mail é in chiaro... :-)
    Ciao
        Allanon
-- 
- SPAMKILLER
 lasciate il NOSPAM nell'indirizzo: 
itlangv...@michele.sytes.net
 e lasciate la parola SPAMKILLER nel corpo dell'email

Newsgroup: it.comp.lang.visual-basic
Titolo: API E VESPE!!!

Scusassero.....
Informazioni mi servirono...
Non riuscii ad utilizzare GetWindows e GetSystemWindows etc.... mi
aiutassero???!!
Altro problema!!!!
Come posso registrare l'icona sul Windows.. es.
Se io faccio doppio clic su un doc, lui riconosce che è di Word e carica
Word passando l'argomento nome file.... come si fa a registrare l'icona in
tal modo?
Prego a tutti per chi mi ringraziasse!
P.S. Che mex scellerato!! E' IL CALDO TORRIDO DELLA SARDEGNA!!! ... io credo
che sia a causa dei doppi AIRBAG (coperti per 1/4) che ci sono in giro per
le strade balneari!!!! (ci invidiate per questo neh?!!!!, già e noi
invidiamo tutto il continente, perchè le sarde... sono un casino!!!!!)

aiutassero???!!
Ok...
E facciamo anche questa... Raga, ho gia' risposto a una tonnellata di
messaggi oggi ! Ho le dita distrutte... :-) 
Vai col lisssssio !
Per la directory di Windows
'dichiarazione di Function per la funzione
'GetWindowsDirectory (permette di saper la directory
'di Windows)
Private Declare Function GetWindowsDirectory _
Lib "Kernel32" Alias "GetWindowsDirectoryA" (ByVal _
lpBuffer As String, ByVal nSize As Long) As Long
'dichiarazione delle variabili utilizzate
Dim WinPath As String
Dim Rtn As Integer
Const MAXWINPATH = 144
WinPath = Space$(MAXWINPATH)
Rtn = GetWindowsDirectory(WinPath, MAXWINPATH)
WinPath = Left$(WinPath, Rtn) 'troncamento della stringa al byte 0
Label1.Caption = WinPath      'restituisce il percorso di windows
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
                 Trust no ONE.
Per rispondermi via E-Mail togli STOPSPAMMERS.
Guarda la RFD per it.comp.prog.collaborazione !

Newsgroup: it.comp.lang.visual-basic
Titolo: format & unformat

Salve!
vorrei formattare un numero e avere la possibilita' di tornare
indietro al numero senza i separtori delle migliaia. 
come fare?
es. 
dim num as single
 Label3.Caption = "totale" & Format(num, "#,##0.00")
come tornare indiatro senza utilizzare la var num?
dim nPippo as single
unformat(cdbl(label3.caption)) ' NON FUNZIONA!
Grazie anticipatamente
PFM
--
To reply please remove from e-mail 'xyz'- Per rispondere togliere 'xyz' dall'indirizzo e-mail.

 ha scritto nel messaggio
news:3a52e55...@news.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Importare indirizzo internet.

Visual basic 6
Salve Qualcuno sa se è possibile ed eventualmente come importare dalla barra 
degli indirizzi di internet explorer un indirizzo internete metterlo  in un 
text.text?
grazie .. 

 ha scritto nel messaggio 
news:x8kuj.35812$Xg7....@tornado.fastwebnet.it...

Prova a riadattare:
'-->
'--> inserire il riferimento a: Microsoft WinHTTP Services
'-->
Dim HttpReq As New WinHttpRequest
Dim strUrl As String
strUrl = "
http://www.google.it
"
On Error Resume Next
    HttpReq.Open "GET", strUrl, False '<-- Open an HTTP connection.
    HttpReq.Send '<-- Send the HTTP Request.
    If Err.Number <> 0 Then
        Debug.Print strUrl & ", non va da nessuna parte!"
    Else
        Debug.Print HttpReq.responseText '<-- restituisce l'HTML
    End If
    Err.Clear
    HttpReq.abort
Set HttpReq = Nothing
'---
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.lang.visual-basic
Titolo: EDI e visual basic

ho cercarto su google, ma trovo solo aziende che propongono soluzioni 
EDI.........
Conoscete un sito che spieghi bene come funziona la cosa e sopratutto 
l'integrazione edi con visual basic, ad esempio la formattazione del file 
necessaria per lo scambio dati?
ciao e grazie in anticipo...
Icchese 


ciao,
prova a vedere a questo link
http://www.techdata.it/Rivenditori/EDI/strutture.asp
Lorenzo

 necessaria per lo scambio dati?
Ma l'EDI non era morto con l'avvento di Internet? Se non erro nel 
1995-96 andava di moda tra le grosse aziende, ma poi si è perso per strada.
bye
-- 
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.nicolaottomano.it/sinapsi.htm
email spamtrap: 
spam...@nicolaottomano.it

 --
Penso che chi lo sta usando, parteciperebbe volentieri al suo funerale ;-)
Da quel che ne so (mi ci ritrovo in mezzo solo perche' piu' di qualche
azienda mi ha chiesto interfacce gestionali<->EDI) sono grosse catene
di distribuzione straniere che lo impongono come standard, senza alternative.
Morale, qui in Italia, bisogna appoggiarsi a strutture tipo itapack, 
praticamente
su CDN con tutti i costi fissi che ne derivano.
Lorenzo

> Penso che chi lo sta usando, parteciperebbe volentieri al suo funerale ;-)
infatti :)
da andare al manicomio, forse solo perche' il cliente ha sentito dire che e' 
fico......
quando vedra' il preventivo, penso rinuncera'.
;))
ciao e grazie a todos
Icchese
Newsgroup: it.comp.lang.visual-basic
Titolo: [Ripostato] ? COM+ & Transazioni

ciao a tutti.
scusate se riposto ma non ho ancora trovato risposta..
ho un problemone di logica che non riesco a chiarimi.
sto studiando COM+...
ho letto che si possono fare le transazioni..
premesso che so cosa è una transazione e come funziona, ma l'ho sempre
usata con i database:
apro la transazione, faccio quello ceh voglio sui dati e infine decido
se fare il commit o il rollback.
ma le transazioni riferite ad un oggetto (COM appunto) che cacchio
vogliono dire??
non riesco a triovarmi un esempio pratico con cui chiarirmi le idee...
grazie a tutti
Daniele

 idee...
L'esempio tipico di transazione è il prelievo di una somma di denaro
da un conto bancario ed il versamento della stessa in un altro. Questa
deve essere vista come un'operazione atomica, e quindi una
transazione. Se una delle due operazioni (prelievo o versamento)
dovesse fallire bisognerebbe necessariamente ripristinare lo stato
iniziale.
Quindi un oggetto COM che si occupi di spostamenti di denaro deve
necessariamene lavorare con le transazioni.
Ed in questo caso le transazioni del db non sono sufficienti perché i
due conti risiederanno su db diversi.
Ciao.
--
BSD is for UNIX-lovers -- linux is for Windows-haters.

quindi in realtà COM+ si occupa di mettere in transazione tutti i database
interessati e eseguire su tutti o il
commit o il rollback?
e magari fa la stessa cosa anche se alcune sue variabili interne (della
DLL)? cioè io setta una variabile ad una valore e se poi faccio un Abort
lui me la riporta al valore precedente??


 precedente??
Bisognerebbe provare, non vorrei risponderti qualcosa di sbagliato,
perché è molto che "trascuro" COM+ (e comunque non l'ho mai
approfondito più di tanto).

Newsgroup: it.comp.lang.visual-basic
Titolo: [help!] permessi di un mdb in lan

scusate se riposto dopo soli 2 gg ma temo di avere una certa urgenza.
posso mettere su un server nt un mdb in modo che uno o piu' utenti possano
arrivarci tramite un mio exe ma non in altro modo ? come devo configurare i
permessi ?
tia, pal
--
andrea palazzi
xday at libero dot it
free sw - 
http://www.comune.modena.it/cittadini/apal/html/

 wrote in message
Ue1d4.13953$N1.1...@news.infostrada.it...




Newsgroup: it.comp.lang.visual-basic
Titolo: Sorgente OCX

Qualcuno potrebbe mandarmi il sorgente di un'OCX
(ma OCX e' maschile o femminile?) tremendamente
semplice? Che ne so, sul SC ce n'e' uno che crea una
textbox che accetta solo numeri. Una cosa del genere.
E' per farmi un'idea di come si fa.
Ringrazio sin d'ora chi ascoltera' questo appello.
Ciao
Giulio

Newsgroup: it.comp.lang.visual-basic
Titolo: USB: come interfacciarsi?

Qualcuno sa dove trovare un sorgente demo?

Eppure ci deve essere qualcuno che ha fatto qualche programmino
per questo dispositivo!

 wrote in message 8358ek$k3k$1...@nslave2.tin.it...



Si li avevo gia' guardato e ci sarebbe un demo di tal "John Hide" che fa
riferimento
a Windows 98DDK (di cui non ho ancora fatto il download [2-3 ore]) (Ho
trovato solo questo).
Volevo pero' vedere se qualcun'altro aveva fatto qualcosa, (per maggior
chiarezza).
Artu.

 wrote:
caro "Artu" non è cosa semplice...
Dai un'occhiata alle seguenti cose:
www.microsoft.com/hwdev/desinit/wdmusb.htm
 
Sito Ms dove trovi delle specifiche USB / Ambiente Windows
http://www.usb.org/forums/retail/webboard.html#post
Forum per sviluppatori USB (sconfortante per programmatori VB)
Infine con un motore di ricerca trova "USB Central"  ed il file
usbhidio.zip.
Ad ogni modo VB per prestazioni USB interessanti (>64 kbit/sec) non è
adatto. 

Newsgroup: it.comp.lang.visual-basic
Titolo: compattare mdb access 2000 in runtime

grazie a chi mi risponderŕ.

 grazie a chi mi risponderà.
Questa routine, che ho scritto mesi fa, funziona egregiamente. Ho fatto
ora qualche modifica al volo, non testata. Spero che la testata non la
sbatta tu perché ho rovinato la routine :-) In particolare, la mia
versione compattava files che non stavano nel front-end. Se la routine
non dovesse funzionare sul db in cui essa stessa risiede, ho paura che
tu sia obbligato a suddividere il db in Front-End e Back-End, lasciando
la routine nel Front e facendo sì che compatti il Back.
Auguri...
---------------------------------------------------
Private Sub cmdCompact_Click()
 MsgBox "Chiudere i database aperti sui computer collegati prima di
continuare!.", vbInformation, "Manutenzione Database"
 'chiude tutte le maschere basate su query o tabelle, lascia aperte
quelle di pura interfaccia.
 Dim frm As Form, Trovata As Boolean, sTempDB As String, sTargetDB As
String
 
'se si chiude una form durante il ciclo for, cambiano gli indici e
possono rimanere maschere aperte,
 'quindi bisogna far cominciare il for da capo se ha appena chiuso un
form
 Do
  Trovata = False
  For Each frm In Forms
   If frm.Name <> "NomeMascheraCorrente" ' And frm.Name <> "Altra
eventuale maschera" Then
    DoCmd.Close acForm, frm.Name
    Trovata = True
   End If
  Next frm
 Loop While Trovata
 On Error Resume Next
 
 '---- Trovo il path e il nome del file mdb. Questa era una routine a
parte.
 Dim cDB As Database
 Dim sPath As String
 
 Set cDB = CodeDb 'Code Db restituisce il path completo del DB corrente.
 sPath = cDB.Name
 cDB.Close
 Set CDb = Nothing
 sDBFileName = Dir(sPath, vbDirectory) 'Ecco il nome file pulito con
estensione
 sDBPath = Left(sPath, InStr(3, sPath, sDBFileName, 1) - 1) 'Ora abbiamo
solo il path.
 'elimina eventuale file temporaneo precedente
 sTempDB = sDBPath & "dbTemp.mdb"
 sTargetDB = sDBPath & "Nome del file da compattare.mdb"
 
 If Dir(sTempDB) <> "" Then
    Kill sTempDB
 End If
 
'compatta il db
 DoCmd.Hourglass True  'mouse a clessidra
 Err.Clear
 DBEngine.CompactDatabase sTargetDB, sTempDB
 DoCmd.Hourglass False
 If Err Then
    MsgBox Err.Description
    Exit Sub
 Else
    Kill sTargetDB
    FileCopy sTempDB, sTargetDB
 End If
 
 MsgBox "Il database è stato compattato correttamente.", vbInformation,
"Compattazione Database"
 
End Sub
-------------------------------------------------------
Spero ti serva.
Flavio Ronco
-- 
f.ronco@*NonMiServeNiente*
flashnet.it
http://www.metabrains.com
  [Under Construction]
-------------------------------------------------------------
"Che pubblico in gamba! Se ci dite dove lavorate,
domani mattina se abbiamo tempo vi veniamo a vedere"
[Paolo Rossi]
Newsgroup: it.comp.lang.visual-basic
Titolo: Formattazione tempo

Ragazzi, visto che i avete già risolto qualche problema, ci rifaccio 
chiedendovi (a chi sarà così gentile da rispondere) come formattare un 
stringa in ore, minuti e secondi. Mi spiego meglio: in txtTempo.Text 
inserisco 00.10.25 (che sarebbero 0 ore, 10 min e 25 sec), come faccio a 
inserire in una variabile il valore che mi restituisce la proprietà Text in 
modo che possa poi manipolarlo, addizionarlo etc. etc. come tempo e non 
averlo più come stringa?
Se devo poi inserire il valore della variabile nel campo di una tabella 
creata con Visual Data Manager, che impostazione dò al campo (Double, 
Date\Time...)?
Grazie a chi risponde e a chi soltanto legge.
Ciao 

Se non erro basterebbe dichiarare la variabile come Date e assegnarle il 
testo castandolo con CDate():
Dim D As Date
    D = CDate(Text1.Text)
-- 
Quando noi ignoranti eravamo di piů, tutto era piů bello (A. Celentano).
  ___   _   ___ _  _______   _______ ___
|   \ /_\ | _ \ |/ / _ ) \ / /_   _| __|
| |) / _ \|   / ' <| _ \\ V /  | | | _|
|___/_/ \_\_|_\_|\_\___/ |_|   |_| |___|