Problema con listbox

Question

Ciao a tutti...faccio presente che è la prima volta che utilizzo una listbox....questa listbox si trova in una sottomaschera (SM_DIPENDENTI) che fa parte della maschera principale (M_ATTIVITA)...attraverso una combobox posta nella maschera principale seleziono le singole attività di lavoro x dipendente...poi clicccando il pulsante di comando (PIANIFICA LAVORO DIPENDENTE) registro i dati in una tabella...oltre questo ho volutamente messo in Evento su Attivazione del pulsante un codice vba che mi carica i dati nella sottomaschera con ADDITEM..il problema è che vorrei fare anche il REMOVEITEM con un pulsante che si trova nella sottomaschera questa volta...qualkuno sà darmi qualke dritta su come posso fare?...

Answer 1

Ma non ti fa scorrere gli item significa che se clicchi su un elenco non te lo seleziona. E poi partendo da questo se ti muovi con la freccia in basso non te lo fa scorrere?

In questo caso prova a guardare se:

• se la sottomaschera ha la proprieta' "consenti modifiche" impostata a "no"
• se la listbox ha la proprietà "bloccato" impostata a "si" oppure la proprietà "abilitato" impostata a "no"

David

Answer 2

Ciao...ho seguito il tuo esempio...cambiando solamente il nome del pulsante di comando e della listbox...ma nè mi fa scorrere tra gli item nè tanto meno mi fa eliminare dalla lista quelli che voglio...non riesco a capire il perchè proprio non funziona....ho provato in un modo che funzionava la sintassi era  

Forms!M_ATTIVITA!SM_DIPENDENTI.Form.Elenco_dipendenti_list.RemoveItem

Ma il problema era che non mi faceva scorrere tra gli item e in + quando chiudevo e riaprivo la maschera mi dava un problema dicendomi che gli argomenti nella list non potevano avere valore Null

Answer 3

Ok,

se il tuo pulsante di comando per la rimozione degli items è nella sottomaschera puoi riferirti direttamente con la notazione b)

questo un esempio per rimuovere l'item selezionato:

Private Sub cmdRimuoviItem_Click()

    Dim varItem As Variant

    For Each varItem In Me!lst_ListBox.ItemsSelected

            Me!lst_ListBox.RemoveItem Index:=varItem

    Next

End Sub

David

Answer 4

Ciao David..grazie...allora a me serve eliminare i valori selezionati da me nella listbox...ma il problema è che 1) non mi fa scorrere tra i valori della list quindi x cancellare il terzo valore devo X FORZA! cancellare prima il primo valore e il secondo valore e solo a questo punto mi xmette di eliminare il 3°..ovviamente a me non serve che funzioni così...ma voglio eliminare qualsiasi valore indipendentemente dalla sua posizione nella list.

2. La listbox si trova nella sottomaschera e anche il pulsante di comando con cui voglio eliminare gli item quando lo clicco...il problema è ke nn sò che comando mandargli...cioè se:

a) Forms!M_ATTIVITA!SM_DIPENDENTI.Form.Elenco_dipendenti_list.RemoveItem

o

b) Me.Elenco_dipendenti.list .RemoveItem

Answer 5

Ciao Ghigo

probabilmente mi sta sfuggendo qualcosa ... hai provato a guardare nell'help il metodo RemoveItem?

Questa la funzione di esempio che ti riporto "pari pari" tratta dall'help di access

Function RemoveListItem(ctrlListBox As ListBox, _

ByVal varItem As Variant) As Boolean

' Trap for errors. On Error GoTo ERROR_HANDLER

' Remove the list box item and set the return value ' to True, indicating success.

ctrlListBox.RemoveItem Index:=varItem

RemoveListItem = True

' Reset the error trap and exit the function.

On Error GoTo 0

Exit Function

' Return False if an error occurs. ERROR_HANDLER: RemoveListItem = False

End Function

Cosa esattamente ti serve?

David