eliminar registros en un formulario con dao
Publicado por auro (8 intervenciones) el 13/03/2002 05:12:10
Hola:
Tengo un formulario con una lista obtenida de una tabla y quiero programar en un button con dao para eliminar registros.
he puesto este codigo pero no me funciona.
¿que modifico?
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
Tengo un formulario con una lista obtenida de una tabla y quiero programar en un button con dao para eliminar registros.
he puesto este codigo pero no me funciona.
¿que modifico?
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
Valora esta pregunta


0