mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: numero progressivo

Buon anno a tutto l'NG.
Ho copiato dal sito di Karl questa funzione e nonostante la mia incapacità 
cronica funziona perfettamente, purtroppo mi viene la necessità di partire 
con il primo numero che sia un 0 e non 1, secondo voi è possibile?
Function FctNr()
'restituisce un numero incrementale in una maschera
'lo mostra in una casella di testo con Origine controllo: =FctNr()
  On Error GoTo FctNr_Error
  Me.RecordsetClone.Bookmark = Me.Bookmark
  FctNr = Me.RecordsetClone.AbsolutePosition + 1
FctNr_Exit:
  Exit Function
FctNr_Error:
  If Err.Number = 3021 Then FctNr = 0   'nuovo record
  Resume FctNr_Exit
  End Function
Saluti Andrea
(non mollo) 

  End Function
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA) 

 FctNr = Me.RecordsetClone.AbsolutePosition
Ottimo grazie! Avevo provato a mettere -1 ma di provare a toglierlo proprio 
non ci avevo pensato.
Adesso ho modificato così la stringa:
FctNr = Me.RecordsetClone.AbsolutePosition & "/06"
Volevo che venisse in automatico l'anno corrente ma non ci sono riuscito.
Saluti Andrea
Ps: salutami Vienna 

 Ps: salutami Vienna
ok: "Servus Wien"
-- 
;-)


 ok: "Servus Wien"
Se conosci "Servus Nini Teuber"
Un'altra domanda: La tabella collegata alla maschera non mi registra più il 
progressivo che prima mettevo io manualmente, ha un senso adesso registrare 
il numero (ammesso che si possa fare) oppure no?
Saluti Andrea 

 adesso registrare il numero (ammesso che si possa fare) oppure no?
Dipende cosa vuoi fare/ottenere con il numero.
Il sistema descritto produce un numero progressivo in un campo
calcolato per mostrarlo sullo schermo. Niente viene salvato.
Il numero solo è valido per il momento.
Se invece hai bisogno di un numero salvato devi scegliere un sistema
diverso. Ci sono mille discussioni nei NG su come usare DMax+1
ecc. per questo scopo.
-- 
HTH


 Karl
Ciao Karl
vedo, con piacere, che conosci Vigata!  allora anche Montelusa?
hai visto i films del commissario Montalbano oppure stai imparando a leggere
pure il siciliano? :)))
Daniele

 leggere pure il siciliano? :)))
Ho solo visto i film mentre la mia padrona privata (che s'interessa
di più per libri di fiction) conosce anche tutti i libri.
-- 
cu


 ecc. per questo scopo.
Grazie!
Newsgroup: it.comp.appl.access
Titolo: Problema apertura documento word da access come fare?

Sono nuovo e inesperto
Che tipo di istruzioni devo usare?
ad un evento click di un pulsante ho inserito questo codice:
Set oApp = CreateObject("Word.Application")
    oApp.Visible = True
    oApp.Open Name:="c:\prova.doc"
Con queste istruzioni mi dice che il metodo non è supportato....
Mi farebbe comodo sapere anche dove repire informazioni su questioni di
interazione e automazione tra i diversi applicativi microsoft.....
Vi ringrazio tutti per l'aiuto
Nanno

 ha scritto nel messaggio
news:KB4Bb.66322$AX1.2...@news1.tin.it...

Prova questo e guardati sulla guida in linea Shell
dim strPath As String
strPath =:"c:\prova.doc"
Shell "C:\Programmi\Microsoft Office\Office\Winword.exe " & strPath,
vbNormalNoFocus
SunRex

Nanno ha scritto:

Non esiste il metodo Open per gli oggetti di tipo Word.Application, esiste
per i Documents.
Prova con 
oApp.Documents.Open ("c:\prova.doc")
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
Newsgroup: it.comp.appl.access
Titolo: riferimento a una query da codice

non capisco perche mi dia errore il riferimennto da codice ad una query
set pippo = miodb.openrecordset("miaquery")
ho dichiarato correttamente sia pippo( pippo as recordset) e miodb as
database e poi ho settato miodb = currentdb
mi da errore di runtime 3061 parametri insufficienti previsto 1
ringrazio antic.

 ha scritto nel messaggio
news:3dbed...@news.dada.it...

Significa che la tua query è parametrica e quindi non puoi aprire un
recordset su di essa senza passargli i parametri.
Per vadere come aprire un recordset su una query parametrica, vai sul Sito
Comune (link qui sotto), nella Sezione Queries leggiti la FAQ di Federico
Luciani intitolata "Aprire una query parametrica da codice VBA".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 la query non è parametrica ha solo un criterio del tipo
forms!miafrm!mioControllo e la form è aperta


Scusami, non so come la chiami tu una query di selezione in cui scrivi
qualcosa nei criteri di selezione: io la chiamo parametrica e tu?
Se vuoi aprire un recordset su quella query, il fatto che la maschera che
contiene i parametri sia aperta o chiusa ad Access non importa nulla.
Comunque se da VBA vuoi aprire un recordset su quella query devi fare come
scritto nella FAQ del Sito Comune; naturalmente invece della riga di codice:
qdf.Parameters![Mese:] = "Marzo"
scriverai una cosa del genere:
qdf.Parameters("[Forms]![miafrm]![mioControllo]") =
Forms!miaform!mioControllo
Se poi, come sembrerebbe, ti scoccia e neppure provi a leggere la FAQ, fai
come ti pare.



Ma forse nella mia profonda ignoranza credevo che le query con parametri
fossero quelle in cui si impostano i parametri nell' apposita tabellina.
Mi ha tratto in inganno il fatto che se apro la query per esempio da una
macro questa si apre correttamente.
La soluzione prospettata sul sito comune mi sembrava troppo elaborata per
una cosa cosě.
Comunque se dici cosě proverň subito
grazie
e non mi scoccia leggere sul sito comune anzi se ben ricordi io sono uno di
quelli a cui non andava la ricerca e postai in merito proprio per poter
trovare cose utili senza stare a postare.
Newsgroup: it.comp.appl.access
Titolo: campo data e query... help

