[AccessD] Process multi-select listbox

Well, Rocky, I'll take sleep disorders for $600
<bing bing bing bing>
The daily double!!!!

Michael R. Mattys
MapPoint & Access Dev
www.mattysconsulting.com

----- Original Message ----- 
From: "Rocky Smolin at Beach Access Software" <rockysmolin at bchacc.com>
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Sent: Monday, March 05, 2007 12:03 PM
Subject: Re: [AccessD] Process multi-select listbox


> No problem.  It's so rare that I can 1) offer an answer and 2) ring in
> before the others (I feel like a Jeopardy contestant).
>
> Rocky
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> artful at rogers.com
> Sent: Monday, March 05, 2007 8:30 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Process multi-select listbox
>
> Close, Rocky, but no cigar. I just figured it out, with your gentle prod 
> in
> the right direction. The solution is:
>
> <code>
> '---------------------------------------------------------------------------
> ------------
> ' Procedure : cmdProcess_Click
> ' DateTime  : 05/03/2007 11:24
> ' Author    : Arthur Fuller
> ' Purpose   : assemble column(0) multi-select choices from me.lstCities 
> into
> a string
> ' Notes     : This requires Option Base 0 for the array to be declared in
> the Module Header.
> '---------------------------------------------------------------------------
> ------------
> '
> Private Sub cmdProcess_Click()
>    Dim intCount As Integer
>    Dim varItem As Variant
>    Dim s As String
>    On Error GoTo cmdProcess_Click_Error
>    intCount = 0
>    With Me
>        intCount = .lstCities.ItemsSelected.Count
>        If intCount = 0 Then Exit Sub ' Nothing selected.
>
>        For Each varItem In .lstCities.ItemsSelected
>            s = s & .lstCities.ItemData(varItem)
>        Next varItem
>        .txtResult = s
>    End With
>    On Error GoTo 0
>    Exit Sub
> cmdProcess_Click_Error:
>    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
> cmdProcess_Click of VBA Document Form_TestHarnessForTSPproblem_frm"
> End Sub
> </code>
>
> Thanks for the prod,
> Arthur
>
>
> ----- Original Message ----
> From: Rocky Smolin at Beach Access Software <rockysmolin at bchacc.com>
> To: Access Developers discussion and problem solving
> <accessd at databaseadvisors.com>
> Sent: Monday, March 5, 2007 10:11:25 AM
> Subject: Re: [AccessD] Process multi-select listbox
>
>
> Ooh. Ooh. I think I know this one.
>
>    For Each varItem In lstOrders.ItemsSelected
>        strList = strList & lstOrders.Column(0, varItem) & ";"
>    Next varItem
>
> Yes?
>
> Rocky
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.446 / Virus Database: 268.18.7/710 - Release Date: 3/4/2007
> 1:58 PM
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com