Les pros du VBA, preparez vous ! - VB/VBA/VBS - Programmation
Marsh Posté le 19-07-2004 à 22:31:08
Essaye ça :
rst.FindFirst "num_armoire = '" & chNomRecherche & "'"
Marsh Posté le 21-07-2004 à 10:57:37
yop yop couitchy a raison quand tu veux rechercher comme dans une requete sql pour un where tu dois mettre
Code :
|
Marsh Posté le 21-07-2004 à 15:44:37
bibashups a écrit : merci, mais ca ne marche toujours pas |
comment ça, ça ne marche pas ?
Marsh Posté le 22-07-2004 à 08:41:55
Citation : FindFirst, FindLast, FindNext, FindPrevious, méthodes |
Le type du recordset lié à la liste est-il correct ?
Marsh Posté le 22-07-2004 à 14:08:22
ben g toujours la meme erreur: type incompatible pour le probleme du haut, pour celui la je vais regarder
Marsh Posté le 19-07-2004 à 11:10:03
Voici le code que j'utilise pour supprimer un enregistrement(numero
d'armoire) selectionné dans une liste s'appelent Numero.
j'utilise un RecordSetClone pour retrouver l'enregistrement dans la base de
donnée et puis le supprimer.
mais j'ai un pb: il m'affiche le messag suivant quand je clique sur le
bouton supprimer: type incompatible et du coup il ne supprime meme pas
l'enregistrement. je ne sais pas pourkoi car le champnum_armoire dans la
table armoire est une String et chNomRecherche aussi.
est ce que vous voyez d'où le pb peut provenir??
Merci d'avance.
Private Sub supprimer_Click()
On Error GoTo Err_supprimer_Click
Dim rst As Recordset
Dim chNomRecherche As String
Set rst = Me.RecordsetClone
chNomRecherche = Str(Me!Numero)
rst.FindFirst "num_armoire = " & chNomRecherche
If rst.NoMatch Then
MsgBox "Armoire non trouvée"
Else
Me.Bookmark = rst.Bookmark
End If
rst.Close
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_supprimer_Click:
Exit Sub
Err_supprimer_Click:
MsgBox Err.Description
Resume Exit_supprimer_Click
End Sub