Ciao a tutti,
la domanda sembra ( e probabilmente lo sarà) banale ma sono 2 giorni che
provo a venirne fuori senza risultati:
Ho una tabella con una colonna di tipo data e vorrei fare una query dando
solo il valore dell'anno.... Come si fa?
Io ho creato una maschera con una casella di testo nella quale scrivo un
valore numerico che è l'anno da ricercare. Ho creato un pulsante che fa
me.requery sulla maschera stessa e la maschera ha come origine una query
dove come criterio per la colonna data ci dovrebbe essere.....
Forms![masc1]![...] o cosa? Io non ci riesco....
NB: il campo data ha il formato gg/mm/yyyy
Che mi consigliate?
Thanks for all,
Alessio


Nel pulsante scrivi il seguente codice:
Me.filter = "Year([CampoData]) = " & Me.CampoMascheraAnno
Me.filteron = true
Dove devi sostituire a CampoData il nome del campo della tabella con la data
e a CampoMascheraAnno il campo che hai aggiunto per l'inserimento dell'anno.
Fammi sapere saluti, Antonio.


Funziona! Grazie,
Alessio

Newsgroup: it.comp.appl.access
Titolo: Errore somma

Salve a tutti.
Access 2002 (adp)
Ho una maschera con i campi: Data, Ora1, Ora2, DurataInSecondi, Tipologia
Es.
15/04/2005    18:00:00    19:00:00    3600    2
15/04/2005    14:00:00    16:00:00    7200    2
15/04/2005    18:00:00    19:00:00    3600    1
Sul piè di pagina maschera visualizzo i totali per tipologia utilizzando:
=Somma(IIf([Tipologia]=1;Somma([DurataInSecondi]);0))
=Somma(IIf([Tipologia]=2;Somma([DurataInSecondi]);0))
TotaleTipologia1 =#Errore
TotaleTipologia2 =#Errore
Se riproduco la stessa maschera e formula in access 2002 (mdb)
TotaleTipologia1 =3600
TotaleTipologia2 =10800
dove sta l'errore?
Grazie a tutti

 ha scritto nel messaggio
news:d2mg8r$450$1...@area.cu.mi.it...

non c'è nussun errore :-)
bisogna eseguire la formula lato server.
---------------
ACC2000: Cannot Calculate an Expression Inside an Aggregate Function on a
Form or Report in an Access Project
http://support.microsoft.com/default.aspx?scid=kb;en-us;225992
---------------
Ciao Giorgio

 ha scritto nel messaggio
news:d2mg8r$450$1...@area.cu.mi.it...

Strano che con Access 2002 funzioni.
Prova con:
=Somma(IIf([Tipologia]=1;[DurataInSecondi];0))
=Somma(IIf([Tipologia]=2;[DurataInSecondi];0))
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 ha scritto nel messaggio
news:crA3e.22034$IN.4...@twister2.libero.it...

Questa soluzione funziona e mi da i totali a seconda in che riga mi trovo.
Se mi trovo nella riga con tipologia 1 mi somma quelli con tipologia 1 se
sono nella riga con tipologia 2 mi somma quelli con tipologia 2.
La cosa strana è che se escludo IIF, =Somma([DurataInSecondi]) su access
2002 adp mi effettua la somma di tutto il visualizzato.
La soluzione la server l'avevo già trovata. Non capisco questo funzionamento
anomalo.
Ciao
Fabio
Newsgroup: it.comp.appl.access
Titolo: Arrotondamento casella calcolata.

Buongiorno a tutti e scusatemi, ma vorrei sapere se esiste la
possibilità di arrondamento su una casella calcolata in quanto quelle
che uso io non arrotondano.
Se si può fare mi spiegate come,
grazie,
lino fornaro

 wrote in message 
news:76c3f80d-156f-4976...@i24g2000yqa.googlegroups.com...

Io uso questa funzione:
===========================
Public Function EuroRound(ByVal ValueToRound,  _
                          Optional DecimalDigit As Byte = 2)
ValueToRound = CDec(ValueToRound)
EuroRound = (Sgn(ValueToRound) * (Fix(Abs(ValueToRound) * _
            10 ^ DecimalDigit + 0.5) / 10 ^ DecimalDigit))
End Function
============================
Bruno

Newsgroup: it.comp.appl.access
Titolo: OT Power App di Microsoft: commenti?...

Ho sentito parlare di questa applicazione che dovrebbe (sostituire?) Access poiché più versatile in ambito clouds e web.... 
Cosa ne pensate? Qualcuno l'ha provata?

 Cosa ne pensate? Qualcuno l'ha provata?
 
Hai sentito stronzate da qualcuno che non conosce abbastanza bene le due 
applicazioni.
 
-- 
Ciao
Karl
*********
http://AccessDevCon.com
 
Access FAQ: 
http://donkarl.com/it
 

 Karl 
 
Sono rimasto .... "basito"... dalla risposta, probabilmente è stato il traduttore... ;-)
Credo tuttavia che il senso sia chiarissimo.
 
@Alex
 
 

 Sono rimasto .... "basito"... dalla risposta, probabilmente è stato il traduttore... ;-) 
 
Beh, siamo in due: credo sia la prima parolaccia di Karl in decenni di frequentazione di icda e icaa.
 
;-)
 

 ... probabilmente è stato il traduttore... ;-)
 
Infatti, a volte, quando sono pigro, uso un traduttore. Ma se hai 
notato... ;-)


 Karl 
 
Hai un traduttore fantastico...! ;-)
 
@Alex


E' uno dei primi esempi di applicazione dell'intelligenza artificiale
Invece di tradurre parole e significato come scritti, comprende tono ed 
intenzioni dello scrivente e riformula la frase a sua (della IA) discrezione

 discrezione
 
Questo è in effetti il caso in misura già abbastanza estesa. Da qualche 
mese sto usando il miglior traduttore attualmente disponibile 
(
https://www.deepl.com
) per un progetto di libro in inglese e per alcuni 
forum ecc. google, bing & Co non riescono a stargli dietro.
 
Stilisticamente, ha un inglese migliore del mio, il che non è male. 
Prova sempre a tradurre nel contesto dell'intero testo (si sente l'AI). 
Fornisce molto di più della prima traduzione preliminare. Questo mi fa 
risparmiare molto lavoro e migliora davvero lo stile nella lingua straniera.
 
Probabilmente non è ancora altrettanto buono con l'italiano e ha 
formulato qualcosa di grezzo. ;-)



Anvedi, pensavo di aver detto una stupidata
Invece c'ho azzeccato
Ssso proprio forte

 
 
supplemento:
Se sei veramente interessato al rapporto Access <-> Power Apps, puoi 
partecipare a un incontro online (però inglese) che terremo su questo 
argomento in gennaio:
 
