Office中国论坛/Access中国论坛

标题: 请老师帮助看看我的保存代码错在哪 [打印本页]

作者: yanwei82123300 时间: 2009-11-27 12:47
标题: 请老师帮助看看我的保存代码错在哪
请老师帮助看看我的保存代码错在哪？单击窗体Form1中save命令就提示编译错误？请帮助看看：

Private Sub Command12_Click()

Dim Sql As String

If Nz([µ¥¾ÝºÅ]) = "" Or Nz([²úÆ·ºÅ]) = "" Then
MsgBox "µ¥¾ÝºÅ»ò²úÆ·ºÅ²»ÄÜÎª¿Õ£¡"
  Else

Sql = "insert into tblStockIn/out(µ¥¾ÝºÅ,²úÆ·ºÅ,ÃèÊö,Ô Òò,[Èë_³ö],ÊýÁ¿,[ÈÕÆÚ],±¸×¢) select [µ¥¾ÝºÅ],[²úÆ·ºÅ],[ÃèÊö],[Ô Òò],[Èë_³ö],[ÊýÁ¿],[ÈÕÆÚ],[±¸×¢] "
DoCmd.RunSQL Sql


      MsgBox "Êý¾ÝÒÑ¾ Ìí¼Ó³É¹¦£¡"

      Me.[µ¥¾ÝºÅ] = Null
      Me.[²úÆ·ºÅ] = Null
      Me.[ÃèÊö] = Null
      Me.[Ô Òò] = Null
      Me.[Èë_³ö] = Null
      Me.[ÊýÁ¿] = Null
      Me.[ÈÕÆÚ] = Null
      Me.[±¸×¢] = Null
      Me.[frmStockIn_out].Requery

      Me![µ¥¾ÝºÅ].SetFocus





SQLText = "UPDATE [tblStock] SET [tblStock].[¿â´æÊýÁ¿] = Forms![frmAddData]![ÊýÁ¿]+[tblStock]![¿â´æÊýÁ¿]WHERE ((([tblStock].[²úÆ·ºÅ])=Forms![frmAddData]![²úÆ·ºÅ]));"
DoCmd.RunSQL SQLText
Me.Form.Refresh
End If
End Sub

作者: tmtony 时间: 2009-11-27 20:54
奇怪,我这里运行没有提示编绎错误哦

作者: xiazaidj 时间: 2009-11-28 09:46
同上

作者: yanwei82123300 时间: 2009-11-30 14:59
我的就提示？真是奇怪呀！！

作者: wufeng980114 时间: 2010-1-30 15:39
路过，学习了

作者: qdits 时间: 2010-1-30 16:29
LZ试一下逐一将代码屏蔽来进行测试,就会发现问题所在.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)