Newsgroup: it.comp.appl.access
Titolo: Una soluzione per...thanks

Poter selezionare piu' righe in una casella casella di riepilogo....
Grazie

 Poter selezionare piu' righe in una casella casella di riepilogo....
....imposta la proprietą "Selezione multipla" a Semplice o Estesa.
--
Ciao, AntoGal
*************************************************
Home Page (area programmatori di VolFtp)
http://volftp.mondadori.com/italiani/galletta/
per scaricare un gioco di DAMA ITALIANA
*************************************************

Poter selezionare piu' righe in una casella casella di riepilogo....
Settare l'opzione selezione multipla, per esempio...:-)
Saluti.
Luciano

 Poter selezionare piu' righe in una casella casella di riepilogo....
Complimenti per il subj.
Vedi sul sito comune.
Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


La soluzione che sto per illustrarti è ricavata da un esempio contenuto nel
CD allegato a "Guida all'uso Microsoft Access 97" di J.L. Viescas.
In una maschera di nome frmAuthorsList c'è una casella di riepilogo che ha
come Nome elemento lstAName e un bottone che ha come Nome elemento cmdSome,
cliccando il quale si apre la maschera di nome frmAuthors filtrata da quanto
selezionato nella casella di riepilogo.
La Proprietà "Selezione multipla" della casella di riepilogo va settata a
"Estesa". La selezione multipla viene poi effettuata premendo i tasti Crtl o
Maiusc insieme al click del mouse.
La casella di selezione ha come "Origine riga" una query a 2 colonne: la
prima contiene AuthorID e la seconda (visualizzata nella casella) AName.
Su l'evento "Su caricamento" della maschera frmAuthorsList si legge:
Private Sub Form_Load()
    ' auto-select the first item in the list box
    Me!lstAName.Selected(0) = True
End Sub
Su l'evento "Su doppio clic" della casella di riepilogo si legge:
Private Sub lstAName_DblClick(Cancel As Integer)
    ' Double-clicking a name is the same as choosing the name
    ' and then clicking the edit button.
    cmdSome_Click
End Sub
Su l'evento "Su clic" del bottone si legge:
Private Sub cmdSome_Click()
Dim strWhere As String, varItem As Variant
    ' Request to edit items selected in the list box
    ' If no items selected, then nothing to do
   If Me!lstAName.ItemsSelected.Count = 0 Then Exit Sub
    ' Loop through the items selected collection
    For Each varItem In Me!lstAName.ItemsSelected
        ' Grab the AuthorID column for each selected item
        strWhere = strWhere & Me!lstAName.Column(0, varItem) & ","
    Next varItem
    ' Throw away the extra comma on the "IN" string
    strWhere = Left$(strWhere, Len(strWhere) - 1)
    ' Open the authors form filtered on the selected authors
    gstrWhereAuthor = "[AuthorID] IN (" & strWhere & ")"
    DoCmd.OpenForm FormName:="frmAuthors", WhereCondition:=gstrWhereAuthor
    DoCmd.Close acForm, Me.Name
End Sub
Spero che il tutto ti sia di aiuto.
Roberto

 > GrAZIE