bouton pour supprimer ma sélection

salut

Je voudrais programmer un bouton qui me supprime ce que j'ai sélectionné dans mon sous-formulaire. qqun peut m'aider ?

merci


Enaira

Une fois que tu a ajouté ton bouton, en mode création double click dessus. Tu tombe sur la procédure qui réagit à l'évenement click. et ajoute "Selection.ClearContents".
Ca devrais te donner un truc du style:
Private Sub CommandButton1_Click()
Selection.ClearContents
End Sub

ça marche pas ! il bloque dessus !!

Voici ma prog :

Private Sub cmd_enleverType_Click()
Dim intEnleverType As Integer

intEnleverType = MsgBox("Etes-vous sûr de vouloir supprimer ce(s) type(s)?", vbYesNoCancel + vbCritical, "Enlever type")

If intEnleverType = vbYes Then
Selection.ClearContents
Else
DoCmd.CancelEvent
End If

End Sub

Est-ce que tu as une autre solution ?
merci


Enaira

Sur mon office 2000 ton code marche!?! Sinon tu peux essayer d'affecter une valeur nul à la propriété value de tes cellules:
Private Sub cmd_enleverType_Click()
Dim intEnleverType As Integer

intEnleverType = MsgBox("Etes-vous sûr de vouloir supprimer ce(s) type(s)?", vbYesNoCancel + vbCritical, "Enlever type")

If intEnleverType = vbYes Then
Selection.Value = ""
Else
DoCmd.CancelEvent
End If

End Sub
Je l'ai testé ça marche aussi. Si tes problèmes persistent poste ton message d'erreur.
A+

J'ai pas de message d'erreur, mais quand j'appuie sur le bouton, il ouvre directement la fenêtre vba d'access pour le débogage et il surligne la ligne avec "Selection".

Je bosse avec office XP mais je ne pense pas que ce soit ça le pb. Par contre, tu as coché quoi et dans quel ordre dans les références d'access quand t'es dans la fenêtre de vba ?


Enaira[/font=Comic Sans MS]

Autant pour moi je faisait ça sous excell. Je connais rien à access, mais est ce que tu as essayé d'enregistrer une macro en faisant "manuellement" ta suppression? Des fois ça evite bien des problèmes.
Excuse moi encore...

Au cas où ça intéresserait qqun, voilà le code :

Private Sub cmd_enleverType_Click()
Dim intEnleverType As Integer
Dim rs As Recordset

intEnleverType = MsgBox("Etes-vous sûr de vouloir supprimer ce(s) type(s)?", vbYesNoCancel + vbCritical, "Enlever type")


If intEnleverType <> vbYes Then Exit Sub

'si la sélection est au niveau d'un nouvel enregistrement
If [Form_req_type_contact sous-formulaire1].NewRecord = True Then
intEnleverType = MsgBox("Un enregistrement qui n'existe pas, ne peut être supprimé !", vbExclamation, "ATTENTION")
Exit Sub
End If

'va chercher les infos du sous-formulaire
Set rs = [Form_req_type_contact sous-formulaire1].Recordset

rs.Delete


End Sub

bye
Enaira