https://accessusergroups.org/lunch/event/access-lunchtime-3-2021-01-26/
 
 
-- 
Ciao
Karl
*********
http://AccessDevCon.com
 
Access FAQ: 
https://www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: Campi colorati in base al valore Inserito

Ciao a tutti,
volevo risolvere un problema relativo ai controlli del campo di un
record, in particolare
vorrei fare cambiare lo Sfondo del campo in base al valore inserito.
Per essere più chiaro vi elenco le tre possibilità del campo:
L'elemento campo si chiama: Clienti.Stato_Cli
gli stati possibili sono:
ATTIVO
INATTIVO
POTENZIALE
Lo sfondo del campo dovrebbe diventare quindi
ATTIVO            Verde
INATTIVO        Rosso
POTENZIALE   Grigio
Forse questa cosa in VBA si può fare, ma prorpio non so da dove partire.
grazie a tutti
Cesco

 ha scritto
E' una maschera singola o continua ?
--
ciao xm
www.marcosanti.it

E' una maschera singola, ed il controllo del colore dovrebbe essere
fatto nella visualizzazione
di ogni singolo record.
L'intento e di fare in modo che sfogliando i record quel campo cambi lo
sfondo in base al valore inserito.


 di ogni singolo record.
Nell'evento "corrente" della scheda prova ad inserire questo codice, se
funziona fai anche gli altri due.
    If (Me.Clienti.Stato_Cli="ATTIVO") Then
          Me.Clienti.Stato_Cli.BackColor = 255                '255=Rosso
    End If
--
ciao MarcoS
www.marcosanti.it

     End If
Scusa, mi sono scordato di dirti che devi mettere un "colore" quando non è
nessuno dei tre, altrimenti ti mantiene l'ultimo selezionato.
Se fai una funzione con elseif alla fine metti un else con:
Me.Clienti.Stato_Cli.BackColor = "colore diverso dagli altri tre"
--
ciao MarcoS
www.marcosanti.it

 Scusa, mi sono scordato di dirti che devi mettere un "colore" quando non č

Newsgroup: it.comp.appl.access
Titolo: Collegamento con excel - come fare?

sto facendo (per ora solo sulla carta ;-)) un archivio clienti con nome,
ditta, telefono, e-mail eccetera. vorrei collegare ad ogni cliente anche le
relative fatture di excel, come fare?
ma le fatture si possono fare con access se mi creo un database degli
articoli (database che per ora ho fatto in excel)?
grazie

"Giovanni®" <giovann...@libero.itnospam> ha scritto nel messaggio
news:jrDt7.13754$C15.1...@news.infostrada.it...

Certo che si possono fare con Access. Anzi per come Access presenta i dati è
da preferirsi.
Comunque esiste anche un campo con tipo di dati "Collegamento ipertestuale".
In questo campo puoi mettere il percorso dei file di Excel.
Ciao, Carlo

 ha scritto nel messaggio
news:SKEt7.14610$C15.1...@news.infostrada.it...



Su 
www.sitocomune.com
 dovresti trovare qualcosa.
Anche nelle autocomposizioni DataBase di Access potrai prendere degli
spunti.
Normalmente il DB è composto da almeno quattro tabelle: Clienti, Articoli,
Fatture e DettagliFatture.
Fatture è legata Uno a Molti con DettagliFatture
Clienti è legata Uno a Molti con Fatture
DettagliFatture è legata Uno a Molti con Articoli (quest'ultima relazione
puoi ometterla).
Magari puoi aggiungere una tabella Fornitori e legarla agli Articoli.
Buon lavoro...sono sicuro che ti avremo come ospite fisso di questo NG.
Ciao, Carlo

 DettagliFatture č legata Uno a Molti con Articoli (quest'ultima relazione


 wrote in message
SKEt7.14610$C15.1...@news.infostrada.it...

Ciao sono massimiliano e mi permetto di aggiungere all'attento Carlo Cos una
banalità: i dati inseriti in excel sono interamente riportabili in access,
cioè se passi a Access,  non perdi nulla del lavoro già fatto!!!.
ciao
ciao

Newsgroup: it.comp.appl.access
Titolo: Help FAX

Help....
Ho una lettera circolare e una tabella contenente gli indirizzi dei
destinatari.
Questa lettera la devo inviare via FAX a circa 500 persone.
Vorrei sapere se è possibile con Access mediante VBA far stampare queste
lettere in un programma di invio fax (io ho WinFAX 9) e magari passargli al
suo interno il numero del fax a cui deve essere inviato o anche solo salvare
questa pagina creata in formato FAX.
Spero di essere stato chiaro
Grazie



vedi su 
sitocomune.com
Saluti.
Emanuele.

Newsgroup: it.comp.appl.access
Titolo: arrotondamento

Qual è la formula, con Access, per l'arrotondamento per eccesso e quello per
difetto?
fatemi sapere sono disperato
grazie
--
TOGLI NOSPAM
pi...@libero.it
TOGLI NOSPAM

 Qual č la formula, con Access, per l'arrotondamento per eccesso e quello

La formula per l'arrotondamento per difetto č:
    [NomeCampoArrotondato] = Int([NomeCampoDaArrotondare])
mentre quella per l'arrotondamento per eccesso č:
    [NomeCampoArrotondato] = Int([NomeCampoDaArrotondare] + 0.9)
Roberto

 Qual è la formula, con Access, per l'arrotondamento per eccesso e quello

Newsgroup: it.comp.appl.access
Titolo: come modificare delle date?

ciao!
il mio problema e' questo: in una tabella ho una colonna di date e devo
creare un nuovo campo con questo tipo di sostituzione:
28/08/1998 ---> 15/04/1998
24/06/2000 ---> 15/04/2000
03/09/1995 ---> 15/04/1995
...
insomma, l'anno deve rimanere lo stesso, i mesi e i giorni invece devono
diventare una data stabilita, come 15/04.
qualcuno puo' dirmi come posso fare?
grazie mille,
giulia

 ha scritto nel messaggio
news:3ce25a4d...@powernews.libero.it...

Puoi farlo con una query di aggiornamento.
Se la tabella che contiene i dati si chiama Tabella1 ed il campo Data/ora da
modificare si chiana Data1.
Creati una query di aggiornamento che abbia il seguente codice SQL:
UPDATE Tabella1 SET Tabella1.Data1 = DateSerial(Year([Data1]),4,15);
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Puoi farlo con una query di aggiornamento.
..
grazie! ora provo.
ciao!
giulia

Newsgroup: it.comp.appl.access
Titolo: Campo Percentuale

In una tbl ho impostato un campo con tipo di dati a Numerico, dimensione
campo a Precisione singola e formato a Percentuale.Ora mi sono accorto che
se voglio inserire un valore tipo 2% devo scrivere nel campo 0.2 perchč se
scrivo 2 access me lo cambia in 200%.Ho sbagliato qualcosa nel settaggio ho
questo tipo di campo si comporta proprio cosě?
SunRex

 SunRex
Essendo un valore percentuale lui esegue l'operazione di
percentualikzzazione
rispetto all'unità......!!!
Di conseguenza 2 rispetto a 1 è il 200%.
Sul fatto che 2% sia 0.2 ho qualche dubbio invece ritengo sia 0.02
Se quello che vuoi ottenere è una Percentuale lascia il tipo di dato
a Numerico e lavora sulla TextBox che lo visualizza....!!!
Ciao.
@Alex.


SunRex
Newsgroup: it.comp.appl.access
Titolo: riAllegare tabelle SQL

Salve a tutti...
ho provato a vedere i precedenti post e anche sul sitocomune, ma non ho
trovato nulla che mi chiarisca un dubbio :
Il mio problema e' che ogni volta che spedisco un aggiornamento (Access2000)
al cliente, questi deve necessariamente fare l'aggiornamento delle tabelle
collegate (Tabelle SQL). Soprattutto su di una, che e' l'unica che viene
utilizzata in Append o Update, anzi credo che per questa tabella sia
necessario la cancellazione e ricreazione e non basti solamente il refresh.
La mia domanda e' : esiste la possibilita' di allegare tabelle SQL da codice
? e visto che siete cosi' disponibili (....), ne approfitto un po' : non
esiste un bel OMD (Object Model Diagram) di Access da potersi stampare e
appendere alla parete ? Perche' non riesco a vedere la guida degli oggetti
DAo e SQL di MicrosoftJet ?
Bhe' Basta cosi' (per il momento), solo due parole di apprezzamento per il
sitocomune dal quale ho scaricato un esempio per l'invio di e-mail,
veramente forte...
Grazie
--------------------------------
Inviato via 
http://usenet.libero.it

 Grazie

per allegare le tabelle usa una routine simile
Function zzz()
On Error GoTo zzz_Err
    DoCmd.TransferDatabase acLink, "ODBC", "OriginedatiOdbc", acTable,
"aaa", "aaa", False
zzz_Exit:
    Exit Function
zzz_Err:
    MsgBox Error$
    Resume zzz_Exit
End Function
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 oggetti DAo e SQL di MicrosoftJet ?
[...]
    Io ci arrivo (AC00) seguendo questo percorso:
        ? > Guida in linea Microsoft Access
        - Informazioni di programmazione
          - Guida di riferimento di Visual Basic per Microsoft Access
            Oggetti di Microsoft Access
        ? > Guida in linea Microsoft Access
        - Oggetti Microsoft DAO (Data Access Objects 3.60)
          - Microsoft DAO 3.60
            - DAO Objects Reference
              DAO Object Model for Microsoft Jet Workspaces
              Modello DAO per le aree di lavoro di Microsoft Jet
--
Ciao :o)
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.appl.access
Titolo: Recuperare ed assegnare valori a casella riepilogo

