+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 4 su 4

Discussione: Eliminare Elementi Da Listbox ed Eseguire Refresh

  1. #1
    mjjfil non è in linea Novello
    Post
    46

    Eliminare Elementi Da Listbox ed Eseguire Refresh

    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:
    codice:
    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
    Luogo
    Aosta
    Post
    7,736
    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

  3. #3
    mjjfil non è in linea Novello
    Post
    46
    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:
    codice:
    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:
    codice:
    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,456
    Per comprendere meglio il tutto, e credo sia ugualmente difficile, si dovrebbe seguire meglio questo intervento:
    http://forum.masterdrive.it/ms-offic...ultipla-55414/
    @Alex
    Il CROSSPOST è VIETATO
    Mirror al vecchio sito WEB(salvare i Demo riassegnando l'estensione (.Zip/.Rar/.Exe in base all'icona...):
    http://mirror.masterdrive.it/alessandrobaraldi/
    Leggi il
    Regolamento del Forum e nel comprenderne la filosofia rispettalo.

+ Rispondi al Thread

Tag per questa discussione

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi