Access - Formulario continuo

..... And [campo con los IDs]  Not In ( lista de valores separados por comas = lista oculta) ....

Variable = variable & "," & [valor obtenido]  ' sea  'AAA123-2021' o 1234

'AAA123-2021', 'AAA023-2021', 'AAA123-2001', ...... == contenido de la variable ==>  "'AAA123-2021', 'AAA023-2021', 'AAA123-2001'"

1234,789,100,22222, .......  == contenido de la variable ==> "1234,789,100,22222"

Private Sub btnImprime_Click()

 Dim sFiltro As String

 Dim varPos As Variant

 If lstClientes.ItemsSelected.Count = 0 Then

    MsgBox "No ha seleccionado los registros a excluir", vbInformation, "Le informo"

    Exit Sub

 End If

 For Each varPos In lstClientes.ItemsSelected

   'NOTA: Si toma la columna 0 y esta contiene el  ID elija la primera opcion

      sFiltro = sFiltro & Me.lstClientes.ItemData(varPos) & ","

      ' Obtendría algo como: NOT IN(2,4,6)

      'Si toma la columna 1 y es texto escoja la siguiente opción

     ' sFiltro = sFiltro & "'" & Me.lstClientes.Column(1, varPos) & "'" & ","

      ' Obtendría algo como: NOT IN('Chinú','Cartagena','Sincelejo')

 Next varPos

 If sFiltro <> "" Then

  sFiltro = Left(sFiltro, Len(sFiltro) - 1)

 End If

 DoCmd.OpenReport "rptClientes", acViewPreview, , "idte NOT IN( " & sFiltro & ")"

End Sub