Actualizar una tabla con una función
Tengo una tabla llamada cálculos y un formulario llamado calculos2 lo que quiero es que la tabla se actualice por medio de una función que realiza unos cálculos.
Ejemplo:
Private Sub Form_Load()
Dim consulta As String
consulta = "UPDATE calculos SET calculos where respuesta='[xx]'"
CurrentDb.Execute consulta
End Sub
esta es la funcion
Private Function xx()
Dim respuesta2 As Integer
respuesta2 = [dato1] + [datos2]
End Function
Pero no me realiza ningún calculo y no me da ningún error
Ejemplo:
Private Sub Form_Load()
Dim consulta As String
consulta = "UPDATE calculos SET calculos where respuesta='[xx]'"
CurrentDb.Execute consulta
End Sub
esta es la funcion
Private Function xx()
Dim respuesta2 As Integer
respuesta2 = [dato1] + [datos2]
End Function
Pero no me realiza ningún calculo y no me da ningún error
1 Respuesta
Respuesta de jerrmex
1
consulta = "UPDATE calculos SET calculos where respuesta=xx()"
Private Function xx()
Dim respuesta2 As Integer
respuesta2 = [dato1] + [datos2]
xx=Respuesta2
End Function
Private Function xx()
Dim respuesta2 As Integer
respuesta2 = [dato1] + [datos2]
xx=Respuesta2
End Function
Tengo una tabla llamada cálculos y un formulario llamado calculos2 lo que quiero es que la tabla se actualice por medio de una función que realiza unos cálculos.
Ejemplo:
Private Sub Form_Load()
Dim consulta As String
consulta = "UPDATE calculos SET calculos where respuesta='[xx]'"
CurrentDb.Execute consulta
End Sub
esta es la funcion
Private Function xx()
Dim respuesta2 As Integer
respuesta2 = [dato1] + [datos2]
End Function
Pero no me realiza ningún calculo y no me da ningún error
Ejemplo:
Private Sub Form_Load()
Dim consulta As String
consulta = "UPDATE calculos SET calculos where respuesta='[xx]'"
CurrentDb.Execute consulta
End Sub
esta es la funcion
Private Function xx()
Dim respuesta2 As Integer
respuesta2 = [dato1] + [datos2]
End Function
Pero no me realiza ningún calculo y no me da ningún error
Hola probé lo que me mandaste pero no logro hacer que funcione, lo que deseo es que desde un form al abrirlo se actualice los cálculos que describo en la función es una suma, es solo una prueba para una función más grande que tengo. Te mando el código nuevamente
Private Sub Form_Load()
Dim consulta As String
consulta = "UPDATE calculos SET calculos.[respuesta] =xx"
CurrentDb.Execute consulta
End Sub
esta es la funcion que he creado bueno digo funcion no se si sera correcto
Private Function xx()
Dim respuesta2 As String
respuesta2 = [dato1] + [datos2]
xx = respuesta2
End Function
Private Sub Form_Load()
Dim consulta As String
consulta = "UPDATE calculos SET calculos.[respuesta] =xx"
CurrentDb.Execute consulta
End Sub
esta es la funcion que he creado bueno digo funcion no se si sera correcto
Private Function xx()
Dim respuesta2 As String
respuesta2 = [dato1] + [datos2]
xx = respuesta2
End Function
[1] Vas a hacer cálculos matemáticos y defines variable texto, debe ser numérica
Dim consulta As String
consulta = "UPDATE calculos SET calculos.[respuesta] =xx"
[2] Como quieres que te regrese un valor si dato1 y dato2 ¿dónde están definidos y que valores tienen? Y lo mismo regresas cálculos con string en ves de numérico.
respuesta2 = [dato1] + [datos2]
entra a mi sitio
http://sites.google.com/site/jerrmex/descargas
En la opción 41_Actualizar Tabla con Función, ve que la tabla en el campo respuesta este sin datos para que corras el formulario.
Dim consulta As String
consulta = "UPDATE calculos SET calculos.[respuesta] =xx"
[2] Como quieres que te regrese un valor si dato1 y dato2 ¿dónde están definidos y que valores tienen? Y lo mismo regresas cálculos con string en ves de numérico.
respuesta2 = [dato1] + [datos2]
entra a mi sitio
http://sites.google.com/site/jerrmex/descargas
En la opción 41_Actualizar Tabla con Función, ve que la tabla en el campo respuesta este sin datos para que corras el formulario.
