[VB Access]Supprimer un élément d'un textbox

Supprimer un élément d'un textbox [VB Access] - VB/VBA/VBS - Programmation

Marsh Posté le 29-11-2006 à 11:00:42    

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 :
  1. Private Sub CmdSup_Click()
  3. If IsNull(Me!Listeasso) Then
  4.       MsgBox "Aucune association a été selectionné dans la liste.", vbCritical
  5.   Else
  6.       DoCmd.SetWarnings False
  7.       DoCmd.RunSQL "DELETE [Nom Association] FROM Associations WHERE Me!Listeasso=" * ""
  8.       DoCmd.SetWarnings True
  9.       Me!Listeasso.SetFocus
  10.       sMAJlst Me!Listeasso
  11.   End If
  13. End Sub


 
Puis

Code :
  1. Sub sMAJlst(lst As ListBox)
  3. Dim lngVal As Long
  5.   With lst
  6.     lngVal = Nz(.ListIndex, -1)
  7.     .Requery
  8.     If .ListCount > 0 Then
  9.       If (lngVal >= 0) Then
  10.         While lngVal > (.ListCount - 1)
  11.           lngVal = lngVal - 1
  12.         Wend
  13.         .Value = .Column(0, lngVal)
  14.       Else
  15.         .Value = .Column(0, 0)
  16.       End If
  17.     End If
  18.   End With
  20.    
  21. End Sub


Merci d'avance de vos réponses

Reply

Marsh Posté le 29-11-2006 à 11:00:42   

Reply

Marsh Posté le 29-11-2006 à 11:16:16    

J'avais oublié le guillemet mais maintenant il me demande d'entrer un paramètre de Me!Listeasso

Reply

Marsh Posté le 03-12-2006 à 15:29:23    

C'est normal, tu a placé un signe = juste après Me!Listeasso dans  
DoCmd.RunSQL "DELETE [Nom Association] FROM Associations WHERE Me!Listeasso=" * ""

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed