Eliminar registro
Publicado por Claudia (56 intervenciones) el 08/10/2007 00:07:06
Hola a tod@s:
He revisado una y otra vez mi problema...pero no encuentro solucion:
tengo un formulario de ingreso de datos (Formulario1) . Además, éste formulario tiene dos comandos: Cancelar y Salir.
Al pulsar Cancelar, aparece otro formulario (mensaje) que pregunta si el registro desea ser eliminado, al Aceptar se elimina el registro y al Cancelar obviamente no se elimina el registro.
El formulario del mensaje, que en éste caso se llama "Mensaje2", tiene un código que permite capturar el ID del Formulario1:
Private Sub Form_Load()
Dim ParametrosRecibidos As Variant
If Nz(Me.OpenArgs, "") <> "" Then
ParametrosRecibidos = Split(Me.OpenArgs, ",")
[TxtID] = ParametrosRecibidos(0)
End If
End Sub
... ésto funciona sin problemas.. pero, cuando quiero Aceptar la eliminación...nada sucede...no se elimina el registro.
El siguiente código corresponde también al "Mensaje2"
Private Sub lblAceptar_Click()
Dim Sql As String
DoCmd.SetWarnings False
Sql = "DELETE Auditoría.[Id_Auditoría] " _
& "FROM Auditoría " _
& "WHERE (((Auditoría.[Id_Auditoría])=[TxtID]))"
DoCmd.RunSQL Sql
DoCmd.SetWarnings True
Forms!FormAudit.Requery
DoCmd.Close acForm, Me.Name
End Sub
en realidad, no sé cual es el problema. Incluso utilicé el código de un ejemplo de marta (la web de marta) llamado "Ficha de Empleados"...sin embargo ya no sé que hacer.
Espero me puedan ayudar.
Sldos.
He revisado una y otra vez mi problema...pero no encuentro solucion:
tengo un formulario de ingreso de datos (Formulario1) . Además, éste formulario tiene dos comandos: Cancelar y Salir.
Al pulsar Cancelar, aparece otro formulario (mensaje) que pregunta si el registro desea ser eliminado, al Aceptar se elimina el registro y al Cancelar obviamente no se elimina el registro.
El formulario del mensaje, que en éste caso se llama "Mensaje2", tiene un código que permite capturar el ID del Formulario1:
Private Sub Form_Load()
Dim ParametrosRecibidos As Variant
If Nz(Me.OpenArgs, "") <> "" Then
ParametrosRecibidos = Split(Me.OpenArgs, ",")
[TxtID] = ParametrosRecibidos(0)
End If
End Sub
... ésto funciona sin problemas.. pero, cuando quiero Aceptar la eliminación...nada sucede...no se elimina el registro.
El siguiente código corresponde también al "Mensaje2"
Private Sub lblAceptar_Click()
Dim Sql As String
DoCmd.SetWarnings False
Sql = "DELETE Auditoría.[Id_Auditoría] " _
& "FROM Auditoría " _
& "WHERE (((Auditoría.[Id_Auditoría])=[TxtID]))"
DoCmd.RunSQL Sql
DoCmd.SetWarnings True
Forms!FormAudit.Requery
DoCmd.Close acForm, Me.Name
End Sub
en realidad, no sé cual es el problema. Incluso utilicé el código de un ejemplo de marta (la web de marta) llamado "Ficha de Empleados"...sin embargo ya no sé que hacer.
Espero me puedan ayudar.
Sldos.
Valora esta pregunta
0