Ho una casella di riepilogo a selezione multipla non associata fatta cosě:
1, val d'aosta
2, piemonte
....
20, sicilia.
La prima colonna č nascosta.
Vorrei:
1) recuperare da codice i codici delle regioni selezionate ed assegnarli ad 
una variabile stringa.
2) selezionare e deselezionare da codice uno o piů valori, confrontandoli 
con quelli che ho in una matrice, che potrebbe contenere solo i codici 
regione o solo i nomi.
Al momento sono riuscito solo a deselezionare tutti i valori in questo modo:
For Each varitem In Me.regioni.ItemsSelected
        Me.regioni.ItemData(varitem).Selected = False
Next
Grazie.

 Next
Dim varItm As Integer
        For varItm = 0 To Me.TipoAttività.ListCount - 1
            Me.TipoAttività.Selected(varItm) = TuaMatrice(varItm)
        Next varItm
Fermo restando che ci sia una rispondenza diretta tra i riferimenti matrice 
e casella, viceversa devi solo allinerli.
Saluti
Davide(Sib)
-- 
http://www.gestionedati.com
"...perchè non esistono saggi per nascita."
(Ptahhotep, 2640 ac) 

        Next varItm
Perfetto, grazie.
Newsgroup: it.comp.appl.access
Titolo: [OT?] access-outlook: impostare proprietà di una cartella creata tramite access

ciao a tutti!
in access ho una routine che mi elimina una cartella dei contatti di outlook
e poi le ricrea:
Sub refrshCARTX()
Dim myOlApp As Outlook.Application
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
    Set myOldFolder = myFolder.Folders("CARTX")
    myOldFolder.Delete
    Set myNewFolder = myFolder.Folders.Add("CARTX")
End Sub
fino a qui tutto bene: il problema è che quando questa cartella (CARTX)
viene creata non possiede la proprietà "Mostra questa cartella come rubrica
di posta elettronica" e di conseguenza non figura tra le cartelle a
disposizione per la selezione dei contatti cui inviare l'email. il percorso
(in outlook) per raggiungere questa opzione è: click destro sulla cartella
in questione -> "Proprietà" -> sezione "Rubrica di Outlook": "Mostra questa
cartella come rubrica di posta elettronica".
che riga devo aggiungere alla sub di cui sopra per ottenere questo
risultato?
grazie per l'attenzione

 ha scritto nel messaggio 
news:vYuae.61154$IN.10...@twister2.libero.it...

Forse risolvi il problema svuotandola.
Public Sub SvuotaAgentiItalia()
    Dim myOlApp As Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Dim myFolder As Outlook.MAPIFolder
    Dim myItems As Outlook.ContactItem
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myFolder = 
myNameSpace.GetDefaultFolder(olFolderContacts).Folders("AGENTI_ITALIA")
'dovrebbe seccare senza pietà tutti i contatti presenti (mi manca la prova 
dei fatti)
    For Each myItems In myFolder.Items
        myItems.Delete
    Next myItems
    Set myOlApp = Nothing
    Set myNameSpace = Nothing
    Set myFolder = Nothing
