在access中建立窗体，上面放置一个按钮，怎样写事件代码才可以生成一个新表？

[htjuw]

我以前用delphi做很简单，到了access里面不知道该怎么办了？


哪位大侠给段代码示例一下
如何在access里的窗体中方便的操作数据，如读出，添加，修改，删除，总不是也要用VB＋ado来作吧?


万分感谢！

分数可以再加！

[victorycyz]

建新表：

Private Sub Command1_Click()

DoCmd.RunSQL "create table tablename (id single)"

End Sub

至于操作表，你用窗体向导生成一个数据表窗体就明白了。

[htjuw]

中海老大

麻烦您再看一个问题，


1 Private Sub Command1_Click()
2 If Text1.Text = "" Then MsgBox ("请输入结果表名！")
3 DoCmd.RunSQL "create table tablename (id single)"

4 End Sub


运行的时候报一个这样的错误 ：2185

除非控件获得焦点，否则您不能引用该控件的属性或方法

调试时指向第2行，这是怎么回事儿


我怎么觉得access的窗体编程怎么这么麻烦？

觉得很别扭

[changechange]

正确代码应该如下：

Private Sub Command1_Click()
text1.setfocus
If Text1.Text = "" Then MsgBox ("请输入结果表名！")
DoCmd.RunSQL "create table tablename (id single)"

End Sub

或者更改代码如下：

Private Sub Command1_Click()
If Text1.value = "" Then MsgBox ("请输入结果表名！")
DoCmd.RunSQL "create table tablename (id single)"

End Sub

[changechange]

关于此主题请参考：
如何禁止/屏蔽docmd.runsql执行查询时的提示？《查询》
http://access911.net/index.asp?u1=a&u2=76FABF1E