Facil (MsgBox)
Publicado por Santiago (35 intervenciones) el 26/07/2002 22:33:40
A ver si me podeis ayudar, creo que la pregunta es facil:
Estoy desarrollando un procedimento para que se me elimine un registro al hacer click en un boton pero quiero que antes me salga un mensaje de confirmacion, he hecho lo siguiente:
***Private Sub Comando13_Click()
***Dim rs As New ADODB.Recordset
***Set rs = CurrentProject.Connection.Execute("SELECT * FROM publicaciones where idPub =" & Me![Idpub])
***Dim titulo As Variant
***titulo = rs("titulo")
***On Error GoTo Err_Comando13_Click
***MsgBox "Se va a eliminar el siguiente registro: '" & titulo & "'", vbOKCancel, "Aviso"
*** CurrentProject.Connection.Execute "delete from Publicaciones where *Idpub=" & Me![Idpub]
*** CurrentProject.Connection.Close
*** DoCmd.RunMacro "reconsulta"
***Exit_Comando13_Click:
*** Exit Sub
***Err_Comando13_Click:
*** MsgBox Err.Description
*** Resume Exit_Comando13_Click
***End Sub
El caso es que el registro se me elimina aunque pulse "cancelar"
He probado de todo, anidar la select de eliminacion en un if del tipo "if vbOK=true then", convertir la select en una subfuncion y llamarla con "then goto" y mil cosas más pero nada, lo elimina siempre (o nunca)
¿Alguien me puede decir qué estoy haciendo mal?
Estoy desarrollando un procedimento para que se me elimine un registro al hacer click en un boton pero quiero que antes me salga un mensaje de confirmacion, he hecho lo siguiente:
***Private Sub Comando13_Click()
***Dim rs As New ADODB.Recordset
***Set rs = CurrentProject.Connection.Execute("SELECT * FROM publicaciones where idPub =" & Me![Idpub])
***Dim titulo As Variant
***titulo = rs("titulo")
***On Error GoTo Err_Comando13_Click
***MsgBox "Se va a eliminar el siguiente registro: '" & titulo & "'", vbOKCancel, "Aviso"
*** CurrentProject.Connection.Execute "delete from Publicaciones where *Idpub=" & Me![Idpub]
*** CurrentProject.Connection.Close
*** DoCmd.RunMacro "reconsulta"
***Exit_Comando13_Click:
*** Exit Sub
***Err_Comando13_Click:
*** MsgBox Err.Description
*** Resume Exit_Comando13_Click
***End Sub
El caso es que el registro se me elimina aunque pulse "cancelar"
He probado de todo, anidar la select de eliminacion en un if del tipo "if vbOK=true then", convertir la select en una subfuncion y llamarla con "then goto" y mil cosas más pero nada, lo elimina siempre (o nunca)
¿Alguien me puede decir qué estoy haciendo mal?
Valora esta pregunta
0