想学第一个VBA程序

roych

噢。大概是没有执行命令的缘故吧。此外，你的附件中序号为数值型，因此需要在原先的基础上去掉单引号。

1. Sub REN_A()
   
2. '定义数据连接
   
3. Dim cnn As ADODB.Connection
   
4. '定义ADO命令
   
5. Dim cmd As New ADODB.Command
   
6. Dim i As Long
   
7. '设置为当前工程连接
   
8. Set cnn = CurrentProject.Connection
   
9. For i = 1 To 10
   
10. '设置命令文本并执行之。
    
11. cmd.CommandText = "Insert into 表1 (序号) VALUES(" & i & ")"
    
12. cnn.Execute cmd.CommandText
    
13. Next
    
14. End Sub

复制代码

用Docmd.RunSQL会更简洁些，以下代码供参考。

1. Sub REN_A()
   
2. DoCmd.SetWarnings False
   
3. For i = 1 To 10
   
4. DoCmd.RunSQL "Insert into 表1 (序号) VALUES(" & i & ")"
   
5. Next
   
6. End Sub

复制代码

renyucai1963

roych 发表于 2011-9-12 13:43
噢。大概是没有执行命令的缘故吧。此外，你的附件中序号为数值型，因此需要在原先的基础上去掉单引号。用Do ...

版主，你好。
请问ACCESS里面可有求平均差的函数（STDEV)或者有其他的方法？请讲一讲。

roych

Excel里的部分统计函数，在Access里都有相应的SQL聚合函数，例如标准方差是：StDev ()或者StDevP，详细请在做查询时，右击窗格，点击生成器\函数\内置函数。具体用法则参考帮助文件，在这里不一一列出了。

renyucai1963

roych 发表于 2011-9-14 16:15
Excel里的部分统计函数，在Access里都有相应的SQL聚合函数，例如标准方差是：StDev ()或者StDevP，详细请在 ...

谢谢版主的回答。

renyucai1963

roych 发表于 2011-9-14 16:15
Excel里的部分统计函数，在Access里都有相应的SQL聚合函数，例如标准方差是：StDev ()或者StDevP，详细请在 ...

版主，标准差按列可以求出。我想按行求出，我是这样设置的。
运行出现对话框：标准表达式数据类型不匹配。
我把标准差的数据类型：单精度，双精度，按个设置也不行，请帮助看看。谢谢。

roych

不是在条件里设置的。是在字段的窗格上输入以下内容：
标准差之方差:StDev([编号])

renyucai1963

这是附件

renyucai1963

roych 发表于 2011-9-17 11:24
不是在条件里设置的。是在字段的窗格上输入以下内容：
标准差之方差:StDev([编号])

版主，能否给个截图，费心帮个忙。

renyucai1963

帮助看看。

roych

表的设计不合理。
首先，Access不是Excel，聚合函数是不能对多个字段进行数据处理的。因此，应当设置为：
编号   组别     数据
1       组别1    1
2       组别1    2
3       组别1    3
4       组别1    4
5       组别1    5
6       组别1    6
7       组别2    2
8       组别2    3
9       组别2    4
10     组别2    5
11     组别2    6
12     组别2    7
…………………………
然后按组别分组，对数据进行标准方差计算。