No me funciona consulta actualización access

Quiero actualizar un campo si/no de una tabla mediante una consulta de actualización.

La tabla es TIP(id, IP, Ocupada), lo pretendo hacer es desde un Formulario en el cual tengo un cbo con referencia a las Ip el origen del combo es TIP con los campos id, IP y coge como valor el segundo.

En el evento después de actualizar le he puesto el siguiente código pero no me funciona:

Private Sub IP_AfterUpdate()
Dim miSql As String
miSql = "update TIP set Ocupado=true where IP= & me.IP"
End Sub

Lo que quiero hacer es que me actualice ese campo y si selecciono uno que este ocupado me lo diga, esto ultimo también lo podría filtrar mediante criterio en la consulta.

3 Respuestas

Respuesta
1

Tienes mal la SQL:

"UPDATE TIP SET Ocupado=True WHERE IP=" & Me.IP

Y si así no te va tampoco prueba de esta otra forma:

"UPDATE TIP SET Ocupado=-1 WHERE IP=" & Me.IP

Todo esto suponiendo que el campo IP es numérico, si no ha de ir entrecomillado, como ya deberías saber... XD

Private Sub IP_AfterUpdate()
Dim miSql As String
miSql = "UPDATE TIP SET Ocupado=-1 WHERE IP= & me.IP"
DoCmd.RunSQL miSql
End Sub

He probado así y con Ocupado=true y tampoco me funciona me da error 3075:

El campo en el formulario se llama IP y el campo de la tabla TIP también se llama así.

El error lo marca en la línea de ejecución de la SQL

Sigues poniendo mal la SQL, fíjate en la colocación de las comillas.

Respuesta
1

Aparte de que como bien dice el compañero tienes mal la instrucción SQL, una vez construida deberías hacer que se ejecute.

Después de la línea corregida deberías poner:

CurrentDB. Execute(miSql)

Gracias Tomas he probado con lo que me dijo Sveinbjorn y poniendo al final del código con las dos opciones y no me funciona:

DoCmd.RunSQL miSql
CurrentDB. Execute(miSql)

Perdona Kike, puse un espacio después del punto.

Verifica que funcione sin espacio y si no dímelo y esta noche te lo verifico.

¡Gracias! Funciona correctamente de las dos formas ya.

Private Sub IP_AfterUpdate()
Dim miSql As String
miSql = "UPDATE TIP SET Ocupada=true WHERE IP='" & Me.IP & "'"
'DoCmd.RunSQL miSql
 CurrentDb.Execute (miSql)
End Sub
Respuesta
1

En el WHERE puede ser que necesites indicar que campo del combo es el que estas comparando y si es un campo texto necesitara comilla sencilla:

"UPDATE TIP SET Ocupado=-1 WHERE IP='" & Me.IP.column(1) & "'"

¡Gracias! He conseguido que me funciones de esta manera

Private Sub IP_AfterUpdate()
Dim miSql As String
miSql = "UPDATE TIP SET Ocupada=true WHERE IP='" & Me.IP & "'"
DoCmd.RunSQL miSql
End Sub

Mx-DF

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Recorrer subformulario para comprobar checkbox

Tengo un subformulario el cual contiene un checkbox llamado "imprimir" en cada registro, me gustaría poner un botón en el formulario principal que detecte las casillas marcadas y ejecute un comando si la casilla esta marcada para cada registro marcado.
2 respuestas

Combinar datos de dos tablas mediante do while

Agradezco mucho la ayuda y el tiempo que dedican a ayudarnos. Estoy tratando de combinar los datos de dos tablas, en ambas tablas tengo nombres de municipios, pero quiero trasladar el código del municipio que está en la tabla Municipios a la tabla...
1 respuesta

Consulta de código en access para realizar consulta a base de datos

Tengo una tabla con campo clave NI y otro campo NInuevo y otro Bodega (son más pero esos son los importantes en esta rutina), la cual abro desde un formulario, necesito el código que me permita buscar en esa tabla el NI que coincida con el valor que...
1 respuesta

Recorrer una tabla con VBA y actualizar un campo

Estoy intentando actualizar un campo numérico de una tabla cuyo valor es cero y poner otro numero (p.e=44). El Código que he utilizado es: Public Function recorrerTabla() As Long Dim db As Database Set db = CurrentDb Set rst =...
1 respuesta

Error de Compilación Visual Basic para Access

Estoy intentando aprender instrucciones ADO de Visual Basic. (Gracias Nekkito por tu generosidad y valiosa ayuda con el "manual" para principiantes). El programa que intento aprender debe abrir una tabla en Access y modificar dos datos de la misma....
1 respuesta

Guardar valor del campo resultado de una consulta sql en una variable string

A través de un campo string de un formulario, quiero usar su valor (la palabra que hay almacenada dentro) para realizar una consulta sql de una tabla, y que me busque el registro que tiene dicho valor, y después extraer de dicho registro el valor de...
1 respuesta

Error 3144 Update no actualiza un campo que tiene como valor un numero con decimales!

Necesito modificar un campo de tipo double con decimales desde un formulario, el problema es que cuando ingreso un valor sin decimales por ejemplo 5,00 actualiza el dato bien, pero si ingreso un valor con decimales por ejemplo 5,25 aparece el error...
1 respuesta

Importar anexando registros desde una tabla externa a otra

Se me ha planteado un problema. Quiero importar los registros de una tabla que esta en un archivo mdb externo a una tabla en otro archivo de access mdb (que tendría abierto) anexando los registros que importo a los ya existentes. Lo mas cercano que...
2 respuestas

Actualizar tabla desde formulario con campo SI/NO

Estoy tratando de ejecutar una consulta de actualización desde el botón de un formulario, evaluando una caja de texto cuyo valor debe ser cero y un control de un dos subformularios que corresponde a un campo si/NO , pero no lo consigo, ¿Me puedes...
1 respuesta

Combinación de consultas totales en access (Sveinbjorn)

Tengo una tabla llamada TSituacion que es un histoiral de cada socio para saber si esta de alta o baja y en que fechas se produjo cada cual, pues después de realizar diversas consultas se creo una consulta CSituacionSocio que me dice cual es el...
1 respuesta