Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

Eliminare Elementi Da Listbox ed Eseguire Refresh

  1. #1
    mjjfil non è in linea Novello
    Post
    46
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ciao a tutti,
    eccomi con un nuovo problema...
    In buona sostanza, ho una listbox (Elenco) che al click popola un'altra listbox (Lista) ed ho un pulsante che mi apre un report basato su una query e che mostra gli items che sono presenti nella listbox "Lista"....
    quello che vorrei fare io è:
    con un pulsante eliminare l'elemento selezionato e visualizzare nel report gli altri rimasti nella listbox (Lista)..
    il codice che ho provato io è il seguente:
    Me.Lista.RemoveItem (0)
    Lista.ListIndex = Lista.ListIndex
    
    o anche
    
    Me.Lista.RemoveItem (0)
    Me.Lista.SetFocus
    Lista.ListIndex = Lista.ListIndex
    
    però non funziona ovvero non mi apre il report...

    Ringrazio anticipatamente chiunque vorrà aiutarmi
    Abbraccio
    Ciao
    Fil

  2. #2
    L'avatar di dragone bianco
    dragone bianco non è in linea Moderatore Globale
    Post
    7,739
    Like Inviati  
    0
    Like Ricevuti  
    1
    Ciao mjjfil

    tu apre un report che visualizza l'elenco di una listbox e vooresti che tale elenco sia tutta la lista tranne quello selezionato?
    la lista della listbox dove si trova in una tabella?
    posta anche il codice che usi

    Ciao
    ℹ️ Leggi di più su dragone bianco ...

  3. #3
    mjjfil non è in linea Novello
    Post
    46
    Like Inviati  
    0
    Like Ricevuti  
    0
    Io dovrei eliminare con un pulsante l'elemento selezionato dalla listbox (Lista) e visualizzare nel report gli elementi restanti dopo averlo eliminato...
    Il codice che uso nell'evento su click della prima listbox (Elenco) è il seguente:
    On Error GoTo Errore
    Dim varItem As Variant
    presente = 0
        For Each varItem In Me.Elenco.ItemsSelected
            Me.Lista = Me.Lista & Me.Elenco.Column(0, varItem) & ","
             Me.Lista.SetFocus
             
             For x = 0 To Me.Lista.ListCount - 1
                If Me.Lista.Column(0, x) = Me.Elenco.Column(0, varItem) Then
                   presente = -1
                 End If
             Next x
            If presente <> -1 Then
                 Me.Lista.AddItem Me.Elenco.Column(0, varItem) & ";" & Me.Elenco.Column(1, varItem)
               End If
        Next varItem
        
    Exit Sub
    Errore:
    Resume Next
    
    il codice che uso per aprire il report è il seguente:
    On Error GoTo Errore
    Dim strCONDIZIONE As String
        If IsNull(Me.Lista) Then
             strCONDIZIONE = ""
        Else
        strCONDIZIONE = "[Id_cliente] In (" & Me.Lista & ")"
        End If
    Dim stDocName As String
        stDocName = "rptGruppoClienteServizio"
        DoCmd.OpenReport stDocName, acViewPreview, , strCONDIZIONE
    
    Exit Sub
    Errore:
    Resume Next
    
    Fammi Sapere
    Grazie
    Ciao
    Fil

  4. #4
    L'avatar di @Alex
    @Alex non è in linea Very Important Person
    Post
    16,745
    Like Inviati  
    0
    Like Ricevuti  
    18
    Per comprendere meglio il tutto, e credo sia ugualmente difficile, si dovrebbe seguire meglio questo intervento:
    http://forum.masterdrive.it/ms-offic...ultipla-55414/
    ℹ️ Leggi di più su @Alex ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Modo migliore per eliminare più elementi da una stringa
    Da Yasulander nel forum Visual Basic .Net
    Risposte: 3
    Ultimo Post: 29-07-2020, 12:36
  2. Eliminare gli elementi più corti da una list
    Da kar64 nel forum Visual Basic .Net
    Risposte: 12
    Ultimo Post: 12-11-2019, 20:47
  3. Eliminare elementi Nothing da array
    Da kar64 nel forum Visual Basic .Net
    Risposte: 1
    Ultimo Post: 19-10-2019, 09:32
  4. Eliminare elementi in controllo barra di Word
    Da roccolamann nel forum Microsoft Word
    Risposte: 3
    Ultimo Post: 04-03-2011, 15:30
  5. Generic.List - Eliminare elementi
    Da knulp nel forum Visual Basic .Net
    Risposte: 4
    Ultimo Post: 17-10-2007, 12:22