Office中国论坛/Access中国论坛

标题: 如何在窗体执行模块中的代码 [打印本页]

作者: wt565 时间: 2013-5-26 21:19
标题: 如何在窗体执行模块中的代码

我在数据库mdb的模块里已经建立好了一个清除所有记录的程序，名字叫BBB
现在创建了一个窗体，并且设置了一个命令按钮。

希望点击这个按钮就执行BBB
以下在编写脚本时应该用什么代码呢？请指点，谢谢

Private Sub Command1_Click()

BBB？

End Sub

我试着用Call BBB，但是不行。把Function BBB 改成 sub BBB 也不行

作者: admin 时间: 2013-5-26 23:59
BBB 要设置成 public 即可

作者: wt565 时间: 2013-5-27 20:06
本帖最后由 wt565 于 2013-5-27 20:15 编辑

admin 发表于 2013-5-26 23:59
BBB 要设置成 public 即可

谢谢，我改成Public，用Call调用BBB。
提示错误。请帮忙看看。
如果我单独在模块中运行BBB却没有问题。

Public sub BBB()
   Dim rst As Object
   DoCmd.SetWarnings False
   Set rst = CreateObject("ADODB.Recordset")
   rst.Source = "Select [Name] FROM MSysObjects Where Type=1 AND Not [Name] Like 'MSys%'"
   rst.Open , CurrentProject.Connection
   Do Until rst.EOF
      DoCmd.RunSQL "Delete FROM [" & rst![Name] & "]"
      rst.MoveNext
   Loop
   rst.Close
   DoCmd.SetWarnings True
End sub

作者: t小宝 时间: 2013-5-28 16:17
提示什么错误？

作者: aslxt 时间: 2013-5-29 13:07
会不会是：
DoCmd.RunSQL "Delete * FROM [" & rst![Name] & "]"
？

作者: wt565 时间: 2013-5-30 10:42
会不会是：
DoCmd.RunSQL "Delete * FROM [" & rst![Name] & "]"
？

我把星号加上了，还是不得要领。

上传一个附件，请大家帮忙看看。谢谢各位

作者: xxfwajj84 时间: 2013-5-30 22:36
请把模块的名字与Public Sub ClearAllData()设置成不一样的就可以了
call 直接调用Public Sub ClearAllData() 声名的名字

作者: wt565 时间: 2013-6-1 21:27

xxfwajj84 发表于 2013-5-30 22:36
请把模块的名字与Public Sub ClearAllData()设置成不一样的就可以了
call 直接调用Public Sub ClearAllDat ...

谢谢指点

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