Eliminar registro concreto

[Koudelka]

Veamos, en un formulario tengo una lista que me muestra una serie de listados. Hay un botón que al seleccionar uno y al pulsarlo lleva a otro formulario para modificar. Ahora lo que quiero es que en el formulario de la lista, al seleccionar un registro, al darle a un botón se elimine, saliendo previamente un mensaje de aceptar o cancelar y en caso de aceptar eliminarlo.

[Taribo007]

prueba algo asi:

Dim respuesta As Integer

respuesta = MsgBox("¿Desea borrar el registro?", vbQuestion + vbYesNo, "ATENCION")
If respuesta = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
End If

Un saludo

[Koudelka]

me da error en esta línea

DoCmd.RunCommand acCmdDeleteRecord

El error que me da es el 2046 y me dice que la acción o comando "EliminarRegistro" no está disponible ahora.

[Taribo007]

Lo he entendido mal, el boton para borrar no esta en el form que se abre, sino en el que esta la lista. Y quieres que se borre el registro seleccionado en la lista. Es asi?? Si es asi, cual es la columna dependiente de la lista??? Se corresponde con un campo clave de la tabalq ue quieres borrar el regiostro?? Este campò clave es de tipo texto o numerico??

Un slaudo

[Koudelka]

La columna dependiente es la 1, que corresponde a nparte (autonumérico). Y si, lo que quería era seleccionar un registro de la lista y que me eliminase el seleccionado únicamente.

[Taribo007]

Entonces, usa una consulta de eliminacion sobre la tabla, con el registro seleccionado en la lista, luego refresca la lista para que no aparezaca el registro (siempre que el origen de la fila de la lista sea la tabla en cuestion, o una consulta basada en dicha tabla):

currentdb.execute "Delete from NombreTabla where nparte=" & me.Lista.Value
me.Lista.requery

Un saludo

[Koudelka]

Creo que me he liadocon lo de la consulta @_@

Veamos, la lista está basada en una consulta que cuando abre el formulario le pregunta por un día. En vez de esa tengo que basarla en otra cosulta (de eliminación que dices tú) y después en el botón poner lo que has puesto?

[Taribo007]

No, lo importante es que el nparte este en la tabla que quieres borrar. Por que lo que uiqres es borrar un registro de una tabla, segun la seleccion del cudro de lista, no?? No cambies nada, solo pon lo que te puse en el boton de borrar (añadiendo la rpegunta con el msgbox, y listo

Un saludo

[Koudelka]

respuesta = MsgBox("¿Desea borrar el registro?", vbQuestion + vbYesNo, "ATENCION")
If respuesta = vbYes Then
currentbd.Execute "Delete From PartesDeTrabajo Where nparte=" & Me.Lista.Value
Me.Lista.Requery
End If

esto es lo que tengo puesto y me da error en lo marcado en rojo. El error que me da es el 424, se requiere un objeto.

[Taribo007]

Como se llama tu lista??

un saludo

[Koudelka]

se llama Lista

[Taribo007]

Me ha bailado la b y la d

CurrentDb.Execute "Delete From PartesDeTrabajo Where nparte=" & Me.Lista.Value

Un slaudo

[Koudelka]

vale, era eso XDDDD