如何在窗体执行模块中的代码

wt565

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

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


Private Sub Command1_Click()

BBB？

End Sub

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

admin

BBB 要设置 成 public 即可

wt565

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小宝

提示什么错误？

aslxt

会不会是：
DoCmd.RunSQL "Delete * FROM [" & rst![Name] & "]"
？

wt565

会不会是：
DoCmd.RunSQL "Delete * FROM [" & rst![Name] & "]"
？

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

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

xxfwajj84

请把模块的名字与Public Sub ClearAllData()设置成不一样的就可以了
call 直接调用Public Sub ClearAllData() 声名的名字

wt565

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

谢谢指点