eliminar con dao

auro
15 de Marzo del 2002
tengo un formulario en el que listo una tabla y en un button pongo este codigo para eliminar el registro en el que me encuentra:

Private Sub cmdEliminar_Click()
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Cnc")
If MsgBox("¿Está seguro que desea eliminar este registro?", vbQuestion + vbYesNo, "Eliminar registros") = vbYes Then
rst.Delete
End If
End Sub

pero no hace nada, y no se como hacerlo
ayuda

ana_maria
15 de Marzo del 2002
Auro,

por lo que veo tu codigo está bien, lo que creo que te está faltando es actualizar el recorset, es decir, despues de:

If MsgBox("¿Está seguro que desea eliminar este registro?", vbQuestion + vbYesNo, "Eliminar registros") = vbYes Then
rst.Delete

deberias de agregar:
rst.update

creo que ahí tendria que funcionar, ya que si bien por una parte eliminas el registro, ta falta actualizarlo

probalo así y despues me contás si te caminó, ok?
Saludos
Ana María