Eliminar o deshacer un registro
Publicado por Guillermo (1 intervención) el 05/09/2006 01:43:24
Hola buenas noches.
necesito eliminar un registro de dos tablas, una es tabla (altas_cab) "datos de cabecera", el cual no fue terminado de grabar en un formulario en access "el usuario no lo concluye y le estamos asignando un boton de cancelar la operacion, pero para esto necesitmos que borre los registros de ambas tablas que fueron capturados, este formulario tiene adentro un subformulario, el cual es donde se graban las partidas (Altas_detalle).
adjunto ejemplo, el cual no lo esta haciendo correcto.
Private Sub Eliminar_registro_Click()
Dim BSB As New ADODB.Connection
Dim altas As New ADODB.Recordset
BSB.Open "DSN=paso"
'las siguientes dos lineas estan comentadas, las cuales si estan borrando pero lo de altas_cab, falta la de altas_detalle
'DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
'DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
altas.Open "delete * from Altas_detalle where Altas_detalle.id" = '" & id.Text &", BSB
MsgBox "ok borrado"
DoCmd.Close
BSB.Close
End Sub
espero su apoyo...gracias...
necesito eliminar un registro de dos tablas, una es tabla (altas_cab) "datos de cabecera", el cual no fue terminado de grabar en un formulario en access "el usuario no lo concluye y le estamos asignando un boton de cancelar la operacion, pero para esto necesitmos que borre los registros de ambas tablas que fueron capturados, este formulario tiene adentro un subformulario, el cual es donde se graban las partidas (Altas_detalle).
adjunto ejemplo, el cual no lo esta haciendo correcto.
Private Sub Eliminar_registro_Click()
Dim BSB As New ADODB.Connection
Dim altas As New ADODB.Recordset
BSB.Open "DSN=paso"
'las siguientes dos lineas estan comentadas, las cuales si estan borrando pero lo de altas_cab, falta la de altas_detalle
'DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
'DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
altas.Open "delete * from Altas_detalle where Altas_detalle.id" = '" & id.Text &", BSB
MsgBox "ok borrado"
DoCmd.Close
BSB.Close
End Sub
espero su apoyo...gracias...
Valora esta pregunta
0