End Sub
Il tuo nick non mi è nuovo :)
vtt 

 ha scritto nel messaggio
news:d4fni8$boa$1...@fata.cs.interbusiness.it...

toh chi si risente! :)
effettivamente come mi suggerisci te ottengo il risultato desiderato: grazie
ancora 1 volta vtt!
Newsgroup: it.comp.appl.access
Titolo: Query di ricerca

Buon giorno a tutto il n.g.
Ho la necessità di creare una query che mi ricerchi le fatture del fornitore 
X precedentemente selezionato tramite una casella combinata, dalla data X 
alla data X ed inoltre mi dia anche il relativo totale delle fatture 
selezionate.
Come posso fare?
Grazie e cordialità.
Roberto

RobertOne ha scritto:

Devi mostrare queste righe in una maschera suppongo...
Se così fosse:
metti una casella combinata (per il fornitore) e due text area (per la 
data inizio e per la data fine)
via codice fai una sub di questo tipo:
private Sub sFILTRA()
	Dim lSQL as String
	lSQL = "SELECT * FROM TABELLA WHERE IDFORNITORE = " & _
	  Me.CasellaCombinata
	lSQL = lSQL & " AND DATA >= " Me.Testo1
	lSQL = lSQL & " AND DATA <= " Me.Testo2
	Me.RecordSource = lSQL
	Me.Requery
End Sub
Vedi tu dove mettere i controlli per casella combinata e textarea nulle 
o = "".
Per quanto riguarda la somma puoi mettere nel piè della maschera una 
text area con controllo =Somma([VALORE])
Spero di aver capito bene quel che chiedevi
CIAO
-Brown-

 wrote in message
news:jAVne.975599$
b5.42...@news3.tin.it

Spezziamo il problema in 2, poi ti spiego come riunirli:
1) SELECT * FROM TabellFatture
   WHERE ([IDFornitore]= Forms!NomeForm!NomeCombo) And
   ([CampoDATA] BEETWEEN #Forms!NomeForm!Data1# And  
                         #Forms!NomeForm!Data2#)
   ORDER BY NumeroFattura
2)Per il calcolo del Totale devi inserire nella SELECT
  precedente una SubSelect di somma e creare un campo Calcolato
  aggiuntivo.
Sul SitoComune trovi ottimi esempio di come implementare
le SubSelect nella Sezione QUERIES
2.27 Esempio dell'uso delle Subquery (2)
2.26 Esempio dell'uso delle Subquery (1)
 
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Roberto
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Problemi con Dlookup

