Error al ejecutar un código en Visual Basic

Quiero ejecutar en código Visual Basic, INSERT INTO para introducir datos en una tabla, yo pongo esto:
INSERT INTO Eventos(CODEMPRE,SUCESO,FECHAAVISO,EVENTO,TIPO)
VALUES(Me![CODEMPRESA], Me![SUCESO], Fecha, Me![EVENTO], Me![TIPO])
Y me pone en Eventos que se esperaba fin de instrucción, y no sé porque!

2 respuestas

Respuesta
1
Mi consejo es que en lugar de crear ese código, crees una consulta de datos añexados en el campo: haces click con el botón derecho y luego generar formularios etc. (creo que sabes manejar este tipo de consultas. El código que me envías es correcto, pero para evaluarlo mandame todo el evento desde el
Sub...
hasta el
END
Este es el código que se me ha ocurrido para poder hacer lo que necesitaba, de esta forma si me hace lo que quiero, lo que he hecho es primero introducir el dato en el formulario y luego ejecutar la consulta desde access ya que en la primera parte de este código calculo una fecha que necesito para introducirla el la BD, pero lo que no entiendo es porque no me dejaba hacer el insert into directamente. Muchas gracias!
On Error GoTo Err_Comando11_Click
'Esta es la parte donde volvemos a meter en la tabla Eventos el registro a borrar
'en caso de que sea de tpio ANALÍTICA
If (Me![SUCESO] = "ANALITICA") Then
'sumar siete dias he tenido en cuenta pasar de mes
If (Me![TIPO] = "SEMANAL") Then
Dia = Format(Me![FECHAAVISO], "DD")
Mes = Format(Me![FECHAAVISO], "MM")
If Mes = 12 Then
If (Dia + 7 > 30) Then
Dia = ((Format(Me![FECHAAVISO], "DD") + 7) Mod 30)
FECHA = ((Format(Me![FECHAAVISO], "DD") + 7) Mod 30) & "/" & (Format(Me![FECHAAVISO], "MM") - 11) & "/" & (Format(Me![FECHAAVISO], "yyyy") + 1)
'MsgBox (FECHA)
Else
FECHA = (Format(Me![FECHAAVISO], "DD") + 7) & "/" & Format(Me![FECHAAVISO], "MM") & "/" & Format(Me![FECHAAVISO], "yyyy")
'MsgBox ("Dia1 " & Fecha)
End If
Else
If (Dia + 7 > 30) Then
Dia = ((Format(Me![FECHAAVISO], "DD") + 7) Mod 30)
FECHA = ((Format(Me![FECHAAVISO], "DD") + 7) Mod 30) & "/" & (Format(Me![FECHAAVISO], "MM") + 1) & "/" & Year(Me![FECHAAVISO])
'MsgBox (Fecha)
Else
FECHA = (Format(Me![FECHAAVISO], "DD") + 7) & "/" & Format(Me![FECHAAVISO], "MM") & "/" & Year(Me![FECHAAVISO])
'MsgBox ("Dia1 " & Fecha)
End If
End If
Else
If (Me![TIPO] = "ANUAL") Then
FECHA = Format(Me![FECHAAVISO], "DD") & "/" & Format(Me![FECHAAVISO], "MM") & "/" & (Format(Me![FECHAAVISO], "yyyy") + 1)
'MsgBox (Fecha)
Else
'He tenido en cuenta cuando sea el mes 12
Mes = Format(Me![FECHAAVISO], "MM")
If Mes = 12 Then
FECHA = Format(Me![FECHAAVISO], "DD") & "/" & (Format(Me![FECHAAVISO], "MM") - 11) & "/" & (Format(Me![FECHAAVISO], "yyyy") + 1)
'MsgBox (Fecha)
Else
FECHA = Format(Me![FECHAAVISO], "DD") & "/" & (Format(Me![FECHAAVISO], "MM") + 1) & "/" & Year(Me![FECHAAVISO])
'MsgBox ("Fecha1" & Fecha)
End If
End If
End If
'Ahora tenemos que volver a insertar un nuevo registro para que nos avise
'cuando tenemos que volver a hacer la analítica
Me![FECHAAVISO] = FECHA
DoCmd.OpenQuery "Insertarotravez"
End If
'BORRAR
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Comando11_Click:
Exit Sub
Err_Comando11_Click:
MsgBox Err.Description
Resume Exit_Comando11_Click
End Sub
En lugar de Format(fecha,"xx") utiliza las funciones day(fecha), month(fecha) y year(fecha) -según la version access también en castellano día, mes, año - son más cortas y visuales. Y ten cuidado con las fechas a veces y sin saber porque cambia del formato español (dd/mm/aa) al inglés (mm/dd/aa).
Respuesta
1
Creo que tu problema radica en lo siguiente:
La instrucción
INSERT INTO Eventos(CODEMPRE,SUCESO,FECHAAVISO,EVENTO,TIPO) VALUES(Me![CODEMPRESA],Me![SUCESO],Fecha,Me![EVENTO],Me![TIPO])
Debe de tener una comilla sencilla por lo menos en los campos que son de tipo string, ejemplo:
INSERT INTO Eventos(CODEMPRE,SUCESO,FECHAAVISO,EVENTO,TIPO)
values(me![codempresa], me![suceso],"20020505", me![evento], me![tipo])
Para que sea mejor: los campos numéricos no llevan comilla, las fechas, los strings si lo llevan.
e-mail: [email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Formato dd/mm/yyyy en un textbox

Tengo una ultima duda (lo prometo) je je no se si me podrías colaborar con la programación. Dentro un textbox quisiera que se almacene fechas en formato dd/mm/yyyy, y Que si no lo ingresa de esa manera o introduce cualquier fecha que no es correcta...
1 respuesta

Si se deja un Textbox en blanco

Tengo este código en un formulario de excel: Private Sub TextBox1_Change() largo_entrada = Len(Me.TextBox1) Select Case largo_entrada Case 2 Me.TextBox1.Value = Me.TextBox1.Value & "/" Case 5 Me.TextBox1.Value = Me.TextBox1.Value & "/2008"...
2 respuestas

Problemas para actualizar fechas

Tengo un pequeño gran problema. Resulta que tengo un sistema hecho en visual basic 2006. Dicho sistema esta conectado a una base de datos hecha en foxpro 6.0. Esta BD a su vez es usada por un sistema hecho en foxpro 6.0. Este sistema se puede decir...
1 respuesta

¿Formulario qué me saque las ITV que caducan antes de una fecha?

Tengo un formulario, donde aparece la matricula de un vehículo, y un formulario asociado a esta matricula donde están las Itv. Es decir Matricula Fecha a pasar ITV Fecha Próxima ITV O-5453-BZ 01/01/2012 30/06/2012 O-5453-BZ 01/07/2012 31/12/2012...
1 respuesta

Consulta por rango de fechas

La consulta es muy simple pero no me esta funcionando. Tengo una tabla en la que almaceno mediante un formulario, toda la materia prima egeresada de una bodega. Necesito hacer un formulario que me permita mostrar solo los egresos que correspondan a...
1 respuesta

Restar fechas

Tengo un problema tengos 3 campos fecha dos de ellos los debo de sumar y me deben de dar cierta cantidad en años, meses y días, esa es la primera duda, como le hago para que salga así, y luego el resultado de estos dos campos mencionados los debo de...
3 respuestas

Compara 2 fechas distintas en visual basic 6

Que tal tengo este inconveniente quisiera saber como le puedo hacer para comparar 2 fechas en visual basic 6, en un formulario tengo 2 textbox con los siguientes nombres text1 y text2 ambos reciben fecha, pero text1 siempre debe mostrar la fecha...
1 respuesta

Calculo los días laborales de un campo hasta fecha()

Como dice la pregunta quiero calcular los días laborables que tengo en Tabla1>nombrecampo1 y quiero contar cuantos hay hasta la fecha actual (FECHA()), y si dentro de ese rango hay festivos quitarlos. Los festivos había pensado escribirlos en la...
2 respuestas

Actualizar con sql

Soy la de lo arboles, que quiere actualizar dos tablas en un dw. Probé actualizar la segunda tabla con Sql, pero me sale este error: Aplication Terminated Error:Name not found accesing external object property id_campo at line 20 in clicked cb_2 of...
1 respuesta

Fecha de vencimiento en access y visual basic

No puedo encontrar la forma correcta de calcular si algo esta vencido o no... Es decir, quiero saber si la fecha "Fecha Vencimiento" es mayor a la "Fecha actual" me devuelva que esta vencido: If [Fecha x] > [Fecha actual] Then [Estado] = "Vencido"...
2 respuestas