INSERT INTO语句出错求助

yuzhusisi

我做了一个添加数据的功能,以前是字符型的,语句就会添加成功,如果改成货币型的或是数值型的,就显示数据错误,哪位好心人帮帮我
代码如下:
DoCmd.RunSQL ("INSERT INTO balance_cash(money) VALUES (Me![money])")

我改成这样都提示有错
DoCmd.RunSQL ("INSERT INTO balance_cash(money) VALUES (500])")

示例见附件
谢谢!

[ 本帖最后由 yuzhusisi 于 2008-12-30 11:15 编辑 ]

todaynew

DoCmd.RunSQL ("INSERT INTO balance_cash(money) VALUES (500)")

是不是多了]符号？

yuzhusisi

我试了,不行呀,如果是字符型的字段就没有错误提示

todaynew

Private Sub Command4_Click()
On Error GoTo Err_Command4_Click

    DoCmd.RunSQL "INSERT INTO balance_cash ( [money] ) SELECT [Forms]![balance_cash]![money] AS [money];"
Exit_Command4_Click:
    Exit Sub
Err_Command4_Click:
    MsgBox Err.Description
    Resume Exit_Command4_Click
   
End Sub

这样可以.

[ 本帖最后由 todaynew 于 2008-12-30 11:37 编辑 ]

WDLRCZT

看看这样行不行   
DoCmd.RunSQL ("INSERT INTO balance_cash([money]) VALUES (Forms![balance_cash]![money] )")

yuzhusisi

可以了,谢谢呀,好高兴

Henry D. Sy

DoCmd.RunSQL "INSERT INTO balance_cash ( [money] )values(" & Me.money & ")"

luhao

看看这样行不行   
DoCmd.RunSQL ("INSERT INTO balance_cash([money]) VALUES (Forms!![money] )")
WDLRCZT 发表于 2008-12-30 11:35

多谢启示