Newsgroup: it.comp.appl.access
Titolo: List box che autoincrementa  gli item....

Mi succede improvvisamente una cosa strana in una sottomaschera...
Le listbox  ricevono gli item da vb.
un esempio è il seguente
    Me.ValutazioneCampione.AddItem Item:="Adeguato"
    Me.ValutazioneCampione.AddItem Item:="Ai limiti dell'adeguatezza"
    Me.ValutazioneCampione.AddItem Item:="Inadeguato"
quando mando il tutto in esecuzione  trovo gli item sopra descritti 
raddoppiati, cioè nella listbox, quando si espande compare:
Adeguato
Ai limiti dell'adeguatezza
Inadeguato
Adeguato
Ai limiti dell'adeguatezza
Inadeguato
mi sapete dire dove e se ho toccato qualcosa che non dovevo toccare?
grazie per l'aiuto
BC 


Perche' esegui 2 volte gli AddItem? In che fase lo fai (evento)? Ti 
auguro su "current" perche' in tal caso si capisce.
-- 
ac
y-1=x


Pare che l'evento che carica gli item venga scatenato due volte...
Ciao.
-- 
Sergio MAZZA 

Questo è l'evento load della sottomaschera:
'2
Private Sub Form_Load()
'tipo prelievo
    Me.Tipo_prelievo.AddItem Item:="VCE"
    Me.Tipo_prelievo.AddItem Item:="Cupola vaginale"
    Me.Tipo_prelievo.AddItem Item:="Altro"
'valutazione campione
    Me.ValutazioneCampione.AddItem Item:="Adeguato"
    Me.ValutazioneCampione.AddItem Item:="Ai limiti dell'adeguatezza"
    Me.ValutazioneCampione.AddItem Item:="Inadeguato"
'valutazione adeguatezza
    Me.Adeguatezza.AddItem Item:="cellularità scarsa"
    Me.Adeguatezza.AddItem Item:="difetto di fissazione"
    Me.Adeguatezza.AddItem Item:="presenza di materiale estraneo"
    Me.Adeguatezza.AddItem Item:="reperto flogistico interferente con la 
lettura"
    Me.Adeguatezza.AddItem Item:="eccessiva quota ematica"
    Me.Adeguatezza.AddItem Item:="assenza della componente endocervicale"
    Me.Adeguatezza.AddItem Item:="non rappresentativo del sito anatomico"
    Me.Adeguatezza.AddItem Item:="altro"
'referto
    Me.Referto.AddItem Item:="entro i limiti di norma"
    Me.Referto.AddItem Item:="vedi diagnosi descrittiva"
    Me.Referto.AddItem Item:="vedi raccomandazioni"
'valutazione ormonale
    Me.ValutazioneOrmonale.AddItem Item:="Compatibile con l'età e 
l'anamnesi"
    Me.ValutazioneOrmonale.AddItem Item:="Non compatibile con l'età e/o 
l'anamnesi"
'valutazione microbiologica
 Me.Elenco_micro.Visible = False
    Me.Elenco_micro.AddItem Item:="flogosi"
    Me.Elenco_micro.AddItem Item:="bacillus vaginalis"
    Me.Elenco_micro.AddItem Item:="Gardenerella"
    Me.Elenco_micro.AddItem Item:="flora mista"
    Me.Elenco_micro.AddItem Item:="Trichomonas"
    Me.Elenco_micro.AddItem Item:="Herpes simplex"
    Me.Elenco_micro.AddItem Item:="Alterazioni corr con HPV "
    Me.Elenco_micro.AddItem Item:="miceti"
    Me.Elenco_micro.AddItem Item:="Actinomyces"
    Me.Elenco_micro.AddItem Item:="Clamydia (da conf.)"
    Me.Elenco_micro.AddItem Item:="altro"
End Sub
non ci sono altri eventi che apparentemente possono scatenare la faccenda
Grazie
BC 


Per esserne certo inserisci un punto di interruzione nel codice (o 
l'istruzione Stop), se passi due volte...
Ciao.
-- 
Sergio MAZZA 

Fatto, ci passa solo una volta... non ci capisco piů niente...
BC 

 BC
Ma perchè invece di aggiungere Runtime via codice non usi come dovrebbe
essere
una Tabella di appoggio divisa per tipologia....????
Il codice che hai scritto non è flessibile e non è pensabile sviluppare
un'applicazione
che non preveda flessibilità di innovazioni senza mettere mano al codice.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 ha scritto nel messaggio 
news:ffdgrb$nbs$1...@aioe.org...

ok obbedisco! credevo fosse il contrario...
grazie ancora
BC