请各位高手帮我看一下这段代码,看sql语句错在哪儿?

ouxingwang

请各位高手帮我看一下这段代码,看sql语句错在哪儿?
我用sql建了一个查询（名称为：添加一个字符字段）,内容为:alter table 图书 add column "[form]![添加字符字段]![文本1]"  text(1)，然后建了一个窗体，名称为“添加字符字段”，该窗体有一个文本框，名称为：文本1；一个“确定”按钮，现在我想在“文本1”中输入一个“分类”二字，然后单击“确定”按钮（该按钮对应的代码为：docmd.openquery"添加一个字符字段"），这样就可以在表“图书”中自动添加一个字段“分类”，不知我的sql语句错在哪？请各位高手指点为盼！

zhuyiwen

最好不要这样做,而改用VBA

Function AddField()
    On Error Resume Next
    Dim strSQL As String

    strSQL = "ALTER TABLE [图书] ADD COLUMN " & [FROMS]![添加字符字段]![文本] & _
          " TEXT(1);"
    CurrentProject.Connetion.Execute strSQL
End Function

然后调用这个函数.