Delete con condicion Where tipo Numero

Espero me puedan ayudar con este problema en mi línea de código que es esta:

Private Sub Comando71_Click()
Dim strSQL As String
strSQL = "DELETE * FROM Tbl_SALIDAS WHERE Codigo_Movimiento  = '" & Me.Codigo_Movimiento.Value
CurrentDb.Execute strSQL, dbFailOnError
End Sub

lo que deseo hacer, como pueden ver, es una consulta de eliminacion dependiendo el valor del campo "Codigo_Movimiento", el problema esta en que me marca error en la parte del WHERE ya que el valor es numerico, y tengo entendido de que es diferente la manera de ponerlo entre comillas. Ya traté de esta manera:

Private Sub Comando71_Click()
Dim strSQL As String
strSQL = "DELETE * FROM Tbl_SALIDAS WHERE Codigo_Movimiento  ='" & Me.Codigo_Movimiento.Value &"'"
CurrentDb.Execute strSQL, dbFailOnError
End Sub

pero me manda un error "No coinciden los tipos de datos en la expresion de criterios".

2 respuestas

Respuesta
2

Vale que te confundas en si debes usar o no las comillas cuando el valor es numérico (que no las tienes que usar), pero lo que siempre, siempre es un error es poner una sola comillas como estás haciendo:

Private Sub Comando71_Click()
Dim strSQL As String
strSQL = "DELETE * FROM Tbl_SALIDAS WHERE Codigo_Movimiento  = " & Me.Codigo_Movimiento.Value
CurrentDb.Execute strSQL, dbFailOnError
End Sub

La solución que te ofrece Leo, tiene el mismo problema, además de que convertir el valor a cadena de texto para asignarlo a un campo numérico no soluciona nada.

Un saludo.

Svein, gracias por tu respuesta, observe lo siguiente: al poner las comillas como me indicas, y al ejecutar el botón de comando, observe que no hacia nada visualmente, pero en realidad si borra el registro en la tabla, pero al no ver que el registro se borraba en el formulario, volví a dar clic en el botón y me mandaba un error y los campos del formulario aparecían así "#Eliminado", ¿a qué se debe esto?... mi solución fue poner una línea de código para hacer un refresh y otra para poner el formulario a nuevo registro, esto para evitar que el usuario vea el error, aunque realmente si se halla eliminado el registro...

¿Qué otra solución me puedes dar Svein para evitar el poner líneas de más? ¿O consideras que esta bien lo que hice?

Mis saludos!

El "error" #Eliminado es porque el registro ya no existe (ya lo has borrado).

El refresh está bien por sí solo, pero si lo mandas a un registro nuevo, yo no lo pondría.

Respuesta
1 
Prueba con el siguiente codigo
Dim strSQL As String
strSQL = "DELETE * FROM Tbl_SALIDAS WHERE Codigo_Movimiento  = '" & str(Me.Codigo_Movimiento.Value)
CurrentDb. Execute strSQL, dbFailOnError

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Eliminar varios registros de una tabla

Tengo una tabla en access 2013 que contiene un control de pagos para un cliente la idea es que a través de un botón pueda eliminar todos los registros que contienen la tabla en el momento en el que ese control de pagos quedo mal creado Eh intentado...
3 respuestas

Duplicar Registro de formulario y sus registros relacionados - Access

Quisiera poder duplicar un registro y sus registros relacionados por medio de un botón en un formulario. EJ: Tabla Pedidos: ID autonumérico - Cliente - Proveedor Tabla Detalle de pedidos: Id autonumérico - Producto - Precio Quisiera poder desde el...
1 respuesta

Error 424 en Consulta de Actualización Datos Access

Acudo a ustedes para que me ayuden con un inconveniente que tengo en una consulta de actualización en access, les comento cree un formulario el cual depende de una tabla llamada reportes allí cree través de dos texbox solicita una información el...
1 respuesta

Unir varias tablas en una sola ACCESS

Tengo 3 tablas A, B, C, con la misma estructura, necesito unirlas para generar una nueva tabla "X", lo he hecho con una consulta de Unión, pero lo que necesito para el trabajo que estoy elaborando es una nueva tabla.
1 respuesta

Cumplimentar los datos de una tabla que no esta en el formulario principal

Necesito un poco de ayuda. Tengo un formulario resumen que a través de una tabla principal anexa y recoge datos de varias tablas. En la Tabla anexada recojo el [Id] de cada una de las tablas al igual que recojo el tipo de tabla que es para después...
1 respuesta

Cómo recuperar una clave identity en el programa informático Visual Basic

Estoy muy agradecido por tu aporte anterior. Estuvo muy bueno. Ahora... Vuelvo con el tema de recuperar una clave identity. Quisiera ver si está bien armada esta consulta de selección: Private Sub Form_Terminate() Dim UltRegistro As String Set Base =...
1 respuesta

Eliminar un registro de la bd y del datagrid en vb

Soy nuevo en esto, haber si me pueden ayudar estoy haciendo un sistema de facturación, donde despliega el datagrid cuando quiero dar de baja un registro. Por lo tanto hago un click en el data grid y quiero capturar la fila y eliminarla del datagrid y...
1 respuesta

Borrar registros en tabla de access por vba

Estoy tratando de eliminar datos de una tabla de access, lo más fácil es crear una consulta de eliminación pero en realidad lo he querido hacer por medio de vba. Lo que pretendo es borrar los registros en la tabla "Control", en donde la línea sea...
2 respuestas

Sentencia SQL (access) de registros seleccionados LISTBOX

Estoy intentando construir un informe en el que solo se muestren los registros correspondientes a los items seleccionados en un control listbox (selección múltiple). Actualmente, el informe ya lo construyo asigándole su recordsource a partir de una...
2 respuestas

Buscar Coincidencias en Dos Tablas de Access

Estoy intentando realizar la búsqueda de uno datos de una tabla de access en otra. La tabla 1 (Datos de Búsqueda) contiene dos columnas: Documento de identificación (pueden ser alfanuméricos) y Nombres completos. Tabla 2 Contiene: IdRegistro,...
1 respuesta