Bonjour.Voilà j'ai une macro qui me permet de supprimer un élément dans un textbox.A partir de ces éléments je n'ai plus de textbox mais une liste.J'ai un problème, c'est qu'il m'affiche un problème d'incompatibilté de type dans ma requête.Voilà ce que j'ai tapé:
Code :
- Private Sub CmdSup_Click()
- If IsNull(Me!Listeasso) Then
- MsgBox "Aucune association a été selectionné dans la liste.", vbCritical
- Else
- DoCmd.SetWarnings False
- DoCmd.RunSQL "DELETE [Nom Association] FROM Associations WHERE Me!Listeasso=" * ""
- DoCmd.SetWarnings True
- Me!Listeasso.SetFocus
- sMAJlst Me!Listeasso
- End If
- End Sub
|
Puis
Code :
- Sub sMAJlst(lst As ListBox)
- Dim lngVal As Long
- With lst
- lngVal = Nz(.ListIndex, -1)
- .Requery
- If .ListCount > 0 Then
- If (lngVal >= 0) Then
- While lngVal > (.ListCount - 1)
- lngVal = lngVal - 1
- Wend
- .Value = .Column(0, lngVal)
- Else
- .Value = .Column(0, 0)
- End If
- End If
- End With
-
- End Sub
|
Merci d'avance de vos réponses
