Trap Error

I'm using Pat Hartman's code to select items from a list box and then append the records to a table. If a user doesn't select anything before clicking the buttom I'm trying to give them an error message. I've tried it in various places but can't get it to work. The attached is giving me the error message regardless of whether they have selected anything or not.

On Error GoTo Err_CreateAttendanceRecords_Click

Dim i As Variant
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim qd As DAO.QueryDef

Set dbs = CurrentDb
Set qd = dbs.QueryDefs!qrynewvaluations2
Set rst = qd.OpenRecordset

If i = 0 Then
MsgBox "You must select at least one property before continuing"
Exit Function
End If

For Each i In ctlref.ItemsSelected

rst.AddNew
rst!valprop = ctlref.ItemData(i)
rst!valdate = Me.txtValDAte
rst.Update

Next i
Set rst = Nothing
Set qd = Nothing
MsgBox "Records Created"

exit_createattendancerecords_Click:
Exit Function

Err_CreateAttendanceRecords_Click:
Select Case Err.Number
Case 3022 'ignore duplicate keys
Resume Next
Case Else
MsgBox Err.Number & "-" & Err.Description
Resume exit_createattendancerecords_Click
End Select


Any suggestions?

Thanks

Dawn