eliminar con dao
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
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
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
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