Recupérer les infos des éléments d'une liste déroulante multichx

strFiltre = "" 

  If strFiltre <> "" Then     

 strFiltre = strFiltre & " or " strFiltre = strFiltre & "[Code frs]='" & _ 

 Me!lstFOURNISSEURS.ItemData(varI) & "'"

' -----------------------------
' INITIALISATION DES SELECTIONS
' -----------------------------
' Entrée : strTableCible     <- Nom de la table dont
'                               on veut sélectionner les lignes
'          strClefPrimaire   <- Nom de la clef primaire de la table cible.
'          strTableSelection <- Nom de la table de sélection
'          strWhere          <- Clause Where optionnelle
'

Sub InitialiserSelection( _
  ByVal strTable As String, _
  Optional ByVal strClefPrimaire As String, _
  Optional ByVal strTableSelection As String = "Table sélection", _
  Optional ByVal strWhere As String = "")
  

  ' Vider la table des sélections
  'strTableSelection = "[" & strTableSelection & "]"
  'CurrentDb.Execute "DELETE * FROM " & strTableSelection & ";"
 
  ' Renseigner les nouvelles valeurs
  ' de la table des sélections
  Dim strSQL As String
  strSQL = "INSERT INTO " & strTableSelection & " (ID frs, Sélectionné)" _
  & " SELECT [" & strClefPrimaire & "],True" _
  & " FROM [" & strTable & "]"
  If strWhere <> "" Then strSQL = strSQL & " WHERE " & strWhere
  CurrentDb.Execute strSQL (1er débogage: Message d'erreur: "Erreur de syntaxe dans l'instruction INSERT INTO")
End Sub

' -------------------------------
' SELECTIONNER TOUTES LES LIGNES
' -------------------------------

Sub ToutSelectionner( _
  Optional ByVal strTableSelection As String = "Table sélection")
 
  CurrentDb.Execute "UPDATE [" & strTableSelection & "] SET [Sélectionné] = True;"
End Sub

' --------------------------------
' DESELECTIONNER TOUTES LES LIGNES
' --------------------------------

Sub ToutDeselectionner( _
  Optional ByVal strTableSelection As String = "Table sélection")
 
  CurrentDb.Execute "UPDATE [" & strTableSelection & "] SET [Sélectionné] = False;"
End Sub

' --------------------------------
'INVERSER LA SELECTION D'UNE LIGNE
' --------------------------------

Sub InverserSelection( _
    ByVal lngNumero As Long, _
    Optional ByVal strTableSelection As String = "Table sélection")

  Dim strSQL As String
  strSQL = "UPDATE [" & strTableSelection & "] SET [Sélectionné] = TRUE" _
  & " WHERE [ID frs] = " & lngNumero
  CurrentDb.Execute strSQL
End Sub


' ------------------------------
' COMPTER LE NOMBRE DE SELECTION
' ------------------------------
Function NombreSelections( _
    Optional ByVal strTableSelection As String = "Table sélection") As Long
   
    NombreSelections = DCount("*", strTableSelection, "[Sélectionné] = True")
    
End Function

 ------------------------
' CHARGEMENT DU FORMULAIRE
' ------------------------
Private Sub Form_Load()
    InitialiserSelection "FOURNISSEURS", "ID frs", "Table sélection"
    MiseAJourListes
End Sub

' ----------------------
' MISE A JOUR DES LISTES
' ----------------------
Private Sub MiseAJourListes()
    Me.lstfrs.Requery
    Me.lstfrsselectionnes.Requery
End Sub


' --------------------------
' SELECTION D'UN FOURNISSEUR
' --------------------------
Private Sub btnselectionun_Click()

   InverserSelection Me.lstfrs.Value
    'TransfererUn Me.lstfrs, Me.lstfrsselectionnes
    MiseAJourListes
End Sub

' ----------------------------
' DESELECTION D'UN FOURNISSEUR
' ----------------------------
Private Sub btndeselectionun_Click()

    InverserSelection Me.lstfrsselectionnes.Value (2ème débogage: Message d'erreur: Utilisation incorrecte de NULL)
    'TransfererUn Me.lstfrsselectionnes, Me.lstfrs
    MiseAJourListes
End Sub

' ----------------------------------
' SELECTION DE TOUS LES FOURNISSEURS
' ----------------------------------
Private Sub btnselectiontout_Click()
    ToutSelectionner
    MiseAJourListes
End Sub

' ------------------------------------
' DESELECTION DE TOUS LES FOURNISSEURS
' ------------------------------------
Private Sub btndeselectiontout_Click()
    ToutDeselectionner
    MiseAJourListes
End Sub

' --------------------------------------------
' DOUBLE-CLIC POUR SELECTIONNER UN FOURNISSEUR
' --------------------------------------------
Private Sub lstfrs_DblClick(Cancel As Integer)
    btnselectionun_Click
End Sub

' ----------------------------------------------
' DOUBLE-CLIC POUR DESELECTIONNER UN FOURNISSEUR
' ----------------------------------------------
Private Sub lstfrsselectionnes_DblClick(Cancel As Integer)
    btndeselectionun_Click
End Sub
' -----------------------
' FERMETURE DU FORMULAIRE
' -----------------------
Private Sub btnannuler_Click()
    DoCmd.Close
End Sub
' ------------------------
' VALIDATION DU FORMULAIRE
' ------------------------
Private Sub btnok_Click()
    ' Est-ce qu'on a sélectionné au moins 1 fournisseur ?
    If NombreSelections() = 0 Then
        MsgBox "Vous n'avez sélectionné aucun fournisseur !", vbExclamation
        Exit Sub
    End If
   
    ' Fermer le formulaire et ouvrir l'état des fournisseurs
    DoCmd.Close
    DoCmd.OpenReport "rapport frs", acViewPreview, , "[Sélectionné] = True"
End Sub

' ----------------------------
' DESELECTION D'UN FOURNISSEUR
' ----------------------------
Private Sub btndeselectionun_Click()
    
    If IsNull(Me.lstfrsselectionnes.Value) Then
    InverserSelection Me.lstfrsselectionnes.Value
    MiseAJourListes
    End If
    
End Sub

' ----------------------------
' DESELECTION D'UN FOURNISSEUR
' ----------------------------
Private Sub btndeselectionun_Click()

    InverserSelection Me.lstfrsselectionnes.Value
    'TransfererUn Me.lstfrsselectionnes, Me.lstfrs
    MiseAJourListes
End Sub

' ----------------------------
' DESELECTION D'UN FOURNISSEUR
' ----------------------------
Private Sub btndeselectionun_Click()

Dim MSG As String
If IsNull(Me.lstfrsselectionnes.Value) Then

MSG = MsgBox("NULL")
Else  
End If
    InverserSelection Me.lstfrsselectionnes.Value
    MiseAJourListes
End Sub

' ------------------------
' VALIDATION DU FORMULAIRE
' ------------------------
Private Sub btnok_Click()
    ' Est-ce qu'on a sélectionné au moins 1 fournisseur ?
    If NombreSelections() = 0 Then
        MsgBox "Vous n'avez sélectionné aucun fournisseur !", vbExclamation
        Exit Sub
    End If
   
    ' Fermer le formulaire et ouvrir l'état des fournisseurs
    DoCmd.OpenReport "selection frs", acViewPreview, "[Sélectionné] = True"
End Sub

if isnull(...)