Ingresar datos a una tabla
hola gracias por entrar y ayudar tengo el siguiente código y no me funciona me tira error con la variable metro3 cuando no esta funciona pero cuando la agrego me sale el error
el numero de valor de consulta y el numero de campo de destino son diferentes
Private Sub Comando17_Click()
metro3 = Me.ALTO.Value * Me.ANCHO.Value * Me.LARGO.Value / 1000000
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO CAJA_PRODUCTO (CODIGO_PRODUCTO,CODIGO_CAJA_PRODUCTO,metro3,peso,cantidad) VALUES (" & Me.CODIGO_PRODUCTO.Value & "," & Me.CODIGO_CAJA_PRODUCTO.Value & "," & metro3 & "," & Me.PESO.Value & "," & Me.CANTIDAD.Value & ")"
DoCmd.SetWarnings True
Me.CODIGO_CAJA_PRODUCTO.Value = ""
Me.CODIGO_PRODUCTO.Value = ""
Me.PESO.Value = ""
Me.ALTO.Value = ""
Me.ANCHO.Value = ""
Me.LARGO.Value = ""
Me.CANTIDAD.Value = ""
End Sub
cualquier sugerencia es recibida
muchas gracias
1 respuesta
Por lo que parece, el problema está en que tu valor metro3 toma un valor decimal con como, y access interpreta esa coma como el separador de un campo. Prueba una de estas alternativas, a ver si resuelve tu problema:
1º/ Pasar el valor de metro3 entre comillas:
DoCmd.RunSQL "INSERT INTO CAJA_PRODUCTO (CODIGO_PRODUCTO,CODIGO_CAJA_PRODUCTO,metro3,peso,cantidad) VALUES (" & Me.CODIGO_PRODUCTO.Value & "," & Me.CODIGO_CAJA_PRODUCTO.Value & ",'" & metro3 & "'," & Me.PESO.Value & "," & Me.CANTIDAD.Value & ")"
2º/ Usar la función Replace para cambiar la coma por un punto:
DoCmd.RunSQL "INSERT INTO CAJA_PRODUCTO (CODIGO_PRODUCTO,CODIGO_CAJA_PRODUCTO,metro3,peso,cantidad) VALUES (" & Me.CODIGO_PRODUCTO.Value & "," & Me.CODIGO_CAJA_PRODUCTO.Value & "," & Replace(metro3,",","." ) & "," & Me.PESO.Value & "," & Me.CANTIDAD.Value & ")"
