+ Rispondi al Thread
Pagina 2 di 2 primaprima 12
Visualizzazione dei risultati da 11 a 12 su 12

Discussione: Aprire Report Con Selezione Multipla

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

  2. #12
    mjjfil non è in linea Novello
    Post
    46
    Ciao,
    riassumo la situazione:
    ho una listbox (Elenco) con selezione multipla estesa con il seguente codice messo su click:
    codice:
    Private Sub Elenco_Click()
    On Error GoTo Errore
    
    Dim varItem As Variant
    
        For Each varItem In Me.Elenco.ItemsSelected
            Me.Lista = Me.Lista & Me.Elenco.Column(0, varItem) & ","
            Me.Lista.AddItem Me.Elenco.Column(0, varItem) & ";" & Me.Elenco.Column(1, varItem)
        Next varItem
        
    Exit Sub
    Errore:
    Resume Next
    End Sub
    come dice il codice: questa listbox su click riempie un'altra listbox (Lista) impostata a "elenco valori"....quindi dalla prima listbox si scelgono i clienti e si immettono nella seconda...poi c'è un pulsante che apre un report che si basa su una query e che fa vedere i clienti inseriti nella seconda listbox...
    il codice vba immesso nel pulsante che apre il report è il seguente:
    codice:
    Private Sub Comando5_Click()
    On Error GoTo Err_Comando5_Click
    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_Comando5_Click:
        Exit Sub
    Err_Comando5_Click:
        MsgBox Err.Description
        Resume Exit_Comando5_Click
    
    End Sub
    ora tutto sembra funzionare...ma chiedo a voi che codice vba devo inserire su un'altro pulsante per poter togliere dalla seconda listbox uno o più clienti e visualizzare nel report quelli restanti...perchè adesso come adesso ho inserito il codice seguente x eliminare un cliente alla volta dalla seconda listbox...ma mi visualizza nel report: non quelli restanti, ma l'ultimo eliminato ovvero l'ultimo selezionato...
    codice:
    On Error GoTo Errore
    Me.Lista.RemoveItem (1)
    Exit Sub
    Errore:
    Resume Next
    End Sub
    e poi vi chiederei un'ultima cortesia: con che codice vba posso; con un altro pulsante svuotare la seconda listbox (Lista) del tutto? e poi premendo il pulsante che mi apre il report non visualizzare nulla dato che la 2° listbox (lista) è vuota?

    Grazie in anticipo x la risposta
    Abbraccio
    Ciao
    Fil

+ Rispondi al Thread
Pagina 2 di 2 primaprima 12

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