Author Topic: Looping through Listbox Selected Items list (Read 8 times)

DD Admin · « **on:** April 26, 2020, 09:53:11 pm »

Platform: VBA
Object: ListBox

'=================================================================
'Description: Loop through a list box
'Called By:
'Calling:
'Parameters:
'Returns: N/a
'Author: Michael Javes, Database Dreams
'Editor(s) :
'Date Created: N/A
'Rev. History:
'Requirements: lst_emps Name given to list
'=================================================================
Dim m_Db As Database
Dim Emp As DAO.Recordset
Dim VarNum As Variant
 
On Error GoTo HandleErr
 
Set m_Db = CurrentDb()

'Updatabale recordset Adding records only 
Set Emp = m_Db.OpenRecordset("SELECT * FROM YourTable", dbOpenDynaset, dbAppendOnly) 
 
If lst_emps.ItemsSelected.Count <> 0 Then
        For Each VarNum In lst_emps.ItemsSelected
        With Emp
        'Do Something 
       End With
        Next
End If
 
'Cean Up
Emp.Close
Set Emp = Nothing
m_Db.Close
Set m_Db = Nothing
'Close this forum
 
HandleExit:
    Exit Sub
    
HandleErr:
    Select Case Err.Number
        Case Else
            MsgBox Err.Number & vbCrLf & Err.Description
            Resume HandleExit
        Resume
    End Select

News:

DD's Stats

Recommended Posts

Todays Birthdays

DD's Top Posters

Author Topic: Looping through Listbox Selected Items list (Read 8 times)

DD Admin

Looping through Listbox Selected Items list

Related Topics

DD's Social Media

DD's Programs

Recent Topics