Ciao a tutti.  
Ho un DB Access in cui vi č una tabbella "Listino_Tessuti". Ho creato
una Query "Listino_Query" per basarci la maschera di inserimento.
Nella maschera "Listino_Maschera" ho una combo "Articolo_numero_sel"
che ha come origine del controllo "Articolo_numero" in
"Listino_Tessuti"
Sotto ho creato un textbox "Descrizione_Articolo_sel" che dovrebbe
visualizzare (a seguito della selezione del numero di articolo nella
combo) la relativa descrizione contenuta in "Descrizione_Articolo"
stante in "Listino_Tessuti".
Nella tabella "Listino_Tessuti" ho inserito 3 record in
visualizzazione foglio dati per poter fare le varie prove.
Ho impostato la funzione Dlookup come segue: 
Dim varX As Variant 
varX = DLookup("[Descrizione_Articolo]", "Listino_Tessuti",
"[Articolo_numero]=" & Forms![Listino_Maschera]!Articolo_numero
_sel) 
questo perchč ho interpretato cosě la funzione: 
Dlookup("Il campo da restituire", "La tabella da cui attingere", "In
base a quale campo", "Da quale controllo ed in che maschera si trova"
Il fatto č che non funziona... ho fatto decine di prove ma ahimč...
non riesco a capire dove sta l'errore. Vi prego di darmi qualche
consiglio o suggerimento.
Grazie per la collaborazione
__________________
Se sei incerto... Tieni aperto!!!

 ha scritto nel messaggio
news:ce23e166.04010...@posting.google.com...

Forse ti manca l'associazione con l'evento AfterUpdate o il codice articolo
č alfanumerico.
Questa di seguito funziona con un codice alfanumerico.
Private Sub ComboCodiceArticolo_AfterUpdate()
    Me.DescrizioneArticolo = DLookup("Descri", "AnagraficaArticoli",
"CodArt='" & Me.ComboCodiceArticolo & "'")
End Sub
Ciao
Ever

 consiglio o suggerimento.
Non funziona non basta.
Da errore?
Da valori errati?
Non da nessun valore?
Hai messo il lancio della dlookup su dopo aggiornamento della combo?
Hai passato il risultato alla textbox?
Antonio
Newsgroup: it.comp.appl.access
Titolo: Query di aggiornamento 2

Ciao a tutti
Ieri Antonio mi ha detto come fare per eliminare lo spazio
da un valore  es: 02 2568   diventa 022568   con:
left([campo];2) & mid([campo];4)
Ora ho scoperto che tra i valori che ho
ce ne sono diversi che non hanno spazi es:
02 2568
02 2569
02257022
02267810
quindi se applico  left([campo];2) & mid([campo];4)
viene eliminato lo spazio dove c'č , perň quando
trova il valore senza spazio ,viene eliminato un carattere,
e cosě non va bene.
Allora chiedevo, č possibile ovviare al problema con
una diversa istruzione ,oppure devo dividere manualmente
i valori per tipo, visto che i record sono circa 40.000
sarei contento ci fosse una soluzione piů comoda .
Ciao Giuseppe

 sarei contento ci fosse una soluzione più comoda .
Varie soluzioni.
La più rapida è mettere un criterio sotto il campo da aggiornare per
verificare che ci sia lo spazio. Pertanto
like "* *"
se lo spazio potrebbe essere anche in un altro punto e quindi in quel caso
il campo non va aggiornato il criterio va messo sotto un campo calcolato e
sarà
Espr1: mid([campo];3;1) che ti da il terzo carattere del campo e sotto come
criterio
" "
Antonio

Antonio Biso ha scritto:


Oppure si può usare Instr(), per scovare lo spazio ovunque sia.
Namor
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:RkLnb.61871$e5.22...@news1.tin.it...

Se vuoi eliminare gli spazi ...
--------------------
UPDATE TuaTabella
SET Nomecampo=Replace(nomecampo,' ','')
--------------------
Ciao Giorgio

Giorgio Prx ha scritto:


Perň solo da Access 2000 in poi.
Nel 97 non c'č la Replace().


Newsgroup: it.comp.appl.access
Titolo: File con data ed ora

ciao a tutti,
 DoCmd.OutputTo acReport, "Risultati", "MS-DOSText(*.txt)",
"c:\Pippo\report.txt", False, """"
mi crea, da un report ,un file txt nella path indicata:
Io vorrei aggiungere al nome del file, la data e l'ora in cui viene creato
,in modo da renderlo "unico".
es report300820011913.
ho provato con Date() o Now() ma Access mi ha fatto una pernacchia.( uso il
97 )
Avete un idea se è possibile farlo e la sintassi corretta?
Grazie in anticipo
Lu


prova cosě:
DoCmd.OutputTo acReport, "Risultati", "MS-DOSText(*.txt)",
"c:\Pippo\report" & format(date(),"ggmmaaaa") & format(Time(),"hhnn") &
".txt", False, """"
ancora meglio cosě:
DoCmd.OutputTo acReport, "Risultati", "MS-DOSText(*.txt)",
"c:\Pippo\report" & format(Now(),"ggmmaaaahhnn") & ".txt", False, """"
Fai attenzione se non funziona prova a cambiare le 4 a con 4 y nella stringa
di formattazione es. da cosě  "ggmmaaaahhnn" a cosě "ggmmyyyyhhnn", dipende
dalla versione di Access o dalle impostazioni internazionali.
Ciao fammi sapere Roberto - Syd


La stringa giusta č "ddmmyyyyhhnn" .
Grazie..della gentilezza....a buon rendere
ciao
Lu
Newsgroup: it.comp.appl.access
Titolo: Siti Esempi

Sono alle prime armi (ma veramente alle prime!)
Qualcuno saprebbe indicarmi qualche buon sito con esempi ( o database di
esempio da scaricare)?
Grazie
--
/----------------------------------------------/
/  Nefasto82                              /
/  e-mail: 
ste...@libero.it
        /
/---------------------------------------------/

 Grazie
1) 
http://www.sitocomune.com
2) northwind.mdb (e' allegato ad access)
--
a.cara 
Togli qualcosa dall'email

 Grazie
 Nefasto82
Trovi molte cose qui:
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
Salvatore

Newsgroup: it.comp.appl.access
Titolo: Quesito!

In un report ho 2 campi A e B  che devo sommare in un altro campo C.
Ho provato a inserire nell'origine di controllo di C  =[A]+[B]  e fin qui
tutto ok, ma se A non contiene nessun valore e B contiene il valore 10 il
risultato di C dovrebbe essere 10 invece non mi da nessun risultato.
Esiste un modo per dire ad access di calcolare tutti i campi e di saltare
quelli che non contengono nessun valore?
Grazie anticipatamente per l'aiuto
Forlani

 quelli che non contengono nessun valore?
Premesso che nei report, come nelle maschere, non ci sono campi ma
controlli, prova con:
= nz([A];0) + nz([B]; 0)
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 ha scritto nel messaggio
news:9814531...@fusilla.abanet.it...

Innanzitutto i report contengono controlli e non campi, poi prova a inserire
nel controllo C la seguente espressione:
=Nz([A]; 0) + Nz([B]; 0)
Ciao
LaLo
Newsgroup: it.comp.appl.access
Titolo: Tabelle Diverse

Sto cercando di trovare un dato in un determinato campo da tabelle diverse.
Devo gestire circa 16.000.000 di record e non potendoli mettere tutti in una
tabella, vorrei metterli in diverse tabelle.
Il problema è come posso fare una volta impostato il campo da cercare andare
a trovare il dato su tutte le tabelle.
Grazie a chi potrà darmi un aiuto.


kavolo 16 Mrek con access?
puoi provare 
select campo,"tab1" from tab1
union
select campo,"tab2" from tab2
........
union
select campo,"tabnn" from tabnn
ah "tab1"....."tabnn" sono li se vuoi sapere da dove e' stato pescato il
dato.
-- 
Alessandro Cara


Se la ricerca la vuoi fare con una query, creati una query unione; se invece
la vuoi fare con la funzione DLookup, eseguine in cascata tante quante sono
le tabelle e poi analizzane i risultati.
Roberto

visto frequentare il NG
no, cazzo!  e io che sono un dilettante, no no, allora fai finta di
non aver letto, mi rimangio tutto.
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

kavolo 16 Mrek con access?
mah, io ne giostravo 25M... :-)


la vuoi fare con la funzione DLookup, eseguine in cascata tante quante sono
dlookup su 16M rec?  nooo.  neanche query normali.  meglio il .seek.
si puo' fare, io lo facevo, ma i tempi saranno disastrosi, eh?


 --
no e che sara' estate ma cominci ad avere una logica fuori dal "normale"
(????pero' te fai paga' da professionista!!!)
-- 
Alessandro Cara
I try hard to be e better idiot

I try hard to be e better idiot
ok ok, cambio la signature...
-------------------------------------
"You're part of the humanity!"
"No, I'm in the marketing."
(tratta da 
www.dilbert.com
)
Newsgroup: it.comp.appl.access
Titolo: E' possibile impedire la visualizzazione del contenuto di un controllo in una maschera o report?

E' possibile impedire la visualizzazione del contenuto di un controllo
in una maschera o report?
Vorrei impedire la sisualizzazione del contenuto di un campo quando si
verifica una determinata condizione cioč:
In una maschera continua o report se il record 1 
ha la stessa data del record 2
il controllo nome del record 2 non deve essere visualizzato metre gli
altri controlli contenuti nello stesso record si.
rec  ID Nome   Cogmome    orain      orafin   ...    DATA 
1    c1  pippo       pioo         07.00     12.00         31/7/2006
2    c1  pippo       pioo         16.00     19.00         31/7/2006
Nel db puņ capitare che alla stessa data (31/7/2006) lo stesso
individuo svolga due attivitą diverse una la mattina ed una la sera
filtrando con una qry la data mi ripete due volte il nome e cognome,
metre basterebbe indicarlo solo la prima volta . 
rec  ID Nome   Cogmome    orain      orafin  .    DATA 
1    c1  pippo       pioo         07.00     12.00    31/7/2006
2                                         16.00     19.00    31/7/2006
Ora pensandoci volendo numerare i record in un report di stampa mi
numererą anche il rec 2 cosa che non vorrei accadesse, perchč il
numero progressivo deve corrispondere al singolo individuo .
rec  ID Nome   Cogmome    orain      orafin  .    DATA 
1    c1  pippo       pioo         07.00     12.00    31/7/2006
2                                         16.00     19.00    31/7/2006
3   c2  pluto       plu            07.00     12.00    31/7/2006
4                                         16.00     19.00    31/7/2006
in realtą il report
rec  ID Nome   Cogmome    orain      orafin  .    DATA 
1    c1  pippo       pioo         07.00     12.00    31/7/2006
                                         16.00     19.00    31/7/2006
2   c2  pluto       plu            07.00     12.00    31/7/2006
                                          16.00     19.00    31/7/2006
Come posso fare?
Ho provato con qry di vario genere ma non va.
Grazie

 Come posso fare?
forse devi suddividere in due tabelle: una con i nominativi e l'altra
(collegata) con gli orari.
Poi in stampa puoi impostare un'intestazione per individuo e rappresentare
nelle righe successive gli orari in modo automatico.
Oppure in riga con sottoreport (per me più dura).
Ciao
Fabio DV



Grazie non ci avevo pensato adesso ci provo.

Newsgroup: it.comp.appl.access
Titolo: DAO e ADO .... quali le differenze sostanziali ?

Io lavoro con A2000 ed ho sempre usato DAO....
ma ADO e che serve ?
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ma ADO e che serve ?
Se prevedi in futuro di upgradare l'applicazione agli .ADP/E, lavorando con
ADO ti porti avanti col lavoro ;-)
Lavorando esclusivamente con Jet, Microsoft consiglia di utilizzare DAO: č
un modello a oggetti piů specifico.
Newsgroup: it.comp.appl.access
Titolo: Oggetti Database e TableDef

Scusate l'ingenuità della mia domanda.
Qualcuno mi può spiegare come mai nell'applicazione che sto scrivendo non mi
compare nell'elenco dei tipi di dati non appena digito la parola "As",
l'oggetto Database e l'oggetto TableDef, mentre in un file di esempio che
utilizzo per studiare il VBA sono disponibili?
Grazie e un saluto a tutto il NG.

 utilizzo per studiare il VBA sono disponibili?
Probabilmente nel DB di esempio non hai i riferimenti al DAO
Dalla finestra del codice vai nel menù "strumenti" e clikki "riferimenti", e
cerchi e clikki la libreria del dao 3.6
Max

 wrote in message jhGZ6.639$ZE.1...@news1.tin.it...


Newsgroup: it.comp.appl.access
Titolo: interprete di query cercasi ...

Ciao a tutti,
	      volevo porre all'attenzione di tutti voi il seguente quesito:
dovrei tradurre in SQL Standard le seguenti query in SQL ACCESS-Like:
1) SELECT [TPercorsi].[trattaId], Count([TPercorsi].[trenoId]) AS 	 
TotaleTreniTransitati, 
DateDiff("d",[Forms]![FReports]![ctlxDataInizio],[Forms]![FReports]![ctlxDataFine]) 
AS NrGiorni, (TotaleTreniTransitati/Nrgiorni) AS MediaTransiti
FROM TPercorsi
WHERE ((([TPercorsi].[dataPart]) Between 
[Forms]![FReports]![ctlxDataInizio] And [Forms]![FReports]![ctlxDataFine]))
GROUP BY ([TPercorsi].[trattaId]);
2) SELECT [carrelloId], [nome], [NrTrasporti]FROM 
MerceTrasportataPerCarrello
WHERE 
(((NrTrasporti)>=Val(DMax("NrTrasporti","MerceTrasportataPerCarrello","carrelloID=" 
& [carrelloId]))))
ORDER BY [MerceTrasportataPerCarrello].[carrelloId];
3) SELECT [TManCarrelli].[dataInizio], 
DateAdd("d",1,[TManCarrelli].[dataInizio]) AS DataOraFine, 
[Tmagazzini].[nome]
FROM TMagazzini INNER JOIN TManCarrelli ON 
[TMagazzini].[magId]=[TManCarrelli].[magId]
WHERE ((([TManCarrelli].[carrelloId])=[Forms]![FReports]![cmbTipoVeicolo]));
Diciamo che in un certo senso (leggasi a modo mio) le avrei già tradotte 
ma la vostra sarebbe una importantissima verifica
Ultimo punto ... qualcuno di voi ha da suggerirmi un modo o (meglio 
ancora) un'utility che con la quale creare un file di help per una 
applicazione sotto Accesso 2000 (per esempio prendendolo dal formato 
testo e trasformandolo in formato help di access)
Grazie a tutti in anticipo
e alla prossima ...
Buterao

 1) SELECT [TPercorsi].[trattaId], Count([TPercorsi].[trenoId]) AS
cut
Cosa intendi per SQL "standard"?
Sib

sib ...
per sql standard intendo l'SQL-99 in particolare giusto per capirci 
terra terra :-)))
la funzione datediff ... dataAdd ... ecc ... non esistono in questo 
standard ...
perň si possono tradurre ... con opportuni accorgimenti ...
diciamo che + piů una cosa teorica ... che di applicazione pratica ... 
perň per me č importantissima ...
se qualcuno puň propormi delle sue risposte .... gliene sarň grato
e per quanto riguarda il file di help per access ... come costruirlo ...
non ci credo che nessuno lo abbia mai fatto ... tra tutti voi
un salutone e a presto
Buterao

Buterao
Ciao. Fabrizio.
(Access XP (sp2), Win ME, P4 1Ghz, 320 RAM)
Newsgroup: it.comp.appl.access
Titolo: problema con stampa Report...

salve a tutti... avrei un piccolo problemino
da risolvere....
ho un Report "Stampa Scheda", basato su una query...
che quando lo apro digito il Cognome e Nome dell'utente
e me lo stampa senza problemi....
ho una Maschera di ricerca in cui ho aggiunto
un pulsante di comando
"stampa report" e vorrei che mi stampasse il record
appena cercato lanciando appunto il Report
"Stampa Scheda"...senza che mi appaia la ricerca della
query... è possibile ???
spero di essermi spiegato !!!
ciao e grazie...

"SuperPippo®" <ik0qd...@SPAMlibero.it> ha scritto nel messaggio
news:C3Iga.55002$Lr4.1...@twister2.libero.it...

Prova cosi'
fai una copia del report e dai come origine dati la tabella principale.
poi nell' evento su click del pulsante di comando nella tua maschera scrivi
il seguente listato
Private Sub Comando40_Click()
On Error GoTo Comando40_Click_Err
DoCmd.OpenReport "NOMENUOVOREPORT", acPreview, "",
"[Cognome]=[Forms]![NOMETUAMASCHERA]![Cognome]"
Comando40_Click_Exit:
    Exit Sub
Comando40_Click_Err:
    MsgBox Error$
    Resume Comando40_Click_Exit
End Sub
facci sapere se hai risolto
Mar&mar
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Nella griglia qbe della query nell' opzione criteri devi mettere il
riferimento alla scheda dove sono presenti i tuoi dati ad esempia se la
scheda dove è presente il dato nomecognome si chiama miascheda dovrai
inserire
 forms!miascheda!nomecognome
ciao
desio


----------------------->
Ciao... ho provato... ma mi dice
"errore di compilazione etichetta non definita...."
ecco il codice....
Private Sub Comando78_Click()
On Error GoTo Err_Comando78_Click
DoCmd.OpenReport "Test", acPreview, "",
"[Cognome]=[Forms]![Anagrafe]![Cognome]"
Comando78_Click_Exit:
    Exit Sub
Comando78_Click_Err:
    MsgBox Error$
    Resume Comando78_Click_Exit
End Sub

  forms!miascheda!nomecognome
---------------
ciao... scusa non ho ben capito una cosa...tu per scheda intendi
il report oppure la tabella dove sono contenuti i campi Cognome
e Nome ???
cmq.... nel caso ti dico che la Tabella si chiama Anagrafe...
la Query sui chiama Stampa Scheda e provvisoriamente
il report si chiama TEST....
ciao...
Newsgroup: it.comp.appl.access
Titolo: Pop up o semi-pop up

Vorrei rendere semitrasparente una popup quando perde lo stato attivo.
L'evento OnFocus sulle popup č in utilizzabile.
Con la funzione Trasp me.hwnd, 50 la rendo semitrasparente. Ma come si fa a 
capire quando perde lo stato attivo.
Ho bisogno che sia in primo piano sempre, ma nello stesso tempo che non 
disturbi piů di tanto il lavoro e diventare semitrasparente quando l'utente 
fa qualcos'altro, magari rimpicciolendola... o altro.
Daniele 

"OneEDP" <OneEDP@antispam> ha scritto nel messaggio 
news:49b14ba9$0$1119$4faf...@reader2.news.tin.it...

evento on_lostfocus
ciao
-- 
Roberto da Parma 

 ha scritto nel messaggio 
news:gou18s$hl1$1...@tdi.cu.mi.it...

Non funge, e neppure OnFocus (sulle form), cosě anche OnClick e 
probabilmente altri eventi connessi alla sola interfaccia. (OnOpen funge)
Ho eliminato all'avvio ogni "contributo" grafico senza nessuna finestra di 
avvio,
Ma per le form il problema rimane.
E' un baco? O sono io che cominco a bacare.
Grazie
Daniele 

 Daniele-
Io lo farei con su Evento TIMER andrei a controllare :
Screen.ActiveForm.Name
<>Me.Name
e se il nome risultante non è quello del POPUP allora ne gestisci la
trasparenza.
@Alex

 Daniele-
Io lo farei con su Evento TIMER andrei a controllare :
Screen.ActiveForm.Name
<>Me.Name
e se il nome risultante non č quello del POPUP allora ne gestisci la
trasparenza.
@Alex
Volevo evitare una cosa del genere per non affogare con troppi timer (poi 
non cosě tanti) Access ed evitare che come per i DoEvents si chiuda 
l'applicazione.
Non hai idea del baco?
Grazie 

 Grazie
Il discorso DoEvents ed il discorso Timer non generano anomalie se
usati correttamente...(purtroppo spesso, e spesso a sproposito, sento
suggerire di mettere dei DoEvents per provare a risolvere
problemi...).
Per il tuo caso specifico però non saprei cosa dire, nel senso che
un'evento come il Timer ben gestito all'interno dell'Oggetto non deve
assolutamente dare alcun problema.
@Alex

 ha scritto nel messaggio 
news:a6404254-bd1c-4ed6...@v6g2000vbb.googlegroups.com...



@Alex
Mi riferifo al thread del 26/2 "Troppi DoEvents" e facevo un'analogia.
Mentre resta irrisolto il mistero degli eventi scomparsi... con o senza 
popup
Newsgroup: it.comp.appl.access
Titolo: aiuto:estrapolare caratteri da un campo

Ho un campo contenente caratteri alfanumerici es.: "ab1234cd" vorrei
scindere i "caratteri" dai "numeri" e memorizzarli in altri campi, č
possibile fare ciň? Se si come? Da tener conto che il dato potrebbe
essere composto sia come citato che "abc1234def".
grazie anticipatamente a chiunque possa aiutarmi!
Pino 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Pino 
Devi fare un routine che effettui un vero e proprio parsing della
stringa.
Utilizzare x ogni carattere la funzione isnumeric e decidere in base
al risultato di tale interrogazione se mettere ilc arattere in un
campo o in un altro.
Ciao

Pino 
Mi sono permesso di andare oltre...basta copiarla in un modulo e
richimarla due volte impostando il campo con il risultato della
funzione.
Ciao
Public Function EstraiTipoStringa(StrOrig As String, Optional
GenereStringa = 0) As Variant
'La funzione riceve una stringa e ne crea due:una di soli caratteri e
l'altra di soli numeri
'Se il Generestringa richiesto č numerico(OpzioneGenereStringa=0)
restituisce quella numerica
'Se il GenereStringa richiesto č carattere(OpzioneGenereStringa=1)
restituisce quella di caratteri
Dim L As Integer, I As Integer, StrCar As String, StrNum As String, C
As String
    L = Len(StrOrig)
    StrNum = ""
    StrCar = ""
    For I = 1 To L
        C = Mid(StrOrig, I, 1)
        If IsNumeric(C) Then
            StrNum = StrNum & C
        Else
            StrCar = StrCar & C
        End If
    Next
    If GenereStringa = 0 Then
        EstraiTipoStringa = StrNum
    Else
        EstraiTipoStringa = StrCar
    End If
End Function

 Pino
Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi queste
due FAQ.
1) Estrarre tutte le consonanti o le vocali da una stringa di Emanuele
Cesena.
2) Estrarre tutti i numeri da una stringa del tipo A123B45 di Carlo
Costarella.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------